mathematica 为什么我总是输出变量的符号
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/19 09:16:59
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 < 3,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}}
比如我要输出前面求解出来的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 < 3,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}}
你把代码发上来吧,我帮你看看
解方程的话,前面求解出来的是规则的形式么,譬如{a->5}
你需要a/.{a->5}才行啊
再问: 代码发上来了,这里输入不下所以发在问题里面了。。可能是你说的那个问题,帮我看一下吧~~thx
再答: For[i = 0, i < 3, i++, o1 = o1 + 2*Pi/100*i; Print[t = 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]], m[[i + 1, 2]], m[[i + 1, 3]], m[[i + 1, 4]]} = {b2, b3, b4, b5} = {o2, o3, o4, o5} /. t;] 不知道和你的意思么,一个i循环将方程的解赋给初始搜索点b2,。。。和矩阵m的行
解方程的话,前面求解出来的是规则的形式么,譬如{a->5}
你需要a/.{a->5}才行啊
再问: 代码发上来了,这里输入不下所以发在问题里面了。。可能是你说的那个问题,帮我看一下吧~~thx
再答: For[i = 0, i < 3, i++, o1 = o1 + 2*Pi/100*i; Print[t = 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]], m[[i + 1, 2]], m[[i + 1, 3]], m[[i + 1, 4]]} = {b2, b3, b4, b5} = {o2, o3, o4, o5} /. t;] 不知道和你的意思么,一个i循环将方程的解赋给初始搜索点b2,。。。和矩阵m的行
mathematica 为什么我总是输出变量的符号
mathematica解符号变量方程
我下的mathematica 5.0为什么符号打出来是乱码?其他的基本正常!为什么?
mathematica输出文件的问题
Mathematica 9.0 如何清除所有的变量
为什么总是输出“葺葺葺”?
mathematica画出的图形如何输出?
为什么MATLAB中符号变量的使用会出错
mathematica中求和我用palettes里的求和符号可以算,为什么自己手打就不行?手打按键见补充
mathematica中,如何求一个方阵(内含变量k)的特征值?我的命令f[k_]:=Eigenvalues[],为何有
将 我为什么总是忘不了你 设计成繁体字签名,要带符号的
无符号变量和有符号变量的区别