home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / gerald / 9_07 / ErrorChk / ErrorCheck < prev    next >
Text File  |  1994-07-27  |  899b  |  95 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP2
  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,1418,692,1128,7,9,0,0
  14. %CO:A,3,0%%CO:B,8,0%
  15.  
  16. %R%Apr
  17.  
  18. %V%%R%0
  19. %V%%R%0.2
  20. %V%%R%0.2
  21. %V%%R%0.2
  22.  
  23. %V%%R%sum(B4B9)
  24. %CO:C,10,0%
  25.  
  26. %R%May
  27.  
  28. %V%%R%0.01
  29. %V%%R%0.01
  30. %V%%R%0.01
  31. %V%%R%0.01
  32.  
  33. %V%%R%sum(C4C9)
  34. %CO:D,10,0%
  35.  
  36. %R%Jun
  37.  
  38. %V%%R%0.01
  39. %V%%R%0.01
  40. %V%%R%0.01
  41. %V%%R%0.01
  42.  
  43. %V%%R%sum(D4D9)
  44. %CO:E,10,0%
  45.  
  46. %R%Jul
  47.  
  48. %V%%R%0.01
  49. %V%%R%0.01
  50. %V%%R%0.01
  51. %V%%R%0.01
  52.  
  53. %V%%R%sum(E4E9)
  54. %CO:F,2,0%%CO:G,8,0%
  55.  
  56. %R%Total
  57.  
  58. %V%%R%sum(A5F5)
  59. %V%%R%sum(A6F6)
  60. %V%%R%sum(A7F7)
  61. %V%%R%sum(A8F8)
  62.  
  63. %V%%R%sum(A10F10)
  64. %CO:H,8,0%
  65.  
  66. %R%Testá1
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73. %V%%R%if((sum(G4G9)-sum(A10F10))=0,"OK","Error")
  74. %CO:I,8,0%
  75.  
  76. %R%Testá2
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83. %V%%R%if(abs(sum(G4G9)-sum(A10F10))/(sum(G4G9)+sum(A10F10))<(1e-10),"OK","Error")
  84. %CO:J,8,0%
  85.  
  86. %R%Testá3
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93. %V%%R%[c_Same]same_number(sum(G4G9),sum(A10F10))
  94.  
  95.