ciao ragazzi

facendo pulizia ho trovato un cd dove avevo salvato alcuni vecchi trading system

in particolare un ts..che non è stato modificato dal 2006 ha continuato ad avere risultati abbastanza positivi ( ha alcuni indicatori che non uso ma vedo che han dato risultati)

vedete se vi può servire

[code]

//______________________TS 850 gennaio 2006_______________________//

Var: MEDIAA,MEDIAB,MEDIAC,OP3B;

Var: MEDIAlong,MEDIAshort,MACDlong,MACDlongSIGNAL,MACDshort,MACDshortSIGNAL;

Var: DD0a,PVa,NVa,OP1a,EX0a,EX1a;

Var: STOCX,MSX;

Var: MYX,MYYX,OPYX,BBACX,HHX,MX,MMX,OAAX,M1X,MM1X,OAA1X;

Var: ATDXlong,ATDXshort;

Var: CONDIZIONIlong,CONDIZIONIshort,condizione1,condizione2;

var: media20,MioEXPSMOOTH11,pista,va3,ma; 

Var: expo9, cumpos, cumneg,totpos,totneg,cbpos1,cbneg1;

Var: indzona1(0),indzona2(0),indzona3(0);

Var: ADXA,ADXB,H1,L1,adxb;

ma=hhv(h,8);

H1=HHV(c,1);

L1=LLV(c,2);

MEDIAlong =MOV(C,22,e);

MEDIAshort =MOV(C,21,e);

MEDIAA=MOV(C,74.7,S);

MEDIAB=MOV(C,25,S);

OP3B  =OP(MEDIAB,MEDIAA,2);

MEDIAC=MOV(OP3B,2,e);

MACDlong   =MACD(C,8,49);

MACDlongSIGNAL=EXPSMOOTH(MACDlong,55);

MACDshort   =MACD(C,5,52);

MACDshortSIGNAL=EXPSMOOTH(MACDshort,75);

ATDXlong =ATR(C,5.6);

ATDXshort =ATR(C,5.5);

ADXA  =DMADX(c,45.4);

adxb  =DMADX(c,2);

PVa  =PVI(C);

NVa  =NVI(C);

OP1a =OP(PVa,NVa,mul);

EX0a =EXPSMOOTH(OP1a,5);

EX1a =EXPSMOOTH(EX0a,10);

media20 =mov(EX1a,12,e);

MioEXPSMOOTH11 =EXPSMOOTH(media20,18);

pista =pistaciclica(MioEXPSMOOTH11,46);

va3 =variaz(pista,v,prec);

expo9=ExpSmooth (EX0a, 7);

if expo9<expo9[1] then

   cumneg=cumneg+V;

   cumpos=0;

   else

   cumpos=cumpos+V;

   cumneg=0;

endif;

if cumneg=0 and cumneg[1]>=8000000 then

   totneg=1;

endif;

if totneg=1 then

   cbneg1=cbneg1+1;

endif;

if cbneg1>=20  then

condizione1=1 ;

else

condizione1=0;

endif;

if cumpos=0 and cumpos[1]>=30007000 then

   totpos=1;

endif;

if totpos=1 then

   cbpos1=cbpos1+1;

endif;

if cbpos1>=24 then

condizione2=1 ;

else

condizione2=0;

endif;

CONDIZIONIlong=( OP3B>MEDIAC AND MACDlong>MACDlongSIGNAL and barsince(adxb>adxb[1])>=4 AND MEDIAlong<C and ADXA>ADXA[1] and  EX1a>EX1a[1]);

CONDIZIONIshort=( OP3B<MEDIAC AND MACDshort<MACDshortSIGNAL and barsince(adxb<adxb[1])>=4 AND MEDIAshort>C);

    installstoploss (inperc,3.00);//3.30

 IF CONDIZIONIshort  AND ATDXshort>0.0150 and  barsince(va3<va3[1])>=3 and MACDshortSIGNAL >=-0.021 THEN

   ENTERSHORT(nextBAR,ATopen); cbpos1=0;totpos=0;totneg=0;  ENDIF;

 //if totpos=0 then

 IF  CONDIZIONIshort AND ATDXshort>0.0150 and barsince(va3<va3[1])>=3 and MACDshortSIGNAL >=-0.021  THEN

   ENTERSHORT(nextBAR,ATopen); cbpos1=0;totpos=0;totneg=0;  ENDIF; // ENDIF;

 IF CONDIZIONIlong  and ATDXlong>0.0143 and MACDlongSIGNAL <= 0.021 THEN

   ENTERLONG (nextBAR,ATopen);cbneg1=0;totpos=0;totneg=0; endif;

//if totneg=0 then

 IF CONDIZIONIlong AND ATDXlong>0.0143  and MACDlongSIGNAL<= 0.021 THEN

   ENTERLONG (nextBAR,ATopen);cbneg1=0;totpos=0;totneg=0; endif;// ENDIF;

if positiondir=-1 and barsince(c=ma)=2  then enterlong(nextbar,atopen);cbneg1=0;condizione1=0;totneg=0;endif;

IF POSITIONDIR =  1 THEN   COLORBAR(GREEN); ENDIF;

IF POSITIONDIR = -1 THEN   COLORBAR(SkyBlue);ENDIF;

[/code]