Skip to content

Commit

Permalink
divide power by 8
Browse files Browse the repository at this point in the history
  • Loading branch information
rebeccamccabe committed Nov 8, 2023
1 parent ffe7f96 commit 7d4dd94
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions mdocean/simulation/modules/dynamics/dynamics.m
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@
X_unsat = get_response(w,m,b,k,Fd);

% confirm unsaturated response doesn't exceed maximum capture width
P_unsat = 1/2 * in.B_p * w.^2 .* X_unsat.^2;
P_unsat = 1/8 * 1/2 * in.B_p * w.^2 .* X_unsat.^2;

F_ptrain_over_x = sqrt( (in.B_p * w).^2 + (K_p).^2 );
F_ptrain_unsat = F_ptrain_over_x .* X_unsat;
Expand All @@ -54,7 +54,7 @@
X_sat = get_response(w,m,b_sat,k_sat,Fd);

% calculate power
P_matrix = 1/2 * (mult * in.B_p) .* w.^2 .* X_sat.^2;
P_matrix = 1/8 * 1/2 * (mult * in.B_p) .* w.^2 .* X_sat.^2;

X_max = max(X_sat,[],'all');
h_s_extra = (in.h_s - in.T_s - (in.h_f - in.T_f) - X_max) / in.h_s; % extra height on spar after accommodating float displacement
Expand Down

0 comments on commit 7d4dd94

Please sign in to comment.