dati trimestrale in uscita ..ocio

 poca direzionalita su Fiat questo mese

ora dicono che sale da ieri per la presentazione della 500 elettrica

 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]