summaryrefslogtreecommitdiff
path: root/1340/CH4/EX4.7/4_7.sce
blob: 49c5d47fd676165314a1f4b7a56e2d09bca6e18d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
k=5;
disp("N-m/rad",k,"Given value of K =");
printf("percentage overshoot =");
Os = 20;
disp(Os);
printf("settling time =");
Ts = 2;
disp(Ts);

zeta = (-log(Os/100)/sqrt((%pi^2)+(log(Os/100))^2));disp(zeta,"damping ratio =");
Wn = 4/(2*zeta);disp(Wn,"natural frequency =");
A = Wn^2;
disp(A,"K/J =");
B = 2*zeta*Wn;
disp(B,"D/J =");
j = k/A;
disp("kg-m^2",j,"value of J is =");
d = j*B;
disp("N-m-s/rad",d,"value of D is =");