stacco per 2 settimane di vacanze
la situazione su Fiat è ancora di una chiara tendenza long con lo sviluppo del giorno 14 agosto ancora intatto e con probabile target finale in area 13.18€...dico probabile perchè non abbiamo nessuna sicurezza che si concluda...non esiste nessun indicatore,nessun pattern e nessuna tecnica che sia infallibile..anzi...più il mercato è in mano ai sistemi automatici e più aumentano le possibilita che quello che è successo in passato sul titolo non si ripeta
perciò usate sempre gli stop loss...in borsa si comprano e vendono emozioni e queste sono volubili

sempre long la tendenza su Fiat ma è logico che scattino delle prese di beneficio sul titolo dopo un +30% ottenuto in meno di 10 giorni
il ts openmese flat sino a settembre
il ts 50% in attesa che le quotazioni fuoriescano dal range di ieri

un veloce long durato 30 minuti
provo a variare la condizione..invece che farlo uscire al 1% di gain gli faccio spostare stoploss in gain

nel pomeriggio di ieri sono ripresi gli acquisti su Fiat
e di conseguenza il ts 50%..una volta superato il massimi del giorno precedente è entrato long che poi ha chiuso essendo in area eccesso 20% range mensile
il target finale del movimento 14 agosto è in area 13.18€
ts openmese flat
ts 50% flat

la tendenza è ancora saldamente long su Fiat ma siamo nella parte alta dello sviluppo % del mensile e può scattare voglia di realizzi
ampio il range della candela di ieri che probabilmente boxxera le quotazioni per oggi
sistemi flat

per ora è rientrato l'eccesso oltre il 20% stimato mensile

situazione segnali su Fiat
ts openmese flat
ts 50% flat...è uscito in apertura dal long perchè considera zona di eccesso sopra il target del 20% mensile
candela impulsiva daily del 14 agosto con il 261,8% in area 11.93€

il ts openmese chiude l'operazione a 11.31€ ed ora rimarra flat sino a settembre
il ts 50% è entrato long a 11.22€

nuova settimana in partenza
situazione segnali ts su Fiat
ts openmese long da 10.55€
ts 50% flat
la giornata del 14 agosto la più importante dell'ultimo periodo sia come attivita volumetrica che come range

Michelangelo...report del ts 50% modificato

formula ts openmese

//______________________________________Tecnica openmese____________________________//  aprile 2017 14

Var: fflat,lg,sh,contalg,contash,contaflat;  // monitoraggio situazione flat / long / short
Var: Pr_Ingr(0), Max_Gain(0), Max_Gain_perc(0), actual(0); ///_____Actual=Gain
var: meseprec9,meseprec8,cambiatogiorno,contagiornoinessere,prova;
var: prox01,prox02,prox03,prox04,prox05,prox06,percentom,percentomHL,indzona1,indzona2,indzona3;
Var: idlastop,contagain;

//////////////////////___CONTA_Situazione___///////////////////////////////////////////////

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;
/////////////////////////////////// ACTUAL /////////////////////////////////////////////////////
if Positionvalue<>0 then Pr_Ingr = positionValue;
   if Positiondir=1 then if (C>Max_Gain) or (Max_Gain=0) then  Max_Gain = C;
Max_Gain_perc = ((Max_Gain-Pr_ingr)*100)/Pr_Ingr;endif;
         Actual = ((C-Pr_ingr)*100)/Pr_Ingr;
   else
     if (C<Max_Gain) or (Max_Gain=0) then Max_Gain = C;
Max_Gain_perc = ((Pr_ingr-Max_Gain)*100)/Pr_Ingr;endif;
         Actual = ((Pr_ingr-C)*100)/Pr_Ingr;endif;
else  Pr_ingr = 0;Max_Gain = 0; Actual = 0;endif;
/////////////////////////////////////////////////////////////////////////////

