Porting 4.0 to 5.0 - Wealth Lab Forum

reds

#1

9/16/2010 1:02 AM

Robert or Eugene,

Big favor to ask of you. If either of you get any downtime I could really use your help porting the below 4.0 code to 5.0. I have put off the inevitable long enough and need to move to 5.0. This script covers all my 4.0 needs and if ported to 5.0 would allow me to build derivative systems using this as a template. If gbeltrame or ft were around I'd leave this "dirty" work to their expertise but the old crowd has moved on.

Thanks,

Mike

CODE:
Please log in to see this code.

Size:

Color:

Robert or Eugene,

Big favor to ask of you. If either of you get any downtime I could really use your help porting the below 4.0 code to 5.0. I have put off the inevitable long enough and need to move to 5.0. This script covers all my 4.0 needs and if ported to 5.0 would allow me to build derivative systems using this as a template. If gbeltrame or ft were around I'd leave this "dirty" work to their expertise but the old crowd has moved on.

Thanks,

Mike

[code]
{$I 'EnterAtPrice'}
{$I 'ExitAllAtPrice'}

var sym: array[1..9] of string;
var name: array[1..9] of string;

var o: array[1..9] of integer;
var h: array[1..9] of integer;
var l: array[1..9] of integer;
var c: array[1..9] of integer;

var Multiple: array[1..8] of float;
var i, Bar, Period, MAPeriod, ROCPane,ROCModel,ROCPeriod: integer;
var CombinedROC: integer;
var ROC_MA, MaxInt: integer;
var x: float;
var ind1, ind2, ind3, ind4, ind5, ind6, ind7, ind8 : float;

begin
AllowSymbolSearch('All Items in System_TC2007');
AllowSymbolSearch('Pinnacle_IDX_Data');
If (GetSymbol = 'QQQQ') or (GetSymbol = 'IWM')
then
begin
MaxInt := 8 ;
sym[1] := 'XLE';sym[2]:= 'XLK' ; sym[3]:= 'XLF'; sym[4] := 'DELL';sym[5]:= 'SSEC-X' ; sym[6]:= 'EWZ'; sym[7] := 'EZU'; sym[8]:= 'IEV';
Multiple[1] := 0.43 ; Multiple[2] := 1.07 ; Multiple[3] := -0.49 ;Multiple[4] := -0.59 ; Multiple[5] := -0.60 ; Multiple[6] := 1.46 ; Multiple[7] := 0.41 ; Multiple[8] := -0.25 ;
ROCModel := 24;
end

else
If (GetSymbol = 'SPY')  or (GetSymbol = 'XLU')
then
begin
MaxInt := 8 ;
sym[1] := 'IBM';sym[2]:= 'INTC'  ;sym[3]:= 'DELL'; sym[4] := 'SPY';sym[5]:= 'LRCX'  ;sym[6]:= 'NWX--X'; sym[7] := 'RMZ-X';sym[8]:= 'HMO--X';
Multiple[1] := 0.11 ; Multiple[2] := 0.62 ; Multiple[3] := 1.91 ;Multiple[4] := -0.25 ; Multiple[5] := 0.71 ; Multiple[6] := -0.44 ; Multiple[7] := 0.90 ; Multiple[8] := 0.05 ;
ROCModel := 20;
end

else
begin
MaxInt := 8 ;
sym[1] := 'PCAC-X';sym[2]:= 'EUR--X' ; sym[3]:= 'FTSE-X'; sym[4] := 'XPH';sym[5]:= 'RMN--X' ; sym[6]:= 'FUD'; sym[7] := 'ADRA'; sym[8]:= 'IXCO-X';
Multiple[1] := 1.20 ; Multiple[2] := -0.43 ; Multiple[3] := 0.25 ;Multiple[4] := 0.91 ; Multiple[5] := -1.30 ; Multiple[6] := 0.45 ; Multiple[7] := 1.61 ; Multiple[8] := 0.47 ;
ROCModel := 20;
end
end;

