-
circle77.
User deleted
Salve a tutti belli e brutti
Benvenuti in questo piccolo spazio dove si aspira a fare di metodo script!
Nulla di più e nulla di meno
Se qualcuno avesse bisogno di fare uno script, la sezione è disponibile ad aiutare chiunque nel limite del possibile
dato che non siamo nati geni.
Il titolo della sezione è : IO SCRIPTO, TU SCRIPTI, EGLI SCRIPTA...
Io ci sono, se poi arriva qualcun'altro, bene!
se poi arriva anche "EGLI...", Benissimo!
********************************************************************************************
sean, dal metodo che mi hai fatto vedere, ecco lo script, di più di così non mi viene.
ho aggiunto il vertibile e il resto per vedere l'effettivo andamento
La meravigliosa distanza 30 di Gargiulo
CODICEOption Explicit
Sub Main()
Dim n,r1,r2,i,j,a,b,c,w,y,aa,bb,cc,a1,a2,a3,a4,co,ok,casi,t1,t2,t3,t4,x1,x2
Dim ruote(1)
Dim ruota(10)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 1
Dim am(2)
Dim amb1(2),amb2(2),amb3(2),amb4(2)
Dim ter1(3),ter2(3)
co = 0
For n = 9650 To EstrazioneFin
Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
Messaggio DataEstrazione(n)
ruota(1) = r1
ruota(2) = r2
ruote(1) = 11
ok = 0
For r1 = 1 To 9
For i = 1 To 4
For j = i + 1 To 5
a = Estratto(n,r1,i)
b = Estratto(n,r1,j)
c = Distanza(a,b)
If c = 30 Or c = 60 Then
For r2 = r1 + 1 To 10
For w = 1 To 4
For y = w + 1 To 5
aa = Estratto(n,r2,w)
bb = Estratto(n,r2,y)
cc = Distanza(aa,bb)
If(cc = 30 Or cc = 60) And(a <> aa And a <> bb And b <> aa And b <> bb) Then
If i = w And j = y Then
a1 = Fuori90(a + aa)
a2 = Fuori90(b + bb)
a3 = Fuori90(a + bb)
a4 = Fuori90(b + aa)
If a1 = a2 Then
ok = 1
am(1) = a1
am(2) = Vert(a1)
End If
If a3 = a4 Then
ok = 1
am(1) = a3
am(2) = Vert(a3)
End If
t1 = Minimo(a,b)
t2 = Massimo(a,b)
t3 = Minimo(aa,bb)
t4 = Massimo(aa,bb)
'----------------------------------
If Massimo(a,b) - Minimo(a,b) = 30 And t1 < 30 Then
ok = 1
x1 = t1 + 60
End If
If Massimo(a,b) - Minimo(a,b) = 30 And t2 < 30 Then
ok = 1
x1 = t2 + 60
End If
If Massimo(a,b) - Minimo(a,b) = 30 And t2 > 60 Then
ok = 1
x1 = t1 - 30
End If
If Massimo(a,b) - Minimo(a,b) = 30 And t1 > 60 Then
ok = 1
x1 = t2 - 30
End If
If Massimo(a,b) - Minimo(a,b) = 60 And t1 < 30 Then
ok = 1
x1 = t1 + 30
End If
If Massimo(a,b) - Minimo(a,b) = 60 And t2 < 30 Then
ok = 1
x1 = t2 + 30
End If
'---------------------------------------
If Massimo(aa,bb) - Minimo(aa,bb) = 30 And t3 < 30 Then
ok = 1
x2 = t3 + 60
End If
If Massimo(aa,bb) - Minimo(aa,bb) = 30 And t4 < 30 Then
ok = 1
x2 = t4 + 60
End If
If Massimo(aa,bb) - Minimo(aa,bb) = 30 And t4 > 60 Then
ok = 1
x2 = t3 - 30
End If
If Massimo(aa,bb) - Minimo(aa,bb) = 30 And t3 > 60 Then
ok = 1
x2 = t4 - 30
End If
If Massimo(aa,bb) - Minimo(aa,bb) = 60 And t3 < 30 Then
ok = 1
x2 = t3 + 30
End If
If Massimo(aa,bb) - Minimo(aa,bb) = 60 And t4 < 30 Then
ok = 1
x2 = t4 + 30
End If
'***************************************
amb1(1) = am(1)
amb1(2) = t1
amb2(1) = am(1)
amb2(2) = t2
amb3(1) = am(2)
amb3(2) = t1
amb4(1) = am(2)
amb4(2) = t2
ter1(1) = am(1)
ter1(2) = x1
ter1(3) = x2
ter2(1) = am(2)
ter2(2) = x1
ter2(3) = x2
ruota(1) = r1
ruota(2) = r2
ruote(1) = 11
If ok = 1 Then
co = co + 1
casi = casi + 1
Scrivi String(125,"8"),,,,2
TestoInBandaPassante(" PORRE IN GIOCO IL VERTIBILE IN CASO DI EVENTUALI SFALDAMENTI ANTICIPATI DELL'AMBATA, NELL'ESTRAZIONE DI CALCOLO E NELLE DUE PRECEDENTI NELLE DUE RUOTE INTERESSATE !!! "),1,4,0
Scrivi " ^^^^^^^^^^ ATTENZIONE NOTA IMPORTANTE!!! ^^^^^^^^^^ ",1,,1,5
Scrivi DataEstrazione(n - 2) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n - 2,r1) & " <<<----- Controlla Sfaldamenti nelle 2 ruote ",1,,,7
Scrivi DataEstrazione(n - 2) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(n - 2,r2),1,,,7
Scrivi DataEstrazione(n - 1) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n - 1,r1) & " <<<----- Nelle due estrazioni precedenti !",1,,,8
Scrivi DataEstrazione(n - 1) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(n - 1,r2),1,,,8
Scrivi String(45,">"),,,,0
Scrivi DataEstrazione(n) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n,r1),1,,,1
Scrivi DataEstrazione(n) & " [ " & SiglaRuota(r2) & " " & StringaEstratti(n,r2) & " <<<----- Estrazioni di calcolo delle 2 ruote esaminate",1,,,1
Scrivi "--------------------------------------------------------------"
Scrivi FormatSpace(NomeRuota(r1),9) & " " & Format2(a) & " " & Format2(b) & " in " & i & "° e in " & j & "° Pos.",1
Scrivi FormatSpace(NomeRuota(r2),9) & " " & Format2(aa) & " " & Format2(bb) & " in " & w & "° e in " & y & "° Pos.",1
Scrivi "--------------------------------------------------------------"
Scrivi " *** Calcoli *** ",1
Scrivi Format2(a) & " + " & Format2(aa) & " = " & Format2(a1) & " 1° Abbinamento per Ambo è il N° = " & t1,1,,,7
Scrivi Format2(b) & " + " & Format2(bb) & " = " & Format2(a2),1,,,7
Scrivi Format2(a) & " + " & Format2(bb) & " = " & Format2(a3) & " 2° Abbinamento per Ambo è il N° = " & t3,1,,,1
Scrivi Format2(b) & " + " & Format2(aa) & " = " & Format2(a4),1,,,1
Scrivi " Elementi mancanti delle terzine " & ter1(2) & " - " & ter1(3)
Scrivi "--------------------------------------------------------------"
Scrivi " Ambata " & Format2(am(1)) & " * Vertibile " & Format2(am(2)),True,,4,2,4
Scrivi String(115,"°") & " caso n° " &(casi)
ImpostaGiocata 1,am,ruota,posta,9,1
ImpostaGiocata 2,amb1,ruota,poste,9,2
ImpostaGiocata 3,amb2,ruota,poste,9,2
ImpostaGiocata 4,amb3,ruota,poste,9,2
ImpostaGiocata 5,amb4,ruota,poste,9,2
ImpostaGiocata 6,ter1,ruota,poste,9,2
ImpostaGiocata 7,ter2,ruota,poste,9,2
Gioca n,,,1
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
Next
Scrivi
Scrivi String(125,"*")
ColoreTesto 2
Scrivi" Totale Casi Trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" *********************************************** Script by circle77 ************************************* "),1,3,0
ScriviResoconto,False
End Sub
. -
.
Buon Giorno.
Considerando quanto è scritto, cioè che si intende discutere di script,
e che se ne ha uno idoneo a codificare un metodo, anch'esso scritto,
mi permetto di suggerire alcune cose, sperando di fare cosa gradita ed utile.
Nelle prime righe della descrizione si legge "perfettamente isotopi".
Quindi delle 10 x 10 coppie di posizioni se ne utilizzano 2 di 10.
2 uguali nelle 2 ruote.
Nello script si vedono sviluppate 10 x 10 = 100CODICEFor i = 1 To 4
For j = i + 1 To 5
a = Estratto(n,r1,i)
b = Estratto(n,r1,j)CODICEFor w = 1 To 4
For y = w + 1 To 5
aa = Estratto(n,r2,w)
bb = Estratto(n,r2,y)
E ... poi scegliere la coppia di posizioni uguali.CODICEIf i = w And j = y Then
E' possibile ottimizzare lo script utilizzando SOLO 2 POSIZIONI (le prime 2)
solo i,j anche per la lettura della seconda coppia di estratti.
Eliminando dunque decine e decine di cicli inutili.
Ed anche il test condizionale per sceglierle se i,j = w,Y.
Si riduce lo spazio utilizzato in memoria ed il numero delle le variabili utilizzate,
ed il tempo per eseguire codesti cicli e queste istruzioni.
Si può eliminare il test condizionale.
Una altra semplice ed ulteriore ottimizzazione può consistere nel considerare che
in "lottologia" e "ciclometricamente" la distanza tra 2 estratti non può essere maggiore di 45.
Diventa pertanto possibile cancellare il test "OR DISTANZA = 60".
Tutto questo dovrebbe ottimizzare lo script rendendolo più semplice, più veloce
pur lasciandolo in grado naturalmente di ottenere gli stessi risultati.
Dunque l'ottimizzazione richiede, un controllo successivo, tra i risultati,
precedentemente prodotti e quelli successivi all'ottimizzazione effettuata.
Buona Giornata a tutte/i.
. -
90TheFear.
User deleted
...o wuaglione è resuscitato finalmente
ti trovi già le bacchettate di J-Gio....
fai tesoro dei suoi consigli, è questo è un consiglio, poi fai come vuoi.
(grazie J-Gio)
ciao
. -
.
Certo ...
... ribadisco che ho SCRITTO E SUGGERITO di OTTIMIZZAZIONE
quindi di COSA UTILE e NON INDISPENSABILE.
Lungi dall'essere la bacchetta.
Tanto-meno magica.. -
circle77.
User deleted
Grazie mister Gio, me lo leggo con calma piu in la, adesso ho il cervello un po fuso e non riesco nemmeno a fare 2+2.
sono quello piu lontano da uno scripter, mi adatto solo a far in modo che i calcoli siano fedeli al metodo.
ciao
. -
.
Grazie circle77.ottimo lavoro..grazie davvero!! . -
.
Ok ... senza indugio,
unisco anch'io i miei complimenti per la creazione di una soluzione,
ad un metodo da considerarsi piuttosto difficile.
Riassumo i suggerimenti apportati a questa piccola parte del codice:CODICE...
'For w = 1 To 4 'cancellato
' For y = w + 1 To 5 'cancellato
aa = Estratto(n,r2,i) 'sostituito con i
bb = Estratto(n,r2,j) 'sostituito con j
cc = Distanza(aa,bb)
If cc = 30 And(a <> aa And a <> bb And b <> aa And b <> bb) Then 'eliminato Or cc = 60
'If i = w And j = y Then 'cancellato test condizionale
cancellando/remmando i 2 corrispettivi Next
cioè i 2 Next alla stessa indentazione dei For e l' End If corrispettivi,
Renderà lo script più semplice, più veloce e che produce gli stessi risultati.
. -
circle77.
User deleted
Ciao mister J-Gio, ho capito fino a un certo punto le spiegazioni per ottomizzare quello script del metodo di Gargiulo
me lo devo vedere a tavolino carta e penna, come faccio di solito prima di uno script altrimenti non riesco a fare i calcoli giusti.
non sono uno scripteeeeerrrrrrr!
grazieeeeeeeee
. -
circle77.
User deleted
seguendo la scia delle terzine simmetriche tanto amate da piu di qualcuno continuo
con lo script di un metodo di Angelo Medici
lo ritengo (vergine) in quanto non ha una versione ambo, Tutto da studiare...
ciao a tutti
CODICEOption Explicit
Sub Main()
Dim n,r1,r2,i,j,a,b,c,w,y,aa,bb,cc,a1,a2,a3,a4,co,ok,casi,t1,t2,t3,t4,x1,x2
Dim ruote(1)
Dim ruota(1)
Dim posta(1)
posta(1) = 1
Dim am(2)
co = 0
For n = 9650 To EstrazioneFin
Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
Messaggio DataEstrazione(n)
ruote(1) = r1
ruota(1) = r2
For r1 = 1 To 10
For i = 1 To 4
j = i + 1
a = Estratto(n,r1,i)
b = Estratto(n,r1,j)
c = Distanza(a,b)
If c = 30 Or c = 60 Then
'-------------------------------
r2 = r1 + 1
If r1 = 10 Then r2 = 1 End If
am(1) = a
am(2) = b
ruote(1) = r1
ruota(1) = r2
co = co + 1
casi = casi + 1
Scrivi String(125,"8"),,,,2
Scrivi DataEstrazione(n) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(n,r1),1,,,1
Scrivi FormatSpace(NomeRuota(r1),9) & " " & Format2(a) & " " & Format2(b) & " in " & i & "° e in " & j & "° Pos.",1
Scrivi "--------------------------------------------------------------"
Scrivi " Ambate " & Format2(am(1)) & " * " & Format2(am(2)),True,,4,2,4
Scrivi String(115,"°") & " caso n° " &(casi)
ImpostaGiocata 1,am,ruota,posta,9,1
Gioca n,,,1
If ScriptInterrotto Then Exit For
End If
Next
Next
Next
Scrivi
Scrivi String(125,"*")
ColoreTesto 2
Scrivi" Totale Casi Trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" *********************************************** Script by circle77 ************************************* "),1,3,0
ScriviResoconto,False
End Sub. -
circle77.
User deleted
uno script al giorno toglie il medico di torno...
di script sui metodi piu conosciuti c'è ne sono a migliaia.
cerco di scegliere solo metodi che magari nessuno conosce,
e se qualcuno attira la mia attenzione faccio lo script.
non so chi sia l'autore, lo trovato così comè.
interessante per certi versi.
l'autore si chiede se con una statistica piu ampia...accontentato.
ciao a tutti
.CODICESub Main()
Dim es,Ini,Fin,Isi,k
Dim r1,r2,r3,a1,b1,c1,d1,e1,a,b,c,d,e,f,g,h,i,co,casi
Dim n(2),n1(2)
Dim t1(3),t2(3),t3(3),t4(3),t5(3),t6(3),t7(3),t8(3),t9(3)
Dim t10(3),t11(3),t12(3),t13(3),t14(3),t15(3),t16(3),t17(3),t18(3)
Dim ruote(10)
Dim ruota(1)
Dim posta(10)
Dim poste(10)
posta(2) = 1
poste(2) = 1
poste(3) = 1
r1 = 10'CInt(InputBox(" Scegli la 1a ruota ",,"10"))
r2 = 1'CInt(InputBox(" Scegli 2a 1a ruota ",,"1"))
Isi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"9743"))
k = 10'CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
Ini = EstrazioneFin - Isi
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruote(1) = r1
ruote(2) = r2
ruota(1) = 11
a1 = Estratto(es,r1,5)
b1 = Estratto(es,r2,1)
If a1 = 45 Then
If b1 > 45 Then
c1 = Fuori90(a1 + b1)
d1 = Differenza(a1,b1)
If c1 = d1 Then
e1 = c1 + 7
n(1) = e1
n(2) = a1
n1(1) = e1
n1(2) = b1
a = 90
b = Fuori90(e1 + 2)
c = e1 - 2
d = Fuori90(e1 + 3)
e = e1 - 3
f = Diametrale(e1)
g = ComplAdX(e1)
h = Fuori90(b1 + 2)
i = b1 - 2
t1(1) = e1
t1(2) = a1
t1(3) = a
t2(1) = e1
t2(2) = a1
t2(3) = b
t3(1) = e1
t3(2) = a1
t3(3) = c
t4(1) = e1
t4(2) = a1
t4(3) = d
t5(1) = e1
t5(2) = a1
t5(3) = e
t6(1) = e1
t6(2) = a1
t6(3) = f
t7(1) = e1
t7(2) = a1
t7(3) = g
t8(1) = e1
t8(2) = a1
t8(3) = h
t9(1) = e1
t9(2) = a1
t9(3) = i
t10(1) = e1
t10(2) = b1
t10(3) = a
t11(1) = e1
t11(2) = b1
t11(3) = b
t12(1) = e1
t12(2) = b1
t12(3) = c
t13(1) = e1
t13(2) = b1
t13(3) = d
t14(1) = e1
t14(2) = b1
t14(3) = e
t15(1) = e1
t15(2) = b1
t15(3) = f
t16(1) = e1
t16(2) = b1
t16(3) = g
t17(1) = e1
t17(2) = b1
t17(3) = h
t18(1) = e1
t18(2) = b1
t18(3) = i
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
ColoreTesto 1
Scrivi DataEstrazione(es) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " ** " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2),1
Scrivi " Previsione : Ambi secchi " & e1 & " - " & a1 & " / " & e1 & " - " & b1,1
Scrivi " ATTENZIONE! Previsione non Giocabile se il n° " & b1 & " è presente nell'estrazione di Venezia.",1,,4,2,2
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,posta,k,2
ImpostaGiocata 2,n1,ruote,posta,k,2
ImpostaGiocata 3,n,ruota,posta,k,2
ImpostaGiocata 4,n1,ruota,posta,k,2
ImpostaGiocata 5,t1,ruote,poste,k,2
ImpostaGiocata 7,t2,ruote,poste,k,2
ImpostaGiocata 7,t3,ruote,poste,k,2
ImpostaGiocata 8,t4,ruote,poste,k,2
ImpostaGiocata 9,t5,ruote,poste,k,2
ImpostaGiocata 10,t6,ruote,poste,k,2
ImpostaGiocata 11,t7,ruote,poste,k,2
ImpostaGiocata 12,t8,ruote,poste,k,2
ImpostaGiocata 13,t9,ruote,poste,k,2
ImpostaGiocata 14,t10,ruote,poste,k,2
ImpostaGiocata 15,t11,ruote,poste,k,2
ImpostaGiocata 16,t12,ruote,poste,k,2
ImpostaGiocata 17,t13,ruote,poste,k,2
ImpostaGiocata 18,t14,ruote,poste,k,2
ImpostaGiocata 19,t15,ruote,poste,k,2
ImpostaGiocata 20,t16,ruote,poste,k,2
ImpostaGiocata 21,t17,ruote,poste,k,2
ImpostaGiocata 22,t18,ruote,poste,k,2
ImpostaGiocata 23,t1,ruota,poste,k,2
ImpostaGiocata 24,t2,ruota,poste,k,2
ImpostaGiocata 25,t3,ruota,poste,k,2
ImpostaGiocata 26,t4,ruota,poste,k,2
ImpostaGiocata 27,t5,ruota,poste,k,2
ImpostaGiocata 28,t6,ruota,poste,k,2
ImpostaGiocata 29,t7,ruota,poste,k,2
ImpostaGiocata 30,t8,ruota,poste,k,2
ImpostaGiocata 31,t9,ruota,poste,k,2
ImpostaGiocata 32,t10,ruota,poste,k,2
ImpostaGiocata 33,t11,ruota,poste,k,2
ImpostaGiocata 34,t12,ruota,poste,k,2
ImpostaGiocata 35,t13,ruota,poste,k,2
ImpostaGiocata 36,t14,ruota,poste,k,2
ImpostaGiocata 37,t15,ruota,poste,k,2
ImpostaGiocata 38,t16,ruota,poste,k,2
ImpostaGiocata 39,t17,ruota,poste,k,2
ImpostaGiocata 40,t18,ruota,poste,k,2
Gioca es,1,,1
End If
End If
End If
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
TestoInBandaPassante(" SCRIPT BY CIRCLE77 "),1,3,0
ScriviResoconto
End Sub.
IO SCRIPTO, TU SCRIPTI, EGLI SCRIPTA... |
Offline
Web