剖面模数和惯性矩在船体结构.docVIP

  1. 1、本文档共4页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
剖面模数和惯性矩在船体结构、强度设计中经常会碰到,平时我们一般都采取手工计算,过程非常繁琐、单调,又容量出错。现在许多人都已经用计算机编程计算,速度快,又准确,本文介绍剖面模数和惯性矩编程计算两种方法,供大家选择使用。 MPexc5_ ? 1.用Micr0softExcel(电子表格)编程计算 e=8z,.Xk ? 1.1说明:用此方法计算,方便易学,即使没有学过计算机语言的人也能自编,自用。无须专业人员帮助,而且编程速度很快。 (_9cL,v ? 1.2编程及使用举例 $bGe1 \ ? 打开Micr0softExcel设定b1、b2、b3、h1、h2、h3属性为输入项,b1:“型材面板宽度(cm)”、h1:“型材面板厚度(cm)”、b2:“型材腹板高度(cm)”、h2:“型材腹板厚度(cm)”、b3:“型材带板宽度(cm)”、h3:“型材带板厚度(cm)”、可再按下述步骤操作: YFG QPg ? A1项设定为:b1*h1  UuTn#nb ? A2项设定为:b2*h2 |x Nd^  ? A3项设定为:b3*h3 9rCvnP= ? A4项设定为:A1+A2+A3 +FYQ7UE ? S1=A1*((h1+h3)/2+b2)  w`77E= ? I1=A1*((h1+h3)/2+b2)^2+(1/12)*b1*(h1)^3 iJr 1wGL$ ? S2=A2*(b2+h3)/2 bM9:h ? I2=A2*((b2+h3)/2)^2+(1/12)*h2*(b2)^3 %1*,g{ ? I3=(1/12)*b3*(h3)^3 c678!r9 P ? S4=S1+S2 y*AB =d^ ? H=S4/A4 |PI]v`[ ? I=I1+I2+I3-h^2*A4 q,W6wM;,E ? W=I/((h1+h3)/2+b2-h) !.(% ? 惯性矩,W为剖面模数。下次计算时,只用在界面更换b1、b1、b1、b3、h1、h2、h3值可得新的I和w。 r%QnV0L^ ? Bmqox0 ? 2.用VB编程 ~[|zf*ZISG ? )ZU=`!4 ? 2.1说明:用VB编写过程较复杂,要有VB基础,优点是编程后使用时界面较直观,容易使用. Of R\8hAY ? t;R drk ? 2.2编程使用举例: pY3N7m\: ? -*?Y4}mK ? 2.2.1创建新窗体 3b_tK^| ? :Rs% (Z ? 首先启动VB6.0,新建一个工程,系统会自动打开一个新窗体。在窗体中增加如下控件:8个标签控件、8个文本框控件、1个框架控件、3个命令按钮控件。然后将窗体的Caption属性改为“剖面模数计算器”:8个标签的Caption属性分别为“型材面板宽度(cm)”、“型材面板厚度(cm)”、“型材腹板宽度(cm)”、“型材腹板厚度(cm)”、“型材带板宽度(cm)”、“型材带板厚度(cm)”、“惯性矩(cm4)”、“剖面模数(cm3)”;框架控件的Caption属性改为“结果”;3个命令按钮的Caption属性改为“开始计算”、“清除”、“退出”;8个文本框的text属性改为空;其它的属性均取默认值。 !j= {hK ? x 5u.D^ ? 2.2.2程序编制 ${$XJ s4 ? 9An^lLK* ? 打开代码窗口,添加如下代码: #5?Q{ORN o ? Lw=.LN ? private Sub Commandl_Click( ) /j]r?KAzw ? n:?fv=9n ? for x=o To 5 2,nKbE9* ? =2#a@D6Bl ? If Textl(X).Text=””Then  6h N~ ? \][:kG; ? MsgBox(”输入内容有误,请重新检查”),,”注意” p.q :vI$J ? oCQJ(o,8 ? Go TO 10 /%Bc*k=ox ? P}o:WI4.cB ? End If 22|eiW/a ? k oo`JHC ? Next x $rDeI-)S ? |@={:gRJ{x ? Dim A1、h1、b1、A2、h2、b2、A3、h3、b3、h Eom|*2vWIC ? e0R7a ? b1=Val(Textl(o).Text) 8Cz_LyL ? K8doYN ? h1=Val(Textl(1).Text) npg.*I/ ? JPS22i)P ? b2=Val(Textl(2).Text) z`((l#( ? lz@fXaZM ? h2=Val(Textl(3).Text) ln)_

文档评论(0)

185****7617 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档