home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / INTEGRAT.PAK / MAIN.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  892 b   |  41 lines
  1. (* ****************************************************************
  2. *
  3. *     MAIN -- Entries to Mathematica code from C code.
  4. *
  5. **************************************************************** *)
  6.  
  7. Begin[ "Integrate`"]
  8.  
  9. General::intinit = "Loading integration packages."
  10.  
  11. Message[ General::intinit]
  12.  
  13. Unprotect[Definite, IntegrateG]
  14.  
  15. Clear[ Definite, IntegrateG]
  16.  
  17. Definite[$f_,$xmin_,$xmax_]:=
  18.   (* Definite integration. *)
  19.   Block[{$answer},
  20.     TrcEnter[Definite,$f,$xmin,$xmax];
  21.     (* Call Victor's code. *)
  22.     $answer=IntegrateG[$f,{X,$xmin,$xmax}];
  23.     If[Not[FreeQ[$answer,IntegrateG]],
  24.        $answer=NOK];
  25.     TrcExit[Definite,$answer];
  26.     $answer]
  27.     
  28. Get[ "Integrate`inputrules`"]
  29. Get[ "Integrate`logcases`"]
  30. Get[ "Integrate`mainalgorithm`"]
  31. Get[ "Integrate`taylorseries`"]
  32. Get[ "Integrate`theoremslater`"]
  33.  
  34. Protect[Definite]
  35.  
  36. End[]
  37.  
  38. Null
  39.  
  40.  
  41.