Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I reduced the order of two nonlinear equations and solved them numerically in this way. Why are the two results obtained the same?
directdsolve919.mw

I have the function  and derivate with respect to ν and make the change variable ν=1/t it seems it doesn’t work. I put the derivate of 1/t => -1/t2 by hand  (could it be done by “dchange” the hole transformation ?)

I want to approximate the value of the integral. It seems that the solution of the equation and plot in 2 situations for low-frequency ν < 1014  and for high frequency so  when the exponential is dominated.

Thus plot the whole function E2 in the two situations. Could it be done with a series?

For value h := 6.62607015*10^(-34); c := 299792458; T := 273 + 24; k := 1.380649*10^(-23);

ec := 1.602176634*10^(-19); ν1 :=1012 ; ν2 := 1017 ;Tq := 1.765358264*10^(-19);

Could it be merged E2 into one plot for ν = 1012 .. 1017

PPh1.mw

Hi everyone, I wrote a complex 3D curve expression and wanted to calculate its length (0..Pi), but Maple was always calculating and could not get the answer. The code and worksheet are attached.
The idea came from: https://www.mapleprimes.com/questions/239065-Curve-Length-2d-3d

with(plots); with(VectorCalculus)

p1 := spacecurve([t*sin(t/cos(exp(t))), t*cos(t), (2*sqrt(2)*(1/3))*t^(3/2)], t = 0 .. Pi)

 

curve := `<,>`(t*sin(t/cos(exp(t))), t*cos(t), (2*sqrt(2)*(1/3))*t^(3/2))

Vector(3, {(1) = t*sin(t/cos(exp(t))), (2) = t*cos(t), (3) = (2/3)*sqrt(2)*t^(3/2)})

(1)

NULL

x := proc (t) options operator, arrow; t*sin(t/cos(exp(t))) end proc; y := proc (t) options operator, arrow; t*cos(t) end proc; z := proc (t) options operator, arrow; (2/3)*sqrt(2)*t^(3/2) end proc; arcLengthIntegrand := sqrt((diff(x(t), t))^2+(diff(y(t), t))^2+(diff(z(t), t))^2); AL := evalf(Int(arcLengthIntegrand, t = 0 .. Pi)); AL

proc (t) options operator, arrow; VectorCalculus:-`*`(t, sin(VectorCalculus:-`*`(t, cos(exp(t))^VectorCalculus:-`-`(1)))) end proc

 

proc (t) options operator, arrow; VectorCalculus:-`*`(t, cos(t)) end proc

 

proc (t) options operator, arrow; VectorCalculus:-`*`(VectorCalculus:-`*`(VectorCalculus:-`*`(2, sqrt(2)), 3^VectorCalculus:-`-`(1)), t^VectorCalculus:-`*`(3, 2^VectorCalculus:-`-`(1))) end proc

 

((sin(t/cos(exp(t)))+t*(1/cos(exp(t))+t*exp(t)*sin(exp(t))/cos(exp(t))^2)*cos(t/cos(exp(t))))^2+(cos(t)-t*sin(t))^2+2*t)^(1/2)

 

AL

(2)

NULL

Download length_of_3d_curve.mw

This is a task from one forum:  “Let's mark an arbitrary point on the circle. Let's draw a segment from this point, perpendicular to the diameter, and draw a circle, the center of which is at this point, and the radius is equal to this segment. Let's mark the intersection point of the segment connecting the intersection points of the circles with the perpendicular segment. Prove that the locus of all such points is an ellipse.”
I wanted to get a picture of a numerically animated "proof" using Maple tools.

МАTH_HЕLP_PLANET.mw
 And in fact, it turned out that AB=2AC, or AC=BC.

Hi

How we can reduce run time for Cases III and IV ? (Maple 2016)

Thanks alot

Formula_II.mw

Good morning, I am trying to graph the length of the curve but Maple gives me an error. Please if someone can tell me how I can graph the curve in 2d and 3d.

