- 在线时间
- 1630 小时
- 最后登录
- 2024-1-29
- 注册时间
- 2017-5-16
- 听众数
- 82
- 收听数
- 1
- 能力
- 120 分
- 体力
- 557611 点
- 威望
- 12 点
- 阅读权限
- 255
- 积分
- 172656
- 相册
- 1
- 日志
- 0
- 记录
- 0
- 帖子
- 5313
- 主题
- 5273
- 精华
- 18
- 分享
- 0
- 好友
- 163
TA的每日心情 | 开心 2021-8-11 17:59 |
---|
签到天数: 17 天 [LV.4]偶尔看看III 网络挑战赛参赛者 网络挑战赛参赛者 - 自我介绍
- 本人女,毕业于内蒙古科技大学,担任文职专业,毕业专业英语。
 群组: 2018美赛大象算法课程 群组: 2018美赛护航培训课程 群组: 2019年 数学中国站长建 群组: 2019年数据分析师课程 群组: 2018年大象老师国赛优 |
7 F) ^: k( U, b/ u) n5 L0 V【数学建模】基于matlab三维海浪模型仿真【含Matlab源码 1159期】
4 ]" b/ y+ C( ~3 a& N+ |: k一、简介0 p) ?6 N% J) ?
基于matlab三维海浪模型仿真:海洋工程领域中的浮式结构物设计,需要精确计算海浪载荷,保证满足稳定性和安全性.该文利用MATLAB对Longuet-Higgins长峰波海浪模型和三维不规则短峰波随机海浪模型进行了仿真研究.结果表明,利用海浪谱来模拟三维随机海浪能够得到比较精确的海浪波面图和波高值,进一步根据流体的势流理论就可以分析计算出该结构物受到的海浪载荷,为校验结构物的结构强度提供了必要的基础。2 X/ |& G' D- F- }* t+ v
8 s% m3 d/ d' o) N, X9 c( k7 q+ X/ r/ ? S* Z9 L E H
二、源代码0 d. O% }2 _) \5 E5 K3 E$ m
clear all;
5 e1 t- L, n. q, U, E) k5 pclose all;
: M# h! V8 [3 |5 \7 ` Z
: I3 M# D* v, H* Z6 S x
& S- N+ a8 W- G: W+ e# a# dnhFig = 0; % Figure Number;0 X3 h1 h: Q4 R7 r% S- Q! n6 p
SeaRegLx = 40e+3; % Sea region length, unit: m1 R3 h# j+ X! Y) B# t
SeaRegLy = 40e+3; % Sea region length, unit: m
! {6 V* @' h5 b& d% 根据频域采样定理,在确定采样周期即波束的足迹宽度之后," C% [5 z4 E: n8 n/ Z! C
% 可以利用时域采样的采样点数目(通过空间频谱的宽度即根据时域采样定理计算出采样点数),实现频域采样.+ [- G1 l1 R. j& _: ], J+ T
% 对于海洋波谱而言,波谱宽度是非常宽的,因此其波谱宽度一般是指包括了大部分能量(或者说主要的能量部分)的不完全谱宽度3 p0 M. |# V6 |
% 所以这里事先根据波谱函数计算主要能量部分对应的谱宽度
- U3 d9 }+ G! L4 T0 OxSampleStep = 50; % unit: m f5 v0 I. L9 [- a# i
ySampleStep = 50;/ W( R. ~/ [! l. l& S0 c' y! }: H( M8 O
xNs = round( SeaRegLx / xSampleStep );
$ N. H' @' Y7 y6 HyNs = round( SeaRegLy / ySampleStep );- j5 r8 G5 f+ F8 k4 ?
* |3 K4 V/ l; G2 |' T9 Q
7 P! J# o, }; G# M4 Tx = linspace( -SeaRegLx / 2, SeaRegLx / 2, xNs );! T" o1 X1 U, L" c$ n' g% m/ B
y = linspace( -SeaRegLy/ 2, SeaRegLy / 2, yNs );
K- W5 ~. I/ o5 l/ V/ ^$ L
( H( x( A& Y5 d6 Z2 I! I; p' m$ h- p5 X4 n) T/ F% Q
% 海浪谱仿真* A/ x$ P& T N$ ^7 U! C
g = 9.8; % gravity acceleration
8 O% F6 K+ W7 I+ H' ?; }; a% swell wave spectrum parameter
& Z+ j- X4 M$ J, KSwellWaveLength = 1000; % 涌浪波长
$ E3 @+ I4 C& U0 w6 F( Z0 mKswellWavePeak = 2 * pi / SwellWaveLength;- A/ A% ]7 k5 G: }0 v: P3 f
SwellAngled=0;
- j* o. ]) z4 m6 M. Q! [2 MSwellAngle = SwellAngled/ 180 * pi; % 涌浪与观测向夹角+ o4 Z* K' K6 B) u0 n8 L
KxswellWavePeak = KswellWavePeak * cos( SwellAngle );( e- ?/ t3 i2 O4 M) I+ G1 o" }
KyswellWavePeak = KswellWavePeak * sin( SwellAngle );
. A0 c' w c; }SigmaKx = 2.5e-3; % 涌浪谱宽度( D6 a# e2 x- Y
SigmaKy = 2.5e-3;
# n& ? M! }* _SigmaHSwell = 2; %涌浪波高
* c9 } t7 g7 T5 E& N% wind wave spectrum parameter3 Y, d( m! ^# r: |$ L' b4 o! |
WindAngle = 45 / 180 * pi; % 风向与观测向夹角
' Z, e! @$ S% b' UU10 = 12; % 10米高处海面风速 % 5m/s, 10m/s, 15m/s 的风浪谱宽度分别为 1.5, 0.4, 0.15.对应的最大空间采样间隔为2m, 10m, 20m0 R! I. i6 }4 \$ O: w) {
KwindPeak = g / ( 1.2 * U10 )^2;) {# A! T& x5 H$ d
% sea wave spectrum parameter
8 ]. V: T) _& l0 l1 x% E, lNxSeaWave = xNs; % 频域采样点数,方便傅立叶变换# m( i* ]7 |6 L1 W3 V" T
NySeaWave = yNs;
$ `# U, R% q' N( @2 \6 C L9 bKxSeaWave = 2 * pi / SeaRegLx * ( -xNs / 2 : 1 : xNs / 2 - 1 );
. Q. k- P% Y0 U* ]% mKySeaWave = 2 * pi / SeaRegLy * ( -yNs / 2 : 1 : yNs / 2 - 1 );# ^* }, A! @* t7 d7 v. C6 c
KxSeaWaveTicks = KxSeaWave;5 {" U( w8 {# w) I
KySeaWaveTicks = KySeaWave;' K! ] C; R# `1 y/ j- \2 M
KxSeaWave = ( KxSeaWave == 0 ) * ( max( KxSeaWave ) * 1e-16 ) + KxSeaWave; % avoid divided by 07 t2 f: v5 A+ M: f B) s
KySeaWave = ( KySeaWave == 0 ) * ( max( KySeaWave ) * 1e-16 ) + KySeaWave; % avoid divided by 0* x' ~, L3 A2 U, L: A( O1 ~
* j3 N+ I6 v! R9 G1 T8 g
; ~+ J W# f6 k7 O% swell wave spectrum
; K) [3 m; Z9 ZSpectrumSwell = zeros( NySeaWave, NxSeaWave );, |7 I* f# H! d
Temp1 = ones( NySeaWave, 1 ) * ( KxSeaWave - KxswellWavePeak ) / SigmaKx;& G8 y0 Z" m1 ^" c- y2 C
Temp2 = ( KySeaWave - KyswellWavePeak )' / SigmaKy * ones( 1, NxSeaWave );; ~, Y7 g0 @; Q' n5 `8 S" u5 i
SpectrumSwell = SigmaHSwell^2 / 2 / pi / SigmaKx / SigmaKy * exp( -0.5 * ( Temp1.^2 + Temp2.^2 ) );, \% D+ W! O% \4 X0 X
clear Temp1;
# [) a0 n, g' D: f$ A% `; y& l2 v, @clear Temp2;2 A$ ]$ O) t- X3 o" ~% C3 _
figure;
. J }- p4 J! X% G5 @& Kcolormap(gray(256));
+ W. |. r% R8 Zimage( KxSeaWave, KySeaWave, 256 - 255 / ( max( max( abs( SpectrumSwell ) ) ) - min( min ( abs( SpectrumSwell ) ) ) ) * ( abs( SpectrumSwell ) - min( min ( abs( SpectrumSwell ) ) ) ) );
0 D+ q( {% d5 W% n# zaxis('xy');
' b! y$ v2 ?% S1 v( Y2 yxlabel( 'kx:X方向波数');+ {, ]# b: ~! d3 z, B# \, @
ylabel( 'ky:Y方向波数');/ w5 _+ F t9 v- k! S1 u
title( '涌浪谱');# \) T' v* \' q% _, }
8 _ i% b) q$ n% v
- o- n; j/ }, S' I/ t d7 Z
KxSeaWaveMatrix = ones( NySeaWave, 1 ) * KxSeaWave;5 r3 \0 |- L* b) {5 V7 y1 C
KySeaWaveMatrix = KySeaWave' * ones( 1, NxSeaWave );; \6 n3 K* F+ d; i I. I. L, j
KSeaWaveTemp1 = ( sqrt( KxSeaWaveMatrix.^2 + KySeaWaveMatrix.^2 ) );
( D" Y* I l1 v/ z- }Fwk1 = exp( - 1.22 * ( sqrt( KSeaWaveTemp1 ./ KwindPeak ) -1 ).^2 );$ T' M# f3 C: ?" \ y( |: I. @
HKKpx1 = 1.24 * ( ( KSeaWaveTemp1 / KwindPeak < 0.31 ) & ( KSeaWaveTemp1 / KwindPeak >= 0 ) );
& W6 ]; F; ]% @+ XHKKpx2 = 2.61 * ( ( KSeaWaveTemp1 / KwindPeak ).^0.65 ) .* ( ( KSeaWaveTemp1 / KwindPeak < 0.9 ) & ( KSeaWaveTemp1 / KwindPeak >= 0.31 ) );, u* w4 w* I5 t, \, R8 P
HKKpx3 = 2.28 * ( ( KSeaWaveTemp1 / KwindPeak ).^( -0.65 ) ) .* ( KSeaWaveTemp1 / KwindPeak >= 0.9 );
+ r: Z) Y, p+ R9 C+ JHKKp1 = HKKpx1 + HKKpx2 + HKKpx3;0 ]% `5 R. ^: d/ o
Temp1x = 1.62 * 1e-3 * U10 / ( g^0.5 ) ./ ( KSeaWaveTemp1 ).^3.5;+ f1 j1 Y# K+ |; P \* S4 A
Temp2x = exp( -( KwindPeak ./ KSeaWaveTemp1 ).^2 ) .* ( 1.7 .^ Fwk1 );* A( |" O. {( k) k7 I5 p
Temp3x = ( HKKp1 .* ( sech( ( HKKp1 .* ( atan( ( KySeaWaveMatrix ./ KxSeaWaveMatrix ) ) - WindAngle ) ) ) ).^2 );
9 R3 \; n/ F, Q1 r9 G% SpectrumWind1 = ( Temp1x .* Temp2x .* Temp3x )';. ~% n" _# m. n2 X( A: i5 K9 A4 |. g
fid=fopen('sea_top_wl1000_wh50m.dat','w')
) B( {7 j5 [5 J+ {4 Jfprintf(fid,'%10.5f\n',real(wh));3 V+ {: s5 A' B% S; u! s; D
status=fclose(fid);/ P3 m; J2 {2 Q( v
9 W, Y# D6 d; W t i
1 L" s! m0 z' A+ _
fid=fopen('sea_top_wl1000_wh50m.dat','r');
! f& G: H2 _' Qsea_dem=fscanf(fid,'%g',[800,800]);( O' N7 t; T6 W- M" `
fclose(fid);' n1 Q x# c0 T9 c
%image( x, y, 256 - 255 / ( max( max( real( sea_dem ) ) ) - min( min ( real( sea_dem ) ) ) ) * ( real( sea_dem ) - min( min ( real( sea_dem ) ) ) ) );
0 `/ A. G: D: m8 h1 [% 6 R$ X3 a1 D+ T5 h
mesh(sea_dem)
h1 ^) _+ |( [: h* a8 R1 x colorbar o% U$ D6 H/ T2 p' |- s# ^7 {- i
% view(0,90) ~. p3 k- G1 l( o& Z; r/ `0 e
%colormap(gray)5 k# V. D- w" |. e1 |+ t+ Q% c
% This function computes the non-coherent integration improvment3 S' H1 ^# w& z3 U/ a1 ]$ M9 i
% factor using the empirical formula defind in Eq. (2.48)
( Q6 I( j. S) h$ |0 g& K7 tfact1 = 1.0 + log10( 1.0 / pfa) / 46.6;' l n P6 e. T; R1 Q
fact2 = 6.79 * (1.0 + 0.235 * pd);. Z) q6 W# S4 R: W" }" g* ~
fact3 = 1.0 - 0.14 * log10(np) + 0.0183 * (log10(np))^2;* }- o7 M* B- D% n6 S
impr_of_np = fact1 * fact2 * fact3 * log10(np);
7 S3 A' d$ a1 D$ s5 M4 g9 Hreturn
% j8 l4 A6 c" d% C$ F4 Z/ T I/ Y( ^
( T3 w( E$ b, h% SpectrumWind = SpectrumWind1';
6 a; {4 w; _- r$ h: {& hSpectrumWind = Temp1x .* Temp2x .* Temp3x;8 \* J" H, R/ E, y' k* H: p$ Q
clear KSeaWaveTemp1 Fwk1 HKKpx1 HKKpx2 HKKpx3 HKKp1 Temp1x Temp2x Temp3x;: B- s/ x/ i8 f" B/ U
5 f- }( p z8 _/ c" z. b4 |
. T8 b" a" P! b' |4 m1 ^- k12 e! s0 B5 T* Q. ]3 ^
2+ d/ Z5 q" a8 c
3! G) F3 v( N3 ]* f2 b
4% }; O8 C, k z \/ M% d
5
: x7 W0 e4 m+ T+ c* V, _6 _; L+ N6. Q7 h9 q% C O3 O
73 C0 x9 [6 w: K4 r
8/ K" v) C/ _; q) f. E
9
g8 y7 [( H1 D+ \8 t10! f' t/ _% Y: W" ~5 r
11
0 }% T. S5 U+ c ]; l120 G4 b6 G) ]5 d [9 m
13
# F- Q- T5 {: p: O. l14
9 g, L( k, ?- Q, h5 ?& t15( m% P8 y5 t5 M8 a5 M
167 ? j, Z/ ], q7 p; P6 t
17) z; k& U% h! t9 d* [- k+ ]
18! P% i: b5 i) Z5 X/ W* m3 O S
197 r9 S, z- U5 b/ R
20
8 ^- o ]+ f4 e; \8 a21
0 Y# ]$ a) x% c, Q221 ~5 ?/ s8 s1 U) V4 M- p
23
) s: c z3 E2 o24
& ], k: G; E$ U& E4 ~% w" ?( |25" U+ w* h+ {! |5 v5 w0 r! [/ h0 a8 n
26
/ X. S9 U4 t* Y1 n7 b273 b1 j& h$ H7 h5 O/ H8 }
28$ a$ f8 B* B( F2 O$ G
29, D' B R: ?& _- Q9 q
30
% Y. h: p0 }* P* T i4 a8 D! u" `31/ O1 f3 K, h: H7 u4 k
32
& g7 V) w$ g/ i0 {. w* `: C! F( N33
7 a! }/ I/ G, w" W' V' [34
, b. P; c- i: ]$ J& R35
* s: U# S9 N& l+ n, q$ s% r! P% A363 m7 Y6 C! A" M* e& P
37" L' Z Y1 V8 M$ U0 R5 D) p5 `* O
383 i* s4 k+ ^2 b; j* K
393 |1 z/ B+ c1 v t
40! h' r! u7 e( I9 G7 ` u7 C
41) v' i6 I& b1 i) j* q) V
42
7 g# t% |7 I, {, k9 t s. r43
7 ^3 e, \: b: L, | E440 v, s+ O7 E' D/ N1 K
45% y3 f4 B% ^! r- m# g6 t9 ^- H
460 m9 l: t3 h; Q3 ~- z; F% e9 ^1 [
47
3 B* c% |' w! v* J& p0 f48
. ~4 {$ H/ P, S) h: f% {49+ ^1 |- o3 L$ j( V
50
9 z1 ^ U$ Z4 b g0 F513 P, b! G1 S4 c( o& s# t
52
6 g7 e2 U& a! k" ~ L- m53
4 m* d, q6 i5 c0 _5 @1 ^; z54
( r3 M4 h' F* K1 t55
: m! z5 ]/ D: r, G3 X3 H2 J- D5 C: ~( L56
+ Y" n8 m* i; {; D" f y: l57
% b3 a( w8 }# n P1 G" R589 b$ C3 V$ M6 \
59: h: B3 J* s0 v
60- T! V, Y' T8 z4 P7 [' S! X0 y# X
61
* h8 D! P1 A5 E) M' T62
7 @" }; E9 P9 h- K6 @7 e G63
`$ _: s" `$ ^* K; d. G64
% R( @# g7 p8 A Y9 c! A9 p& I- \65
' X+ n! I! S+ ~4 Q% E66/ @- j' Z9 S7 `
67
$ T! c; _/ O3 }( s681 o# L' ~9 ?# E
69
' H1 S- M$ q7 O& }" x7 d70" K7 T; {7 U+ _ [% V$ E! O' h8 Y' L
71
, W5 A, Z5 x$ b9 Z! U0 y72
4 f; W1 b- ^" A( v! p73
/ j- b% B8 a$ j2 m3 Y [74% r* H/ N" x) z" b" n- w
75/ n$ [/ D& y, k' k, V6 S6 ^
760 X E5 R- t5 X
77
0 F+ @$ {- g* Z0 E- G78
# O8 s# h4 Q- [: g79
, ^3 a5 m& H5 D, y% S5 `80. X# D7 Y( |3 `2 w( z( f
811 [: [9 Q6 _9 u
82
' V/ i# W5 s* T% ^/ y7 E/ R" b4 g83
3 E! k/ p7 `% y84
8 X2 z- L3 Z6 @859 N% c. j' [/ O j
86- Q9 Z ]5 X. ^3 y
87' ~" N4 M2 ~, l% Z6 w7 T) {
88. y2 J/ T, d! I! }
89
! j( J; D; S( S: f90
+ b& A5 t0 ~, j& t2 v( C8 c918 ?2 b% K) t7 l8 @* ~ _9 [* H+ ]
92
& y( d. `& X a0 x/ o& }0 d938 P: r0 b1 m% U z9 |( K
947 Q1 ^2 b# S+ R7 }
95
, N+ p! q. W5 x* w4 Z96* [1 N3 }" ?8 W- ~: v/ f
三、运行结果
0 L/ h; h5 f+ D2 `4 a( M) b# W8 b0 B6 D
6 Y4 _2 Z8 y/ ]- I) W' M& }5 |5 q1 d2 ]+ y
. I7 f, J& n! w$ F: M) `& _4 l6 l H# k. o4 `, y# n0 T7 a
7 T3 C4 s- u: U5 R) ]0 O" m
2 h8 \6 u& Z5 H i+ c& t: G4 g3 Z) K* m' E# Z y" q5 c
/ n6 l& g5 ~9 a8 e
! x E" M {; V# E6 C7 i
四、备注
9 v* B5 Z3 g; F+ J: H. C9 A1 Y版本:2014a
) r- M g* U% }( o; ~5 N/ Y————————————————
. Q8 t* q% G8 w* |* j版权声明:本文为CSDN博主「紫极神光」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。3 h8 A5 w% {) E4 m% v, ]2 o/ L8 o3 @
原文链接:https://blog.csdn.net/TIQCmatlab/article/details/119220599
* d% o8 l; Z$ M& e3 @6 ^2 { d1 N5 O# u' [& Z, d9 X5 O
+ s5 `9 ` N C0 l6 k0 s, \1 V
|
zan
|