quote:Originally posted by miki55
ciao esselotto.
Posso chiederti un listato impossibile???
La tabella degli "Spazi Determinati" non per estratto singolo
ma per coppia d'estratti
...non trovo nessuno che prende questo impegno, credimi!
Puoi provarci te?
...penso che tu già sappia questa tabella, vero?
ciao,Essequote:Originally posted by esselotto
quote:Originally posted by oruam
esselotto, noto che hai una grande padronanza sul linguaggio
programmazione,ne approfitto del tuo post ,per sapere se è fattibile implementare un listato che ricerca automaticamente le figure di frattali.Ho chiesto a vari utenti che postano figure sui frattali ,di poter aver elementi di implementazione da passare a Luigi,e per questo da inserire nel suo programma(GRATUITO),ma tutti hanno risposto,che trattasi di plug abbinati a programmi complessi, e per questo motivo non hanno intenzione a cederlo.
se quelli bravi si defilano con scuse banali,e lasciano gravare il tutto , solo a Luigi, mi sembra un' assurdita..
per questo ,ripongo grande e profonda gratitudine per tutto quello che farai,speranzoso da poter
far diventare ancora piu"completissimo" il megaprogramma di LUigi.
ciao
oruam o vertibile (Ho postato una tecnica sui vertibili) alludevo al tuo username.
So cosa è un Frattale, ma non ho la più pallida idea come possa essere applicato al gioco del lotto.
Se vuoi spiega pure, con parole povere, e un paio di Esempi.
Non mi fare leggere postulati sui frattali.
Il raggio dell'onda riflesso incidente il raggio riflesso e la normale alla superficie
di riflessione apparterngono allo stesso piano.
°°°esselotto°°°
eccezionale,anche il seguitoquote:Originally posted by esselotto
e che mi avete postato ragà??????????
oruam un' albero di ulivo
è miki ci a messo sotto la rete per la scuotitura degli ulivi.
Sub main()
Dim amb(1),ruote(2),posta(1)
Dim ng
posta (1)=1
TabellaGiocate
ColoreTesto 2
Scrivi String(95,"*"),1
ColoreTesto 0
Scrivi String (1," ")& "Speciale Tecnica di Previsione Fabarri (Solo ambi trasposti e posizione diversa su due ruote)",1
ColoreTesto 1
Scrivi String (25," ")& "programmed by °°°Enplein°°° per miki55 LottoCed",1
ColoreTesto 2
Scrivi String(95,"*"),1
ColoreTesto 0
rs=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","Speciale Tecnica",100))
If rs= False Then Exit Sub
cl=CInt(InputBox ("Colpi di gioco?..","Speciale Tecnica",14))
If cl= False Then Exit Sub
co=0
For es=EstrazioneFin-rs To EstrazioneFin
Messaggio "Estrazione esaminata: " & CStr(es)
For r1= 1 To 9
For p1= 1 To 4
For p2=p1+1 To 5
a1=Estratto(es,r1,p1):a2=Estratto(es,r1,p2):sa=Fuori90 (a1+a2)
For r2=r1+1 To 10
For q1= 1 To 4
For q2=q1+1 To 5
If q1<>p1 And q1<>p2 And q2<>p1 And q2<>p2 Then
b1=Estratto(es,r2,q1):b2=Estratto(es,r2,q2):sb=Fuori90 (b1+b2)
x1=Trasposizione (a1,a2):x2=Trasposizione (a2,a1)
If sa=sb Then
If x1=b1 And x2=b2 Or x1=b2 And x2=b1 Then
'Previsione sulla ripetizione dell'ultimo numero
amb(1)=b2
ruote(1)=r1:ruote(2)=r2
co=co+1
Scrivi "-----------------------------------------------------------------------------"
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" Estr. "& StringaEstratti (es,r1)&_
" "& Format2 (a1)&" "& Format2 (a2)&" Somma: "& Format2 (sa)&" [Pos. "&p1&"^ "&p2&"^]"& Chr (10)&_
DataEstrazione (es)&" "& SiglaRuota (r2)&" Estr. "& StringaEstratti (es,r2)&_
" "& Format2 (b1)&" "& Format2 (b2)&" Somma: "& Format2 (sb)&" [Pos. "&q1&"^ "&q2&"^]" ,1
Scrivi "----------------------------------------------------------------------n° giocata "&co
ImpostaGiocata 1,amb,ruote,posta,cl,1
Gioca es
End If
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "°°°Enplein°°°",1
scrivi"Speciale Tecnica di Previsione",1
Scrivi"Autore...* (Fabbari)",1
End Sub