Microsoft Word - Document1 Microsoft Word - Document1

Question

Microsoft Word - Document1                                 Microsoft Word - Document1

Kshitij · Accepted Answer

solutionGrey/CompleteSolution.m
function [y] = CompleteSolution(K,M,qP,yE,t)
[r,d] = eig(inv(M)*K);                          % eqn 14
c = inv(r)*(-qP(:,1));                          % eqn 24              
qH = c(1)*r(:,1)*exp(d(1)*t) + c(2)*r(:,2)*exp(d(2)*t) ...  eqn 15
     + c(3)*r(:,3)*exp(d(3)*t) + c(4)*r(:,4)*exp(d(4)*t);
y = yE+qH+qP;                                   % eqn 12
end
solutionGrey/data.m
%% to save data as dat file
compact = [42 1050 3.8e4 1350 2e5 0.3 0.6];
midsize = [55 1400 4.4e4 1500 2.25e5 0.35 0.75];
truck = [83 2100 4.84e4 3500 2.5e5 0.438 0.863];
save vehicle.dat compact midsize -ascii
solutionGrey/ParticularSoulution.m
function [qP,s1,s2] = ParticularSoulution(K,M,f0,t,wR,simflag)
    if simflag ==1
        F = [f0;zeros(4,1)];                    % eqn 20
        Q1 = cat(2,-K,-wR*M);

Microsoft Word - Document1 Microsoft Word - Document1

Solution

Answer To This Question Is Available To Download

Related Questions & Answers

Submit New Assignment