早教吧作业答案频道 -->其他-->
mathematica中为什么table不出结果Subscript[l,AB]=200;Subscript[l,BC]=500;Subscript[l,CD]=\800;Subscript[x,F]=400;Subscript[x,D]=350;Subscript[y,D]=\350;Subscript[\[Omega],1]=100;Subscript[x,A][t]=0;Subscript[y,A][t]=
题目详情
mathematica中为什么table不出结果
Subscript[l,AB] = 200; Subscript[l,BC] = 500; Subscript[l,CD] = \
800; Subscript[x,F] = 400; Subscript[x,D] = 350; Subscript[y,D] = \
350; Subscript[\[Omega],1] = 100;
Subscript[x,A][t_] = 0; Subscript[y,A][t_] = 0;
Subscript[\[Phi],1][t_] = Subscript[\[Omega],1] t;
Subscript[x,B][t_] =
Subscript[x,A][t] + Subscript[l,AB] Cos[Subscript[\[Phi],1][t]];
Subscript[y,B][t_] =
Subscript[y,B][t] + Subscript[l,AB] Sin[Subscript[\[Phi],1][t]];
Subscript[x,D][t_] = 750;
Subscript[y,D][t_] = 350; Subscript[A,0] =
2 Subscript[l,
BC] (Subscript[x,D][t] - Subscript[x,B][t]); Subscript[B,0] =
2 Subscript[l,BC] (Subscript[y,D][t] - Subscript[y,B][t]);
Subscript[C,0] =
Subscript[l,BC]^2 - Subscript[l,
CD]^2 + (Subscript[x,B][t] -
Subscript[x,D][t])^2 + (Subscript[y,B][t] -
Subscript[y,D][t])^2;
Subscript[\[Phi],BC][t_] =
2 ArcTan[(
Subscript[B,0] + Sqrt[
Subscript[A,0]^2 + Subscript[B,0]^2 - Subscript[C,0]^2])/(
Subscript[A,0] + Subscript[C,0])];
Subscript[x,C][t_] =
Subscript[x,B][t] + Subscript[l,BC] Cos[Subscript[\[Phi],BC][t]];
Subscript[y,C][t_] =
Subscript[y,B][t] + Subscript[l,BC] Sin[Subscript[\[Phi],BC][t]];
Subscript[\[Phi],CD][t_] =
ArcTan[(Subscript[y,C][t] - Subscript[y,D][t])/(
Subscript[x,C][t] - Subscript[x,D][t])];
Subscript[l,4] = 0; Subscript[l,EF] = 350;
Subscript[\[Phi],5][t_] = \[Pi]/2;
Subscript[x,K][t_] = 400; Subscript[y,K][t_] = 0;
Subscript[s,1] = (-Subscript[C,1] Sin[\[Pi]/2] -
Subscript[C,2]
Cos[\[Pi]/2])/Subscript[C,3]; Subscript[s,2] = (-Subscript[C,
1] Sin[Subscript[\[Phi],CD][t]] -
Subscript[C,2] Cos[Subscript[\[Phi],CD][t]])/Subscript[C,3];
Subscript[C,1] = -Subscript[x,K][t] + Subscript[x,C][t] -
Subscript[l,EF]
Sin[\[Pi]/2]; Subscript[C,2] = -Subscript[y,C][t] -
Subscript[l,EF] Cos[\[Pi]/2]; Subscript[C,3] =
Sin[\[Pi]/2] Cos[Subscript[\[Phi],CD][t]];
Subscript[x,E] =
Subscript[x,CD][t] + Subscript[s,1] Cos[Subscript[\[Phi],CD][t]];
Table[Subscript[x,E][\[Pi]/60.0 n],{n,0.0,12}]
Subscript[l,AB] = 200; Subscript[l,BC] = 500; Subscript[l,CD] = \
800; Subscript[x,F] = 400; Subscript[x,D] = 350; Subscript[y,D] = \
350; Subscript[\[Omega],1] = 100;
Subscript[x,A][t_] = 0; Subscript[y,A][t_] = 0;
Subscript[\[Phi],1][t_] = Subscript[\[Omega],1] t;
Subscript[x,B][t_] =
Subscript[x,A][t] + Subscript[l,AB] Cos[Subscript[\[Phi],1][t]];
Subscript[y,B][t_] =
Subscript[y,B][t] + Subscript[l,AB] Sin[Subscript[\[Phi],1][t]];
Subscript[x,D][t_] = 750;
Subscript[y,D][t_] = 350; Subscript[A,0] =
2 Subscript[l,
BC] (Subscript[x,D][t] - Subscript[x,B][t]); Subscript[B,0] =
2 Subscript[l,BC] (Subscript[y,D][t] - Subscript[y,B][t]);
Subscript[C,0] =
Subscript[l,BC]^2 - Subscript[l,
CD]^2 + (Subscript[x,B][t] -
Subscript[x,D][t])^2 + (Subscript[y,B][t] -
Subscript[y,D][t])^2;
Subscript[\[Phi],BC][t_] =
2 ArcTan[(
Subscript[B,0] + Sqrt[
Subscript[A,0]^2 + Subscript[B,0]^2 - Subscript[C,0]^2])/(
Subscript[A,0] + Subscript[C,0])];
Subscript[x,C][t_] =
Subscript[x,B][t] + Subscript[l,BC] Cos[Subscript[\[Phi],BC][t]];
Subscript[y,C][t_] =
Subscript[y,B][t] + Subscript[l,BC] Sin[Subscript[\[Phi],BC][t]];
Subscript[\[Phi],CD][t_] =
ArcTan[(Subscript[y,C][t] - Subscript[y,D][t])/(
Subscript[x,C][t] - Subscript[x,D][t])];
Subscript[l,4] = 0; Subscript[l,EF] = 350;
Subscript[\[Phi],5][t_] = \[Pi]/2;
Subscript[x,K][t_] = 400; Subscript[y,K][t_] = 0;
Subscript[s,1] = (-Subscript[C,1] Sin[\[Pi]/2] -
Subscript[C,2]
Cos[\[Pi]/2])/Subscript[C,3]; Subscript[s,2] = (-Subscript[C,
1] Sin[Subscript[\[Phi],CD][t]] -
Subscript[C,2] Cos[Subscript[\[Phi],CD][t]])/Subscript[C,3];
Subscript[C,1] = -Subscript[x,K][t] + Subscript[x,C][t] -
Subscript[l,EF]
Sin[\[Pi]/2]; Subscript[C,2] = -Subscript[y,C][t] -
Subscript[l,EF] Cos[\[Pi]/2]; Subscript[C,3] =
Sin[\[Pi]/2] Cos[Subscript[\[Phi],CD][t]];
Subscript[x,E] =
Subscript[x,CD][t] + Subscript[s,1] Cos[Subscript[\[Phi],CD][t]];
Table[Subscript[x,E][\[Pi]/60.0 n],{n,0.0,12}]
▼优质解答
答案和解析
前面Subscript[x, D]=350
Subscript[x,D]=750就这部分就出错了,整体更出错.
Subscript[x,D]=750就这部分就出错了,整体更出错.
看了 mathematica中为什...的网友还看了以下：
设X～N（μ，σ2），且EX=3，DX=1，φ0（x）为标准正态分布的分布函数，则P{-1≤X≤1 2020-04-06 …
{偶数}={x/x=2k.k∈Z}这个式子对不对,为什么?若K为0时X也为0.此时是不是偶数0∈Z 2020-04-09 …
设随机变量X与Y相互独立,且同分布与B(1,P)(0<P<1).另Z=1,若X+Y为偶数,Z=0, 2020-05-15 …
关于导数的问题已知f(0)=f'(0)=0;f''(0)=3;那么lim(x→0）f(x)/x^2 2020-06-03 …
（X+1)/(X-1),当x取何值时,分式有意义,答案是X≠0且X≠±1为什么,不是只有分母不为零 2020-06-29 …
关于x的方程x2-（a+2）x+a-2b=0的判别式为0且x=2为方程的根则a+b=?知道方法但算 2020-08-01 …
设随机变量X和Y相互独立,且P{X=1}=P{Y=1}=P>0,P{X=0}=P{Y=0}=1-P 2020-08-03 …
1.若不等式x-10>0或x+21或x+m0)不恒成立且若不等式x-m>1或x+m0)成立时不等式x 2020-12-07 …
使乘积xy没有最大值的一个充要条件是Ax²+y²为定值Bx＞0,y=0,且x+y为定值Cx＜0,y＜ 2020-12-31 …
请教数学高手问题怎么证明这个函数是可积分的f(x)=0当x不为有理数f(x)=1/q当x=p/qp, 2021-01-20 …