Period :=   1;
MAPeriod := 1;
ROCPeriod := 1;

SetScaleWeekly;
{ Get the handle of the closing price for each of the symbols }
for i := 1 to MaxInt do
begin
  o[i] := GetExternalSeries( sym[i], #Open );
  h[i] := GetExternalSeries( sym[i], #High );
  l[i] := GetExternalSeries( sym[i], #Low );
  c[i] := GetExternalSeries( sym[i], #Close );
  DrawLabel( 'Symbol ' + IntToStr( i ) + ' = ' + sym[i], 0 );

end;

{ Create Combined ROC }
CombinedROC := CreateSeries;
If ROCModel = 20 then
begin
for Bar := 30 to BarCount - 1 do
begin
  ind1 := 0;
  for i := 1 to 1 do
  begin
    ind1 := ind1 + (((((SMA( Bar, o[i], 1))-(SMA( Bar,  c[i], 1)))/SMA( Bar,  c[i], 1) )*100)* Multiple[i]);
  end;
  ind2 := 0;
  for i := 2 to 2 do
  begin
    ind2 := ind2 + (((((SMA( Bar, o[i], 1))-(SMA( Bar,  c[i], 1)))/SMA( Bar,  c[i], 1) )*100)* Multiple[i]);
  end;
  ind3 := 0;
  for i := 3 to 3 do
  begin
    ind3 := ind3 + (((((SMA( Bar, o[i], 1))-(SMA( Bar, c[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;
  ind4 := 0;
  for i := 4 to 4 do
  begin
    ind4 := ind4 + (((((SMA( Bar, o[i], 1))-(SMA( Bar, c[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;
  ind5 := 0;
  for i := 5 to 5 do
  begin
    ind5 := ind5 + (((((SMA( Bar, o[i], 1))-(SMA( Bar, c[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;
  ind6 := 0;
  for i := 6 to 6 do
  begin
    ind6 := ind6 + (((((SMA( Bar, h[i], 1))-(SMA( Bar, c[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;
  ind7 := 0;
  for i := 7 to 7 do
  begin
    ind7 := ind7 + (((((SMA( Bar, h[i], 1))-(SMA( Bar,  c[i], 1)))/SMA( Bar,  c[i], 1) )*100)* Multiple[i]);
  end;
  ind8 := 0;
  for i := 8 to 8 do
  begin
    ind8 := ind8 + (((((SMA( Bar, h[i], 1))-(SMA( Bar, c[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;

x :=0;
  for i := 1 to MaxInt do
  begin
  x:= Ind1 + Ind2 + Ind3 + Ind4 + Ind5 + Ind6 + Ind7 + Ind8;
  end;
  SetSeriesValue( Bar, CombinedROC, x );
end;
end;

If ROCModel = 24 then
begin
for Bar := 1 to BarCount - 1 do
begin
  ind1 := 0;
  for i := 1 to 1 do
  begin
    ind1 := ind1 + (((((SMA( Bar, o[i], 1))-(SMA( Bar , c[i], 1)))/SMA( Bar , c[i], 1) )*100)* Multiple[i]);
  end;
  ind2 := 0;
  for i := 2 to 2 do
  begin
    ind2 := ind2 + (((((SMA( Bar, h[i], 1))-(SMA( Bar ,  c[i], 1)))/SMA( Bar ,  c[i], 1) )*100)* Multiple[i]);
  end;
  ind3 := 0;
  for i := 3 to 3 do
  begin
    ind3 := ind3 + (((((SMA( Bar, c[i], 1))-(SMA( Bar , l[i], 1)))/SMA( Bar , c[i], 1) )*100)* Multiple[i]);
  end;
  ind4 := 0;
  for i := 4 to 4 do
  begin
    ind4 := ind4 + (((((SMA( Bar, c[i], 1))-(SMA( Bar, l[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;
  ind5 := 0;
  for i := 5 to 5 do
  begin
    ind5 := ind5 + (((((SMA( Bar, c[i], 1))-(SMA( Bar, l[i], 1)))/SMA( Bar, c[i], 1) )*100)* Multiple[i]);
  end;
  ind6 := 0;
  for i := 6 to 6 do
  begin
    ind6 := ind6 + (((((SMA( Bar, c[i], 1))-(SMA( Bar -1, c[i], 1)))/SMA( Bar -1, c[i], 1) )*100)* Multiple[i]);
  end;
  ind7 := 0;
  for i := 7 to 7 do
  begin
    ind7 := ind7 + (((((SMA( Bar, c[i], 1))-(SMA( Bar -1,  c[i], 1)))/SMA( Bar -1,  c[i], 1) )*100)* Multiple[i]);
  end;
  ind8 := 0;
  for i := 8 to 8 do
  begin
    ind8 := ind8 + (((((SMA( Bar, c[i], 1))-(SMA( Bar -1, c[i], 1)))/SMA( Bar -1, c[i], 1) )*100)* Multiple[i]);
  end;

x :=0.0;
  for i := 1 to MaxInt do
  begin
  x:= Ind1 + Ind2 + Ind3 + Ind4 + Ind5 + Ind6 + Ind7 + Ind8;
  end;
  SetSeriesValue( Bar , CombinedROC, x );
end;
end;

RestorePrimarySeries;

CombinedROC := DailyFromWeekly( CombinedROC );

const Dir = 'C:\Data\WeeklyData\';
var k: integer;
var ind : float;
var u: string;

//Create the File
k := FileCreate( Dir + GetSymbol + '.txt' );
for Bar := 60 to BarCount - 1 do
begin
//Create a string that contains date and indicator values
ind := @CombinedRoc[bar];
  u := FloatToStr( GetDate( Bar ) ) + ',' +
    FloatToStr( ind) ;
//Write it to the file
  FileWrite( k, u );
end;

{ Plot Combined ROC, and it's MA }
ROCPane := CreatePane( 80, true, true );
PlotSeries( CombinedROC, ROCPane, #Green, #Thick );
ROC_MA := SMASeries( CombinedROC, MAPeriod );
PlotSeries(ROC_MA, ROCPane, 020, #Thick );
DrawLabel( 'Combined ROC(' + IntToStr( Period ) + ') and ' + IntToStr( MAPeriod ) +
  ' period SMA', ROCPane );

//InstallStopLoss (3);

var ThresholdLong,ThresholdShort, ROC2,xxx : float;

var bcm1: integer = BarCount -1;
for Bar := 1 to bcm1 do
begin
 ApplyAutostops(bar);
// Only process trading at the end of the week
      if Bar < bcm1 then
        if DayOfWeek( Bar + 1 ) > DayOfWeek( Bar ) then
          continue;

// This is the last bar of the week (usualy Friday), so trades will occur on the next bar (usually Monday)
      SetPaneBackgroundColor(Bar, ROCPane, #BlueBkg);

x :=  GetSeriesValue( Bar ,  ROC_MA );
      If (GetSymbol = 'SDS') or (GetSymbol = 'SKF') or (GetSymbol = 'SDD') or (GetSymbol = 'QID')
      then
      begin
      x:= x*-1 ;
      ThresholdLong :=  0; //0
      ThresholdShort := -999999999;
      end
      else
      //use only for Inverse funds where there is no Long fund..allows to go long & short in theory
      If (GetSymbol = 'TBT') or (GetSymbol = 'TYO') or (GetSymbol = 'TMV')
      then
      begin
      x:= x*-1 ;
      ThresholdLong :=  0; //0
      ThresholdShort := -1;//-1
      end
      else
      If  (GetSymbol = 'SSO') or (GetSymbol = 'QLD') or (GetSymbol = 'MVV') or (GetSymbol = 'UWM')
      then
      begin
      x:= x;
      ThresholdLong := 1;  //1
      ThresholdShort := -999999999;
      end
      else
      begin
       x:= x;
      ThresholdLong :=  1.0;// 1.0
      ThresholdShort := -1.0;   //0
      end;
      
  var price: integer =
  DivideSeriesValue( AddSeries( AddSeries( #Open, #High ), AddSeries( #Low, #Close ) ), 4 );

if MarketPosition = 1 then
      begin
          if (x < ThresholdLong)
          then
           ExitAllAtPrice (bar +1,@price[bar +1],'Longggg');
      end
      else if MarketPosition = -1 then
      begin
          if (x > ThresholdShort)
          then
          ExitAllAtPrice(bar +1,@price[bar +1],'Shorttt');
      end;

if activepositioncount < 1 {and (DayOfWeek( Bar ) <> #Friday)}
      then
      begin
      if (x > ThresholdLong )
     //  if (PriceClose(bar  ) >  EMA(bar  ,#Close,20))   and (x > ThresholdLong )
         then
         begin
          EnterAtPrice( bar +1,@price[bar +1],'Long','tt');
         end
         else
      if  (x < ThresholdShort)
      //   if (PriceClose(bar  ) < EMA(bar  ,#Close,20)) and  (x < ThresholdShort)
           then
           begin
           EnterAtPrice( bar +1,@price[bar +1 ],'Short','');
           end;
      end;
    end;
[/code]

Eugene

#2

9/16/2010 5:32 AM

Some thoughts upon reviewing your chartscript:

1. Its readability would greatly benefit from turning repetitive spaghetti code to procedural, and even introducing a custom class to hold symbol data (such as x, ThresholdLong, ThresholdShort etc.)

2. The Combined ROC is crying to get implemented outside of a WealthScript Strategy - as an IndexDefintition (actually, there seem to be 3 distinct indices based on different data sets). You'd then use the Index Manager to create as many Combined ROC indices as you need based on existing DataSets and/or AronowSoftware's WatchLists, using the GUI dialog for configuring those multiples (i.e. Multiple[n])

Due to the complexity involved, sounds like a perfect candidate for our upcoming MarketPlace. Meanwhile, have you already tried Wealthscript Translator on this code?

dansmo

#3

9/16/2010 6:01 AM

@ Eugene
"for our upcoming MarketPlace"
Can you give more info on that?
btw: when I visit the forums "Support" is highlighted on the upper menu on the page.

reds

#4

9/16/2010 8:44 AM

Hi Eugene,

I do not think the Translator tool works with external series, at least not the last time I tried.

Your ideas about procedural, custom class, IndexDefinition etc...most likely what I need to streamline this from 4.0 to 5.0 but I am looking for this example to be ported and then use that port as a path to 5.0 with a script or code.

It is repetitive so it is not as long as the number of lines indicate.

What is MarketPlace? Outside of Robert, you and Dave do you know of any other 5.0 experts that could tackle this job?

Thanks,

Mike

Eugene

#5

9/16/2010 8:56 AM

Dan/Mike,

The MarketPlace is a medium to connect customers (i.e. non-programmers) with contractors (programmers) willing to take the opportunity on a paid basis.

Mike,

As an example, this code would be pretty terrible.

To clarify my #1...

Here's what you're doing currently:

1. Determine current symbol
2. Set up the custom array of external symbols with custom weights
3. Set scale to weekly
4. Retrieve the OHLC of the corresponding external symbol
5. Based on the ext. symbol's data, actually calculate this value (I dropped the SMA(x),1 - no apparent reason for this):

value = ((((Open-Close[bar-1])/Close[bar-1] )*100)* Multiple);

6. Repeat previous step 8 times for no apparent reason

And here's what I'm proposing:

1. Program* an IndexDefinition with GUI inputs for multiples
2. Set up a DataSet or a Dave Aronow's WatchList with exactly those 8 symbols
3. Create and update the 3 indices: one for QQQQ or IWM), another for SPY and XLU, and the last one for all the rest.
4. SetScaleWeekly in your new Strategy
5. Just like the User Guide suggests in Index-Lab > Using Indexes, use the index symbols in the same way as other secondary symbols.

* I'm not suggesting you do this, of course, it's an above-average job involving a C# IDE (like Visual Studio) and a (currently) undocumented IndexDefinition interface.

The trading part of the script is less complicated. Thoughts?

reds

#6

9/16/2010 9:18 AM

Hi Eugene,

Without your proposed #1 how would you get the multiples for each component of the index?

Could it be done in 5.0 with your #1 taking a simpler, more direct form?

Could you create a template on 5.0 for me to work with?

Thanks,

Mike

Eugene

#7

9/16/2010 11:55 AM

Mike, I noticed you keep mentioning 5.0 and therefore suggest upgrading to 6.0 if you've not already done so (Index-Lab is built-in).

OK, the solution involving #1 would be elegant - maybe we return here at a later stage. Here's a quick rewrite of your code w/o the file dump part (I leave this up to you). Some nuances were omitted for clarity, they can be added later.

Notes:

1. I didn't test it thoroughly.
2. AllowSymbolSearch isn't supported in Wealth-Lab 6, so I left some code commented there in case you decide to specify certain DataSets/WatchLists.
3. Code requires Community Components installed from "Extensions" (and WLP restarted after the fact) for EnterAtPrice/ExitAtPrice to function. We don't have ExitAllAtPrice but your code is single position so it's not required.

CODE:
Please log in to see this code.

Size:

Color:

Mike, I noticed you keep mentioning 5.0 and therefore suggest upgrading to 6.0 if you've not already done so (Index-Lab is built-in).

OK, the solution involving #1 would be elegant - maybe we return here at a later stage. Here's a quick rewrite of your code w/o the file dump part (I leave this up to you). Some nuances were omitted for clarity, they can be added later.

Notes:

1. I didn't test it thoroughly.
2. [i]AllowSymbolSearch[/i] isn't supported in Wealth-Lab 6, so I left some code commented there in case you decide to specify certain DataSets/WatchLists.
3. Code requires Community Components installed from "Extensions" (and WLP restarted after the fact) for EnterAtPrice/ExitAtPrice to function. We don't have ExitAllAtPrice but your code is single position so it's not required.

[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 SymbolData
	{
		public int MaxInt; public string[] symbols; public double[] multiples; public int ROCModel;
		
		public SymbolData( int MaxInt, string[] symbols, double[] multiples, int ROCModel )
		{
			this.MaxInt = MaxInt; this.symbols = symbols;
			this.multiples = multiples; this.ROCModel = ROCModel;
		}		
	}
	
	public class MyStrategy : WealthScript
	{
		protected override void Execute()
		{
			string GetSymbol = Bars.Symbol;
			SymbolData sd = null; 
			int MAPeriod = 1;
			
			if( (GetSymbol == "QQQQ") || (GetSymbol == "IWM") )
			{
				sd = new SymbolData( 8,
					new string[]{ "XLE","XLK","XLF","DELL","SSEC-X","EWZ","EZU","IEV" },
					new double[]{ 0.43,1.07,-0.49,-0.59,-0.60,1.46,0.41,-0.25 },
					24 );
			}
			else
				if( (GetSymbol == "SPY") || (GetSymbol == "XLU") )
			{
			
				sd = new SymbolData( 8,
					new string[]{ "IBM","INTC","DELL","SPY","LRCX","NWX--X","RMZ-X","HMO--X" },
					new double[]{ 0.11,0.62,1.91,-0.25,0.71,-0.44,0.90,0.05 },
					20 );
			}
			else
			{
				sd = new SymbolData( 8,
					new string[]{ "PCAC-X","EUR--X","FTSE-X","XPH","RMN--X","FUD","ADRA","IXCO-X" },
					new double[]{ 1.20,-0.43,0.25,0.91,-1.30,0.45,1.61,0.47 },
					20 );
			}
	
			SetScaleWeekly();
			
			DataSeries CombinedROC = new DataSeries( Bars, "CombinedROC" );
			DataSeries MACombinedROC = new DataSeries( Bars, string.Concat("MACombinedROC","(",MAPeriod,")") );
			DataSeries[] o = new DataSeries[sd.MaxInt];
			DataSeries[] h = new DataSeries[sd.MaxInt];
			DataSeries[] l = new DataSeries[sd.MaxInt];
			DataSeries[] c = new DataSeries[sd.MaxInt];

//Uncomment this for "AllowSymbolSearch"
			//string dataSetName = "All Items in System_TC2007";
			
			// Get the handle of the closing price for each of the symbols
			for( int i = 0; i < sd.MaxInt; i++ )
			{
				o[i] = GetExternalSymbol( sd.symbols[i], true ).Open;
				h[i] = GetExternalSymbol( sd.symbols[i], true ).High;
				l[i] = GetExternalSymbol( sd.symbols[i], true ).Low;
				c[i] = GetExternalSymbol( sd.symbols[i], true ).Close;
			
				//Uncomment this for "AllowSymbolSearch"
				/*o[i] = GetExternalSymbol( dataSetName, sd.symbols[i], true ).Open;
				h[i] = GetExternalSymbol( dataSetName, sd.symbols[i], true ).High;
				l[i] = GetExternalSymbol( dataSetName, sd.symbols[i], true ).Low;
				c[i] = GetExternalSymbol( dataSetName, sd.symbols[i], true ).Close;*/
				
				DrawLabel( PricePane, string.Concat( "Symbol ", i, " = ", sd.symbols[i] ) );
			}
			
			for(int bar = 30; bar < Bars.Count; bar++)
			{
				double ind = 0;
				for( int i = 0; i < sd.MaxInt; i++ )
				{
					if( sd.ROCModel == 20 )
					{
						if( i < 5 ) 
							ind += ((((o[i][bar]-c[i][bar-1])/c[i][bar-1] )*100)* sd.multiples[i]);
						else
							ind += ((((h[i][bar]-c[i][bar-1])/c[i][bar-1] )*100)* sd.multiples[i]);	
					}
					else
						if( sd.ROCModel == 24 )
					{
						if( i == 0 )
							ind += ((((o[i][bar]-c[i][bar-1])/c[i][bar-1] )*100)* sd.multiples[i]);
						else
							if( i == 1 )
								ind += ((((h[i][bar]-c[i][bar-1])/c[i][bar-1] )*100)* sd.multiples[i]);
							else
								ind += ((((c[i][bar]-c[i][bar-1])/c[i][bar-1] )*100)* sd.multiples[i]);
					}
				}
				if( !double.IsInfinity( ind ) && !double.IsNaN( ind ) )
					CombinedROC[bar] = ind;
				else
					CombinedROC[bar] = 0;
			}
			
			MACombinedROC = SMA.Series( CombinedROC, MAPeriod ) ;
			RestoreScale();
			
			CombinedROC = Synchronize( CombinedROC );
			MACombinedROC = Synchronize( MACombinedROC );
			
			// Write to file part skipped

// Plot Combined ROC, and it's MA
			ChartPane ROCPane = CreatePane( 40, true, true );
			PlotSeries( ROCPane, CombinedROC, Color.Green, WealthLab.LineStyle.Solid, 3 );
			PlotSeries( ROCPane, MACombinedROC, Color.DarkGreen, WealthLab.LineStyle.Solid, 3 );
			
			// Trading part

double x = 0; double ThresholdLong = 0; double ThresholdShort = 0;
			DataSeries price = ( Open+High+Low+Close ) / 4;
			// Create an instance of the PositionHelper class, passing WealthScript as "this"
			PositionHelper ph = new PositionHelper( this );

int bcm1 = Bars.Count-1;
			for(int bar = 1; bar <= bcm1; bar++)
			{
				if( bar < bcm1 && Date[bar+1].DayOfWeek > Date[bar+1].DayOfWeek )
					continue;
				x = MACombinedROC[bar];
				
				switch(Bars.Symbol)       
				{         
					case "TBT": case "TYO": case "TMV":
						x *= -1 ;
						ThresholdLong = 0;
						ThresholdShort = -999999999;
						break;                  
					case "SSO": case "QLD": case "MVV": case "UWM":
						ThresholdLong = 1;
						ThresholdShort = -999999999;
						break;    
					default:            
						ThresholdLong = 1.0;
						ThresholdShort = -1.0;
						break;      
					}
				
				if (IsLastPositionActive)
				{
					Position p = LastPosition;
					if( p.PositionType == PositionType.Long )
					{
						if (x < ThresholdLong)
							ph.ExitAtPrice(Bars, bar+1, LastPosition, price[bar+1], "Longggg");
					}
					else
					{
						if (x > ThresholdShort)
							ph.ExitAtPrice(Bars, bar+1, LastPosition, price[bar+1], "Shorttt");
					}						
				}
				else
				{
					if (x > ThresholdLong )
						ph.EnterAtPrice(Bars, bar+1, price[bar+1], PositionType.Long, "tt");
					else
					if  (x < ThresholdShort)
						ph.EnterAtPrice(Bars, bar+1, price[bar+1], PositionType.Short, "");
				}
			}
		}
	}
}[/CODE]

reds

#8

9/16/2010 2:44 PM

Eugene,

Thank you very much!

Mike

reds

#9

9/17/2010 1:17 PM

Hi Eugene,

As it is coded in 6.0 the plotted CombinedROC values change each time I change the starting date of the chart. If I start in 2002, I end up a tone value and if I start in 2008 I end at a different value. In WL 4.5, the ending value for CombinedROC always ends at the same calculated value regardless of start point.

The weekly closing value, the last value charted, should be the same from week to week and not build upon previous values.

Also, it seems to wait a day ti enter a new position if it is exiting an existing position. For example it will sell if below threshold on Monday but not take the short until Tuesday. In the 4.0 code, it would sell on Monday and go short on the same bar. I do not see a tab in 6.0 to allow same bar at close orders.

Lastly,although it compiled and ran, a few errors generated. The g=first was "runtime error:index was out if range. must be non-negative and less the size of the collection". There were a few others as well and they might stem from this first error but I cannot seem to copy the list of errors from the lower pane.

Thanks,

Mike

Eugene

#10

9/18/2010 4:06 AM

Hi Mike,

QUOTE:
The weekly closing value, the last value charted, should be the same from week to week and not build upon previous values.

My bad. I was using the new "old" method GetExternalSeries and didn't ensure proper synchronization afterwards. Either copy the updated code above or just replace these lines:

CODE:
Please log in to see this code.

With this fixed code:

CODE:
Please log in to see this code.

Hope the issue goes away.

QUOTE:
The g=first was "runtime error:index was out if range. must be non-negative and less the size of the collection".

Ensure that all the hard-coded symbols exist in your DataSets.

QUOTE:
but I cannot seem to copy the list of errors from the lower pane.

Right, and I guess the developers had a good reason for making it impossible.

QUOTE:
Also, it seems to wait a day ti enter a new position if it is exiting an existing position.

The implementation of trading rules was nothing but a quick approximation, as my main focus was on getting the complex part done i.e. rewrite the CombinedROC spaghetti code and make it as comprehensible and manageable as possible. I leave the trading rules job up to you to learn and to practice.

reds

#11

9/18/2010 5:57 AM

Eugene,

QUOTE:
Right, and I guess the developers had a good reason for making it impossible.

Ha Ha!!

I am working with the C# code and will say it is not that far off from the 4.0 code.

Well done..thank you!

Thanks again,

Mike

reds

#12

9/18/2010 6:10 AM

Hi Eugene,

Error is still there..."Index out if Range" followed by other descriptions.

If I change this

CODE:
Please log in to see this code.

to this

CODE:
Please log in to see this code.

the error goes away but the number of trades decreases considerably. If you have any ideas let me know & I will continue to work on the trade logic.

I also cannot find the synchronization tab in the Tools section that was there in 4.0. Visually, I like to to see the Chart CombinedROC indicator plotted with Option #2, "Compressed bar available on first bar of period". can this be set in 6.0?

Thanks,

Mike

Eugene

#13

9/18/2010 7:56 AM

QUOTE:
If you have any ideas let me know & I will continue to work on the trade logic.

I guess it takes...

CODE:
Please log in to see this code.

QUOTE:
I also cannot find the synchronization tab in the Tools section that was there in 4.0. Visually, I like to to see the Chart CombinedROC indicator plotted with Option #2, "Compressed bar available on first bar of period". can this be set in 6.0?

For simplification, this option was removed. Visit the Wealth-Lab Wiki to learn the WL6 way of doing things: Compressed price series alignment.

reds

#14

9/18/2010 2:24 PM

Eugene,

I am making progress and have it pretty much matching trades in 4.0 :-)

I'd like to add a condition to Buy the Close must be greater than the 20 day SMA of the Close.

CODE:
Please log in to see this code.

but it generates an error that you cannot use ">" cannot be applied to operands of type double and Wealthlab.Indicators.SMA

Thanks,

Mike

Eugene

#15

9/18/2010 3:12 PM

Sounds great. :)

You're just missing a "[bar]" after SMA.Series... -- make sure you checked out DataSeries > Accessing a Single Value from a DataSeries in the WealthScript Programming Guide.

reds

#16

9/19/2010 7:18 PM

Eugene,

I can't find the autostops, except for an auto-trailing stop. Are they gone or can you point me to them?

Also, Lead Bars, can that be set in 6.0? In 4.0 I set it to 0, began a CS with date equal to 1/1/2008 and trades were generated the second week of January. In 6.0, I cannot seem to set Lead Bars and when I set the start date to 1/1/2008, the first trades are not until August 2008 and then line up with 4.0 from that point forward.

Thanks,

Mike

Eugene

#17

9/20/2010 1:21 AM

Re: AutoStops - they were removed in 5.0, but thanks to Dave Aronow, Community Components have them again as a set of methods: AutoStops. However I suggest to not use autostops and program your stops manually, it's not that complicated.

Re: lead bars - see Wealth-Lab Wiki FAQ | "Missing" features > Where did the Lead Bars go? I heard Fidelity would offer a Lead Bars replacement feature as soon as in 6.1.

reds

#18

9/20/2010 7:48 AM

Continuing to look around 6.0 and effects of changing parameters.

I noticed if I set the date range from 1/1/2008 to present the code trades correctly. If I set it to all data it generates an error message, "Cannot plot a dataseries that contains infinity" and a few other follow-up errors.

What would cause this? Is it because of the external series do not have identical history and the overlap is not from the same starting point? In 4.0 it would run and include the input as it started trading.

BTW, I agree with AutoStops and only used them to quickly test a variety of stop methods but final version of code will always have them hardcoded. I already hardcoded the stops - very straightforward!

Mike

Eugene

#19

9/22/2010 5:41 AM

Hi Mike,

QUOTE:
I noticed if I set the date range from 1/1/2008 to present the code trades correctly. If I set it to all data it generates an error message, "Cannot plot a dataseries that contains infinity" and a few other follow-up errors.

Good catch. Replace this code line;