Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Hi, I am a Maple newbie. My problem is I do not know how to generate the result to find the answers of these question: 

  1. a)   Sketch the surface area of the part of paraboloid z = x2 + y2 that lies under the plane z=8.

b)   Compute the surface area.

  1. a)   Sketch the solid that lies above the cone z = (x2 + y2)1/2 and inside the sphere x2 + y2 + z2 = 16.

b)   Compute the volume of the solid.

It is possible to calculate these question? Does anyone has a suggestion? Thank you. 

Hi all,

Please help me to get a solution for all the desired data in the attached file. As you could see through it, just for 4 out of 20 desired Br, there are answers by the command:
Notice that If I write Br= -7.0 there is no solution, but I wrote Br= -6.999999, and the solution was achieved simply; just by applying an approximation value for '7'.
 

I don't know why for other data there are no solution...

Best

System_of_Equations.mw

restart;
with(PDETools);
diff(r(t), t)-(diff(a[3](t), t))*r(t)/a[3](t)+a[1](t)*p[3](t)-3*r(t)*r(t) = 0;
                                        
dsolve(diff(r(t), t)-(diff(a[3](t), t))*r(t)/a[3](t)+a[1](t)*p[3](t)-3*r(t)^2 = 0, r(t));

 it does not give any solution ,please help.

how to see all steps of solution in maple? for eg: any second order differential eq.

how to solve optimal system of vector   fields in lie theory in maple?

Am trying to draw a series of triangles for animation.  I try to construct the triangles in a loop using:

triangle(cat(T1,`a`),[A,B,C]):

  so that the names of the triangles are meant to beT14, T15, T16

I have tried unsuccessfully to use the plots and draw commands ie

draw({seq(tabl[i], i=4..6)}, insequence=true, scaling=constrained);

