Raccolta di T.S. per Visual Trader

[xavier sardá]

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);

 

[xavier sardá]

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);

 

[xavier sardá]

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;

 

[Zino77]

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: ( , ;

 

[Duck Bi]

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).

 

[Zino77]

Corretto, grazie!

 

[AndreaBoh]

Molto utili grazie ma ho dei problemi con il bipolare. Che cosa può essere? :O

 

[xavier sardá]

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);

 

[AndreaBoh]

lo spazio nella variabile indzon a1

ah grazie, non l'avevo visto!

 

[xavier sardá]

TS sommavolumi intraday

//________________TS Sommavolumi intraday__________________//

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);

 

[xavier sardá]

TS Abraham Trend Indicator

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);

 

[Duck Bi]

Questo è veramente interessante( non che gli altri non lo fossero) , grazie per la condivisione.

 

[xavier sardá]

TS Hull medie

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);

 

[AndreaBoh]

io ho sentito parlare di un certo houdini eheh scherzo

 

[AndreaBoh]

è una raccolta di TS non di " Santi Graal "

è bello comunque provarci

 

[Nicolas Flamel]

è bello comunque provarci

Xavier è uno che di trading ci vive, la sua umiltà e disponibilità qui sul fol sono immense
Grazie Xavier

 

[lelle47]

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

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);

 

[lelle47]

ecco il ts a questo momento

 

[lelle47]

ovviamente un ringraziamento a Xavier per i suggerimenti sempre molto interessanti

 

[AndreaBoh]

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