Help Required

S

sramrutia

Member
#21
Joined
Apr 9, 2005
Messages
97
Likes
16
#21
casoni said:
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;

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

sramrutia

Member
#22
Joined
Apr 9, 2005
Messages
97
Likes
16
#22
// 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();
 
S

sr114

Well-Known Member
#23
Joined
Sep 23, 2005
Messages
1,904
Likes
1,638
Location
India
#23
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
 
Last edited:
S

sramrutia

Member
#24
Joined
Apr 9, 2005
Messages
97
Likes
16
#24
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
Click to expand...
thank u sir,
suggessions wellcome for buy sell signal or modification for intraday .
 
S

sramrutia

Member
#25
Joined
Apr 9, 2005
Messages
97
Likes
16
#25
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
Click to expand...

need sugessions for buy sell signals.
 
casoni

casoni

Well-Known Member
#26
Joined
Feb 19, 2006
Messages
395
Likes
487
#26
sramrutia said:
need sugessions for buy sell signals.
Click to expand...
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 ?
 
S

sramrutia

Member
#27
Joined
Apr 9, 2005
Messages
97
Likes
16
#27
casoni 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 ?
Click to expand...
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
 
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
B Help required:Minimum Maximum scaling option of Amibroker AmiBroker 0
B Required help for Buy/Sell signal Supertrend Software 4
P Help required - How to retrieve intraday value at a specific time of a daily MA? Welcome 0
D AFL required - Please help. Algo & Automated Trading 0
P HELP REQUIRED FOR EDITING AFL Previous Day Range Breakout Day Trading 8

Similar threads

Broker Special Offers