I am coming back to maple after being years out of it (Maple 9). I am writing a paper in class of how to use Maple with Algebra. I would like to create a document so that students can manipulate the graph of  and se how parameters a, h and k effect the function.  However, I can't seem to figure out how to create a slider linked with each parameter so students can manipulate it. 

Is this possible? Any help wold be great!

Nicholas

I've been having trouble plotting in polar coordinates. My code is included below:

The ouput prints the 10 terms of the sum but the plot does not produce anything.

I also would like to know a method that I could use to plot with a going from zero to the size of the radius.

Thank you for any help.

Is it possible to show using maple if a given line in 3d space intersects a 2d plane with given co-ordinal vertices?

Ive been given a task to write a fuction that will print true/false to if a given line will intersect a triangle given the co-ordinates of the vertices. 
I have a general idea on what needs to be done mathmaticly, but i have poor maple skills and the syntax is killing me.
I would appreciate some help in this regard.

Thanks.

I've been on this question a week now and still no conclusive answer! What I need is a function that produces the inequalities that determine a triangle given the 3 points and then using a 4th point, prints true if the 4th point satisfies 2 or 3 or the inequalities and prints false if it only satisfies 1 or none of the inequalities. I need to have this solved by tonight so any quick help would be greatly appreciated!

Consider the curve defined by f(x, y) = 3+2x+y+2x^2+2xy+3y^2 = 0.Locally on the curve we can view y as a function of x, i.e. y = y(x).Compute formulas for the first and second derivative of y with resoect to x.

2. Give the Maple command(s) to compute \frac{\partial^8 f}{\partial^5 x \partial^3 y} for f(x, y) = e^{2x+ cos(y)}.

How to show the code in file with extension .lib and edit it?

I am stuck with an IVP which is

eq1:=diff(y(x),x$2)+2/x*(diff(y(x),x))+y^M=0;

ic:=y(0)=a,D(y)(0)=0;

its quite easy to find the series solution of the ode 

dsolve({eq1, ic}, y(x), series);

y(x)=a-(1/6)*exp(M*ln(a))*x^2+(1/120)*(exp(M*ln(a)))^2*M*x^4/a;

But I am facing problem when I try to solve it numerically,

dsolve(subs(a=1,M=3,{eq1,ic}),numeric);

THanks

Hello

Am trying to convert a vector projection to matrix type output.

Attached is a sample worksheet.

Transformation_matri.mw 

Consider:

> restart:
> int(exp(I*x)/x,x=-infinity..infinity,CauchyPrincipalValue)
                                                                                                   Pi I

> int(exp(I*3*x)/x,x=-infinity..infinity,CauchyPrincipalValue)
                                                                                                   Pi I

> int(exp(I*k*x)/x,x=-infinity..infinity,CauchyPrincipalValue) assuming k::positive;
                                                                                                  2 I Pi

I would expect the last line to also give me Pi I

Mathematica gives a Pi I via:

FullSimplify[Integrate[Exp[I k x]/x, {x, -\[Infinity], \[Infinity]}, PrincipalValue->True, Assumptions->{k>0}],  Assumptions->{k>0}]

Any idea what this could be?

thanks.

Congratulations to Eric Miles, a graduate teaching assistant at Colorado State University, for winning the second individual prize of The Möbius App Challenge! Eric will be receiving an iPad prize pack for his app Stretch and Translate Sin(x).

Maplesoft launched the Möbius App Challenge earlier this year to give Maplesoft community members the opportunity to get involved in the creation of Möbius Apps. This contest seeks to challenge users to create Math Apps using Maple, submit them to The Möbius Project website, then award the most useful, creative, and effective submissions. Finalists from the individual level challenge are chosen four times a year, so make sure to enter the next round of the challenge for your chance at a Maplesoft prize pack!

For full contest details and to enter, please visit: http://www.maplesoft.com/lp/mobius/index.aspx.

Jonny Zivku
Maplesoft Product Manager, Maple T.A.

I need to make a graph that has dates 1/14/2000 on the x axis and intrest rates on the y axis but when i import my spread sheet from excell the dates keep getting converted into lager numbers like 37000 for some reason and i cannot figure out how to stop this odd conversion. Has anyone encountered this?? i tried looking up dates in maple hepl but cant find much on this topic. Hope i explained what is happening well enough. Graph_One_b.mwGraph_One_b.mw

I have to solve a complex equation whose solutions, I'm looking for, are real numbers, I chose a command 'solve ' to solve this problem but the program shows me this message 'warning solutions May Have Lost'. How I can resolve this problem?

this is the equation and the message :

