%-- 4/2/07  9:14 AM --%
tan(50*pi/180)/.667
P=tf(1,[1 0])
C=tf([1.8 1],[1 0])
bode(C*P)
K=1/bode(C*P,.667)
C=tf([1.8 1],[1 0])*K
bode(C*P)
bode(feedback(C*P,1))
step(feedback(C*P,1))
bode(feedback(C*P,1))
F=tf([1/.5 1],[1/.25 1])
bode(feedback(C*P,1),feedback(C*P,1)*F)
step(feedback(C*P,1),feedback(C*P,1)*F)
F2=tf([1/.5 1],[1/.15 1])
F3=tf([1/2 1],[1/.25 1])
bode(feedback(C*P,1)*F2,feedback(C*P,1)*F)
bode(feedback(C*P,1)*F3,feedback(C*P,1)*F)
W=tf(1,[1 1])
bode(W,feedback(C*P,1)*F)
bode(W,feedback(C*P,1))
F4=W/feedback(C*P,1)
bode(F4,feedback(C*P,1))
bode(W,feedback(C*P,1)*F4)
step(W,feedback(C*P,1)*F4)
step(W,feedback(C*P,1)*F4,feedback(C*P,1)*F)
W=tf(1,[.1 1])
F4=W/feedback(C*P,1)
bode(F4,feedback(C*P,1))
bode(W,feedback(C*P,1)*F4)
step(W,feedback(C*P,1)*F4,feedback(C*P,1)*F)