rfc525.txt

RFC 的详细文档！

         will come back with INTEGRATE (Expression) as its answer.)

      C. An OLS Utilities package for allowing users to more easily
         manipulate the numerical vectors describing the
         expressions,i.e., setting up linear and logarithmic sweeps for
         the various plots, describing the scale of the plots on the OLS
         screens.

      D. The ability to have an OLS program written from a MATHLAB
         function, including IF, THEN, ELSE, DO,etc.  This would most
         likely require a more sophisticated parse than is done in the
         current implementation.

EXAMPLE

   An example is included in which a UCSB user:

      A. Logs into MATHLAB,

      B. Initializes the "SAVE" function,

      C. Generates a polynomial function and its derivative and
         integral,




Parrish & Pickins                                               [Page 5]

RFC 525                MIT-MATHLAB MEETS UCSB-OLS            1 June 1973


      D. Logs out of MATHLAB,

      E. Creates the retrieval job,

      F. Waits and then displays the resultant user programs,

      G. and, finally, creates the X variable and plots the functions.

   Although the sample OLS manipulations are very simple ones it should
   be noted that the user could compare the retrieved functions with
   numerical models or even use the functions as subroutines in higher
   level algorithms.  Usage of this combined numeric-symbolic system is
   limited to the imagination of the user.

   The example follows:

   USER TELNET                    Connection to MATHLAB from UCSB
   LOGIN TO MIT-ML                     "II LOG MIT-ML RETURN"

   MIT MATHLAB PDP-10

   ML ITS.796. DDT.514.
   9. USERS

   :LOGIN WMP                              Login to MIT-MATHLAB.


   :MACSYMA                                Call up MACSYMA

   THIS IS MACSYMA 212

   USE " INSTEAD OF ?
   SEE UPDATE > MACSYM;

   FIX 212 DSK MACSYM BEING LOADED
   LOADING DONE

   (C1) BATCH(BATCH,UTILS);                Load BATCH UTILS file.

   (UREAD BATCH UTILS DSK WMP) FILE NOT FOUND

   (C2) BATCH(BATCH,UTILS,DSK,UCSB);

   (C2) LISTX:();
   (D2)                                    ()

   (C3) ADDLIST(X):=LISTX:CONS(X,LISTX);
   (D3)                   ADDLIST(X) := (LISTX : CONS(X, LISTX))



Parrish & Pickins                                               [Page 6]

RFC 525                MIT-MATHLAB MEETS UCSB-OLS            1 June 1973


   (C4) SAVE(FILENAME):=APPLY(STRINGOUT,APPEND(
              CONS((FILENAME,BATCH,DSK,UCSB),REVERSE(LISTX)),("?")));
   (D4) SAVE(FILENAME) :=
        APPLY(STRINGOUT,APPEND(CONS((FILENAME, BATCH, DSK, UCSB),
        REVERSE(LISTX)),(?)))

   (D5)                                          BATCH DONE

   (C6) (X**2+3)/(X+1);
                                                2
                                               X  + 3
   (D6)                                        -------
                                                X + 1
   (C7) INTEGRATE(%,X);

   SIN FASL DSK MACSYM BEING LOADED
   LOADING DONE                                2
                                              X  - 2 X
   (D7)                                      ----------  + 4 LOG(X + 1)
                                                2
   (C8) ADDLIST('D6);
   (D8)                                       (D6)

   (C9) ADDLIST('D7);
   (D9)                               (D7, D6)   Use ADDLIST function
                                        to save line numbers D6 and D7.

   (C10) DIFF(D6,X);
                                              2
                                     2 X     X  + 3
   (D10)                            ----  -  ------
                                     X+1          2
                                             (X+1)

   (C11) ADDLIST('D10);
   (D11)                      (D10, D7, D6)   Use ADDLIST function to
                                              save line number D10.

   (C12) SAVE(MYFILE);
   (D12)                     (D6, D7, D10, ?)  Write list of lines out
                                                  to a disk file using
   (C13) *********Z     Leave MACSYMA                   SAVE function.
   25156)    .IOT 1,1

   :LISTF UCSB


   DSK UCSB



Parrish & Pickins                                               [Page 7]

RFC 525                MIT-MATHLAB MEETS UCSB-OLS            1 June 1973


   FREE BLCCKS UO #1 241 U1 #3 345 U2 #5 379

   3    ATTN     BATCH  1  5/23/73  13:53:11
   1    BATCH    UTILS  1  5/23/73  13:11:43
   3    DEMO     WMP    1  5/26/73  15:29:26
   5    DEMO1    BATCH  1  4/29/73  22:41:17
   1    DEMO99   BATCH  1  5/25/73  00:07:15
   5    MYFILE   BATCH  1  5/31/73  12:41:50 <-- file is in directory
   1    _MSGS_   UCSB   0  5/26/73  21:13:53     at MATHLAB

   :LOGOUT
                                               Logout and disconnect.
   -------------------------------------------------------------------
   ML ITS 796 CONSOLE 24 FREE. 12:42:35

   DISCONNECTION COMPLETE
   WORK AREAS UPDATED                         Load Retrieval program
   LOAD MATHLAB                             "SYST LOAD MATHLAB RETURN"
   FILE LOADED

                                          "USER LO (+)"
   RETRIEVE EXPRESSIONS
   --------------------

   MATHLAB FILE? (EXP)
   -->MYFILE-->MYFILE.                    "MYFILE ENTER"
   OLS FILE?  (MYFILE)
   -->demo11-->demo11                     "demo11 ENTER"
   OLS FILE
   PROTECT CODE?  ()                      "demo11 ENTER"
   -->DEMO-->demo11
   BATCH JOBNAME? (MYFILE)                "PARSET ENTER"
   -->PARSET-->PARSET.

   PRESS ENTER TO SUBMIT JOB              "ENTER"

   VOLUME NEEDED=
   JOB SUBMITTED

   JOB TO RETRIEVE MATHLAB
   EXPRESSIONS IS NOW IN
   UCSB-MOD75 BATCH QUEUE.    Some time elapses and batch job is run.
                              Load the retrieved program.
   WORK AREAS UPDATED         "SYST LOAD demo11 RETURN"
   LOAD demo11
   FILE LOADED





Parrish & Pickins                                               [Page 8]

RFC 525                MIT-MATHLAB MEETS UCSB-OLS            1 June 1973


                          Display the returned expressions.

   (USER LI (+))                    "USER I DISPLAY (+)"
   ------------------------------------------------------------------
   LII REAL LOAD ((X**2 (+)  3)/(X (+) 1)):

   (USER LI (-))                    "USER I DISPLAY (-)"
   LII REAL LOAD ((X**2 (-) 2*X)/2 + 4* LOG (X (+) 1)):
   ------------------------------------------------------------------

   (USER L1 (*))                      "USER I DISPLAY (*)"
   LII REAL LOAD (2*X/(X (+) 1) <> (X**2 (+) 3)/(X (+) 1)**2):

   USER LI SQ UNDEFINED             "USER DISPLAY SQ"



   [The following figure is available in the .ps and .pdf version of
   this document:]

   Sample OLS Curves Generated for -.5 < x < 4.5
                                       -   -

Endnotes

 [1]  Supported on a PDP-10 System at MIT and available for the use at
      UCSB by the way of APRA Network.

 [2] [In this memo, the notation "(+)", "(-)", and "(*)" has been
      substituted for a circle enclosing a +, -, and * symbol,
      respectively.]


           [This RFC was put into machine readable form for entry]
      [into the online RFC archives by Helene Morin, Via Genie 12/1999]
















Parrish & Pickins                                               [Page 9]