Raccolta di T.S. per Visual Trader
Il sentiment ribassista su Wall Street si attutisce, ma quota liquidità rimane ‘molto alta’. Tanti investitori si autoescludono dal grande rally estivo
Il sentiment degli investitori è ancora ribassista ma non più ?apocalittico? come un mese fa, secondo l?indagine mensile di BofA sui gestori di fondi globali di agosto, mentre aumentano le speranze che l?inflazione e gli shock dei tassi di interesse finiscano nei prossimi trimestri.BofA, che ha intervistato gli investitori che supervisionano $ 836 miliardi di
Caldo, siccità e affaire turbina: gas Ttf fa +170% in quest’estate rovente. Alla Germania servirà un miracolo per evitare la recessione
Quest'estate sta vedendo aggravarsi lo shock energetico in Europa con caldo ed emergenza siccità che stanno aggravando la situazione in paesi chiave
La Germania introduce la tassa sul gas, ecco quanto peserà e possibili effetti su economia
Si prospetta un inverno ancora più difficile del previsto per la Germania e la sua popolazione con il materializzarsi una nuova tassa sull'uso del g
Tutti gli articoli
Tutti gli articoli Tutte le notizie

  1. #1
    L'avatar di xavier sardá
    Data Registrazione
    Jun 2008
    Messaggi
    12,914
    Mentioned
    2 Post(s)
    Quoted
    1189 Post(s)
    Potenza rep
    42949687

    Raccolta di T.S. per Visual Trader

    metto qui una serie di trading system da applicare con Visual Trader che possono tornare utili
    sono un programmatore scarso perciò correggetemi tranquillamente senza problemi in caso di errore o di percorso troppo macchinoso
    un mio professore diceva " chi non ha testa ha gambe "...santa verita

    ts BPW e BP
    estrae il pivot settimanale e giornaliero

    //______________Pivot BPW-BP______________//
    Var: newday1(false), mioopen(0), miomin(0), miomax(0), mioclose(0),BP(0);
    Var: newday(false),giorno,azzera(0),sOpen ,sLow,sHigh,sClose,BPW(0);

    newday1=GetValues(days,1,mioopen,miomin, miomax,mioclose);
    if newday=true then
    BP=(miomax+miomin+mioclose)/3;endif;

    newday=GetValues(weeks,1,sOpen,sLow,sHig h,sClose);
    giorno=dayofweek;
    azzera=iif(giorno<giorno[1],1,0);

    if azzera=1 then BPW=(SHigh+SLow+SClose)/3;endif;


    plotchart(BPW,0,green,solid,2);
    PlotChart(BP, 0,red, solid, 3);
    Anteprime Allegate Anteprime Allegate Clicca l'immagine per ingrandirla. 

Nome: ScreenShot025.png‎ 
Visualizzazioni: 592 
Dimensione: 73.3 KB 
ID: 1661984  

  2. #2
    L'avatar di xavier sardá
    Data Registrazione
    Jun 2008
    Messaggi
    12,914
    Mentioned
    2 Post(s)
    Quoted
    1189 Post(s)
    Potenza rep
    42949687
    ts massimo e minimo W & D
    estrae massimo e minimo settimanale e giornaliero

    //________Massimo e minimo settimanale e giornaliero______________________//


    Var: newday(false),giorno,azzera(0),sOpen,sLo w,sHigh,sClose,BPW;
    Var: wmax,wmin;
    Var: newday1(false), mioopen(0),miomin(0),miomax(0),mioclose( 0),dmax,dmin;



    newday=GetValues(weeks,1,sOpen,sLow,sHig h,sClose);
    giorno=dayofweek;
    azzera=iif(giorno<giorno[1],1,0);

    if azzera=1 then BPW=(SHigh+SLow+SClose)/3;
    WMAX=H;WMIN=L;
    else
    WMAX=iif(H>=WMAX[1],H,WMAX[1]);WMIN=iif(L<=WMIN[1],L,WMIN[1]);
    endif;


    if isfirstbarday then
    DMAX=H;DMIN=L;
    else
    DMAX=iif(H>=DMAX[1],H,DMAX[1]);DMIN=iif(L<=DMIN[1],L,DMIN[1]);
    endif;



    PlotChart(wmax, 0, green, solid, 2);
    PlotChart(wmin, 0, red, solid, 2);
    PlotChart(dmax, 0, green, dot, 1);
    PlotChart(dmin, 0, red, dot, 1);
    Anteprime Allegate Anteprime Allegate Clicca l'immagine per ingrandirla. 

Nome: ScreenShot026.png‎ 
Visualizzazioni: 330 
Dimensione: 66.8 KB 
ID: 1661988  

  3. #3
    L'avatar di xavier sardá
    Data Registrazione
    Jun 2008
    Messaggi
    12,914
    Mentioned
    2 Post(s)
    Quoted
    1189 Post(s)
    Potenza rep
    42949687
    ts bipolare
    estrae ottimizzazione movimento direzionale

    //____________________________Bipolare____ __________________//

    Var: pdx14,ndx14,op1,op2,op3,op4,adx14,indzon a1,indzona2,colore;



    pdx14=DMPDX(C,14);
    ndx14=DMNDX(C,14);
    op1= op(pdx14,ndx14,add);
    op2=op(pdx14,ndx14,sub);
    op3=op(op2,op1,divis);
    op4=wilder(op3,14);//bipolare

    Indzona1=CreateViewport(200,0,true);
    PlotChart(pdx14,Indzona1,green,solid,2);
    PlotChart(ndx14,Indzona1,red,solid,2);
    Indzona2=CreateViewport(400,0,true);
    PlotChart(op4,Indzona2,colore,istogramma ,2);

    if op4 > 0 then
    colore= green;
    else
    colore= red;
    endif;
    Anteprime Allegate Anteprime Allegate Clicca l'immagine per ingrandirla. 

