questo e' il metodo che dice robbe nel dare la previsione ad it su bari venezia 18.42 con una sola forza negativa
CODICE
Sub main()
Dim ruote(4),ruota(4),nu(2),nu1(2),posta(3),poste(1)
poste(1)=1
posta(2)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8009) '8309
k=InputBox ("per quanti colpi?","colpi di gioco",18)
ini=ce
fin=EstrazioneFin
Scrivi " moto uniformemente accelerato di P.Robbe(script by maxma62) modificato lones occhidigiada58",1
Scrivi String(94,"="),1
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)",1
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione(es,1)
For r1=1 To 8
For p1=1 To 5
a=Estratto (es-2,r1,p1)
b=Estratto (es-1,r1,p1)
c=Estratto (es,r1,p1)
If a=c Then
casi=casi+1:Scrivi String(76,"=")&" script by maxma62",1
Scrivi DataEstrazione(es-2,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es-2,r1)&" ] [ "&_
Format2(a)&" ] in "&(p1)&""
Scrivi DataEstrazione(es-1,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es-1,r1)&" ] [ "&_
Format2(b)&" ] in "&(p1)&""
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(c)&" ] in "&(p1)&""
Scrivi String(83,"-")&" caso n° "&(casi)
Scrivi String(94,"-")
ruote(1)=r1:ruote(2)=11-r1:ruota(1)=11:ruota(2)=12:co=0
nu(1)=Fuori90(b+((Distanza(a,b))/2))
co=co+1
ImpostaGiocata 1,nu,ruote,poste,k
nu1(1)=Fuori90(b+((Distanza(a,b))/2))
nu1(2)=Fuori90(a+((Distanza(a,b))/2))
co=co+1
ImpostaGiocata 2,nu1,ruote,posta,k
ImpostaGiocata 3,nu1,ruota,posta,k,0
Gioca es
End If
Next:Next:next
Scrivi String(76,"=")&" script by maxma62",1
ScriviResoconto
Scrivi "moto uniformemente accelerato di P.Robbe (script by maxma62)modificato lones occhidigiada58",1
End Sub