cambiatogiorno = GetValues(days, 1, prova, prova, prova, prova);
if getmonth<>meseprec9 then contagiornoinessere=0;endif;
if cambiatogiorno then contagiornoinessere=contagiornoinessere+1;endif;
meseprec9=getmonth;

prox01=addperc(openm,3);
prox02=addperc(openm,-3);
{prox03=addperc(openm,10);
prox04=addperc(openm,-10);
prox05=addperc(positionvalue,7);
prox06=addperc(positionvalue,-7); }

PlotChart(openM,0, yellow, solid, 1);
PlotChart(prox01,0, white, dot, 1);
PlotChart(prox02,0, red, dot, 1);
{PlotChart(prox03,0, white, dot, 1);
PlotChart(prox04,0, red, dot, 1);
PlotChart(prox05,0, white, dot, 1);
PlotChart(prox06,0, red, dot, 1); }
DrawText(NEWOGG,0 ,D ,openm , "OpenMese=",openm , red, 13, 1+3,Alright);
DrawText(NEWOGG,0 ,D ,prox01 , "3 % sup.=",prox01 , white, 12, 1+3,Alright);
DrawText(NEWOGG,0 ,D ,prox02 , "3 % inf.=",prox02 , white, 12, 1+3,Alright);
{DrawText(NEWOGG,0 ,D ,prox03 , "7 % TP long=",prox03 , white, 12, 2+3,Alleft);
DrawText(NEWOGG,0 ,D ,prox04 , "7 % TP short=",prox04 , white, 12, 2+3,Alleft);
DrawText(NEWOGG,0 ,D ,prox05 , "7 % TP long reale=",prox05 , white, 12, 2+3,Alleft); }
////////////////////////////////////////////////////////////////////////////////////////////////

percentom=abs(((openm-c)/openm)*100);
percentomHL=abs(((HIGHM-LOWM)/highm)*100);
if c<openm then percentom=-1*percentom;endif;

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
installstoploss(inperc,3.00,"SL", STARTNEXTBAR);
plotchartNoZero(getstoploss, 0, red, solid, 2);
DrawText(NEWOGG,0 , D,getstoploss , "sl",getstoploss , red, 25, 1+4,Alright);
//InstallTakeProfit(INPERC, 7, "TP", STARTNEXTBAR);

if c>prox01  and contagain<4 and contagiornoinessere<19 and contaflat>1  then enterlong(nextbar,atopen);endif;
if positiondir=1 and contagiornoinessere>18 then exitlong(nextbar,atopen);endif;
if positiondir=1 and actual>6 then exitlong(nextbar,atopen);endif;

if c<prox02  and contagain<4 and contagiornoinessere<19 and contaflat>1  then entershort(nextbar,atopen);endif;
if positiondir=-1 and contagiornoinessere>18 then exitshort(nextbar,atopen);endif;
if positiondir=-1 and actual>6 then exitshort(nextbar,atopen);endif;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if getMonth <> meseprec8 then
   contagain = 0;
endif;
if IdLastOpClosed > idlastop then
   contagain = contagain + LastTradeClosedPerc;
endif;
idlastop = IdLastOpClosed;

meseprec8=getmonth;
///////////////////////////////////////////////////////////////////////////////////////////////////////////
indzona1=Createviewport(200, 0, true);
PlotChart(Percentom,indzona1,white,solid,2);
PlotChart(PercentomHL,indzona1,red,solid,2);

Indzona2=CreateViewport(100, 0, true);
plotchart(contagiornoinessere, indzona2,green, solid, 1 );
DrawText(NEWOGG,indzona2 ,D ,contagiornoinessere , "giorni borsistici=",contagiornoinessere , white, 10, 2+2,Alleft);

indzona3=CreateViewport(200, 0, true);
plotchart(contagain, indzona3,gray, solid, 2 );

Michelangelo...long col modificato e short che chiude ogni fine giornata

