使用Visual FoxPro开发的船型系数曲线计算软件

来源:用户上传      作者: 宋晶晶

　　摘 要： 船型系数是表示船体水下部分面积或体积肥瘦程度的无因次系数，这些系数对分析船型和船舶性能等有很大的用处。传统方法是用表格进行数值计算，虽然计算原理比较简明，但由于船体线型的复杂性，使得数据处理非常繁琐。利用Visual FoxPro语言开发出船型系数曲线计算软件，从而显著提高船舶设计工作的效率，降低整个造船的周期。
　　关键词： 水线面系数；方形系数；棱形系数；Visual FoxPro
　　中图分类号：R311 文献标识码：A 文章编号：1671－7597（2012）0310016－01
　　
　　0 引言
　　船舶静力学以流体静力学为基础，研究船舶在不同装载工况下的浮性、稳性和抗沉性等问题。船舶静力学的任务就是研究船舶浮性和稳性要素的计算基础，以及这些要素与船舶的主尺度、形状和装载情况之间的关系，制定计算这些要素的实用计算方法。
　　船型系数是表示船体水下部分面积或体积肥瘦程度的无因此系数，这些系数对分析船型和船舶性能等有很大的用处。传统方法是用表格进行数值计算，虽然计算原理比较简明，但由于船体线型的庞大性，使得数据处理非常复杂。所以开发一套以计算机为载体的船型系数曲线计算软件是十分必要的。
　　1 开发环境
　　Visual FoxPro6.0是微软公司推出的一款功能强大、面向对象的关系型数据库管理系统，它不仅提供了更多更好的各种设计器、向导、生成器以及新类，并且使得客户/服务器结构数据库与网络数据库应用程序的设计更加方便简洁，vfp6以其强健的工具和面向对象的以数据为中心的语言，将C/S和网络功能集成于现代的、多连接的应用程序当中。Vfp6充分的发挥了面向对象编程技术与事件驱动方式的优势。
　　2 船型系数曲线的计算
　　船型系数曲线的介绍：
　　船型系数曲线主要包括水线面系数曲线CWP=f(z)、中横剖面系数曲线CM=f(z)、方形系数曲线CB=f(z)和棱形系数曲线CP=f(z)。以中横剖面系数曲线CM和棱形系数曲线CP为例，其计算公式和程序代码如下：
　　
　　
　　计算CM和CP的代码为：
　　cdh4(1)=0
　　jfh4(1)=0
　　AM(1)=0
　　BTi(1)=0
　　CM(1)=0
　　CP(1)=0
　　thisform.label2.caption='CM'+alltrim(str(n1-1))
　　thisform.label3.caption='CP'+alltrim(str(n1-1))
　　if n1>1
　　cdh4(n1)=zhpmbk(n1-1)+zhpmbk(n1) &&成对和4
　　jfh4(n1)=jfh4(n1-1)+cdh4(n1) &&积分和4
　　AM(n1)=dT*jfh4(n1)
　　BTi(n1)=B*Ti(n1)
　　CM(n1)=AM(n1)/BTi(n1)
　　CP(n1)=CB(n1)/CM(n1)
　　Endif
　　thisform.text2.value=CM(n1)
　　thisform.text3.value=CP(n1)
　　以方形系数曲线为例，其计算公式和程序代码如下：
　　计算CB的代码为：
　　thisform.label22.caption='计算水线号'+alltrim(str(n1-1))
　　for i=1 to sx
　　Ti(i)=dT*(i-1)
　　endfor
　　AWi(n1)=AW &&将计算表1中得到的AW放到数组AWi中
　　XFi(n1)=XF &&将计算表1中得到的XF放到数组XFi中，为计算XB做准备
　　ITi(n1)=IT
　　ILi(n1)=IL
　　if n1=1
　　 thisform.label13.caption='Ti'+alltrim(str(n1-1))
　　 thisform.text12.value=Ti(n1)
　　 thisform.label14.caption='Aw'+alltrim(str(n1-1))
　　 thisform.text13.value=AW &&水线半宽面积
　　 thisform.label15.caption='成对和'+alltrim(str(n1-1))
　　 thisform.text14.value=cdh(n1)&&成对和
　　 thisform.label16.caption='积分和'+alltrim(str(n1-1))
　　 thisform.text15.value=jfh(n1)&&积分和
　　 thisform.label17.caption='排水体积'+alltrim(str(n1-1))
　　 thisform.text16.value=pstj(n1)
　　 thisform.label18.caption='排水量'+alltrim(str(n1-1))
　　 thisform.text17.value=psl(n1)
　　else
　　 thisform.label13.caption='T'+alltrim(str(n1-1))
　　 Ti(n1)=dT*(n1-1) &&吃水
　　 thisform.text12.value=Ti(n1)
　　 thisform.label14.caption='Aw'+alltrim(str(n1-1))
　　 thisform.text13.value=AW &&水线半宽面积
　　 thisform.label15.caption='成对和'+alltrim(str(n1-1))
　　 cdh(n1)=AWi(n1-1)+AWi(n1) &&成对和
　　 thisform.text14.value=cdh(n1)
　　 thisform.label16.caption='积分和'+alltrim(str(n1-1))
　　 jfh(n1)=jfh(n1-1)+cdh(n1) &&积分和
　　 thisform.text15.value=jfh(n1)
　　 thisform.label17.caption='排水体积'+alltrim(str(n1-1))
　　 pstj(n1)=dT*jfh(n1)/2 &&排水体积
　　 thisform.text16.value=pstj(n1)
　　 Thisform.label18.caption='排水量'+alltrim(str(n1-1))
　　
　　 psl(n1)=p*pstj(n1) &&排水量
　　 thisform.text17.value=psl(n1)
　　endif
　　thisform.label19.caption='LBT'+alltrim(str(n1-1))
　　LBT(n1)=L*B*Ti(n1)&&LBT
　　thisform.text18.value=LBT(n1)
　　thisform.label20.caption='CB'+alltrim(str(n1-1))
　　CB(n1)=pstj(n1)/LBT(n1)&&方形系数
　　3 结论
　　本程序只需将各种船型的的型值表数据输入界面相应的文本框中，通过程序的运行就能得到所需的船型系数曲线数据，不但减少了船型系数曲线计算的工作量，同时为静水力曲线的计算提供了准确的数据，提高了船舶设计的精确度。
　　
　　参考文献：
　　[1]盛振邦，船舶静力学，上海：上海交通大学出版社，1991.
　　[2]刘雪梅，船舶原理，哈尔滨：哈尔滨工程大学出版社，2005.
　　[3]段兴，Visual FoxPro实用程序100例，北京：人民邮电出版社，2002.

转载注明来源:https://www.xzbu.com/8/view-1684460.htm