solve({((abs((((1-(nc-I*kc))/(1+(nc-I*kc)))+(((nc-I*kc)-(0.518-I*0.023))/((nc-I*kc)+(0.518-I*0.023)))*exp(-I*4*3.14*h*(nc-I*kc)/lamda))/(1+((1-(nc-I*kc))/(1+(nc-I*kc)))*(((nc-I*kc)-(0.518-I*0.023))/((nc-I*kc)+(0.518-I*0.023)))*exp(-I*4*3.14*2500*(nc-I*kc)/581))))^2)*100=43.12,((abs((((1-(nc-I*kc))/(1+(nc-I*kc)))+(((nc-I*kc)-(0.176-I*0.023))/((nc-I*kc)+(0.176-I*0.023)))*exp(-I*4*3.14*h*(nc-I*kc)/lamda))/(1+((1-(nc-I*kc))/(1+(nc-I*kc)))*(((nc-I*kc)-(0.176-I*0.023))/((nc-I*kc)+(0.176-I*0.023)))*exp(-I*4*3.14*2500*(nc-I*kc)/720))))^2)*100=44.37},{kc,nc});
{kc,nc};

Warning, solutions may have been lost            {kc, nc}

So I need a help .

Hi,

I have a system of equations for which I want to get a solution around an initial guess, unfortunatly I cannot succed it. Here is the system and the initial guess

solve({(-(((1/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*((0.005+0.009)*sin(-0.785)+(0.072+1*(Ladssec+Ll))*cos(-0.785)))*((Ladssec*(-id0+(0.953/Lfd)+(0.849/L1d)))+Laqssec*id0)-((1/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*((0.072+1*(Laqssec+Ll))*sin(-0.785)-(0.005+0.009)*cos(-0.785)))*((Laqssec*(-iq0+(0.468/L1q)))+Ladssec*iq0))/(2*2.5))=-1.7858
,(-((((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Ladssec/Lfd))*((Ladssec*(-id0+(0.953/Lfd)+(0.849/L1d)))+Laqssec*id0)-(((0.072+1*(Laqssec+Ll))*Ladssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*Lfd))*((Laqssec*(-iq0+(0.468/L1q)))+Ladssec*iq0)+((Ladssec*iq0)/Lfd)) /(2*2.5))=0.1036
,(-((-((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Ladssec/L1d))*((Ladssec*(-id0+(0.953/Lfd)+(0.849/L1d)))+Laqssec*id0)-(((0.072+1*(Laqssec+Ll))*Ladssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*L1d))*((Laqssec*(-iq0+(0.468/L1q)))+Ladssec*iq0)+((Ladssec*iq0)/L1d)) /(2*2.5))=0.2279
,(-((((0.072+1*(Ladssec+Ll))*Laqssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*L1q))*((Ladssec*(-id0+(0.953/Lfd)+(0.849/L1d)))+Laqssec*id0)-(-((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Laqssec/L1q))*((Laqssec*(-iq0+(0.468/L1q)))+Ladssec*iq0)-((Laqssec*id0)/L1q)) /(2*2.5))=-2.3313

,(-(1*Rfd*((1/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*((0.072+1*(Laqssec+Ll))*sin(-0.785)-(0.005+0.009)*cos(-0.785)))*Ladssec)/(Lfd))=0.0023
,(-(1*Rfd*(1-(Ladssec/Lfd)+((((0.072+1*(Laqssec+Ll))*Ladssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*Lfd)) *Ladssec)))/(Lfd))=-0.0054
,(-(1*Rfd*(-(Ladssec/Lfd)+((((0.072+1*(Laqssec+Ll))*Ladssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*L1d)) *Ladssec)))/(Lfd))= 0.0018
,(-(1*Rfd*(-((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Laqssec/L1q))*Ladssec)/(Lfd))=5.8369e-04

,(-(1*R1d*((1/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*((0.072+1*(Laqssec+Ll))*sin(-0.785)-(0.005+0.009)*cos(-0.785)))*Ladssec)/(L1d))=0.1303
,(-(1*R1d*(-(Ladssec/Lfd)+((((0.072+1*(Laqssec+Ll))*Ladssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*Lfd))*Ladssec)))/(L1d))=0.1157
,(-(1*R1d*(1-(Ladssec/Lfd)+((((0.072+1*(Laqssec+Ll))*Ladssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*L1d)) *Ladssec)))/(L1d))= -0.3192
,(-(1*R1d*(-((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Laqssec/L1q))*Ladssec)/(L1d))=0.0333

,(-(1*R1q*((1/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*((0.005+0.009)*sin(-0.785)+(0.072+1*(Ladssec+Ll))*cos(-0.785))) *Laqssec)/(L1q))=-0.1323
,(-(1*R1q*(((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Ladssec/Lfd))*Laqssec)/(L1q))=-0.0044
,(-(1*R1q*(-((0.005+0.009)/((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll))))*(Ladssec/L1d))*Laqssec)/(L1q))= 0.0051
,(-(1*R1q*(1-(Laqssec/L1q)+((((0.072+1*(Ladssec+Ll))*Laqssec)/(((0.005+0.009)^2+(0.072+1*(Ladssec+Ll))*(0.072+1*(Laqssec+Ll)))*L1q))*Laqssec)))/(L1q))=-0.2349}, {L1d, L1q, Ladssec, Laqssec, Lfd, R1d, R1q, Rfd},useassumptions)

Lfd ~=0.233, R1d~=0.0848, L1d~=0.2, L1q~=-0.09, Ladssec~=0.099, Laqssec~=-0.1, Rfd~=0.00173, R1q~=0.0129