Advanced Search

Question: How to plot3d of nonlinear couples eqs

Question:How to plot3d of nonlinear couples eqs

adel-00 135 Maple
plot3d
December 04 2020
0

Here is my code:

 

t := 6*Pi; lambda := .1; N := 5; M := sqrt(N(N+1))*exp(I*phi); omegap := 1

eq1:=-2*(n(phi,delta)-N)+(u(phi,delta)-M)*exp(-2*I*omegap*t/lambda)+((z(phi,delta)-conjugate(M))*exp(2*I*omegap*t/lambda)):
eq2:=-2*(1-I*delta)*u(phi,delta)+2*(n(phi,delta)-N)*exp(2*I*omegap*t/lambda)+2*M:
eq3:=-2*(1+I*delta)*z(phi,delta)+2*(n(phi,delta)-N)*exp(-2*I*omegap*t/lambda)+2*conjugate(M):
convert(eq1, rational); convert(eq2, rational); convert(eq3, rational);

f1:=evalc(eq1);f1:=evalc(eq2):f3:=evalc(eq3)
f1 := solve{f1, f2, f3};
with(plots); Impliciplot3([n(phi,delta)], delta = -10 .. 10, phi = 0 .. 2*Pi);

 
Please Wait...