Announcement

Collapse
No announcement yet.

Partner 728x90

Collapse

Kase Peak Oscilator

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    Kase Peak Oscilator

    Hello my friends,

    I would like to add in NT an indicator called the Kase Peak Oscilator. Because I'm a novice to create a new indicator, is there anybody who could tell me step by step how to do that ?

    Thanks

    Angel



    This is below the FREE formula found on
    http://trader.online.pl/ELZ/t-i-Kase...cillator.html:


    Kase Peak Oscillator by Cynthia Case


    Origin: omega-list
    Written by: James Rehler
    Date found: 8 dec 97
    {The following code is what I cobbled together after reading her articles in Futures mag.}



    Type : Function, Name : StdDevx

    inputs :
    Price(NumericSeries),
    Length(NumericSimple);

    vars :
    SumSqr(0),
    Avg(0),
    Counter(0);

    if Length <> 0
    then begin
    Avg = Average(Price,Length);
    SumSqr = 0;
    for counter = 0 to Length - 1
    begin
    SumSqr = SumSqr + (Price[counter]-Avg) * (Price[counter]-Avg);
    end;
    StdDevX = SquareRoot(SumSqr / (Length-1));
    end
    else
    StdDevX = 0;





    Type : Indicator, Name : Kase Peak Oscillator


    inputs:LEN(30), Smooth(3), Strength(1);
    vars: RWH(0), RWL(0),PEAK(0), MEAN(0), STD(0);

    RWH = (H[0] - L[LEN]) / (AvgTrueRange(LEN) * SquareRoot(LEN));
    RWL = (H[LEN] - L[0]) / (AvgTrueRange(LEN) * SquareRoot(LEN));
    PEAK = WAverage((RWH - RWL),3);
    MEAN = average(PEAK,LEN);
    STD = StdDevx(PEAK,LEN);

    if (MEAN + (1.33 * STD)) > 2.08 then value1 = (MEAN + (1.33 * STD))
    else value1 = 2.08;

    if (MEAN - (1.33 * STD)) < -1.92 then value2 = (MEAN - (1.33 * STD))
    else value2 = -1.92;

    plot1(PEAK,"PeakOsc");
    if PEAK[1] >= 0 and PEAK > 0 then plot2(value1,"+/-97.5%");
    if PEAK[1] <= 0 and PEAK < 0 then plot2(value2,"+/-97.5%");

    #2
    Kase Peak Oscilator and KCD.....

    Hello,

    I'm sorry because I forgot in my previous post to include with the Kase Peak Oscilator the KCD because they work TOGETHER .

    Thanks

    Angel



    The free formula of the KCD is :

    Kase CD by Cynthia Case

    Origin: omega-list
    Written by: James Rehler
    Date found: 8 dec 97
    {The following code is what I cobbled together after reading her articles in Futures mag.}



    Type : Indicator, Name : Kase CD

    inputs:
    LEN(30),
    Smooth(3),
    Strength(1);

    vars:
    RWH(0),
    RWL(0),
    PEAK(0),
    KCD(0);

    RWH = (H[0] - L[LEN]) / (AvgTrueRange(LEN) * SquareRoot(LEN));
    RWL = (H[LEN] - L[0]) / (AvgTrueRange(LEN) * SquareRoot(LEN));

    PEAK = WAverage((RWH - RWL),Smooth);
    KCD = (PEAK) - average(Peak,8);

    plot1(KCD,"KCD");
    plot2(0,"Zero");

    if CheckAlert then begin
    if BullishDivergence(low,plot1,Strength,15) = 1
    then Alert = true;
    if BearishDivergence(high,plot1,Strength,15) = 1
    then Alert = true;
    end;

    Comment

    Latest Posts

    Collapse

    Topics Statistics Last Post
    Started by ChazJ, Today, 03:21 PM
    0 responses
    2 views
    0 likes
    Last Post ChazJ
    by ChazJ
     
    Started by constituyente, Today, 02:37 AM
    1 response
    8 views
    0 likes
    Last Post NinjaTrader_ShawnB  
    Started by Eragan, Today, 01:51 PM
    0 responses
    9 views
    0 likes
    Last Post Eragan
    by Eragan
     
    Started by mbcmbc, Today, 11:43 AM
    1 response
    15 views
    0 likes
    Last Post NT-Roland  
    Started by jeanne, Today, 03:43 AM
    1 response
    26 views
    0 likes
    Last Post NinjaTrader_ShawnB  
    Working...
    X