- This topic has 166 replies, 10 voices, and was last updated 18 years, 9 months ago by
.
-
Posts
-
Jar.
Yes.I have tried Pro Punter.<br>If you knew anything about programming,you would make a much better computer program yourself.
I have obtained a few Computer Based horse racing programs,and found them all to be a waste of time.<br>Some take to much time to enter all the information,only in the end,to give a rating,that could be achieved easier.<br>Others make no sense at all.
The BEST computer program,is one that you program yourself.
Don’t waste your money on so called professional programs.
My Favorite Horse racing Computer Program is,
M Y…O W N.<br>————————————————————————<br>Anyone need a Computer Based Program.<br>Let me know what you need.<br>
(Edited by william winalot at 10:09 am on Sep. 21, 2003)
Hi WW
I would like to take you up on your offer.
Something to give a Speed Rating, Comprising of<br>Weight, Going, Distance, Time, Class, if possible
<br>nall<br>
nall.
I will post a Computer Program based on,
1.Getting the average for the following.
Position Last Time Out<br>Days since Last Run.<br>Weight<br>Speed Rating.<br>Odds
Would this do for you,as a more complicated program would take to much of my time up,which I can not spare.
You could ammend the program to your own needs.
(Edited by william winalot at 12:52 pm on Sep. 22, 2003)
Hi all<br>I too have written two computer programs. One was similar to conventional programs using race places, SP forecast and newspaper form.  My second program used newspaper form plus weights, placings and days since the last race.
I tested both programs over a year.  My first program produced results almost exactly the same as the well known fineform formulae.  My second program produced slightly better results but kept hitting long losing runs.
At the same time I also compared the results of races when 4 newspaper tipsters selected the same horse.<br>I used Templegate from the Sun Online and Wright Choice from the Times Online plus two tipsters from a daily newspaper I usually take.  This produced slightly more profit than either of my computer programs and I suspect would do better than any commercial computer program.  <br>I am still a fan of computer programs, I just cannot beat simply choosing the selections when 4 tipsters agree.<br>It also seems that 4 tipsters is the maximum number to use.  If you select horses when more tipsters agree the odds shorten too much and no profit is made.<br>
Jar.
Years ago I tried out a SYSTEM based on the Following,you would think it was a sound principal for pickling winners,but no so.
Here it is.RACING POST PAPER
1.Horse must be TOP of Selections.<br>2.Horse must be TOP of TOPSPEED.<br>3.Horse must be TOP of POSTDATA<br>4.Horse must be TOP of POSTMARK.<br>5 Horse must be FAVORITE in S.P<br>6.Horse must be TOP of {OR } RATING.
Sounds Logical.
WARNING XXXX WARNING.
DO NOT TRY…This System never showed a Profit.
Just goes to show,the Best do not always win.
Some very simple Systems,that have no LOGIC to them,pick winners,and KEEP showing a Profit.
Nall.
The system I will post,will give the average for the race.
Example.
It will give the average Days Since Last Run<br>Average Weight in Race.<br>Average Odds in Race.<br>Average Rating in Race.
This Program is not a System,It gives the Average for the Race.
You would then know which Horses are Above or Equal to the Average for the Race.
It does mean that the TOP horse would be the Winner.
But it would give you a good guide.
Will post Program later,check back.
Hi William<br>Part of the problem, I find, with systems that use top of Postmark, top of Topspeed, top of Postdata etc, is that many others look at the Racing Post, so any value in selections of these tipsters are reduced to the point where the bookmakers overround more than eats it all up.  This is made worse nowadays since the Sporting Life is not available for a competing point of view and the few other ratings available are expensive.
A system I used when the Today newspaper was available was to pick the top on form in the Today newspaper when it was also a best bet in the Racing and Football Outlook.  This did quite well, probably because the circulation of the Today newspaper and the Racing and Football Outlook was not that large.
Another problem, I think is that the ratings in the Racing Post are really very good. So that when winners are picked in a different manner, using different criteria the strike rate always suffers although profit may increase.
GO INTO DOS PROMPT.<br>MAKE DIRECTORY…..HORSES<br>COPY LINE 10 TO 400 TO NOTEPAD<br>SAVE AS >>> AS [ PLTO.BAS ] IN THE HORSES DIRECTORY<br>——————————————————————–<br>10 CLS:KEY OFF<br>20 COLOR 15<br>30 OPEN "PLTO" FOR OUTPUT AS #1<br>40 LOCATE 10,23<br>50 COLOR 14<br>60 INPUT "NUMBER OF RUNNERS IN RACE ",A<br>70 CLS:KEY OFF<br>80 COLOR 15<br>90 PRINT "            IF FIRST TIME OUT TYPE 0"<br>100 PRINT "——————————————————————————-"<br>110 FOR B=1 TO A<br>120 COLOR 15<br>130 PRINT "POSITION OF HORSE NUMBER ";<br>140 COLOR 26<br>150 PRINT B;:COLOR 15<br>160 PRINT " LAST TIME OUT ":INPUT C<br>170 PRINT #1,C<br>180 D=C+D:E=D/B<br>190 IF B=11 THEN CLS:KEY OFF<br>200 NEXT<br>210 CLS:KEY OFF<br>220 COLOR 14:PRINT "               AVERAGE=";E:COLOR 7<br>230 PRINT "——————————————————————————-"<br>240 CLOSE<br>250 COLOR 14:PRINT "            POSITION LAST TIME OUT":COLOR 15<br>260 OPEN "PLTO" FOR INPUT AS #1<br>270 OPEN "POSITION" FOR OUTPUT AS #2<br>280 INPUT #1,F<br>290 IF F>0 AND F<=9 AND F<=E THEN COLOR 15:PRINT "      HORSE NUMBER ";" ";F;" ABOVE OR EQUAL TO AVERAGE";:COLOR 26:PRINT "<<<<<"<br>300 IF F>0 AND F>=10 AND F<=E THEN COLOR 15:PRINT "      HORSE NUMBER ";F;" ABOVE OR EQUAL TO AVERAGE";:COLOR 26:PRINT "<<<<<"<br>310 IF F>0 AND F<=9 AND F<=E THEN PRINT #2,F<br>320 IF F>0 AND F>=10 AND F<=E THEN PRINT #2,F<br>330 IF EOF(1) THEN CLOSE:GOTO 350<br>340 GOTO 280<br>350 OPEN "RUNNERS" FOR OUTPUT AS #1<br>360 PRINT #1,A<br>370 COLOR 15<br>380 PRINT:PRINT:PRINT:PRINT:PRINT "           PRESS ANY KEY TO CONTINUE"<br>390 A$=INPUT$(1)<br>400 RUN "DAYS.BAS"<br>
COPY LINE 410 TO 670 TO NOTEPAD<br>SAVE AS….[ DAYS.BAS ] IN HORSES DIRECTORY
<br>410 CLS:KEY OFF<br>420 COLOR 15<br>430 OPEN "RUNNERS" FOR INPUT AS #1<br>440 INPUT #1,A<br>450 CLOSE<br>460 OPEN "DAYS" FOR OUTPUT AS #1<br>470 FOR B=1 TO A<br>480 PRINT "HORSE NUMBER ";:COLOR 26:PRINT B;:COLOR 15:PRINT" DAYS SINCE LAST RUN ":INPUT C:COLOR 15<br>490 CLS:KEY OFF<br>500 D=C+D:E=D/A<br>510 PRINT #1,B,C<br>520 NEXT<br>530 CLOSE<br>540 CLS:KEY OFF<br>550 PRINT "              AVERAGE=";E<br>560 PRINT "——————————————————————————-"<br>570 OPEN "DAYS" FOR INPUT AS #1<br>580 OPEN "DAYSSINC" FOR OUTPUT AS #2<br>590 INPUT #1,F,G<br>600 IF G<=E THEN PRINT "          HORSE";F;"BETTER THAN AVERAGE"<br>610 IF G<=E THEN PRINT #2,F<br>620 IF EOF(1) THEN CLOSE:GOTO 640<br>630 GOTO 590<br>640 COLOR 15<br>650 PRINT:PRINT:PRINT:PRINT:PRINT "           PRESS ANY KEY TO CONTINUE"<br>660 A$=INPUT$(1)<br>670 RUN "WEIGHT.BAS"<br>
COPY LINE 670 TO 1330 TO NOTEPAD<br>SAVE AS….[ WEIGHT.BAS ]
<br>670 CLS:KEY OFF<br>680 OPEN "RUNNERS" FOR INPUT AS #1<br>690 INPUT #1,A<br>700 CLOSE<br>710 OPEN "WEIGHT" FOR OUTPUT AS #1<br>720 FOR B=1 TO A<br>730 INPUT "HORSES WEIGHT ",A$<br>740 IF A$="10.00" THEN C=140<br>750 IF A$="9.13" THEN C=139<br>760 IF A$="9.12" THEN C=138<br>770 IF A$="9.11" THEN C=137<br>780 IF A$="9.10" THEN C=136<br>790 IF A$="9.09" THEN C=135<br>800 IF A$="9.08" THEN C=134<br>810 IF A$="9.07" THEN C=133<br>820 IF A$="9.06" THEN C=132<br>830 IF A$="9.05" THEN C=131<br>840 IF A$="9.04" THEN C=130<br>850 IF A$="9.03" THEN C=129<br>860 IF A$="9.02" THEN C=128<br>870 IF A$="9.01" THEN C=127<br>880 IF A$="9.00" THEN C=126<br>890 IF A$="8.13" THEN C=125<br>900 IF A$="8.12" THEN C=124<br>910 IF A$="8.11" THEN C=123<br>920 IF A$="8.10" THEN C=122<br>930 IF A$="8.09" THEN C=121<br>940 IF A$="8.08" THEN C=120<br>950 IF A$="8.07" THEN C=119<br>960 IF A$="8.06" THEN C=118<br>970 IF A$="8.05" THEN C=117<br>980 IF A$="8.04" THEN C=116<br>990 IF A$="8.03" THEN C=115<br>1000 IF A$="8.02" THEN C=114<br>1010 IF A$="8.01" THEN C=113<br>1020 IF A$="8.00" THEN C=112<br>1030 IF A$="7.13" THEN C=111<br>1040 IF A$="7.12" THEN C=110<br>1050 IF A$="7.11" THEN C=109<br>1060 IF A$="7.10" THEN C=108<br>1070 IF A$="7.09" THEN C=107<br>1080 IF A$="7.08" THEN C=106<br>1090 IF A$="7.07" THEN C=105<br>1100 IF A$="7.06" THEN C=104<br>1110 IF A$="7.05" THEN C=103<br>1120 IF A$="7.04" THEN C=102<br>1130 IF A$="7.03" THEN C=101<br>1140 IF A$="7.02" THEN C=100<br>1150 IF A$="7.01" THEN C=99<br>1160 IF A$="7.00" THEN C=98<br>1170 D=C+D:E=D/A<br>1180 PRINT #1,B,C<br>1190 NEXT<br>1200 CLOSE<br>1210 CLS:KEY OFF<br>1220 PRINT " AVERAGE WEIGHT=";E<br>1230 PRINT "——————————————————————————-"<br>1240 OPEN "WEIGHT" FOR INPUT AS #1<br>1250 OPEN "WGHT" FOR OUTPUT AS #2<br>1260 INPUT #1,X,Y<br>1270 IF Y>=E THEN PRINT " HORSE";X;"ABOVE AVERAGE WEIGHT";Y<br>1280 IF Y>=E THEN PRINT #2,X<br>1290 IF EOF(1) THEN CLOSE:GOTO 1310<br>1300 GOTO 1260<br>1310 PRINT:PRINT:PRINT:PRINT:PRINT " PRESS ANY KEY TO CONTINUE"<br>1320 A$=INPUT$(1)<br>1330 RUN "ODDS.BAS"
COPY LINE 1350 TO 2100 TO NOTEPAD<br>SAVE AS…[ ODDS.BAS ] IN HORSES DIRECTORY
<br>1350 CLS:KEY OFF<br>1360 OPEN "RUNNERS" FOR INPUT AS #1<br>1370 INPUT #1,A<br>1380 CLOSE<br>1390 OPEN "ODDS" FOR OUTPUT AS #1<br>1400 FOR B=1 TO A<br>1410 INPUT "HORSES ODDS ",A$<br>1420 IF A$="30/100" THEN C=1<br>1430 IF A$="1/3" THEN C=2<br>1440 IF A$="4/11" THEN C=3<br>1450 IF A$="2/5" THEN C=4<br>1460 IF A$="4/9" THEN C=5<br>1470 IF A$="40/85" THEN C=6<br>1480 IF A$="1/2" THEN C=7<br>1490 IF A$="8/15" THEN C=8<br>1500 IF A$="4/7" THEN C=9<br>1510 IF A$="8/13" THEN C=10<br>1520 IF A$="4/6" THEN C=11<br>1530 IF A$="8/11" THEN C=12<br>1540 IF A$="4/5" THEN C=13<br>1550 IF A$="5/6" THEN C=14<br>1560 IF A$="1/1" THEN C=15<br>1570 IF A$="6/5" THEN C=16<br>1580 IF A$="5/4" THEN C=17<br>1590 IF A$="11/8" THEN C=18<br>1600 IF A$="6/4" THEN C=19<br>1610 IF A$="13/8" THEN C=20<br>1620 IF A$="7/4" THEN C=21<br>1630 IF A$="15/8" THEN C=22<br>1640 IF A$="2/1" THEN C=23<br>1650 IF A$="85/40" THEN C=24<br>1660 IF A$="9/4" THEN C=25<br>1670 IF A$="5/2" THEN C=26<br>1680 IF A$="11/4" THEN C=27<br>1690 IF A$="3/1" THEN C=28<br>1700 IF A$="100/30" THEN C=29<br>1710 IF A$="7/2" THEN C=30<br>1720 IF A$="4/1" THEN C=31<br>1730 IF A$="9/2" THEN C=32<br>1740 IF A$="5/1" THEN C=33<br>1750 IF A$="11/2" THEN C=34<br>1760 IF A$="6/1" THEN C=35<br>1770 IF A$="13/2" THEN C=36<br>1780 IF A$="7/1" THEN C=37<br>1790 IF A$="15/2" THEN C=38<br>1800 IF A$="8/1" THEN C=39<br>1810 IF A$="17/2" THEN C=40<br>1820 IF A$="9/1" THEN C=41<br>1830 IF A$="10/1" THEN C=42<br>1840 IF A$="11/1" THEN C=43<br>1850 IF A$="12/1" THEN C=44<br>1860 IF A$="13/1" THEN C=45<br>1870 IF A$="14/1" THEN C=46<br>1880 IF A$="15/1" THEN C=47<br>1890 IF A$="20/1" THEN C=48<br>1900 IF A$="25/1" THEN C=49<br>1910 IF A$="33/1" THEN C=50<br>1920 IF A$="40/1" THEN C=51<br>1930 IF A$="50/1" THEN C=52<br>1940 IF A$="66/1" THEN C=53<br>1950 IF A$="100/1" THEN C=54<br>1960 D=C+D:E=D/A<br>1970 PRINT #1,B,C<br>1980 NEXT<br>1990 CLOSE<br>2000 CLS:KEY OFF<br>2010 PRINT " AVERAGE ODDS=";E<br>2020 PRINT "——————————————————————————-"<br>2030 OPEN "ODDS" FOR INPUT AS #1<br>2040 OPEN "ODDS1" FOR OUTPUT AS #2<br>2050 INPUT #1,X,Y<br>2060 IF Y<=E THEN PRINT " HORSE";X;"ABOVE AVERAGE ODDS"<br>2070 IF Y<=E THEN PRINT #2,X<br>2080 IF EOF(1) THEN CLOSE:GOTO 2100<br>2090 GOTO 2050<br>2100 RUN "TOTALS.BAS"
COPY LINE 2110 TO 2350 TO NOTEPAD<br>SAVE AS…[ TOTALS.BAS ] IN HORSES DIRECTORY
2110 CLS:KEY OFF<br>2120 DIM Q(500)<br>2130 OPEN "POSITION" FOR INPUT AS #1<br>2140 INPUT #1,A<br>2150 Q(A)=Q(A)+1<br>2160 IF EOF(1) THEN CLOSE:GOTO 2180<br>2170 GOTO 2140<br>2180 OPEN "DAYSSINC" FOR INPUT AS #1<br>2190 INPUT #1,A<br>2200 Q(A)=Q(A)+1<br>2210 IF EOF(1) THEN CLOSE:GOTO 2230<br>2220 GOTO 2190<br>2230 OPEN "WGHT" FOR INPUT AS #1<br>2240 INPUT #1,A<br>2250 Q(A)=Q(A)+1<br>2260 IF EOF(1) THEN CLOSE:GOTO 2280<br>2270 GOTO 2240<br>2280 OPEN "ODDS1" FOR INPUT AS #1<br>2290 INPUT #1,A<br>2300 Q(A)=Q(A)+1<br>2310 IF EOF(1) THEN CLOSE:GOTO 2330<br>2320 GOTO 2290<br>2330 FOR T=1 TO 500<br>2340 IF Q(T)>=1 THEN PRINT " HORSE NUMBER ";T;"QUALIFIES ON ";Q(T)<br>2350 NEXT
Jar.
What do you want,me to spend hours or days making up a Graphical programn.
The reason I used the old basic,was because some people on this forum,do not have much knowledge of computers.I made it simple so they could see how a SIMPLE program is put together.
They can ammend it to their own needs.
Is that allright with you.
I spent a good part of my afternoon,putting this program together,time I could have put to better use.
Any complaints,GOTO(s) the Betting Tips thread.
P.S..JAR IF YOU CAN DO ANY BETTER,LETS SEE WHAT YOU CAN DO.
WITHOUT GOTOS.
(Edited by william winalot at 8:43 pm on Sep. 23, 2003)
- You must be logged in to reply to this topic.