summaryrefslogtreecommitdiff
path: root/257/CH5/EX5.20/example_5_20.sce
blob: 63df4f67c93662d593bd5271e89987138e3c9c25 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
syms M2 K2 M1 K1 B
s=%s

a=(K2/s)+B
b=(1/(M1*s))/(1+((1/(M1*s)*(K1/s) )))
//shifting summing point S2 before 1/m2*s and interchange positions of S1 and S2 using associative law
c=(1/M2*s)*a
d=c/(1+c)
e=d*b
f=e/(1+(e*M2*s))
Y=f*(1/s)

disp(Y," Y/R = ")