Listati***

[Roby]

Ciao a tutti... insisto... per favore cos'è un listato e cosa devo avere per usarlo?

Grazie

Non lasciatemi sola... GRAZIE

Nikita69

 

[piocola]

Ciao Nikita,

un listato è uno script che in pratica contiene una serie di comandi
e, nel nostro caso, è utile per controllare metodi, ecc.

Per usarlo occorre un apposito programma lotto (L 8 si chiama)
che si 'esegue', di seguito ti faccio esempio:

=== questo è un listato ===

'UNA FORMULA LINEARE E DI FACILE RESA...
'RICERCA DUE AMBI SIMMETRICI ISOTOPI SU DUE RUOTE..
'GLI ELEMETI MANCANTI SARANNO I KAPOGIOCHI
'RAMCO 951-2 AMBI SIMMETRICI
Sub main()
Dim n(10), cg(10), aa(10),n1(2)
Dim ruote(3),rt(2)
Dim posta(5)
Dim poste(5)
posta(2)=1
poste(2)=1.5
poste(3)=0.4
poste(4)=0.1
fin=EstrazioneFin
ini=fin-20
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
If Distanza(n(1),n(2))=30 Then
If Fuori90(n(1)+30)=n(2) Then n1(1)=Fuori90 (n(1)+60) Else n1(1)=Fuori90 (n(1)+30)
For r1=r+1 To 10
n(3)=Estratto (es,r1,p)
n(4)=Estratto (es,r1,q)
If Distanza(n(3),n(4))=30 Then
If Fuori90(n(3)+30)=n(4) Then n1(2)=Fuori90 (n(3)+60) Else n1(2)=Fuori90 (n(3)+30)
Scrivi String (65,"*")
Scrivi String (65,"-")
ColoreTesto 1
Scrivi "In data "& DataEstrazione (es)
Scrivi FormatSpace(NomeRuota(r), 10)&" "& Format2(n(1))&"."& Format2(n(2))&"..."& StringaEstratti (es,r) ,1
Scrivi FormatSpace(NomeRuota(r1),10)&" "& Format2(n(3))&"."& Format2(n(4))&"..."& StringaEstratti (es,r1) ,1
Scrivi "Mancante Prima coppia "& n1(1)&" Mancante seconda coppia "& n1(2)
ColoreTesto 0
Scrivi

ruote(1)=r
ruote(2)=r1
ruote(3)=11

cg(1)=n1(1)
cg(2)=n1(2)
ImpostaGiocata 1,cg,ruote,posta,12,2
rt(1)=r
rt(2)=r1
aa(1)=n1(1)
aa(2)=n1(2)
aa(3)=n(1)
aa(4)=n(2)
aa(5)=n(3)
aa(6)=n(4)
ImpostaGiocata 2,aa,rt,poste,12,2
Gioca es
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub

===========================


=== questo è il 'risultato' (output) del listato stesso ===
*****************************************************************
-----------------------------------------------------------------
In data 20.10.2007
Bari 04.34...17.04.81.34.44
Cagliari 72.42...84.72.63.42.70
Mancante Prima coppia 64 Mancante seconda coppia 12

sab 20.10.2007 [7819]
G 1: A 64.12 Ba Ca Tu 12/12
negativo
G 2: ATQ 64.12.04.34.72.42 Ba Ca 7/12
A 34.12 su Ca 7° colpo [7826/06.11.2007]
I7
*****************************************************************
-----------------------------------------------------------------
In data 30.10.2007
Firenze 56.26...39.56.03.05.26
Venezia 29.59...12.29.35.82.59
Mancante Prima coppia 86 Mancante seconda coppia 89

mar 30.10.2007 [7823]
G 1: A 86.89 Fi Ve Tu 10/12
in corso (10° su 12)
G 2: ATQ 86.89.56.26.29.59 Fi Ve 6/12
A 56.89 su Fi 6° colpo [7829/13.11.2007]
I6
*****************************************************************
-----------------------------------------------------------------
In data 17.11.2007
Genova 63.03...31.13.63.76.03
Venezia 50.20...71.18.50.51.20
Mancante Prima coppia 33 Mancante seconda coppia 80

sab 17.11.2007 [7831]
G 1: A 33.80 Ge Ve Tu 2/12
in corso (2° su 12)
G 2: ATQ 33.80.63.03.50.20 Ge Ve 2/12
in corso (2° su 12)


=======================================
Resoconto complessivo di 2 giocate
=======================================
Resoconto totale giocate
Risultati generali

Casi esaminati: 6
in corso: 3
casi finali: 3
positivi: 2
negativi: 1
Pronostici generati: 15
Pronostici vincenti: 2 (13,

 

[piocola]

aggiungo... di listati ce ne sono a tonnellate e chi è capace di realizzarli
(non io ) in pratica può costruire una ipotesi di metodo (esempio... voglio
vedere quanti ambi mi dà se faccio 1° estratto di Bari della prima del mese
sommando +30 e +45) e verificare, in un arco temporale "X" (a piacere) che
tipo di esiti l'ipotesi di metodo ha dato (o meno).

Spero di esserti stato utile, almeno in parte!