home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Archive Magazine 1996
/
ARCHIVE_96.iso
/
discs
/
mag_discs
/
volume_9
/
issue_07
/
gerald
/
ErrorChk
/
c_Same
next >
Wrap
Text File
|
1994-07-27
|
582b
|
42 lines
%OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938
%OP%TNN
%OP%WRN
%OP%DP0
%OP%IRN
%OP%PL0
%OP%HM0
%OP%FM0
%OP%BM0
%OP%LM4
%OP%PT1
%OP%PDPipeLine
%OP%WC2,1248,44,600,0,1,0,2
%OP%FR0,2
%CO:A,46,72%Comments and Commands
------------------------------------------------------------------------
Function "same_number"
Checks whether "first" and "second" are 'near enough' the same
%V%%L%function("same_number","first:number","second:number")
%V%%L%if(abs(@first-@second)/(@first+@second)<(1e-16),"OK","Error")
%V%%L%result(A11)
%CO:B,6,0%Value
%CO:C,20,0%