QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3093|回复: 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 微信微信
    quqixun        

    3

    主题

    4

    听众

    35

    积分

    升级  31.58%

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

    [LV.2]偶尔看看I

    自我介绍
    潜心学习
    陈殿邦 发表于 2012-3-8 13:22 & M, [0 p+ V! f4 D/ R5 ~
    请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,# D% Q, g) E( o& }9 |
    BeamElement[E1, I1, L]  ...
    $ U5 b' g; z( E- A6 K) N# c9 c
    BeamElement[E1_, I1_, L_],应该都有下划线吧
    回复

    使用道具 举报

    陈殿邦        

    0

    主题

    0

    听众

    2

    积分

    升级  40%

    该用户从未签到

    请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,4 x" I. b9 b  n0 n
    BeamElement[E1, I1, L] := / u' V: ^5 D( h2 E
      Module[{},
    # ^+ y* ]# z0 P$ G8 \8 z3 f$ \+ ~   y = E1*I1/(L^3)*{{12, 6*L, -12, 6*L}, {6*L, 4*L*L, -6*L, # ]' G  N& q9 ~' f7 e
           2*L*L}, {-12, -6*L, 12, -6*L}, {6*L, 2*L*L, -6*L, 4*L*L}}; y];
    4 V1 P" e3 \6 c5 N, H7 v4 P" x3 UBeamAssemble[p1,p2,m]:=Module[{f},
    6 c; C- v9 B; I  |& Rf={p1,p2};
    ! S/ Y8 O- }- H  for[j=1,j<=2,j++,for[k=1,k<=2,k++,
    6 F+ \: l) {: a. D2 I    GlobalK[[2f[[j]],2f[[k]]]]+=m[[2j,2k]];
    7 u6 L& i8 \7 W5 i" R    GlobalK[[2f[[j]]-1,2f[[k]]]]+=m[[2j-1,2k]];& R8 z8 e- t, J9 d4 i
        GlobalK[[2f[[j]],2f[[k]]-1]]+=m[[2j,2k-1]];
    & S& Z4 p; ]" Q( ~    GlobalK[[2f[[j]]-1,2f[[k]]-1]]+=m[[2j-1,2k-1]];]];
    : n- K5 ]5 ~' t+ v, d  GlobalK], R- V. h, e! P; r& [) S9 C
    k1 = BeamElement[210*10^6, 60*10^(-6), 2];; i) h) d$ K# d" u; o( D
    k2 = BeamElement[210*10^6, 60*10^(-6), 2];
    8 r/ q- v7 @* W7 I  y+ x+ yPrint["k1=", k1];' M" ?" D; F- l0 p/ N
    Print["k2=", k2];
    - E. u* N: R; O& GGlobalK = 0 IdentityMatrix[2*3];  {2 Y. i, {4 r/ S4 r3 P
    BeamAssemble[1, 2, k1];
    5 f: h1 C5 F. K" c  l1 DPrint["GlobalK=", MatrixForm[GlobalK]];# N8 ], d! K: ]: [4 ?5 e% M
    BeamAssemble[2, 3, k2];# b4 |) @) C+ m$ [
    Print["GlobalK=", MatrixForm[GlobalK]];
    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-8-26 06:38 , Processed in 0.798816 second(s), 68 queries .

    回顶部