(XLISP::CHECK-FSL-VERSION 1 4)
#K(#(80 1 3 0 1 2 4 38 3 4 39 4 5 23 5 6 1 4 21 0 1 2 6 0 4 6 1 3 23 6 6 1 4 23 7 4 2 5 6 0 3 5 16 5 6 21 1 4 5 5 38 8 7 23 9 0 3 4 7 6 17 5 5 16 5 6 21 1 4 5 5 38 10 7 23 9 0 4 4 7 2 1 23 11 0 2 2 4 11 0 2) #(0 23 28 33 50 71) #((SAVE-MENU-ITEM CREATE-MENU-ITEM VISUALIZE-MENU-ITEM REPORT-MENU-ITEM MODEL-ABBREV DIALOG DATA-OBJECT) MV-MODEL-OBJECT-PROTO NIL MV-DATA-OBJECT-PROTO MAKE-OBJECT LISTP LIST APPLY :ADD-SLOT SEND :MAKE-PROTOTYPE SET) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :ISNEW #K(#(77 1 7 1 4 4 0 1 2 3 10 0 6 12 0 4 13 0 5 14 38 5 15 23 6 15 3 3 15 7 38 7 16 23 6 16 3 3 16 7 38 8 17 23 6 17 3 3 17 7 38 9 18 23 6 18 2 3 18 38 10 19 50 0 2 1 19 3 23 11 0 1 3 0 14 19 21 0 4 3 19 38 12 20 23 6 20 2 1 20 38 13 21 23 6 21 2 3 21 23 14 14 3 20 8 21 0 13 19 21 0 6 5 19 38 15 20 23 6 13 2 3 20 23 16 0 6 15 16 13 18 17 14 38 17 13 38 18 14 23 6 0 3 13 14 2 38 19 13 38 20 14 23 6 13 2 13 14 21 0 7 8 13 0 9 12 38 21 13 23 6 0 3 1 13 12 38 22 12 23 6 12 2 1 12 38 21 13 23 6 13 2 1 13 21 0 9 12 13 21 0 10 11 12 0 11 13 1 13 3 60 2 10 13 1 13 0 11 13 21 0 14 15 13 38 17 14 38 23 15 23 6 0 3 14 15 2 23 11 0 1 3 38 24 14 38 25 15 23 6 0 2 14 15 38 21 13 23 6 13 2 1 13 21 0 16 18 13 21 0 18 17 12 11 0 11 38 26 12 23 6 0 3 1 12 3 38 27 12 23 6 0 2 1 12 38 28 12 23 6 0 2 1 12 38 19 12 38 20 13 23 6 12 2 12 13 21 0 19 20 12 0 11 12 1 21 3 60 2 10 12 21 0 22 23 12 25 29 0 1 1 11 0 11) #(0 68 73 81 106 114 123 163 166 199 204 209 216 219 224 254 268 273 276 321 326 331 336 341) #("-" T 9 NIL #((NUMERIC)) :ACTIVE-DATA SEND :ACTIVE-VARIABLES :ACTIVE-TYPES :ACTIVE-LABELS CURRENT-OBJECT SETCD :MODEL-ABBREV :NAME STRCAT :TITLE CALL-NEXT-METHOD *TOOLBOX* :COPY-TOOL-ICON *VISTA* :GUIDEMAP :DIALOG :OPTIONS :RESET-BUTTON *WORKMAP* :REDRAW :DATA-OBJECT :ANALYSIS :NEW-OBJECT SETCM) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ISNEW) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :NEW-OBJECT #K(#(80 2 1 0 2 49 1 1 0 49 2 1 0 49 3 1 0 49 4 1 0 38 5 3 38 6 4 23 7 0 3 3 4 2 38 8 3 38 9 4 23 7 3 2 3 4 38 10 4 23 7 0 2 3 4 38 8 3 38 11 4 23 7 3 2 3 4 38 10 4 23 7 0 2 3 4 38 12 3 38 13 4 23 7 4 2 1 4 25 7 0 3 1 3 4) #(0) #(T CURRENT-MODEL *CURRENT-MODEL* CURRENT-OBJECT *CURRENT-OBJECT* *MODEL-MENU* :ENABLED SEND *VISTA* :VAR-WINDOW-OBJECT :CLEAR :OBS-WINDOW-OBJECT :ADD-MODEL-MENU-ITEM :MODEL-ABBREV) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:NEW-OBJECT) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :SAVE-MENU-ITEM #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL SAVE-MENU-ITEM #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SAVE-MENU-ITEM) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :CREATE-MENU-ITEM #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL CREATE-MENU-ITEM #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CREATE-MENU-ITEM) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :VISUALIZE-MENU-ITEM #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL VISUALIZE-MENU-ITEM #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:VISUALIZE-MENU-ITEM) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :REPORT-MENU-ITEM #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL REPORT-MENU-ITEM #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:REPORT-MENU-ITEM) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :MODEL-ABBREV #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL MODEL-ABBREV #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:MODEL-ABBREV) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :DIALOG #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL DIALOG #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DIALOG) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :DATA-OBJECT #K(#(77 1 2 1 2 2 0 1 2 64 2 5 21 2 1 2 2 0 2 6 1 3 0 3 6 21 0 4 5 5 63 4 6 0 62 4 0 57 0) #(0 17 22 25 30 34) #(NIL DATA-OBJECT #(%NOT-SUPPLIED)) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:DATA-OBJECT) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :ADD-MODEL-MENU-ITEM #K(#(80 3 5 0 1 2 3 4 11 38 5 8 38 6 9 23 7 9 1 9 38 8 10 23 9 9 2 9 10 23 10 9 1 9 38 11 10 38 12 11 23 9 10 2 10 11 23 13 10 4 7 2 6 10 38 14 11 38 15 12 23 9 11 2 11 12 0 5 12 38 16 13 38 11 14 23 9 0 3 8 13 14 38 11 13 38 17 14 23 9 0 3 13 14 8 38 14 13 38 18 14 23 9 0 5 13 14 11 10 4 23 19 13 1 10 23 20 13 1 13 38 5 14 23 21 0 2 13 14 38 22 13 38 23 14 23 9 13 2 13 14 23 24 13 1 13 16 13 12 38 25 13 23 9 0 3 12 13 8 38 26 11 38 27 12 23 9 11 2 11 12 21 0 1 2 11 38 28 12 23 9 0 3 8 12 9 38 14 12 38 29 13 38 6 14 23 9 0 3 12 13 14 38 6 12 38 30 13 38 31 14 38 32 15 38 33 16 38 34 17 51 6 18 1 8 23 9 14 7 14 15 10 16 3 17 18 23 9 0 3 12 13 14 1 3 38 28 12 38 22 13 38 23 14 23 9 13 2 13 14 23 10 13 1 13 2 43 9 13 13 23 9 0 3 8 12 13 49 35 9 0 38 26 8 38 36 9 23 9 8 2 8 9 21 0 4 5 8 38 11 8 25 37 0 1 8 11 0 5 80 2 0 0 25 38 0 1 1) #(0 176 245 277 298 306 309) #(T 3 NIL "-" STRING CURRENT-MODEL *MODEL-MENU* EVAL :ITEMS SEND LENGTH CURRENT-DATA :NAME CONCATENATE *DESKTOP* :SELECTED-ICON :ADD-PARENT :ADD-CHILD :ADD-CONNECTED-ICON STRING-UPCASE INTERN SET *WORKMAP* :MODEL-ICON-LIST LAST :OBJECT *VISTA* :LONG-MENUS :MENU-LENGTH :NO-MENU-MARKS :APPEND-ITEMS MENU-ITEM-PROTO :NEW :MARK :ACTION CURRENT-MODEL-MENU-ITEM-NUMBER :GUIDEMAP SETCD SET-CURRENT-MODEL) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:ADD-MODEL-MENU-ITEM) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SETCM #K(#(80 2 0 0 25 0 0 1 1) #(0) #(SET-CURRENT-MODEL) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SET-CURRENT-MODEL #K(#(80 2 5 0 1 2 3 4 6 38 5 7 23 6 7 2 1 7 38 7 8 38 8 9 23 6 8 2 8 9 0 6 9 21 0 2 1 8 61 109 7 7 38 9 10 38 10 11 23 6 10 2 10 11 38 9 11 38 11 12 23 6 11 2 11 12 2 45 7 11 11 23 12 9 2 10 11 49 13 1 0 49 14 1 0 49 15 1 0 49 16 1 0 38 9 10 38 17 11 23 6 0 2 10 11 38 9 10 38 18 11 23 6 0 3 10 11 9 38 7 9 38 19 10 23 6 9 2 9 10 38 20 10 23 6 0 2 9 10 38 7 9 38 21 10 23 6 9 2 9 10 38 20 10 23 6 0 2 9 10 38 13 9 38 22 10 23 6 9 2 9 10 50 2 3 4 2 9 38 23 10 38 24 11 23 6 0 3 10 11 6 38 25 10 38 24 11 23 6 0 3 10 11 6 1 5 38 23 10 38 24 11 23 6 0 3 10 11 4 38 25 10 38 24 11 23 6 0 3 10 11 4 21 0 6 7 8 38 9 9 38 26 10 38 27 11 23 6 0 3 9 10 11 38 27 9 38 28 10 23 6 9 2 9 10 23 12 9 2 9 7 38 29 10 23 6 0 3 9 10 4 38 7 7 38 30 8 23 6 7 2 7 8 21 0 8 11 7 38 31 8 21 0 9 10 8 23 32 0 2 4 3 23 33 0 1 5 11 0 1) #(0 38 42 178 206 232 237 281 298 306 312 317) #("UNI" "Calling Guidance from SETCModel." T "model" NIL :MENU-LENGTH SEND *VISTA* :LONG-MENUS *WORKMAP* :MODEL-ICON-NUMBER-LIST :NUM-MODEL-MENU-ITEMS SELECT CURRENT-MODEL CURRENT-OBJECT *CURRENT-MODEL* *CURRENT-OBJECT* :INITIALIZE-MODEL-MENU :SELECT-ICON :VAR-WINDOW-OBJECT :CLEAR :OBS-WINDOW-OBJECT :MODEL-ABBREV CREATE-DATAOBJECTS-MODEL-POPUP-MENU-ITEM :ENABLED CREATE-DATAOBJECTS-MODEL-MENU-ITEM :NO-MENU-MARKS *MODEL-MENU* :ITEMS :MARK :GUIDEMAP INVESTIGATE FORMAT GUIDANCE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 49 1 1 0 57 0) #(0) #(NIL *CURRENT-MODEL*) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: (&optional name)
Saves the current model to a file named NAME" FUNCTION-DOCUMENTATION SAVE-MODEL %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SAVE-MODEL #K(#(77 1 1 1 0 0 2 21 0 1 2 1 38 1 2 38 2 3 25 3 0 3 2 3 1 38 1 2 38 2 3 25 3 0 2 2 3) #(0 12 25) #(#(NIL) CURRENT-MODEL :SAVE-MODEL SEND) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #("Args: (&optional file)
FILE is a string. The model-object is written to the file FILE.lsp in a form suitable for use with the load-model command.  The template for this form
is supplied by the specific model object by a save-model-template method." :SAVE-MODEL #K(#(77 1 2 1 13 13 0 1 2 3 4 5 6 7 8 9 10 11 12 6 0 2 16 38 14 17 50 0 2 1 17 1 23 15 0 1 1 38 16 17 38 17 18 23 18 17 2 17 18 23 19 18 1 17 2 109 15 18 18 23 20 17 3 17 14 18 23 21 0 2 17 13 38 22 17 23 23 0 1 17 0 16 17 21 0 4 3 17 23 24 16 3 4 3 7 21 0 5 13 16 23 25 16 1 16 23 19 17 1 16 37 62 6 7 17 6 38 26 18 23 19 19 1 16 2 45 19 5 19 23 27 17 4 13 16 18 19 1 8 0 12 17 21 0 9 10 17 23 25 18 1 16 23 28 16 2 8 18 23 28 16 2 7 16 23 29 0 3 11 10 16 23 30 17 1 16 23 21 17 2 17 13 38 31 18 38 32 19 23 33 17 3 17 18 19 38 34 18 23 18 18 2 1 18 38 35 19 49 35 12 0 56 12 11 20 20 49 35 19 0 23 36 0 1 17 23 29 0 3 11 9 16 11 0 17 11 20 12 38 37 21 23 18 21 3 1 21 18 25 38 20 2 21 17 11 0 12) #(0 32 37 88 95 100 116 139 142 147 164 235 238 254) #("*.lsp" "Save Model as File:" 4 3 "." "lsp" "; finished saving ~s~%" "; saving ~s~%" T NIL ".lsp" 0 8 #(NIL) CURRENT-OBJECT SETCM CURRENT-MODEL :NAME SEND LENGTH SUBSEQ STRCAT *USER-DIR-NAME* SET-WORKING-DIRECTORY FILE-SAVE-DIALOG STRING-DOWNCASE-IF-NOT-X11 :START2 STRING= STRING-RIGHT-TRIM FORMAT STRING :DIRECTION :OUTPUT OPEN :DATA-OBJECT *BREAKENABLE* CLOSE :SAVE-MODEL-TEMPLATE PRINT) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:SAVE-MODEL) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :CREATE-INPUT-DATA-OBJECT #K(#(80 4 2 0 1 13 38 2 6 23 3 6 2 1 6 23 4 6 3 5 4 6 38 5 7 38 5 8 23 3 8 2 1 8 23 4 8 3 5 2 8 38 6 9 38 7 10 38 8 11 38 8 12 23 3 12 2 1 12 38 9 13 38 9 14 23 3 14 2 1 14 38 10 15 38 10 16 23 3 16 2 1 16 38 11 17 38 11 18 23 3 18 2 1 18 25 12 0 15 6 7 8 9 3 10 1 11 12 13 14 15 16 17 18) #(0) #("Input-" STRING :NAME SEND CONCATENATE :TITLE :CREATED :CREATOR-OBJECT :LABELS :DATA :VARIABLES :TYPES DATA) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:CREATE-INPUT-DATA-OBJECT) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :INTERPRET-MODEL #K(#(80 2 2 0 1 0 23 2 0 1 3 11 0 2) #(0) #(T "Interpretation Not Yet Defined for This Model" ERROR-MESSAGE) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:INTERPRET-MODEL) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(SELECT-CURRENT-MODEL-ICON #K(#(80 1 1 0 4 38 1 2 38 2 3 38 1 4 38 3 5 23 4 4 2 4 5 38 5 5 2 45 5 1 5 23 6 4 2 4 5 25 4 0 3 2 3 4) #(0) #(7 *DESKTOP* :SELECT-ICON :MODEL-ICON-NUMBER-LIST SEND CURRENT-MODEL-MENU-ITEM-NUMBER SELECT) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 2 38 3 4 23 4 5 1 3 25 5 0 4 4 2 5 1) #(0) #(NIL :USE-NEW-TIP #K(#(80 7 2 0 1 0 25 2 0 7 8 7 2 5 3 6 4) #(0) #("Moved Vector Tip ~g to x=~g on variable ~g, y=~g on variable ~g~%" T FORMAT) 0 NIL) MV-MODEL-OBJECT-PROTO BYTE-CODE-CLOSE XLISP::ADD-METHOD) 0 NIL) #K(#(80 1 1 0 0 11 0 1) #(0) #(:USE-NEW-TIP) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Args: (&optional file)
Loads a model object contained in a file.  The file's name must end with .lsp.
If the optional string argument FILE is included, the model object is loaded 
from FILE, otherwise a dialog is presented to select the file. The string 
need not end with .lsp.  Returns the object-id of the model object." FUNCTION-DOCUMENTATION LOAD-MODEL %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(LOAD-MODEL #K(#(77 1 1 1 3 3 0 1 2 5 0 1 5 0 5 6 21 0 2 1 6 23 4 5 1 2 21 0 3 8 5 38 5 6 38 6 7 23 7 5 3 6 7 5 38 8 6 23 9 7 1 5 21 0 4 6 7 38 8 8 21 0 7 5 8 38 5 8 38 10 9 23 7 0 2 8 9 38 5 8 38 11 9 23 7 0 2 8 9 1 7 23 12 0 1 3 38 8 8 49 13 8 0 49 8 6 0 11 0 5 11 0 4) #(0 21 26 31 57 65 91 107 110) #(T "File does not contain an object." NIL #(NIL) OPEN-FILE-DIALOG *DESKTOP* :LOAD-OBJECT SEND PREVIOUS-DATA OBJECTP :INITIALIZE-DATA-MENU :INITIALIZE-MODEL-MENU ERROR CURRENT-DATA) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Analysis of Variance.  
With no arguments the current data are analyzed. Keyword arguments are
:INTERACTION followed by t (calculate interaction) or nil (do not calculate);
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Analysis of Variance);
:DIALOG followed by t (to display parameters dialog box) or nil (default)." FUNCTION-DOCUMENTATION ANALYSIS-OF-VARIANCE %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(ANALYSIS-OF-VARIANCE #K(#(77 2 1 0 2 0 1 1 23 2 0 1 3 23 3 0 0 38 4 4 23 5 4 2 4 2 23 6 0 1 4 39 7 4 25 8 0 2 4 1) #(0) #("anovamob" ";Analysis of Variance code Copyright (c) 1994-6, by Forrest W. Young" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD ANALYSIS-OF-VARIANCE APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Correspondence Analysis.  
With no arguments, performs a 3-dimensional, row and column normalized correspondence analysis of the active variables in the current data, results being printed to a precision of 4 decimal places. 
Keyword arguments are
:DIMENSIONS followed by an integer to specify the dimensionality of the analysis (default is 3);
:PROFILE followed by one of the following character strings: 
         BOTH (default) to analyze both row and column profiles,
         ROW to analyze row profiles,
         COLUMN to analyze column profiles;
