{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

scan-042

# Mechanical Vibrations (4th Edition)

This preview shows page 1. Sign up to view the full content.

This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 23 ; 0,575 ; ~22.00 i —21 25 5 69 . ' 2“__..'.s';_€e°_.: “9.09. 1. _°;°_°. “.939- '_ 3-39-- _ 9.09 J__9_0_0_ _ 51-90. ._ __. 24 23( ) 239.00 ~241.9o 282.30 39.72 147.18 45.25 —4.88 1H“? 3 Hi c: 1 19.92 —2o.15 23.53 3.31 12.26 3.77 -o.al %Progreml.m %Program for calling the subroutine FORIER %Run “Programl.m” in MATLAB Command Window. Programl.m and forier.m should t %in the same file folder, and set the path to this folder %Following 6 lines contain problem—dependent data n=16: m=3; time=0.32; x=[9 13 17 29 43 59 63 57 49 35 35 41 47 41 13-7]; t=0.02:0.02:0.32; %end of problem-dependent data %Following line calls subroutine forier.m fazeIO,a,b,xsin,xcos]=forier(n,m,time,x,t}; %following outputs data fprintf('Fourier series expansion of the function x(t)\n\n'); fprintf('Data:\n\n'); fprintf('Number of data points in one cycle = %3.0f \n',n); fprintf(' \n’); I fprintf(’Number of Fourier Coefficients required = %3.0f \n’,m); fprintf(' \n'): fprintf('Time period = %8.6e \n\n',time); fprintf('Station i ') fprintf('Time at station i: t(i) ') fprintf(’x(i) at t(i)') for i=1:n u fprintf(‘\n %Bd%25.6e%27.6e ',i,t(i).x(i)); end fprint£(' \n\n’); fprintf('Results of Fourier anelysis:\n\n'); fprintf(’azero=%8.6e \n\n',azero); fprintf('values of i a(i) b(i)\n'); for i=lzm fprintf('%10.0g %8.6e%20.6e \n',i,a(i),b(i)): end ' 36 ...
View Full Document

{[ snackBarMessage ]}