find x₈₅₂ given that

x₀=0.250

x₁=2.00

x_n=(1/9)*sqrt(7+x_n-1) /x_n-2

I don't know how to solve this problem.

Anyone please help me with it!

Thanks a lot

Is it possible to share contents between two different Maple worksheets ? Suppose for example, I want to use certain expression number (10) of  Worksheet 1 in worksheet 2, can I call that expression (10) in worksheet 2 ? I am asking this question because copying expressions between different worksheets is not easy task, sometime we unable copy expressions when they are too large. In my case after carrying out very tedious and lengthy calculations Maple stopped responding, now I have an idea that if I import last output of present worksheet in new worksheet may be I could continue my calculations.

Regards

The code below projects a torus illuminated by a point light source located at the origin onto an ellipsoid as the torus's centre moves along the x axis from [-0.8,0,0] to [0.8,0,0].

Ellipsoid := (1/32)*x^2+(1/18)*y^2+(1/12)*z^2 = 1:
EllipsoidTitle := Typesetting:-Typeset((1/32)*x^2+(1/18)*y^2+(1/12)*z^2 = 1):
DispEllipsoid := implicitplot3d(Ellipsoid, x = -10 .. 10, y = -10 .. 10, z = 1.25 .. 5, style = surface, color = yellow, grid = [30, 30, 30]):
TorusVorig := Vector([(1+.25*cos(v))*cos(u), (1+.25*cos(v))*sin(u), .6+.25*sin(v)]):

i := 0;

for x from -.8 by .1 to .81 do

i := i+1;

TorusV := `<,>`(x, 0, 0)+TorusVorig:

DispTorusV := plot3d(TorusV, u = 0 .. 2*Pi, v = 0 .. 2*Pi, shading = xyz):

NormTorusV := Normalize(TorusV, Euclidean):

Vadj := solve((1/32)*w^2*NormTorusV[1]^2+(1/18)*w^2*NormTorusV[2]^2+(1/12)*w^2*NormTorusV[3]^2 = 1, w):

if evalf(eval(Vadj[1]*NormTorusV[3], [u = Pi, v = Pi])) > 0 then

DispTorusVproj := plot3d(Vadj[1]*NormTorusV, u = 0 .. 2*Pi, v = 0 .. 2*Pi):

else

DispTorusVproj := plot3d(Vadj[2]*NormTorusV, u = 0 .. 2*Pi, v = 0 .. 2*Pi):

end if:

Disp[i] := display(DispTorusV, DispEllipsoid, DispTorusVproj, view = [-10 .. 10, -10 .. 10, 0 .. 5], scaling = constrained, Plot3Daxes, title = typeset("Project %1 onto %2 from a light at the origin", TorusV, EllipsoidTitle), titlefont = [Courier, bold, 14]):

end do:

display(seq(Disp[j], j = 1 .. i), insequence = true);

How can I plot the unmoving torus centred on the z axis projected onto the ellipsoid illuminated by a point light source moving on the x axis from [-0.8,0,0] to [0.8,0,0]?

Is there an elegant way to plot a surface with three given parameters, such as
x=(5+w\cos v)\cos u, y=(5+w\cos v)\sin u, z=w\sin v

with u,v between 0 and 2Pi and w between 0 and 3?

Hello dear!

Hope everyone fine, I am facing to solve the attached problem please find and fix it. I am waiting your kind response. 

naveed.mw

y := int(1/(-0.4016e-1*m^(2/3)-0.211e-3*m^(5/3)), m)

I have to  draw  plot m against y. I can draw plot y against m but i don't can draw plot m against y. Please help me.

I have entered three functions into Maple and I would like to create a set of all possible two-function and three-function compositions involving the three functions. For instance, for my three functions f(x), g(x) and h(x), the set would contain f(g(x)), g(f(x)), f(g(h(x))), f(f(f(x))), etc. 

I'm also looking for a method that will be generalisable to larger numbers of initial functions than just three.

I would like the C-Text style in 14pt Times Roman while the C-2D-Math style is 12pt.

