Kase CD and Price Oscillator - Wealth Lab Forum

Kase CD and Price Oscillator

Author: richard1000

Creation Date: 11/6/2010 3:06 PM

Wealth Lab » Technical Indicators » Kase CD and Price Oscillator

richard1000

11/6/2010 3:06 PM

The original code. Why does he/she use LN as variable since it is a key word for natural log? Is there something I'm missing about this code?

CODE:
Please log in to see this code.

Notice that variable LN is translated as Math.Log. I would have to change this to a reasonable variable. If I did that everything looks ok except for SetSeriesBarColor. How to correct SetSeriesBarColor?

CODE:
Please log in to see this code.

Ok, more specifically, when I set SetSeriesBarColor(Bar, KCD, Color.Red) I get an error. I am confused about why WL_RED is used in the translator.

Size:

Color:

The original code.  Why does he/she use LN as variable since it is a key word for natural log?  Is there something I'm missing about this code?

[CODE]
const Per1 = 8;

var Bar, Pk, KCD: integer;
var RWH: integer = CreateSeries;
var RWL: integer = CreateSeries;
var LN: integer = CreateSeries;
for Bar := Per1 to BarCount - 1 do
begin
  @RWH[Bar] := (PriceHigh(Bar) - PriceLow(Bar - Per1)) / (ATR(Bar, Per1) * Sqrt(Per1));
  @RWL[Bar] := (PriceHigh(Bar - Per1) - PriceLow(Bar)) / (ATR(Bar, Per1) * Sqrt(Per1));
end;
Pk := SMASeries(WMASeries(SubtractSeries(RWH, RWL), 3), 3);
KCD := SubtractSeries(PK, SMASeries(PK, 8));

for Bar := Per1 to BarCount - 1 do
begin
  if (@KCD[Bar - 1] >= 0) and (@KCD[Bar] > 0) then
    @LN[Bar] := max(+2.08, BBandUpper(Bar, KCD, Per1, 1.33))
  else
  if (@KCD[Bar - 1] <= 0) and (@KCD[Bar] < 0) then
    @LN[Bar] := min(-1.92, BBandLower(Bar, KCD, Per1, 1.33));
  if @KCD[Bar] < @KCD[Bar - 1] then
    SetSeriesBarColor(Bar, KCD, #Red)
  else
    SetSeriesBarColor(Bar, KCD, #Green);
end;

var p: integer = CreatePane(100, true, false);
PlotSeries(KCD, p, 0, #ThickHist);
PlotSeries(LN, p, #Blue, #Thick);
[/CODE]

Notice that variable LN is translated as Math.Log.  I would have to change this to a reasonable variable.  If I did that everything looks ok except for SetSeriesBarColor.  How to correct SetSeriesBarColor?

[CODE]
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using System.Threading; // Sleep()
using System.Windows.Forms;
using WealthLab;
using WealthLab.Indicators;
using finantic.TL; // WealthScriptTL

namespace WealthLabCompile2
{
    class Strategy : WealthScriptTL
    {
#region file ChartScript

// start of prolog: This is a comment at the top of each file
		public new void Init(){
			base.Init();
			//optional settings
			UseUpdatedEMA(true);
			SetStdDevCalculation(StdDevCalculation.Population);
		}
// end of prolog: This is a comment at the top of each file

public  /**const*/ int Per1 = 8;
public int Bar, Pk, KCD = 0;
public int RWH = 0;
public int RWL = 0;
public int Math.Log = 0;
public int p = 0;

/** This method contains the meat of your script,
    i.e, any statements that are not inside a user defined class or function/procedure. */
protected override void Execute(){
    Init();
    // [declaration for class ChartScript used to be here] 
    
    RWH = (int)CreateSeries();
    RWL = (int)CreateSeries();
    Math.Log = (int)CreateSeries();
    for (Bar = Per1; Bar <= (Bars.Count - 1); Bar++) {
        GetSeries(RWH)[Bar] = (((PriceHigh(Bar) - PriceLow((Bar - Per1)))) / ((ATR(Bar, Per1) * Math.Sqrt(Per1))));
        GetSeries(RWL)[Bar] = (((PriceHigh((Bar - Per1)) - PriceLow(Bar))) / ((ATR(Bar, Per1) * Math.Sqrt(Per1))));
        
    }
    Pk = (int)SMASeries(WMASeries(SubtractSeries(RWH, RWL), 3), 3);
    KCD = (int)SubtractSeries(Pk, SMASeries(Pk, 8));
    for (Bar = Per1; Bar <= (Bars.Count - 1); Bar++) {
        if ((((GetSeries(KCD)[(Bar - 1)] >= 0)) && ((GetSeries(KCD)[Bar] > 0)))) GetSeries(Math.Log)[Bar] = Math.Max( +2.08, BBandUpper(Bar, KCD, Per1, 1.33));
        else if ((((GetSeries(KCD)[(Bar - 1)] <= 0)) && ((GetSeries(KCD)[Bar] < 0)))) GetSeries(Math.Log)[Bar] = Math.Min( -1.92, BBandLower(Bar, KCD, Per1, 1.33));
        if ((GetSeries(KCD)[Bar] < GetSeries(KCD)[(Bar - 1)])) SetSeriesBarColor(Bar, KCD, WL_RED);
        else SetSeriesBarColor(Bar, KCD, WL_GREEN);
        
    }
    p = (int)CreatePane(100, true, false);
    PlotSeries(KCD, p, 0, WL_THICKHIST);
    PlotSeries(Math.Log, p, WL_BLUE, WL_THICK);
    
}

// start of epilog: This is a comment at the end of each file
	} // class Strategy
} // namespace
// end of epilog

#endregion file ChartScript
[/CODE]

Ok, more specifically, when I set SetSeriesBarColor(Bar, KCD, Color.Red) I get an error.  I am confused about why WL_RED is used in the translator.

Eugene

11/7/2010 7:21 AM

QUOTE:
Why does he/she use LN as variable since it is a key word for natural log?

It was overlooked by whomever made this code.

QUOTE:
How to correct SetSeriesBarColor?

It's simple. In this fragment, swap the main loop and the 3 lines that plot series:

CODE:
Please log in to see this code.

In other words, here's how the resulting code snippet should look like:

CODE:
Please log in to see this code.

WEALTHPRO25

6/17/2015 3:13 PM

(KaseCd)KCD = PeakOscillator - average(PeakOscillator), n

thus can you please help me with the code for Peak Oscillator only, i want to be able to see both Kasecd and Peak Oscillator and see if they diverge