Michelangelo...hai ipotizzato una teoria...aspettare la formazione di massimi e minimi dopo i primi 15 minuti e poi entrare alla loro rottura...per lo short la teoria funziona..per il long no...la logica direbbe che le prime contrattazioni non convincono chi vuole andare long mentre chi vuole shortare non ci pensa due volte

x Michelangelo

////////////////////_______Michelangelo 17 agosto 2017__________//////////////////

Var: input1,input2,ivp;

if IsFirstBarDay then input1=H;endif;
if IsFirstBarDay then input2=L;endif;
plotchart(input1, ivp, green, solid, 2);
plotchart(input2, ivp, red, solid, 2);
///////////////////////////////////////////////
installstoploss(inperc,3.00,"SL", STARTNEXTBAR);
plotchartNoZero(getstoploss, 0, red, solid, 2);
DrawText(NEWOGG,0 , D,getstoploss , "sl",getstoploss , red, 25, 1+4,Alright);
////////////////////////////////////////////////////////////////////////////////

if c>input1 and t<1700 then enterlong( nextbar,atopen,STOP, 0,"Enter Lg 1");endif;
if positiondir=1 and t=1700 then exitlong(nextbar,atopen,STOP, 0,"Exit Lg 1");endif;

if c<input2 and t<1700 then entershort(nextbar,atopen,STOP, 0,"Enter Sh 1" );endif;
if positiondir=-1 and T=1700 then exitshort(nextbar,atopen,STOP, 0,"Exit Sh 1");endif;

situazione su Fiat
la giornata borsistica del 14 agosto la più importante dell'ultimo periodo
sembra smentito per ora il rumor del buy cinese
sotto 10.68€ la tendenza up si indebolisce
ts openmese long da 10.55€
ts 50% flat

vicino ai massimi di febbraio 2017 Fiat
13 e rotti% per ora il range mensile

Michelangelo..questa la resa a 14 anni chiudendo long e short al venerdi e ripartendo flat

situazione segnali  su Fiat
ts openmese long da 10.55€
ts 50% flat
vediamo se il rumor cinese viene confermato oppure è il solito bluff speculativo

partenza di ottava positivo per Fiat
il ts openmese chiude in stoploss lo short
il ts 50% chiude lo short di venerdi ..apre il long stamane e lo chiude con la stringa nº4

fase ancora di debolezza
ts 50% modificato short da ieri
il ts openmese entra short sotto 9.89€

continua lo scarso interesse sul titolo
il ts 50% chiude lo short aperto ieri

short da 10.10 € il ts 50% modificato
mentre la mia fiat cubo mi ha lasciato di nuovo a piedi...questa volta si è fusa la rondella finale di un iniettore...maledetto il giorno in cui decisi di comprarla...grrrrr

nulla di nuovo su Fiat
siamo al settimo giorno del mese e per ora solo un 4.80% di range mensile
volumetria debole

niente di nuovo su Fiat
sull'indice italiano invece si sta completando l'impulsiva up del  24 aprile 2017

chiude il long il ts 50% modificato
se dopo 20 candele sta guadagnando meno del 1% e quota sotto il 50% intraday considera questa operazione non favorevole

nuova ottava in partenza
fase ancora di debolezza del titolo con poca attivita volumetrica
ts openmese flat
ts 50% long da venerdi a 10.22€

anche in agosto per ora non sembra esserci eccessivo interesse sul titolo Fiat
siamo ad un 1% e rotti di distanza dall'open mese

il ts modificato ha chiuso lo short
praticamente la stringa è quella che dopo 34 candele monitorizza  nuovi minimi e massimi  e misura la bonta del segnale

è ancora attivo lo short aperto ieri su Fiat
un close a 15 minuti sopra 10.12€ lo chiude con il ts base mentre con quello modificato ci sono altre 4 condizioni che potrebbero terminarlo

situazione ultime 2 operazioni con ts 50% modificato
ho tolto i plottaggi delle aree del 10 e 20% di previsto target perchè schiacciano il grafico

michelangelo...127 mesi positivi...39 negativi...

