数学建模社区-数学中国

标题: mathematica里面有没有文本框啊 [打印本页]

---

作者: quqixun    时间: 2012-3-7 20:13
标题: mathematica里面有没有文本框啊
就是像vc，vs里得textbox那样的，可以自由输入文本的东西

---

作者: 陈殿邦    时间: 2012-3-8 13:22
请问下面这个程序什么地方有问题，谢谢！！！发不了贴，借用一下，
, A5 m4 V" L2 m9 M  r$ y! X( q/ P% MBeamElement[E1, I1, L] :=
$ H$ a. U) |( e" s8 u$ ^0 X. D  Module[{},
8 \9 U9 D! \( B; B2 `   y = E1*I1/(L^3)*{{12, 6*L, -12, 6*L}, {6*L, 4*L*L, -6*L,
       2*L*L}, {-12, -6*L, 12, -6*L}, {6*L, 2*L*L, -6*L, 4*L*L}}; y];
) n& u: l  A$ Q, R* y& w* r8 iBeamAssemble[p1,p2,m]:=Module[{f},
1 G$ A+ J; J4 d  Bf={p1,p2};
  for[j=1,j<=2,j++,for[k=1,k<=2,k++,
. e3 |& p; }' N) w; s/ p( A    GlobalK[[2f[[j]],2f[[k]]]]+=m[[2j,2k]];
    GlobalK[[2f[[j]]-1,2f[[k]]]]+=m[[2j-1,2k]];
9 D/ m; V0 i) Q5 P    GlobalK[[2f[[j]],2f[[k]]-1]]+=m[[2j,2k-1]];
5 b1 x: S& Y( L! {2 @, t5 x, w" p+ J7 }    GlobalK[[2f[[j]]-1,2f[[k]]-1]]+=m[[2j-1,2k-1]];]];
  GlobalK]
k1 = BeamElement[210*10^6, 60*10^(-6), 2];
k2 = BeamElement[210*10^6, 60*10^(-6), 2];
  E6 n; `% U3 V3 X/ iPrint["k1=", k1];
Print["k2=", k2];
GlobalK = 0 IdentityMatrix[2*3];
1 v: {+ O( g6 z2 _8 Q: J0 |6 ]BeamAssemble[1, 2, k1];
( S; K1 _7 k! g6 V: D( ~Print["GlobalK=", MatrixForm[GlobalK]];
BeamAssemble[2, 3, k2];
Print["GlobalK=", MatrixForm[GlobalK]];

---

作者: quqixun    时间: 2012-3-8 20:15

陈殿邦 发表于 2012-3-8 13:22
请问下面这个程序什么地方有问题，谢谢！！！发不了贴，借用一下，
- q. {. a% C9 p( aBeamElement[E1, I1, L]  ...

BeamElement[E1_, I1_, L_],应该都有下划线吧

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5