Here is the translated script which is not working

sgubba

#1

2/7/2009 3:01 PM

Hi Eugene,
Here is the translated script which is not working....

CODE:
Please log in to see this code.

--

Size:

Color:

Hi Eugene,
Here is the translated script which is not working....

[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 double STARTPOINT, ENDPOINT, DIFF, MAXDIFF = 0.0;
public int STARTBAR, ENDBAR, BAR = 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] 
    
    STARTBAR = (int)(Bars.Count - 100);
    ENDBAR = (int)(Bars.Count - 1);
    STARTPOINT = (double)LinearRegLine(WL_CLOSE, STARTBAR, ENDBAR, STARTBAR);
    ENDPOINT = (double)LinearRegLine(WL_CLOSE, STARTBAR, ENDBAR, ENDBAR);
    DrawLine(STARTBAR, STARTPOINT, ENDBAR, ENDPOINT, 0, WL_BLUE, WL_THICK);
    MAXDIFF = (double)0;
    for (BAR = STARTBAR; BAR <= ENDBAR; BAR++) {
        DIFF = (double)Math.Abs((PriceClose(BAR) - LinearRegLine(WL_CLOSE, STARTBAR, ENDBAR, BAR)));
        if ((DIFF > MAXDIFF)) MAXDIFF = (double)DIFF;
        
    }
    DrawLine(STARTBAR, (STARTPOINT + MAXDIFF), ENDBAR, (ENDPOINT + MAXDIFF), 0, WL_NAVY, WL_DOTTED);
    DrawLine(STARTBAR, (STARTPOINT - MAXDIFF), ENDBAR, (ENDPOINT - MAXDIFF), 0, WL_NAVY, WL_DOTTED);
    
}

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

#endregion file ChartScript
[/CODE]
--

Eugene

#2

2/7/2009 3:41 PM

Please note that Dr.Koch is the developer of WealthScript Translator, so you need to greet him - not me ;)

On the surface, it looks like LinRegLine is not supported in WL5 along as in the current build of WSTL. As far as I remember, it was suggested to include in 5.4.

sgubba

#3

2/7/2009 4:17 PM

Thank you Eugene/Dr.Koch. I always try to include you, Cone, DrKoch and sometimes Fundtimer. I am a big phan of all four of you. :) Also I note the information about the person who made the script and save the script using their name in the script name. :)
Also fib scripts have similar issues. At some point translation of all the scripts in New downloads of 4.5 (published ones)would be very helpful. Especially top top 100 or so. Will be in touch.
Regards,
SG

Eugene

#4

2/8/2009 1:44 AM

Thank you. The reason I was stressing that is that we weren't involved in the WealthScript Translator development.

DartboardTrader

#5

2/9/2009 10:48 AM

WL5's LineExtendY works well as an equivalent to WL4's LinearRegLine.

Run the below code, is it equivalent to what you see in WL4?

CODE:
Please log in to see this code.

--Mike

Size:

Color:

WL5's LineExtendY works well as an equivalent to WL4's LinearRegLine.

Run the below code, is it equivalent to what you see in WL4?

[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
	{
		protected double LinearRegLine2(DataSeries ds, int x1, int x2, int x3)
		{
			return LineExtendY( x1, ds[x1], x2, ds[x2], x3 );
		}

#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 double STARTPOINT, ENDPOINT, DIFF, MAXDIFF = 0.0;
		public int STARTBAR, ENDBAR, BAR = 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] 
    
			STARTBAR = (int)(Bars.Count - 100);
			ENDBAR = (int)(Bars.Count - 1);
			STARTPOINT = (double)LinearRegLine2(Close, STARTBAR, ENDBAR, STARTBAR);
			ENDPOINT = (double)LinearRegLine2(Close, STARTBAR, ENDBAR, ENDBAR);
			DrawLine(STARTBAR, STARTPOINT, ENDBAR, ENDPOINT, 0, WL_BLUE, WL_THICK);
			MAXDIFF = (double)0;
			for (BAR = STARTBAR; BAR <= ENDBAR; BAR++) {
				DIFF = (double)Math.Abs((PriceClose(BAR) - LinearRegLine2(Close, STARTBAR, ENDBAR, BAR)));
				if ((DIFF > MAXDIFF)) MAXDIFF = (double)DIFF;
        
			}
			DrawLine(STARTBAR, (STARTPOINT + MAXDIFF), ENDBAR, (ENDPOINT + MAXDIFF), 0, WL_NAVY, WL_DOTTED);
			DrawLine(STARTBAR, (STARTPOINT - MAXDIFF), ENDBAR, (ENDPOINT - MAXDIFF), 0, WL_NAVY, WL_DOTTED);
    
		}

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

#endregion file ChartScript
[/CODE]

--Mike

sgubba

#6

2/9/2009 11:03 AM

Hi Mike,
Thanks for the script. Nice of you. I ran the script but I don't see any drawings on the chart with exception of dark brown bars here and there. Meanwhile I will review the script again to see if I did anything wrong my side. Please look into the code and reply.
Regards
SG

Eugene

#7

2/9/2009 11:16 AM

The script draws three lines. What are your data loading settings? Time frame? Which symbol?

sgubba

#8

2/9/2009 11:46 AM

It's really funny. Now it is working. I just closed a while ago since I didn't see anything. I just opened and tried. It is working. Thanks to both of you. -SG