Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

Dear all,

 

I have encounter a Maple response but I don't know how to interpret it.

 

When I tried the following Maple codes:

 

A := solve( x^4 + x^3 + x^2 + x + 1  = n, x ):

asympt( A, n, 2 )

 

Maple responded with a mysterious "pt".  What is going on?  Any help will be appreciated!

Thanks in advance.

 

Cheers, Yen-chi Roger Lin

Assistant Professor in Mathematics

National Taiwan Normal University

Good morning Maple users.

 

I request your kind suggestion to the above cited question.

 

 

With thanks & Regards

 

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

I am playing around with a crude implementation of the bisection algorithm. I am using printf  to display some of the output, however there are a couple extra characters, namely, ()^2, at the end. When the very last line is removed, it goes away. What is causing this?

restart; f := proc (x) options operator, arrow; evalf(x^3-3*x^2+1) end proc; a := 0.; b := 1.0; count := 0; while abs(b-a) > 10^(-8) do count := 1+count; m := (a+b)*(1/2); print([a, m, b]); if f(a)*f(m) < 0 then b := m else a := m end if end do; fval := f(m); printf("\n The function value at %10.10g is %10.10g.\n", m, fval)*printf("\n Number of interations: %d.\n", count)

()^2

(1)

restart; f := proc (x) options operator, arrow; evalf(x^3-3*x^2+1) end proc; a := 0.; b := 1.0; count := 0; while abs(b-a) > 10^(-8) do count := 1+count; m := (a+b)*(1/2); print([a, m, b]); if f(a)*f(m) < 0 then b := m else a := m end if end do; fval := f(m); printf("\n The function value at %10.10g is %10.10g.\n", m, fval)


 The function value at 0.6527036502 is   -1.5e-08.

 

``


Download bisect.mw

Maple Player seems like it could be an outstanding piece of software, yet with the new operating system for Ipad, the program crashes immediately. I am unable to find any solutions. I also stumbled across a post in which Maplesoft is no longer providing support for the APP. Is this true?

I am attaching my file. Many of you have given great help on how to get dynamic Maple activities working.  My question again is along those lines. I have created a parabola with sliders a,h, and k.  What I am trying to do is have a button that says show vertex on the equation y=a(x-h)^2+k. However, when I connect the button with Plot3, I plot the the vertex in a new window.  Here is the most successful code I used:

Do(%Plot3=(plot([[%Slider2,%Slider1]],style=point,colour=blue,symbol=solidcircle,symbolsize=18)));

So I do get the point I want (h,k), but the point is not on the function itself.  I have tried muliple maple commands with no luck.  I am wonder how I can get the point (h,k) to be on the function when I hit the "show vertex" button. 

Parabolas_In_Vertex_.mw

 

Thank you for you time,

 

Nicholas

restart;

diffeq := diff(w(r), `$`(r, 1))+2*beta*(diff(w(r), `$`(r, 1)))^3-(1/2)*S*(r-m^2/r) = 0;

con := w(1) = 1;

ODE := {con, diffeq};

sol := dsolve(ODE, w(r), type = numeric);

 

How can i have numerical solution of the above differential equation with corresponding boundary condition?

 

Good time friends,

Recently, I saw this link http://math.stackexchange.com/q/613753/8581. There we asked to find the functions f(x) ang g(x) by having both composition functions fog(x) and gof(x). I know what to do to find any of f(x) (or g(x)) if I am given fog(x) (or gof(x)) respectively, but I confess I don't know what to do with this one. Can Maple overcome this knid of problem? Thanks for your time.

¿Does Maple 17 in that way has helped in the development of complex geometric problems?

¿que libros me recomiendan para aprender mas sobre matematica computacional?  

 

Hello every one,

restart;with(stats):

with(stats[statplots]):
with(plots):

x1_values:=[0.1, 0.20, 0.30, 0.40, 0.50, 0.60, 0.70, 0.80];

x2_values:=[1, 2, 3, 4, 5, 6, 7, 8];

x3_values:=[11, 12, 13, 14, 15, 16, 17, 18];

x4_values:=[10, 20, 30, 40, 50, 60, 70, 80];

y_values:=[30, 40, 60, 70, 90, 120, 150, 200];

How to fit the above data into the following equation

y=a+b*x1+c*x2+d*x3+e*x4+f*x1^2+g*x2^2+h*x3^2+i*x4^2+j*x1*x2+k*x1*x3+l*x1*x4

+m*x2*x3+n*x2*x4+p*x3*x4;

Thanks

 

 

 

> restart;

> with(plots):

> dp := proc(X,Y)

>     X[1]*Y[1]+X[2]*Y[2];

> end:

> nrm := proc(X)

>     sqrt(dp(X,X));

> end:

> r:=[3*cos(u),3*sin(u)];

> lambda:=1;

>  f:=proc(X)

> local Xu,s,T,N,kappa,v,n,pr,v1,z;

> Xu := [diff(X[1],u),diff(X[2],u)];

> s := nrm(Xu);

