1stOpt到时很容易:
LoopConstant x=[0:4:400];
PlotLoopData x[x], p;
Function
p=atan((10*y+2.4448e-04*y)/(-y*(x-101.4)/0.1+3*(6.2723e+07)*(y^3)/(8*101.4)+y*(101.4^2)/(2*(101.4^2+25))));
(10*y+2.4448e-04*y)^2+(-y*(x-101.4)/0.1+3*(6.2723e+07)*(y^3)/(8*101.4)+y*(101.4^2)/(2*(101.4^2+25)))^2-(1/1.2168)^2=0;复制代码
x p y
0 0.00985552786023858 -0.000809921710711804
4 0.0102598400826874 -0.000843146717818712
8 0.0106987239138185 0.00087921254628337
12 0.011176807581214 0.000918499477432335
16 0.0116995829938382 0.00096145875006728
20 0.0122736167261082 -0.00100862989192157
24 0.0129068258882331 -0.00106066338033078
28 0.0136088433530277 0.0011183506414601
32 0.0143915079159072 0.00118266430918417
36 0.0152695320547824 -0.00125481306749973
40 0.0162614268159031 -0.00133631760471953
44 0.0173908065552826 0.00142911775286763
48 0.0186882675523692 -0.00153572673416091
52 0.0201941554820643 0.00165945835850989
56 0.021962748435729 0.00180477037494142
60 0.0240687654090537 -0.00197779859082409
64 0.0266178297768411 0.002187