gkokovidis

2175 Reputation

11 Badges

16 years, 137 days
Draeger Medical Systems, Inc.

 

 

Regards,
Georgios Kokovidis
Dräger Medical

MaplePrimes Activity


These are answers submitted by gkokovidis

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

This code is written in "R".  Are you sure you are posting your question in the right forum?  You might try one of the many "R" user groups available online.

 

Regards,

Georgios Kokovidis

Dräger Medical

 

See example here.  Is this what you are looking for?  If not, can you post an example problem.

Regards,

Georgios

4 5 6 7 8 9 10 Last Page 6 of 74