Posted by script on 11/04/01 - 06:25:39
IP: 62a435J7CSYWU Browser:

Corpo del messaggio

"una macchina per votare nel breve periodo ed una macchina per pesare nel lungo periodo". In altri termini, nel breve la prevalenza degli acquisti o delle vendite determina le fluttuazioni, ma nel lungo, il trend viene espresso dal peso dei valori economici sottostanti. Per il breve si possono utilizzare i "voti" di ieri per calcolare i pivot points di oggi: basta un clic! Se nel, foglio excel attivo, vi sono, in riga e nell'ordine, i valori apertura, massimo, minimo e chiusura di un titolo (più titoli si metteranno in colonna, riga dopo riga, senza vuoti), lanciando una delle seguenti macro si avranno nelle colonne successive i valori pivot, dal supporto più basso alla resistenza più alta. Sub DE_MARK_Pivots_sensu_Razz()    r = 2 'n° della prima riga in calcolo, 2 in questo caso    c = 2 ' n° della colonna dove c'è il prezzo d'apertura (A=1, B=2, ...)    ur = 10 ' n° dell'ultima riga in calcolo, 10 in questo caso    For i = r To ur        apertura = Cells(i, c).Value        massimo = Cells(i, c + 1).Value        minimo = Cells(i, c + 2).Value        chiusura = Cells(i, c + 3).Value        differenza = massimo - minimo        Select Case chiusura            Case Is > apertura                TP = (2 * massimo + minimo + chiusura) / 4            Case Is < apertura                TP = (massimo + 2 * minimo + chiusura) / 4            Case Is = apertura                TP = (massimo + minimo + 2 * chiusura) / 4        End Select        R1 = TP + differenza        S1 = TP - differenza        R2 = TP - S1 + R1        S2 = TP + S1 - R1        Cells(i, c + 4).Value = S2 'c + 4 se si vuole il primo pivot a fianco del prezzo di chiusura        Cells(i, c + 5).Value = S1 'c + 5 = colonna successiva se la precedente è c + 4        Cells(i, c + 6).Value = TP        Cells(i, c + 7).Value = R1        Cells(i, c + 8).Value = R2    Next i End Sub Sub DE_MARK_Pivots_sensu_Aronne()    r = 5 'n° della prima riga in calcolo, 5 in questo caso    c = 3 ' n° della colonna dove c'è il prezzo d'apertura (C=3, D=4, ...)    ur = 35 ' n° dell'ultima riga in calcolo, 35 in questo caso    For i = r To ur        apertura = Cells(i, c).Value        massimo = Cells(i, c + 1).Value        minimo = Cells(i, c + 2).Value        chiusura = Cells(i, c + 3).Value        Select Case chiusura            Case Is > apertura                TP = (2 * massimo + minimo + chiusura) / 4            Case Is < apertura                TP = (massimo + 2 * minimo + chiusura) / 4            Case Is = apertura                Exit Sub        End Select        R1 = TP * 2 - minimo        S1 = TP * 2 - massimo        R2 = TP - S1 + R1        S2 = TP + S1 - R1        R3 = TP - S2 + R2        S3 = TP + S2 - R2        Cells(i, c + 4).Value = S3        Cells(i, c + 5).Value = S2        Cells(i, c + 6).Value = S1        Cells(i, c + 7).Value = R1        Cells(i, c + 8).Value = R2        Cells(i, c + 9).Value = R3    Next i End Sub Buona domenica

Per ulteriore lettura

No one has replied to this message.

Faccine Rispondi a questo messaggio

Upload grafico. Solo file tipo: gif, jpg, png, bmp. Massimo Kb 70. I file contenenti riferimenti a siti o programmi diversi da JChart verranno cancellati. Uso: seleziona il files, premi upload e copia il codice che verra' visualizzato all'interno del messaggio nel punto dove vuoi il grafico. Per ridurre le dimensioni: togli la parte inutile, cornice ecc. Grazie.

User:    Psw:  [ L'user non sarà visibile nei messaggi. ] Nick: Mail: Titolo: Testo:

XTrader Forum