hi, I attached the code. Yes I forgot to tell you that you need to load a plugin deDateTime.dll It can be found somewhere in the files sections.
rgds, Ed ----- Original Message ----- From: Mohammed To: [email protected] Sent: Friday, April 25, 2008 12:37 PM Subject: [amibroker] Re: Floor Trader Pivots Hello Edward, Thank you for your help. I'm getting Syntax error with The code.Also Variable firsbarofday used without having been initialized. Could you please upload the right one or send it to my yahoo ID. Again thank you very much. Regards, --- In [email protected], "Edward Pottasch" <[EMAIL PROTECTED]> wrote: > > hi, > > here is code I use. It is written for ES futures trading. It needs to use 1-minute intraday charts. It looks at 24 hours continues data but to calculate the pivots it uses the price of regular trading hours. The regular trading hours (my local time is CET) are displayed in the chart as a dark grey background (see inserted chart). You will need to adjust: > > starttime = 153000; > endtime = 220000; > > lines like PV = round(PV * 4) / 4; I added because ES trades in steps of 0.25 point. > > > for your local opening and closing hours. When you load the code you will need to go to the parameter window and chose these support and resistance levels you want to display. > > If anyone knows a succesful way to use this for trading ..... please let me know :) > > rgds, Ed > > > > > > > > > freq = 1 * inDaily; > > starttime = 153000; > endtime = 220000; > > tn = TimeNum(); > dn = DateNum(); > > timecond = tn >= starttime AND tn <= endtime; > startday = tn == starttime; > > firstBarOfDay = deFlagFirstBarOfDay( starttime ); > lastBarOfDay = deFlagLastBarOfDay( endtime); > > myHigh = ValueWhen( timecond, HighestSince( firstBarOfDay, High) ); > myLow = ValueWhen( timecond, LowestSince( firstBarOfDay, Low) ); > myClose = ValueWhen(lastBarOfDay,C); > > DH = TimeFrameCompress(myHigh, freq, compressLast); > DL = TimeFrameCompress(myLow, freq, compressLast); > DC = TimeFrameCompress(myClose, freq, compressLast); > > DH = Ref(DH,-1); > DL = Ref(DL,-1); > DC = Ref(DC,-1); > > DH = TimeFrameExpand( DH, freq, expandFirst ); > DL = TimeFrameExpand( DL, freq, expandFirst ); > DC = TimeFrameExpand( DC, freq, expandFirst ); > > rg = DH - DL; > > PV = (DH+DL+DC)/3; PV = round(PV * 4) / 4; > R1 = PV + (PV - DL); R1 = round(R1 * 4) / 4; > R2 = PV + rg; > R3 = R1 + rg; > R4 = R2 + rg; > > S1 = PV - (DH - PV); S1 = round(S1 * 4) / 4; > S2 = PV - rg; > S3 = S1 - rg; > S4 = S2 - rg; > > Type = ParamList ("Type","Pivot,Pivot/S1/R1,Pivot/S1/S2/R1/R2,Pivot/S1/S2/S3/R1/R2/R3,P ivot/S1/S2/S3/S4/R1/R2/R3/R4,Yesterdays H/L/C"); > > if( Type == "Pivot" ) { > > SetBarsRequired(10000, 10000); > > SetChartOptions(0, chartShowDates); > Plot(C,"C",1,64); > Plot(PV,"PV",colorWhite,styleThick); > Plot( timecond, "", colorDarkGrey, styleArea|styleOwnScale,0,1); > > } > > if( Type == "Pivot/S1/R1" ) { > > SetBarsRequired(10000, 10000); > > SetChartOptions(0, chartShowDates); > Plot(C,"C",1,64); > Plot(PV,"PV",colorWhite,styleThick); > > // resistance > Plot(R1,"\nR1",colorRed,styleThick); PlotText( "R1\n", LastValue (Cum(1)), LastValue(R1), colorRed ); > > // support > Plot(S1,"\nS1",colorGreen,styleThick); PlotText( "S1\n", LastValue(Cum(1)), LastValue(S1), colorGreen ); > > Plot( timecond, "", colorDarkGrey, styleArea|styleOwnScale,0,1); > > } > > if( Type == "Pivot/S1/S2/R1/R2" ) { > > SetBarsRequired(10000, 10000); > > SetChartOptions(0, chartShowDates); > Plot(C,"C",1,64); > Plot(PV,"PV",colorWhite,styleThick); > > // resistance > Plot(R1,"\nR1",colorRed,styleThick); PlotText( "R1\n", LastValue (Cum(1)), LastValue(R1), colorRed ); > Plot(R2,"R2",colorOrange,styleThick); PlotText( "R2\n", LastValue (Cum(1)), LastValue(R2), colorOrange ); > > // support > Plot(S1,"\nS1",colorGreen,styleThick); PlotText( "S1\n", LastValue(Cum(1)), LastValue(S1), colorGreen ); > Plot(S2,"S2",colorBrightGreen,styleThick); PlotText( "S2\n", LastValue(Cum(1)), LastValue(S2), colorBrightGreen ); > > Plot( timecond, "", colorDarkGrey, styleArea|styleOwnScale,0,1); > > } > > if( Type == "Pivot/S1/S2/S3/R1/R2/R3" ) { > > SetBarsRequired(10000, 10000); > > SetChartOptions(0, chartShowDates); > Plot(C,"C",1,64); > Plot(PV,"PV",colorWhite,styleThick); > > // resistance > Plot(R1,"\nR1",colorRed,styleThick); PlotText( "R1\n", LastValue (Cum(1)), LastValue(R1), colorRed ); > Plot(R2,"R2",colorOrange,styleThick); PlotText( "R2\n", LastValue (Cum(1)), LastValue(R2), colorOrange ); > Plot(R3,"R3",colorLightOrange,styleThick); PlotText( "R3\n", LastValue(Cum(1)), LastValue(R3), colorLightOrange ); > > // support > Plot(S1,"\nS1",colorGreen,styleThick); PlotText( "S1\n", LastValue(Cum(1)), LastValue(S1), colorGreen ); > Plot(S2,"S2",colorBrightGreen,styleThick); PlotText( "S2\n", LastValue(Cum(1)), LastValue(S2), colorBrightGreen ); > Plot(S3,"S3",colorSeaGreen ,styleThick); PlotText( "S3\n", LastValue(Cum(1)), LastValue(S3), colorSeaGreen ); > > Plot( timecond, "", colorDarkGrey, styleArea|styleOwnScale,0,1); > > } > > if( Type == "Pivot/S1/S2/S3/S4/R1/R2/R3/R4" ) { > > SetBarsRequired(10000, 10000); > > SetChartOptions(0, chartShowDates); > Plot(C,"C",1,64); > > Plot(PV,"PV",colorWhite,styleThick); > > // resistance > Plot(R1,"\nR1",colorRed,styleThick); PlotText( "R1\n", LastValue (Cum(1)), LastValue(R1), colorRed ); > Plot(R2,"R2",colorOrange,styleThick); PlotText( "R2\n", LastValue (Cum(1)), LastValue(R2), colorOrange ); > Plot(R3,"R3",colorLightOrange,styleThick); PlotText( "R3\n", LastValue(Cum(1)), LastValue(R3), colorLightOrange ); > Plot(R4,"R4",colorYellow,styleThick); PlotText( "R4\n", LastValue (Cum(1)), LastValue(R4), colorYellow ); > > // support > Plot(S1,"\nS1",colorGreen,styleThick); PlotText( "S1\n", LastValue(Cum(1)), LastValue(S1), colorGreen ); > Plot(S2,"S2",colorBrightGreen,styleThick); PlotText( "S2\n", LastValue(Cum(1)), LastValue(S2), colorBrightGreen ); > Plot(S3,"S3",colorSeaGreen ,styleThick); PlotText( "S3\n", LastValue(Cum(1)), LastValue(S3), colorSeaGreen ); > Plot(S4,"S4",colorPaleGreen ,styleThick); PlotText( "S4\n", LastValue(Cum(1)), LastValue(S4), colorPaleGreen ); > > Plot( timecond, "", colorDarkGrey, styleArea|styleOwnScale,0,1); > > } > > if( Type == "Yesterdays H/L/C" ) { > > SetBarsRequired(10000, 10000); > > SetChartOptions(0, chartShowDates); > Plot(C,"C",1,64); > Plot(DC,"\nDC",colorLightBlue,styleDashed); PlotText( "Ys C\n", LastValue(Cum(1)), LastValue(DC), colorLightBlue ); > Plot(DH,"DH",colorSkyblue,styleDashed); PlotText( "Ys H\n", LastValue(Cum(1)), LastValue(DH), colorSkyblue ); > Plot(DL,"DL",colorTurquoise,styleDashed); PlotText( "Ys L\n", LastValue(Cum(1)), LastValue(DL), colorTurquoise ); > > Plot( timecond, "", colorDarkGrey, styleArea|styleOwnScale,0,1); > > } > > > > ----- Original Message ----- > From: Mohammed > To: [email protected] > Sent: Friday, April 25, 2008 1:28 AM > Subject: [amibroker] Floor Trader Pivots > > > > Hi All, > > I'm trying to write the formula for Pivot Point, support and resistance as it showing in the following code. > > /* > > Pivot Point = [Yesterday's High + Yesterday's Low + Yesterday's Close] / 3 > > Support Levels > > S1 = [Pivot Point * 2] - Yesterday's High > > S2 = Pivot Point - Yesterday's High + Yesterday's Low > > S3 = S2 - Yesterday's High + Yesterday's Low > > Resistance Levels > > R1 = [Pivot Point * 2] - Yesterday's Low > > R2 = Pivot Point + Yesterday's High - Yesterday's Low > > R3 = R2 + Yesterday's High - Yesterday's Low > > */ > > Piv = Ref(H,-1) + Ref(L,-1) + Ref(C,-1)/ 3; > S1 = Piv*2 - Ref(H,-1); > S2 = Piv - Ref(H,-1) + Ref(L,-1); > S3 = S2 - Ref(H,-1) + Ref(L,-1); > > R1 = Piv*2 - Ref(L,-1); > R2 = Piv + Ref(H,-1) - Ref(L,-1); > R3 = R2 + Ref(H,-1) - Ref(L,-1); > > Plot(S1,"S1",colorgreen, styleLine); > Plot(S2,"S3",colorgreen, styleLine); > Plot(S3,"S3",colorgreen, styleLine); > > Plot(R1,"R1",colorRed, styleLine); > Plot(R2,"R2",colorRed, styleLine); > Plot(R3,"R3",colorRed, styleLine); > > BUT this gives me wrong result??? > > Any one can help please Why I got wrong result? > > Also I would like to plot it as a horizontal line not as indicator. As it showing here > > FloorTrader Pivots > > > All the best. >
PivotTradingReply.afl
Description: Binary data