michelangelo....la sorgente ts 50% con modifica zone di eccesso prezzi

//__________________________________________Tecnica 50%________________________// 25 luglio 2017

Var: miomax5g,miomin5g,miomax11g,miomin11g,miomax22g,miomin22g,rangemensile5g,rangemensile11g,rangemensile22g;
Var: input1,input2,mediacinquanta;
Var: newday(false), mioopen(0), miomin(0), miomax(0), mioclose(0),dvmed;
Var: wmax,wmin,wmed,DMAX,DMIN,vp1;
Var: fflat,lg,sh,contalg,contash,contaflat,rapportosegnalepositivoup,contanuovimassimi,contanuoviminimi,rapportosegnalepositivodown;
Var: Pr_Ingr(0), Max_Gain(0), Max_Gain_perc(0), Gain(0),condizioneA,condizioneB,ivp;
Var: condizionenolong,condizionenoshort;
Var: contalongsi,contalongno,contashortsi,contashortno,vp2,vp3;
Var: formulaprimariaup,formulaprimariadown,codiceup,codiceup1,dayafter,tp1up,tp1down;
Var: formulaprimariaup1,formulaprimariadown1,codiceup2,codiceup3,tp1up1,tp1down1;
Var: indzona1,indzona2,meseprec,meseprec8,meseprec9;
Var: rangeminimi,rangemassimi,percentualemese,indzona3;
Var: meseprec9,contatp1up,contatp1down,indzona4,indzona5,indzona6;
Var: cambiatogiorno,prova,contagiornoinessere,averagecontaup,averagecontadown;
Var: miomax5g,miomin5g,miomax11g,miomin11g,miomax22g,miomin22g;

miomax5g = HHV (H, 187);
miomin5g = LLV (L, 187);

miomax11g = HHV (H, 374);
miomin11g = LLV (L, 374);

miomax22g = HHV (H, 748);
miomin22g = LLV (L, 748);

rangemensile5g=(((miomax5g-miomin5g)/miomin5g)*100);
rangemensile11g=(((miomax11g-miomin11g)/miomin11g)*100);
rangemensile22g=(((miomax22g-miomin22g)/miomin22g)*100);

if rangemensile5g<10 and miomax5g>miomax5g[136] and miomin5g=miomin5g[136] then condizionenoshort=1;else condizionenoshort=0;endif;
if rangemensile5g<10 and miomax5g=miomax5g[136] and miomin5g<miomin5g[136] then condizionenolong=1;else condizionenolong=0;endif;
//////////////////////////////////////////////////////////////////////////////////////////////////
formulaPrimariaup=openm+(openm/100)*20;
formulaPrimariadown=openm-(openm/100)*20;
codiceup=op(formulaprimariaup,openm,sub);
codiceup1=op(codiceup,22,divis);

formulaPrimariaup1=openm+(openm/100)*10;
formulaPrimariadown1=openm-(openm/100)*10;
codiceup2=op(formulaprimariaup1,openm,sub);
codiceup3=op(codiceup2,22,divis);

if  getday<>dayafter and IsFirstBarDay then tp1up=tp1up+codiceup1;endif;
if  getday<>dayafter and IsFirstBarDay then tp1down=tp1down-codiceup1;endif;


if getmonth<>meseprec then tp1up=openm;endif;
if getmonth<>meseprec then tp1down=openm;endif;

/////////////////////////////////////////////////////////////////////////////////////////////////////
if  getday<>dayafter and IsFirstBarDay then tp1up1=tp1up1+codiceup3;endif;
if  getday<>dayafter and IsFirstBarDay then tp1down1=tp1down1-codiceup3;endif;
dayafter=getday;

if getmonth<>meseprec then tp1up1=openm;endif;
if getmonth<>meseprec then tp1down1=openm;endif;
meseprec=getmonth;

