per non incasinare metto un ts che individua la tendenza con il ragionamento dei post precedenti
ho messo 2 medie mobili..una veloce ed una lenta..così e più di facile lettura
un report da i risultati dei semplici incroci mentre l'altro filtra gli incrocia appunto monitorando la presenza del trend=differenzarange


//______________________________Esempio identificazione Tendenza__________________//
Var: fflat,lg,sh,contalg,contash,contaflat;
Var: medialenta,mediaveloce,condizionelong,condizioneshort,contalong,contashort,numerogiornilong,numerogiornishort;
Var: contalg,contash,inizioup,iniziodown,fineup,finedown,rangeribasso,rangerialzo,differenzarange,vp1,vp2,vp3;
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if positiondir=0 then fflat=1;endif;
if positiondir<>0 then fflat=0;contaflat=0;endif;
if fflat=1 and fflat[1]=1 then contaflat=(contaflat[1]+1);endif;

if positiondir=1 then lg=1;endif;
if positiondir<>1 then lg=0;contalg=0;endif;
if lg=1 and lg[1]=1 then contalg=(contalg[1]+1);endif;

if positiondir=-1 then sh=1;endif;
if positiondir<>-1 then sh=0;contash=0;endif;
if sh=1 and sh[1]=1 then contash=(contash[1]+1);endif;
/////////////////////////////////////////////////////////////////////////////
medialenta = Mov(C,65,S);
mediaveloce = Mov(C,14,S);
plotchart(medialenta, 0 , green, solid, 2);
plotchart(mediaveloce, 0 , red, solid, 2);
//////////////////////////////////////////////////////////////////////////////
if mediaveloce>medialenta then condizionelong=1;endif;
if mediaveloce<medialenta then condizionelong=0;contalong=0;endif;
if mediaveloce<medialenta then condizioneshort=1;endif;
if mediaveloce>medialenta then condizioneshort=0;contashort=0;endif;
if condizionelong=1 then contalong=contalong+1;endif;
numerogiornilong=op(contalong,34,divis);
if condizioneshort=1 then contashort=contashort+1;endif;
numerogiornishort=op(contashort,34,divis);

if condizionelong=1 and contalg<1 and numerogiornilong<0.10 then inizioup=o;endif;
if condizioneshort=1 and contash<1 and numerogiornishort<0.10 then iniziodown=o;endif;
if condizionelong=0 then fineup=o;endif;
if condizioneshort=0 then finedown=o;endif;
rangeribasso=(((iniziodown-l)/iniziodown)*100);
rangerialzo=(((h-inizioup)/inizioup)*100);
if condizionelong=1 then rangeribasso=0;endif;
if condizioneshort=1 then rangerialzo=0;endif;
differenzarange=abs(((iniziodown-inizioup)/iniziodown)*100);
if mediaveloce>medialenta {and differenzarange>1} then enterlong( nextbar,atopen);endif;

if mediaveloce<medialenta {and differenzarange>1} then entershort ( nextbar,atopen);endif;

vp1 = Createviewport(250);
Plotchart(numerogiornilong,vp1,green,solid,3);
Plotchart(numerogiornishort,vp1,red,solid,3);

vp2=Createviewport(500);
Plotchart(inizioup,vp2,green,solid,2);
Plotchart(iniziodown,vp2,red,solid,2);

vp3=Createviewport(500);
Plotchart(differenzarange,vp3,green,solid,2);