home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / gerald / 8_02 / CrossCheck / c_Same next >
Text File  |  1994-07-27  |  582b  |  42 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP0
  5. %OP%IRN
  6. %OP%PL0
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM4
  11. %OP%PT1
  12. %OP%PDPipeLine
  13. %OP%WC2,1248,44,600,0,1,0,2
  14. %OP%FR0,2
  15. %CO:A,46,72%Comments and Commands
  16.  
  17. ------------------------------------------------------------------------
  18.  
  19. Function "same_number"
  20.  
  21. Checks whether "first" and "second" are 'near enough' the same
  22.  
  23. %V%%L%function("same_number","first:number","second:number")
  24.  
  25. %V%%L%if(abs(@first-@second)/(@first+@second)<(1e-16),"OK","Error")
  26.  
  27. %V%%L%result(A11)
  28. %CO:B,6,0%Value
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35. %CO:C,20,0%
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.