if c>tp1up1 then contatp1up=contatp1up+1;endif;
if c<tp1down1 then contatp1down=contatp1down+1;endif;
if getmonth<>meseprec8 then contatp1up=0;endif;
if getmonth<>meseprec8 then contatp1down=0;endif;
meseprec8=getmonth;

PlotChart(tp1up,0,blue,solid,2);
PlotChart(tp1down,0,red,solid,2);
PlotChart(openm,0,gray,solid,2);
//PlotChart(c,indzona1,black,solid,2);
PlotChart(tp1up1,0,blue,solid,1);
PlotChart(tp1down1,0,red,solid,1);
DrawText(NEWOGG,0 , D,tp1up , "+20% mese",tp1up , white, 10, 1+4,Alleft);
DrawText(NEWOGG,0 , D,tp1up1 , "+10% mese",tp1up1 , red, 10, 1+4,Alleft);
DrawText(NEWOGG,0 , D,tp1down , "-20% mese",tp1down , yellow, 10, 1+4,Alleft);
DrawText(NEWOGG,0, D,tp1down1 , "-10% mese",tp1down1 , green, 10, 1+4,Alleft);
DrawText(NEWOGG,0, D,openm , "open mese",openm , green, 12, 1+4,Alleft);
/////////////////////////////////////////////////////////////////////////////////////////////////////
if IsFirstBarDay then input1=H;endif;
if IsFirstBarDay then input2=L;endif;
plotchart(input1, ivp, green, solid, 2);
plotchart(input2, ivp, red, solid, 2);

newday=GetValues(days,1,mioopen,miomin,miomax,mioclose);

dvmed= miomin+(50*(miomax-miomin))/100;


if isfirstbarday then
   WMAX=H;
   WMIN=L;
   else
   WMAX=iif(H>=WMAX[1],H,WMAX[1]);
   WMIN=iif(L<=WMIN[1],L,WMIN[1]);
   WMED=wmax-(wmax-wmin)*0.5;
endif;

PlotChart(WMED,0, gray, dot, 1);
Plotchart(dvmed,0,blue,solid,1);
DrawText(NEWOGG,0 , D,wmed , "50% intraday",wmed , red, 12, 2+2,Alright);
DrawText(NEWOGG,0 , D,dvmed , "50% ieri",dvmed , white, 14, 3+2,Alleft);
mediacinquanta=(dvmed+wmed)/2;
//////////////////////___CONTA_Situazione___///////////////////////////////////////////////

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;

if positiondir=1 and wmax>wmax[1] then contanuovimassimi=contanuovimassimi+1;endif;
if positiondir=1 and wmin<wmin[1] then contanuoviminimi=contanuoviminimi+1;endif;
if positiondir=-1 and wmin<wmin[1] then contanuoviminimi=contanuoviminimi+1;endif;
if positiondir=-1 and wmax>wmax[1] then contanuovimassimi=contanuovimassimi+1;endif;
if isfirstbarday and positiondir=1 then contanuovimassimi=contanuovimassimi+1;endif;
if isfirstbarday and positiondir=1 then contanuoviminimi=contanuoviminimi+1;endif;
if isfirstbarday and positiondir=-1 then contanuovimassimi=contanuovimassimi+1;endif;
if isfirstbarday and positiondir=-1 then contanuoviminimi=contanuoviminimi+1;endif;
if positiondir=0 then contanuovimassimi=0;endif;
if positiondir=0 then contanuoviminimi=0;endif;
rapportosegnalepositivoup=op(contanuovimassimi,contanuoviminimi,divis);
rapportosegnalepositivodown=op(contanuoviminimi,contanuovimassimi,divis);
//////////////////////////////////////////////////////////////////////////////////////////////
if getmonth<>meseprec9 then contagiornoinessere=0;endif;

meseprec9=getmonth;
cambiatogiorno = GetValues(days, 1, prova, prova, prova, prova);
if cambiatogiorno then contagiornoinessere=contagiornoinessere+1;endif;

