[m-rev.] diff: remove reverse modes of extras/complex_numbers arithmetic functions

Simon Taylor stayl at cs.mu.OZ.AU
Sun Sep 23 16:44:21 AEST 2001


On 23-Sep-2001, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> On 22-Sep-2001, Simon Taylor <stayl at cs.mu.OZ.AU> wrote:
> > 
> > +++ extras/complex_numbers//complex.m	2001/09/22 12:08:00
> > @@ -1,5 +1,5 @@
> >  %---------------------------------------------------------------------------%
> > -% Copyright (C) 1997-1998 The University of Melbourne.
> > +% Copyright (C) 1997-2001 The University of Melbourne.
> 
> That should be
> 
> % Copyright (C) 1997-1998,2001 The University of Melbourne.
> 
> Likewise for the other files here.

Done.

> > +++ extras/complex_numbers//complex_float.m	2001/09/22 12:08:11
> >  
> > -pow(cmplx(Re0, Im0), P) = cmplx(Re, Im) :-
> > -	cartesian_to_polar(Re0, Im0, L0, Th0),
> > -	L = pow(L0, P),
> > +pow(Z0, P) = Z :-
> > +	complex_to_polar(Z0, L0, Th0),
> > +	L = math__pow(L0, P),
> >  	Th = Th0 * P,
> > -	polar_to_cartesian(L, Th, Re, Im).
> > +	Z = polar_to_complex(L, Th).
> 
> What was the motivation for that change?

	extras/complex_numbers/complex_float.m:
	extras/complex_numbers/float_complex.m:
		Fix some compile errors.

`cartesian_to_polar' and `polar_to_cartesian' do not exist.
complex_float.m and float_complex.m were not included
in the complex_numbers library before my change, so they
weren't ever being compiled.

Simon.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list