{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

scan-042

Mechanical Vibrations (4th Edition)

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

View Full Document Right Arrow Icon
Background image of page 1
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 ]}