Hi,

I have a complex quantity in mod-arg form,

psi:= (alpha_0(t) + epsilon*alpha_1(r,t))*exp(I*(phi_0(r,t) + epsilon*phi_1(r,t))/nu),

to which I'm applying an operator

delsq:=x-> d^2/dr^2 x+ 2/r d/dr x .

View 5057_Simplification 1.mw on MapleNet or Download 5057_Simplification 1.mw
View file details

for example
a:=[1,2,3,4,5]
b:=[5,4,3,2,1,0]
c:=[1,2]

a+b+c
Error adding lists of different length

Is it necessary to create new lists padded with zeros to make it work?

 

 

Hi everyone...

I'm a bit stuck trying to rearrange an equation using Maple... I don't know what command I need to put in, and I've tried searching to no avail...

Basically I need to rearrange this equation to get 't':

E.q = m.x / (t^2)

and I want:

t = sqrt (m.x / E.q)

What command should I use please?

Thanks for the help!

mathsgeek

Basically, as part of a project we are to use a triangle, reflect the triangle and make it different colours. However I have come across this procedure and REALLY do not understand what it is doing and was wondering if anyone was able to simplify the section in bold in any way!

 

 

If I have an inequality b*(b-4)<-4a

 

is there a way in Maple to find a and b for which inequality holds?

 

 

Hi,
I want to shift  the first two elementsof a list to the end and this is what i've coded i have to run the proc twice. Is there a simpler way of doing this??? for example

L:=[1,2,3,4,5]  => [3,4,5,1,2]

switch2:=proc(N)
local y,li:
li:=N:
for y from 1 to nops(li)-1 do
(li[y],li[y+1]):=(li[y+1],li[y])
od:
li;
end proc:

Is there another simpler way of doing this aswell??

L:=[1,2,3,4,5] => [2,1,4,5,3]

switch:=proc(odd)

Hi everyone,

how do I turn off the black brackets at the beginning of each line in 1-D maple math input? i.e. instead of "[>" only ">" at the beginning of each line?

 

thanks.

 

> eqn1 := diff(e(z)^2, z) = ((3/2)*e(z)^2-3*(v[0]*exp(-u*f(z)))^2/(2*(e(z)^2-O*(1+z)^(3*g)))+(1/2)*((g-1)*3)*O*(1+z)^(3*g))/(2*(1+z));
> eqn2 := diff(f(z), z) = sqrt(abs(1-(v[0]*exp(-u*f(z)))^2/(e(z)^2-O*(1+z)^(3*g))^2))/(e(z)*(1+z));
>
> eqn3 := subs(O = .27, g = 1, v[0] = .1, u = 0.5e-2, eqn1);
> eqn4 := subs(O = .27, g = 1, v[0] = .1, u = 0.5e-2, eqn2);
>
> sol1 := dsolve([eqn3, eqn4, f(0) = 1, e(0) = 1], numeric, maxfun = 1000000000);
> plots[odeplot](sol1, [[z, e(z), color = red]], 0 .. 2);

How do I do a translation or a rotation of an equilateral triangle?

I have done the following so far in maple

equitriangle:=[ [0,0], [1,0], [0.5,sqrt(3)/2] ;
D0:=display ( polygon (equitriangle, linestyle=solid, thickness=5, color=COLOR(RGB,0,1,1)), scaling=CONSTRAINED,axes=NONE);
display(D0);

What do I do next to find a translation or rotation?

Thanks.

 

I have written a loop (for i from 0 to 25 do evalf(eval(eq2, t = i)) end do). This gives me a list of values n(0) = 10 to n(25) = 0.90....

I want to plot these values n(t) against t. Is there a better way to do this than to type the values individually.

Hope that made sence.

Thanks.

 

 

Im sure this is very easy but im new to maple and am having some problems.

I've stored a differential equation eq1:= diff(n(t),t) + s*n(t) = 0;

I want for t=0, n(0)=N=10, how do i input that so that dsolve(eq1); will give me the answer n(t)=10e^(-0.1t).

Also once that dsolve is done and saved as eq2 is there a way i can write it so that i can put for example eq2(5); which will give me n for t=5.

Thanks so much.

I'm trying to make a FFT from a 2s long input file by using the obsolete FFT-procedure, but strange thing is: No matter what first argument they receive (3, 2, 1, 0 even!) the result is always the same; even more strange is: Writing out the signal after the FFT it's exactly the same as before as if the FFT never would've happened.
What am I doing wrong?

Where Re(M) seems to work fine, Im(M) does not
I already found out which procedures to use instead: Re~(M) and Im~(M).
But still, it looks like

Re(M)=Re~(M)

am I right, or what's the difference between those two?
BTW, I didn't find a page about Re~/Im~ and was wondering..

I've solved a PDE with pdsolve, I can get the value of u(x,t) at a certain x and a certain t with the value command, K := pds:-value(x = 1-b, t = 0 .. 1, output = listprocedure) leads to; [100.*(x(0) = .99), 100.*(t(0) = 0.), 100.*((u(x, t))(0) = 2.40908278321669992*10^(-93))] id like to get the u(x,t) value out to put it in a function, is there a simple way of doing this? Thanks, Ryan