CLEARSCREEN.

SET X TO 15.0.
SET Y TO 0.
PRINT SHIP:VERTICALSPEED.

LOCK THROTTLE TO MYTHROT.
SET INTEGRAL TO 0.0.
UNTIL FALSE

{
SET P TO 0.03.
SET I TO 0.001.
SET D TO -0.2.
SET INTEGRAL TO INTEGRAL + (X-SHIP:VERTICALSPEED).
SET MYTHROT TO ((X-SHIP:VERTICALSPEED)P + (I*INTEGRAL) + (SHIP:SENSORS:ACC:X)*D).
WAIT 0.1.
CLEARSCREEN.

PRINT "VerticalSpeed="+SHIP:VERTICALSPEED.

PRINT "VerticalACC="+SHIP:SENSORS:ACC:X.

PRINT "THROTTLE="+MYTHROT.

PRINT "P="+(X-SHIP:VERTICALSPEED)*P.

PRINT "I="+INTEGRAL*I.

PRINT "D="+(SHIP:SENSORS:ACC:X)*D.

}