2
$\begingroup$

I am trying to plot the parametric plot between P1 and Q1. For this, I am using the code written below. I don't know where I am doing wrong. I think there are imaginary terms creating problems but is there any way to resolve this so that I can get the plot.

E1 = 10;
E2 = 10;
E1 = 1;
E2 = 1;
E0 = 1;
del0 = 1;
ka = 0.1;
G0 = 1;
wm = 1;
ome = 1;
gma = 0.01;
g0 = 0.3;
A00 = E0/(ka + I*del0);
a00 = E0/(ka - I*del0);
A10 = E1/(ka + I*(del0 + ome));
A11 = E1/(ka + I*(del0 + ome));
q1 = wm*a00*A10/(wm^2 - ome^2 + I*gma*ome);
p1 = I*ome*q1/wm;
sol = NSolve[{Q1[t] - q1*Exp[I*ome*t]*G0 == 0, P1[t] - p1*Exp[I*ome*t]*G0 == 0, 
   A1[t] - A10*Exp[I*ome*t] - A11*Exp[I*ome*t]*G0 == 0}, {Q1, P1, A1}]
ParametricPlot[{Evaluate[Q1[t]], Evaluate[P1[t]]} /. sol, {t, 0, 50}]
$\endgroup$
3
  • 4
    $\begingroup$ You’re using Evaluate incorrectly. ParametricPlot[Evaluate[{...} /. Sol],...] $\endgroup$
    – Michael E2
    Commented May 10, 2020 at 11:06
  • 1
    $\begingroup$ The solutions Q1,P1,A1 are complex. You can plot only real or imaginary part. $\endgroup$
    – Akku14
    Commented May 10, 2020 at 11:14
  • 1
    $\begingroup$ What's the purpose of the first four lines? Couldn't it be accomplished in just two? $\endgroup$
    – Michael E2
    Commented May 10, 2020 at 14:16

0

Browse other questions tagged or ask your own question.