Расчет системы автоматической стабилизации заданного значения выходной координаты, страница 9

                                                                              begin

                                                                                              ymax1:= masy[i-1];

                                                                                              Tmax:=mast[i-1];

                                                                                              zn3:=true;

                                                                              end;

                                                               if ymax<>0 then Per:=2*(mast[i-1]-tpr);

                                                               ymax:= masy[i-1];

                                                               tpr:=mast[i-1];

                                               end;

                               if Tre=0 then

                               if abs((abs(ymax)-dx1)/dx1) <=0.05 then Tre:=tt;

                until abs(abs(ymax)-dx1) <= 0.01;

                sigma:= (abs(ymax1)/dx1 - 1)*100;

                close(f);

                grafik;

end.