Script su Metodi Cabalistici, Ciclometrici & C.

[CICALOTTO]

Ma infatti , mica metto cose inutili hehehe

mi sono permesso di inserire la DIM "stpgiocata" per verificare la differenza di spesa e guadagno fermando la previsione al primo esito positivo, oppure proseguire anche dopo la prima vincita...

 

[Matematico]

Ciao salvo50, e a tutti quelli che seguono la sezione , ecco un'altra tecnica molto forte tratta dal forum di Enzob ,non sò se è stato già fatto lo script, ma non credo.

 

[salvo50]

Ciao Matematico prima di fare questo devo fare quello di Phil79

 

[salvo50]

Buongiorno
Vorrei se possibile lo script di questo metodo...
Alla prima del mese calcolare la somma e differenza del primo di Bari col primo di Napoli, lo zerato dei numeri iniziali e della somma... come da tabella.
Grazie

BARI	NAPOLI	SOMMA	Zerato Somma	DIFF	Zerato Bari	Zerato Napoli
22	63	85	80	41	20	60

Ecco lo script salvo errori o dimenticanze

Sub Main
   Dim T,Es,R1,R2,Fin,Ini,A,B,Ind_Me
   Dim SomAB,SomAB_Z,DiffAB,A_Z,B_Z
   T = Array(T,"Estrazione"," Bari 1a Pos"," Napoli 1a Pos "," Somma "," Somma Cad0 "," Differenza "," Bari Cad0 "," Napoli Cad0")
   Call InitTabella(T)
   Fin = EstrazioneFin
   Ini = Fin - 300
   R1 = BA_
   R2 = NA_
   Ind_Me = 1
    Scrivi Space(1) & "Alla " & Ind_Me & "a Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Script Salvo50",1,,4,,3,,1
   Scrivi
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_Me Then
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R2,1)
         SomAB = Fuori90(A + B)
         SomAB_Z =(SomAB -(Cadenza(SomAB)))
         If SomAB_Z = 0 Then SomAB_Z = 90
         DiffAB = Differenza(A,B)
         A_Z =(A -(Cadenza(A)))
         If A_Z = 0 Then A_Z = 90
         B_Z =(B -(Cadenza(B)))
         If B_Z = 0 Then B_Z = 90
         T = Array(T,Es,A,B,SomAB,SomAB_Z,DiffAB,A_Z,B_Z)
         Call AddRigaTabella(T)
      End If
   Next
   CreaTabella
End Sub

 

[phil79]

Ecco lo script salvo errori o dimenticanze

Sub Main
   Dim T,Es,R1,R2,Fin,Ini,A,B,Ind_Me
   Dim SomAB,SomAB_Z,DiffAB,A_Z,B_Z
   T = Array(T,"Estrazione"," Bari 1a Pos"," Napoli 1a Pos "," Somma "," Somma Cad0 "," Differenza "," Bari Cad0 "," Napoli Cad0")
   Call InitTabella(T)
   Fin = EstrazioneFin
   Ini = Fin - 300
   R1 = BA_
   R2 = NA_
   Ind_Me = 1
    Scrivi Space(1) & "Alla " & Ind_Me & "a Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Script Salvo50",1,,4,,3,,1
   Scrivi
   For Es = Ini To Fin
      If IndiceMensile(Es) = Ind_Me Then
         A = Estratto(Es,R1,1)
         B = Estratto(Es,R2,1)
         SomAB = Fuori90(A + B)
         SomAB_Z =(SomAB -(Cadenza(SomAB)))
         If SomAB_Z = 0 Then SomAB_Z = 90
         DiffAB = Differenza(A,B)
         A_Z =(A -(Cadenza(A)))
         If A_Z = 0 Then A_Z = 90
         B_Z =(B -(Cadenza(B)))
         If B_Z = 0 Then B_Z = 90
         T = Array(T,Es,A,B,SomAB,SomAB_Z,DiffAB,A_Z,B_Z)
         Call AddRigaTabella(T)
      End If
   Next
   CreaTabella
End Sub

Grazie, la tabella era un esempio di calcolo.... ma il mio intento era verificare gli esiti della giocata in base alle combinazioni.
Pertanto così va bene ma a completamento vorrei che controllasse le giocate di ambo terno quaterna cinquina