{$I xxxx} - Inlcude equivalent in WL5 - Wealth Lab Forum

{$I xxxx} - Inlcude equivalent in WL5

Author: novendeh

Creation Date: 1/10/2010 6:44 PM

Wealth Lab » WealthScript (.NET) » {$I xxxx} - Inlcude equivalent in WL5

novendeh

#1

1/10/2010 6:44 PM

I'm just starting to convert my WL4 scripts to WL5, and am confused on how to use the equivalent of the Include in WL5. I have several scripts that are procedures/functions and want to use them in WL5

A little guidance would be appreciated. Many thanks.

EARL

novendeh

#2

1/10/2010 7:28 PM

Below is the original WL4 procedure, converted procedure, followed by the actual script, which references the procedure

CODE:
Please log in to see this code.

===================================================================

CODE:
Please log in to see this code.

===============================================================

CODE:
Please log in to see this code.

Size:

Color:

Below is the original WL4 procedure, converted procedure, followed by the actual script, which references the procedure

[CODE]
Procedure TimerInput( var hExt:Integer; var Number:string);

//Var Number:String;
BEGIN

Number := Input(   '1-Buy and Hold'
              +#13+'2-Strategic Trend Timer'
              +#13+'3-eBSO7'
              +#13+'4-AlphaKing'
              +#13+'5-MTR-TR'
              +#13+'6-TangoETF'
              +#13+'7-MC2X28'
              +#13+'8-CUp/Dn'
              +#13+'9-Two of Two Timers'
              );
var numberOrig:string;
NumberOrig:= Number;

If Number = '1' then Number := 'BH';
If Number = '2' then Number := 'STTimer';
If Number = '3' then Number := 'eBSO7';
If Number = '4' then Number := 'AlphaKing';
If Number = '5' then Number := 'MTR-TR';
If Number = '6' then Number := 'TangoETF';
If Number = '7' then Number := 'MC2X28';
If Number = '8' then Number := 'CUpDn';
If Number = '9' then Number := 'STT&AlfaKing2';

