automatic drawing pivot point on charts in amibroker

Discussion in 'Futures' started by rb8869rb, Aug 15, 2009.

  1. rb8869rb

    rb8869rb New Member

    Joined:
    Jul 24, 2008
    Messages:
    8
    Likes Received:
    1
    Trophy Points:
    3
    Hi! Every one


    some time back i have seen a thread in which someone gave afl for drawing pivot points on charts automatically. Can some one share it with me or guide me to that post please.
     
  2. vkunisetty

    vkunisetty Active Member

    Joined:
    Mar 20, 2008
    Messages:
    81
    Likes Received:
    113
    Trophy Points:
    33
    rb8869rb,

    I am attaching Daily Pivots AFL, I think this will help you.

    Vidyasagar

    /* Daily Pivots By Vidyasagar */

    GraphXSpace = 5 ;
    SetChartOptions(0,chartShowArrows|chartShowDates);

    Plot(C,"Close",colorBlack, styleCandle);
    ppl = ParamToggle("Plot Pivot Levels","Off|On",1);

    numbars = LastValue(Cum(Status("barvisible")));
    fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);
    hts = -33.5;

    /* This code calculates the previous days high, low and close */
    Hi1 = IIf(Day()!=Ref(Day(),-1),Ref(HighestSince(Day()!=Ref(Day(),-1),H,1),-1),0);
    Hi = ValueWhen(Day()!=Ref(Day(),-1),Hi1,1);
    Lo1 = IIf(Day()!=Ref(Day(),-1),Ref(LowestSince(Day()!=Ref(Day(),-1),L,1),-1),0);
    Lo = ValueWhen(Day()!=Ref(Day(),-1),Lo1,1);
    Cl1 = IIf(Day()!=Ref(Day(),-1),Ref(C,-1),0);
    C1 = ValueWhen(Day()!=Ref(Day(),-1),Cl1,1);

    //----------------------------------------------------------------------------------

    /* This code calculates Daily Piovts */

    rg = (Hi - Lo);
    bp = (Hi + Lo + C1)/3; bpI = LastValue (bp,1);
    r1 = (bp*2)-Lo; r1I = LastValue (r1,1);
    s1 = (bp*2)-Hi; s1I = LastValue (s1,1);
    r2 = bp + r1 - s1; r2I = LastValue (r2,1);
    s2 = bp - r1 + s1; s2I = LastValue (s2,1);
    r3 = bp + r2 - s1; r3I = LastValue (r3,1);
    s3 = bp - r2 + s1; s3I = LastValue (s3,1);
    r4 = bp + r2 - s2; r4I = LastValue (r4,1);
    s4 = bp - r2 + s2; s4I = LastValue (s4,1);

    if(ppl==1) {
    Plot(bp,"",colorBlue,styleLine|styleDots|styleNoRescale);
    Plot(s1,"",colorRed,styleLine|styleNoRescale);
    Plot(s2,"",colorRed,styleLine|styleNoRescale);
    Plot(s3,"",colorRed,styleLine|styleNoRescale);
    Plot(s4,"",colorRed,styleLine|styleNoRescale);
    Plot(r1,"",colorGreen,styleLine|styleNoRescale);
    Plot(r2,"",colorGreen,styleLine|styleNoRescale);
    Plot(r3,"",colorGreen,styleLine|styleNoRescale);
    Plot(r4,"",colorGreen,styleLine|styleNoRescale);
    PlotText(" Pivot = " + WriteVal(bp,fraction), LastValue(BarIndex())-(numbars/Hts), bpI +0.05, colorBlue);
    PlotText(" r1 = " + WriteVal(r1,fraction), LastValue(BarIndex())-(numbars/Hts), r1I +0.05, colorGreen);
    PlotText(" s1 = " + WriteVal(s1,fraction), LastValue(BarIndex())-(numbars/Hts), s1I +0.05, colorRed);
    PlotText(" r2 = " + WriteVal(r2,fraction), LastValue(BarIndex())-(numbars/Hts), r2I +0.05, colorGreen);
    PlotText(" s2 = " + WriteVal(s2,fraction), LastValue(BarIndex())-(numbars/Hts), s2I +0.05, colorRed);
    PlotText(" r3 = " + WriteVal(r3,fraction), LastValue(BarIndex())-(numbars/Hts), r3I +0.05, colorGreen);
    PlotText(" s3 = " + WriteVal(s3,fraction), LastValue(BarIndex())-(numbars/Hts), s3I +0.05, colorRed);
    PlotText(" r4 = " + WriteVal(r4,fraction), LastValue(BarIndex())-(numbars/Hts), r4I +0.05, colorGreen);
    PlotText(" s4 = " + WriteVal(s4,fraction), LastValue(BarIndex())-(numbars/Hts), s4I +0.05, colorRed);
    }

    //--end----------------------------------------------------------------------------
     
    Last edited: Aug 15, 2009
  3. vkunisetty

    vkunisetty Active Member

    Joined:
    Mar 20, 2008
    Messages:
    81
    Likes Received:
    113
    Trophy Points:
    33
    AFL not properly uploaded, trying to Attach AFL
     
  4. findvikas

    findvikas Well-Known Member

    Joined:
    Jan 31, 2008
    Messages:
    3,347
    Likes Received:
    3,343
    Trophy Points:
    113
    Off topic and probably have been asked many times, so please excuse me, but I want to know how to get Intraday Live (delayed by 1-5min) data in AmiBroker?
     
  5. veekay304

    veekay304 Well-Known Member

    Joined:
    Mar 13, 2009
    Messages:
    417
    Likes Received:
    371
    Trophy Points:
    63
    I use True Data India RT data. Another provider is invest bulls.

    VK
     
Loading...

Share This Page