%%HP: T(1)A(D)F(.);
 N  ORD n
   SCATRPLOT 0 ORD
    FOR J '(I=1,n,
DAT(I,2)*DAT(I,1)
^J)' EVAL
    NEXT { 'ORD+1'
} ARRY N 1 ORD
    FOR J '(I=1,n,
DAT(I,1)^J)' EVAL
    NEXT ORD 1 +
ORD 2 *
    FOR J ORD DUPN
'(I=1,n,DAT(I,1)^
J)' EVAL
    NEXT { 'ORD+1'
'ORD+1' } ARRY /

 -3 CF OBJ OBJ
DROP 1 - 

PATH DUP OBJ 1
SWAP START EVAL 'X'
PURGE NEXT EVAL

 ORD
   0 SWAP 0 ORD 1
-
    FOR J 'X' ORD J
- ^ * + SWAP
    NEXT + 'Y' SWAP
=
  

   DUP STEQ 'X'
INDEP FUNCTION DRAW
TEXT 30.01 MENU

