早教吧作业答案频道 -->其他-->
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中为什...的网友还看了以下：
设一棵完全二叉树共有699个结点,则在该二叉树中的叶子结点数为：A 349 B 350 C 255 2020-05-17 …
基础图中h=350表示什么意思 2020-05-22 …
假设沪深300股指期货的保证金为7%,合约乘数为350,那么当沪深300指数为1250点时,投资者交 2020-06-04 …
mathematica中为什么table不出结果Subscript[l,AB]=200;Subsc 2020-06-07 …
有学生1050人,其中600人订阅《语文报》,450人你订阅《数学报》,有210人订阅《科技报》, 2020-06-13 …
如果AXB＝350,那么：AX2B＝（3AXB＝（如果AXB＝350,那么：AX2B＝（3AXB＝ 2020-07-09 …
如果AxB＝350那么AxB＝3AxB＝5Ax2B＝Ax（B÷如果AxB＝350那么AxB＝3Ax 2020-07-09 …
四个连续自然数的和等于350,那么这四个数中最小一个数是多少?.. 2020-07-09 …
H钢中H350*350/280*12*16/12要怎么算它的重要 2020-07-09 …
1有三个连续的自然数,它们的和是183,这三个数分别是多少?2.五个连续自然数的和是350,那么其中 2020-11-17 …