plot([t*sin(t), t*cos(t), (2*sqrt(2))/3*t^(3/2),t, t = 0 .. Pi]) -> error

 

Just one more small geometry task to get to know Maple a little better:
In the 1st quadrant, point A is on the y-axis and points B, D, C are at a positively increasing distance from the origin on the x-axis. Let BD = DC = s/2 and angle ADB = 45°. Point D is therefore the center of BC. The area of ​​triangle ABC is 60, line AD = x and the length of AC = 19. We are looking for the length of line AB = y.

A student wakes up at the end of the lecture and just catches the professor saying:
"... and the roots form an arithmetic sequence."

On the board there is a 5th degree polynomial as homework, but unfortunately the student only manages to write down
x^5 - 5x^4 - 35x^3 +
before the professor wipes the board.

But the student still finds all the roots of the polynomial.

And the roots now have to be calculated.

I have a list

mylist := [[sqrt(-5*x^2 - 5*x - 1) = -4*x - 1, {-1/3, -2/7}], [sqrt(-5*x^2 - 5*x - 1) = x + 1, {-1/2, -2/3}], [sqrt(-5*x^2 - 5*x - 1) = 4*x + 3, {-2/3, -5/7}], [sqrt(-5*x^2 - 5*x + 4) = -5*x + 3, {1/2, 1/3}], [sqrt(-5*x^2 - 4*x + 2) = -5*x + 2, {1/3, 1/5}], [sqrt(-5*x^2 - 4*x + 2) = -2*x + 1, {-1/3, 1/3}]]

I tried
latex(mylist) and get
 

\left[\left[\sqrt{-5 x^{2}-5 x -1} = -4 x -1, \left\{-{\frac{2}{7}}, -
{\frac{1}{3}}\right\}\right], \left[\sqrt{-5 x^{2}-5 x -1} = x +1, 
\left\{-{\frac{2}{3}}, -{\frac{1}{2}}\right\}\right], \left[
\sqrt{-5 x^{2}-5 x -1} = 4 x +3, \left\{-{\frac{5}{7}}, -{\frac{2}{3}}
\right\}\right], \left[\sqrt{-5 x^{2}-5 x +4} = -5 x +3, \left\{{\frac
{1}{2}}, {\frac{1}{3}}\right\}\right], \left[\sqrt{-5 x^{2}-4 x +2} = 
-5 x +2, \left\{{\frac{1}{3}}, {\frac{1}{5}}\right\}\right], \left[
\sqrt{-5 x^{2}-4 x +2} = -2 x +1, \left\{-{\frac{1}{3}}, {\frac{1}{3}}
\right\}\right]\right]

How can I get  a latex like this?

\documentclass[12pt,a4paper]{article}
\usepackage[left=1.5cm, right=1.5cm, top=2cm, bottom=2cm]{geometry}
\usepackage{fouriernc}
\usepackage{enumitem}
\usepackage{amsmath}
\begin{document}
	Solve the following equations:
	\begin{enumerate}[label=\arabic*)]
		\item $\sqrt{-5 x^{2}-5 x -1} = -4 x -1.$ \hfill Answer: $\left\{-{\dfrac{2}{7}}, -{\dfrac{1}{3}}\right\}.$
		\item $\sqrt{-5 x^{2}-5 x -1} = x +1.$ \hfill Answer: $\left\{-{\dfrac{2}{3}}, -{\dfrac{1}{2}}\right\}.$
		\item $\sqrt{-5 x^{2}-5 x -1} = 4 x +3.$ \hfill Answer: $\left\{-{\dfrac{5}{7}}, -{\dfrac{2}{3}}\right\}.$
		\item $\sqrt{-5 x^{2}-5 x +4} = -5 x +3.$ \hfill Answer: $\left\{{\dfrac{1}{2}}, {\dfrac{1}{3}}\right\}.$
		\item $\sqrt{-5 x^{2}-4 x +2} = -5 x +2.$ \hfill Answer: $\left\{{\dfrac{1}{3}}, {\dfrac{1}{5}}\right\}.$
	\end{document}


