CCI per EXCEL

Discussione in 'Trading Systems, Econometria' iniziata da andvit67, 28 Novembre 2009.

    28 Novembre 2009
  1. andvit67

    andvit67 New Member

    Registrato:
    27 Giugno 2009
    Messaggi:
    92
    Chi degli esperti del forum in programmazione VBA è capace di tradurre questo indicatore da VisualTrader come scitto sotto :

    Dopo ogni codice riporto come devono essere settate le proprietà di tutte le componenti.

    1)

    //////////////////////////////////////////////////////////////////////////
    /////////////////////////////WOODIE CCI///////////////////////
    ///////////////////////////////////////////////////////////////////////////

    WCCI=CCI[14](close)
    HCCI=WCCI
    TCCI=CCI[6](close)
    if (wcci>0 and wcci[1]>0 and wcci[2]>0 and wcci[3]>0 and wcci[4]>0 and wcci[5]<0) or (wcci<0 and wcci[1]<0 and wcci[2]<0 and wcci[3]<0 and wcci[4]<0 and wcci[5]>0) then
    hcci=0
    HYCCI=WCCI
    else
    HYCCI=0
    endif
    if (wcci>0 and wcci[1]>0 and wcci[2]>0 and wcci[3]>0 and wcci[4]>0 and wcci[5]>0) or (wcci<0 and wcci[1]<0 and wcci[2]<0 and wcci[3]<0 and wcci[4]<0 and wcci[5]<0) then
    hcci=0
    HTCCI=WCCI
    else
    HTCCI=0
    endif




    return HCCI, HYCCI, HTCCI, WCCI, TCCI


    //////////////////////////////////////////FINE//////////////////////////////////////////////
    HCCI->istogramma - grigio
    HYCCI->istogramma - giallo
    WCCI->istogramma - positivo verde - negativo rosso
    WCCI->linea spssa
    TCCI-> linea media





    2)

    //////////////////////////////////////////////////////////////////////////
    /////////////WOODIE CCI SIDEWINDER///////////////
    ///////////////////////////////////////////////////////////////////////////

    //rem angolo ema
    coeffema=34/(highest[34](high)-lowest[34](low))*lowest[34](low)
    ema=ExponentialAverage[34](close)
    hema=(ema-ema[1])/typicalprice*coeffema

    angema=Atan(hema)

    //rem angolo lsma
    coefflsma=25/(highest[25](high)-lowest[25](low))*lowest[25](low)
    lsma=EndPointAverage[25](close)
    hlsma=(lsma-lsma[1])/typicalprice*coefflsma
    anglsma=ATAN(hlsma)


    var1=0
    var2=0
    var3=0
    var4=0
    var5=0
    var6=0

    if ((angema<10 and angema>0 and angema+anglsma=>10) or (anglsma<10 and anglsma=>0 and anglsma+angema=>10)) then
    var1=200
    var4=-200
    else
    if ((angema>-10 and angema<=0 and angema+anglsma<=-10) or ( anglsma>-10 and anglsma<=0 and anglsma+angema<=-10)) then
    var1=200
    var4=-200
    else
    if (angema<=-10 and anglsma<=-10) then
    var2=200
    var5=-200
    else
    if (angema=>10 and anglsma=>10) then
    var2=200
    var5=-200
    else
    var3=200
    var6=-200
    endif
    endif
    endif
    endif


    return var1, var2, var3, var4, var5, var6



    ////////////////////////////FINE////////////////////////////////////////

    var1 e var4 -> punto spesso - giallo
    var2 e var5 -> punto spesso - verde
    var3 e var6 -> punto spesso - rosso

    3)

    //////////////////////////////////////////////////////////////////////////
    ///////////////WOODIE CCI CHOP ZONE///////////////
    ///////////////////////////////////////////////////////////////////////////

    //p=34


    IF close>ExponentialAverage[p](close) THEN
    RLONG=1
    LONG=100
    LONG2=-100
    IF open<ExponentialAverage[p](close) and close>ExponentialAverage[p](close) THEN
    RLONG=-1

    ENDIF
    ELSE
    LONG=0
    LONG2=0
    ENDIF
    IF close<ExponentialAverage[p](close) THEN
    SHORT=100
    SHORT2=-100
    RSHORT=1
    IF open>ExponentialAverage[p](close) and close<ExponentialAverage[p](close) THEN
    RSHORT=-1
    ENDIF
    ELSE
    SHORT=0
    SHORT2=0
    ENDIF
    RETURN LONG COLOURED BY RLONG, LONG2 COLOURED BY RLONG, SHORT COLOURED BY RSHORT, SHORT2 COLOURED BY RSHORT


    ////////////////////////////FINE////////////////////////////////////////

    I primi due -> punto spesso - rialzo verde - ribasso blu
    i restanti due -> punto spesso - rialzo rosso - ribbasso viola


    4)

    //////////////////////////////////////////////////////////////////////////
    /////////////////WOODIE CCI LINE ZERO///////////////
    ///////////////////////////////////////////////////////////////////////////

    LSMA=EndPointAverage[24](close)

    if close=>LSMA then
    zero=1
    else
    zero=-1
    endif



    return 0 coloured by zero


    ////////////////////////////FINE////////////////////////////////////////

    zero -> punto spesso - rialzo nero - ribasso azzurro

    So che è un lavoraccio ma se qualcuno è capace sono anche disposto a pagare il lavoro. Lo vorrei in excel perche' al lavoro non posso utilizzare piattaforme tipo PorRealtime mentre posso aggiornare un file excel.

    Buon Week end
     
  2. 28 Novembre 2009
  3. f4f

    f4f 翠鸟科

    Registrato:
    1 Ottobre 2003
    Messaggi:
    52.975
    Occupazione:
    Six o'clock high
    Località:
    taglialegna da CiubeBBa;at Tokyo as Zenigata;capt

    guardo :) semza promessa di tempo però :rolleyes:
    nel web lo trovi su foglio di calcolo




    potrebbe essere una idea di fabbricare qui i rprincipali indicatori in excel -- foglio di calcolo e VBA ...

    appena posso, contribuisco :)
     
  4. 28 Novembre 2009
  5. andvit67

    andvit67 New Member

    Registrato:
    27 Giugno 2009
    Messaggi:
    92
    Grazie senza impegno e con la dovuta calma certamente. Grazie
     
  6. 28 Novembre 2009
  7. f4f

    f4f 翠鸟科

    Registrato:
    1 Ottobre 2003
    Messaggi:
    52.975
    Occupazione:
    Six o'clock high
    Località:
    taglialegna da CiubeBBa;at Tokyo as Zenigata;capt
  8. 28 Novembre 2009
  9. tetsuo

    tetsuo Guest

  10. 28 Novembre 2009
  11. andvit67

    andvit67 New Member

    Registrato:
    27 Giugno 2009
    Messaggi:
    92
    Si quello che ho scritto è opera di Testuo e mi scuso se lo ho copiato non sapevo però se era permesso riportare link di altri siti. Uso l'indicatore creato da Testuo su ProRealtime ed è per me perfetto. Grazie Testuo
     
  12. 28 Novembre 2009
  13. andvit67

    andvit67 New Member

    Registrato:
    27 Giugno 2009
    Messaggi:
    92
  14. 29 Novembre 2009
  15. kidkurry

    kidkurry Equipaggio sperimentale

    Registrato:
    1 Maggio 2004
    Messaggi:
    577

    scusate la domanda banale, ma come si fa a visualizzare il woodie cci su visualtrader ???
     
  16. 29 Novembre 2009
  17. cammello

    cammello New Member

    Registrato:
    14 Ottobre 2007
    Messaggi:
    2.907
    Località:
    Novara
    PSAR, CCI e Body Momentum

    Senza responsabilità, per excel 2007.

    C
     

    Files Allegati:

    Ultima modifica: 29 Novembre 2009
  18. 29 Novembre 2009
  19. cammello

    cammello New Member

    Registrato:
    14 Ottobre 2007
    Messaggi:
    2.907
    Località:
    Novara
    PSAR, CCI, Body Momentum e Bollinger

    Senza responsabilità, per excel 2007.

    Aggiunte le Bollinger e la possibilità di trasferimento automatico dei dati (non deve essere fatto a mano)

    C
     

    Files Allegati:

Utenti che hanno già letto questo Thread (Totale: 0)

Condividi questa Pagina