#include "csscom.h"
double U,U1,Y,Y2,X;
_titleS[0]=0;gopen(0);GDS_setcompat(1);tpalet();
LTIME=50;DT=.1;_xamt=1./LTIME;
sprintf(_grapS[0],"U1/5");
sprintf(_grapS[1],"Y/10");
sprintf(_grapS[2],"Y2/10");
sprintf(_grapS[3],"X/10");
Y=0;
_gtyp=0;_inigrap(_gtyp,_titleS,LTIME,_grapS,4);
for(TIME=0;TIME<=LTIME;TIME+=DT){
_zn=0;
/* REM **** NMODEL2 ****/;
U=STEP(0);
U1=U*10;
X=U1-Y;
Y2=HSTRLY(0,0,4,-5,5,X);
Y=REALPL(0,10,Y2);
Y=40*Y;
_gpset(_gtyp, U1/5, 0);
_gpset(_gtyp, Y/10, 1);
_gpset(_gtyp, Y2/10, 2);
_gpset(_gtyp, X/10, 3);
}
locate(78,22,CON);while(ESC!=getch());rpalet();gclose();putchar('\n');}