Loop is not executing all values just considerinng 1st value of tau0 =0.3.

Also how to plot a 2D graph from the loop result

Attaching sheet with questions in the sheet:
for_loop_question_rec.mw

I have some lecture notes and examples that suddenly appears to be corrupted. I am getting the following error code when trying to open the file: "There was a problem in the loading process, you worksheet may be incomplete."

I've tried the following trouvleshooting:

- Close and reopen Maple

- Restarting computer

- Tried different computer

note: I have no backup files as I do not have autosave switched on.

I have also tried looking into the solution posted on a previous question on this site (https://www.mapleprimes.com/questions/235363-How-To-Fix-Corrupted-Maple-File), i.e.  changing the file format to.xml and making changes but with no luck :(

Is anyone able to help me fix it and un-corrupt this file:

Lecture_2_-_notes.mw

I cannot find an explanation why a boolean evaluation with higher Digits is not the same

NULL

restart;interface(version);

`Standard Worksheet Interface, Maple 2024.1, Windows 10, June 25 2024 Build ID 1835466`

(1)

Digits:=10;
is(ln(.1e11*abs(-.304805898398896+1.*RealRange(.304805898398895,.304805898398897)))/ln(10) < -6);
Digits:=30;
is(ln(.1e11*abs(-.304805898398896+1.*RealRange(.304805898398895,.304805898398897)))/ln(10) < -6)

10

 

true

 

30

 

true

(2)

Digits:=10;
ln(0.1*10^11*abs(-0.304805898398896 + 1.*RealRange(0.304805898398895, 0.304805898398897)))/ln(10) < -6;
is(%);
is(ln(0.1*10^11*abs(-0.304805898398896 + 1.*RealRange(0.304805898398895, 0.304805898398897)))/ln(10) < -6);

10

 

ln(0.1000000000e11*abs(-.304805898398896+1.*RealRange(.304805898398895, .304805898398897)))/ln(10) < -6

 

true

 

true

(3)

Digits := 30;
ln(0.1*10^11*abs(-0.304805898398896 + 1.*RealRange(0.304805898398895, 0.304805898398897)))/ln(10) < -6;
is(%);
is(ln(0.1*10^11*abs(-0.304805898398896 + 1.*RealRange(0.304805898398895, 0.304805898398897)))/ln(10) < -6);

30

 

ln(10000000000.0*abs(-.304805898398896+1.*RealRange(.304805898398895, .304805898398897)))/ln(10) < -6

 

false

 

false

(4)

.1e11

0.1e11

(5)

0.1*10^11

10000000000.0

(6)

NULL

RealRange seems to be evaluated differently.
Any explanation for that?


(expression extracted from an error message)

 

Download eval_of_range_in_ln.mw

 

 

Dear Maple user

I want to add caption for all four graphs with a,b,c,d at the bottom centre of each graph that should be arrange in 2X2 array and the array bottom caption as Figure 6, also i want to save the output of the array graphs in desktop with jpeg format. sample graph i have uploaded.

restart:
with(plots):
A1:= plot(sin(x), x = -Pi .. Pi,title = "Graph at M^2=1",caption = "Fig a"):# This caption is at the centre bottom of first graph and the title of A1 is M*M (M^2)should be display
A2:= plot(cos(x), x = -Pi .. Pi,caption = "Fig b"):# This caption is at the centre bottom of second graph
A3 := plot3d(1.5^x*sin(y), x = -3 .. 3, y = -3 .. 3,caption = "Fig c"):# This caption is at the centre bottom of Third graph
A4 := plot3d(1.3^x*sin(y), x = -1 .. 2*Pi, y = 0 .. Pi,caption = "Fig d"):# This caption is at the centre bottom of forth graph
display(Array(1 .. 2, 1 .. 2, [[A1, A2], [A3, A4]]), aligncolumns = [1],caption = "Fig 6"):# This caption at the bottom centre of array graphs 

4 5 6 7 8 9 10 Last Page 6 of 2152