数学建模社区-数学中国

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

作者: quqixun    时间: 2012-3-7 20:13
标题: mathematica里面有没有文本框啊
就是像vc,vs里得textbox那样的,可以自由输入文本的东西
作者: 陈殿邦    时间: 2012-3-8 13:22
请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,5 E* Z. J* ?- r; K0 L! K  o
BeamElement[E1, I1, L] := 4 A) X) Q+ x. [) m) W9 |8 r) S" ^
  Module[{},
( B/ P* `  V0 W) z3 Y" {   y = E1*I1/(L^3)*{{12, 6*L, -12, 6*L}, {6*L, 4*L*L, -6*L,
2 V* }+ u% r2 H5 ?5 A3 a  ?5 q       2*L*L}, {-12, -6*L, 12, -6*L}, {6*L, 2*L*L, -6*L, 4*L*L}}; y];
- X# y3 o1 f; @# E3 LBeamAssemble[p1,p2,m]:=Module[{f},
( j  s$ D; }. g! C* s6 I; _f={p1,p2};
2 L5 N5 B$ G: @  Z* B- c9 n- s  for[j=1,j<=2,j++,for[k=1,k<=2,k++,
, y5 C" g( p" n+ H+ ]* N    GlobalK[[2f[[j]],2f[[k]]]]+=m[[2j,2k]];3 {4 X2 X, g8 i2 D1 L
    GlobalK[[2f[[j]]-1,2f[[k]]]]+=m[[2j-1,2k]];0 o. k% Y- R( \1 l
    GlobalK[[2f[[j]],2f[[k]]-1]]+=m[[2j,2k-1]];% }* f" b/ E  W, W9 I8 X* z) a, E; o
    GlobalK[[2f[[j]]-1,2f[[k]]-1]]+=m[[2j-1,2k-1]];]];
% J$ g7 {3 q8 j! w2 ~8 y' A4 P1 w  GlobalK]2 {: L1 ]+ |+ P, b4 i( j
k1 = BeamElement[210*10^6, 60*10^(-6), 2];2 F" h4 S0 _, F' A4 W; q
k2 = BeamElement[210*10^6, 60*10^(-6), 2];
5 q' i" n1 J! I; S$ \/ I4 A6 NPrint["k1=", k1];% C! A5 K  {9 y
Print["k2=", k2];
8 f3 H" o- r) _GlobalK = 0 IdentityMatrix[2*3];1 h/ D1 S3 C/ }( P. z
BeamAssemble[1, 2, k1];
" l/ A& c0 A9 X  {! W3 b7 l% YPrint["GlobalK=", MatrixForm[GlobalK]];
5 @# |! Y! O; P- p9 w% U0 [BeamAssemble[2, 3, k2];5 i# b) _5 v8 E
Print["GlobalK=", MatrixForm[GlobalK]];
作者: quqixun    时间: 2012-3-8 20:15
陈殿邦 发表于 2012-3-8 13:22 : M0 X9 [6 s% q" |* E+ J
请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,5 j& m' I; y9 p& @3 N$ I2 x5 V
BeamElement[E1, I1, L]  ...
2 Y& K: G7 x" u1 g9 E& c' @& c% V
BeamElement[E1_, I1_, L_],应该都有下划线吧




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5