isotopo

[Roby]

ciao etr sono 1160 dopo la tua risposta io ho preso soltanto l'ambo su terno ,grazie, che ne pensi dell'isotopo 42 uscito a pa-to e 11 uscito a na -naz si può ricavare qualche ambo?attendo una risposta grazie

 

[imported_n/a]

Ho già risposto in questo post del bravo Taurus
http://forum.lottoced.com/topic.asp?TOPIC_ID=52338
ma, a beneficio tuo e di tutti, riporto una tecnica di gioco della "Signora in rosso". In questo forum non ho mai visto una tecnica della Signora, o almeno, non esplicitamente riferita ad essa, eppure è tra i Grandi del lotto.

Un qualsiasi isotopo, su qualsiasi posizione, meglio se su ruote consecutive.
Parto con un esempio,così è più chiaro.
Es 26/10/96 Na-Pa 5°e. 7
1) Diametrale in decina del n°,quindi 7-5=2 (A)
2) Somma del diametrale al n° isotopo,quindi 7+2=9 (B)
3) Moltiplicare(sempre) x 2,quindi 9x2=18 (C)
Quartina in gioco A-B-C + il n° elaborato...2-9-18-7
Tecnica che la Signora chiamò "La micidiale Quartina"
[8D][8D]

------------------------------------------------------------------------------------------------
Le proposte sono sempre capite dagli altri in maniera diversa da come le concepisce chi le fa.
------------------------------------------------------------------------------------------------

 

[maxma62]

il listato del metodo:

Sub main()
Dim nu(10)
Dim ruote(10)
Dim poste(5)
poste(2)=2
poste(3)=1
poste(4)=1
ini=EstrazioneFin-400
fin=EstrazioneFin
For n=ini To fin
Messaggio
For r=1 To 10
r1=r+1
For p1=1 To 5
a=Estratto(n,r1,p1)
b=Estratto(n,r,p1)
If a=b Then

Scrivi : Scrivi String(65,"•"),1
Scrivi DataEstrazione(n,1)&" [ "&SiglaRuota(r)&" "& StringaEstratti(n,r)&" ]"
Scrivi DataEstrazione(n,1) & " [ "&SiglaRuota(r1)&" "& StringaEstratti(n,r1)&" ]"
Scrivi String(65,"-")
Scrivi "numero isoto su "&SiglaRuota(r)&" e "&SiglaRuota(r1)&" pos. "&(p1)&"a = "&format2(a)
Scrivi String(65,"-")

c=DiametraleD(a)
d=Fuori90(a+c)
e=Fuori90(d*2)

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

nu(1)=a
nu(2)=c
nu(3)=d
nu(4)=e
ImpostaGiocata 1,nu,ruote,poste,14,2

Gioca n
End If
Next
Next
Next
ScriviResoconto
End Sub

spero di aver fatto cosa gradita.
Ciao, max

 

[imported_n/a]

DENGHIU' MAX



Scrivi DataEstrazione(n,1)&" [ "&SiglaRuota(r)&" "& StringaEstratti(n,r)&" ]"
Errore 13:Tipo non corrispondente: "SiglaRuota" (riga21)

 

[maxma62]

Penso sia una questione di versione di.
Io ho la versione 6.0.8
Prova a cambiare "siglaruota" con "nomeruota" oppure a togliere le righe dove c'e' siglaruota
Max