summaryrefslogtreecommitdiff
path: root/773/CH12/EX12.03/12_03.sci
blob: 5b0c82de8a77510ab03ddac92695c2ab948276eb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//denominator polynomial//
s=poly(0,'s'); //Defines s as polynomial variable
F=syslin('c',[81/(s^2+7*s)]); //Creates transfer function in forward path
B=syslin('c',(1+0*s)/(1+0*s)); //Creates transfer function in backward path
CL=F/.B //Calculates closed-loop transfer function
// compare CL with Wn^2/(s^2+2*zeta*Wn+Wn^2)
y=denom(CL) //extracting the denominator of CL
z=coeff(y)  //extracting the coefficients of the denominator polynomial
//Wn^2=z(1,1) ,comparing the coefficients
Wn=sqrt(z(1,1))             // Wn=natural frequency
//2*zeta*Wn=z(1,2)
zeta=z(1,2)/(2*Wn)             // zeta=damping factor
Mr=1/(2*zeta*sqrt(1-zeta^2))
Wr=Wn*sqrt(1-zeta^2)  
Wc=Wn*sqrt((1-2*zeta^2)+sqrt(4*zeta^4-4*zeta^2+2))
BW=Wc //BANDWIDTH