Skip to main content
6 events
when toggle format what by license comment
Oct 11, 2018 at 18:32 vote accept kowalski
Oct 11, 2018 at 8:22 answer added b.gates.you.know.what timeline score: 2
Oct 11, 2018 at 1:12 comment added Bill I can't be certain about the instability, but Plot3D[f1, {ω, -100, 100}, {g1, 0, 150}, PlotRange -> {0, 10}] seems to show that your expressions appear to blow up for certain values of g1 and ω. I'm guessing that is because of your large complicated denominators going to zero. Simplify[Solve[ Denominator[Simplify[f1]] == 0, {ω, g1}]] might give you some hints about why that is happening.
Oct 11, 2018 at 0:53 comment added kowalski @Bill Thanks for the help. I still need to show both curves to be starting from the same value smoothly in the Log plot. Any ideas?
Oct 10, 2018 at 22:20 comment added Bill I notice I can change the position of the "kink" at the right end of your graphs by changing your {ω, -100, 100} to {ω, -80, 80} or to {ω, -140, 140}. There are some warnings about convergence, but the "kink" appears to track that ω bound exactly. Maybe this is enough of a hint to figure out why the "kink" is there.
Oct 10, 2018 at 21:40 history asked kowalski CC BY-SA 4.0