digerdiga

385 Reputation

8 Badges

12 years, 152 days

MaplePrimes Activity


These are replies submitted by digerdiga

Though Prebens Answer does work. This is simple and easy to handle^^

thx

Maybe some last question. If p ist not a constant but rather a function V(x) then this procedure does not account for the non-commutivity of Dx and V(x).

@Carl Love Sorry my fault. I reinstalled maple recently and thought I have the newest version. But it's only 17.01. I just installed 17.02 and indeed the bug is gone. So sorry for the confusion.

If it's of any help: I'm using Maple 17.02 64 Bit Running on Windows 7 Home

mapleprimessimplif.mw

assume(lambda > 0, x_0, 'real', h > 0, p > 0, t > 0, m > 0)

N := (lambda/(Pi*h))^(1/4)

(lambda/(Pi*h))^(1/4)

(1)

psi := Physics:-`*`(Physics:-`*`(N, exp(Physics:-`*`(Physics:-`*`(Physics:-`*`(I, p), x), 1/h))), exp(-Physics:-`*`(Physics:-`*`(lambda, 1/Physics:-`*`(2, h)), (x-x_0)^2)))

(lambda/(Pi*h))^(1/4)*exp(I*p*x/h)*exp(-(1/2)*lambda*(x-x_0)^2/h)

(2)

with(Physics):

Intc(psi*exp(-I*k*x), x)

Int((lambda/(Pi*h))^(1/4)*exp(I*p*x/h)*exp(-(1/2)*lambda*(x-x_0)^2/h)*exp(-I*k*x), x = -infinity .. infinity)

(3)

Fpsi := simplify(value(%))

exp(((1/2)*I)*(h*k-p)*(I*k*h-I*p-2*lambda*x_0)/(h*lambda))*h^(1/4)*Pi^(1/4)*2^(1/2)/lambda^(1/4)

(4)

Physics:-`*`(1/Physics:-`*`(2, Pi), Intc(Physics:-`*`(Physics:-`*`(Fpsi, exp(Physics:-`*`(Physics:-`*`(I, k), x))), exp(-Physics:-`*`(Physics:-`*`(Physics:-`*`(Physics:-`*`(I, h), k^2), 1/Physics:-`*`(2, m)), t))), k))

(1/2)*(Int(exp(((1/2)*I)*(h*k-p)*(I*k*h-I*p-2*lambda*x_0)/(h*lambda))*h^(1/4)*Pi^(1/4)*2^(1/2)*exp(I*k*x)*exp(-((1/2)*I)*h*k^2*t/m)/lambda^(1/4), k = -infinity .. infinity))/Pi

(5)

psit := simplify(value(%))

exp(((1/2)*I)*(I*lambda*m*x^2-(2*I)*lambda*m*x*x_0+I*lambda*m*x_0^2+(2*I)*lambda*p*t*x_0+2*m*p*x-p^2*t)/(h*(I*t*lambda+m)))*lambda^(1/4)*m^(1/2)/(Pi^(1/4)*h^(1/4)*(I*t*lambda+m)^(1/2))

(6)

Intc(Physics:-`*`(conjugate(psit), psit), x)

Int(lambda^(1/2)*m*conjugate(exp(((1/2)*I)*(I*lambda*m*x^2-(2*I)*lambda*m*x*x_0+I*lambda*m*x_0^2+(2*I)*lambda*p*t*x_0+2*m*p*x-p^2*t)/(h*(I*t*lambda+m)))/(I*t*lambda+m)^(1/2))*exp(((1/2)*I)*(I*lambda*m*x^2-(2*I)*lambda*m*x*x_0+I*lambda*m*x_0^2+(2*I)*lambda*p*t*x_0+2*m*p*x-p^2*t)/(h*(I*t*lambda+m)))/(Pi^(1/2)*h^(1/2)*(I*t*lambda+m)^(1/2)), x = -infinity .. infinity)

(7)

eq := value(%)

conjugate(1/(I*t*lambda+m)^(1/2))*(lambda^2*t^2+m^2)^(1/2)/(I*t*lambda+m)^(1/2)

(8)

radnormal(eq)

(lambda^2*t^2+m^2)^(1/2)/(conjugate((I*t*lambda+m)^(1/2))*(I*t*lambda+m)^(1/2))

(9)

simplify(eq)

conjugate(1/(I*t*lambda+m)^(1/2))*(lambda^2*t^2+m^2)^(1/2)/(I*t*lambda+m)^(1/2)

(10)

combine(eq, radical)

conjugate(1/(I*t*lambda+m)^(1/2))/((I*t*lambda+m)/(lambda^2*t^2+m^2))^(1/2)

(11)

evalc(eq)

((1/4)*(2*(lambda^2*t^2+m^2)^(1/2)+2*m)/(lambda^2*t^2+m^2)+(1/4)*(2*(lambda^2*t^2+m^2)^(1/2)-2*m)/(lambda^2*t^2+m^2))*(lambda^2*t^2+m^2)^(1/2)

(12)

combine(evalc(eq), radical)

((1/4)*(2*(lambda^2*t^2+m^2)^(1/2)+2*m)/(lambda^2*t^2+m^2)+(1/4)*(2*(lambda^2*t^2+m^2)^(1/2)-2*m)/(lambda^2*t^2+m^2))*(lambda^2*t^2+m^2)^(1/2)

(13)

radnormal(evalc(eq))

1

(14)

simplify(evalc(eq))

1

(15)

``



Download mapleprimessimplif.mw

@digerdiga 

@Carl Love 

Ok this is not really what I want. Maybe it's not possible but I try again.

restart;

f(x):=exp(-x^(2))

(((D-2)^2)(f))(x)

gives:

(-2*x*exp(-x^2)-2)^3

But I dont want the function f(x) to be pulled into the parenthesis.

In fact I want

(D^(2)-4*D+4)(f)(x)=D^(2)(f)(x)-4*D(f)(x)+4*f

@Carl Love 

Ok this is not really what I want. Maybe it's not possible but I try again.

restart;

f(x):=exp(-x^(2))

(((D-2)^2)(f))(x)

gives:

(-2*x*exp(-x^2)-2)^3

But I dont want the function f(x) to be pulled into the parenthesis.

In fact I want

(D^(2)-4*D+4)(f)(x)=D^(2)(f)(x)-4*D(f)(x)+4*f

Sorry, I apparently missed that one :-/

Sorry, I apparently missed that one :-/

you mean constants applied as function would be

2(x)=2

Now I have for example (D-p)^3(sin)(x) then the result is

(cos(x)-(p(sin))(x))^3

so obviously maple doesnt treat p as a constant. How can I let maple know that the variable p is a constant?

you mean constants applied as function would be

2(x)=2

Now I have for example (D-p)^3(sin)(x) then the result is

(cos(x)-(p(sin))(x))^3

so obviously maple doesnt treat p as a constant. How can I let maple know that the variable p is a constant?

lol^^

Thank you very much.

Either does the job. I think simplify/siderels is most convenient since its easy to remember, because one uses simplify all the time anyway. 

lol^^

Thank you very much.

Either does the job. I think simplify/siderels is most convenient since its easy to remember, because one uses simplify all the time anyway. 

Yeah but when the curve is more complex in terms of one cannot solve for the Re/Im parts I'd like to plot it implicitly.

say for example.

x^5+y^5+x+y=1

I'd like to plot this equation via implicitplots3d.

Isn't this possible?

@AxelVogt: What do you mean I missed to assign?

Could you explain with an example?

Yeah but when the curve is more complex in terms of one cannot solve for the Re/Im parts I'd like to plot it implicitly.

say for example.

x^5+y^5+x+y=1

I'd like to plot this equation via implicitplots3d.

Isn't this possible?

@AxelVogt: What do you mean I missed to assign?

Could you explain with an example?

Now what I did is:

E := (1/2)*(1/rho1^2+1/rho1^2)-1/sqrt(z1^2+rho1^2)-1/sqrt((R-z1)^2+rho1^2)-1/sqrt(z1^2+rho1^2)-1/sqrt((R-z1)^2+rho1^2)+1/R+1/sqrt((2*rho1)^2+(R-2*z1)^2)

Er1 := diff(E, rho1) = 0

Ez1 := diff(E, z1) = 0

sol := proc (r) options operator, arrow; fsolve(eval({Er1, Ez1}, R = r), {z1 = -1 .. 3, rho1 = 0 .. 3}) end proc

sol(.5)

solE := proc (s) options operator, arrow; eval(E, {op(1, sol(s)), op(2, sol(s)), R = s}) end proc

solE(.5)

plot(proc (s) options operator, arrow; solE(s) end proc, 0 .. 5, view = -.5 .. -1.2)

For me at 2.3/2.4 the plot is not continuous.

I think this is due to the fsolve command mixing up different solutions.

There is one solution which behaves like shown there in the plot for large s but also which continues less steep

e.g. if I specify rho1=0..1.02 you see the continuous function.

But how can I select the solution whose behaviour for large s you see when increasing the search bound. e.g. rho1=0..3

First 13 14 15 16 17 18 19 Page 15 of 19