资源描述：
《海浪波长以及波浪力计算.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、.OptionExplicitDimL1AsSingle,L2AsSingle,tAsSingle,d!,k!,kd!,thkd!,H!,D1!DimCDAsSingle,CMAsSingle,lAsSingle,KoAsSingleDimFhdmaxAsSingle,FhlmaxAsSingle,MhdmaxAsSingle,Mhlmax!,Fhmax!,Mhmax!DimθAsSingleConstPi=3.141592653ConstG=9.8Constγ=1025PrivateSubCommand1_Click()DimrAsIntegerDoWhileTrueL1=Val(I
2、nputBox("请输入波长L1：","求解设计波长：","100"))t=Val(InputBox("请输入设计波周期T：","请输入","6"))d=Val(InputBox("请输入设计水深d：","请输入","20"))IfL1<=0Thenr=MsgBox("请输入一个正数！",5,"输入错误")Ifr=2ThenEndEndIfElseExitDoEndIfLoopk=2*Pi/L1kd=k*dthkd=(Exp(kd)-Exp(-kd))/(Exp(kd)+Exp(-kd))L2=G*(t^2)*thkd/(2*Pi)DoUntilAbs(L2-L1)<0.001L1=L
3、2k=2*Pi/L1kd=k*dthkd=(Exp(kd)-Exp(-kd))/(Exp(kd)+Exp(-kd))L2=G*(t^2)*thkd/(2*Pi)LoopPrint"设计波长是：";L2Print"波数：";Format$(k,"0.0000")EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubCommand3_Click()H=Val(InputBox("请输入设计波高H：","请输入","3"))D1=Val(InputBox("请输入桩柱直径D1：","请输入","2"))..l=Val(InputBox("请输入
4、桩柱间距l：","请输入","15"))Ifd/L2<0.5ThenPrintPrint"相对水深d/L2:";d/L2Print"采用线性波理论计算:"ElseMsgBox"重新选择计算理论"EndIfPrint"波陡：";H/L2Print"相对柱径：";D1/L2IfD1/L2<0.2ThenPrint"属于小直径桩柱"ElsePrint"属于大直径桩柱"EndIfCD=Val(InputBox("请输入拖曳力系数：","请输入","1.0"))CM=Val(InputBox("请输入质量系数：","请输入","2.0"))PrintPrint"选用拖曳力系数：";CDPrint
5、"选用质量系数：";CMDimLDAsSingleLD=l/D1Print"桩柱相对间距：";LDPrint"群桩系数Ko：";IfLD>4ThenKo=1PrintKoElseIfLD<4AndLD>3ThenKo=1.25PrintKoElseIfLD<2ThenKo=1.5PrintKoEndIfEndSubPrivateSubCommand4_Click()DimK1AsSingle,K2AsSingle,K3AsSingle,K4AsSingleDimeAsSingle,θoAsSingleK1=(2*k*(d+H/2)+sh(2*k*(d+H/2)))/(8*sh(2*k*
6、d))Fhdmax=CD*γ*G*D1*(H^2)*K1/2PrintPrint"K1值：";Format$(K1,"0.0000")Print"单桩柱最大水平拖曳力Fhdmax：";Fhdmax..K2=th(k*d)Fhlmax=CM*γ*G*Pi*(D1^2)*H*K2/8PrintPrint"K2值：";Format$(K2,"0.0000")Print"单桩柱最大水平惯性力Fhlmax:";FhlmaxK3=(2*(k^2)*(d+H/2)^2+2*k*(d+H/2)*sh(2*k*(d+H/2))-ch(2*k*(d+H/2))+1)/(32*sh(2*k*d))Mhdma
7、x=CD*γ*G*D1*(H^2)*L2*K3/(2*Pi)PrintPrint"K3值：";Format$(K3,"0.0000")Print"单桩柱最大水平拖曳力矩Mhdmax:";MhdmaxK4=(k*d*sh(k*d)-ch(k*d)+1)/ch(k*d)Mhlmax=CM*γ*G*(D1^2)*H*L2*K4/16PrintPrint"K4值：";Format$(K4,"0.0000")Print"单桩柱最大水平惯性力矩Mhlmax
