Help Required

sramrutia · Dec 25, 2014

Hello ,
Here,s how you can get HHV-LLV for selected time periods

below code will give you First session HHV-LLV [ 9:15 TO 9:45 ] timing are adjustable

copy and use for plotting 2nd ,3rd ,4th sessions

Hope this will be useful

//=========================================
_SECTION_BEGIN("1 session");
tn = TimeNum();
marketstart=ParamTime( "Market Start 1","9:15" );
etime1 = ParamTime( "End Time 1 ", "9:45" );
cond1 = (tn >= marketstart AND tn <= etime1) ;
firstBar1 = cond1 ;
firstBar1 = firstBar1- Ref( firstBar1, -1 );
xH1 = ValueWhen( cond1, HighestSince( firstBar1, High ) );
xL1 = ValueWhen( cond1, LowestSince( firstBar1, Low ) );
DH1 = TimeFrameCompress( xH1, inDaily, compressLast );
DL1 = TimeFrameCompress( xL1, inDaily, compressLast );
DH1 = TimeFrameExpand( DH1, inDaily, expandFirst );
DL1 = TimeFrameExpand( DL1, inDaily, expandFirst );
dh1a=IIf( cond1 , DH1, Null );
dl1a=IIf( cond1 , DL1, Null );
dh1b=IIf( tn >= etime1 , DH1, Null );
dl1b=IIf( tn >= etime1 , DL1, Null );
Plot( dh1a, "",colorPaleGreen,styleDashed);
Plot( dl1a, "",colorOrange,styleDashed);
Plot( dh1b, "",colorPaleGreen,styleLine);
Plot( dl1b, "",colorOrange,styleLine);
PlotOHLC(dh1a,dh1a,dl1a,dl1a,"",39,styleCloud|stylenolabel,0,0,0,-5);
_SECTION_END();

Plot(C,"",1,132);
nday = IIf(Day()!=Ref(Day(),-1),1,0);
Plot(nday,"",47,styleHistogram|styleDashed|styleNoLabel|styleOwnScale,0,1);

SetChartOptions( 0, chartShowDates );
strWeekday = StrMid("SunMonTueWedThuFriSat", SelectedValue(DayOfWeek())*3,3);
Title = EncodeColor(colorWhite)+ "_ Sessions : " + Name() + " # " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" _ "+strWeekday +" _ "+ " # " + Date() + EncodeColor(colorLime) + StrFormat("\nO %g, H %g, L %g, C %g, V %g ", O, H, L, C, V )
+ EncodeColor(9) +
"\nMkt Start Time : "+ marketstart +
EncodeColor(13) +
"\n1st Session Ends : "+ etime1+
"\n1st HHV : "+ dh1b+ " # " +"1st LLV : "+ dL1b;

//=======================================

thank u verymuch sir, but by copying for other timings lines drawn is not shown . also buy sell aerrow is not comming. pl help.

sramrutia · Dec 25, 2014

// intraday 15 min timeframe buy sell signal. working good with nifty stocks.

_SECTION_BEGIN("visual arrow ema cross over");
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( Close, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
Cond1= C>O AND( Ref(C,-1)>Ref(O,-1));
Cond2=C<O AND (Ref(C,-1)<Ref(O,-1));
Cond3=H<Ref(H,-1);
Cond4=H>Ref(H,-1);

Buy= Cond1 AND Cond4;
Sell= Cond2 AND Cond3;

Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

_SECTION_BEGIN("Magnified Market Price");
FS=Param("Font Size",30,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorLightOrange) );
Hor=Param("Horizontal Position",373,1,1200,1);
Ver=Param("Vertical Position",45,1,830,1);
GfxTextOut(""+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Times New Roman", 11, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor("Color",colorBlack) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );

_SECTION_END();

PlotShapes(IIf(Sell==1, shapeDownArrow, shapeNone), colorRed, 0,High, Offset=-20);
PlotShapes(IIf(Buy==1, shapeUpArrow , shapeNone), colorGreen, 0,Low, Offset=-20);

Plot( MA( C,3), "3 MA Close",ParamColor("MA 3 Color", colorGreen ),styleNoRescale);
Plot( MA( C,6), "6 MA Close",ParamColor("MA 6 Color", colorRed ),styleNoRescale);
_SECTION_END();

sr114 · Dec 25, 2014

Screen Shots
with buy sell

Code:

// Intraday Statregy - Half Hourly Hilo - Subroto

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),ParamColor("Inner panel lower",colorBlack));
_SECTION_END();

