 $DAT
  IF TYPE 6 ==
  THEN "DON'T EXIST $DAT" MSGBOX
  ELSE $DAT SIZE 2 GET DUP
    IF 1 ==
    THEN DROP "THE MATRIX ONLY
HAS ONE COLUMN" MSGBOX
    ELSE
      IF 2 >
      THEN
        IFERR "SET COLUMN INDEP AND
DEPEND OF $DAT" { "{}" 2. alfa } INPUT "











" 1 DISP STR-> EVAL
        THEN DROP2 "INCORRECT ARG." DOERR
        END
      ELSE 1 2
      END -> COLX COLY
       ERASE COLX XCOL COLY YCOL MAX$ DUP COLX GET DUP 10 % + EVAL MIN$  DUP COLX GET DUP 10 % - EVAL ROT XRNG COLY GET DUP 10 % - EVAL SWAP COLY GET DUP 10 % + EVAL YRNG -105 CF PPAR 1 GET AXES SCATTER "KIND OF GRAFIC" { { "REGRESSION"
         { { "LIN "
           LINFIT LR CORR $PAR + { "CORREL.COEF" "INDEP COL" "DEPEND COL" "INTERCEPT" "SLOPE" "MODEL" } ->TAG 3 ROLLD X * + STEQ ERASE SCATTER DRAW FUNCTION # 3h RES DRAW DRAX { # 0h # 0h } PVIEW 3 FREEZE
           } { "LOG"
           LOGFIT LR CORR $PAR + { "CORREL.COEF" "INDEP COL" "DEPEND COL" "INTERCEPT" "SLOPE" "MODEL" } ->TAG 3 ROLLD X LN * + STEQ ERASE SCATTER DRAW FUNCTION # 3h RES DRAW DRAX { # 0h # 0h } PVIEW 3 FREEZE
           } { "EXP"
           EXPFIT LR CORR $PAR + { "CORREL.COEF" "INDEP COL" "DEPEND COL" "INTERCEPT" "SLOPE" "MODEL" } ->TAG 3 ROLLD X * EXP * STEQ ERASE SCATTER DRAW FUNCTION # 3h RES DRAW DRAX { # 0h # 0h } PVIEW 3 FREEZE
           } { "POW"
           PWRFIT LR CORR $PAR + { "CORREL.COEF" "INDEP COL" "DEPEND COL" "INTERCEPT" "SLOPE" "MODEL" } ->TAG 3 ROLLD X SWAP ^ * STEQ ERASE SCATTER DRAW FUNCTION # 3h RES DRAW DRAX { # 0h # 0h } PVIEW 3 FREEZE
           } { "BEST"
           BESTFIT LR CORR $PAR + { "CORREL.COEF" "INDEP COL" "DEPEND COL" "INTERCEPT" "SLOPE" "MODEL" } ->TAG 3 ROLLD ...PAR 5 GET ->STR -> MO
            
              CASE MO "LINFIT" SAME
                THEN X * +
                END MO "LOGFIT" SAME
                THEN X LN * +
                END MO "EXPFIT" SAME
                THEN X * EXP *
                END MO "PWRFIT" SAME
                THEN X SWAP ^ *
                END
              END
             STEQ ERASE SCATTER DRAW FUNCTION # 3h RES DRAW DRAX { # 0h # 0h } PVIEW 3 FREEZE
           } { "MENU-"
          
            IFERR { # 0h # 0h } PVIEW 0 WAIT DROP { # 0h # 0h } PVIEW 3 FREEZE
            THEN DROP { # 0h # 0h } PVIEW 3 FREEZE
            END
           } } TMENU DRAW DRAX { # 0h # 0h } PVIEW 3 FREEZE
         } { "JOIN POINTS"
         -19 SF $DAT COLX COL- SWAP DROP $DAT COLY COL- SWAP DROP 2 COL-> AXL SORT 1
           OBJ-> DROP ->V2
           DOSUBS 2
           LINE { # 0h # 0h } PVIEW
           DOSUBS DRAX { # 0h # 0h } PVIEW 7 FREEZE
         } } 1 CHOOSE
        IF
        THEN EVAL
        END
      
    END
  END