Print(Number);
// Plot Symbol
var  ExtPane, {hExt,} ExtPane1: integer;
var Bar, p: integer;
hExt := GetExternalSeries( Number, #Close);

ExtPane := CreatePane( 10, true, true );

PlotSeries( hExt, ExtPane, #Navy, #ThickHist ) ;
     PlotSymbol(Number, ExtPane, 558, #candle );
  DrawLabel( Number, ExtPane );

END;

{// following used to test

var TimerSeries:Integer;
var NameTimer:String;
TimerInput(TimerSeries,NameTimer);
//TimerSeries :=CreateSeries;
//timerseries :=divideSeriesvalue(TimerSeries,2) ;
print(floattostr(@TimerSeries[100]));  }

[/CODE]
===================================================================
[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 void TimerInput(int hExt, string Number){
    Number = (string)Input((((((((((((((((("1-Buy and Hold" + "\n") + "2-Strategic Trend Timer") + "\n") + "3-eBSO7") + "\n") + "4-AlphaKing") + "\n") + "5-MTR-TR") + "\n") + "6-TangoETF") + "\n") + "7-MC2X28") + "\n") + "8-CUp/Dn") + "\n") + "9-Two of Two Timers"));
    string numberOrig = null;
    numberOrig = (string)Number;
    if ((Number == "1")) Number = (string)"BH";
    if ((Number == "2")) Number = (string)"STTimer";
    if ((Number == "3")) Number = (string)"eBSO7";
    if ((Number == "4")) Number = (string)"AlphaKing";
    if ((Number == "5")) Number = (string)"MTR-TR";
    if ((Number == "6")) Number = (string)"TangoETF";
    if ((Number == "7")) Number = (string)"MC2X28";
    if ((Number == "8")) Number = (string)"CUpDn";
    if ((Number == "9")) Number = (string)"STT&AlfaKing2";
    PrintDebug(Number);
     /**  Plot Symbol */ 
    int ExtPane,  /** hExt, */ 
    ExtPane1 = 0;
     /**  Plot Symbol */ 
    int Bar, p = 0;
    hExt = (int)GetExternalSeries(Number, WL_CLOSE);
    ExtPane = (int)CreatePane(10, true, true);
    PlotSeries(hExt, ExtPane, WL_NAVY, WL_THICKHIST);
    PlotSymbol(Number, ExtPane, 558, WL_CANDLE);
    DrawLabel(Number, ExtPane);
    
}

/** 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 procedure TimerInput used to be here] 
    
}

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

#endregion file ChartScript[/CODE]

===============================================================
[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

/** COULD NOT FIND INCLUDE FILE TimerInput: ["TimerInput",<113>,line=1,col=1],ChartScript:1COULD NOT FIND INCLUDE FILE BuyAtMarket2: ["BuyAtMarket2",<113>,line=2,col=1],ChartScript:2COULD NOT FIND INCLUDE FILE YrToYrGain: ["YrToYrGain",<113>,line=3,col=1],ChartScript:3 */

public  /** COULD NOT FIND INCLUDE FILE YrToYrGain: ["YrToYrGain",<113>,line=3,col=1],ChartScript:3 */ 
int TimerSeries = 0;
public string NameTimer = null;
public  /** ================================================================= */ 
int Bar, 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] 
    
    TimerInput(TimerSeries, NameTimer);
    for (Bar = 20; Bar <= (Bars.Count - 1); Bar++) {
        if (IsLastPositionActive) {
            p = (int)LastPosition;
            if ((GetSeries(TimerSeries)[Bar] <= 1)) {
                SellAtMarket((Bar + 1), p, "");
                
            }
            
        }
        else {
            if ( ! IsLastPositionActive) {
                if ((GetSeries(TimerSeries)[Bar] > 1)) {
                    BuyAtMarket2((Bar + 1), "0");
                    
                }
                
            }
            
        }
        
    }
    YrToYrGain();
    
}

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

#endregion file ChartScript

[/CODE]

Eugene

#3

1/11/2010 2:47 AM

For sure, we have talked about this several times over these years on the forum. In this case, you need to think .NET. Reusable functions in .NET languages can be grouped in external assemblies (DLLs) and included in Strategies via "using ..." and/or by adding the assembly in the Editor's References dialog ("Other assemblies to reference..."). Of course, the method body (TimerInput in your case) should at first be compiled in an assembly using Visual Studio (Express) or SharpDevelop.

This is exactly how our Community.Components works, providing reusable functions/methods for saving trades, AutoStops, filling series from file, Chandelier stops, importing history of real trades etc.

Let us know if you have further questions.

novendeh

#4

1/11/2010 9:36 PM

Eugene - this goes beyond my ability to program and much more complex the the $I function in WL4. I think I'll just but TimerInput and other coding into the WL4 script and then use the translator.

Will this work?

Thanks.

EARL

Eugene

#5

1/12/2010 1:52 AM

Yes, it's more involved because WL5 doesn't have the built-in ability to reference reusable methods from other XML-based strategies.

If you save TimerInput in the directory with your exported Includes, WSTL should pick it up when a script being translated needs this function. Should work.

novendeh

#6

1/13/2010 5:58 PM

Eugene - what do you mean WSTL should pick it up when a script being translated needs this function? Do you mean that I would cut and paste the translated code into WL5.6?

Eugene

#7

1/14/2010 4:02 AM

I mean, set up a directory with all Includes (btw, a prerequisite for using WSTL) by exporting them manually using WL4, point WSTL to it, and you're ready to translate any script that possibly requires TimerInput.

novendeh

#8

1/15/2010 3:35 PM

Eugene - I'm still having trouble. Problem now is with GETEXTERNALSERIES

The actual translated code is below and the problem line is:

Problem Line

CODE:
Please log in to see this code.

Please let me know how to translate it with GETEXTERNALSYMBOL - I could figure out from dialogue on this site. Thanks.

All of translated Code

CODE:
Please log in to see this code.

Size:

Color:

Eugene - I'm still having trouble.  Problem now is with GETEXTERNALSERIES

The actual translated code is below and the problem line is:

Problem Line
[CODE]hExt = (int)GetExternalSeries(Number, WL_CLOSE);
[/CODE]

Please let me know how to translate it with GETEXTERNALSYMBOL - I could figure out from dialogue on this site.  Thanks.

All of translated Code
[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 void TimerInput(int hExt, string Number){
    Number = (string)Input((((((((((((((((("1-Buy and Hold" + "\n") + "2-Strategic Trend Timer") + "\n") + "3-eBSO7") + "\n") + "4-AlphaKing") + "\n") + "5-MTR-TR") + "\n") + "6-TangoETF") + "\n") + "7-MC2X28") + "\n") + "8-CUp/Dn") + "\n") + "9-Two of Two Timers"));
    string numberOrig = null;
    numberOrig = (string)Number;
    if ((Number == "1")) Number = (string)"BH";
    if ((Number == "2")) Number = (string)"STTimer";
    if ((Number == "3")) Number = (string)"eBSO7";
    if ((Number == "4")) Number = (string)"AlphaKing";
    if ((Number == "5")) Number = (string)"MTR-TR";
    if ((Number == "6")) Number = (string)"TangoETF";
    if ((Number == "7")) Number = (string)"MC2X28";
    if ((Number == "8")) Number = (string)"CUpDn";
    if ((Number == "9")) Number = (string)"STT&AlfaKing2";
    PrintDebug(Number);
     /**  Plot Symbol */ 
    int ExtPane,  /** hExt, */ 
    ExtPane1 = 0;
     /**  Plot Symbol */ 
    int Bar, p = 0;
    hExt = (int)GetExternalSeries(Number, WL_CLOSE);
    ExtPane = (int)CreatePane(10, true, true);
    PlotSeries(hExt, ExtPane, WL_NAVY, WL_THICKHIST);
    PlotSymbol(Number, ExtPane, 558, WL_CANDLE);
    DrawLabel(Number, ExtPane);
    
}
public  /**  following used to test */ 
int TimerSeries = 0;
public string NameTimer = null;

/** 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 procedure TimerInput used to be here] 
    TimerInput(TimerSeries, NameTimer);
     /** timerseries :=divideSeriesvalue(TimerSeries,2) ; */ 
    PrintDebug(FloatToStr(GetSeries(TimerSeries)[100]));
    
}

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

#endregion file ChartScript
[/CODE]

Eugene

#9

1/15/2010 5:45 PM

I can't advice how to mix WSTL generated code with WealthScript code, and have no idea if it works or not.

Probably it would be:

CODE:
Please log in to see this code.

novendeh

#10

1/16/2010 8:52 AM

Doesn't work. Thanks for suggestion.

Eugene

#11

1/16/2010 10:59 AM

Alas, mixing WSTL and native WealthScript code is not a good idea.

Here's the pure C# version of TimerInput. No WSTL required. Since the script is trivial, I translated it as well. Note: That nice Input dialog requires installing the Community.Components library from this site.

CODE:
Please log in to see this code.

Size:

Color:

Alas, mixing WSTL and native WealthScript code is not a good idea.

Here's the pure C# version of TimerInput. No WSTL required. Since the script is trivial, I translated it as well. [b]Note:[/b] That nice Input dialog requires installing the Community.Components library from this site.
[CODE]
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;
using Community.Components;

namespace WealthLab.Strategies
{
	public class MyStrategy : WealthScript
	{
		public DataSeries TimerInput()
		{
			string Number = Utility.Input( "1-Buy and Hold" + "\n" + "2-Strategic Trend Timer" + "\n" + "3-eBSO7" + "\n" + 
				"4-AlphaKing" + "\n" + "5-MTR-TR" + "\n" + "6-TangoETF" + "\n" + "7-MC2X28" + "\n" + "8-CUp/Dn" + 
				"\n" + "9-Two of Two Timers" );
			
			string sym = string.Empty;

switch (Number) 
			{
				case "1": sym = "BH"; break;
				case "2": sym = "STTimer"; break;
				case "3": sym = "eBSO7"; break;
				case "4": sym = "AlphaKing"; break;
				case "5": sym = "MTR-TR"; break;
				case "6": sym = "TangoETF"; break;
				case "7": sym = "MC2X28"; break;
				case "8": sym = "CUpDn"; break;
				case "9": sym = "STT&AlfaKing2"; break;
			}
			
			/**  Plot Symbol */ 
			Bars extSym = GetExternalSymbol(sym, true);
			DataSeries hExt = extSym.Close;
			ChartPane ExtPane = CreatePane(10, true, true);
			PlotSeries(ExtPane, hExt, Color.Navy, LineStyle.Solid, 2 );
			PlotSymbol(ExtPane, extSym, Color.Blue, Color.Red );
			DrawLabel(ExtPane, Number);
			
			return hExt;
    
		}
		
		protected override void Execute()
		{
			DataSeries TimerSeries = TimerInput();
			
			for(int bar = 20; bar < Bars.Count; bar++)
			{
				if (IsLastPositionActive)
				{
					Position p = LastPosition;
					if( TimerSeries[bar] <= 1)
						SellAtMarket( bar + 1, p );
				}
				else
				{
					if( TimerSeries[bar] > 1 )
						BuyAtMarket( bar + 1 );                    
				}
			}
		}
	}
}
[/CODE]

novendeh

#12

1/18/2010 4:18 PM

Eugene - works great and quite a bit different from WSTL. I never would have gotten it without your coding.

One last question - do I need to but this coding in every script or since it is compiled and saved as a script, will it automatically load it.

Thanks again.

EARL

Eugene

#13

1/18/2010 4:38 PM

Wealth-Lab 5 is .NET. No automatical loading unless function/method exists in a library; then, standard .NET conventions apply (add a reference + using directive - as mentioned above in my reply @ 1/11/2010 2:47 AM).

Wealth Lab » WealthScript (.NET) » {$I xxxx} - Inlcude equivalent in WL5

This website uses cookies to improve your experience. We'll assume you're ok with that, but you can opt-out if you wish (Read more).