complx.adb starting
( 2.00000E+00, 3.00000E+00) = Z
( 3.00000E+00, 2.00000E+00) = Z2
( 0.00000E+00,-7.00000E+00) = (0.0,Q)
( 6.00000E+00, 1.10000E+01) = Z3 = Z * Z2/Z - Q + Z2
 3.00000E+00 = Re(Z2)
 2.00000E+00 = Im(Z2)
 3.60555E+00 = Modulus(Z2)
 5.88003E-01 = Argument(Z2)
( 4.00000E+00, 5.00000E+00) = Compose_From_Cartesian(4.0,5.0)
( 7.07107E-01, 7.07107E-01) = Compose_From_Polar(1.0,Pi/4.0)
( 6.00000E+00, 2.00000E+00) = Z2 from  Set_Re(Z2,6.0)
( 2.00000E+00, 6.00000E+00) = Z3 from  Set_Im(Z,6.0)
( 1.83420E+02,-8.39423E+01) = sin(Z)
complex.adb finishing