《海浪波长以及波浪力计算.docx》由会员分享，可在线阅读，更多相关《海浪波长以及波浪力计算.docx（12页珍藏版）》请在三一文库上搜索。
1、.Option ExplicitDim L1 As Single, L2 As Single, t As Single, d!, k!, kd!, thkd!, H!, D1!Dim CD As Single, CM As Single, l As Single, Ko As SingleDim Fhdmax As Single, Fhlmax As Single, Mhdmax As Single, Mhlmax!, Fhmax!, Mhmax! Dim As SingleConst Pi = 3.141592653Const G = 9.8Const = 1025Private Sub C
2、ommand1_Click()Dim r As IntegerDo While TrueL1 = Val(InputBox(请输入波长 L1：, 求解设计波长：, 100)t = Val(InputBox(请输入设计波周期 T：, 请输入, 6)d = Val(InputBox(请输入设计水深 d：, 请输入, 20)If L1 = 0 Thenr = MsgBox(请输入一个正数！, 5, 输入错误)If r = 2 ThenEndEnd IfElseExit DoEnd IfLoopk = 2 * Pi / L1kd = k * dthkd = (Exp(kd) - Exp(-kd) /
3、(Exp(kd) + Exp(-kd)L2 = G * (t 2) * thkd / (2 * Pi)Do Until Abs(L2 - L1) 0.001L1 = L2k = 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)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Comm
4、and3_Click()H = Val(InputBox(请输入设计波高 H：, 请输入, 3)D1 = Val(InputBox(请输入桩柱直径 D1：, 请输入, 2)l = Val(InputBox(请输入桩柱间距 l：, 请输入, 15).If d / L2 0.5 ThenPrintPrint 相对水深 d/L2:; d / L2Print 采用线性波理论计算:ElseMsgBox 重新选择计算理论End IfPrint 波陡：; H / L2Print 相对柱径：; D1 / L2If D1 / L2 4 ThenKo = 1Print KoElseIf LD 3 ThenKo =
5、 1.25Print KoElseIf LD = 2 * Fhdmax ThenFhmax = Fhlmaxo = 90E lseIf Fhlmax = 2 * Mhdmax ThenMhmax = MhlmaxElseIf Mhlmax 2 * Mhdmax ThenMhmax = Mhdmax * (1 + (Mhlmax / Mhdmax) 2) / 4)End IfPrintPrint 单桩柱最大水平波力矩 Mhmax:; MhmaxPrint 最大水平波力和最大水平波力矩的相位o:; oe = Mhmax / FhmaxPrintPrint 最大水平波力作用点离海底的距离 e:; e
6、End SubPublic Function sh(n) As Singlesh = (Exp(n) - Exp(-n) / 2End FunctionPublic Function ch(n) As Singlech = (Exp(n) + Exp(-n) / 2End FunctionPublic Function th(n) As Singleth = (Exp(n) - Exp(-n) / (Exp(n) + Exp(-n).End FunctionPublic Function arcsin(n) As Singlearcsin = Atn(n / Sqr(-n * n + 1)En
7、d FunctionPublic Function FH() As SingleFH = Fhdmax * Cos() * Abs(Cos() + Fhlmax * Sin()End FunctionPublic Function MH() As SingleMH = Mhdmax * Cos() * Abs(Cos() + Mhlmax * Sin()End FunctionPrivate Sub Command5_Click()Dim i As IntegerOpen C:Documents and SettingsAll Users桌面不同相位水平波力.txt For Output As
8、 #1 Print #1, Tab(8); 相位角; Spc(3); cos; Spc(3); cos|cos|; Spc(3); sin;Spc(3); Fhdmaxcos|cos|; Spc(3); Fhlmaxsin; Spc(6); FHFor i = 0 To 180 Step 15 = i * Pi / 180Print #1, Tab(10); i; Tab(20); Format$(Cos(), 0.0000);Print #1, Tab(30); Format$(Cos() * Abs(Cos(), 0.0000);Print #1, Tab(40); Format$(Sin
9、(), 0.0000);Print #1, Tab(55); Format(Fhdmax * Cos() * Abs(Cos(), 0.00);Print #1, Tab(70); Format(Fhlmax * Sin(), 0.00);Print #1, Tab(85); Format(FH(), 0.00)Next iClose #1End SubPrivate Sub Command6_Click()Dim i As IntegerO pen C:Documents and SettingsAll Users 桌面不同相位水平波力矩.txt For Output As #2P rint
10、 #2, Tab(8); 相位角; Spc(3); cos; Spc(3); cos|cos|; Spc(3); sin; Spc(3); Fhdmaxcos|cos|; Spc(3); Mhlmaxsin; Spc(6); MHFor i = 0 To 180 Step 15 = i * Pi / 180Print #2, Tab(10); i; Tab(20); Format$(Cos(), 0.0000);Print #2, Tab(30); Format$(Cos() * Abs(Cos(), 0.0000);Print #2, Tab(40); Format$(Sin(), 0.00
11、00);Print #2, Tab(55); Format(Mhdmax * Cos() * Abs(Cos(), 0.00);Print #2, Tab(70); Format(Mhlmax * Sin(), 0.00);Print #2, Tab(85); Format(MH(), 0.00)Next iClose #2End SubPrivate Sub Command7_Click().Dim As SingleDim H As SingleDim i As IntegerDim t As Single, m As Integer = l * 360 / L2PrintPrint 前后
12、两桩柱的波浪位相差：; t = 0For i = 0 To 180 - H = FH(i) + FH(i + )If t H Thent = Hm = iEnd IfNext iPrint 发生最大水平合波力的相位 ：; m Print 前后两桩柱的最大水平合波力为：; tEnd SubPrivate Sub Command8_Click()ClsEnd SubPrivate Sub Command9_Click()Dim As SingleDim M As SingleDim i As IntegerDim t As Single, m As Integer = l * 360 / L2t = 0For i = 0 To 180 - M = MH(i) + MH(i + )If t M Thent = Mm = iEnd IfNext iPrintPrint 发生最大水平合波力矩的相位 ：; m Print 前后两桩柱的最大水平合波力矩为：; tEnd Sub.海洋环境作业计算结果：.