plots[display({seq(tabl[i], i=4..6)}, insequence=true, scaling=constrained);

  Can the animation be done in either?  

It seems to want a variable in a list/set format - How do I set that up?  Any comments, or help gratefully received.  The program is below.  Part of the output does give triangles - but they all seem identical:-(

 

restart:

# # # # # # # # # # # # # # # # # # # # # # # # # # # #

# Altitude exploration  program

#Trying to draw a sequence of triangles for animation

# # # # # # # # # # # # # # # # # # # # # # # # # # # #

with(plots):

with(geometry):

for a from 4 to 6 do

b:=a+1: c:=a+2:

angA:=arccos((a+5)/2/(a+2));

point(A,0,0),point(B,c*cos(angA),c*sin(angA)),point(C,a+1,0):

tabl[a]:=triangle(cat(T1,`a`),[A,B,C]):

printf("a=%d\n",a);

triangle(cat(T1,`a`),[A,B,C]):

end do:
 

for i from 4 to 6 do

draw({seq(tabl[i], i=4..6)}, scaling=constrained);

printf("a=%d\n",i);

end do;
 

print(`After do`);

draw({seq(tabl[i], i=4..6)}, insequence=true, scaling=constrained);

Warning, the name changecoords has been redefined

 

Warning, the name arrow has been redefined

 

Warning, these names have been redefined: circle, ellipse, homothety, hyperbola, line, point

 

a=4

a=5

a=6

a=4

a=5

a=6

What is a suitable replacement for eliminate?

Here is my code:

 

A := {x[5] = x[2]/x[1], x[6] = x[3]/x[2], x[7] = x[1]/x[4], x[8] = (2*x[2]+x[4])/(2*x[1]+x[3]+x[4])};
B := {x[1], x[2], x[3], x[4], x[8]};

([eliminate])(A, B);
([eliminate])(A, B minus {x[1]});
([solve])(A, B);


In the older versions of Maple the first example of eliminate would return same result as the solve example, but with current version I need to resort to the second example.

Maple 13:

t:=(a0+a1*x+a2*x^2)/(b0+b1*x+b2*x^2);
t*exp(t)=c;

x=solve(%,x); yields with c<>0:

x=-(a0*b2-b0*a2)/(a1*b2-b1*a2)

Is this an error? The solution is the same in each case - it is independent of c. I would expect x as solution of t=LambertW(c).

Mathematica 7.0 says correctly: "The equations appear to involve the variables to be solved for in an essentially non-algebraic way."

Is this bug corrected in higher versions of Maple?

Hello, I have been attempting to plot a sequence of arrows in order to display how the vectors of the Frenet-Serret frame change throughout an helix-like trajectory. I came up with the following:

(With p1 being a plot I made earlier)

for t from 0 by 0.1e-1 to 12.5663706144 do plots[display](p1, plottools[arrow](Vector([cos(t), sin(t), t/(7.5)]), Vector([-(1/2)*sqrt(2)*sin(t), (1/2)*sqrt(2)*cos(t), (1/2)*sqrt(2)]), .1, .2, .3, cylindrical_arrow)) end do

This plots the desired arrow representing the tangent vector; however, it creates a plot for each step, while what I want is for it to display the arrow on each step in the same plot (as an animation).

I have attempted using the seq command, but I can't seem to get it right.

plots[display](p1, plottools[arrow](seq([Vector([cos(t), sin(t), t/(7.5)]), Vector([-(1/2)*sqrt(2)*sin(t), (1/2)*sqrt(2)*cos(t), (1/2)*sqrt(2)]), .1, .2, .3, cylindrical_arrow], t = 0 .. 4*Pi, 0.1e-1)))

With this code, the sequence won't be able to be executed.

Any ideas on how to do this? How can I use the sequence command in combination with plottools[arrow]?

Dear Guys

I want to solve this integral by maple:

p := sqrt(ln(t)*(ln(t))^(-2))*t^(-1)*(1-(ln(t))^(2)/(t^2))^(-1/4);

I used these expressions, but they don't work:

int(p, t);

int(simplify(p),t);

int(simplify(p, symbolic), t);

Could you please guide me?

Thanks

Hi,

I asked a question before, how to shift subscript of u(i,j):

P: u[i,j] -->  u[i+1,j]

https://www.mapleprimes.com/questions/223136-How-To-Define-An-Operator

How about an arbitrary expression?

P: u[i,j]^2 v[i,j]+u[i-1,j]  -->  u[i+1,j]^2 v[i,j]+u[i,j]

thanks.

 

See below, why the difference + what is the distinction between the 2?  Notice that they yield different results with the is command.

restart; P := a[0]+sum(4*(int(cos(2*Pi*(2*k-1)*x/T), x = 0 .. t))/T, k = 1 .. n); Q := a[0]+4*(int(sum(cos(2*Pi*(2*k-1)*x/T), k = 1 .. n), x = 0 .. t))/T; is(expand(P = Q)), is(combine(P = Q)); is(value(eval(P = Q, n = 10)))

false

(1)

restart; P := a[0]+Sum(4*(Int(cos(2*Pi*(2*k-1)*x/T), x = 0 .. t))/T, k = 1 .. m); Q := a[0]+Int(Sum(4*cos(2*Pi*(2*k-1)*x/T)/T, k = 1 .. m), x = 0 .. t); is(expand(P = Q)), is(combine(P = Q)); is(value(eval(P = Q, m = 10)))

true

(2)

sum(4*(int(cos(2*Pi*(2*k-1)*x/T), x = 0 .. t))/T, k = 1 .. n)

((1/2)*I)*(-ln(-(1+exp((2*I)*Pi*t/T))/(exp((2*I)*Pi*t/T)-1))+exp((2*I)*Pi*(1+2*n)*t/T)*LerchPhi(exp((4*I)*Pi*t/T), 1, 1/2+n)+ln((1+exp((2*I)*Pi*t/T))/(exp((2*I)*Pi*t/T)-1))-LerchPhi(exp(-(4*I)*Pi*t/T), 1, 1/2+n)*exp(-(2*I)*Pi*(1+2*n)*t/T))/Pi

(3)

a[0]+Sum(4*(Int(cos(2*Pi*(2*k-1)*x/T), x = 0 .. t))/T, k = 1 .. m)

a[0]+Sum(4*(Int(cos(2*Pi*(2*k-1)*x/T), x = 0 .. t))/T, k = 1 .. m)

(4)

``


 

Download sum_versus_Sum.mw

 

I'd like to find the harmonic mean of the lengths of the three altitudes of a triangle.  I believe this to be equal to the radius of the incenter of the triangle.  I haven't used the geometry package  much, but notice it has some interesting features like Harmonic mean. (Incidentally, it has a vertex, and vertices command, but these don't seem to be recognised in Maple 7 - not even in the Help section.)  I would normally tackle thissue  problem using coordinate geometry, and give a diagram of the triangle using the plots [display] command.  Id like some advice about the interactivity of commands in geometry and plots packages eg  can I find the coordinates of the base of an altitudemail using the geometry package?  There is an altitude command which gives the àltitude's equation.  For this the coding would be

:triangle(ABC, [point (A,0,0),point (B,,2,0), point (C,1,3)]:

altitude (hA1,A, ABC);

detail (hA1);

   I think I have answered my own question!  I see there is a DefinedAs command which would give me the coords.   Am I correct in thinking the geometry package is the best method of doing this.  Later I was hoping to display animation, to see how the Harmonic mean changes with varying different triangles.

Thanks for reading this and Happy New Year.

David  

Hallo,

I have a list of graphs made correctly with the package GraphTheory: g=[g[1],g[2],g[3]], where g[1], g[2] and g[3] are graph objects. GraphTheory[DrawGraph] inside a for-loop doesn't work. GraphTheory[DrawGraph](g) draws all graphs simultaneously. How can I draw the single graphs of the list successively when the number of members in g is a variable?

Thanks.

Hello everyone,

Compliment of the season. I received the error message while trying to solve some Pade approximant problem and try to find what could possibly be the error but could not.

Please, anyone with good informations on the possible solutions should help.

Thanks. The Link is below

 Error.mw

First 865 866 867 868 869 870 871 Last Page 867 of 2216