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

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

[xavier sardá]

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;

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

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