/* Done by Rajandran R */
/* Author of www.marketcalls.in */
_SECTION_BEGIN("iTrend Scalping");
SetBarsRequired(100000,0);
SetPositionSize(100,spsShares);
GraphXSpace = 15;
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("bkcolor",ColorRGB(0,0, 0)));
GfxSetBkMode(0);
GfxSetOverlayMode(1);
P1=Param("Lower Timeframe",1,1,60,1);
P2=Param("Higher Timeframe",3,1,60,1);
IPeriod=180;
TimeFrameSet( P1 * in1Minute );
imax = HHV(H,IPeriod);
imin = LLV(L,IPeriod);
ipivot = (C + Ref(C,-1) + Ref(C,-2))/3;
A1=Close-((imax + imin + ipivot)/3);
A = TimeFrameExpand( A1, P1 * in1Minute );
TimeFrameSet( P2 * in1Minute );
iMax = HHV(H,IPeriod);
iMin = LLV(L,IPeriod);
ipivot = (C + Ref(C,-1) + Ref(C,-2))/3;
B1=Close-((imax + imin + ipivot)/3);
B = TimeFrameExpand( B1, P2 * in1Minute );
iTrend = IIf(A>0 && B>0,A+B,IIf(A<0 && B<0,A+B,Null));
Color = IIf(iTrend>0,colorGreen,colorRed);
Plot(iTrend,"iTrend",Color,styleHistogram | styleThick);
_SECTION_END();