{******************************************************************************
Ale73a Mod. By Hell 2009-08-17 ROC e RSI
******************************************************************************}
var: mioroc,miorsi,OPENDAY,indzona1;
InstallTrailingProfit(Inperc, 2, 1.8, "Pick",CHECKMAX +EXITONLYIFCLOSEON);
InstalltakeProfit(inperc, 5.9, "take");
installstoploss(inperc,1.5,"SL");
if IsFirstBarDay then
OPENDAY = O;
endif;
mioroc=roc(c,1);
miorsi=rsi(mioroc,3,s);
if miorsi<40 and OPENDAY<C[1]
then EnterLONG (bar, atclose, 0,0,"LG");endif;
if miorsi>60 and OPENDAY>C[1]
then EnterShort (bar, atclose, 0,0,"SH");endif;
indzona1=createviewport(100,true,true);
plotchart(miorsi,indzona1,red,solid,1);
plotchart(30,indzona1,aqua,solid,1);
plotchart(70,indzona1,aqua,solid,1);