home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / IO Examples / Mandelbrot / Complex.dcl next >
Encoding:
Modula Definition  |  1996-12-09  |  369 b   |  16 lines  |  [TEXT/3PRM]
  1. definition module Complex
  2.  
  3. import StdReal
  4.  
  5.     
  6. ::    ComplexNum :== (!Real,!Real)
  7.  
  8.     
  9. AddC    :: !ComplexNum !ComplexNum    -> ComplexNum
  10. SubC    :: !ComplexNum !ComplexNum    -> ComplexNum
  11. MulC    :: !ComplexNum !ComplexNum    -> ComplexNum
  12. SinC    :: !ComplexNum                -> ComplexNum
  13. CosC    :: !ComplexNum                -> ComplexNum
  14. ExpC    :: !ComplexNum                -> ComplexNum
  15. FakeAbsC:: !ComplexNum                -> Real
  16.