mathematica 为什么我总是输出变量的符号比如我要输出前面求解出来的a,结果输出的是a这个符号,而不是他的数值.代码是这个Clear["Global`*"];m = Array[0,{3,4}];l1 := 1000;l2 := 1030;l3 := 330;r1 := 200;r2 := 950;r3 := 160;r4 := 310;r5 := 540;r30 := 920;o30 := 100 Degree;o1 := 4.36073;i := 0;b2 = Pi*5/6;b3 = Pi/6;b4 = Pi/2;b5 = Pi/3;For[i = 0,i o1 = o1 + 2*Pi/100*i;Print[FindRoot[{-r1*Cos[(o1)] - r2*Cos[(o2)] == l2 - r4*Cos[(o4)] - r3*Cos[(o3)],l3 + r1*Sin[(o1)] + r2*Sin[(o2)] == r4*Sin[(o4)] + r3*Sin[(o3)],-

mathematica 为什么我总是输出变量的符号
比如我要输出前面求解出来的a,结果输出的是a这个符号,而不是他的数值.
代码是这个
Clear["Global`*"];
m = Array[0,{3,4}];
l1 := 1000;
l2 := 1030;
l3 := 330;
r1 := 200;
r2 := 950;
r3 := 160;
r4 := 310;
r5 := 540;
r30 := 920;
o30 := 100 Degree;
o1 := 4.36073;
i := 0;
b2 = Pi*5/6;
b3 = Pi/6;
b4 = Pi/2;
b5 = Pi/3;
For[i = 0,i o1 = o1 + 2*Pi/100*i;
Print[FindRoot[{-r1*Cos[(o1)] - r2*Cos[(o2)] ==
l2 - r4*Cos[(o4)] - r3*Cos[(o3)],
l3 + r1*Sin[(o1)] + r2*Sin[(o2)] ==
r4*Sin[(o4)] + r3*Sin[(o3)],-r4*Cos[(o4)] -
r30*Cos[((o3 + o30))] == l1 - r5*Cos[(o5)],
r4*Sin[(o4)] + r30*Sin[((o3 + o30))] == r5*Sin[(o5)]},{{o2,
b2},{o3,b3},{o4,b4},{o5,b5}}]];
m[[i + 1,1]] = o2;
m[[i + 1,2]] = o3;
m[[i + 1,3]] = o4;
m[[i + 1,4]] = o5;
b2 -> o2;
b3 -> o3;
b4 -> o4;
b5 -> o5];
m // MatrixForm
最后矩阵的输出为
{{o2,o3,o4,o5},{o2,o3,o4,o5},{o2,o3,o4,o5}}