Omega = omega_rad_s * (60 / (2 * pi)) ;
M_u =(0.25*sqrt(2) - 0.25*log(1 + sqrt(2)));
M_b = (0.0625*sqrt(2) - 0.1875*log(1 + sqrt(2)));
H_u = 0.5*log(1 + sqrt(2));
for kk1 = 1:length(f_pitch)
for kk2 = 1:length(f_yaw)
w_omega_pitch = 2 * pi * f_pitch(kk1);
w_omega_yaw = 2 * pi * f_yaw(kk2);
K_psi = (w_omega_pitch^2) * I_psioverI_b;
K_theta = (w_omega_yaw^2) * I_thetaoverI_b;
tspan = [ 0.0 pi/omega_rad_s^2] ;
[ t1 , y1 ] = ode45(@(t, y) two_bladed_system( t , y , omega_rad_s, I_thetaoverI_b, I_psioverI_b, K_theta, K_psi, h, gamma, H_u, M_b, M_u) , tspan , [1; 0; 0; 0]) ;
[ t2 , y2 ] = ode45(@(t, y) two_bladed_system( t , y , omega_rad_s, I_thetaoverI_b, I_psioverI_b, K_theta, K_psi, h, gamma, H_u, M_b, M_u) , tspan , [0; 1; 0; 0]) ;
[ t3 , y3 ] = ode45(@(t, y) two_bladed_system( t , y , omega_rad_s, I_thetaoverI_b, I_psioverI_b, K_theta, K_psi, h, gamma, H_u, M_b, M_u) , tspan , [0; 0; 1; 0]) ;
[ t4 , y4 ] = ode45(@(t, y) two_bladed_system( t , y , omega_rad_s, I_thetaoverI_b, I_psioverI_b, K_theta, K_psi, h, gamma, H_u, M_b, M_u) , tspan , [0; 0; 0; 1]) ;
[ nrows1 , ncols1 ] = size(y1) ;
[ nrows2 , ncols2 ] = size(y2) ;
[ nrows3 , ncols3 ] = size(y3) ;
[ nrows4 , ncols4 ] = size(y4) ;
MOO = [y1(nrows1 ,:)', y2(nrows2,:)', y3(nrows3,:)', y4(nrows4,:)'];
EigVals{kk1,kk2} = eigenvalues;
for kk1 = 1:length(f_pitch)
for kk2 = 1:length(f_yaw)
fprintf('Eigenvalues for f_pitch = %f Hz and f_yaw = %f Hz:\n', f_pitch(kk1), f_yaw(kk2));
end
Eigenvalues for f_pitch = 0.050000 Hz and f_yaw = 0.050000 Hz:
1.0000 + 0.0000i
1.0000 - 0.0000i
1.0000 + 0.0000i
1.0000 - 0.0000i
Eigenvalues for f_pitch = 0.050000 Hz and f_yaw = 0.150000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0000i
1.0000 + 0.0000i
Eigenvalues for f_pitch = 0.050000 Hz and f_yaw = 0.250000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0000i
1.0000 + 0.0000i
Eigenvalues for f_pitch = 0.050000 Hz and f_yaw = 0.350000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0000i
1.0000 + 0.0000i
Eigenvalues for f_pitch = 0.050000 Hz and f_yaw = 0.450000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0000i
1.0000 + 0.0000i
Eigenvalues for f_pitch = 0.150000 Hz and f_yaw = 0.050000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0000i
1.0000 + 0.0000i
Eigenvalues for f_pitch = 0.150000 Hz and f_yaw = 0.150000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0000i
1.0000 - 0.0000i
Eigenvalues for f_pitch = 0.150000 Hz and f_yaw = 0.250000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.150000 Hz and f_yaw = 0.350000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.150000 Hz and f_yaw = 0.450000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.250000 Hz and f_yaw = 0.050000 Hz:
1.0000 + 0.0000i
1.0000 + 0.0000i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.250000 Hz and f_yaw = 0.150000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.250000 Hz and f_yaw = 0.250000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.250000 Hz and f_yaw = 0.350000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.250000 Hz and f_yaw = 0.450000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.350000 Hz and f_yaw = 0.050000 Hz:
1.0000 + 0.0000i
1.0000 + 0.0000i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.350000 Hz and f_yaw = 0.150000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.350000 Hz and f_yaw = 0.250000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.350000 Hz and f_yaw = 0.350000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0001i
1.0000 - 0.0001i
Eigenvalues for f_pitch = 0.350000 Hz and f_yaw = 0.450000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.450000 Hz and f_yaw = 0.050000 Hz:
1.0000 + 0.0000i
1.0000 + 0.0000i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.450000 Hz and f_yaw = 0.150000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.450000 Hz and f_yaw = 0.250000 Hz:
1.0000 + 0.0001i
1.0000 - 0.0001i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.450000 Hz and f_yaw = 0.350000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0002i
1.0000 - 0.0002i
Eigenvalues for f_pitch = 0.450000 Hz and f_yaw = 0.450000 Hz:
1.0000 + 0.0002i
1.0000 - 0.0002i
1.0000 + 0.0002i
1.0000 - 0.0002i
function [dy_dt] = two_bladed_system(t, y, omega_rad_s, I_thetaoverI_b, I_psioverI_b, K_theta, K_psi, h, gamma, H_u, M_b, M_u)
ct = cos(2*omega_rad_s^2*t);
st = sin(2*omega_rad_s^2*t);
M11 = I_thetaoverI_b + 1 + cos(2*omega_rad_s^2*t);
M12 = -sin(2*omega_rad_s^2*t);
M21 = -sin(2*omega_rad_s^2*t);
M22 = I_psioverI_b + 1 - cos(2*omega_rad_s^2*t);
D11 = h^2*gamma*H_u*(1 - cos(2*omega_rad_s^2*t)) - gamma*M_b*(1 + cos(2*omega_rad_s^2*t)) - (2 + 2*h*gamma*M_u)*sin(2*omega_rad_s^2*t);
D12 = h^2*gamma*H_u*sin(2*omega_rad_s^2*t) + gamma*M_b*sin(2*omega_rad_s^2*t) - 2*(1 + cos(2*omega_rad_s^2*t)) - 2*h*gamma*M_u*cos(2*omega_rad_s^2*t);
D21 = h^2*gamma*H_u*sin(2*omega_rad_s^2*t) + gamma*M_b*sin(2*omega_rad_s^2*t) + 2*(1 - cos(2*omega_rad_s^2*t)) - 2*h*gamma*M_u*cos(2*omega_rad_s^2*t);
D22 = h^2*gamma*H_u*(1 + cos(2*omega_rad_s^2*t)) - gamma*M_b*(1 - cos(2*omega_rad_s^2*t)) + (2 + 2*h*gamma*M_u)*sin(2*omega_rad_s^2*t);
K11 = K_theta - h*gamma*H_u*(1 - cos(2*omega_rad_s^2*t)) + gamma*M_u*sin(2*omega_rad_s^2*t);
K12 = -h*gamma*H_u*sin(2*omega_rad_s^2*t) + gamma*M_u*(1 + cos(2*omega_rad_s^2*t));
K21 = -h*gamma*H_u*sin(2*omega_rad_s^2*t) - gamma*M_u*(1 - cos(2*omega_rad_s^2*t));
K22 = K_psi - h*gamma*H_u*(1 + cos(2*omega_rad_s^2*t)) - gamma*M_u*sin(2*omega_rad_s^2*t);
acceleration = -inv(M) * (D * [y(2); y(4)] + K * [y(1); y(3)]);
dy_dt = [y(2) ; acceleration(1); y(4); acceleration(2)] ;