// Downloaded From https://www.WiseStockTrader.com //////////////////////////// // Price with Woodies Pivots - Coded by Wring // Amibroker 4.63.1 //////////////////////////// // // Note: Turn on GridLine boxes "Middle" and "Show Dates" // in the dialogue box just below // // Set the Background Colour to DarkOliveGreen // Set the Axes Colour to White // //////////////////////////////////// // Calculate and plot Woodies Pivots //////////////////////////////////// function Pivots() { TimeFrameSet(inDaily); //global R1,R2,S1,S2,PP,ColorR,ColorS,ColorP; PP = round((Ref(H,-1) + Ref(L,-1) + O*2) / 4); R1 = (2 * PP) - Ref(L,-1); S1 = (2 * PP) - Ref(H,-1); R2 = (PP - S1) + R1; S2 = PP - (R1 - S1); TimeFrameRestore(); ColorR = colorRose; // Resistance Bars colour ColorS = colorOrange; // Support Bars colour ColorP = colorSkyblue; // Woodies Pivot colour // set all pivots but last to close +5 // This is done to eliminate problems with autoscaling // for (i=0;i<(BarCount-2);i++) { PP[i] = H[i]+5; R1[i] = H[i]+5; R2[i] = H[i]+5; S1[i] = H[i]+5; S2[i] = H[i]+5; } // // I want the pivot line to emerge as a straight line from the right // side of the chart // for (i=BarCount-2;i>(BarCount-13);i--)//set the last bars to the final PP value { PP[i] = PP[BarCount-1]; R1[i] = R1[BarCount-1]; R2[i] = R2[BarCount-1]; S1[i] = S1[BarCount-1]; S2[i] = S2[BarCount-1]; ColorR[i] = colorRose; ColorS[i] = colorOrange; ColorP[i] = colorSkyblue; } // // Conceal all but the trailing portion of the line // for (i=0;i(LoVal[LastBar]-tolerance)) { // PlotOHLC(PP,PP,PP,PP,"PP",colorSkyblue); Plot(PP,"PP",ColorP,style); } if (R1[LastBar]<(HiVal[LastBar]+tolerance) )//only plot pivots close to close price { Plot(R1,"R1",ColorR,style); } if (R2[LastBar]<(HiVal[LastBar]+tolerance) )//only plot pivots close to close price { Plot(R2,"R2",ColorR,style); } if (S1[LastBar] > (LoVal[LastBar]-tolerance) )//only plot pivots close to close price { Plot(S1,"S1",ColorS,style); } if (S2[LastBar] > (LoVal[LastBar]-tolerance) )//only plot pivots close to close price { Plot(S2,"S2",ColorS,style); } } // Main Program starts here //////////////////////////// // Price with Woodies Pivots //////////////////////////// CCI14 = CCI(14); LSMA = round(LinearReg( Close, 25 )); // Plot Woodies Pivots pivots(); // Setup the title TitleStr = Interval(2) + " " + Name() + ", " + EncodeColor(colorPink) + "Price=" + H + ", " + L + ", " + C + ", " + EncodeColor(colorTurquoise) + "34EMA" + ",\n" + EncodeColor(colorYellow) + "25lsma" + EncodeColor(colorCustom12) + ", " + EncodeColor(colorWhite) + Date(); Title = TitleStr; // Plot the price bars PlotOHLC(O,H,L,C,"Price", IIf(C >= Ref(C,-1),colorGreen,colorRed),styleCandle); Plot(EMA(C,34),"ema34",colorTurquoise,styledashed | styleNoLabel); Plot(LSMA,"lsma",colorYellow,styleLine | styleNoLabel);