So, newb question here. I've done my best to debug this line of code, but to no avail. For some reason this function is NOT getting solved correcting for the zeros:

cos(L*x) - x*sin(L*x)

This is not an extremely complex equation either, so I'm at a loss for why my while loop continues to sit there forever. I've got it set to find N number of zeros, but it'll just keep going forever never finding any zeros. I've tried mixing up the start point, and even changed the range which it's searching for them, but nothing seems to get me any closer. Please help!

> restart; with(plots);
> a := 0; b := 1/2; N := 5; w := 1; L := b-a;

Eigenvalue equation
> w := cos(L*x)-sin(L*x)*x;
> plot(w, x = 0 .. 50);

> lam := array(0 .. N+1);

> nn := 0; kk := 5; while nn < N do zz := fsolve(w(x) = 0, x = kk .. kk+1); if type(zz, float) then printf("lam(%d)=%f\n", nn, zz); lam[nn] := zz; nn := nn+1 end if; kk := kk+1 end do

I have an expression of the following structure (the real case is much more complicate but this will illustrate):

expr:=(a+q)*A+b*q*B;

I am looking for a way to change only the first occurrence of q. In my specific case, q << a so I can approximate that instance of q with 0. This I cannot do for the second occurrence of q. Note that the trivial subs(a+q=a) does not work for my real case as a is too complicated (meaning that while in principle I can do it, it looks extremely messy and in any case would not be general).

I can probably concoct something using op(#,expr) and has, but I am wondering whether there is an easier and faster way.

TIA,

Mac Dude

How would I write a function that produces true if a vector/ line satisfies 3 linear inequalities and false if it does not satisfy all 3 linear inequalities? Ie
If the vector <m,n> satisfies ax+by+c>0, dx+ey+f>0 and gx+hy+i>0 then the function returns true, and if it does not satisfy one or more then it returns false? Thanks very much for your time.

I'm trying to use the CriticalPoints command from the Student[Calculus1] package to determine the critical points of f(x) = x^2 * ln(x).

My issue is this. A critical point is defined as a value of x in the domain of f(x) where either f'(x)=0 or f'(x) does not exist. Clearly x=0 is not in the domain of f(x) = x^2*ln(x). How may I "trick" Maple into returning only the value exp(-1/2)?  As seen above, my attempt to use the assuming command proved futile.

More troubling, however, is whether or not the CriticalPoints command is using the correct definition to compute critical points. Can anyone shed some light on this?

Download critpts.mw

Can someone explain to me, if you can, how the Euler angles on the plot interface work?

It looks like Phi is the rotation around z, Theta is the rotation around x, and Psi is around y. I'm trying to use matrices to compute the vector that is pointing towards your face as you're looking at the plot with the given Euler angles.

X := Matrix(3, 3, {(1, 1) = 1, (1, 2) = 0, (1, 3) = 0, (2, 1) = 0, (2, 2) = cos(phi), (2, 3) = sin(phi), (3, 1) = 0, (3, 2) = -sin(phi), (3, 3) = cos(phi)});

Y := Matrix(3, 3, {(1, 1) = cos(theta), (1, 2) = 0, (1, 3) = sin(theta), (2, 1) = 0, (2, 2) = 1, (2, 3) = 0, (3, 1) = -sin(theta), (3, 2) = 0, (3, 3) = cos(theta)});

Z := Matrix(3, 3, {(1, 1) = cos(psi), (1, 2) = sin(psi), (1, 3) = 0, (2, 1) = -sin(psi), (2, 2) = cos(psi), (2, 3) = 0, (3, 1) = 0, (3, 2) = 0, (3, 3) = 1});

and computing X*Y*Z*e3

TIA!

How do I define a function from a graph in a plot? 

Or how do I find the intersection between two lines? I have to find the intersection of 2 lines in a graph, while one of these lines consists of 2 different equations dependent from the same variable. 

Thanks in advance. 

How to find the integral int(-2*log((1+sqrt(s))/(1-sqrt(s)))/((-s^2+1)*(s-1)*sqrt(s)), s = 0 .. z)

any general method to eliminate the derivative of lambda1,lambda2,lambda3

a:= -(diff(lambda1(t), t))+lambda3(t);
b:= -lambda1(t)-(diff(lambda2(t), t))+4*lambda3(t);
c:= -lambda2(t)+3*lambda3(t)-(diff(lambda3(t), t));

result in 2*lambda1(t) - lambda2(t) + 2*lambda3(t) = 0;

solve({[(alpha[1]-alpha[2]*lambda)*sqrt(x)+p[2]*lambda]*[k[1]*(1-lambda^2)+2] = p[1]*(2*k[1]*(1-lambda^2)+2), [(alpha[2]-alpha[1]*lambda)*sqrt(x)+p[1]*lambda]*[k[2]*(1-lambda^2)+2] = p[2]*(2*k[2]*(1- lambda^2)+2)}, [p[1], p[2]])

Warning, solutions may have been lost

could you help me please to find a solution for this issue...

I would like to thank you in advance 

Best regards,

D.L.

I have to graph the following:

y=e^x, y=e^x+3, y=2*e^x, y=e^(x+3)

I put in plot(exp(x),exp(x)+3,exp(x)*2,exp(x+3)) but it is giving me Error, in plot (unexpected options): [exp(x)+3,exp(x)*2,exp(x+3)]

I can't figure out what I'm doing wrong!

It also will not allow me to graph ln(x)

Good afternoon sir.

I request you to provide the maple approach to workout Wielandt deflation & Hotelling deflation.

With thanks & Regards

M.Anand

Assistant Professor in Mathematics

SR International Institute of Technology,

Hyderabad, Andhra Pradesh, INDIA.

Hello dear friends

I have a difficult issue about the new maple 17, since I installed the new update i can't use my shortcut to Evalulate and Display Inline. Before i could use the Cmd + alt + =  or Cmd + = 

Now it just zooming in about 10% zoom size when i type this. I use this command alot, i hope you guys can help me with this.

I don't use worksheet, it's just maple math-mode 2d and I use macbook pro 10.6

Hello,

I try to calculate a big matrix product which is used after for the resolution of a differential system.

In the link below, you have the matrix product which causes me trouble.

http://dl.free.fr/p8fP9XqWn 

The matrix are composed with trigonometric functions.

I think that the problem is due to the fact that Maple tries to determine a analytical solution.

But, for my use, i only need a numerical result that i can use after for solving my differential system.

Have you some ideas in order to make this matrix product? 

Thank a lot

Two problems surfaced when I upgraded my Mac to Mavericks (OS X 10.9).

First, the old Java SE installation was removed (actually, some linkages were destroyed), so a Maple launch puts up a dialog "need to install Java." Apple hasn't yet (10/23/13) updated the software database links --- installation fails with a "can't find software" error. I reinstalled Java using the version at http://support.apple.com/downloads/DL1572/en_US/JavaForOSX2013-05.dmg. (The links can be redone, it's just easier to reinstall.)

Second, the (new?) structure for /Library/Frameworks made my Maple license invalid. I dug out the old email with my activation code, then re-activated.

And all is now copacetic.

f := Diff(u(t),t$2)+Diff(u(t),t)+u(t)+x(t);

after indicate to extract u(t), should output Diff(u(t),t$2)+Diff(u(t),t)+u(t)

after indicate to extract x(t), should output x(t)