i wish i could think that was a typo , but i cant
Sorry Nun, it was a typo.
cheers
Frank
i wish i could think that was a typo , but i cant
Does anyone have Franks indicators coded up for Amibroker and if so can you share them.
Thanks.
That’s a good idea.
Can you please email me the codes also so I can pass them on, as I get a lot of Amibroker users asking the same questions, but I’m not familiar with the program or the coding.
Thanks nut.
i wish i could think that was a typo , but i cant
//Pivot Points By B Beams, 2009.
SetChartBkColor( ParamColor("BG Colour",colorDarkGrey ) );
SetChartOptions(0,chartShowDates);
//Switches
CS = ParamToggle("Chart Style","HLC|Candle",0);
VC = ParamToggle("Chart Colours","Off|On",1);
VCX = ParamColor("Default Chart Color",31);
Resistance = ParamToggle("Turn off Title","Off|On",1);
mp = ParamToggle("Write Monthly Resistance","Off|On",0);
p1 = ParamToggle("Plot Weekly Points","Off|On",0);
mx = ParamToggle("Plot Monthly Points","Off|On",0);
dy = ParamToggle("Plot Daily Points","Off|On",0);
Shw = ParamToggle("Show Extra Weekly","Off|On",0);
Ribbon = ParamToggle("Show Extra Ribbons","Off|On",0);
ps = ParamToggle("Show Indicators","Off|On",0);
//Switches
//Weekly//
TimeFrameSet( inWeekly );
PivotPoint = (High+Low+Close)/3;
Range = (High-Low)/2;
PivotPoint = (High+Low+Close)/3;
R2 = (2*Range)+PivotPoint;
R1 = Range+PivotPoint;
R3 = R2+High-Low;
S2 = ((2*Range)*-1)+PivotPoint;
S1 = (Range*-1)+PivotPoint;
S3 = S2-High+Low;
TimeFrameRestore();
PivotPoint = TimeFrameExpand(PivotPoint,inWeekly);
R1 = TimeFrameExpand(R1,inWeekly);
R2 = TimeFrameExpand(R2,inWeekly);
R3 = TimeFrameExpand(R3,inWeekly);
S1 = TimeFrameExpand(S1,inWeekly);
S2 = TimeFrameExpand(S2,inWeekly);
S3 = TimeFrameExpand(S3,inWeekly);
Displace = 1;
if(p1==1 AND NOT shw==1)
{
Plot(PivotPoint,"PivotPoint",colorBlue, styleDashed,0,0,displace);
Plot(R1,"R1",colorRed, styleDashed,0,0,displace);
Plot(S1,"S1",colorGreen, styleDashed,0,0,displace);
}
if(shw==1)
{
Plot(PivotPoint,"PivotPoint",colorBlue, styleDashed,0,0,displace);
Plot(R1,"R1",colorOrange, styleDashed,0,0,displace);
Plot(R2,"R2",colorRed, styleDashed,0,0,displace);
Plot(R3,"R3",colorDarkRed, styleDashed,0,0,displace);
Plot(S1,"S1",colorPaleGreen, styleDashed,0,0,displace);
Plot(S2,"S2",colorGreen, styleDashed,0,0,displace);
Plot(S3,"S3",colorDarkGreen, styleDashed,0,0,displace);
}
//End Weekly//
//Monthly
TimeFrameSet( inMonthly );
PivotMidm = (High+Low+Close)/3;
Rangem = (High-Low)/2;
PivotMaxm = Range+PivotMidm;
PivotMinm = (Range*-1)+PivotMidm;
TimeFrameRestore();
TimeFrameRestore();
PMidm = TimeFrameExpand(PivotMidm,inMonthly);
Pmaxm = TimeFrameExpand(PivotMaxm,inMonthly);
Pminm = TimeFrameExpand(PivotMinm,inMonthly);
if(mx==1)
{
Plot(Pmaxm,"monthly resistance",colorRed, styleDashed,0,0,displace);
Plot(Pmidm,"monthly resistance",colorBlue, styleDashed,0,0,displace);
Plot(Pminm,"monthly resistance",colorGreen, styleDashed,0,0,displace);
}
//End Monthly
//Daily//
PivotMidd = (High+Low+Close)/3;
Ranged = (High-Low)/2;
PivotMaxd = Range+PivotMidd;
PivotMind = (Range*-1)+PivotMidd;
pmaxd = PivotMaxd;
pmidd = PivotMidd;
pmind = PivotMind;
if(dy==1)
{
Plot(Pmaxd,"daily resistance",colorRed, styleDashed,0,0,displace);
Plot(Pmidd,"daily resistance",colorBlue, styleDashed,0,0,displace);
Plot(Pmind,"daily resistance",colorGreen, styleDashed,0,0,displace);
}
//end Daily//
//Date
function IncDate(idate)
{
yy = int(idate / 10000) + 1900;
mm = int((idate % 10000) / 100);
dd = idate % 100;
dd++;
lim = 31;
switch (mm) {
case 2: {
lim = 28;
if (!(yy % 4) && yy != 2000)
lim = 29;
break;
}
case 4:
case 6:
case 9:
case 11:
lim = 30; break;
}
if (dd > lim) {
dd = 1;
if (++mm > 12) {
mm = 1;
yy++;
}
}
return (yy-1900)*10000 + mm*100 + dd;
}
tday = LastValue(DateNum());
tmor = IncDate(tday);
yy = int(tmor / 10000) + 1900;
mm = int((tmor % 10000) / 100);
dd = tmor % 100;
dstr = StrFormat("%g/%g/%g", dd, mm, yy);
//End Date//
//Define Title//
if(resistance==1)
{
if(mp==1)
{
Title = EncodeColor(colorWhite)+ "Pivot Points" + " - " + Name() + " - " + EncodeColor(colorGreen)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +
"\n"+"\n" + EncodeColor(colorRed) + "Open " + EncodeColor(colorWhite)+ O + " - " + EncodeColor(colorRed) + "High " + EncodeColor(colorWhite)+ H + " - " + EncodeColor(colorRed) + "Low " + EncodeColor(colorWhite)+ L + " - " + EncodeColor(colorRed) + "Close " + EncodeColor(colorWhite)+ C +
"\n"+"\n"+"-Daily Resistance for " + Dstr +"-"
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorRed) + pmaxd + " "
+"\n"+ EncodeColor(colorWhite) + "Pivot Point: " + EncodeColor(colorBlue) + pmidd + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorPaleGreen) + pmind + " "+
"\n"+"\n"+EncodeColor(colorWhite)+"-Weekly-"+"\n"+EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorDarkRed) + R3 + " "
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorRed) + R2 + " "
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorOrange) + R1 + " "
+"\n"+ EncodeColor(colorWhite) + "Pivot Point: " + EncodeColor(colorBlue) + PivotPoint + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorPaleGreen) + S1 + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorGreen) + S2 + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorDarkGreen)+ S3 + " "
+"\n"+"\n"+EncodeColor(colorWhite)+"-Monthly-"
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorRed) + pmaxm + " "
+"\n"+ EncodeColor(colorWhite) + "Pivot Point: " + EncodeColor(colorBlue) + pmidm + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorPaleGreen) + pminm + " ";
}
else
{
Title = EncodeColor(colorWhite)+ "Pivot Points" + " - " + Name() + " - " + EncodeColor(colorGreen)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +
"\n"+"\n" + EncodeColor(colorRed) + "Open " + EncodeColor(colorWhite)+ O + " - " + EncodeColor(colorRed) + "High " + EncodeColor(colorWhite)+ H + " - " + EncodeColor(colorRed) + "Low " + EncodeColor(colorWhite)+ L + " - " + EncodeColor(colorRed) + "Close " + EncodeColor(colorWhite)+ C +
"\n"+"\n"+"-Daily Resistance for " + Dstr +"-"
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorRed) + pmaxd + " "
+"\n"+ EncodeColor(colorWhite) + "Pivot Point: " + EncodeColor(colorBlue) + pmidd + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorPaleGreen) + pmind + " "+
"\n"+"\n"+EncodeColor(colorWhite)+"-Weekly-"+"\n"+EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorDarkRed) + R3 + " "
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorRed) + R2 + " "
+"\n"+ EncodeColor(colorWhite) + "Resistance: " + EncodeColor(colorOrange) + R1 + " "
+"\n"+ EncodeColor(colorWhite) + "Pivot Point: " + EncodeColor(colorBlue) + PivotPoint + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorPaleGreen) + S1 + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorGreen) + S2 + " "
+"\n"+ EncodeColor(colorWhite) + "Support: " + EncodeColor(colorDarkGreen)+ S3;
}
}
else
{
Title = EncodeColor(colorWhite)+ "Pivot Points" + " - " + Name() + " - " + EncodeColor(colorGreen)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +
"\n"+"\n" + EncodeColor(colorRed) + "Open " + EncodeColor(colorWhite)+ O + " - " + EncodeColor(colorRed) + "High " + EncodeColor(colorWhite)+ H + " - " + EncodeColor(colorRed) + "Low " + EncodeColor(colorWhite)+ L + " - " + EncodeColor(colorRed) + "Close " + EncodeColor(colorWhite)+ C;
}
//End Title//
//Chart Colour//
if(VC==1)
{
VColor=IIf(C>R2,colorDarkGreen,IIf(C>R1,colorGreen,IIf(C>PivotPoint,colorPaleGreen,IIf(C>S1,colorOrange,IIf(C>S2,colorRed,IIf(C>S3,colorDarkRed,colorWhite))))));
}
else
{
VColor=VCX;
}
//End Chart Colour
//Set Style//
if(Cs==1)
{
PlotOHLC(O,H,L,C,"",VColor, 64 | styleThick );
}
else
{
PlotOHLC(Null,H,L,C,"",VColor,128 | styleThick );
}
//End Style//
//Ribbon
RibbonColor = IIf(C>R2,colorDarkRed,IIf(C>R1,colorRed,IIf(C>PivotPoint,colorOrange,IIf(C>S1,colorPaleGreen,IIf(C>S2,colorGreen,IIf(C>S3,colorDarkGreen,colorWhite))))));
RibbonColorD = IIf(C>Pmaxd,colorDarkRed,IIf(C>Pmidd,colorRed,IIf(C<Pmidd,colorPaleGreen,IIf(C<Pmind,colorGreen,colorWhite))));
RibbonColorM = IIf(C>PmaxM,colorDarkRed,IIf(C>PmidM,colorRed,IIf(C<PmidM,colorPaleGreen,IIf(C<PminM,colorGreen,colorWhite))));
if(Ribbon==1)
{
Plot( 1, "", RibbonColord, styleArea | styleOwnScale | styleNoLabel, -.0000010, 170 );
Plot( 3, "", RibbonColor, styleArea | styleOwnScale | styleNoLabel, -.0000010, 170 );
Plot( 5, "", RibbonColorm, styleArea | styleOwnScale | styleNoLabel, -.0000010, 170 );
}
else
{
Plot( 1, "", RibbonColor, styleArea | styleOwnScale | styleNoLabel, -.0000010, 170 );
}
//EndRibbon//
//Shapes//
if(ps==1)
{
PlotShapes(IIf(C<S2 && (C<Pmidd && C<PminM) OR C<S1 && (C<Pmind && C<PmidM),shapeSmallUpTriangle,Null),colorGreen,0,Low-(C/100));
PlotShapes(IIf(C>R2 && (C>Pmidd && C>PmaxM) OR C<S1 && (C>Pmaxd && C>Pmidm),shapeSmallDownTriangle,Null),colorRed,0,High+(C/100));
}
anyone thinking arvo sell off in the SPI??
good time to take profits before non-farms in the US tonight...
Hi Guys,
I joined this forum only a few days back and really captivated by Frank's model.
I do not want to direct this basic question to Frank as he is doing a great job educating members of this forum. Can someone else please spend the time or give me a link so I can educate myself.
Can someone educate me on how the support resistance pts are calculated on the "channels" that are drawn.
I have used the Formula listed in this post for calc. PP and R1,R2....S1,S2...etc writen for AB. I have also used alternate Formula for calculating supp.& Res. have done an excel SS to give me the various values of Sup.&Res but I cannot get a single one to coincide with those used by Frank.
I understand there is a book out there by Frank that explains everything
Thks, Mo
Hello and welcome to Aussie Stock Forums!
To gain full access you must register. Registration is free and takes only a few seconds to complete.
Already a member? Log in here.