929/CH3/EX3.1/Example3_1.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

//Example 3.1

clear;

clc;

R=10;

C=40*10^(-6);

L=5*10^(-3);

Hsnum=(R/L)*%s;

Hsden=((%s^(2))+(R/L)*%s+(1/(L*C)));

Hs=Hsnum/Hsden;//Transfer Function

h=syslin('c',Hs);

plzr(h);

zeroes=roots(Hsnum);

poles=roots(Hsden);