Raccolta di T.S. per Visual Trader

  • Ecco la 60° Edizione del settimanale "Le opportunità di Borsa" dedicato ai consulenti finanziari ed esperti di borsa.

    Questa settimana abbiamo assistito a nuovi record assoluti in Europa e a Wall Street. Il tutto, dopo una ottava che ha visto il susseguirsi di riunioni di banche centrali. Lunedì la Bank of Japan (BoJ) ha alzato i tassi per la prima volta dal 2007, mettendo fine all’era del costo del denaro negativo e al controllo della curva dei rendimenti. Mercoledì la Federal Reserve (Fed) ha confermato i tassi nel range 5,25%-5,50%, mentre i “dots”, le proiezioni dei funzionari sul costo del denaro, indicano sempre tre tagli nel corso del 2024. Il Fomc ha anche discusso in merito ad un possibile rallentamento del ritmo di riduzione del portafoglio titoli. Ieri la Bank of England (BoE) ha lasciato i tassi di interesse invariati al 5,25%. Per continuare a leggere visita il link

xavier sardá

Nuovo Utente
Registrato
2/6/08
Messaggi
13.358
Punti reazioni
886
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,sHigh,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);
 

Allegati

  • ScreenShot025.png
    ScreenShot025.png
    73,3 KB · Visite: 677
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,sLow,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,sHigh,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);
 

Allegati

  • ScreenShot026.png
    ScreenShot026.png
    66,8 KB · Visite: 397
ts bipolare
estrae ottimizzazione movimento direzionale

//____________________________Bipolare______________________//

Var: pdx14,ndx14,op1,op2,op3,op4,adx14,indzona1,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;
 

Allegati

  • ScreenShot027.png
    ScreenShot027.png
    64,6 KB · Visite: 454
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: ( , ;
 
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:
OK!
Corretto, grazie!
 
Molto utili grazie ma ho dei problemi con il bipolare. Che cosa può essere? :O
 

Allegati

  • Immagine1212.png
    Immagine1212.png
    52,9 KB · Visite: 400
TS Ravi_Fisher


//___________________________________ RAVI__Fisher______________________________//


Var: fast(40),slow(300);
Var: ATRFast,ATRSlow,cv3,TP_a,TP_b,Typical_Price,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);
 

Allegati

  • ScreenShot029.png
    ScreenShot029.png
    78,4 KB · Visite: 481
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);
 

Allegati

  • ScreenShot031.png
    ScreenShot031.png
    52,1 KB · Visite: 486
Ultima modifica:
TS Abraham Trend Indicator

Codice:
Var: ATRMult(3),ATRLen(9),HClose, LClose, Value2,Value1,MediaATR,MioATR,colore;

MioATR=atr(C, ATRLen);
MediaATR= Mov(MioATR,ATRLen,S);
Value1=ATRMult * MediaATR;

if IsFirstBarBegin then
   HClose=Close;
   LClose=Close;
   Value2= HClose - Value1;
endif;

IF CLOSE > HClose THEN
   HClose = CLOSE;
ENDIF;

IF CLOSE < LClose THEN
   LClose = CLOSE;
ENDIF;


IF CLOSE <= Value2 THEN
   Value2= LClose + Value1;
   HClose=CLOSE;
ELSE
    Value2=HClose - Value1;
    LClose=CLOSE;
ENDIF;
if c > value2  then
colore= green;endif;
if c < value2  then
colore= red;endif;

if c>value2 then colorbar(colore); else colorbar(colore); endif;
PlotChart(Value2, 0, Blue, solid, 2);
 

Allegati

  • ScreenShot033.png
    ScreenShot033.png
    67,9 KB · Visite: 263
Questo è veramente interessante( non che gli altri non lo fossero) , grazie per la condivisione.OK!
 
Ultima modifica:
TS Hull medie

Codice:
var:P(17);

Var:demip,temp,racineP,mmhull,colore;

Var:demipp;


