gkokovidis

2355 Reputation

13 Badges

20 years, 132 days
Draeger Medical Systems, Inc.

 

 

Regards,
Georgios Kokovidis
Dräger Medical

MaplePrimes Activity


These are answers submitted by gkokovidis

@Mickpaskal22

Maple is not incorrect.  The y-axis scale is giving you this impression.  Change it, as in the attached, and you will see what you want, a minimum, @ 1.2.

restart:with(plots):Digits:=15:

plot(3.8+2.6*sin(50*Pi*t),t=0..0.05,y=0..7);

 

implicitplot(y=5, x=0..0.05,y=0..6.5,color=blue);

 

p1:=plot(3.8+2.6*sin(50*Pi*t),t=0..0.05,y=0..7):

p2:=implicitplot(y=5, x=0..0.05,y=0..6.5,color=blue):

display(p1,p2);

 

 

Download plot.mw

Regards,

Georgios

There is a multiplication sign missing after your w^2 in your worksheet.  Try fixing that and solve your equation for w.

 

Regards,

Georgios Kokovidis

Dräger Medical

Another option is to create two separate plots and combine them using the display command.  This is not as elegant as what Carl provides, but it avoids undocumented commands.

restart:with(plots):

p1:=plot(x^2, x= -2..2):

p2:=textplot([0,4,"My favorite plot"], 'color'= "Green",

     'font'= [times,roman,24],'align' = 'above'):

display(p1,p2);

 

 

Download Plotcolortitle.mw

 

Regards,

Georgios

Sometimes, increasing Digits will allow fsolve to converge, where the default value of Digits (10), fails, as in the example provided by vv.

restart:
fsolve({(2*x+y+1)*exp(-(x+y-1)^2),   (3*x+2*y-1)*exp(-(x-y-1)^2)});
                                    FAILS
restart:Digits:=30:
fsolve({(2*x+y+1)*exp(-(x+y-1)^2),   (3*x+2*y-1)*exp(-(x-y-1)^2)});
            {x = -3.00000000000000000000000000000, y = 5.00000000000000000000000000000}
restart:
solve({(2*x+y+1)*exp(-(x+y-1)^2),   (3*x+2*y-1)*exp(-(x-y-1)^2)});
                        {x = -3, y = 5}

Download fsolve.mw

Regards,

Georgios Kokovidis

Dräger Medical

restart:with(plots):

p1:=implicitplot(x^2+y^2<1,x=-3..3,y=-3..3,color=red):

p2:=implicitplot((x-1)^2+y^2<1,x=-3..3,y=-3..3,color=blue):

display(p1,p2,axes = normal, scaling = constrained, title = `Intersection of x^2+y^2<1 and (x-1)^2+y^2<1`);

 

 

Download intersection.mw

Regards,

Georgios

This is not a Windows 10 issue.  Same thing happens in Windows 7 with Firefox (for me).

Right click the file, save it, and then navigate to the directory.  Click it, and Maple will open the file.  Then you can execute it.

 

Regards,

Georgios Kokovidis

Dräger Medical

Try fsolve, and see if the results are acceptable to you.

restart:Digits:=15:

a:=sin(((((165*Pi)/180)-theta)/10))-sin(theta)/y;

cos((49/120)*Pi+(1/10)*theta)-sin(theta)/y

(1)

b:=(((y^2-20*y*cos(Pi/12)+100)*(sin((165*Pi/180)-theta))^2)/100)-sin(Pi/12)^2;

(1/100)*(y^2-20*y*cos((1/12)*Pi)+100)*sin((1/12)*Pi+theta)^2-sin((1/12)*Pi)^2

(2)

fsolve({a,b},{y,theta});

{theta = 1.71843158949638, y = 8.53608914525755}

(3)

 

 

Download fsolve.mw

In Maple, sum is used for definite and indefinite symbolic summation.

For what you are doing, add is a more appropriate command.

>add(nops(L(i)),i=1..2);

                                        6

Regards,

Georgios

restart:with(Statistics):

A:=[1, 2, 3, 4];
                       A := [1, 2, 3, 4]


CumulativeSum(A);

 

Regards,

Georgios

See help page for Events dsolve[numeric] here.

You can also upload your worksheet.  Maybe there is an issue with the way the original problem was formulated?

Regards,

Georgios Kokovidis

Dräger Medical

d1 := display([p2, p3, p4, p5, p6]);

d2 := plot(xv, yv, style = point, symbol = point);

display(d1,d2);

plot_real_example_5_Exact_Curve_Fit_questiion_for_MaplePrimes2.mw

Is this what you are looking for?

Regards,

Georgios

 

Document mode is creating a problem.  Your f2 is showing up as

f2 := e^(-1+2*s)*sqrt(x*exp(t-s))

I never use it.  See worksheet below.

restart:

f1 := sqrt(x*exp(t-s));

f2 := exp(-1+2*s)*sqrt(x*exp(t-s));

f:=f1+f2;

(x*exp(t-s))^(1/2)

 

exp(-1+2*s)*(x*exp(t-s))^(1/2)

 

(x*exp(t-s))^(1/2)+exp(-1+2*s)*(x*exp(t-s))^(1/2)

(1)

int(f1,s);

-2*(x*exp(t-s))^(1/2)

(2)

int(f2,s);

(2/3)*exp(-1+2*s)*(x*exp(t-s))^(1/2)

(3)

int(f,s);

-2*(x*exp(t-s))^(1/2)+(2/3)*exp(-1)*(exp(s))^2*(x*exp(t)/exp(s))^(1/2)

(4)

 

 

Download f_f1_f2.mw

Are you looking for something like this?

restart:

(x^2)^(0.5);

(x^2)^.5

                                                  (1)

simplify(%)assuming x>0;

x

                                                           (2)

 


Download sqrt(x^2).mw

If Maple cannot "simplify" or convert to an exact value, without manual intervention, you can try using the identify command.

restart:Digits:=20:

(-2*sqrt(7)-4)*EllipticK((1/8)*sqrt(2)*(-3+sqrt(7)))^2+4*EllipticE(-(1/8)*sqrt(2)*(-3+sqrt(7)))*sqrt(7)*EllipticK((1/8)*sqrt(2)*(-3+sqrt(7)));

(-2*7^(1/2)-4)*EllipticK((1/8)*2^(1/2)*(-3+7^(1/2)))^2+4*EllipticE((1/8)*2^(1/2)*(-3+7^(1/2)))*7^(1/2)*EllipticK((1/8)*2^(1/2)*(-3+7^(1/2)))

(1)

evalf(%);

3.141592653589793239    

(2)

identify(%);

Pi

                                                      (3)

 

Download identify.mw

See ?identify for more help on this.

 

 

Regards,

Georgios Kokovidis

Dräger Medical

restart:with(numtheory):

a:= cfrac(Pi);

seq(nthconver(a,i),i=1..10);

You have to load the numtheory package, or use the short form of the command.  Look at the examples that were provided to you from your previous post, that used cfrac.

 

Regards,

Georgios

 

3 4 5 6 7 8 9 Last Page 5 of 75