Yurttas/PL/IL/Ada-95/F/04/00/01/complex p-polar p.adb

 1--
 2-- Copyright(C) 1998
 3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this
 6-- software and its documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this
 8-- copyright notice appears in all copies.
 9--
10 
11-- date   : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- complex_p-polar_p.adb
15
16
17package body Complex_P.Polar_P is
18  
19  function Construct_Polar(R,
20                           Theta : in Float) return Complex is
21  begin
22    return(R, Theta);
23  end Construct_Polar;
24
25  function Arg(A : in Complex) return Float is
26  begin
27    return(A.R);
28  end Arg;
29 
30end Complex_P.Polar_P;