LTS 31/08

LTS 30/08

Non spazientitevi. Come diceva il Gann, if market stay, do the same.
Non si muove niente, i prezzi sono sempre quelli, c'è poco da fare, e gli eseguiti non arrivano.

LTS 29/08

LTS 28/08

LTS lunedì 27/08

LTS 24/08

LTS 23/08

LTS 22/08

LTS 21/08

Scaricare DATI EOD YAHOO su EXCEL

Oggi, dato che mi diletto, vi posto una ruotine che serve per scaricare i dati EOD sul proprio foglio excel direttamente da yahoo.finance
Ciò è utile, ad esempio, per aggiornare fogli di calcolo come LTS.
Dovrete leggervi il codice ed adattarlo alle vs esigenze.
Eccovi il codice
------------------------------------------------------------------------------
Sub GetData()

    Dim QuerySheet As Worksheet
    Dim DataSheet As Worksheet
    Dim qurl As String
    Dim i As Integer, iMax As Integer
       
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
   
    Set DataSheet = ActiveSheet
        For iMax = 0 To 1000 Step 200
   
    i = 7 + iMax
    If Cells(i, 1) = "" Then
        GoTo stopHere
    End If
   
    qurl = "http://download.finance.yahoo.com/d/quotes.csv?s=" + Cells(i, 1)
    i = i + 1
    While Cells(i, 1) <> "" And i < iMax + 207
        qurl = qurl + "+" + Cells(i, 1)
        i = i + 1
    Wend
    qurl = qurl + "&f=" + Range("C2")
    Range("c1") = qurl
   
QueryQuote:
             With ActiveSheet.QueryTables.Add(Connection:="URL;" & qurl, Destination:=DataSheet.Range("N7"))
                .BackgroundQuery = True
                .TablesOnlyFromHTML = False
                .Refresh BackgroundQuery:=False
                .SaveData = True
            End With

    Range("N7:N207").Select
    Selection.TextToColumns Destination:=Range("N7"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1))
       
    Range("N7:W207").Select
    Selection.Copy
    Cells(7 + iMax, 3).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
       
'   Range("N7:W207").Select
'    Selection.ClearContents
Next iMax

    With ThisWorkbook
        For Each nQuery In Names
            If IsNumeric(Right(nQuery.Name, 1)) Then
                nQuery.Delete
            End If
        Next nQuery
    End With
   

'turn calculation back on
    Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = True
'    Range("C7:H2000").Select
'    Selection.Sort Key1:=Range("C8"), Order1:=xlAscending, Header:=xlGuess, _
'        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'    Columns("C:C").ColumnWidth = 25.43
'    Range("h2").Select



stopHere:

End Sub

LTS Lunedì 20/08

NASDAQ 17/08

Oggi vorrei sottoporre all'attenzione questo chart, dove sono state tirate due linee. In entrambi i casi, abbiamo un potenziale futuro sviluppo negativo, in quanto si ha un ritorno dal basso al test delle linee.

Vi presento inoltre un nuovo grafico, dove si evidenzia l'area SELL proposta dal sistema. L'area indicata è compresa nella fascia di prezzo 2870-3180 e il tempo è quello della fascia VERDE-ROSSA. Adesso abbiamo dato che siamo al 17/08 il poligono evidenziato.
Le rette evidenziano il sentiero che va dal minimo all'inizio della zona verde per il primo TG di 2870 e fino alla fine della fascia rossa per 3180. In particolare la seconda retta, potrebbe essere quella che regge tutto il rialzo e dopo la sua rottura, portare il nasdaq ad una correzione.
Tuttavia, occorre tenere presente che il tempo per il rialzo si estende fino a settembre 2013 e quindi abbiamo oltre 1 anno di tempo.

LTS Chiuso 1 FTSEMIB

Dopo ben 3 mesi senza alcuna operazione, sul mercato Italiano abbiamo chiuso un contratto, riportando la performance a livelli accettabili.

LTS 17/08

LTS Short 3° contratto NASDAQ

LTS 16/08

LTS livelli per il 14/08

LTS Lunedì 13/08

LTS 10/08

LTS 09/08

LTS 8/08

LTS Short NASDAQ

Il sistema continua ad entrare SHORT sulla base dei suoi algoritmi meccanici, non immagina però che POTREMMO essere agli albori di un rialzo sostanzioso. Questo ulteriore test ci dirà quanto sono affidabili le tecniche meccaniche. Ricordo, comunque, che sono presenti dei meccanismi di difesa che bloccano il perseverare delle entrate contro-trend.

LTS 07/08

LTS Short SP500 e NASDAQ

Il sistema aveva già abbassato la soglia di ingresso venerdì, quindi stamattina ha shortato gli indici USA beneficiando di qualche punto in apertura, ma sostanzialmente sui livelli di sistema.

Considerazioni sulla fase attuale

Il momento mi sembra opportuno per dare indicazioni di massima sul momento attuale, dato che il tempo del ribasso appare scaduto e osservando il mercato si nota una certa volontà a non scendere. Prima Draghi illude i mercati e questi salgono per una settimana, poi fa marcia indietro e questi correggono per una seduta, salvo poi nell'ultimo giorno della settimana recuperare tutto. Questa per me è una precisa volontà che il mercato si è ormai posizionato nella fase rialzista, che ricomincia ad entrare denaro. Sto parlando di mercato azionario in senso globale, con le borse buone che sono sui massimi e le cattive sui minimi, ma in senso generale, credo che si debba assistere ad un rialzo generalizzato.
Stessa considerazione per l'euro, che dovrebbe aver ripreso la fase in salita. Adesso secondo me, è vietato andare short.
Ulteriori riconsiderazioni in caso di rottura dei minimi.
Livelli importanti:
Euro sotto 12130 ritorna short
SP500 sotto 1325 ritorna short
NASDAQ sotto 2520 ritorna short
FTSEMIB sotto 13200 ritorna short
DAX sotto 6300 ritorna short

LTS livelli per lunedì 06/08

LTS DAX Short

LTS 03/08

LTS Coperto 1 DAX

LTS 02/08

Impegni improvvisi mi permettono l'aggiornamento solo adesso. I livelli sono però invariati rispetto a ieri.

LTS Livelli per 01/08