Dk3Ek3X,Dk3 (H(`Xx\db8q8Lt\x 8'D` 0 tX \% -L X8 FOR RECENCY LR''DACM2NV DS L1:EARNINGS ELX'EL1  log LOG ''ERROR EL''  ELXELX  L1A'  EL0100000,EL ELIV[2](1+.010,4)[1++/(10002 10 50 100)EL] L1A:ELX'ES1  log LOG ''ERROR ES''  ELXELX  L2'  ES0100000,ES ESIV[2](1+.010,4)[1++/(10002 10 50 100)ES] L2:JOCKEY RECORD ELX'JR1  log LOG ''ERROR JR''  ELXELX  L3' JR(JS),(J1),(J2),J3 JRIV[3](1+.010,4)[1++/(.2+.054)<(+/3 2 13JR)DIV 31JR] L3:TRAINER RECORD ELX'TR1  log LOG ''ERROR TR''  ELXELX  L4' TR(TrS),(Tr1),(Tr2),Tr3 TRIV[4](1+.010,4)[1++/(.2+.054)<(+/3 2 13TR)DIV 31TR] L4:WEIGHT CARRIED ELX'WG1  log LOG ''ERROR WG''  ELXELX  L5' WGIV[12](1,1+.014)[1++/(WG)<122 115 107 100] L5:RECENCY FACTOR ELX'RF1  log LOG ''ERROR RF''  ELXELX  L6' RFIV[11](.95 1 1.05)[1++/LR<14 30] L6:CALCULATE POWER RATINGS ELXELX SR[(^/' '=SR)/1SR;1]'0' :if /TV 20070503 - THANKS TO JUERGEN W. TV[(^/' '=TV)/1TV;1]'0' :endif SRIV[1](ivD)CM2NV SR  TV(ivD)CM2NV TV CFRFWGTRJRESEL PRCF+/((3.2SR)+2.8TV)ivD+/ivD PRPR,CF+/((3.2SR)+2.8TV)ivW+/ivW PRPR,CF+/((3.2SR)+2.8TV)ivT+/ivT ZPR.01.5+100PR ROUND TO 2 DECIMAL PLACES log LOG 'RECALC SUCCESSFUL FOR ',DTLB HN  0 ER1:log LOG 'RECALC FAILED FOR ',(DTLB HN),'. OLD POWER RATINGS KEPT.' J