home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l391 / 2.ddi / MATHA.BI$ / MATHA.bin
Encoding:
Text File  |  1992-08-19  |  1.5 KB  |  34 lines
  1. ' Include file for the Matrix Math ToolKit routines 
  2. ' (Alternate math).
  3. '
  4. ' This file should be included in any application
  5. ' using the Matrix Math routines.
  6. '
  7. ' Copyright (C) 1982-1992 Microsoft Corporation
  8. '
  9. DECLARE FUNCTION MatAddD% (Alpha() AS DOUBLE, Beta() AS DOUBLE)
  10. DECLARE FUNCTION MatAddI% (Alpha() AS INTEGER, Beta() AS INTEGER)
  11. DECLARE FUNCTION MatAddL% (Alpha() AS LONG, Beta() AS LONG)
  12. DECLARE FUNCTION MatAddS% (Alpha() AS SINGLE, Beta() AS SINGLE)
  13. DECLARE FUNCTION MatDetD% (A() AS DOUBLE, det#)
  14. DECLARE FUNCTION MatDetI% (A() AS INTEGER, det%)
  15. DECLARE FUNCTION MatDetL% (A() AS LONG, det&)
  16. DECLARE FUNCTION MatDetS% (A() AS SINGLE, det!)
  17. DECLARE FUNCTION MatInvD% (A() AS DOUBLE)
  18. DECLARE FUNCTION MatInvS% (A() AS SINGLE)
  19. DECLARE FUNCTION MatMultD% (Alpha() AS DOUBLE, Beta() AS DOUBLE, Gamma() AS DOUBLE)
  20. DECLARE FUNCTION MatMultI% (Alpha() AS INTEGER, Beta() AS INTEGER, Gamma() AS INTEGER)
  21. DECLARE FUNCTION MatMultL% (Alpha() AS LONG, Beta() AS LONG, Gamma() AS LONG)
  22. DECLARE FUNCTION MatMultS% (Alpha() AS SINGLE, Beta() AS SINGLE, Gamma() AS SINGLE)
  23. DECLARE FUNCTION MatSEqnD% (A() AS DOUBLE, b() AS DOUBLE)
  24. DECLARE FUNCTION MatSEqnS% (A() AS SINGLE, b() AS SINGLE)
  25. DECLARE FUNCTION MatSubD% (Alpha() AS DOUBLE, Beta() AS DOUBLE)
  26. DECLARE FUNCTION MatSubI% (Alpha() AS INTEGER, Beta() AS INTEGER)
  27. DECLARE FUNCTION MatSubL% (Alpha() AS LONG, Beta() AS LONG)
  28. DECLARE FUNCTION MatSubS% (Alpha() AS SINGLE, Beta() AS SINGLE)
  29.  
  30.  
  31. CONST seps! = .00001
  32. CONST deps# = .00000000001#
  33.  
  34.