Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'graduatoria dei ritardi per ruota richiesta e per numeri richiesti
'RSI----'% K = 100 * [(CHIUSURA - MINn) /(MAXn - MINn)]
'STOCASTICS RSI----- [(Today's RSI - Lowest RSI in %K periods)/(Highest RSI in %K periods - Lowest RSI in %K periods)] * 100
'MACD--------(n1 Period EMA - n2 Period EMA) ---- n3 Period EMA overlay ( trigger )
'ADX---CERCA SU--("http://www.fabiolongo.com/borsa/adx.html"))
'MOMENTUM -----Today's Close - (Today - n periods Close)
'FORMULA x media exponenziale
'la prima volta la media è semplice:
'(1.312+1.274+1.281+1.280)/4=1.287
'perciò questo è il valore di ieri, se oggi il Close sarà 1.279
'si calcolerà:
'EMA=((1.279-1.287)*(2/(1+4)))+1.287
'EMA=1.283
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
'scelgo ruotA
Dim rr
Dim namefile
Dim numeri(90)
Dim sFile
ReDim aRighe(0)
ReDim aValori(0)
ReDim disc(90)
Dim sRiga
Dim kk
'rr =(NomeRuota(ScegliRuota))
'scelgo numeri combinazione di ricerca
Call ScegliNumeri(numeri)
xnum = UBound(numeri)
'inserisci quanti concorsi precedente per verifica statistica
limstat = InputBox("inserisci n.concorsi in meno per verifica statistica",,0)
'scegli ordine output colonna
Mr = InputBox("scegli colonna ordinamento tra 1=Rit.Att. 2=%daMinim 3=Rit.da Top 4=Uscite 1year")
'ricerco ultimo record o posizione ritardi dei numeri richiesti e faccio lista a video
'____________________________________________________________________________________________________________________________________________
' loop per tutti i numeri scelti
'____________________________________________________________________________________________________________________________________________
For k = 1 To xnum
namefile = "D:\Gannalyst\Archivio dal 2005 entrata ruota Nazionale\Bari" & rr & "\" & Format2(numeri(k)) & ".txt"
sFile = namefile
LeggiRigheFileDiTesto sFile,aRighe
last = UBound(aRighe)
'ricerca last record
ultimo = UBound(aValori)
eue = last
last = eue - limstat
'__________________________________________
'RICERCA ultimo minimo profondo o annuale o biennale
minmin = 999999
maxo = 000000
i = last
For q = 1 To 155
min = Left(Right(aRighe(i),23),5)
mas = Right(aRighe(i),5)
If Int(min) < Int(minmin) Then
minmin = min
Incrn = q
End If
If Int(mas) > Int(maxo) Then
maxo = mas
End If
i = last - q
Next
tincrn = Format2(Incrn)
'___________________________________________________________________________________________
'calcolo differenza punti tra max e min dal ritardo attuale e %max %min
difftot2 = Int(Right(aRighe(last),5)) - Int(minmin)
'Direz2 = "dal minimoP"
difftot1 = Int(Right(aRighe(last),5)) - Int(maxo)
'Direz1 = "dal massimoP"
minperc = Int((difftot2/minmin)*100)
maxperc = Int((difftot1/maxo) * 100)
'__________________________________________________________________________________________
'calcola indicatore MOMENTUM con chiusura - (chiusura 10ggprima)
uz = last
chiusuraoggi = Right(aRighe(uz),5)
chiusura10ggP = Right(aRighe(uz - 10),5)
MOMENTUM = chiusuraoggi - chiusura10ggP
'___________________________________________________________________________________________
'calcolo sortite ultimi 155 concorsi (1 year)
qtop = 0
prMOM = 0
s = 0
i = last - 154
For b = 1 To 155
ii = i - 10
Chiusura = Right(aRighe(i),5)
Apertura = Right(aRighe(i - 1),5)
prch = Right(aRighe(ii),5)
prMOM = Chiusura - prch
If prMOM >= 890 Then
rtop = rtop +
Un saluto a tutti,quote:Originally posted by mgrruggiu
Qualcuno può aiutarmi per favore?quote:Originally posted by mgrruggiu
Ciao luigi, mi spieghi come fare nel quadro estrazioni a caricare un disegno e vedere gli esiti nelle varie estrazioni?
Quando salvo il disegno mi da estensione .dat, quando cerco di caricare
il disegno nel quadro estrazioni, mi chiede estensione .qua.
grazie
giovanni
Grazie
quote:Originally posted by ANGIE1911
Ehhhhhh
Buongiorno gente,
Però sappiamo tutti che i ragionamenti a posteriori...sono appunto a posteriori, affascinanti etc etc.....e imparare?
qualche volta si, qualche volta no...
due cose
1) questa è però già un altra struttura rispetto alle precedenti
2) Rimane sempre il problema della scelta dei numeri
Buona Giornata a tutti
i disegni dell universo nei numeri
quote:Originally posted by LuigiB
A proposito Elephant perche non ti scarichi cam studio e fai pure tu qualche filmatino sull'uso del programma (tu lo usi sicuramente piu di me) cosi invece dell'help potremmo fare uan video guida ..naturalmente io l'invito lo faccio ad Elephant ma vale per tutti quell iche vogliono collaborare.
Ciao a tutti !
quote:Originally posted by ginop26
Ciao a tutti,
vedo che anche qui si cominciano a vedere le prime scaramucce...
Possiamo fare una bella cosa??
Lasciamo che i disturbatori postino le loro critiche, evitiamo di rispondere ai loro attacchi. Se rispondiamo ai loro post non facciamo altro che buttare benzina sul fuoco, ci abbassiamo al loro livello e fomentiamo la cattiveria.....
Se invece li ignoriamo, comportandoci da signori (visto che NOI lo siamo), tutti i loro tentativi cadranno miseramente nel vuoto!!!
Ciao ciao
GinoP26
quote:Originally posted by cobra_pliskeen
Buonasera,
c'è qualcuno che, armato di tanta buona volontà, mi può spiegare cosa cavolo è il tabellone analitico?
In effetti mi fa vedere le estrazioni però scompaiono dei numeri, come mai?
Grazie a chi avrà il coraggio di sobbarcarsi il compito.
__________________________
Mai discutere con un'idiota, ti porta al suo livello e vince per l'esperienza.
quote:
Se non sbaglio quello che trovi alla base sono le ultime estrazioni e man mano che sali restano i numeri ritardatari per ogni ruota![]()
quote:Originally posted by elephantbig
Ciao Lupo Cobra
Come immagino tu abbia capito,alla riga 0 ,sono presenti i numeri estratti ieri 2/12/2010
prendiamo ad esempio la ruota di BARI:
la prossima estrazione succederà che tutte le righe shifteranno di una estrazione e la nuova sarà a 0.
Man mano che sortiranno i numeri verranno eliminati dalla estrazione originale.
mi spiego meglio.
osserva l'estrazione del 23/11/2010 sempre a Bari .Ci sono solo 3 numeri:
27 _ 69 64 _
Bene ,giorno 23/11/2010 in realta erano stati estratti i seguenti numeri:
27 56 69 64 76
Se osservi il 76è stato estratto l'estrazione successiva in 4°posizione ed il 56 è stato estratto nell'ultima di ieri anche in 4°posizione.
Come vedi dove mancano dei numeri sono le cinquine che man mano si "sgretolano" e ti fanno vedere a che punto è la situazione.
Spero sia chiaro.
Ciao![]()