home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 April / DPPCPRO0498.ISO / April / MathCad / SETUP / DATA.Z / pi.mxs < prev    next >
Encoding:
Text File  |  1997-06-03  |  611 b   |  22 lines
  1. /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  2.  *                                                                     *
  3.  * Copyright (c) 1997 MathSoft, Inc. All Rights Reserved.              *
  4.  *                                                                     *
  5.  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  6. /*
  7.  *  Function:  pi ( )
  8.  *
  9.  *  Description:
  10.  *      pi() computes pi to accuracy of machine  
  11.  *
  12.  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
  13.  
  14. function pi ( )
  15.  
  16.   pi = atan( 1 ) * 4
  17.      
  18. end
  19.  
  20.  
  21.  
  22.