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]=

Question

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}]

Answer 1

前面Subscript[x, D]=350
Subscript[x,D]=750就这部分就出错了,整体更出错.