aiuto x script tecnica lunare

[nicotina]

CHIEDO CORTESEMENTE A CHI E' CAPACE DI FARE SCRIPT DI SVILUPPARMI QUESTA TECNICA, RINGRAZIO DI CUORE CHIUNQUE SI PRESTI NELLA COLLABORAZIONE PER IL MOTTO " BATTIAMO GOLIA ".
la tecnica lunare del'ambo uguale
All'uscita di un ambo uguale in una qualsiasi estrazione su due ruote diverse si
faranno i seguente calcoli per mettere in gioco un ambo secco e due terni secchi
sortito l'ambo ripetuto si sommerano i due elemente che lo compongono ( con il fuori
90 se il risultato dovesse essere superiore a 90) e successivamente si calcola il
suo diametrale.I due capigiochi si giocheranno per ambo secco.
Per la formazione del primo terno si sommeranno per si stessi gli elementi dell'ambo
uguale e gli si abbina il primo capogioco che costruisci dalla somma tra questi due.
L'altro terno sara formato invece dai diametrale dei due elementi e gli si abbina
il secondo capogioco che costruisce come numero diametrale della somma
ESEMPIO: 20/01/09
FIRENZE-TORINO si verifeca l'ambo uguale 44-79
- Sommiamo i numeri che formano l'ambo repetuto
44+79= 33
- Calcoliamo il diametrale del risultato ottenuto, ovvero dell'33
33+45 = 78
il 33 e il 78 formeranno l'ambo principale
-CALCOLO PRIMO TERNO:
Sommeremo per si stessi gli elementi dell'ambo abbinandoli alla somma dei due
44 + 44 = 88
79 + 79 = 68
- primo terno
capogioco e i suoi due abbinamenti: 33/ + 68-88
-CALCOLO SECONDO TERNO:
Calcoliamo i diametrali dei due elementi dell'ambo abbinandoli al diametrali
della loro somma
44 + 45 = 89
79 - 45 = 34
-secondo terno
capogioco e i suoi due abbinamenti: 78/+34-89
PREVISIONE
AMBO SECCO: 33-78
TERNI:
33/+68-88
78/+34-89
AL primo colpo ambo 33-68 su firenze
A PRESTO NICOTINA

 

[franca46]

ciao nicotina

spero sia corretto

Sub main()
Dim rt(3)
Dim ruot(1)
Dim nu(2)
Dim nu1(6)
Dim nu2(6)
Dim nu3(10)
Dim posta(1)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
poste(4)=1

clp=12

ini=EstrazioneFin -200
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio es
For r=1 To 10
rt(1)=r
For p=1 To 4
For pp=p+1 To 5
a=Estratto (es,r,p) : b=Estratto (es,r,pp)
For rr=r+1 To 11
If rr=11 Then rr=12
rt(2)=rr
rt(3)=12
For q=1 To 4
For qq=q+1 To 5
c=Estratto (es,rr,q) : d=Estratto (es,rr,qq)
If (a=c And b=d) Or (a=d And b=c) Then
co=co+1
Scrivi String (65,"=")&" Caso n° "& co
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)&" Ambo "&a&"-"&b&" in pos. "&p&"^ e "&pp&"^"
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)&" Ambo "&a&"-"&b&" in pos. "&q&"^ e "&qq&"^"
If p=q And pp=qq Then ColoreTesto 2 : txx=" Condizione  ISOTOPA " Else ColoreTesto 1 : txx=" Condizione non Isotopa"
'ColoreTesto 2
Scrivi "Gli Ambi sono in  "& txx
ColoreTesto 0
s1=Fuori90(a+b)
s2=Diametrale(s1)
nu(1)=s1
nu(2)=s2
ImpostaGiocata 1,nu,rt,posta,clp,0
nu1(1)=s1
nu1(2)=s2
nu1(3)=Fuori90(a*2)
nu1(4)=Fuori90(b*2)
ImpostaGiocata 2,nu1,rt,poste,clp,0
ruot(1)=11
ImpostaGiocata 3,nu1,ruot,poste,clp,0
nu2(1)=s1
nu2(2)=s2
nu2(3)=Diametrale(a)
nu2(4)=Diametrale(b)
ImpostaGiocata 4,nu2,rt,poste,clp,0
ruot(1)=11
ImpostaGiocata 5,nu2,ruot,poste,clp,0
nu3(1)=s1
nu3(2)=s2
nu3(3)=nu1(3)
nu3(4)=nu1(4)
nu3(5)=nu2(3)
nu3(6)=nu2(4)
ImpostaGiocata 6,nu3,ruot,poste,clp,0

Gioca es
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto

End Sub

buona giornata

 

[nicotina]

salve Franca46, hai eseguito molto bene il testo ma nello script vi sono delle ripetizioni che io non riesco a spiegarmi essendo zero negli script, magari puoi rivedere l'elaborato e se puoi eliminare i numeri ripetuti Grazie di cuore
Nicotina