数学建模社区-数学中国»论坛 › 【科学软件论坛】数学建模 › Mathematica论坛 › mathematica里面有没有文本框啊

查看: 3043|回复: 2

mathematica里面有没有文本框啊

[复制链接]

字体大小: 正常放大

quqixun

3 主题	4 听众	35 积分

升级 31.58%

TA的每日心情

	开心 2012-3-7 19:27

签到天数: 5 天

[LV.2]偶尔看看I

自我介绍: 潜心学习

电梯直达

1^#

发表于 2012-3-7 20:13 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

就是像vc，vs里得textbox那样的，可以自由输入文本的东西

zan

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

使用道具举报

陈殿邦

0 主题	0 听众	2 积分

升级 40%

该用户从未签到

2^#

发表于 2012-3-8 13:22 |只看该作者 |招呼Ta 关注Ta

请问下面这个程序什么地方有问题，谢谢！！！发不了贴，借用一下，

BeamElement[E1, I1, L] :=
  Module[{},
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];
BeamAssemble[p1,p2,m]:=Module[{f},
f={p1,p2};
  for[j=1,j<=2,j++,for[k=1,k<=2,k++,
GlobalK[[2f[[j]],2f[[k]]]]+=m[[2j,2k]];
GlobalK[[2f[[j]]-1,2f[[k]]]]+=m[[2j-1,2k]];
GlobalK[[2f[[j]],2f[[k]]-1]]+=m[[2j,2k-1]];
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];
Print["k1=", k1];
Print["k2=", k2];
GlobalK = 0 IdentityMatrix[2*3];
BeamAssemble[1, 2, k1];
Print["GlobalK=", MatrixForm[GlobalK]];
BeamAssemble[2, 3, k2];
Print["GlobalK=", MatrixForm[GlobalK]];