这是一个物理题,这里的m0是绳重,l是绳长,t和x都是关于l的函数。我是想画一条f与l的关系曲线图,原计划l是无穷长的,但是因为公式计算里有m0的需要因此还是给出了确定的数值。
\[Lambda] = 0.031; Subscript[m, 1] = 4; Subscript[m, 2] = 2; m = 1; \
\[Mu] = 0.5; c = 1; Subscript[c, 2] = 1000; Subscript[m, 0] = \
61.9845; g = 9.8;
t = ((\[Lambda]*(Subscript[c, 2] - l) + Subscript[m, 2])*(m -
2*\[Lambda]*(c - 2*l) + 2*Subscript[m, 0] +
4*Subscript[m, 1]))/(m + 2*Subscript[m, 0] +
2*Subscript[m, 1] + 2*Subscript[m, 2]);
x = (Subscript[m, 1] - Subscript[m, 2] - c*\[Lambda])/(
1/2*m + Subscript[m, 0] + Subscript[m, 1] + Subscript[m, 2])*g*
l + (\[Lambda]*l*l)/(
1/2*m + Subscript[m, 0] + Subscript[m, 1] + Subscript[m, 2])*g;
equs1 = {f == t*E^(\[Mu]*\[Pi]) - x*\[Lambda]};
s = Solve[equs1, f, {l, 0, 800}];
Labeled[Show[
Plot[{Evaluate[f[l] /. s]}, {l, 0, 800}, PlotStyle -> {Black}],
AxesLabel -> {"l",
"\!\(\*FractionBox[SubscriptBox[\"F\", \"n\"], \"d\[Theta]\"]\)"},
AspectRatio -> 0.5, Frame -> True], 3]
\[Lambda] = 0.031; Subscript[m, 1] = 4; Subscript[m, 2] = 2; m = 1; \
\[Mu] = 0.5; c = 1; Subscript[c, 2] = 1000; Subscript[m, 0] = \
61.9845; g = 9.8;
t = ((\[Lambda]*(Subscript[c, 2] - l) + Subscript[m, 2])*(m -
2*\[Lambda]*(c - 2*l) + 2*Subscript[m, 0] +
4*Subscript[m, 1]))/(m + 2*Subscript[m, 0] +
2*Subscript[m, 1] + 2*Subscript[m, 2]);
x = (Subscript[m, 1] - Subscript[m, 2] - c*\[Lambda])/(
1/2*m + Subscript[m, 0] + Subscript[m, 1] + Subscript[m, 2])*g*
l + (\[Lambda]*l*l)/(
1/2*m + Subscript[m, 0] + Subscript[m, 1] + Subscript[m, 2])*g;
equs1 = {f == t*E^(\[Mu]*\[Pi]) - x*\[Lambda]};
s = Solve[equs1, f, {l, 0, 800}];
Labeled[Show[
Plot[{Evaluate[f[l] /. s]}, {l, 0, 800}, PlotStyle -> {Black}],
AxesLabel -> {"l",
"\!\(\*FractionBox[SubscriptBox[\"F\", \"n\"], \"d\[Theta]\"]\)"},
AspectRatio -> 0.5, Frame -> True], 3]
