Контрольная работа: Автоматическое управление системами автомобиля

Wmax:=Wr*10; Wmin:=Wr*.1;

> # Блок 8

# ГОДОГРАФ

G:=plot([R(w),M(w), w=0..Wmax],color=red,style=line,thickness=3):

plots[display]({G},title=`ГОДОГРАФ `);

> # Блок 9

# ОПИСАНИЕ ЛОГАРИФМИЧЕСКИХ ЧАСТОТНЫХ ХАРАКТЕРИСТИК

G1:=plot([log10(w),R(w), w=Wmin..Wmax],

color=red,linestyle=4,thickness=3,legend="R(w)"): # ВЧХ

G2:=plot([log10(w),M(w), w=Wmin..Wmax],

color=blue,style=line,thickness=3,legend="M(w)"): # МЧХ

G3:=plot([log10(w),A(w), w=Wmin..Wmax],

color=red,linestyle=4,thickness=3,legend="A(w)"): # АЧХ

G4:=plot([log10(w),F(w), w=Wmin..Wmax],

color=black,style=line,thickness=3,legend="F(w)"): # ФЧХ

> # Блок 10

# ГРАФИКИ ЛАЧХ [A(w)] и ЛФЧХ [F(w)]

g:=1.01:

Am:=evalf(1/(xi*sqrt(1-xi^2)*2)); # [1, с.117]

G5:=plot([log10(w),Am,w=Wr/g..Wr*g],style=point,

symbol=circle,symbolsize=15,legend="Am"):

G6:=plot([log10(Wr),J,J=0..Am],linestyle=2,legend="Wm"):

G7:=plot([log10(w),-Pi, w=Wmin..Wmax],linestyle=4,legend="Pi"):

plots[display]({G3,G4,G5,G6,G7},title=`ЛАЧХиЛФЧХ`);