:PRECISION followed by an integer specifying the number of printed decimals;
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Correspondence Analysis);
:DIALOG followed by t (to display parameters dialog box) or nil (default)." FUNCTION-DOCUMENTATION CORRESPONDENCE-ANALYSIS %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(CORRESPONDENCE-ANALYSIS #K(#(77 2 1 0 3 0 1 2 1 23 3 0 1 4 23 4 0 0 38 5 5 23 6 5 2 5 3 23 7 0 1 5 38 5 5 23 6 5 2 5 2 23 7 0 1 5 39 8 5 25 9 0 2 5 1) #(0) #("crspmob2" "crspmob1" ";Correspondance Analysis code Copyright (c) 1992-4, by Lee Bee Leng" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD CORRESPONDENCE-ANALYSIS APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(FACTOR-ANALYSIS #K(#(77 2 1 0 1 0 0 25 1 0 1 2) #(0) #("The Factor Analysis module is not yet available." ERROR-MESSAGE) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Multidimensional Scaling.  
With no arguments, performs a 3-dimensional scaling using all active data matrices in the current data. Keyword arguments are:
:DIMENSIONS followed by an integer to specify the dimensionality of the analysis (default is 3);
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Multidimensional Scaling);
:DIALOG followed by t (to display parameters dialog box) or nil (default)." FUNCTION-DOCUMENTATION MULTIDIMENSIONAL-SCALING %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(MULTIDIMENSIONAL-SCALING #K(#(77 2 1 0 3 0 1 2 1 23 3 0 1 4 23 4 0 0 38 5 5 23 6 5 2 5 3 23 7 0 1 5 38 5 5 23 6 5 2 5 2 23 7 0 1 5 39 8 5 25 9 0 2 5 1) #(0) #("mdsmob2" "mdsmob1" "; mdsmob1, mdsmob2 Copyright (c) 1992-4, by Mary M. McFarlane" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD MULTIDIMENSIONAL-SCALING APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Multivariate Regression analysis.  
With no arguments the current data are analyzed, with the first active numeric variable as the response, and the remaining active numeric variables as the predictors. Keyword arguments are
:RESPONSES followed by a list of the response variables 
      (if there is more than one response variable then several separate
       multiple regressions are performed, each with the same predictors);