My use case is that I am typing in a single execution block.

I use Format >> Styles and select the style for C-Text and set it to 14pt Times. I click OK to close the dialog. Next I repeat this for the C-2D-Math style but this time set the font size to 12pt and, for testing, the colour to blue. The effect is to give me 14pt Times for both styles, though the C-text is black and the 2-D-Math is blue.

Can the effect I want be achieved, or is this a bug/feature?

This is Maple 2016.1 on Windows 10 64bit

 Thanks for any help

I have used solve to find the solution to an equation that has two solutions, and I want to give each solution a label so that I can use each individually in subsequent manipulations. How do I label each solution separately?

I am having trouble to display a 3d and a 2d plots in a same figure. I tried with the display command but no luck.

f1:=exp(x*y);

plot3d(f1,x=0..1,y=0..1);

p1:=%:

f2:=exp(x);

plot(f2,x=0..1);

p2:=%:

To combine both I used display

display(p1,p2);

I ends up with a structure error

The second question is how to plot f(x,y,z)=exp(x+y+z)?

Thanks

I have the following integration:

Int(c-sqrt(a+b*(v*x+u)^2), x = -(b*u+sqrt(b*c^2-a*b))/(b*v) .. (-b*u+sqrt(b*c^2-a*b))/(b*v));

This integration is equivalent to the following integration (between dashed lines):

-----------------------------

NumericEventHandler(invalid_operation = `Heaviside/EventHandler`(value_at_zero = 1)):

Heaviside(0)

Heaviside(x) = convert(Heaviside(x), piecewise)

Int(Heaviside(x+(b*u+sqrt(b*c^2-a*b))/(b*v))*(c-sqrt(a+b*(v*x+u)^2)), x = -infinity .. (-b*u+sqrt(b*c^2-a*b))/(b*v));

-----------------------------

In this form the function, which is to be integrated, is taken as equal to zero for x < -(b*u+sqrt(b*c^2-a*b))/(b*v).

Now I want to write a form such that the function is also taken as equal to zero for x > (-b*u+sqrt(b*c^2-a*b))/(b*v).

How should I do this? Can this also be done with Heaviside?

Download Forcing_Maple_Output.mw

Regards

With a somewhat complicated equation for a line, draw fails.

with(geometry):

point(P1,[47+(38+22/60)/60, -(122+(43+4/60)/60)]);
point(P2,coordinates(P1) +~ [cos(30*Pi/180),sin(30*Pi/180)]);
line(L1,[P1,P2]);
Equation(L1);
draw(L1); ## no line

point(P1,[0,0]);
point(P2,[7,9]);
line(L1,[P1,P2]);
draw(L1);  ## works

Tom Dean

Hi,

I am having trouble in plotting the following surface (it is a quite complicated expression, but should be fine).

OwnSurface := [-Re(arctan(exp(I*Pi*(1/4))*(u^2+v^2)^(1/2)))-(1/2)*ln((1+(u^2+v^2)^2)^(1/2)), -arctan(1/((2*(u^2+v^2))^(1/2)-1))+7*Pi*(1/4), (1/8)*ln(u^2+v^2-(2*(u^2+v^2))^(1/2)+1)-(1/8)*ln(u^2+v^2+(2*(u^2+v^2))^(1/2)+1)-(1/4)*arctan(1/((2*(u^2+v^2))^(1/2)+1))+(1/4)*arctan(1/((2*(u^2+v^2))^(1/2)-1))];

plot3d(OwnSurface, u = -.4 .. .4, v = -.4 .. .4, labels = [x1, x2, x3]);

The only thing maple does is plotting a box with a diagonal line. How can I fix this?

Hello people in mapleprimes,

I cannot obtain a proper result from the following code.

a:=int(((beta/beta[1,2])^(-theta/(1-theta))-kappa[1]^(-theta/(1-theta)))*m*beta^(m-1),beta=0 .. kappa[1]*beta[1,2]);

Please tell me if you know how to have maple calculate it.

Thanks in advance.

taro