demiP=round(p/2,0);


temp=op(op(mov(c,demip,a),constval(2),mul),mov(c,p,a),sub);

racinep=round(sqrt(p),0);

mmhull=mov(temp,racinep,a);

if mmhull > mmhull[1] then
colore = green;
else
colore = red;
endif;



plotchart(mmhull,0,colore,solid,2);
 

Allegati

  • ScreenShot045.png
    ScreenShot045.png
    55,7 KB · Visite: 252
io ho sentito parlare di un certo houdini :rolleyes: eheh scherzo :)
 
Ts "sommatoria"

un mio piccolo contributo con un ts pronto ed utilizzabile su Fiat
equity molto, ma molto interessante
timeframe 5giorni + 1 minuto
invito tutti voi a migliorare la sua equity
Codice:
Var: mioosc,mioosc1,mioosc2,colore;
var: myequity, mediaeq, condLong, condShort, myeqopclosed,zona_s;
Var: indzona1,indzona2,indzona3;

if IsFirstBarDay then
  mioosc = 0;
  mioosc1 = 0;
  mioosc2 = 0;
endif;

myeqopclosed = getReport(EQOPCLOSED);
myequity = getReport(TOTNETPROFIT); // Estraggo il valore di equity attuale
mediaeq = MOV(myequity, 30, S);  // Faccio la media dell'equity


mioosc =SumIncDaily (C);    //Sommatoria close
mioosc1 = SumIncDaily (H);   //Sommatoria high
mioosc2 = SumIncDaily (L);   //Sommatoria low


installstoplossandreverse( intick,10,stop);


if barsince (mioosc > mioosc[1]) > 2 and barsince (mioosc1 > mioosc1[1]) > 2 and barsince (mioosc2 > mioosc2[1]) > 2
and mioosc < 0 and mioosc1 < 0 and mioosc2 < 0
then enterlong(nextbar,atopen);colore = green;endif;
if barsince (mioosc < mioosc[1]) > 2 and barsince (mioosc1 < mioosc1[1]) > 2 and barsince (mioosc2 < mioosc2[1]) > 2
and mioosc > 0 and mioosc1 > 0 and mioosc2 > 0
then entershort(nextbar,atopen);colore = red;endif;

colorbar(colore);
{indzona1 = Createviewport(200);
indzona2 = Createviewport(200);
indzona3 = Createviewport(200);

PlotChart(mioosc,indzona1,black,solid,2);
PlotChart(mioosc1,indzona2,green,solid,2);
PlotChart(mioosc2,indzona3,red,solid,2);

DrawText(NEWOGG,indzona1 , D,mioosc , "s.C.",mioosc, black, 15, 1+4,Alright);
DrawText(NEWOGG,indzona2 , D,mioosc1 , "s.H.",mioosc1, black, 15, 1+4,Alright);
DrawText(NEWOGG,indzona3 , D,mioosc2 , "s.L.",mioosc2, black, 15, 1+4,Alright);}


zona_s = CreateViewport(400, 0, true);
// disegno l'equity e la sua media
plotchartNoZero(myequity, zona_s, lime, solid, 2);
plotchartNoZero(mediaeq, zona_s, red, solid, 2);
//plotchartNoZero(myeqopclosed, zona_s, black, solid, 3);

DrawText(NEWOGG,zona_s , D,myequity , "EQ",myequity, black, 15, 1+4,Alright);
 
ecco il ts a questo momento
 

Allegati

  • SOMMATORIA.JPG
    SOMMATORIA.JPG
    140,6 KB · Visite: 298
ovviamente un ringraziamento a Xavier per i suggerimenti sempre molto interessanti
 
Xavier è uno che di trading ci vive, la sua umiltà e disponibilità qui sul fol sono immense
Grazie Xavier

Si ho cercato i suoi messaggi sul forum e l'ho capito subito :) infatti la mia era una "provocazione" proprio per sottolinearne la bravura ;)
 
Indietro