QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3091|回复: 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
      g" y( Z& {) d( |  o- {0 C; w& c; r' v请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,& F' O% _6 D- q+ T# t7 B, k
    BeamElement[E1, I1, L]  ...

    : _7 d4 P+ G8 i" R9 }- h4 vBeamElement[E1_, I1_, L_],应该都有下划线吧
    回复

    使用道具 举报

    陈殿邦        

    0

    主题

    0

    听众

    2

    积分

    升级  40%

    该用户从未签到

    请问下面这个程序什么地方有问题,谢谢!!!发不了贴,借用一下,5 }+ R2 n3 }4 q3 l& ~& S% e& t  f
    BeamElement[E1, I1, L] := & S0 n3 v- y' e9 R# x/ x4 j
      Module[{},
    : i# f& Z. s. W+ h. l   y = E1*I1/(L^3)*{{12, 6*L, -12, 6*L}, {6*L, 4*L*L, -6*L, 2 g. [/ t% a" A# ]! O# y, `( k
           2*L*L}, {-12, -6*L, 12, -6*L}, {6*L, 2*L*L, -6*L, 4*L*L}}; y];0 ?2 E, f) Q; Q' R
    BeamAssemble[p1,p2,m]:=Module[{f}, # b7 C; p- h$ u: I7 v1 p# F
    f={p1,p2};, ]2 c3 p& {  L' K
      for[j=1,j<=2,j++,for[k=1,k<=2,k++,8 A! j# d% Z5 \" c/ i
        GlobalK[[2f[[j]],2f[[k]]]]+=m[[2j,2k]];, W) w* E0 w' q+ t# W
        GlobalK[[2f[[j]]-1,2f[[k]]]]+=m[[2j-1,2k]];! P" I4 ]# F9 Z4 K& P4 w0 _! p
        GlobalK[[2f[[j]],2f[[k]]-1]]+=m[[2j,2k-1]];" ?' O; P) P9 l5 V
        GlobalK[[2f[[j]]-1,2f[[k]]-1]]+=m[[2j-1,2k-1]];]];
    " @$ U+ G& F" O( ~% Z1 l% l  GlobalK]- M! v/ e- J% D# T- K+ n+ h
    k1 = BeamElement[210*10^6, 60*10^(-6), 2];8 |5 Y8 M2 i+ O& m' ~# v7 `
    k2 = BeamElement[210*10^6, 60*10^(-6), 2];
    - D* ]# a' E' W. W) u6 pPrint["k1=", k1];# g9 N, \* N) n6 k. P2 G+ D
    Print["k2=", k2];
    5 ^5 q2 R% E3 Q& p8 oGlobalK = 0 IdentityMatrix[2*3];, f. Q/ \* p( \0 f- ?: E
    BeamAssemble[1, 2, k1];
    7 u0 d; _0 T8 u& r4 m9 ePrint["GlobalK=", MatrixForm[GlobalK]];! ~) J; {; q% ~$ O/ Y
    BeamAssemble[2, 3, k2];
    - D1 A1 H" [* E% F$ X; UPrint["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 02:34 , Processed in 6.286242 second(s), 68 queries .

    回顶部