Nome: ScreenShot027.png‎ 
Visualizzazioni: 385 
Dimensione: 64.6 KB 
ID: 1661990  

  4. #4
    L'avatar di Zino77
    Data Registrazione
    Oct 2008
    Messaggi
    5,649
    Mentioned
    17 Post(s)
    Quoted
    954 Post(s)
    Potenza rep
    42949686
    Ciao
    ho provato a copiare il codice del "Massimo e minimo settimanale e giornaliero" ma mi da un errore di sintassi ..

    Verifica Formula ... Errore
    Linea 8: Errore di sintassi: Mi aspetto i seguenti token: ( , ;

  5. #5
    L'avatar di Duck Bi
    Data Registrazione
    Sep 2007
    Messaggi
    340
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Potenza rep
    5119039
    Citazione Originariamente Scritto da Zino77 Visualizza Messaggio
    Ciao
    ho provato a copiare il codice del "Massimo e minimo settimanale e giornaliero" ma mi da un errore di sintassi ..

    Verifica Formula ... Errore
    Linea 8: Errore di sintassi: Mi aspetto i seguenti token: ( , ;

    Elimina gli spazi in "sLo w" e "sHig h", poi tutto fila liscio
    Credo sia un problema del copia e incolla, evitabile con l' incolla dopo aver cliccato su # (racchiudi tra i tag).
    Ultima modifica di Duck Bi; 21-10-12 alle 21:17

  6. #6
    L'avatar di Zino77
    Data Registrazione
    Oct 2008
    Messaggi
    5,649
    Mentioned
    17 Post(s)
    Quoted
    954 Post(s)
    Potenza rep
    42949686

    Corretto, grazie!

  7. #7

    Data Registrazione
    Jun 2012
    Messaggi
    96
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Potenza rep
    954004
    Molto utili grazie ma ho dei problemi con il bipolare. Che cosa può essere? :O
    Anteprime Allegate Anteprime Allegate Clicca l'immagine per ingrandirla. 

Nome: Immagine1212.png‎ 
Visualizzazioni: 326 
Dimensione: 52.9 KB 
ID: 1662370  

  8. #8
    L'avatar di xavier sardá
    Data Registrazione
    Jun 2008
    Messaggi
    12,914
    Mentioned
    2 Post(s)
    Quoted
    1189 Post(s)
    Potenza rep
    42949687
    TS Ravi_Fisher


    //___________________________________ RAVI__Fisher____________________________ __//


    Var: fast(40),slow(300);
    Var: ATRFast,ATRSlow,cv3,TP_a,TP_b,Typical_Pr ice,maslow,mafast,mavalue,ifisha,
    ifishb,Ravi_FX_Fisher,zona1;


    //////////////////////////////////////////////////////////////////////////////////////////
    cv3=constval(3);
    TP_a=op(h,l,add);
    TP_b=op(TP_a,c,add);
    Typical_Price=op(TP_b,cv3,divis);

    maslow=mov(Typical_price,slow,A);
    mafast=mov(Typical_Price,fast,A);
    ATRSlow=atr(maslow,slow);
    ATRFast=atr(mafast,fast);

    Mavalue=100*(mafast-maslow)*ATRFast/MASlow/ATRSlow;

    ifishA=(exp(2*mavalue)-1);
    iFishB=(exp(2*mavalue)+1);
    RAVI_FX_Fisher=ifishA/iFishB;
    zona1=CreateViewport(400,True,True);
    PlotChart(RAVI_FX_Fisher,zona1,red,solid ,2);
    PlotChart(0.000000000001,zona1,black,dot ,1);
    Anteprime Allegate Anteprime Allegate Clicca l'immagine per ingrandirla. 

Nome: ScreenShot029.png‎ 
Visualizzazioni: 408 
Dimensione: 78.4 KB 
ID: 1662379  

  9. #9

    Data Registrazione
    Jun 2012
    Messaggi
    96
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    Potenza rep
    954004
    Citazione Originariamente Scritto da xavier sardá Visualizza Messaggio
    lo spazio nella variabile indzon a1
    ah grazie, non l'avevo visto!

  10. #10
    L'avatar di xavier sardá
    Data Registrazione
    Jun 2008
    Messaggi
    12,914
    Mentioned
    2 Post(s)
    Quoted
    1189 Post(s)
    Potenza rep
    42949687
    TS sommavolumi intraday

    //________________TS Sommavolumi intraday__________________//
    Codice:
    Var: sommavol,indzona1;
    
    if IsFirstBarDay then
      SommaVol = 0;
    endif;
    
    SommaVol = SommaVol + V;
    
    indzona1 = Createviewport(300);
    PlotChart(sommavol,indzona1,red,solid,2);
    DrawText(NEWOGG,indzona1 , D,sommavol , "s.v.",sommavol, black, 25, 1+4,Alright);
    Anteprime Allegate Anteprime Allegate Clicca l'immagine per ingrandirla. 

Nome: ScreenShot031.png‎ 
Visualizzazioni: 408 
Dimensione: 52.1 KB 
ID: 1662710  
    Ultima modifica di xavier sardá; 22-10-12 alle 18:23

Accedi