%Finn Haugen, 2.12.05
R=10e3;%Ohm
C=100e-6;%F
teller=[1];
nevner=[R*C,1];
H=tf(teller,nevner)
figure(1),clf
bode(H),title('Bodeplott for RC-krets'),grid
figure(2)
step(H),title('Sprangrespons for RC-krets'),grid