You could do something like this:
S := collect(a0+sum(an*cos(n*x*Pi/L),n=1..8),1/Pi);
It is not exactly what you wanted , but I hope it helps.
Later edit.
On reflection, one can improve on the above thus:
Sn := sum(an*cos(n*x*Pi/L),n=1..8):
Sn := algsubs(4/Pi=a,Sn):
Sn := collect(Sn,a):
Sn := subs(a=(Pi/4),Sn):
S := a0 + Sn;
This is what you asked for, though not in quite the same order. Hope it will be adequate for your purpose.
J. Tarr
Would the tables available in document mode do what you want? Something like this:
Values of 
for individual i captured at time j
Maple 9 and 10 provide a mouse-driven cursor that shows its [x, y] coordinates in a window in the plot toolbar. This can be useful, though accuracy is limited. It's fine for one or two points, but it doesn't come near Roman's request.
J. Tarr
Try searching on polar in Maple's help pages. You should find examples there that will show you what you want.
J. Tarr
Later edit.
Sorry I did not answer your question about degrees and radians. Maple uses radians, but you can convert to and from degrees using the convert command. Please see the help page for "convert".
In your example the z term could be very large depending on the value of z. But perhaps something like this would do what you want.
restart;
e1 := 1*x + 2*y - (1*10^(-20)*y);
evalf(e1);
J. Tarr
You could try this:
restart;
e1 := 2*sqrt(z*(2*r - z))*r -2*sqrt(z*(2*r - z))*z - 2*r^2*arcsin( (-r + z)/r);
e2 := subs((z*(2*r - z))=g,e1);
collect(e2,g^(1/2));
Hope this helps,
J. Tarr
If you want to plot a vertical line between the points x=6,y=-10 and x=6,y=10, you could do this:
plot( [ [6,-10],[6,10] ] );
You will find a lot of information on plotting in the User Manual. Search for UserManual,Contents in the help pages and then choose Plots and Animations.
Good luck,
J. Tarr
Have you had a look at the examples at the bottom of the help page for plot3d? The surfaces produced by each expression are identified by colors.
Your labels could be written like this:
labels=["Time of fault clearance, s",
"Magnitude of Fault Current","Parameter"].
But these labels are unlikely to fit into the plotting area, so you may have to invent shorter ones. Alternatively, you could try using the "labeldirections" option - see plot3d,option.
Hope this helps.
J. Tarr
Click Tools in the toolbar, click Options, select Interface and check that "Open Worksheets in" is set to "New Tab".
Hope this helps.
J. Tarr
Please try searching on "vector symbols".
Hope this helps.
J. Tarr
Try something like this;
restart;
eq1:=2*(x*r) + 2*(y*s) + 2*(z*t)-(t^2) + (r^2)=0:
eq2:=3*(x*(r^2)) + 3*(y*(s^2)) + 3*(z*(t^2))-(t^3)+(r^3) =0:
eq3:=4*(x*(r^3)) + 4*(y*(s^3)) + 4*(z*(t^3))-(t^4)+(r^4)=0:
soln := solve({eq1, eq2, eq3},{x,y,z});
Hope this helps.
J. Tarr
It looks as though you need an initial value for theta(0). For example if theta(0)=Pi/4, you could do something like this:
restart;
dEq := diff(theta(t), t, t) = sin(theta(t));
dsol := dsolve({dEq,D(theta)(0) = 0,
theta(0)=Pi/4},numeric);
dsol(0);
dsol(2);
plots[odeplot](dsol,0..5);
Hope this helps,
J. Tarr
Try using evalf on the results of solve.
Hope this helps.
J. Tarr
Can you clarify your question please?
First, where is gamma(t) defined? Maple can't plot a function that has not been defined. Second, gamma is a reserved word in Maple - see ?gamma - so use something else. Third what are the values of the constants? Maple needs to know these values before it can plot the expression or function that you want to plot. Do you mean cos, not cons, in the first term on the rhs of the equation for x1?
Regards,
J. Tarr
