海浪波长以及波浪力计算
8.海浪
2）风浪的成长与风力、风区和 风时的关系 风区：指风向和风速近似一致的 风所吹刮的距离。 风时：是指近似一致的风向和风 速连续作用于风区的时间。 风力越大，风区越长，风时越久 ，风浪就越发展。但风浪的发展 不是无限制的，当波陡接近1/7时 ，波浪开始破碎，波高停止发展。 这种状态的风浪称为充分成长的风 浪。在风速一定时，风浪充分成长 不同风速时形成充分成长的风 需要一定的临界风时和风区。三者 浪所需要的最小风区和风时 的关系见右上图。 由图可见，风速越大，风浪充分成长所需要的最小风时和最小风区也 越大。例如当风速为20kn时，最小风区75n mile,最小风时为10h; 当 风速为30kn时，最小风区和最小风时分别增加到280n mile和23h。
3）风暴潮（Storm Surge）
――由强烈的大气扰动（强台风、强锋面气旋、寒潮大风等）引起的 海面异常上升现象。 主要原因：海面气压分布不均匀――气压每下降1hPa，海面约升高1cm； 大风――风暴向岸边移动时，受强风牵引海水涌向岸边，海 面升高，升高幅度与风速的平方成正比。 我国风暴潮多发区： 莱州湾、渤海湾、长江口至闽江口、汕头至珠江口、雷州湾和海南 岛东北角，其中莱州湾、汕头至珠江口是严重多发区。
§8.4 有效波高和合成波高 21
3、合成波高 ――风浪波高与涌浪波高的合成， HE＝（Hw2+Hs2）1/2 公式中：Hw――平均显著风浪波高； Hs――平均显著涌浪波高。 波浪分析图上的波高为合成波高。 二、有效波高与其它统计波高的关系 设有效波高H1/3＝1m，则 平均H＝0.63m H1/10＝1.27m H1/100＝1.61m H1/1000＝1.94m
§8.5船舶海洋水文气象观测与编报
29
N， 0°
4m/s
波浪力计算公式
波浪力计算公式引言：在海洋工程中，波浪力是一个重要的参数，用于估计波浪对结构物的作用力。
波浪力的计算可以通过波浪力计算公式来实现。
本文将介绍波浪力计算公式的原理和应用，并探讨波浪力计算的相关问题。
一、波浪力计算公式的原理波浪力计算公式是根据波浪理论和结构动力学原理推导出来的。
其基本原理是根据波浪的特性和结构物的几何形状，通过计算波浪作用下的压力和力矩，进而得到波浪力的大小和方向。
二、常用的波浪力计算公式1. Morison公式：Morison公式是最常用的波浪力计算公式之一，适用于波浪作用下的柱状结构物。
该公式基于马克思-赫茨伯格(Morison)定律，考虑了波浪作用下的惯性力和阻力。
其表达式为：F = 0.5 * ρ * Cd * A * (dV/dt) + ρ * Cp * A * V * |V|其中，F为波浪力，ρ为水的密度，Cd和Cp分别为阻力系数和惯性系数，A为结构物的横截面积，V为波浪速度，dV/dt为波浪加速度。
2. Goda公式：Goda公式是一种改进的波浪力计算公式，适用于不规则波浪作用下的结构物。
该公式考虑了波浪的频率谱和结构物的响应特性，能更准确地估计波浪力。
其表达式为：F = ∫∫ (0.5 * ρ * Hs * g * S(f) * A * R(f)^2 * |H(f)|^2 * cos(θ))^0.5 df dθ其中，F为波浪力，ρ为水的密度，Hs为波浪高度，g为重力加速度，S(f)为波浪频率谱密度函数，A为结构物的横截面积，R(f)为结构物的响应函数，H(f)为波浪高度频谱密度函数，θ为波浪方向。
三、波浪力计算的应用波浪力计算公式广泛应用于海洋工程中的结构设计和安全评估。
通过计算波浪力，可以评估结构物的稳定性和安全性，为结构物的设计和施工提供依据。
例如，在海上风电场中，需要计算波浪力来评估风机基础的稳定性；在海岸工程中，需要计算波浪力来评估海堤的稳定性。
四、波浪力计算的相关问题1. 如何确定阻力系数和惯性系数？阻力系数和惯性系数是波浪力计算公式中的重要参数，可以通过试验或数值模拟来确定。
水中的波动现象和波浪力的计算分析
水中的波动现象和波浪力的计算分析在我们日常生活中，水是一个非常常见和重要的自然元素。
水对于地球上的生命形态和自然环境起着至关重要的作用。
而水中的波动现象和波浪力的计算分析是一个非常有趣和有挑战性的课题。
当我们观察到水面上产生的波浪时，我们往往会感到它们的美丽和神秘。
波浪是由外力在水中产生的扰动所引起的。
当这种扰动传播到水面上时，就会形成波浪。
波浪有许多不同的形态，它们可以是简单的正弦波，也可以是复杂的交错波。
在水中的波动中，存在着波长、波速和波浪力等重要的物理参数。
波长是指波浪连续的两个相邻的峰或谷之间的距离，用λ表示。
波速是指波浪传播的速度，用v表示。
波速与波长之间存在着直接的关系，即波速等于波长除以波周期。
而波周期是指波浪从一个峰到相邻的下一个峰所需的时间。
波浪力是指波浪对固体表面施加的力量。
在航海和海洋工程等领域，对波浪力进行准确的计算和分析非常重要。
波浪力的计算和分析可以通过海洋工程中的波浪观测和力学模型来实现。
波浪观测通常使用专门的仪器来测量波浪的高度、周期和速度等参数。
这些观测数据可以帮助我们对波浪力进行科学的计算和分析。
同时，在海洋工程中，研究人员还开发了一系列数学和计算模型来模拟和预测波浪力。
这些模型通常基于流体力学的原理，结合了波浪的物理特性和海洋环境的变化。
通过这些模型，研究人员可以更好地理解和预测波浪力的特性和作用。
对波浪力的计算和分析不仅可以帮助我们更好地理解水中的波动现象，还可以为海洋工程和船舶设计等领域提供重要的参考和指导。
在海洋工程中，波浪力是一个非常重要的参数，它可以影响结构物的稳定性和安全性。
因此，准确地计算和分析波浪力可以帮助我们设计更安全和可靠的海洋工程结构。
而在船舶设计中，波浪力也是一个重要的参考因素，它可以影响船体的稳定性和航行性能。
因此，对波浪力的计算和分析可以帮助我们设计更高效和舒适的船舶。
总之，水中的波动现象和波浪力的计算分析是一个非常有趣和有挑战性的课题。
第五章 海浪
第五章海浪§5— 1 海浪的类型一.海浪要素 海浪．．是发生在海洋中的一 种波动现象,又称波浪 海浪要素：周期： T= λ/c 频率．．f=1/T 波陡δ：δ=波高/波长深水中δ≯1/7，波峰线：通过波峰且垂直于波浪传播方向 波向线：垂直于波峰线平均波高：如有一段连续波高记录分别为1H 、2H …n H ，则此段时间的平均波高等于：()n12n i i=111H H H H H n n =+++=∑L 部分大波波高(p H )在某一次观测或一列波高系列中，按大小将所有波高排列起来，并就最高的P 个波的波高计算平均值，称为该P 部分大波的波高。
例如共观测1000个波，最高的前10个、100个和333个波的平均值，分别以符号1100H 、110H 和13H 表示。
部分大波平均波高反映出海浪的显著部分或特别显著部分的状态。
习惯上将13H称为有效波高（或称有义波高）。
最大波高maxH：指某次观测中，实际出现的最大的一个波高。
各种波高间的换算111100103H H H2.663, 2.032,1.598H H H===111100100101111033H H H1.311,1.666,1.272H H H===二.海浪运动机理深水：水质点以近似于圆形的轨道作圆周运动运动半径：随着水深的增加而减小h=λ/2时;r↓→4% r0（r0=a）浅水：（h＜λ/20）运动波及海底。
三.海浪的分类1.按海水深度分深度深: 表面波（深水波）：h↑→r↓深度浅: 长波（浅水波h＜λ/20）运动波及海底。
2.按周期分3.按生成原因分：．．．．．．．风浪、潮波、海啸4.按受力情况分：自由波：涌浪受迫波：潮波5.按波形前进与否分：进行波；驻波。
6.按边界条件分①微小振幅波H/λ很小，H可忽略所有运动方程式都是线性的。
②有限振幅波：H不可忽略a.斯托克斯波有“质量运移”b.孤立波H/λ＜1/10; 运动集中在波峰附近c.摆线波7.内波§5—2 海浪的形成一.海浪形成假说(1)形成毛细波(2)风以法向压力形式给波浪传递能量(3)空气小涡流加强了水质点的运动(4) 波长较短的波由风取得能量转给波长较长的波二、海浪的消衰1.分子粘滞性消耗的能量2.涡动消耗能量3.空气的阻力4.海底摩擦5.波浪破碎三.海浪的状态1.海浪三要素风速：大于0风时：状态相同的风作用的时间风区：状态相同的风作用的海区风大不一定浪大．．．．．．．2.定常状态风区一定，海浪达最大；风区增加，海浪高度增加；风区是限制因素。
海堤波浪越浪量常用计算方法评述
海堤波浪越浪量常用计算方法评述1.经验公式经验公式是根据大量实测资料的统计结果得出的，具有简单、实用的特点，适用于常见的海堤情况。
常用的经验公式有Raper公式、潜渗波浪理论公式和渗流波浪公式等。
- Raper公式：Raper公式是最早提出的一种计算波浪越浪量的经验公式。
该公式通过波浪高度、周期、波长和堤坡坡度等参数，通过实测系数得出波浪越浪量。
-潜渗波浪理论公式：该公式是根据波浪在海堤顶部的潜渗特性推导出来的，适用于堤坡较陡的情况。
该公式通过波高、周期、堤顶宽度和堤底深度等参数计算波浪越浪量。
-渗流波浪公式：该公式是针对近岸区域的波浪影响，考虑了波浪与海堤相互作用的渗流效应。
该公式通过波高、周期、波长和海堤参数等计算波浪越浪量。
经验公式的优点是简单快速，适用于初步设计和常见情况。
然而，经验公式仅适用于一定范围的条件，对于非常规情况或特定场景可能存在较大误差，需谨慎使用。
2.数值模拟方法数值模拟方法通过建立数学模型、求解方程组，模拟波浪在海堤上的传播和相互作用过程，计算波浪越浪量。
数值模拟方法包括有限元方法、边界元方法和有限差分方法等。
-有限元方法：有限元方法通过将计算区域离散化，并建立网格系统，将方程转化为代数方程组，通过迭代求解得到波浪越浪量。
该方法适用于不规则的复杂海堤形态和自由水面下的波浪传播问题。
-边界元方法：边界元方法通过将波浪理论方程转化为格林函数形式，并将边界上的边值问题转化为边界元方程组，通过求解得到波浪越浪量。
该方法适用于规则海堤形态和自由水面上的波浪传播问题。
-有限差分方法：有限差分方法将计算区域离散化，并建立网格系统，根据差分逼近法将偏微分方程转化为代数方程组，通过迭代求解得到波浪越浪量。
该方法适用于规则的海堤形态和自由水面上的波浪传播问题。
数值模拟方法的优点是精度较高，适用于复杂和特殊情况，但计算量较大，对计算条件和参数的设置要求较高。
综上所述，海堤波浪越浪量的计算方法包括经验公式和数值模拟方法。
波浪理论及其计算原理
设：
忽略常数项，得四阶近似的波面方程为：
五阶近似。Skjelbreia和Hendrickson（1960）提出了Stokes波的五阶近似。为了便于工程上的计算应用，采用列表方式给出各系数。计算时只要查表，把系数代入简单的代数式即可获得波浪的各项特性参数。各计算公式如下：
（7-1）
式中： 、 、 为水质点速度在 、 、 三个坐标轴方向上的分量； 为海水的密度； 为流体所受的表面力； 为重力加速度。
用欧拉法描述流场时，可得到运动方程为：
（7-2）
二、连续方程
流体在运动时，必须遵循质量守恒定律，也就是必须满足连续方程。
今在流体内取一由闭曲面 所围成的固定几何空间，其体积为 。则在单位时间内所取空间内流体质量的增加量为：
三阶近似。取式（7-39）的前三项，得：
设：
代入上式，并除以 之后，得：
忽略方次在 以上的各项，并按 的方次排列，有：
由此可得：
代入 ，得到 的波形表达式：
为了简化上式，设：
用摄动法求解 ，令：
代入前式，得：
将上式展开，保留 的三次方以下各项，有：
于是得：
， ，
代回到 的表达式，得（到三次方）
再代回到上面的 表达式，有
（7-13）
（7-14）
不过，运动是无旋还是有旋的还不清楚，一般当作是有旋的，并引进流函数 ，则 ， ，将这些代入式（7-13）和（7-14），消去 后，得：
（7-15）
令：
（7-16）
将式（7-16）代入式（7-15），得：
（7-17）
因为 ，所以 。相反，如把 代入这个关系式，得：
（7-18）
上式所表示的运动是无旋的。因此，开始时可以将速度势 引入，即 ， ，得：
第5章 波浪学习资料
波浪概述
波浪是海水运动形式之一，其显著的特征是周期性和 随机性。 海面的波浪以风所产生的风浪及其演变而成的涌浪最 为常见，两者合称为海浪。 此外，海底火山、地震、气压变化、天体引潮力等也 会产生波浪。 海洋中波浪的周期和波长分布范围很大。
规则波浪诸要素
波峰、波谷
波高(H)、波长(l)、周期(T) 波速(c)、波幅(a) 、波陡(H/l) 波数(k)、圆频率(s)
著波高)。其余依次类推。
平均周期
T
1 N
Ti
i1
N为在固定点连续观测到的周期总数。
1/p平均周期
T1 p
p N
N/ p
Ti
i1
N、p同上。当p=3时称为有效周期T1/3；
当p=10时称为1/10平均周期。依次类推。通常有T1/3= 1.15平均
周期，T1/10=1.31平均周期，T1/10=1.14T1/3。
利用频散关系s2= kg tanh(kh)，可得波速(C)和波长(l)关系式
C2k gta(nk)h h2 gp lta(nk)h h或
C gltanhk(h) 2p
由于l=CT，因此波速(C)和周期(T)关系式
C gTtanh(kh)
2p
小振幅波
波速(C)、波长(l)及周期(T) CgTtanh(kh)
关系。其中g为重力加速度。
小振幅波
波浪运动的水质点轨迹
波峰前部为水质点的辐聚区，波面未来上升，而波峰后部则为辐散
区，未来波面下降，从而使波形不断向前传播，而水质点却只围绕自
己的平衡位置作圆周运动。
水质点在波峰处具有
正的最大水平速度，在
波谷处具有负的最大水
平速度，且其铅直速度
海啸计算公式
海啸计算公式
海啸传播速度计算公式，如下：V﹦(gh)1/2 ，h：海的深度，g：重力加速度。
海啸不是单一的巨大波浪，而是一批具有很长波长和周期的海浪。
这些海浪通过能量的释放而向外排水。
在能源附近，海啸的波浪可长于300英里并可持续一小时之久。
水波可以用它的周期和波长来形容它的特性。
海啸是不同于我们在一个地方湖或在一个沿海海滩所观察到因风所引起的波浪。
一场风暴在太平洋所产生的波浪也许有大约10秒的周期和150m的波长。
而海啸的波长会超出100公里和它的周期会是大约一个小时。
当水深和波长的比率非常小的时候，它便成为浅水波运动。
由于海啸的波长十分长，它的表现是一种浅水的波运动。
浅水波运动的速度等于重力加速度与水深乘积的平方根。
第七章 波浪理论及其计算原理
第七章 波浪理论及其计算原理在自然界中；常可以观察到水面上各式各样的波动，这就是常讲的波浪运动，它造成海洋结构的疲劳破坏，也影响船的航行和停泊的安全。
波浪的动力作用也常引起近岸浅水地带的水底泥沙运动，致使岸滩崩塌，建筑物前水底发生淘刷，港口和航道发生淤积，水深减小，影响船舶的通航和停泊。
为了海洋结构物、驾驶船舶和船舶停靠码头的安全，必须对波浪理论有所了解。
一般讲，平衡水面因受外力干扰而变成不平衡状态，但表面张力、重力等作用力则使不平衡状态又趋于平衡，但由于惯性的作用。
这种平衡始终难以达到，于是，水体的自由表面出现周期性的有规律的起伏波动，而波动部位的水质点则作周期性的往复振荡运动。
这就是波浪现象的特性。
波浪可按所受外界的干扰不同进行分类。
由风力引起的波浪叫风成波。
由太阳、月亮以及其它天体引起的波浪叫潮汐波。
由水底地震引起的波浪叫地震水波由船舶航行引起的波浪叫船行波。
其中对海洋结构安全影响最大的是风成波。
风成波是在水表面上的波动，也称表面波。
风是产生波动的外界因素，而波动的内在因素是重力。
因此，从受力的来看；称为重力波。
视波浪的形式及运动的情况，波浪有各种类型。
它们可高可低，可长司短。
波可是静止的一一驻波（即两个同样波的相向运动所产生的波，也可以是移动的——推进波以一定的速度将波形不变地向一个方向传播的波），可以是单独的波，也可以是一个接一个的一系列波所组成的波群。
§7-1 液体波动理论一、流体力学基础1、速度场 描述海水质点的速度随空间位置和时间的变化规律的一个矢量。
),,,(t z y x V V =它的三个分量为：x 方向的量：),,,(t z y x u u =y 方向的量：),,,(t z y x v v =z 方向的量：),,,(t z y x w w =2、速度势 对于作无旋运动的液体，存在一个函数，它能反映出速度的变化，但仅仅是反映速度大小的变化，这个函数称为速度v的势函数，简称速度势： ),,,(t z y x φφ=3、速度与速度势的关系x u ∂∂=φ， y v ∂∂=φ， zw ∂∂=φ 二、海水运动的基本假设1、海水无粘性，只有重力是唯一的外力；2、液体自由液面上的压力为常数；3、液体波动振幅相对于波长为无限小；4、液体作无旋运动。
波浪计算公式(二)
波浪计算公式(二)波浪计算公式1. 波长计算公式•公式：波长（λ） = 速度（v） / 频率（f）•示例：如果一个波的速度是10m/s，频率为5Hz，那么波长可以计算为：λ = 10m/s / 5Hz = 2m2. 频率计算公式•公式：频率（f） = 速度（v） / 波长（λ）•示例：假设波的速度是15m/s，波长为3m，那么频率可以通过以下计算得到：f = 15m/s / 3m = 5Hz3. 速度计算公式•公式：速度（v） = 波长（λ） * 频率（f）•示例：当波长为4m，频率为2Hz时，速度可以计算如下：v = 4m * 2Hz = 8m/s4. 能量计算公式•公式：能量（E）= 振幅（A）^2 * 密度（ρ） * 波速（v） * 波速（v）•示例：如果振幅为3，密度为2kg/m^3，波速为10m/s，那么能量可以通过以下方式计算：E = (3)^2 * 2kg/m^3 * 10m/s *10m/s = 900 J5. 群速度计算公式•公式：群速度（v_g）= 速度（v） / 折射率（n）•示例：假设波的速度为20m/s，折射率为，那么群速度可以计算如下：v_g = 20m/s / = /s6. 相速度计算公式•公式：相速度（v_p）= 波长（λ） * 频率（f）•示例：如果一个波的波长为6m，频率为3Hz，那么相速度可以通过以下公式计算：v_p = 6m * 3Hz = 18m/s7. 相位差计算公式•公式：相位差（Δφ）= 2π * (距离（d）/ 波长（λ）)•示例：当两个波的距离为4m，波长为2m时，相位差可以通过以下公式计算：Δφ = 2π * (4m / 2m) = 4π8. 反射率计算公式•公式：反射率（R）= (电磁波的反射强度) / (电磁波的入射强度)•示例：如果电磁波的反射强度为10 W/m^2，入射强度为5 W/m^2，那么反射率可以计算如下：R = 10 W/m^2 / 5 W/m^2 = 2以上是一些与波浪计算相关的公式和示例解释。
海浪波长以及波浪力计算
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 0 As SigleConst Pi = 3.141592653Coist G = 9.8Con st Y = 1025Private Sub Commaid1_Click()Dim r As IitegerDo While TrueL1 = Val(I iputBox(" 请输入波长L1：", "求解设计波长：", "100"))t = Val(IiputBox(" 请输入设计波周期T：", "请输入", "6"))d = Val(I iputBox(" 请输入设计水深d：", "请输入", "20"))If L1 <= 0 Their = MsgBox("请输入一个正数！", 5,"输入错误”)If r = 2 TheiEidEid IfElseExit DoEid IfLoopk = 2 * Pi / L1kd = k * dthkd = (Exp(kd) - Exp(-kd)) / (Exp(kd) + Exp(-kd))L2 = G * (t A 2) * thkd / (2 * Pi)Do Uitil Abs(L2 - L1) < 0.001L1 = L2k = 2 * Pi / L1kd = k * dthkd = (Exp(kd) - Exp(-kd)) / (Exp(kd) + Exp(-kd))L2 = G * (t A 2) * thkd / (2 * Pi)LoopPriit "设计波长是："; L2Priit "波数："; Format$(k, "0.0000")Eid SubPrivate Sub Commaid2_Click()EidEid SubPrivate Sub Commaid3_Click()H = Val(IiputBox(" 请输入设计波高H：", "请输入", "3"))D1 = Val(IiputBox(" 请输入桩柱直径D1：", "请输入", "2"))l = Val(IiputBox(" 请输入桩柱间距l：", "请输入", "15"))If d / L2 < 0.5 ThenPrintPrint "相对水深d/L2:"; d / L2Print " 采用线性波理论计算:"ElseMsgBox " 重新选择计算理论"End IfPrint "波陡："; H / L2Print "相对柱径："; D1 / L2If D1 / L2 < 0.2 ThenPrint " 属于小直径桩柱"ElsePrint " 属于大直径桩柱"End IfCD = Val(InputBox(" 请输入拖曳力系数：", "请输入", "1.0"))CM = Val(InputBox(" 请输入质量系数：", "请输入", "2.0")) PrintPrint "选用拖曳力系数："; CDPrint "选用质量系数："; CMDim LD As SingleLD = l / D1Print " 桩柱相对间距："; LDPrint "群桩系数Ko：";If LD > 4 ThenKo = 1Print KoElseIf LD < 4 And LD > 3 ThenKo = 1.25Print KoElseIf LD < 2 ThenKo = 1.5Print KoEnd IfEnd SubPrivate Sub Command4_Click()Dim K1 As Single, K2 As Single, K3 As Single, K4 As SingleDim e As Single, 0 o As SingleK1 = (2 * k * (d + H / 2) + sh(2 * k * (d + H / 2))) / (8 * sh(2 * k * d))Fhdmax = CD * 丫* G * D1 * (H A2) * K1 / 2PrintPrint "K1 值："; Format$(K1, "0.0000")Print "单桩柱最大水平拖曳力Fhdmax："; FhdmaxK2 = th(k * d)Fhlmax = CM * 丫* G * Pi * (D1 A 2) * H * K2 / 8PrintPrint "K2 值："; Format$(K2, "0.0000")Print "单桩柱最大水平惯性力Fhlmax:"; FhlmaxK3 = (2 * (k A 2) * (d + H / 2) A 2 + 2 * k * (d + H / 2) * sh(2 * k * (d + H / 2)) - ch(2 * k * (d + H / 2)) + 1) / (32 * sh(2 * k * d))Mhdmax = CD * 丫* G * D1 * (H A 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 A 2) * H * L2 * K4 / 16PrintPrint "K4 值："; Format$(K4, "0.0000")Print "单桩柱最大水平惯性力矩Mhlmax:"; MhlmaxIf Fhlmax >= 2 * Fhdmax ThenFhmax = Fhlmax0 o = 90ElseIf Fhlmax < 2 * Fhdmax ThenFhmax = Fhdmax * ((1 + (Fhlmax / Fhdmax) A 2) / 4) 0 o = arcsin(Fhlmax / (2 * Fhdmax)) End If PrintPrint "单桩柱最大水平波力Fhmax:"; FhmaxIf Mhlmax >= 2 * Mhdmax ThenMhmax = MhlmaxElseIf Mhlmax < 2 * Mhdmax Then Mhmax = Mhdmax * ((1 + (Mhlmax / Mhdmax) A 2) / 4) End IfPrintPrint "单桩柱最大水平波力矩Mhmax:"; MhmaxPrint "最大水平波力和最大水平波力矩的相位0 o:"; 0 oe = Mhmax / FhmaxPrintPrint "最大水平波力作用点离海底的距离e:"; eEnd 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 Single arcsin = Atn(n / Sqr(-n * n + 1))End FunctionPublic Function FH( 0 ) As SingleFH = Fhdmax * Cos( 0 ) * Abs(Cos( 0 )) + Fhlmax * Sin( 0)End FunctionPublic Function MH( 0 ) As SingleMH = Mhdmax * Cos( 0 ) * Abs(Cos( 0 )) + Mhlmax * Sin( 0)End FunctionPrivate Sub Command5_Click()Dim i As Integer桌面不同相位水平波力.txt" For Output As #1 Print #1, Tab(8);"相位角0 ”； Spc(3); "cos 0 ”； Spc(3); "cos 0 |cos B |"; Spc(3); "sin 0 ' Spc(3); "Fhdmaxcos 0 |cos 0 |"; Spc(3); "Fhlmaxsin 0 "; Spc(6); "FH"For i = 0 To 180 Step 150 = i * Pi / 180Print #1, Tab(10); i; Tab(20); Format$(Cos( 0 ), "0.0000");Print #1, Tab(30); Format$(Cos( 0 ) * Abs))(,C"o0s.0(0000");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( 0 ), "0.00");Print #1, Tab(85); Format(FH( 0 ), "0.00")Next iClose #1End SubPrivate Sub Command6_Click()Dim i As Integer桌面不同相位水平波力矩.txt" For Output As #2 Print #2, Tab(8); "相位角0 "; Spc(3); "cos0 "; Spc(3); "cos0 |cos0 |"; Spc(3); "sin0 Spc(3); "Fhdmaxcos 0 |cos0 |"; Spc(3); "Mhlmaxsin 0 "; Spc(6); "MH"For i = 0 To 180 Step 150 = i * Pi / 180Print #2, Tab(10); i; Tab(20); Format$(Cos( 0 ), "0.0000");Print #2, Tab(30); Format$(Cos( 0 ) * Abs(Cos( 0 )), "0.0000");Print #2, Tab(40); Format$ (Sin( 0 ), "0.0000");Print #2, Tab(55); Format(Mhdmax * Cos( 0 ) * Abs(Cos( 0 )), "0.00");Print #2, Tab(70); Format(Mhlmax * Sin( 0 ), "0.00");Print #2, Tab(85); Format(MH( 0 ), "0.00")Next iClose #2End SubPrivate Sub Command7_Click()Dim y As SingleDim 刀H As SingleDim i As IntegerDim t As Single, m As Integery = l * 360 / L2PrintPrint "前后两桩柱的波浪位相差y ：t = 0For i = 0 To 180 - y刀H = FH(i) + FH(i + y )If t < 刀H Thent =刀Hm = iEnd IfNext iPrint "发生最大水平合波力的相位："; m Print "前后两桩柱的最大水平合波力为：End SubPrivate Sub Command8_Click()ClsEnd SubPrivate Sub Command9_Click()Dim y As SingleDim 刀M As SingleDim i As IntegerDim t As Single, m As Integery = l * 360 / L2t = 0For i = 0 To 180 - y刀M = MH(i) + MH(i + y )If t < 刀M Thent =刀Mm = iEnd IfNext iPrintPrint "发生最大水平合波力矩的相位：";Print "前后两桩柱的最大水平合波力矩为：End Sub m "; t海洋环境作业计算结果:nl■ □ X---------- --------------- • --------------0.114254.99825计嶷长|2g : 0,9795单癡果縣平惯性加h 歸：92730.2 A 0.1807单榊撮大术平拖曳力矩》湎：2860013 1.4395郸椎最大水平惯性力矩IhlmH ： 1192875ip ： 98J8495 应:19 粧力为：75446.48单竝最尢水理加血吆92T30.2 瓣删瓢略9。
海浪谱公式总结-精品
式中：-0.26<ω-ωp<1.65, Hs为有效波高；ωp为谱峰频率。 此谱和北大西洋以及印度西海岸实测谱符合得很好。
9.六参数谱
7.Bretschneider谱
布氏于1959年由无因次波高和无因次波长的联合分布函数导出二参数 谱，适用于成长阶段或者充分成长的风浪。后经日本光易恒(Mitsuyasu)改进 如下：
S f
0.257TH2Hs1/3
2
1 f5
TH1/3
exp1.03
1 TH1/
3
4
S
400.5
Hs T2
H1/3
2
1
5
exp1605TH11/34
式中：Hs为有效波高，表示波列中波高最大的1/3波浪的平均波高； TH1/3为有效波周期，表示波列中波高最大的1/3波浪周期的平均值。
8.斯科特谱
斯科特(Scott，1965)对于充分发展的海浪建议用下列谱公式:
1.Neumann谱
由半经验的方法，假定海浪的某些外观特征反映其内部结构，由 观测到的波高和周期间的关系推导出来。于50年代首先提出。
SC416expU22g22
式中：U为海面上7.5米高处的风速；常数C=3.05m/s2
2.P-M谱
皮尔逊和莫斯克维奇根据在北大西洋一定点上测得的大量数据，于1964 年提出。适用于充分成长的海浪。
D(ω,θ)的一般形式为： D, kncon s (|θ|≤π)
国际船舶结构协会会议(ISSC)建议用一下两种n值
n=2, k2=2/π; n=4, k4=8/3π;
(完整版)波浪理论
波浪理论目前被广泛应用的波浪理论的研究经历了从规则波到随机波的过渡，规则波理论的特点是将海浪运动看成确定的函数形式，通过流体力学分析研究各种情况下波浪的动力学性质和运动规律。
规则波理论的研究始于19世纪，至今为止，经历了由线性理论向非线性理论及湍流理论发展的过程。
其理论主要包括微幅波理论(Airy理论)、Stokes波理论、椭圆余弦波理论、孤立波理论等。
微幅波理论是应用势函数来研究波浪运动的一种线性波浪理论，是波浪理论中最基本、最重要的内容，也是近海工程中应用的最广泛的部分。
1887年英国流体力学家Stokes提出了Stokes波理论，在近海工程计算中，人们常采用高阶Stokes波应用于最大波的计算公式。
Stokes波没有考虑水深变化对结果的影响，只适用于一般水深的情况。
在浅水情况下，用Stokes波理论达不到所要求的精度，如果采用能反映决定波动性质的主要因素的椭圆余弦波理论描述波浪运动，可以获得较满意的结果。
椭圆余弦波理论最早是在1895年由Korteweg等提出的，其后由Keulegan等进一步研究并使之适用于工程实践。
各种波浪理论的比较目前虽有许多人对各种波浪理论的适用范围进行过研究，但由于采用的判据各不相同，得出的结果也差别较大，波浪理论的适用范围依然只能定性分析。
现在只能确定椭圆余弦波一般用于浅水区，孤立波一般适用于近岸浅水区且周期波的波峰能量占全波能量的90%以上的情况，微幅波一般适用于深水区，而对于有限水深区，情况则较为复杂，多种波浪理论的适用范围在此交叉，需要依照实际工况进行分析才能选取合适的波浪理论。
1. 波浪理论的选用目前，常用的波浪理论主要有艾利波(Airy)理论(又称线性波理论或正弦波理论)、斯托克斯(Stokes)高阶波理论、椭圆余弦波理论、孤立波理论。
各波浪理论都是通过假设与简化得到的，基于不同的假设与简化，理论计算结果有别，也各有适用范围。
为了确定各种波浪理论的适用范围，不少研究者进行了理论分析或试验观测。
海边技术指标公式
海边技术指标公式1. 海浪海浪是海边工程中最重要的一个技术指标，它对于海边结构物的稳定性和抗风浪能力有直接影响。
海浪的主要参数包括波高、波长、波速等，其中波高是最常用的指标。
海浪波高的公式一般表示为：\[ H = aT^b \]其中，H为波高，a和b为系数，T为波周期。
在实际应用中，根据实测数据和不同海域的特点，可以通过拟合得到不同地区的海浪波高公式，以便进行工程设计和预测。
2. 潮汐潮汐是海边工程中另一个重要的技术指标，它对于海岸线的侵蚀、港口的淤积等有很大影响。
潮汐的主要参数包括潮位、涨落幅度、潮汐周期等。
潮汐的公式一般表示为：\[ H_t = A + Bt + Ct^2 \]其中，H为潮汐高度，t为时间，A、B、C为系数。
潮汐的周期性和规律性使得可以通过数学模型和实测数据计算得到潮汐的预测公式，以便为海边工程提供参考。
3. 风速风速是海边工程中另一个重要的技术指标，它对于海上设施的稳定性和强度有直接影响。
风速的主要参数包括平均风速、最大风速等。
风速的公式一般表示为：\[ V = A + Bt + Ct^2 \]其中，V为风速，t为时间，A、B、C为系数。
根据不同地区的气候特点和实测数据，可以得到各种不同风速的预测公式，以便为海边工程的设计和施工提供参考。
4. 海水盐度和温度海水盐度和温度是海边工程中另外两个重要的技术指标，它们对于海洋生态系统的稳定和海边工程设施的耐腐蚀性有直接影响。
海水盐度和温度的公式一般表示为：\[ S = A + Bt + Ct^2 \]\[ T = A + Bt + Ct^2 \]其中，S为海水盐度，T为海水温度，t为时间，A、B、C为系数。
根据海水盐度和温度的变化规律和实测数据，可以得到海水盐度和温度变化的预测公式，以便为海边工程的设计和施工提供参考。
总结海边技术指标是海洋工程中至关重要的一部分，通过对海浪、潮汐、风速、海水盐度和温度等多个技术指标进行准确评估和监测，可以为海边工程的设计、施工和运营提供可靠的参考。
第七章波浪理论及其计算原理
第七章波浪理论及其计算原理波浪理论是研究波浪形成、传播和破裂等现象的科学原理，对于海洋工程和沿海管理等领域具有重要的理论和实践价值。
本文将介绍波浪理论的基本概念和计算原理。
波浪是海洋中的一种能量传递现象，起源于外力（如风力、地震等）作用下的海面扰动。
波浪的基本特征包括波长、波速和振幅等。
波长是波浪周期内的长度，波速是波浪传播的速度，振幅是波浪表面的最大偏离点到平衡位置的距离。
波浪通常可以分为长波和短波两种类型，其中短波的波长小于水深，长波的波长大于水深。
波浪的传播可以用波动方程描述，该方程是偏微分方程，一般通过数值模拟方法求解。
常见的模拟方法包括有限差分法、有限元素法和边界元法等。
这些方法通常将水面划分为离散的网格点，并对每个网格点上的物理量进行数值计算，以模拟波浪传播过程。
在波浪的计算中，波浪的非线性效应需要被考虑。
当波浪振幅较大时，非线性效应变得显著，会影响波浪的传播速度和波形等特性。
为了考虑非线性效应，可以使用第二非线性浅水波方程进行计算。
该方程是波浪高度和波速的非线性方程，对于大振幅波浪的传播比较准确。
此外，波浪的计算还要考虑海底形态的影响。
海底形态会对波浪的传播和破裂产生重要影响。
常用的海底模型包括等水深模型和坡度模型等，通过这些模型可以计算出波浪在不同海底形态下的传播和破裂特性。
波浪理论的计算结果可以应用于海洋工程和沿海管理中。
例如，在海岸防护工程设计中，需要考虑波浪对海堤和海岸线的冲击力，以确定结构物的强度和稳定性。
此外，在港口和航道设计中，需要根据波浪特性确定港口和航道的布置和尺寸，以保障船只的安全进出。
综上所述，波浪理论是研究波浪形成、传播和破裂等现象的科学原理。
通过对波浪的计算，可以获得波浪的传播和破裂特性等重要参数，为海洋工程和沿海管理提供科学依据。
随着计算方法的不断改进和计算能力的提高，波浪理论的研究将进一步发展，为实际应用提供更准确的结果和更可靠的支持。
不规则波浪长度计算公式
不规则波浪长度计算公式不规则波浪长度计算公式是用于测量海洋表面上波浪的长度的一种方法。
由于海洋表面上的波浪通常是不规则的，所以无法直接使用传统的测量方法来得到准确的波浪长度。
不规则波浪长度计算公式是通过分析波浪的特征来计算波浪长度。
下面将介绍两种常用的不规则波浪长度计算公式。
第一种不规则波浪长度计算公式是基于波峰和波谷之间的距离来计算波浪长度的。
在海洋表面上，波峰和波谷是波浪的两个基本特征，其波峰和波谷之间的距离可以用来表示波浪的长度。
计算波浪长度的公式可以表示为：L=1/n*∑d其中，L是波浪的长度，n是波浪中波峰和波谷的数量，d是每个波峰和相邻波谷之间的距离。
通过计算所有波峰和波谷之间的距离，并取其平均值，就可以得到波浪的长度。
第二种不规则波浪长度计算公式是基于波浪的频谱分析来计算波浪长度的。
频谱分析是将不规则波浪分解为一系列频率成分的方法，通过对波浪频谱进行分析可以得到波浪的长度。
计算波浪长度的公式可以表示为：L=2π/k其中，L是波浪的长度，k是波浪的波数。
波数是波长的倒数，表示单位波长中所包含的波数。
通过计算波数的倒数和2π之比，就可以得到波浪的长度。
不规则波浪长度计算公式是从波峰和波谷之间的距离以及波浪的频谱分析两个方面来计算波浪长度的。
这两种方法都可以得到相对准确的波浪长度，但在实际应用中需要根据不同的情况选择合适的方法进行计算。
除了波峰和波谷之间的距离和波浪频谱分析之外，还有其他方法可以用于计算不规则波浪的长度，如波速传播方向、波浪群速度等。
这些方法在不同的研究领域和实际应用中有着广泛的应用。
风浪计算公式
风浪计算公式1. 莆田试验站法：⎪⎪⎭⎪⎪⎬⎫⎪⎪⎩⎪⎪⎨⎧⎥⎥⎦⎤⎢⎢⎣⎡⎪⎭⎫ ⎝⎛⎪⎭⎫ ⎝⎛⎥⎥⎦⎤⎢⎢⎣⎡⎪⎭⎫ ⎝⎛=7.0245.027.0227.013.00018.07.013.0W gH th W gD th W gH th W gh m m m5.0438.4m m h T =⎪⎪⎭⎫⎝⎛=m mm L H th gT L ππ222式中，m h ——平均波高，m ；m L ——平均波长，m ； m T ——平均波周期，s ；W ——计算风速，m/s ；D ——风区长度（吹程），m ； m H ——水域平均水深，m ；g ——重力加速度，取9.81m/s 2。
对于深水波，即当m L H 5.0≥时（H 为迎水面前水深），波长计算可简化为：π22mm gT L =按照规范规定采用累计频率为1%的波高，对应于平均波高应乘以系数2.42。
2. 对于丘陵、平原地区水库，当W<26.5m/s 、D<7500m 时，可采用鹤地水库公式：312612%200625.0⎪⎭⎫ ⎝⎛=-W gD W W gh 21220386.0⎪⎭⎫ ⎝⎛=W gD W gL m式中，%2h ——累计频率为2%的波高，对应于累计频率为1%的波高应乘以系数1.085。
3. 对于内陆峡谷水库当W<20m/s 、D<20000m 时，可采用官厅水库公式：31212120076.0⎪⎭⎫ ⎝⎛=-W gD W W gh 75.31215.212331.0⎪⎭⎫ ⎝⎛=-W gD W W gL m式中，h ——当250~202=W gD时，为累计频率5%的波高%5h ，m ；当1000~2502=WgD时，为累计频率10%的波高%10h ，m 。
根据规范应换算为累计频率为1%的波高，对应于5%的波高应乘以系数1.241；对应于10%的波高应乘以系数1. 415。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
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 0 As SigleConst Pi = 3.141592653Coist G = 9.8Con st Y = 1025Private Sub Commaid1_Click()Dim r As IitegerDo While TrueL1 = Val(I iputBox(" 请输入波长L1：", "求解设计波长：", "100"))t = Val(IiputBox(" 请输入设计波周期T：", "请输入", "6"))d = Val(I iputBox(" 请输入设计水深d：", "请输入", "20"))If L1 <= 0 Their = MsgBox("请输入一个正数！", 5,"输入错误”)If r = 2 TheiEidEid IfElseExit DoEid IfLoopk = 2 * Pi / L1kd = k * dthkd = (Exp(kd) - Exp(-kd)) / (Exp(kd) + Exp(-kd))L2 = G * (t A 2) * thkd / (2 * Pi)Do Uitil Abs(L2 - L1) < 0.001L1 = L2k = 2 * Pi / L1kd = k * dthkd = (Exp(kd) - Exp(-kd)) / (Exp(kd) + Exp(-kd))L2 = G * (t A 2) * thkd / (2 * Pi)LoopPriit "设计波长是："; L2Priit "波数："; Format$(k, "0.0000")Eid SubPrivate Sub Commaid2_Click()EidEid SubPrivate Sub Commaid3_Click()H = Val(IiputBox(" 请输入设计波高H：", "请输入", "3"))D1 = Val(IiputBox(" 请输入桩柱直径D1：", "请输入", "2"))l = Val(IiputBox(" 请输入桩柱间距l：", "请输入", "15"))If d / L2 < 0.5 ThenPrintPrint "相对水深d/L2:"; d / L2Print " 采用线性波理论计算:"ElseMsgBox " 重新选择计算理论"End IfPrint "波陡："; H / L2Print "相对柱径："; D1 / L2If D1 / L2 < 0.2 ThenPrint " 属于小直径桩柱"ElsePrint " 属于大直径桩柱"End IfCD = Val(InputBox(" 请输入拖曳力系数：", "请输入", "1.0"))CM = Val(InputBox(" 请输入质量系数：", "请输入", "2.0")) PrintPrint "选用拖曳力系数："; CDPrint "选用质量系数："; CMDim LD As SingleLD = l / D1Print " 桩柱相对间距："; LDPrint "群桩系数Ko：";If LD > 4 ThenKo = 1Print KoElseIf LD < 4 And LD > 3 ThenKo = 1.25Print KoElseIf LD < 2 ThenKo = 1.5Print KoEnd IfEnd SubPrivate Sub Command4_Click()Dim K1 As Single, K2 As Single, K3 As Single, K4 As SingleDim e As Single, 0 o As SingleK1 = (2 * k * (d + H / 2) + sh(2 * k * (d + H / 2))) / (8 * sh(2 * k * d))Fhdmax = CD * 丫* G * D1 * (H A2) * K1 / 2PrintPrint "K1 值："; Format$(K1, "0.0000")Print "单桩柱最大水平拖曳力Fhdmax："; FhdmaxK2 = th(k * d)Fhlmax = CM * 丫* G * Pi * (D1 A 2) * H * K2 / 8PrintPrint "K2 值："; Format$(K2, "0.0000")Print "单桩柱最大水平惯性力Fhlmax:"; FhlmaxK3 = (2 * (k A 2) * (d + H / 2) A 2 + 2 * k * (d + H / 2) * sh(2 * k * (d + H / 2)) - ch(2 * k * (d + H / 2)) + 1) / (32 * sh(2 * k * d))Mhdmax = CD * 丫* G * D1 * (H A 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 A 2) * H * L2 * K4 / 16PrintPrint "K4 值："; Format$(K4, "0.0000")Print "单桩柱最大水平惯性力矩Mhlmax:"; MhlmaxIf Fhlmax >= 2 * Fhdmax ThenFhmax = Fhlmax0 o = 90ElseIf Fhlmax < 2 * Fhdmax ThenFhmax = Fhdmax * ((1 + (Fhlmax / Fhdmax) A 2) / 4) 0 o = arcsin(Fhlmax / (2 * Fhdmax)) End If PrintPrint "单桩柱最大水平波力Fhmax:"; FhmaxIf Mhlmax >= 2 * Mhdmax ThenMhmax = MhlmaxElseIf Mhlmax < 2 * Mhdmax Then Mhmax = Mhdmax * ((1 + (Mhlmax / Mhdmax) A 2) / 4) End IfPrintPrint "单桩柱最大水平波力矩Mhmax:"; MhmaxPrint "最大水平波力和最大水平波力矩的相位0 o:"; 0 oe = Mhmax / FhmaxPrintPrint "最大水平波力作用点离海底的距离e:"; eEnd 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 Single arcsin = Atn(n / Sqr(-n * n + 1))End FunctionPublic Function FH( 0 ) As SingleFH = Fhdmax * Cos( 0 ) * Abs(Cos( 0 )) + Fhlmax * Sin( 0)End FunctionPublic Function MH( 0 ) As SingleMH = Mhdmax * Cos( 0 ) * Abs(Cos( 0 )) + Mhlmax * Sin( 0)End FunctionPrivate Sub Command5_Click()Dim i As Integer桌面不同相位水平波力.txt" For Output As #1 Print #1, Tab(8);"相位角0 ”； Spc(3); "cos 0 ”； Spc(3); "cos 0 |cos B |"; Spc(3); "sin 0 ' Spc(3); "Fhdmaxcos 0 |cos 0 |"; Spc(3); "Fhlmaxsin 0 "; Spc(6); "FH"For i = 0 To 180 Step 150 = i * Pi / 180Print #1, Tab(10); i; Tab(20); Format$(Cos( 0 ), "0.0000");Print #1, Tab(30); Format$(Cos( 0 ) * Abs))(,C"o0s.0(0000");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( 0 ), "0.00");Print #1, Tab(85); Format(FH( 0 ), "0.00")Next iClose #1End SubPrivate Sub Command6_Click()Dim i As Integer桌面不同相位水平波力矩.txt" For Output As #2 Print #2, Tab(8); "相位角0 "; Spc(3); "cos0 "; Spc(3); "cos0 |cos0 |"; Spc(3); "sin0 Spc(3); "Fhdmaxcos 0 |cos0 |"; Spc(3); "Mhlmaxsin 0 "; Spc(6); "MH"For i = 0 To 180 Step 150 = i * Pi / 180Print #2, Tab(10); i; Tab(20); Format$(Cos( 0 ), "0.0000");Print #2, Tab(30); Format$(Cos( 0 ) * Abs(Cos( 0 )), "0.0000");Print #2, Tab(40); Format$ (Sin( 0 ), "0.0000");Print #2, Tab(55); Format(Mhdmax * Cos( 0 ) * Abs(Cos( 0 )), "0.00");Print #2, Tab(70); Format(Mhlmax * Sin( 0 ), "0.00");Print #2, Tab(85); Format(MH( 0 ), "0.00")Next iClose #2End SubPrivate Sub Command7_Click()Dim y As SingleDim 刀H As SingleDim i As IntegerDim t As Single, m As Integery = l * 360 / L2PrintPrint "前后两桩柱的波浪位相差y ：t = 0For i = 0 To 180 - y刀H = FH(i) + FH(i + y )If t < 刀H Thent =刀Hm = iEnd IfNext iPrint "发生最大水平合波力的相位："; m Print "前后两桩柱的最大水平合波力为：End SubPrivate Sub Command8_Click()ClsEnd SubPrivate Sub Command9_Click()Dim y As SingleDim 刀M As SingleDim i As IntegerDim t As Single, m As Integery = l * 360 / L2t = 0For i = 0 To 180 - y刀M = MH(i) + MH(i + y )If t < 刀M Thent =刀Mm = iEnd IfNext iPrintPrint "发生最大水平合波力矩的相位：";Print "前后两桩柱的最大水平合波力矩为：End Sub m "; t海洋环境作业计算结果:nl■ □ X---------- --------------- • --------------0.114254.99825计嶷长|2g : 0,9795单癡果縣平惯性加h 歸：92730.2 A 0.1807单榊撮大术平拖曳力矩》湎：2860013 1.4395郸椎最大水平惯性力矩IhlmH ： 1192875ip ： 98J8495 应:19 粧力为：75446.48单竝最尢水理加血吆92T30.2 瓣删瓢略9。