/////////////////////////////////// Gain /////////////////////////////////////////////////////
if Positionvalue<>0 then
   Pr_Ingr = positionValue;
   if Positiondir=1 then
      if (C>Max_Gain) or (Max_Gain=0) then
         Max_Gain = C;
Max_Gain_perc = ((Max_Gain-Pr_ingr)*100)/Pr_Ingr;
      endif;
      Gain = ((C-Pr_ingr)*100)/Pr_Ingr;
   else
     if (C<Max_Gain) or (Max_Gain=0) then
Max_Gain = C;
Max_Gain_perc = ((Pr_ingr-Max_Gain)*100)/Pr_Ingr;
       endif;
       Gain = ((Pr_ingr-C)*100)/Pr_Ingr;
   endif;
else
    Pr_ingr = 0;
Max_Gain = 0;
Gain = 0;
endif;

/////////////////////////////////////////////////////////////////////////////
if (LastTradeClosedPerc > 3.00) and contaflat<90  and lastopclosed=1 then condizioneA=1;else condizioneA=0;endif;
if (LastTradeClosedPerc > 3.00) and contaflat<90  and lastopclosed=3 then condizioneB=1;else condizioneB=0;endif;
////////////////////////////////////////////////////////////////////////////////////////////////
if positiondir=1 and gain>0 then contalongsi=contalongsi+1;endif;
if positiondir=1 and gain<0 then contalongno=contalongno+1;endif;
if positiondir=-1 and gain>0 then contashortsi=contashortsi+1;endif;
if positiondir=-1 and gain<0 then contashortno=contashortno+1;endif;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
installstoploss(inperc,3.00,"SL", STARTNEXTBAR);
plotchartNoZero(getstoploss, 0, red, solid, 2);
DrawText(NEWOGG,0 , D,getstoploss , "sl",getstoploss , red, 25, 1+4,Alright);
//////////////////////////////////////////____________LONG___________________/////////////////////////////////////////////////////////
if  c>highd(1)
and GetNumOpEnterLongToday=0 //and c>openm
and c>input1 //migliora un 100% a 14 anni
and condizioneB=0 // migliora un 25% a 14 anni
then enterlong( nextbar,atopen);endif;
/////////////////////  Exit Long  ///////////////////////////////////////////////////////////////////////////////////////////
if positiondir=1 and gain>1 and c>tp1up and contagiornoinessere>3 then exitlong(nextbar,atopen,STOP, 0,"Exit Long 5");endif;
if positiondir=1 and contalg>20 and gain<1.00 and c<wmed then exitlong(nextbar,atopen);endif;
if positiondir=1 and c<dvmed then exitlong(nextbar,atopen);endif;
if positiondir=1 and contalg>34 and rapportosegnalepositivoup<8 then exitlong(nextbar,atopen);endif; // migliora un 80% a 14 anni...meno tempo a mercato
if positiondir=1 and gain>2 and rangemensile22g<12 then exitlong(nextbar,atopen);endif;// non da fastidio

//////////////////////////////////////////____________SHORT___________________/////////////////////////////////////////////////////////
if   c<lowd(1)
and GetNumOpEntershortToday=0  //and c<openm
and c<input2 // migliora un 100% a 14 anni
and condizioneA=0 // migliora un 25% a 14 anni
then entershort( nextbar,atopen);endif;
////////////////////  Exit Short  ////////////////////////////////////////////////////////////////////////////////////////////
if positiondir=-1 and gain>1.0 and c<tp1down and contagiornoinessere>3 then exitshort(nextbar,atopen);endif;
if positiondir=-1 and contash>20 and gain<1.00 and c>wmed then exitshort(nextbar,atopen);endif;
if positiondir=-1 and c>dvmed then exitshort(nextbar,atopen);endif;
if positiondir=-1 and contash>34 and rapportosegnalepositivodown<8 then exitshort(nextbar,atopen);endif;  // migliora un 80% a 14 anni...meno tempo a mercato
if positiondir=-1 and gain>2 and rangemensile22g<12 then exitshort(nextbar,atopen);endif;//non da fastidio

