[Date Prev] [Date Next] [Thread Prev] [Thread Next] Date Index Thread Index Search archive:
Date:Mon Aug 4 11:24:04 1993 
Subject:Re: fractional precision of numbers 
From:Colin Shearer 
Volume-ID:930804.02 

Phil,

If you want "=" to accept numbers which are "nearly equal", you can do
something like this :


    vars minimum_difference = 0.0001;

    procedure(x,y);
        abs(x-y) < minimum_difference;
    endprocedure ->> class_=(key_of_dataword("decimal"))
				 ->  class_=(key_of_dataword("ddecimal"));

which gives :

    : vars l, k;
    : 0.123456789->l;
    : 0.1234->k;
    : l=k =>
    ** <true>


Regards,

Colin Shearer