Aiuto - help - hilfe

[Roby]

Sai perchè ho usato l'istruzione differenza?
perchè credo che per chi non conosce gli script, sia più comprensibile di Abs, tutto qui
Tra l'altro ho usato proprio Spaziometria per fare lo script, visto che come hai giustamente detto tu, L8 non ha questa funzione
Ciao

 

[Joe91]

Ciao Blackmore si giusto.

quanto poi, lo strano è, che Spaziometria, ed in questo script caso è infinitamente più veloce di L8.

In L8+ esegue in oltre 2 minuti ... con Spaziometria 1.3.48 ... pochi secondi.

Questo quanto avevo scritto io.

'Ambi Isotopi in Uguale Distanza Ciclometrica By Joe
Sub Main()
For Es = 7658 To EstrazioneFin 
For R1 = 1 To 10 : 
For R2 = R1+1 To 11 : If R2 = 11 Then R2 = 12 
For P1=1 To 4 : P2=P1+1
E1 = Estratto (Es,R1,P1) : E2 = Estratto (Es,R1,P2) : D1 = Distanza (E1,E2)
E3 = Estratto (Es,R2,P1) : E4 = Estratto (Es,R2,P2) : D2 = Distanza (E3,E4)
If D1 = D2  Then
K=K+1 : Scrivi String(45,"-") & " Caso " & K
Scrivi DataEstrazione (Es) & " " & SiglaRuota(R1) & " ",0,0
Scrivi StringaEstratti (Es,R1) & " " & Format2 (E1) & "-" & Format2 (E2) & " Dc=" & Format2 (D1)
Scrivi DataEstrazione (Es) & " " & SiglaRuota(R2 )& " ",0,0
Scrivi StringaEstratti (Es,R2) & " " & Format2 (E3) & "-" & Format2 (E4) & " Dc=" & Format2 (D2)
End If 
Next 
Next
Next
Next 
End Sub