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

Hello,

I am new to Maple.

I have a set of spreadsheet data :(x1, y1), (x2, y2) .....(xn,yn).

And I have an equation that contains an infinite series with unkowns.

e.g.) y=  A*x + sum ( B * exp(-n^2 * (x-C)) /n^2, n=1..infinity);

Where A, B, C are unkowns, which I want to get optimized values for the spreadsheet data fitting.

Please let me know.

Sung Yeol

I have a function related to some values and I want to include the value in the title.  So I initially try ...

sine:=(Amp,freq,phase,t)->Amp*sin(2*Pi*freq*t+phase):
plot(sine(1, 2, 0, t), t = 0 .. 1, title = cat(freq, " sine wave cycles"))

but once I use the value in the function it is not remembered, sort of like a subs operation.  A placeholder is the simplest way.

a:=2:
plot(sine(1, a, 0, t), t = 0 .. 1, title = cat(a, " sine wave cycles"))

Dear Experts,

I am in a process of trying the roots of a sextic polynomial.

Attached is the equation type  sixthorderpolynomial.mw  . I tried to do some simplification. But still not able to find the solution.   I tried to use Factor also. But no progress.

I am intended to get the solutoin for lambda variable and remaining are variables are constants.

Hello,
I try to solve ODE. The resolution should be possible since I have found an article from which the calculations were done with Matlab.Here, I try to solve my system of equations diffs with maple.