PureBytes Links
Trading Reference Links
|
SUNW P&F Chart (Box=1, Reverse = 3)
Below is the code to chart only Stocks. You can control the right margin space for PF Chart, Last value close, Horizontal Grid, and Price Axis through variables:
shiftChart =0;
shiftLastClose =1;
shiftGrid =7;
shiftPriceAxis = 2;
//-----------COPY HERE-------------------------------------------
GraphXSpace = 5;
SetChartBkColor(ParamColor("BackGroundColor", colorBlack)); GraphColor = ParamColor("GarphColor",colorLightGrey); GridColor = ParamColor("GridColor", ColorRGB(39,49, 67) );
Box =Param("Box", 1, 0.2, 5, 0.2);
shiftChart =0; shiftLastClose =1; shiftGrid =7; shiftPriceAxis = 2;
Reverse = Param("Reverse", 3, 1, 5); j = 0; PFL[0] = Box * ceil(Low[0]/Box) + Box; PFH[0] = Box * floor(High[0]/Box); direction = 0;
for( i = 1; i < BarCount; i++ ) { if(direction[j] == 0) { if(Low[i] <= PFL[j] - Box) { PFL[j] = Box * ceil(Low[i]/Box); } else { if(High[i] >= PFL[j] + Reverse*Box) { j++; direction[j] = 1; PFH[j] = Box * floor(High[i]/Box); PFL[j] = PFL[j - 1] + Box;
} } } else { if(High[i] >= PFH[j] + Box) { PFH[j] = Box * floor(High[i]/Box); } else { if( Low[i] <= PFH[j] - Reverse * Box ) { j++; direction[j] = 0; PFH[j] = PFH[j - 1] - Box; PFL[j] = Box * ceil(Low[i]/Box);
} } } } delta = BarCount - j -1; direction = Ref(direction, - delta); Hi = Ref(PFH, -delta) + Box/2; Lo = Ref(PFL, -delta)- Box/2; Cl = IIf(direction == 1, Hi, Lo); Op = IIf(direction == 1, Cl - Box, Cl + Box);
PlotOHLC(Op, Hi, Lo, Cl,"", GraphColor , stylePointAndFigure|styleNoLabel, 0, 0 ,shiftChart);
Last = Ref( LastValue(C), -(BarCount-1)); Plot( Last,"", colorRed,styleNoLine|styleDots, 0 , 0, shiftLastClose);
// selected value Value= IIf(direction>0, SelectedValue(Hi)-box/2, SelectedValue(Lo)+box/2);
//----------------------------------------------------------------------- // GRID CONSTRUCTION //----------------------------------------------------------------------
PlotGridLines = ParamToggle("PlotdGrid", "Yes|No", 0);
if (PlotGridLines) { begin = SelectedValue(BarIndex()); end = LastValue(BarIndex()); period = end-begin +1;
if( begin<end) {
ScreenHigh =LastValue( HHV(cl, period )) + box; ScreenLow =LastValue( LLV( Cl, period) )-box;
top= LineArray( begin-shiftGrid, screenHigh, end, screenhigh, 0 , 1); Bot= LineArray( begin-shiftGrid, screenlow, end, screenLow, 0, 1);
Plot( top, "", gridColor,styleLine|styleNoLabel , 0, 0,shiftGrid); Plot( bot, "", gridColor,styleLine|styleNoLabel, 0 , 0 , shiftGrid);
VerticalGrid = IIf ( BarIndex() >= begin, IIf(direction==1, screenHigh, screenLow), Null);
Plot (VerticalGrid, "", gridColor, styleStaircase|styleNoLabel, 0,0, 1);
format = 8.2;
//while ( LastValue(bot)< LastValue(top)-0.5*box)
for ( n=LastValue(bot); n< LastValue(top); n = n+box) { Plot( bot , "", gridColor, styleLine|styleNoLabel, 0, 0 ,shiftGrid); text = NumToStr(LastValue(bot) + 0.5*box, format); xposition = BarCount+shiftPriceaxis; yPosition = LastValue(bot)+0.27*box; PlotText(text, xPosition , yPosition, colorWhite);
bot = bot + box; } }
}
//--------------------------------------------------------------------- // TITLE //----------------------------------------------------------------------
Title = "\n" + " Instrument : " + Name() + FullName()+"\n " + "Formula : " + " Point & Figure (High/Low Range)" + "\n " + "Box : " + NumToStr(Box, 4.4) + " " + "Reverse : " + NumToStr(Reverse, 2.0) + "\n " + "ATR : " + WriteVal(LastValue(ATR(100)), format = 4.4);
__._,_.___
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
For other support material please check also:
http://www.amibroker.com/support.html
SPONSORED LINKS
__,_._,___
|