 |
|
 |
|
| METODO E PREVISIONE DAL 13 MAGGIO - |
| Precedente
:: Successivo |
Nando
 Inviato:
Mar 13 Mag, 2014 04:04 |
|
|
|
METODO E PREVISIONE DAL 13 MAGGIO
LA PREVISIONE E' VALIDA PER 9 COLPI DI GIOCO
Ultima modifica di Nando il Mar 13 Mag, 2014 04:18, modificato 2 volte in totale
|
|
Site Admin
Registrato: 10/07/05 20:29
Messaggi: 31531
|
_________________
Tutto è probabile, niente è certo |
|
 |
 |
 |
|
| Lory1966
Inviato:
Mar 13 Mag, 2014 14:54 |
|
|
|
GRAZIE NANDO!!! 
|
|
Studioso
Registrato: 02/05/14 14:29
Messaggi: 8706
Residenza: Liguria
|
|
|
|
|
|
|
| DjNomade
Inviato:
Mar 13 Mag, 2014 23:27 |
|
|
|
Per chi usa L8+ salvo errori e omissioni questo è il listato
Ciauz
| Codice: |
'13/05/2014
Scrivi "========================================DISTANZA 23 SU FIRENZE E NAPOLI DI NANDO MANICCIA",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruota(3),ruote(3)
Dim posta(1),poste(2),post(3),pos(5)
posta(1)=1:poste(2)=1
post(2)=0.5:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2
fin=EstrazioneFin
ini=8731
For es=ini To fin
AvanzamentoElab ini,fin,es
For p1=1 To 4
For p2=p1+1 To 5
For p3=1 To 4
For p4=p3+1 To 5
n1=Estratto(es,3,p1)
n2=Estratto(es,3,p2):ds1=Distanza(n1,n2)
n3=Estratto(es,6,p3)
n4=Estratto(es,6,p4):ds2=Distanza(n3,n4)
If ds1=23 And ds2=23 Then
casi=casi+1:Scrivi String(75,"="),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(3)& " "& StringaEstratti(es,3)&_
" > ambo distanza 23 < "&Format2(n1)&"."&Format2 (n2)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(6)& " "& StringaEstratti(es,6)&_
" > ambo distanza 23 < "&Format2(n3)&"."&Format2 (n4)&" >",1
Scrivi String(65,"-")&" caso n° "&(casi),1
ruote(1)=3:ruote(2)=6: k=9:co=0
amb=16
abb1=02
abb2=06
abb3=41
abb4=46
nu1(1)=amb
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k
nu2(1)=amb:nu2(2)=abb1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=amb:nu2(2)=abb2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=amb:nu2(2)=abb3
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=amb:nu2(2)=abb4
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=amb:nu3(2)=abb1:nu3(3)=abb2:nu3(4)=abb3:nu3(5)=abb4
co=co+1
ImpostaGiocata co,nu3,ruote,pos,k
Gioca es
End If
Next:Next:Next
Next
Next
ScriviResoconto
Scrivi "========================================DISTANZA 23 SU FIRENZE E NAPOLI DI NANDO MANICCIA",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
End Sub |
|
|
Esperto
Registrato: 11/05/14 00:02
Messaggi: 2267
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
 |
|
Non puoi inserire nuovi Argomenti
Non puoi rispondere a nessun Argomento
Non puoi modificare i tuoi Messaggi
Non puoi cancellare i tuoi Messaggi
Non puoi votare nei Sondaggi
Non puoi allegare files
Non puoi downloadare gli allegati
|
Page generation time: 0.0929s (PHP: 100% - SQL: 0%) - SQL queries: 22 - GZIP enabled - Debug on
Jasidogdotcom template v.1.0.4 © jasidog.com
Powered by phpBB
2.0.16 © 2001, 2004 phpBB Group
Traduzione Italiana V-0.16 phpBB.it |
