QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3008|回复: 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%

    该用户从未签到

    请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,: B  u) Z/ U9 ~1 I: A
    BeamElement[E1, I1, L] :=
      ?5 O$ h; n  U+ _9 y% w  Module[{}, 3 V5 q5 O* q8 ]: b+ F  R! ]
       y = E1*I1/(L^3)*{{12, 6*L, -12, 6*L}, {6*L, 4*L*L, -6*L, 4 T# ~- j, E1 V0 G
           2*L*L}, {-12, -6*L, 12, -6*L}, {6*L, 2*L*L, -6*L, 4*L*L}}; y];6 M# r0 O9 F, J9 T" i
    BeamAssemble[p1,p2,m]:=Module[{f}, - p1 Q5 d' ~& }) U% o0 y3 {8 r* a; W
    f={p1,p2};
    4 c) D  J  w2 t7 I" G  for[j=1,j<=2,j++,for[k=1,k<=2,k++,
    + t3 P8 x) C( B; [4 u: L! B    GlobalK[[2f[[j]],2f[[k]]]]+=m[[2j,2k]];
    * r  ~6 g" S2 q    GlobalK[[2f[[j]]-1,2f[[k]]]]+=m[[2j-1,2k]];
    0 Z3 r% P6 h  f" y0 J* H1 K( H    GlobalK[[2f[[j]],2f[[k]]-1]]+=m[[2j,2k-1]];
    / K  L6 N: X4 u/ \! h5 \% P; ]) L) t    GlobalK[[2f[[j]]-1,2f[[k]]-1]]+=m[[2j-1,2k-1]];]];) M' x3 G0 {. r" H3 u
      GlobalK]
    5 W! b( [; G9 w7 Tk1 = BeamElement[210*10^6, 60*10^(-6), 2];
      u( a4 m! M8 a% ^6 Tk2 = BeamElement[210*10^6, 60*10^(-6), 2];- a) \. T( d" M
    Print["k1=", k1];
    ) U3 a( d( a+ H" O6 {Print["k2=", k2];- r9 s. z% d* d, e  t! L0 D
    GlobalK = 0 IdentityMatrix[2*3];
    . D# |3 ]3 c% R5 Q4 ?  E' p. [BeamAssemble[1, 2, k1];8 `  p' W3 p- S  C1 Q. `5 d
    Print["GlobalK=", MatrixForm[GlobalK]];
    * H4 Y  q* S) U* v( x5 ]  t4 jBeamAssemble[2, 3, k2];- K) N; g# ^/ n% |4 x
    Print["GlobalK=", MatrixForm[GlobalK]];
    回复

    使用道具 举报

    quqixun        

    3

    主题

    4

    听众

    35

    积分

    升级  31.58%

  • TA的每日心情
    开心
    2012-3-7 19:27
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    自我介绍
    潜心学习
    陈殿邦 发表于 2012-3-8 13:22 3 m. W/ v( x1 R, q- v  J
    请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,2 t( w9 {. }. W2 S9 q# ]; S
    BeamElement[E1, I1, L]  ...

    % h- ~  F! Y9 \# J6 MBeamElement[E1_, I1_, L_],应该都有下划线吧
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-4-20 13:46 , Processed in 0.432122 second(s), 66 queries .

    回顶部