:PREDICTORS followed by a list of the predictor variables;
:INTERCEPT followed by t if an intercept is to be computed (default) or 
       nil if an intercept is not to be computed;
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Multivariate Regression);
:DIALOG followed by t (to display parameters dialog box) or nil (default)." FUNCTION-DOCUMENTATION MULTIVARIATE-REGRESSION %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(MULTIVARIATE-REGRESSION #K(#(77 2 1 0 3 0 1 2 1 23 3 0 1 4 23 4 0 0 38 5 5 23 6 5 2 5 3 23 7 0 1 5 38 5 5 23 6 5 2 5 2 23 7 0 1 5 39 8 5 25 9 0 2 5 1) #(0) #("mmrmob2" "mmrmob1" ";Multivariate Regression code Copyright (c) 1992-6, by Forrest W. Young" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD MULTIVARIATE-REGRESSION APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("Former ViSta function to perform multivariate regression. Please use the current multivariate-regression function." FUNCTION-DOCUMENTATION MULTIPLE-REGRESSION %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(MULTIPLE-REGRESSION #K(#(77 2 1 0 0 1 39 0 2 25 1 0 2 2 1) #(0) #(MULTIVARIATE-REGRESSION APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Principal Components analysis.  
With no arguments, calculate correlations among all active numeric variables in the current data and perform a principal components analysis.
Keyword arguments are:
:COVARIANCES followed by t (analyze covariances) or nil (_analyze correlations, the default).
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Principal Components);
:DIALOG followed by t (to display parameters dialog box) or nil (default)." FUNCTION-DOCUMENTATION PRINCIPAL-COMPONENTS %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(PRINCIPAL-COMPONENTS #K(#(77 2 1 0 2 0 1 1 23 2 0 1 3 23 3 0 0 38 4 4 23 5 4 2 4 2 23 6 0 1 4 39 7 4 25 8 0 2 4 1) #(0) #("pcamob" ";Principal Components code Copyright (c) 1992-6, by Forrest W. Young" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD PRINCIPAL-COMPONENTS APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Univariate Regression analysis.  
With no arguments the current data are analyzed, with the first active numeric variable as the response, and the remaining active numeric variables as the predictors. Keyword arguments are
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Univariate Regression);
:DIALOG followed by t (to display parameters dialog box) or nil (default);
:RESPONSE followed by a string which is the name of the response variable (default, first active numeric variable);
:PREDICTORS followed by a list of the predictor variables (default, all active numeric variables except the first);
:ITERATIONS followed by a positive number (default 20);
:METHOD followed by a string which is either ols (the default), robust, or monotonic;
:MIN-RSQ-IMPROVE followed by a postive number near, but not less than, 0 (default is .001)
:MAX-RSQ followed by a positive number near, but not greater than, 1 (default is 1)." FUNCTION-DOCUMENTATION REGRESSION-ANALYSIS %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(REGRESSION-ANALYSIS #K(#(77 2 1 0 2 0 1 1 23 2 0 1 3 23 3 0 0 38 4 4 23 5 4 2 4 2 23 6 0 1 4 39 7 4 25 8 0 2 4 1) #(0) #("regmob" ";Univariate Regression code Copyright (c) 1995-6, by Carla M. Bann" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD REGRESSION-ANALYSIS APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #((PROGN #K(#(80 1 3 0 1 2 0 25 3 0 3 3 2 1) #(0) #("ViSta function to perform Univariate Analysis.  
With no arguments the first active numeric variable of the current data are analyzed, with the remaining variables being ignored. Keyword arguments are:
:DATA followed by the name of the data to be analyzed (default: current-data);
:TITLE followed by a character string (default: Univariate Analysis);
:DIALOG followed by t (to display parameters dialog box) or nil (default);
:VARIABLE followed by a string which is the name of the variable to be analyzed (default is the first active numeric variable);
:MU followed by a number specifying the population mean under the null hypothesis (default is 0);
:SIGMA followed by a number specifying the population standard deviation, if known (default is nil, implying SIGMA is unknown);
:T-DIRECTION followed by -1 (negative 1-tailed), 0 (default, two-tailed), or 1 (positive one-tailed) specifying the type of t-test.
:T-CI-LEVEL followed by a positive number near 1 specifing the confidence interval level (default is .95)." FUNCTION-DOCUMENTATION UNIVARIATE-ANALYSIS %SET-GET) 0 NIL) #K(#(80 1 2 0 1 1 23 2 3 1 2 25 3 0 2 1 3) #(0) #(UNIVARIATE-ANALYSIS #K(#(77 2 1 0 2 0 1 1 23 2 0 1 3 23 3 0 0 38 4 4 23 5 4 2 4 2 23 6 0 1 4 39 7 4 25 8 0 2 4 1) #(0) #("unimob" ";Univariate Analysis code Copyright (c) 1995-6, by Forrest W. Young" PRINC TERPRI *VISTA-DIR-NAME* STRCAT LOAD UNIVARIATE-ANALYSIS APPLY) 0 NIL) BYTE-CODE-CLOSE XLISP::INSTALL-FUNCTION) 0 NIL)) EVAL) 0 NIL)
#K(#(80 1 1 0 0 25 1 0 1 1) #(0) #("modelobj" PROVIDE) 0 NIL)
