Курсовая работа: Нелинейные САУ

rectangle(Xc-18,Yc-15,Xc+18,Yc+15);

setlinestyle(0,0,1);

rectangle(10,Yc+5,250,Yc+205);

setcolor(15);

setviewport(10,(int)(ymax/2)+5,250,(int)(ymax/2)+205,1);

setfillstyle(1,0);

floodfill(5,5,7);

line(10,100,230,100);

line(125,10,125,190);

Godograf(Tpr[k],Ko[j],Kos[i],15,125,100,k,j,i,0);};

closegraph();

}

}

void Godograf(float Tpr, float Ko, float Kos, int Color,

int Xc, int Yc, int x, int y, int z, int err)

{

float P_w1=0.0, Q_w1=0.0,

P_w, Q_w,

To=0.5, Tg=0.1, P_w_min=0.0;

for(float w=0;w<=100;w=w+0.05){

if(((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w))!=0){

P_w = (Ko*w*Tg*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)+

(Kos*Ko*Ko-(To+Tpr)*Ko*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+

(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w)*(w+Tpr*Kos*Ko*w-To*Tpr*w*w*w));

Q_w = (Tg*(Kos*Ko*Ko*w-(To+Tpr)*Ko*w*w)-

Ko*(w+Tpr*Kos*Ko*Ko*w-Ko*To*Tpr*w*w*w))/

((Kos*Ko-(To+Tpr)*w*w)*(Kos*Ko-(To+Tpr)*w*w)+