Market Action chart on home page

Sammy_G

#1

6/2/2010 8:55 AM

Does anyone have the code for this? I would like to re-create it on my desktop using WLPro v5.6.

Cone

#2

6/2/2010 9:14 AM

You can translate it from Version 4 code: Plotting Market Action

Sammy_G

#3

6/4/2010 4:06 PM

Translated using Dr. Koch's WL Translator; here's the result:

CODE:
Please log in to see this code.

I thought everything went well. But when I open it in WLPro 5.6 and hit the Compile button, I get a bunch of errors; how to fix them? [Hope nobody will say ask the developer as Dr. Koch doesn't frequent these forums any more.]

Size:

Color:

Translated using Dr. Koch's WL Translator; here's the result:
[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 int w, Bar, dlyBar, h, hp, hExt, PctPane, Color = 0;
public string sym, lbl = null;
public string[] s = new string[2 - 0 + 1];
public  /**const*/ string fmt = "#,##0.00";
public  /**const*/ string fmtpct = "0.00%";

/**  Returns the first bar of StartDay for an intraday DataSource  */ 
public int FirstBarofDay (int StartDay){
    int fnResult = 0;
    int cnt, iBar = 0;
    fnResult = (Bars.Count - 1);
    for (iBar = 0; iBar <= (Bars.Count - 1); iBar++) {
        if ((BarNum(iBar) == 0)) ++(cnt);
        if ((cnt == StartDay)) {
            fnResult = iBar;
            break;
            
        }
        
    }
    return fnResult;
    
}

public double DlyPct (double YesterdaysClose, double CurrentClose){
    double fnResult = 0.0;
    fnResult = ((100 * ((CurrentClose - YesterdaysClose))) / YesterdaysClose);
    return fnResult;
    
}

/** 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] 
    
    // [declaration for function FirstBarofDay  used to be here] 
    // [declaration for function DlyPct  used to be here] 
     /**  Create a new pane and color the backgrounds using DrawRectangle  */ 
    PctPane = (int)CreatePane(300, true, true);
    Bar = (int)(Bars.Count - 1);
    DrawRectangle(0, 0, Bar,  -10, PctPane, WL_GRAY, WL_THIN, WL_REDBKG, true);
    HideVolume();
     /**  Assign the symbols since WatchList loops can't be used in real time  */ 
    s[0] = "$INDU";
    s[1] = "$NDX";
    s[2] = "$SPX";
    for (w = 0; w <= 2; w++) {
        sym = (string)s[w];
        SetScaleDaily();
        h = (int)GetExternalSeries(sym, WL_CLOSE);
        RestoreContext();
         /**  Create and calculate percentage series  */ 
        hExt = (int)GetExternalSeries(sym, WL_CLOSE);
        hp = (int)CreateSeries();
        for (Bar = FirstBarofDay(2); Bar <= (Bars.Count - 1); Bar++) {
            SetPaneBackgroundColor(Bar, PctPane, WL_GREENBKG);
            dlyBar = (int)GetDailyBar(Bar);
            GetSeries(hp)[Bar] = DlyPct(GetSeries(h)[dlyBar], GetSeries(hExt)[Bar]);
            
        }
        switch ((((w % 3)) + 1)) {
            case 1:
                Color = (int)900;
                break;
            case 2:
                Color = (int)350;
                break;
            case 3:
                Color = (int)009;
                break;
            default: 
                break;
            
        }Bar = (int)(Bars.Count - 1);
        lbl = (string)((((sym + " ") + FormatFloat(fmt, GetSeries(hExt)[Bar])) + ", ") + FormatFloat(fmtpct, GetSeries(hp)[Bar]));
        PlotSeriesLabel(hp, PctPane, Color, WL_THICK, lbl);
        
    }
    
}

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

#endregion file ChartScript
[/CODE]
I thought everything went well. But when I open it in WLPro 5.6 and hit the Compile button, I get a bunch of errors; how to fix them? [Hope nobody will say ask the developer as Dr. Koch doesn't frequent these forums any more.]

Cone

#4

6/4/2010 4:14 PM

Wow, the translator really botched that one.

Eugene

#5

6/4/2010 4:20 PM

To fix compiler errors, you might want to look their meaning in MSDN (or Google them).

Sammy_G

#6

6/4/2010 4:27 PM

Well, one error is:
error CS0165 @ (39,37) : Use of unassigned local variable 'cnt'

Which is odd b/c the integer 'cnt' is defined just 3 lines above.

Eugene

#7

6/4/2010 4:38 PM

It is defined, but not assigned (properly):

CODE:
Please log in to see this code.

Should be:

CODE:
Please log in to see this code.

Sammy_G

#8

6/4/2010 4:45 PM

I see, thanks.

You think you or Cone can fix the Translator and release it as an updated version?

Cone

#9

6/4/2010 4:55 PM

No, we have nothing to do with the Translator or its support. Whenever I say "translate", I mean to do it yourself in pure C#.

If I had any time to spend on this, I would put my efforts there instead of dealing with WSTL.