summaryrefslogtreecommitdiff
path: root/1299/CH10/EX10.1.1/examplesec10_1_1.sce
blob: 0b99486d49ae6ace2892a9ba7164ab82dc5164c3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//Example sec 10.1.1
//mass, dashpot, spring arrangement.
clear;clc;
xdel(winsid());
M=1
K=2
F=2
A=[0 1;-2 -2]
C=eye(A)
s=%s
D=s*C-A
X=inv(D)*[1;1]
//taking the laplace transform of X
disp("X(t)=sqrt(5)*sin(t+inv(tan 0.5));sqrt(10)*sin(t+inv(tan -1/3))")
disp("The system is asymptotically stable")