* Calculate T Odds for a file
* 


set safety off
set talk off
SELE 1
USE SELECT
SELE 2
*USE banker1
use banker
ZAP


*STORE 0 TO MHNUM_F1,MHNUM_F2,MHNUM_F3,MHNUM_F4
*STORE 0 TO MHNUM_S1,MHNUM_S2,MHNUM_S3,MHNUM_S4,MHNUM_S5,MHNUM_S6,MHNUM_S7
*STORE 0 TO MHNUM_S8,MHNUM_S9
*STORE 0 TO MHNUM_T1,MHNUM_T2,MHNUM_T3,MHNUM_T4,MHNUM_T5,MHNUM_T6,MHNUM_T7
*STORE 0 TO MHNUM_T8,MHNUM_T9,MHNUM_T10,MHNUM_T11,MHNUM_T12,MHNUM_T13,MHNUM_T14
*STORE 0 TO NHNUM_F,NHNUM_S,NHNUM_T




*** Calculate Tierce Odds & ( Q odds for elimination purpose )

SELE 1
USE c4v1200


MRNUM     = 0

GO TOP
DO WHILE .NOT. EOF()
   mw_odds = val(w_odds)
   mo_odds = val(q_odds)
   mp_odds = val(p_odds)



   MTIERCE = 10*mw_odds*(mw_odds*mq_odds-1)*(mp_odds+1)/(mw_odds+1)
   MQIN    = 10*100/((100/(mw_odds*(mw_odds+1)))+(100/(mw_odds*(mw_odds+1))))
 

   repl qp_12 with mtierce
   SKIP

ENDDO


CLOSE ALL