vp1 = Createviewport(150);
Plotchart(Max_Gain_perc,vp1,red,solid,2);
Plotchart(Gain,vp1,green,solid,2);

vp2=Createviewport(200);
PlotChart(contagiornoinessere,vp2,green,solid,2);

esempio ultimi 3 mesi su Fiat
le 4 linee a forma di scala individuano ogni giorno un prezzo medio calcolando dall'openmese uno sviluppo del titolo del 10 % ( linea tratteggiata più fine) e del 20%( linea più spessa) al rialzo ed al ribasso
prezzi all'esterno delle 2 linee del 20% vengono  tenuti da conto come eccessi  e perciò il sistema taglia le esposizioni più velocemente

ho inserito un altra modifica tenendo da conto l'informazione del ts openmese sul range mensile medio
per il long
if positiondir=1 and gain>1 and c>tp1up and contagiornoinessere>3 then exitlong(nextbar,atopen);endif;
per lo short
if positiondir=-1 and gain>1.0 and c<tp1down and contagiornoinessere>3 then exitshort(nextbar,atopen);endif;

 ..ad esempio per il long...se le quotazioni dopo il 3 giorno del mese borsistico sono superiori alla media del 20% rapportata ogni giorno ed in guadagno del 1% chiude il long
praticamente il sistema individua questa zona come area di eccesso e chiude la posizione
sotto report ed un esempio

questo invece è il ts 50% modificato

per il long:

if  c>highd(1) and GetNumOpEnterLongToday=0 and c>input1 and condizioneB=0
then enterlong( nextbar,atopen);endif;

che tradotto significa:
se il close è maggiore dei massimi del giorno precedente e se è la prima operazione long di oggi e
se il close è maggiore dei massimi della prima candela a 15 minuti di oggi e se son passate 90 candele dall'ultima operazione short conclusa con una resa superiore al 3% allora entra long

exit long:
if positiondir=1 and c<dvmed then exitlong(nextbar,atopen);endif;
if positiondir=1 and contalg>20 and gain<1.00 and c<wmed then exitlong(nextbar,atopen);endif;
if positiondir=1 and contalg>34 and rapportosegnalepositivoup<8 then exitlong(nextbar,atopen);endif;
if positiondir=1 and gain>2 and rangemensile22g<12 then exitlong(nextbar,atopen);endif;

son 4 uscite e tradotte significano:
se siamo long ed il close è inferiore al 50% di ieri usciamo
se siamo long e da più di 20 candele e stiamo guadagnando meno del 1% ed il close è inferiore al 50% di oggi allora usciamo
se siamo long e da più di 34 candele e il rapporto tra il conteggio dei nuovi massimi e nuovi minimi è inferiore a 8 allora usciamo
se siamo long e stiamo guadagnando + del 2% ed il rangemensile degli ultimi 22 giorni è inferiore a 12 allora usciamo

viceversa per lo short

queste sono le condizioni per il long e lo short del ts base 50% ed il report degli ultimi 14 anni

long:
if  c<dvsup and c>highd(1) and GetNumOpEnterLongToday=0  then enterlong( nextbar,atopen);endif;
tradotto significa
se la chiusura ( a 15 minuti ) è inferiore al 261.8% del giorno precedente e la chiusura è maggiore dei massimi del giorno precedente ed è la 1ª operazione long del giorno allora entra long

exitlong:
if positiondir=1 and c<dvmed then exitlong(nextbar,atopen);endif;
tradotto significa
se sei long e la chiusura è inferiore al 50% del giorno precedente allora esci dal long

viceversa per lo short

if  c>dvinf and c<lowd(1)  and GetNumOpEntershortToday=0  then entershort( nextbar,atopen);endif;
if positiondir=-1 and c>dvmed then exitshort(nextbar,atopen);endif;