LottoFacile 1 Osvaldo Manara

« Older Newer »

sean69

Posted on 11/3/2011, 19:55

sean69

Group: Administrator

Posts: 5,897

Location: Provincia di Roma..

Status: Offline

Il listato che trovate sotto e' stato creato dall'utente maxma 62 :grazie a Occhidigiada per il suo intervento.Sono pubblicati su questo Forum solo ed esclusivamente per essere messi a disposizione di tutti,ogni consiglio e modifica e' ben accetto,grazie..

LottoFacile 1 ( Osvaldo Manara )

ITER OPERATIVO:

Prima condizione: rintracciare nel quadro estrazionale 2 ambi aventi la stessa somma comune ed isotopi (stesso posto estrazionale)su 2 ruote diverse,meglio se sono ruote consecutive o diametrali. Consecutive significa per es. : bari- cagliari,cagliari-firenze, firenze-genova...ecc. Diametrali significa per es. bari-napoli,cagliari-palermo,firenze-roma,ecc.. Una volta trovate le coppie di numeri rispondenti alle caratteristiche richieste si agisce nel modo seguente:

1) calcolare la differenza aritmetica in diagonale (le due differenze in diagonale devono essere uguali tra loro) in caso contrario non procedere per il rilevamento della previsione.

2) analogamente si procede per le differenze verticali (anche queste devono essere uguali tra loro) in caso contrario non si deve procedere nei calcoli per il rilevamento della previsione).

3) sottrarre tra loro le differenze diagonali e verticali ottenendo così un elemento convenzionale (A) che andrà sommato al numero somma comune degli ambi base.

4) il risultato ottenuto rappresenterà l'ambata secca da giocare sulle ruote di rilevamento dove si sono rintracciate le due coppie iniziali.

5) per la formazione dell'ambo secco principale faremo il complemento a 90 della somma comune dei due ambi rintracciati.Quel numero lo abbineremo all'ambata, ed avremo così formato l'ambo principale.

6) invece per la formazione dell'ambo secco secondario, abbineremo all'ambata il numero vertibile,del numero ricavato del complemento a 90.

7) la terzina per ambo e terno sarà formata dall'ambata principale e dai due numeri abbinati all'ambata per la formazione dell' ambo principale e secondario.

8) quando è necessario applicare la regola del fuori 90.

ESEMPIO

Cagliari 35 58 (41) 65 (13)

Firenze 31 52 (33) 49 (21)

i numeri 41-13 e 33-21 sono nello stesso posto estrazionale (3° e 5°) perciò isotopi ed in comune possiedono le caratteristiche richieste perchè hanno in comune la stessa identica somma (54), inoltre sono posti rispettivamente in due ruote consecutive tra loro,perciò la previsione rende più potenza.

ESEMPIO ESTRAZIONE DEL 03/05/93

Cagliari somma 54 perchè 41+13=54

firenze somma 54 perchè 33+21=54

prima sottrazione diagonali 41-21=20 33-13=20

seconda sottrazione verticali 41-33=8 21-13=8

il risultato si sottrae e cioè 20-8=12

il 12 sarebbe l'elemento A

per ricavare l'ambata dobbiamo fare l'addizione dell'elemento a cioè (12)alla somma comune dei due ambi rintracciati (54) il totale e cioè 12+54=66 (il numero 66 è la nostra ambata da porre in gioco sulle ruote di rilevamento ed è anche il nostro capogioco sia dgli ambi e del terno che andremo a ricavare successivamente)

Gli ambi secchi verranno formati dalla sottrazione dal 90 al numero che si è formato dalla somma dei due numeri presi dalla ruota ( 90-54=36 e il suo vertibile e cioè 36 vertibile 63),avremo così:

66 ambata

66-36 primo ambo

66-63 secondo ambo

per il terno

66-36-63

esito 2° colpo ruota di firenze 66-36-63

Ecco il Listato L8+(autore maxma62):

CODICE

Sub main()
Dim nu1(3),nu2(2),nu3(3),ruote(2),ruota(1)
Dim posta(1),poste(2),post(3)
posta(1)=5:poste(2)=5:post(2)=4:post(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",8200)
k=InputBox ("per quanti colpi?","colpi di gioco",14)
ini=ce
fin=EstrazioneFin
Scrivi "Lotto Facile 1 di Osvaldo Manara ",1
Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&DataEstrazione (es,1)
For r1=1 To 9
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r1,p1)
b=Estratto (es,r1,p2)
a1=Fuori90(a+b)
For r2=r1+1 To 10
If Distanza(r2,r1)=5 Or r2=r1+1 Or r2=r1-11 Then 'lasciare per solo diametr. consec e gemm
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3)
d=Estratto(es,r2,p4)
If p3=p1 And p4=p2 Then 'ambi isotopi
a2=Fuori90(c+d)
If (a1)=(a2) Then
n1=Abs(a-d) 'diff matem diag
n2=Abs(b-c) 'diff matem diag
n3=Abs(a-c) 'diff matem vert
n4=Abs(b-d) 'diff matem vert
If n1=n2 And n3=n4 Then 'se le diff sono uguali
n5=Abs(n2-n4)
n6=Fuori90(a2+n5) 'ambata
n7=90-a2 '1^ abb
If n7=0 Then n7=90
n8=Vert(n7) '2^ abb
casi=casi+1:Scrivi String(64,"="),1
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r1)&" - "&StringaEstratti(es,r1)&_
" ] ambo somma [ " & Format2(a) &"."& Format2 (b)&" ] "&(p1)&"^/"&(p2)&"^ pos."
Scrivi DataEstrazione(es,1)&" [ "&siglaRuota(r2)&" - "&StringaEstratti(es,r2)&_
" ] ambo somma [ "& Format2 (c) &"."& Format2 (d)&" ] "&(p3)&"^/"&(p4)&"^ pos."
ColoreTesto 0:Scrivi String(64,"-")&" caso n° "&casi
ruote(1)=r1:ruote(2)=r2:ruota(1)=11:co=0
nu1(1)=n6
co=co+1
ImpostaGiocata co,nu1,ruote,posta,k,1
nu2(1)=n6:nu2(2)=n7
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(2)=n8
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=n6:nu3(2)=n7:nu3(3)=n8
co=co+1
ImpostaGiocata co,nu3,ruote,post,k
co=co+1
ImpostaGiocata co,nu3,ruota,post,k
Gioca es

End If
End If
End If 'ambi isotopi
Next:Next
End If 'lasciare per solo diametr. e consec
Next:Next:Next:Next:Next
ScriviResoconto
End Sub

Sono graditi i vostri voti per aiutare questo Forum a crescere.Grazie!