@Kitonum 

thank you to remind me, it can play animation

@Kitonum 

i use original code, it output blank graph

https://goo.gl/photos/49bB22iX7zN5fost7

@Kitonum 

sorry, actually i use maple 15

i captured the situation with Video in below links

https://goo.gl/photos/cis5jLPY63PHTJFN8
https://goo.gl/photos/tc1uREJb2NWuN9KQ6

@Preben Alsholm 

Happy Christmas!!!

how to animate it in Maple 12?

after run in maple 12, has some messages

> plots:-animate(plot, [sols[11][i], thickness = 3, axes = none], i = 1 .. 10, paraminfo = false);
... index into Vector
> plots:-animate(plot, [sols[11][1 .. i], thickness = 3, axes = none], i = 1 .. 10, paraminfo = false);
 non-integer ranges in Vector index
 

@Kitonum 

Happy Christmas!!!

how to plot in maple 12?

plots:-display(seq(plot(sols[11][1..n], color=red,thickness=3)$5, n=1..10), insequence=true);

i use it in maple 12 , no graph output

and moreover what is $5 ? how to find this 5?

if n = 100, do it change to $100 ?

@Kitonum 

will future version have function to do for a system?

@Kitonum 

i tried for a system, it can not show steps,

how can it do for a system ?
sysa := 2*a+b=0;
sysb := a+2*b=0;
Sol := Student[Basics][LinearSolveSteps]([sysa, sysb],[a,b]);

@Preben Alsholm 

i would like to diff respect to a(t),

then i do with below

subs(c=c(t),subs(b=b(t),subs(a=a(t),int(int(subs(c(t)=c,subs(b(t)=b,subs(a(t)=a,a(t)*b(t)+2*(diff(a(t), t))*(diff(b(t), t))*c(t)))),a),c))))

then i try to recover with below

diff(diff(subs(c(t)=c,subs(b(t)=b,subs(a(t)=a,(1/2)*a(t)^2*b(t)*c(t)))),a),c);

but it is not equal to the original

a(t)*b(t)+2*(diff(a(t), t))*(diff(b(t), t))*c(t)

@vv 

ha := (diff(c(t), t))/(c(t)*(diff(c(t), t))-c(t));

i assumed ha is similar with exp(t),

would like to find function f which similar with diff(..., t)

if diff is second level

this function f is third level

@Preben Alsholm 

not only this,

i want to find a function similar with exp having this property

but it should be expressed in terms of differential terms

exp is between algebra and differential level

i am finding the function is between differential level 

and an upper unknown level

this role is like the role of exp in differential equation

@Preben Alsholm 

thank you very much.

lowercase works.

@vv 

from google, 

i only searched, mathematica code,

i guess this is parametric surface, but i do not know the wanted projection, i guess R^3, 3 dimensions

n = 5;
CalabiYau[z_, k1_, k2_] := Module[{z1 = Exp[2Pi I k1/n]Cosh[z]^(2/n), z2 = Exp[2Pi I k2/n]Sinh[z]^(2/n)}, {Re[z1], Re[z2], Cos[alpha]Im[z1] + Sin[alpha]Im[z2]}];
Do[alpha = (0.25 + t)Pi; Show[Graphics3D[Table[ParametricPlot3D[CalabiYau[x + I y, k1, k2], {x, -1, 1}, {y, 0, Pi/2}, DisplayFunction -> Identity, Compiled ->False][[1]], {k1, 0, n - 1}, {k2, 0, n - 1}], PlotRange -> 1.5{{-1, 1}, {-1, 1}, {-1, 1}}, ViewPoint -> {1, 1, 0}]], {t, 0, 1, 0.1}];

@taro 

http://members.wolfram.com/jeffb/visualization/stringtheory2.shtml

as you can see the 3D graph in this link,

the surface intersect itself, i would like to find all intersections of calabi yau

itself.

yes, i am talking about intersection

usually finding intersection, there is at least two equations, and solve it

but calabi yau itself ,the surface intersect itself , how to find this kind of intersection?

i am curious to find the intersections of calabi yau

@vv 

i follow

https://www.mathworks.com/matlabcentral/answers/139548-finding-the-angle-of-rotation-given-the-slope-of-the-line-connecting-two-rotated-points?requestedDomain=www.mathworks.com

can not solve this equation in maple

it return []

with(MTM):
evalf(solve(atan(-1) - 45*Pi/180 = atan(x), x));

the web marked correct.

when compare

evalf(atan(-1) - 45*Pi/180);

with
evalf(atan(1));

they are not equal

@vv 

sorry, i know tan(45) = 1, i type without thinking , so type wrong thing