Add a square bracket around the solve command.

a := [solve(.601 = 60*(360*60)/(2*Pi*((R*AU)^3/(G*M))^.5)*3600, R)];

Regards,

Georgios Kokovidis

Dräger Medical

See link below.  You might have to re-install Maple.

http://www.maplesoft.com/support/faqs/detail.aspx?sid=150505

Regards,

Georgios

Use the command below at the Maple prompt.

libname();

It will display a list of files that get read from the maple.ini file.  My maple.ini file,

on a Windows 7 64-bit installation, is in the C:\Maple18\Users directory.

Regards,

Georgios

See the help file for the display command.

At the Maple prompt, type ?display

In order to use this command, you either need to load the plots package, or use the short form of the command.

Regards,

Georgios

Try reducing the SOR value.  1.12 works for your particular example.

Compare your results with your specified tolerance (10^(-2))  to the solutions given by the LinearSolve command in the LinearAlgebra library.

Regards,

Georgios

See if the example below will meet your needs.  I changed some of the elements of A for illustration.

restart:

A:=<1,5,1|1,3,1|6,2,1>;

subs(1=0,eval(A));

Regards,

Georgios

a:=10;

plot([a,y,y=-10..10]);

Modifiy the range variable for y to your liking.

Regards,

Georgios

The immediate problem I see is Digits:=2:

Change this to Digits:=15: and the plot will work fine.  See ?Digits for more help on this.

Regards,

Georgios

The display option seems like the easiest way to combine different linestyles for one particular curve over multiple ranges, just like you mentioned.

> restart:with(plots):
> p1:=plot(x^2,x=0..1,linestyle=Solid,thickness=4):
> p2:=plot(x^2,x=1..2,linestyle=Dot,thickness=4):
> p3:=plot(x^2,x=2..3,linestyle=DashDot,thickness=4):
> display(p1,p2,p3);

Here is another way, using the Roots command, which is part of the Student[Calculus1] package.  The plot shows that your function has an infinite number of roots, so you can choose a bounded interval and solve.

restart:
g:=0.88641:
e:=2.53128:
eq:=tan(g)-e*sin(f)/(1+e*cos(f)):
plot(eq,f=-10..10,discont=true);
with(Student[Calculus1]):

Roots(eq,-3 .. 3);

Roots(eq,-10 .. 10);

Regards,

Georgios

You can use the ?display command, which is part of the ?plots package to plot multiple functions.

restart:

with(Student[NumericalAnalysis]); with(plots);
xy := [[0, 4.0], [.5, 0], [1.0, -2.0], [1.5, 0], [2.0, 1.0], [2.5, 0], [3.0, -.5]];
p1 := CubicSpline(xy, independentvar = x):
expand(Interpolant(p1));
x1 := Draw(p1):
p2 := CubicSpline(xy, independentvar = x, boundaryconditions = clamped(0, 6)):
x2 := Draw(p2):
display(x1,x2);

Regards,

Georgios

Try adding a multiplication sign after the "Pi".  See example below.  I also moved your 1.4448608475 to the left hand side, and solved for "s".

solve(-.9900000000*sqrt(Pi*(s^2-1/100))*s^2/((4*(s^2-.5000000000))*s-2*s*sqrt(s^2-0.1000000000e-1)*sqrt(s^2-1)-1.*s^3*sqrt(s^2-1)/sqrt(s^2-0.1000000000e-1)-s^3*sqrt(s^2-0.1000000000e-1)/sqrt(s^2-1))-1.448608475,s);

Regards,

Georgios

Look at the help page for ?display:

restart:with(plots):
p1:=pointplot({seq([n, sin((1/10)*n)], n = 0 .. 30)}):
p2:=pointplot({seq([n, cos((1/10)*n)], n = 0 .. 30)},color=green):
display(p1,p2);

Regards,

Georgios

Look at the help page for the ?RealDomain package.

See link here.

Regards,

Georgios

Not a good idea to unprotect protected names, but...

See help page here for an option.

restart:
local Lett:=D;
Lett;
            D

Regards,

Georgios