level 1
图森破图乃提夫
楼主
输入:P = 1000; B = 3; v = 10; \[Lambda]0 = 10;
R = Sqrt[8000*P/(1.225*v^3*Pi*0.35*0.9)]/2;
w = \[Lambda]0*v/R;
cl = 1.5; \[Alpha] = Pi*6.5/180;
r = i*R/10; \[Lambda] = w*r/v;
\[Phi] = ArcTan[(1 - a)*v/(1 + b)/w/r];
F = 2/Pi*ArcCos[E^(-B*(R - r)/2/R/Sin[\[Phi]])]; a0 = \[Lambda]0/
2000 + 0.027*\[Lambda]0 - 0.038;
b0 = 10/\[Lambda]0*E^(-12*r/R);
FindMaximum[{2* (1 - a) *b *F *\[Lambda]0^2,
a*(1 - a*F) == b*(1 + b)*\[Lambda]^2}, {{a, a0}, {b, b0}}]
输出:{0.34968, {a -> 0.357479, b -> 0.0029487}}
图片格式:

Q:如何分别取出极大值,a与b的极限作为后续计算的输入?求助大手子!
2016年02月26日 08点02分
1
R = Sqrt[8000*P/(1.225*v^3*Pi*0.35*0.9)]/2;
w = \[Lambda]0*v/R;
cl = 1.5; \[Alpha] = Pi*6.5/180;
r = i*R/10; \[Lambda] = w*r/v;
\[Phi] = ArcTan[(1 - a)*v/(1 + b)/w/r];
F = 2/Pi*ArcCos[E^(-B*(R - r)/2/R/Sin[\[Phi]])]; a0 = \[Lambda]0/
2000 + 0.027*\[Lambda]0 - 0.038;
b0 = 10/\[Lambda]0*E^(-12*r/R);
FindMaximum[{2* (1 - a) *b *F *\[Lambda]0^2,
a*(1 - a*F) == b*(1 + b)*\[Lambda]^2}, {{a, a0}, {b, b0}}]
输出:{0.34968, {a -> 0.357479, b -> 0.0029487}}
图片格式:

Q:如何分别取出极大值,a与b的极限作为后续计算的输入?求助大手子!