how to find eigen value this 4x4 matrix:

i copy from notepad, it do not have line return, so i copy to MS WORD and copy here from MS WORD

but some characters missing, if there is some missing please tell me, it seems old web page is better

code and error here

https://skydrive.live.com/redir?resid=E0ED7271C68BE47C!351

restart;with(LinearAlgebra):

f:=[x3-x2^3,-x2,x1^2-x3]:

with(Physics):

u := subs(x3=x3(t),subs(x2=x2(t),subs(x1=x1(t),u)));u := -Physics[`*`](Physics[`*`](Physics[`*`](3, Physics[`^`](conjugate(x2(t)), 2)), x2(t))+Physics[`^`](x1(t), 2)-x3(t), Physics[`^`](1+Physics[`*`](3, Physics[`^`](conjugate(x2(t)), 2)), -1));

u = subs(conjugate(x3(t))=x3(t),subs(conjugate(x2(t))=x2(t),subs(conjugate(x1(t))=x1(t),u)));

would like to remove all conjugate back to normal variable

have a matrix An = [alpha(i,j)]
alpha(i,j) = (j-i+1)*(j-1)!/(i-1)!*a(j-i+1)*x    for j-i >= 0, j - i even

                   0, j-i >= 0, j-i odd,           

                   -1, i-j = 1,             

                    0, otherwise

DOES ANYONES HAS THE SLIGHTEST IDEA OF HOW I COULD MODEL AND SUMILATE THE WAVE PATTERN OF A REGISTERED EARTHQUAKE??? FOR INSTANCE I AM STUDYING THE EARTHQUAKE EFFECTS OF THE NOVEMBER QUAKE IN GUATEMALA OF LAST YEAR. I WOULD LIKE TO MODEL THE MOVEMENT OF THAT QUAKE OVER A GIVEN AREA NEAR THE EPICENTER.

ANY HINTS OF HOW I COULD EVEN START TO MAKE THE MODEL AND SIMULATE??

Working.mw

This one is wokring fine.

However,

See the new worksheet: testP.mw

with the source code: tmP.c

######################################################################...

Hello, 

I would like to solve this differential equation: Eq2 := diff(z(x), x, x) = p*(1+(diff(z(x), x))^2)^.5 

I do not want an analytical solution, but I would like to obtain solutions on a graph, and I want to be able to change the value of the parametre p according to the value of x. 

For example, for x from 1 to 10 I want p=2, then for x from 10 to 11 I want p=10, then for x from 11 to 20 p=2...... 

Does anybody have any ideas please? :) 

Hi there, i want to write a procedure which can initiat the sexond procedure accodingly. For example, f1(a,b,c,d,e,f) where a,b,c,d,e,f is set of different atoms. say, Here I only need to deal with a and d type atoms to calculate energy values through f2 procedure.    

f1:=proc(a,b,c,d,e,f)   
.....
.....
end proc;

How i can write a procedure to assign values, like f1(yes,no,no,yes,no,no) or with number as f1(1,0,0,1,0,0) to show i only need a and d results. 

I try to make the inverse of a one to one piecewise function, but the solve command gives a function of lists. How can I avoid this?

restart;
f := x -> piecewise( x<=1, (x-1)/2, x<2, -3*(x-1)+3, 2*(x-2)+3 ):
solve( f(x)=y, x ): g := unapply(%,y): lprint(g(x));
piecewise(x <= 0, [1+2*x], x < 3, [2-(1/3)*x], 3 <= x, [1/2+(1/2)*x])

I am trying to pass the caption of a Button named A1 with

I've made a procedure to fin the real roots of 2x³-4x²-22x+24, my result gives me:

2x³+(-4x²)+(-22x)+(24) has three real roots:

2/337^1/2sin(1/6Pi+1/3arccos(55/1369*37^1/2))+2/3,

-1/337^1/2(sin(1/6Pi+1/3arccos(55/136937^1/2))+3^1/2sin(1/3Pi-1/3arccos(55/1369*37^1/2)))+2/3,

-1/337^1/2(sin(1/6

PLEASE HELP OUT

  I try to loop this problem using if statement but i am getting wrong lobatooB.mwaswer,the works looks like this see the attached file 

relativistic_64.mwrelativistic_64.mw

I have tried a program concerning an edge detector posted in 2005 by jan69.
The program works well till the end. I manage to have :

> Write ("edge.jpg", img_edge);

                             21108

But I don't know  how to find or create the new picture (after the edge detector).
Can you tell me how doing this ?

relativistic_64.mwrelativistic_64.mw