_SECTION_BEGIN("Parameters");
Today = LastValue(Day());
Showhilo = ParamToggle("Show Day's Hi Lo", "No|Yes");
Showshapes = ParamToggle("Show Shapes", "No|Yes");

_SECTION_END();

_SECTION_BEGIN("Parameters");
HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);

if (Showhilo )
{
Plot(IIf(Today == Day(),HiDay ,Null),"",colorRed,styleDashed,styleOwnScale); 
Plot(IIf(Today == Day(),LoDay ,Null),"",colorBrightGreen,styleDashed,styleOwnScale); 
}

HiHrly = TimeFrameGetPrice("H", in15Minute*2);
LoHrly = TimeFrameGetPrice("L", in15Minute*2);

Plot(IIf(Today == Day(),HiHrly ,Null),"",colorRed,styleDashed); 
Plot(IIf(Today == Day(),LoHrly ,Null),"",colorGreen,styleDashed); 

if (Showshapes )
{
PlotShapes(IIf(Today == Day(),shapeSmallCircle*(H==HiHrly),Null),colorPaleGreen,0,H,20);
PlotShapes(IIf(Today == Day(),shapeSmallCircle*(L==LoHrly),Null),colorGold,0,L,-20);
}

Plot( C, "Close", colorDefault, styleBar| styleThick );


nday = Day()!=Ref(Day(),-1);
Plot(nday,"",47,styleHistogram|styleDashed|styleNoLabel|styleOwnScale,0,1);

_SECTION_END();

_SECTION_BEGIN("Calc");

Buy =  Short  = Null; 

Buy = C > Ref(hihrly,-1) ; 
Short=  C <  Ref(lohrly, -1) ; 


Buy=ExRem(Buy,Short); 
Short=ExRem(Short,Buy);

PlotShapes( IIf( Buy, shapeUpArrow, shapeNone ), 43, layer = 0,yposition = Low, offset = -20);
PlotShapes( IIf( Short, shapeDownArrow, shapeNone ), colorYellow, layer = 0, yposition = High, offset = -20); //shapeSmallCircle
  
_SECTION_END();

_SECTION_BEGIN("Title");

GraphXSpace =10;


Title = 
EncodeColor(colorBrightGreen)+ "Daily 30 min Hilo" + " | " + Name() + " | " + EncodeColor(colorBrightGreen)+ Interval(2) +"|"+
EncodeColor(colorBrightGreen) + " | " + Date() +" | "
+EncodeColor(colorBrightGreen) + "\n\nDay's Range = Rs." + EncodeColor(colorBrightGreen) + StrToNum(NumToStr((HiDay - LoDay), 1.2))+ "\n"+
EncodeColor(colorWhite) + "Today's Hi =  Rs." + EncodeColor(colorWhite) + Hiday + "\n" +
EncodeColor(colorWhite) + "Today's Lo =  Rs." + EncodeColor(colorWhite) + Loday + "\n" + "\n"+

EncodeColor(colorBrightGreen) + "Half Hrly Range = Rs." + EncodeColor(colorBrightGreen) + StrToNum(NumToStr((Hihrly - Lohrly), 1.2))+"\n"+
EncodeColor(colorWhite) + "30 min Hi = Rs." + EncodeColor(colorWhite) + HiHrly + "\n" +
EncodeColor(colorWhite) + "30 min Lo = Rs." + EncodeColor(colorWhite) + LoHrly + "\n" +"\n";

_SECTION_END();

rgds

sramrutia · Dec 26, 2014

sr114 said:

Screen Shots
with buy sell

Code:

// Intraday Statregy - Half Hourly Hilo - Subroto

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),ParamColor("Inner panel lower",colorBlack));
_SECTION_END();

_SECTION_BEGIN("Parameters");
Today = LastValue(Day());
Showhilo = ParamToggle("Show Day's Hi Lo", "No|Yes");
Showshapes = ParamToggle("Show Shapes", "No|Yes");

