Novità

Per gli esperti.

joi_lotto

joi_lotto

Super Member >PLATINUM<
Ciao e grazie a chi mi risponde. Ho questo script trovato nel forum e purtroppo non so chi è lautore:chiedo gentilmente se qualcuno di voi può correggerlo
facendo la ricerca dei NUMERI ISOTOPI su ruote a mia scelta, anzichè a tutte.
Penso sia inutile ripeterlo, non sono in grado di farlo.
Grazie
joi_lotto

Codice: 
'
'calcola,quando si verificano 2 numeri isotopi su 2 ruote
'
'1)Le estrazioni in cui si e' verificata la condizione isotopa ricercata
'
'2)Le Ambate piu' Frequenti sortite su quelle 2 ruote
'
'3)Gli Ambi a Ruota e su Tutte piu' Frequenti sortiti su quelle 2 ruote
'
[B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]()[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]a1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]xc[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4005,4),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rtt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4005,4)[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4005,4),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](90,3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](90,3),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nx[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](90),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ne[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2)[/SIZE]
[SIZE=2]    aa 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Inserisci i due num. separati dal punto[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]","[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Numeri di Ricerca[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]","[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]14.15[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2]    aa 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]0.[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] aa[/SIZE]
[SIZE=2]    s 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Split[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](aa,"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000].[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]CInt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](s(1))[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]CInt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](s(2))[/SIZE]
[SIZE=2]    ww 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Quanti colpi successivi da esaminare?[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]","[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]COLPI[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",9)[/SIZE]
[SIZE=2]    tmp 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Quante estrazioni esaminiamo?[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]","[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]ESTRAZIONI[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",100)[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rtt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 11[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Erase[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Erase[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Erase[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Erase[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Erase[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    fin 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    ini 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] tmp[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ini [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] fin[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Messaggio[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Numeri Spia [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Data [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es)[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 10[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1)[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2)[/SIZE]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] p [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 5[/SIZE]
[SIZE=2]                a 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,r,p)[/SIZE]
[SIZE=2]                
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] a [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Else[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
[SIZE=2]                    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 11[/SIZE]
[SIZE=2]                        
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 11 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 12[/SIZE]
[SIZE=2]                        b 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Estratto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,r1,p)[/SIZE]
[SIZE=2]                        
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] b [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Or[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] b [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]x[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]informa[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es,r,a,r1,b)[/SIZE]
[SIZE=2]                            casi 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] casi [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]                            ess 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ww[/SIZE]
[SIZE=2]                            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ess [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] fin [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ess [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] fin [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                            co 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
[SIZE=2]                            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 89[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 90[/SIZE]
[SIZE=2]                                    co 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r1[/SIZE]
[SIZE=2]                                    k1 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,ess,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],2)[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1[/SIZE]
[SIZE=2]                                    k2 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,ess,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],2)[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k2 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k2[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ne[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] x1[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ne[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] y1[/SIZE]
[SIZE=2]                                    xf 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,ess,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ne[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rtt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],2)[/SIZE]
[SIZE=2]                                    
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] xf[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                            co 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
[SIZE=2]                            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] xx [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 90[/SIZE]
[SIZE=2]                                co 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] xx[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] xx[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] r1[/SIZE]
[SIZE=2]                                k3 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,ess,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1)[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k3 [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k3[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] co[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] xx[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] xx[/SIZE]
[SIZE=2]                                k4 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieFreq[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](es [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,ess,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nn2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ru[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],1)[/SIZE]
[SIZE=2]                                
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](co,3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] k4[/SIZE]
[SIZE=2]                            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                        
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]                
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]            
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,4[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,4[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,4[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,3[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]OrdinaMatrice[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1,3[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 2[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Formazione Spia Cercata ISOTOPA su due ruote [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StringaNumeri[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] dal [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](ini) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] al [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](fin) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ""[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Casi riscontrati [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]CInt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](casi) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - Analisi effettuata sulle [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ww [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]    "
[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] estrazioni sucessive [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 2[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Ambi+frequenti / Ambi+presenti nei cicli / Estratti[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]    "
[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]+presenti nei c. / Estratti+frequenti [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 2[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] wx [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 10[/SIZE]
[SIZE=2]        riga 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,2)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,3)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] tot [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,4)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,2)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,3)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] tot [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,4)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](5) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,2)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] tot [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu3[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,3)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,2)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] tot [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] _[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]nu4[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,3))[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](7) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] riga,1[/SIZE]
[SIZE=2]        riga 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ""[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]String[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](90,"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]*[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]")[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Ambi + frequenti a TUTTE[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",1[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]ColoreTesto[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 0[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] wx [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] 10[/SIZE]
[SIZE=2]        riga 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,2)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,3)) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] tot. [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]mat[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](wx,4))[/SIZE]
[SIZE=2]        
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Space[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2](8) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] riga,1[/SIZE]
[SIZE=2]        riga 
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] ""[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Function
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]informa[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]a[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]b[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2])[/SIZE]
[SIZE=2]    
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]es[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]a[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] e [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]r1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2] "[/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]b[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2]),1[/SIZE]
[B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][B][SIZE=2][COLOR=#000080][SIZE=2][COLOR=#000080]Function[/COLOR][/SIZE][/COLOR][/SIZE][/B]
 
Ultima modifica:
eccoti accontentato
Codice: 
'
'calcola,quando si verificano 2 numeri isotopi su 2 ruote
'
'1)Le estrazioni in cui si e' verificata la condizione isotopa ricercata
'
'2)Le Ambate piu' Frequenti sortite su quelle 2 ruote
'
'3)Gli Ambi a Ruota e su Tutte piu' Frequenti sortiti su quelle 2 ruote
'
Sub Main()
Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
aa = InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","14.15")
aa = "0." & aa
s = Split(aa,".")
n(1) = CInt(s(1))
n(2) = CInt(s(2))
ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",100)
rtt(1) = 11
Erase nu1
Erase nu2
Erase nu3
Erase nu4
Erase mat
fin = EstrazioneFin
ini = EstrazioneFin - tmp
For es = ini To fin
 Messaggio " Numeri Spia " & StringaNumeri(n) & " Data " & DataEstrazione(es)
 For r = 1 To 10
  x(1) = n(1)
  x(2) = n(2)
  For p = 1 To 5
   a = Estratto(es,r,p)
   If a = n(1) Or a = n(2) Then
    If a = n(1) Then x(1) = 0 Else x(2) = 0
    For r1 = r + 1 To 11
     If r1 = 11 Then r1 = 12
     b = Estratto(es,r1,p)
     If b = x(1) Or b = x(2) Then
      Call informa(es,r,a,r1,b)
      casi = casi + 1
      ess = es + ww
      If ess > fin Then ess = fin End If
      co = 0 
      For x1 = 1 To 89
       For y1 = x1 + 1 To 90
        co = co + 1
        nu1(co,1) = co
        nu1(co,2) = x1
        nu1(co,3) = y1
        nn(1) = x1
        nn(2) = y1
        ru(1) = r
        ru(2) = r1
        k1 = SerieFreq(es + 1,ess,nn,ru,2)
        nu1(co,4) = nu1(co,4) + k1
        nu2(co,1) = co
        nu2(co,2) = x1
        nu2(co,3) = y1
        nn1(1) = x1
        nn1(2) = y1
        k2 = SerieFreq(es + 1,ess,nn1,ru,2)
        If k2 > 1 Then k2 = 1
        nu2(co,4) = nu2(co,4) + k2
        mat(co,1) = co
        mat(co,2) = x1
        mat(co,3) = y1
        ne(1) = x1
        ne(2) = y1
        xf = SerieFreq(es + 1,ess,ne,rtt,2)
        mat(co,4) = mat(co,4) + xf
       Next
      Next
      co = 0
      For xx = 1 To 90
       co = co + 1
       nu3(co,1) = co
       nu3(co,2) = xx
       nn2(1) = xx
       ru(1) = r
       ru(2) = r1
       k3 = SerieFreq(es + 1,ess,nn2,ru,1)
       If k3 > 1 Then k3 = 1
       nu3(co,3) = nu3(co,3) + k3
       nu4(co,1) = co
       nu4(co,2) = xx
       nn2(1) = xx
       k4 = SerieFreq(es + 1,ess,nn2,ru,1)
       nu4(co,3) = nu4(co,3) + k4
      Next
      End If
     Next
     End If
    Next
   Next
  Next
  OrdinaMatrice mat,- 1,4
  OrdinaMatrice nu1,- 1,4
  OrdinaMatrice nu2,- 1,4 
  OrdinaMatrice nu3,- 1,3
  OrdinaMatrice nu4,- 1,3
  ColoreTesto 2
  Scrivi "Formazione Spia Cercata ISOTOPA su due ruote " & StringaNumeri(n) & " dal " & _
  DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
  ColoreTesto 1
  Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
  "estrazioni sucessive "
  ColoreTesto 2
  Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
  ColoreTesto 1
  Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
  " +presenti nei c. / Estratti+frequenti "
  Scrivi
  ColoreTesto 2
  Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
  ColoreTesto 0
  For wx = 1 To 10
   riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
   Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
   Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
   Format2(nu4(wx,3))
   Scrivi Space(7) & riga,1
   riga = ""
  Next
  Scrivi String(90,"*")
  Scrivi
  ColoreTesto 1
  Scrivi Space(4) & "Ambi + frequenti a TUTTE",1
  ColoreTesto 0
  For wx = 1 To 10
   riga= Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
   Scrivi Space(8) & riga,1
   riga = ""
  Next
  End Sub
  Function informa(es,r,a,r1,b)
  Scrivi DataEstrazione(es) & "" & SiglaRuota(r) & "" & Format2(a) & " e " & SiglaRuota(r1) & "" & Format2(b),1
  End Function
 
Ciao Keeper, ti ringrazio ma io volevo un ricerca di 2 numeri isotopi su ruote a mia scelta.
Grazie
Ciao.
 
Ciao Joi, guarda se questo ti va bene

Codice: 
Sub Main()
	Scrivi " TROVA AMBI ISOTOPI - SU 2 RUOTE A SCELTA - MODIFICA BY BLACK"
	t = 0
	r = InputBox("1° Ruota di ricerca?",,6)
	r1 = InputBox("2° Ruota di ricerca?",,7)
	rs = InputBox("Quante estrazioni vuoi controllare?",,1000)
	fin = EstrazioneFin
	ini = fin - rs
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For p = 1 To 4
			For q = p + 1 To 5
				a = Estratto(es,r,p)
				b = Estratto(es,r,q)
				For p1 = 1 To 4
					For q1 = p1 + 1 To 5
						c = Estratto(es,r1,p1)
						d = Estratto(es,r1,q1)
						If c = a And d = b Or c = b And d = a Then
							If p1 = p And q1 = q Then
								t = t + 1
								ColoreTesto 1
								Scrivi
								ColoreTesto 0
								Scrivi "------------------------------------------ Caso n° " & Format2(t)
								Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " " & Format2(b)
								Scrivi DataEstrazione(es) & "   " & StringaEstratti(es,(r1)) & "      " & Left(SiglaRuota(r1),3) & " " & Format2(c) & " " & Format2(d)
							End If
						End If
					Next
				Next
			Next
		Next
	Next
End Sub
 
Ultima modifica:
Per caso intendevi cosi'?

Ciauz



Codice: 
'Da Lottoced http://forum.lottoced.com/newreply.php?do=postreply&t=92396 Listato modificato da DjNomade  X joi_lotto  
'Ambate-Ambi Freq dopo due Spie ISOTOPE su 2 ruote
'Ambate-Ambi Freq dopo due Spie ISOTOPE su 2 ruote
'calcola,quando si verificano 2 numeri isotopi su 2 ruote
'
'1)Le estrazioni in cui si e' verificata la condizione isotopa ricercata
'
'2)Le Ambate piu' Frequenti sortite su quelle 2 ruote
'
'3)Gli Ambi a Ruota e su Tutte piu' Frequenti sortiti su quelle 2 ruote
'esempio di output
'13.08.2011 Ge 15 e Ve 14
'01.12.2011 Ge 14 e Ve 15
'Formazione Spia Cercata ISOTOPA su due ruote 14.15 dal 10.04.2010 al 10.03.2012
'Casi riscontrati 2 - Analisi effettuata sulle 9estrazioni sucessive
'CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE
'Ambi+frequenti / Ambi+presenti nei cicli / Estratti+presenti nei c. / Estratti+frequenti
'      Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE
'       08-79 tot 02    09-44 tot 02     03 tot 02      68 tot 06
'       09-44 tot 02    22-68 tot 02     04 tot 02      09 tot 05
'       14-18 tot 02    25-68 tot 02     09 tot 02      86 tot 05
Sub Main()
    Dim n(2),x(2),a1(3),xc(3),ru(2),nu1(4005,4),nn(2),rtt(1),mat(4005,4)
    Dim nu2(4005,4),nn1(2),nu3(90,3),nn2(2),nu4(90,3),nx(90),ne(2)
    aa = InputBox("Inserisci i due num. separati dal punto","Numeri di Ricerca","14.15")
    aa = "0." & aa
    s = Split(aa,".")
    n(1) = CInt(s(1))
    n(2) = CInt(s(2))
    r = InputBox("1° Ruota di ricerca?",,4)
    r1 = InputBox("2° Ruota di ricerca?",,10)
    ww = InputBox("Quanti colpi successivi da esaminare?","COLPI",9)
    tmp = InputBox("Quante estrazioni esaminiamo?","ESTRAZIONI",100)
    rtt(1) = 11
    Erase nu1
    Erase nu2
    Erase nu3
    Erase nu4
    Erase mat
    fin = EstrazioneFin
    ini = EstrazioneFin - tmp
    For es = ini To fin
        Messaggio " Numeri Spia " & StringaNumeri(n) & " Data " & DataEstrazione(es)
        x(1) = n(1)
        x(2) = n(2)
        For p = 1 To 5
            a = Estratto(es,r,p)
            If a = n(1) Or a = n(2) Then
                If a = n(1) Then x(1) = 0 Else x(2) = 0
                b = Estratto(es,r1,p)
                If b = x(1) Or b = x(2) Then
                    Call informa(es,r,a,r1,b)
                    casi = casi + 1
                    ess = es + ww
                    If ess > fin Then ess = fin End If
                    co = 0
                    For x1 = 1 To 89
                        For y1 = x1 + 1 To 90
                            co = co + 1
                            nu1(co,1) = co
                            nu1(co,2) = x1
                            nu1(co,3) = y1
                            nn(1) = x1
                            nn(2) = y1
                            ru(1) = r
                            ru(2) = r1
                            k1 = SerieFreq(es + 1,ess,nn,ru,2)
                            nu1(co,4) = nu1(co,4) + k1
                            nu2(co,1) = co
                            nu2(co,2) = x1
                            nu2(co,3) = y1
                            nn1(1) = x1
                            nn1(2) = y1
                            k2 = SerieFreq(es + 1,ess,nn1,ru,2)
                            If k2 > 1 Then k2 = 1
                            nu2(co,4) = nu2(co,4) + k2
                            mat(co,1) = co
                            mat(co,2) = x1
                            mat(co,3) = y1
                            ne(1) = x1
                            ne(2) = y1
                            xf = SerieFreq(es + 1,ess,ne,rtt,2)
                            mat(co,4) = mat(co,4) + xf
                        Next
                    Next
                    co = 0
                    For xx = 1 To 90
                        co = co + 1
                        nu3(co,1) = co
                        nu3(co,2) = xx
                        nn2(1) = xx
                        ru(1) = r
                        ru(2) = r1
                        k3 = SerieFreq(es + 1,ess,nn2,ru,1)
                        If k3 > 1 Then k3 = 1
                        nu3(co,3) = nu3(co,3) + k3
                        nu4(co,1) = co
                        nu4(co,2) = xx
                        nn2(1) = xx
                        k4 = SerieFreq(es + 1,ess,nn2,ru,1)
                        nu4(co,3) = nu4(co,3) + k4
                    Next
                End If
            End If
        Next
    Next
    OrdinaMatrice mat,- 1,4
    OrdinaMatrice nu1,- 1,4
    OrdinaMatrice nu2,- 1,4
    OrdinaMatrice nu3,- 1,3
    OrdinaMatrice nu4,- 1,3
    ColoreTesto 2
    Scrivi "Formazione Spia Cercata ISOTOPA su due ruote " & StringaNumeri(n) & " dal " & _
    DataEstrazione(ini) & " al " & DataEstrazione(fin) & ""
    ColoreTesto 1
    Scrivi "Casi riscontrati " & CInt(casi) & " - Analisi effettuata sulle " & ww & _
    "estrazioni sucessive "
    ColoreTesto 2
    Scrivi "CONTENUTO DELLE COLONNE SOTTOSTANTI RELATIVO ALLE RUOTE CONSIDERATE le SPIE"
    ColoreTesto 1
    Scrivi "Ambi+frequenti / Ambi+presenti nei cicli / Estratti" & _
    "+presenti nei c. / Estratti+frequenti "
    Scrivi
    ColoreTesto 2
    Scrivi Space(6) & "Ambo+Frequente | Ambo+Presente | Estratto+PRE | Estratto+FRE "
    ColoreTesto 0
    For wx = 1 To 10
        riga = Format2(nu1(wx,2)) & "-" & Format2(nu1(wx,3)) & " tot " & Format2(nu1(wx,4)) & Space(4) & _
        Format2(nu2(wx,2)) & "-" & Format2(nu2(wx,3)) & " tot " & Format2(nu2(wx,4)) & Space(5) & _
        Format2(nu3(wx,2)) & " tot " & Format2(nu3(wx,3)) & Space(6) & Format2(nu4(wx,2)) & " tot " & _
        Format2(nu4(wx,3))
        Scrivi Space(7) & riga,1
        riga = ""
    Next
    Scrivi String(90,"*")
    Scrivi
    ColoreTesto 1
    Scrivi Space(4) & "Ambi + frequenti a TUTTE",1
    ColoreTesto 0
    For wx = 1 To 10
        riga = Format2(mat(wx,2)) & "-" & Format2(mat(wx,3)) & " tot. " & Format2(mat(wx,4))
        Scrivi Space(8) & riga,1
        riga = ""
    Next
End Sub
Function informa(es,r,a,r1,b)
    Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & Format2(a) & " e " & SiglaRuota(r1) & " " & Format2(b),1
End Function
 
Molte grazie DjNomade, e grazie anche al chitarrista che fa la linguaccia.(GRANDE)
Di nuovo grazie
Joi_lotto.
(dimenticavo! a breve vi chiederò un'altro script molto bello almeno per me! devo scrverlo su world e poi incollarlo).
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto