/* REM **** NMODEL2 ****/
>DIM [U,U1,Y,Y2,X]
>INICON[Y=0]
>TIMER[50,.1]
>GRAPH[U1/5,Y/10,Y2/10,X/10]
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