_SECTION_END();

_SECTION_BEGIN("Parameters");
HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);

if (Showhilo )
{
Plot(IIf(Today == Day(),HiDay ,Null),"",colorRed,styleDashed,styleOwnScale); 
Plot(IIf(Today == Day(),LoDay ,Null),"",colorBrightGreen,styleDashed,styleOwnScale); 
}

HiHrly = TimeFrameGetPrice("H", in15Minute*2);
LoHrly = TimeFrameGetPrice("L", in15Minute*2);

Plot(IIf(Today == Day(),HiHrly ,Null),"",colorRed,styleDashed); 
Plot(IIf(Today == Day(),LoHrly ,Null),"",colorGreen,styleDashed); 

if (Showshapes )
{
PlotShapes(IIf(Today == Day(),shapeSmallCircle*(H==HiHrly),Null),colorPaleGreen,0,H,20);
PlotShapes(IIf(Today == Day(),shapeSmallCircle*(L==LoHrly),Null),colorGold,0,L,-20);
}

Plot( C, "Close", colorDefault, styleBar| styleThick );


nday = Day()!=Ref(Day(),-1);
Plot(nday,"",47,styleHistogram|styleDashed|styleNoLabel|styleOwnScale,0,1);

_SECTION_END();

_SECTION_BEGIN("Calc");

Buy =  Short  = Null; 

Buy = C > Ref(hihrly,-1) ; 
Short=  C <  Ref(lohrly, -1) ; 


Buy=ExRem(Buy,Short); 
Short=ExRem(Short,Buy);

PlotShapes( IIf( Buy, shapeUpArrow, shapeNone ), 43, layer = 0,yposition = Low, offset = -20);
PlotShapes( IIf( Short, shapeDownArrow, shapeNone ), colorYellow, layer = 0, yposition = High, offset = -20); //shapeSmallCircle
  
_SECTION_END();

_SECTION_BEGIN("Title");

GraphXSpace =10;


Title = 
EncodeColor(colorBrightGreen)+ "Daily 30 min Hilo" + " | " + Name() + " | " + EncodeColor(colorBrightGreen)+ Interval(2) +"|"+
EncodeColor(colorBrightGreen) + " | " + Date() +" | "
+EncodeColor(colorBrightGreen) + "\n\nDay's Range = Rs." + EncodeColor(colorBrightGreen) + StrToNum(NumToStr((HiDay - LoDay), 1.2))+ "\n"+
EncodeColor(colorWhite) + "Today's Hi =  Rs." + EncodeColor(colorWhite) + Hiday + "\n" +
EncodeColor(colorWhite) + "Today's Lo =  Rs." + EncodeColor(colorWhite) + Loday + "\n" + "\n"+

EncodeColor(colorBrightGreen) + "Half Hrly Range = Rs." + EncodeColor(colorBrightGreen) + StrToNum(NumToStr((Hihrly - Lohrly), 1.2))+"\n"+
EncodeColor(colorWhite) + "30 min Hi = Rs." + EncodeColor(colorWhite) + HiHrly + "\n" +
EncodeColor(colorWhite) + "30 min Lo = Rs." + EncodeColor(colorWhite) + LoHrly + "\n" +"\n";

_SECTION_END();

rgds

thank u sir,
suggessions wellcome for buy sell signal or modification for intraday .

sramrutia · Dec 27, 2014

sr114 said:

Screen Shots
with buy sell

Code:

// Intraday Statregy - Half Hourly Hilo - Subroto

_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),ParamColor("Inner panel lower",colorBlack));
_SECTION_END();

_SECTION_BEGIN("Parameters");
Today = LastValue(Day());
Showhilo = ParamToggle("Show Day's Hi Lo", "No|Yes");
Showshapes = ParamToggle("Show Shapes", "No|Yes");

_SECTION_END();

_SECTION_BEGIN("Parameters");
HiDay = TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L", inDaily);

if (Showhilo )
{
Plot(IIf(Today == Day(),HiDay ,Null),"",colorRed,styleDashed,styleOwnScale); 
Plot(IIf(Today == Day(),LoDay ,Null),"",colorBrightGreen,styleDashed,styleOwnScale); 
}