> T:=[diff(X[1],u)/s,diff(X[2],u)/s];

> N:=[-T[2],T[1]];

> kappa:=simplify(dp(diff(T,u),N))/s;

> v:=int(kappa,u=0..u);

> z:=v;

> if z=0 then -1 else  v1:=z fi;

> n:=[cos(v1)*N[1]+sin(v1)*T[1],cos(v1)*N[2]+sin(v1)*T[2]];

> pr:=([r[1]+lambda*n[1],r[2]+lambda*n[2]]);

> end:

> plot([f(r)[1],f(r)[2],-18..18]);

 

can you please help me , I'm not sure what is going wrong.

When you use the slider without Do(%MathContainer1 = StandardError(Variance, R)):
everything works ok but when you add Do(%MathContainer1 = StandardError(Variance, R)):
Maple Crashes.....

Strange...

LL_102)_Covariance_M.mw

How can I get the Standard Errors of the covariance matrix in Maple?
I can simulate a covariance matrix in Maple as follows:

restart:
with(Statistics):
with(LinearAlgebra):

R := RandomMatrix(4, 4, generator = -15 .. 15, outputoptions = [datatype = float[8]]);
CovarianceMatrix(R);

but how do I find the standard errors?

hi,

     there is a common  differential equation in my maple note,the solution of the eq. can be expressed by

associated Legendre function(s),but i get a result by hypergeometric representation.how i can translate the later into a  single Legendre fun?

 Thank you in advance  

> 

ode := 'sin(theta)*(diff(sin(theta)*(diff(Theta(theta), theta)), theta))'/Theta(theta)+l*(l+1)*sin(theta)^2 = m^2

sin(theta)*(diff(sin(theta)*(diff(Theta(theta), theta)), theta))/Theta(theta)+l*(l+1)*sin(theta)^2 = m^2

(1)
> 

dsolve(ode)

Theta(theta) = _C1*((1/2)*cos(2*theta)-1/2)^((1/2)*m)*sin(2*theta)*hypergeom([(1/2)*m+(1/2)*l+1, (1/2)*m-(1/2)*l+1/2], [3/2], (1/2)*cos(2*theta)+1/2)/(1-cos(2*theta))^(1/2)+_C2*hypergeom([(1/2)*m-(1/2)*l, (1/2)*m+(1/2)*l+1/2], [1/2], (1/2)*cos(2*theta)+1/2)*(-2*cos(2*theta)+2)^(1/2)*((1/2)*cos(2*theta)-1/2)^((1/2)*m)/(1-cos(2*theta))^(1/2)

(2)
> 

`assuming`([simplify(dsolve(ode))], [l::posint, m::integer, l >= m])

Theta(theta) = ((1/2)*cos(2*theta)-1/2)^((1/2)*m)*(sin(2*theta)*hypergeom([(1/2)*m+(1/2)*l+1, (1/2)*m-(1/2)*l+1/2], [3/2], (1/2)*cos(2*theta)+1/2)*_C1+2^(1/2)*(1-cos(2*theta))^(1/2)*hypergeom([(1/2)*m-(1/2)*l, (1/2)*m+(1/2)*l+1/2], [1/2], (1/2)*cos(2*theta)+1/2)*_C2)/(1-cos(2*theta))^(1/2)

(3)
> 

convert(Theta(theta) = _C1*((1/2)*cos(2*theta)-1/2)^((1/2)*m)*sin(2*theta)*hypergeom([(1/2)*m+(1/2)*l+1, (1/2)*m-(1/2)*l+1/2], [3/2], (1/2)*cos(2*theta)+1/2)/(1-cos(2*theta))^(1/2)+_C2*hypergeom([(1/2)*m-(1/2)*l, (1/2)*m+(1/2)*l+1/2], [1/2], (1/2)*cos(2*theta)+1/2)*(-2*cos(2*theta)+2)^(1/2)*((1/2)*cos(2*theta)-1/2)^((1/2)*m)/(1-cos(2*theta))^(1/2), `2F1`)

Theta(theta) = (1/2)*_C1*((1/2)*cos(2*theta)-1/2)^((1/2)*m)*sin(2*theta)*Pi^(1/2)*GAMMA(-(1/2)*m-(1/2)*l)*JacobiP(-(1/2)*m-(1/2)*l-1, 1/2, m, -cos(2*theta))/((1-cos(2*theta))^(1/2)*GAMMA(1/2-(1/2)*m-(1/2)*l))+_C2*Pi^(1/2)*GAMMA(1-(1/2)*m+(1/2)*l)*JacobiP(-(1/2)*m+(1/2)*l, -1/2, m, -cos(2*theta))*(-2*cos(2*theta)+2)^(1/2)*((1/2)*cos(2*theta)-1/2)^((1/2)*m)/((1-cos(2*theta))^(1/2)*GAMMA(-(1/2)*m+(1/2)*l+1/2))

(4)
> 

``

 

Download question_12.19.mw

 

First 1423 1424 1425 1426 1427 1428 1429 Last Page 1425 of 2261