Matthew-02 Details

This is a nice steady system which should belong in everyone's portfolio.

The main two components of this systems are that the selections must be running in Great Britain and that the selection must have the best positive 5 Year Class Differential in the race.

Rules

All of these requirements have to be met.
GB only
Positive 5 Year Class Differential
Best 5 Year Class Differential in the race

Additionally the following have to be met for the Race Types:

All Weather:
  Alarm 'c', or
  Underscore RAdj and Underscore WinF, or
  Positive 1 Year Class Differential and Underscore HCP and Underscore Cls, or
  Positive 1 Year Class Differential and Underscore HCP and Underscore WinF, or
  Underscore Trainer and Underscore Lst

Flat:
  Five Year Class Differential > 5.0 and Alarm 'p'

Hurdle:
  Five Year Class Differential > 5.0 and Alarm 'p', or
  Underscore Trainer and Underscore Lst, or
  Underscore Conn and Underscore Lst

Chase:
  Five Year Class Differential > 5.0 and Alarm 'p', or
  Underscore Conn and Underscore Lst, or
  Positive 1 Year Class Differential and Underscore HCP and Underscore Cls, or
  Top-3 rated, Jockey Rated 100+, Trainer Rated 110+ and TrForm Rated 80+


Mission-10: Jan 2013 to April 2015
Level stakes, £100 bank, 5% Commission
Blue Line: Normal selections, Red Line: Value selections


Mission-10 Propoortional stakes: Jan 2013 to April 2015
1% stakes, £100 bank, 5% Commission, max Stake £100
Blue Line: Normal selections, Red Line: Value selections

Runs: 1,324
Wins: 425
Level Stakes Profit: 397
Strike Rate: 32.1%
ROI: 30.0%
Jan 2013 to April 2015
Level stakes, 5% Commission

Code example from the Data Analysis Tool

           nRawRanking  =  Val(asEntry(GetColumnNumber("DK")  -  1))
           nRAdjRanking  =  Val(asEntry(GetColumnNumber("DL")  -  1))
           nHCPRanking  =  Val(asEntry(GetColumnNumber("DV")  -  1))
           nFrmRanking  =  Val(asEntry(GetColumnNumber("DQ")  -  1))
           nSpdRanking  =  Val(asEntry(GetColumnNumber("DU")  -  1))
           nConnRanking  =  Val(asEntry(GetColumnNumber("DP")  -  1))
           nTrainerRanking  =  Val(asEntry(GetColumnNumber("DN")  -  1))
           nLstRanking  =  Val(asEntry(GetColumnNumber("DR")  -  1))
           nWinFRanking  =  Val(asEntry(GetColumnNumber("DT")  -  1))
           nClsRanking  =  Val(asEntry(GetColumnNumber("DS")  -  1))
           nTrFormRanking  =  Val(asEntry(GetColumnNumber("DO")  -  1))
           
           sCountry  =  Trim$(""  &  asEntry(GetColumnNumber("EI")  -  1))
           sAlarms  =  Trim$(""  &  asEntry(GetColumnNumber("AR")  -  1))
           nRanking  =  Val(asEntry(GetColumnNumber("AZ")  -  1))
           
           nClassDifferential5Years  =  Val(asEntry(GetColumnNumber("EO")  -  1))
           nClassDifferential1Year  =  Val(asEntry(GetColumnNumber("FY")  -  1))
           nClassDifferential1YearWins  =  Val(asEntry(GetColumnNumber("GC")  -  1))
           nWeightDifferential1Year  =  Val(asEntry(GetColumnNumber("GG")  -  1))
           
           nTrainer  =  Val(asEntry(GetColumnNumber("AJ")  -  1))
           nTrForm  =  Val(asEntry(GetColumnNumber("DO")  -  1))
           

           bIsSelection  =  False
   
           If  sCountry  =  "GB"  Then
               If  TopColumnRatedAbsolute(nIndexStart,  nIndexEnd,  asEntry(),  "EO")  >  0#  Then '  Has  best  5  Year  Class  Diff.  in  race
                   
                   If  sRaceType  =  "AW"  Then
                       If  nClassDifferential5Years  >  0#  And  InStr(1,  sAlarms,  "c",  vbTextCompare)  >  0  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nRAdjRanking  =  1  And  nWinFRanking  =  1  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nClassDifferential1Year  >  0#  And  nHCPRanking  =  1  And  nClsRanking  =  1  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nClassDifferential1Year  >  0#  And  nHCPRanking  =  1  And  nWinFRanking  =  1  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nTrainerRanking  =  1  And  nLstRanking  =  1  Then  bIsSelection  =  True

                       
                   ElseIf  sRaceType  =  "Flat"  Then
                       If  nClassDifferential5Years  >  5#  And  InStr(1,  sAlarms,  "p",  vbTextCompare)  >  0  Then  bIsSelection  =  True
                                                 
                       
                   ElseIf  sRaceType  =  "Hurdle"  Then
                       If  nClassDifferential5Years  >  5#  And  InStr(1,  sAlarms,  "p",  vbTextCompare)  >  0  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nTrainerRanking  =  1  And  nLstRanking  =  1  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nConnRanking  =  1  And  nLstRanking  =  1  Then  bIsSelection  =  True
                       If  nRanking  >=  1  And  nRanking  <=  9  And  nTrainerRanking  =  1  And  nLstRanking  =  1  Then  bIsSelection  =  True
                   
                   
                   ElseIf  sRaceType  =  "Chase"  Then
                       If  nClassDifferential5Years  >  5#  And  InStr(1,  sAlarms,  "p",  vbTextCompare)  >  0  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  5#  And  nConnRanking  =  1  And  nLstRanking  =  1  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nClassDifferential1YearWins  >  0#  And  nClsRanking  =  1  And  nHCPRanking  =  1  Then  bIsSelection  =  True
                       If  nClassDifferential5Years  >  0#  And  nJockey  >=  100#  And  nTrainer  >=  110#  And  nTrForm  >=  80#  And  nRanking  >=  1  And  nRanking  <=  3  Then  bIsSelection  =  True
                   End  If
                   
               End  If
           End  If