Group Abstract Group Abstract

Message Boards Message Boards

Plot a quartic expression with two variables?

Posted 7 years ago

Hi guys, new user here...trying to figure out what I'm missing here

The idea is to get a graph similar to this one

The idea is to get a graph similar to this one:

m = 10;
Jp = 2;
Jt = 1.2;
l = 0.2;
k12 = 0;
ka = 2.5*(10^6);
k11 = 2*ka;
k22 = (0.5^2 + 0.5^2)*ka;
Eqt = \[Omega]^4 - \[Omega]^3*\[CapitalOmega]*(Jp/
      Jt) - \[Omega]^2 ((k11/m) + (k22/
        Jt)) + \[Omega]*\[CapitalOmega]*((k11*Jp)/(m*Jt)) + ((k11*
        k22 - k12^2)/(m*Jt)) == 0
Plot[Eqt, {\[Omega], -1000, 1500}, {\[CapitalOmega], 0, 1500}]

The Eqt term is the quartic equation and there is two variables ? and ? (abscissae). I could only plot3d it... any suggestions to plot like the graph above.

cheers,

4 Replies

Hi guys, I appreciate the feedback. I could figure it out by solving the equation...

Eqt = \[Omega]^4 - \[Omega]^3*\[CapitalOmega]*(Jp/
       Jt) - \[Omega]^2 ((k11/m) + (k22/
         Jt)) + \[Omega]*\[CapitalOmega]*((k11*Jp)/(m*Jt)) + ((k11*
         k22 - k12^2)/(m*Jt)) == 0;
Es = \[Omega] /. Solve[Eqt, \[Omega]]
Plot[Es, {\[CapitalOmega], 0, 1500}]

Thanks, again

POSTED BY: Frank Kampas

You can use ContourPlot:

ContourPlot[Evaluate[Eqt],
 {\[Omega], -1000, 1500}, {\[CapitalOmega], -4000, 4000}]
POSTED BY: Gianluca Gorni

I think you need to solve Eqt

POSTED BY: Frank Kampas
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard