海浪波长以及波浪力计算

1、OptionExplicitDimL1AsSingle,L2AsSingle,tAsSingle,d!,k!,kd!,thkd!,H!,D1!DimCDAsSingle,CMAsSingle,lAsSingle,KoAsSingleDimFhdmaxAsSingle,FhlmaxAsSingle,MhdmaxAsSingle,Mhlmax!,Fhmax!,Mhmax!Dim0AsSigleConstPi=3.141592653CoistG=9.8ConstY=1025PrivateSubCommaid1_Click()DimrAsIitegerDoWhileTrueL1=Val(IiputBo

2、x(请输入波长L1：,求解设计波长：,100)t=Val(IiputBox(请输入设计波周期T：,请输入,6)d=Val(IiputBox(请输入设计水深d：,请输入,20)IfL1=0Their=MsgBox(请输入一个正数！,5,输入错误”)Ifr=2TheiEidEidIfElseExitDoEidIfLoopk=2*Pi/L1kd=k*dthkd=(Exp(kd)-Exp(-kd)/(Exp(kd)+Exp(-kd)L2=G*(tA2)*thkd/(2*Pi)DoUitilAbs(L2-L1)0.001L1=L2k=2*Pi/L1kd=k*dthkd=(Exp(kd)-Exp(-kd)

3、/(Exp(kd)+Exp(-kd)L2=G*(tA2)*thkd/(2*Pi)LoopPriit设计波长是：;L2Priit波数：;Format$(k,0.0000)EidSubPrivateSubCommaid2_Click()EidEidSubPrivateSubCommaid3_Click()H=Val(IiputBox(请输入设计波高H：,请输入,3)D1=Val(IiputBox(请输入桩柱直径D1：,请输入,2)l=Val(IiputBox(请输入桩柱间距l：,请输入,15)Ifd/L20.5ThenPrintPrint相对水深d/L2:;d/L2Print采用线性波理论计算El

4、seMsgBox重新选择计算理论EndIfPrint波陡：;H/L2Print相对柱径：;D1/L2IfD1/L24ThenKo=1PrintKoElseIfLD3ThenKo=1.25PrintKoElseIfLD=2*FhdmaxThenFhmax=Fhlmax0o=90ElselfFhlmax=2*MhdmaxThenMhmax=MhlmaxElselfMhlmax2*MhdmaxThenMhmax=Mhdmax*(1+(Mhlmax/Mhdmax)A2)/4)EndIfPrintPrint单桩柱最大水平波力矩Mhmax:;MhmaxPrint最大水平波力和最大水平波力矩的相位0。:；0

5、oe=Mhmax/FhmaxPrintPrint最大水平波力作用点离海底的距离e:;eEndSubPublicFunctionsh(n)AsSinglesh=(Exp(n)-Exp(-n)/2EndFunctionPublicFunctionch(n)AsSinglech=(Exp(n)+Exp(-n)/2EndFunctionPublicFunctionth(n)AsSingleth=(Exp(n)-Exp(-n)/(Exp(n)+Exp(-n)EndFunctionPublicFunctionarcsin(n)AsSinglearcsin=Atn(n/Sqr(-n*n+1)EndFunct

6、ionPublicFunctionFH(0)AsSingleFH=Fhdmax*Cos(0)*Abs(Cos(0)+Fhlmax*Sin(0)EndFunctionPublicFunctionMH(0)AsSingleMH=Mhdmax*Cos(0)*Abs(Cos(0)+Mhlmax*Sin(0)EndFunctionPrivateSubCommand5_Click()DimiAsInteger桌面不同相位水平波力.txtForOutputAs#1Print#1,Tab(8);相位角0”；Spc(3);cos0”；Spc(3);cos0|cosB|;Spc(3);sin0Spc(3);Fhd

7、maxcos0|cos0|;Spc(3);Fhlmaxsin0;Spc(6);FHFori=0To180Step150=i*Pi/180Print#1,Tab(10);i;Tab(20);Format$(Cos(0),0.0000);Print #1, Tab(30); Format$(Cos(0 ) * Abs)(,Co0s.0(000 0);Print#1,Tab(40);Format$(Sin(0),0.0000);Print#1,Tab(55);Format(Fhdmax*Cos(0)*Abs(Cos(0),0.00);Print#1,Tab(70);Format(Fhlmax*Sin

8、(0),0.00);Print#1,Tab(85);Format(FH(0),0.00)NextiClose#1EndSubPrivateSubCommand6_Click()DimiAsInteger桌面不同相位水平波力矩.txtForOutputAs#2Print#2,Tab(8);相位角0;Spc(3);cos0;Spc(3);cos0|cos0|;Spc(3);sin0Spc(3);Fhdmaxcos|cos0|;Spc(3);Mhlmaxsin0;Spc(6);MHFori=0To180Step150 ), 0.0000);0=i*Pi/180Print#2,Tab(10);i;Ta

9、b(20);Format$(Cos(Print#2,Tab(30);Format$(Cos(0)*Abs(Cos(0),0.0000);0 ) * Abs(Cos( 0 ), 0.00);Print#2,Tab(40);Format$(Sin(0),0.0000);Print#2,Tab(55);Format(Mhdmax*Cos(Print#2,Tab(70);Format(Mhlmax*Sin(0),0.00);Print#2,Tab(85);Format(MH(0),0.00)NextiClose#2EndSubPrivateSubCommand7_Click()DimyAsSingle

10、Dim刀HAsSingleDimiAsIntegerDimtAsSingle,mAsIntegery=l*360/L2PrintPrint前后两桩柱的波浪位相差y：t=0Fori=0To180-y刀H=FH(i)+FH(i+y)Ift刀HThent=刀Hm=iEndIfNextiPrint发生最大水平合波力的相位：;mPrint前后两桩柱的最大水平合波力为：EndSubPrivateSubCommand8_Click()ClsEndSubPrivateSubCommand9_Click()DimyAsSingleDim刀MAsSingleDimiAsIntegerDimtAsSingle,mAsIntegery=l*360/L2t=0Fori=0To180-y刀M=MH(i)+MH(i+y)Ift刀MThent=刀Mm=iEndIfNextiPrintPrint发生最大水平合波力矩的相位：;mPrint前后两桩柱的最大水平合波力矩为：;tEndSub海洋环境作业QIVhxr&制术选择计器数于线械计算结果：nlmx0.114254.99825计嶷长髀里问数熟15选KO柜1选事率2Tn不同渝琳平彼力FX不同渝日水平 波柱：-次jpg,018881T07L48|2g0,9795单瘢果U