ciao Pasquale vedi se questo ti va bene , naturalmente i calcoli te li cambi a tuo piacimento
qui sono solo isotopi ora vedo se lo trovo non isotopo
Sub main()
Dim nu1(2),nu2(2),nu3(6),ruota(2)
Dim posta(1),poste(2),post(5)
posta(1)=5:poste(2)=1:post(2)=1:post(3)=1:post(4)=1:post(5)=1:casi=0
ini=7900
fin=EstrazioneFin
Scrivi "gemelli di occhidigiada58 (list by maxma62)",1:scrivi
Scrivi String(78,"="),1:scrivi
Scrivi "resoconto da "&DataEstrazione(ini,1)&" a "&DataEstrazione(fin,1)&" ("&(fin-ini)&" estr.)":scrivi
For es=ini To EstrazioneFin
Messaggio "elab. estr. [ "&(es)&" ] di " & DataEstrazione (es,1)
For r1=1 To 10
For p=1 To 5
a=Estratto(es,r1,p)
For r2=r1+1 To 12
If r2=11 Then r2=12
b=Estratto(es,r2,p)
If Gemello(a) And Gemello(b) And a<>b Then
n1=Abs(a-b) '1^ amb
n2=Vert(n1) '2^ amb
n3=Massimo(a,b)
n4=Fuori90(n3+n1) '1^ abb
n5=DiametraleD(n4) '2^ abb
n6=Diametrale(n4) '3^ abb
n7=Diametrale(n5) '4^ abb
casi=casi+1:Scrivi String(78,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&stringaestratti(es,r1)&" ] [ "&_
Format2(a)&" in "&(p)&"^ pos. ]"&space(9)&"(caso n° "&casi&")"
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r2)&" - "&stringaestratti(es,r2)&" ] [ "&_
Format2(b)&" in "&(p)&"^ pos. ]":Scrivi String(78,"-"),1
Scrivi "ambate in gioco [ "&format2(n1)&"."&format2(n2)&" ] abbin. in gioco [ "&format2(n4)&_
"."&format2(n5)&"."&format2(n6)&"."&format2(n7)&" ]":Scrivi String(78,"-"),1
ruota(1)=r1:ruota(2)=r2:k=14:co=0
nu1(1)=n1:nu1(2)=n2:co=co+1
ImpostaGiocata co,nu1,ruota,posta,k,1
nu1(1)=n1:nu1(2)=n2:co=co+1
ImpostaGiocata co,nu1,ruota,poste,k,2
nu1(2)=n4:co=co+1
ImpostaGiocata co,nu1,ruota,poste,k,2
nu1(2)=n5:co=co+1
ImpostaGiocata co,nu1,ruota,poste,k,2
nu1(2)=n6:co=co+1
ImpostaGiocata co,nu1,ruota,poste,k,2
nu1(2)=n7:co=co+1
ImpostaGiocata co,nu1,ruota,poste,k,2
nu2(1)=n2:nu2(2)=n4:co=co+1
ImpostaGiocata co,nu2,ruota,poste,k,2
nu2(2)=n5:co=co+1
ImpostaGiocata co,nu2,ruota,poste,k,2
nu2(2)=n6:co=co+1
ImpostaGiocata co,nu2,ruota,poste,k,2
nu2(2)=n7:co=co+1
ImpostaGiocata co,nu2,ruota,poste,k,2
nu3(1)=n1:nu3(2)=n2:nu3(3)=n4
nu3(4)=n5:nu3(5)=n6:nu3(6)=n7:co=co+1
ImpostaGiocata co,nu3,ruota,post,k
Gioca es
End If
Next:Next:Next:Next
ScriviResoconto
End Sub
