Conference rusure::math

422.0. "CALREAL, a real Number calculat" by MENTOR::KOSTAS () Fri Jan 10 1986 16:11

  CALREAL is a real number calculator that does mathematical computations.
  All of the trigonometric functions are supported.

  To copy the save set kit over the network, just do:
      1.   $copyxxx/log mentor::ptg$root:[kostas.userlib]calreal.a *.*
      2.   $backup/log calreal.a/sav *.*
   
  If you have any problems with this utility please contact the Author.
  Kostas can be reached at (617)-467-4511 or on the ENET MENTOR::KOSTAS.

  The following are all the functions which are supported by the
  CALREAL Utility:

  SIN,    COS,    TAN,   ARCTAN,   EXP,      LN,     SQRT,    SINH, 
  COSH,   TANH,   COTH,  SECH,     CSCH,     TENF,   SQR,     FACTORIAL, 
  SIGMA,  PRED,   SUCC,  HELP,     EXIT,     ROUND,  TRUNC,   FIBONACCI, 
  BU,     GRAPH,  RANGE, INCREMENT, LA.

  Purpose

  To simulate a calculator in Pascal. This calculator takes 
  numerical expressions fed to it interactively at the
  terminal and returns the numerical value of the expressions.
  If the expressions are faulty, an error message will be 
  returned.

  FUNCTIONS RECOGNIZED AND VALUES RETURNED FROM
  ---------------------------------------------

  FUNCTION      RETURN VALUE                                        
  --------      --------------------------------------------------  
  ABS(X)        ABS( X )                                            
  SIN(X)        SIN( X )                                            
  COS(X)        COS( X )                                            
  TAN(X)        SIN( X )/ COS( X )                                  
  ARCTAN(X)     ARCTAN( X )                                         
  EXP(X)        EXP( X )                                            
  LN(X)         IF X >0 THEN LN( X ) ELSE LN( -X )                  
  SQRT(X)       IF X >0 THEN  SQRT( X ) ELSE SQRT( -X )             
  SINH(X)       (EXP(X)- EXP(-X))/ 2.0                              
  COSH(X)       (EXP(X)+ EXP(-X))/ 2.0                              
  TANH(X)       (EXP(X)- EXP(-X))/(EXP(X)+EXP(-X))                  
  COTH(X)       (EXP(X)- EXP(-X))/(EXP(X)-EXP(-X))                  
  SECH(X)       2.0/(EXP(X)+ EXP(-X))                               
  CSCH(X)       2.0/(EXP(X)- EXP(-X))                               
  TENF(X)       (10!) * X         ( 10!= 3628800.00 )               
  SQR(X)        X * X                                               
  FACTORIAL(X)  1 * 2 * 3 * 4 * . . . *(X-1) * X  
  SIGMA( X )    This command computes the following summation:

                       X
                     -----
                      \
                      /    i  =   1 + 2 + 3 + 4 + 5 + 6 + ... + (X-1) + X
                     -----
                     i = 1

  PRED(X)       X - 1.00;                                           
  SUCC(X)       X + 1.00;                                           
  HELP(X)       Produces this page of help and evaluates expression 
  # or EXIT(X)  EXITS CALREAL                                       
  INT(X)        CONVERTS the value of X to an integer               
  ROUND(X)      ROUNDS the real value of X to the nearest integer.  
  TRUNC(X)      TRUNCATES the real value of X to an integer.        
  FIBONACCI(X)  The FIBONACCI number of X                           
  BU( X )       2 ^ to a large number X                             
  GRAPH( X )    This command produces a graph of selected trigonometric 
                functions. X here takes values from 1 to 4.
                   When X = 1 the graph of SIN(X) will be produced.
                   When X = 2 the graph of COS(X) will be produced.
                   When X = 3 the graph of TAN(X) will be produced.
                   When X = 4 the graph of EXP(X) will be produced.
  RANGE( X )    This command prints the values from a selected function 
                between 0 and 360 degrees at increments set by the INCREMENT 
                function. X here takes values from 1 to 3.
                  When X = 1 the values of SIN(X) will be returned.
                  When X = 2 the values of COS(X) will be returned.
                  When X = 3 the values of TAN(X) will be returned.

  INCREMENT(X)  Changes the increment to be used by range with         
                the given value  of X 
  FOOEY(X)      When X=1 all the values between 1 and x will be printed

  LA( X )       This is a boolean function. If there is an LA50 connected 
                to the users terminal and X=1 the LA50 will be turned on. 
                If X=0 then the LA50 will be turned off.

  Examples

  1.  This evaluates the expression: 12+(45*3)-12/2  and stores the 
      results in  A. 
      CALREAL> 
      CALREAL> 12+(45*3)-12/2: A;

  2.  This requests for the 1st page of the help pages available.
      CALREAL> 
      CALREAL> help(1);

  3.  This makes use of the trigonometric functions SIN and COS.
      CALREAL> 
      CALREAL> sin( cos(12) );

Enjoy,

Kostas G.
<><><><><>

Well,

    there is a better way to get the CALREAL kit. Just do the following:

    1.   $copy mentor::ptg$root:[kostas.userlib]calrealkit.com *.*
    2.   [email protected]

    if the executable image does not run due to incompatible run time
    sharable libraries just link the object file (CALREAL.OBJ ) by
    doing:

    3.  $link calreal

    and lastly

    4.  $run calreal

Enjoy,

Kostas G.
<><><><><>

  Hello,

     This is to inform you that a new version of CALREAL V2.7-000 is 
  now available from: KEEPER::PIN:[KOSTAS.USERLIB]CALREALKIT.COM.
  So just do: 
  
    $COPYXXX/LOG  KEEPER::PIN:[KOSTAS.USERLIB]CALREALKIT.COM *.*

    [email protected]


  I have managed to include in the save set the following files:

    CALREAL.MEM  - THIS IS CALREALS USER GUIDE.                         
    CALREAL$RELEASE_NOTES.MEM -  THIS FILE CONTAINS A BRIEF DESCRIPTION 
                           OF THE NEW FUNCTIONALITY SINCE THE LAST RELEASE.     
    CALREAL.HLP  - THIS IS THE HELP FILE TO MAKE SYS$HELP:CALREAL.HLB.  
    CALREAL.CLD  - THIS THE CLD FILE TO BE ADDED TO THE DCLTABLES.EXE.  
    CALREAL.EXE  - THIS IS THE EXECUTABLE IMAGE OF CALREAL.             
    CALREAL$INSTAL.COM  - THIS IS THE COMMAND FILE THAT INSTALLS CALREAL       
                          AND MAKES IT AVAILABLE TO ALL USERS ON THE VAX.      


Enjoy,

Kostas G.