Assignment1 - xlswrite( 'Result.xlsx' ,[x1' x2' F']); Plots...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Matlab Program clc clear all k=10; %in KN/m c=10; %in Kg.rad/sec F0=5; %in N w=15; %in rad t=0:0.01:5; F=F0*sin(w*t); %in KN for i=1:1:501 x1(i)=(F0-(F0*cos(w*t(i))))/(c*w); x2(i)=F0*(c*w/exp(k*t(i)/c)- (k*sin(w*t(i))+c*w*cos(w*t(i))))/(k^2+c^2*w^2); end Subplot(2,1,1) plot(x1,F) Subplot(2,1,2) plot(x2,F)
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: xlswrite( 'Result.xlsx' ,[x1' x2' F']); Plots -6-4-2 2 4 6 0.01 0.02 0.03 0.04 0.05 0.06 0.07 Force, KN Displacement, m Force - Displacement plot for Viscous System -6-4-2 2 4 6-0.07-0.035 0.035 0.07 Force, KN Displacement, m Force - Displacement plot for Visco-Elastic System...
View Full Document

This note was uploaded on 10/19/2011 for the course STRUCTURAL MEL840 taught by Professor Svmodak during the Spring '11 term at IIT Kanpur.

Page1 / 2

Assignment1 - xlswrite( 'Result.xlsx' ,[x1' x2' F']); Plots...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online