HiHrly = TimeFrameGetPrice("H", in15Minute*2);
LoHrly = TimeFrameGetPrice("L", in15Minute*2);

Plot(IIf(Today == Day(),HiHrly ,Null),"",colorRed,styleDashed); 
Plot(IIf(Today == Day(),LoHrly ,Null),"",colorGreen,styleDashed); 

if (Showshapes )
{
PlotShapes(IIf(Today == Day(),shapeSmallCircle*(H==HiHrly),Null),colorPaleGreen,0,H,20);
PlotShapes(IIf(Today == Day(),shapeSmallCircle*(L==LoHrly),Null),colorGold,0,L,-20);
}

Plot( C, "Close", colorDefault, styleBar| styleThick );


nday = Day()!=Ref(Day(),-1);
Plot(nday,"",47,styleHistogram|styleDashed|styleNoLabel|styleOwnScale,0,1);

_SECTION_END();

_SECTION_BEGIN("Calc");

Buy =  Short  = Null; 

Buy = C > Ref(hihrly,-1) ; 
Short=  C <  Ref(lohrly, -1) ; 


Buy=ExRem(Buy,Short); 
Short=ExRem(Short,Buy);

PlotShapes( IIf( Buy, shapeUpArrow, shapeNone ), 43, layer = 0,yposition = Low, offset = -20);
PlotShapes( IIf( Short, shapeDownArrow, shapeNone ), colorYellow, layer = 0, yposition = High, offset = -20); //shapeSmallCircle
  
_SECTION_END();

_SECTION_BEGIN("Title");

GraphXSpace =10;


Title = 
EncodeColor(colorBrightGreen)+ "Daily 30 min Hilo" + " | " + Name() + " | " + EncodeColor(colorBrightGreen)+ Interval(2) +"|"+
EncodeColor(colorBrightGreen) + " | " + Date() +" | "
+EncodeColor(colorBrightGreen) + "\n\nDay's Range = Rs." + EncodeColor(colorBrightGreen) + StrToNum(NumToStr((HiDay - LoDay), 1.2))+ "\n"+
EncodeColor(colorWhite) + "Today's Hi =  Rs." + EncodeColor(colorWhite) + Hiday + "\n" +
EncodeColor(colorWhite) + "Today's Lo =  Rs." + EncodeColor(colorWhite) + Loday + "\n" + "\n"+

EncodeColor(colorBrightGreen) + "Half Hrly Range = Rs." + EncodeColor(colorBrightGreen) + StrToNum(NumToStr((Hihrly - Lohrly), 1.2))+"\n"+
EncodeColor(colorWhite) + "30 min Hi = Rs." + EncodeColor(colorWhite) + HiHrly + "\n" +
EncodeColor(colorWhite) + "30 min Lo = Rs." + EncodeColor(colorWhite) + LoHrly + "\n" +"\n";

_SECTION_END();

rgds

need sugessions for buy sell signals.

casoni · Dec 27, 2014

sramrutia said:

Buy/short signals are plotting as you required .

" and buy aerrow is generated when current price cross PREVIOUS HALF AN HOUR HIGH.

and sell aerrow generated when current price cross PREVIOUS HALF AN HOUR
LOW."

what more do you want to know ?

sramrutia · Dec 29, 2014

casoni said:

sir,

signals r generated as per logic . trading logic required to be changed littlebit

to get more profit and needs your suggestion. thank u sir

Thread starter	Similar threads	Forum	Replies	Date
B	Help required:Minimum Maximum scaling option of Amibroker	AmiBroker	0	Jan 19, 2021
B	Required help for Buy/Sell signal Supertrend	Software	4	Apr 21, 2020
P	Help required - How to retrieve intraday value at a specific time of a daily MA?	Welcome	0	Mar 8, 2020
D	AFL required - Please help.	Algo & Automated Trading	0	Aug 20, 2019
P	HELP REQUIRED FOR EDITING AFL Previous Day Range Breakout	Day Trading	8	Jun 10, 2019

Help Required

sramrutia

Member

sramrutia

Member

sr114

Well-Known Member

sramrutia

Member

sramrutia

Member

casoni

Well-Known Member

sramrutia

Member

Similar threads