level 2
TheredArcher
楼主
程序如下：
\[Gamma] = 4;
\[Xi] = 0.1;
F = 0.1;
eqn = Simplify[Eliminate[
{(A^2*\[Xi]^2*\[Omega]^2)/F^2 +
(A^2*(3*A^2*\[Gamma] -
4*\[Omega]^2)^2)/
(16*F^2) == 1,
T = Sqrt[(A*\[Xi]*\[Omega])^2 +
(3/4)*\[Gamma]*A^3]/F}, A]]
ContourPlot[Evaluate[eqn],
{\[Omega], -1, 10}, {T, -80, 60}]
----------------------------------------------------------------------
问题出在求解后会显示不是一个格式良好的方程，导致画不出图像。
思路是利用（1.1）A与Omega的关系式，将其与（1.2）联立，消去A，就能求出T和Omega的关系，借此绘制图像, 但是不知道该如何解决这个带入方程的问题，求助求助。
2021年10月10日 11点10分
1
\[Gamma] = 4;
\[Xi] = 0.1;
F = 0.1;
eqn = Simplify[Eliminate[
{(A^2*\[Xi]^2*\[Omega]^2)/F^2 +
(A^2*(3*A^2*\[Gamma] -
4*\[Omega]^2)^2)/
(16*F^2) == 1,
T = Sqrt[(A*\[Xi]*\[Omega])^2 +
(3/4)*\[Gamma]*A^3]/F}, A]]
ContourPlot[Evaluate[eqn],
{\[Omega], -1, 10}, {T, -80, 60}]
----------------------------------------------------------------------
问题出在求解后会显示不是一个格式良好的方程，导致画不出图像。
思路是利用（1.1）A与Omega的关系式，将其与（1.2）联立，消去A，就能求出T和Omega的关系，借此绘制图像, 但是不知道该如何解决这个带入方程的问题，求助求助。
