Hershey Equity 5.0 - Wealth Lab Forum

coolgramps

#1

12/13/2008 12:31 PM

I attempted to translate a Hershey script to WL 5 from WL 4.5 and I got 3 errors.
They were
cannot find file MACDEx
cannot find file GetNewDUData
cannot find file GetTBRZTrendLines.

Here is the script- can anyone help me?

CODE:
Please log in to see this code.

Thanks

Size:

Color:

I attempted to translate a Hershey script to WL 5 from WL 4.5 and I got 3 errors.
They were
cannot find file MACDEx
cannot find file GetNewDUData
cannot find file GetTBRZTrendLines.

Here is the script- can anyone help me?

[code]{$I 'MACDEx'}
{$I 'GetNewDUData'}
{$I 'GetTBRZTrendLines'}

const Period = 20;
const StochThresh = 25;
const StochExit = 80;
const MACDdrop = 0.1450;

var bar : integer;
var td : TDuData = GetNewDUData(60);
var mo1, mo2, mo3, mo4, mo5, retrace, F, count, lastlowbar, X, P, cyclelength, days, days1, days2, days3, days4, days5, RankSignal : integer;
var BarTotal, B1a, B2a, B3a, B4a, B5a, B6a, B7a, B8a, B9a, B10a, N, PV, du, du1, du2, du3, du4, du5, gain, gain1, gain2, gain3, gain4, gain5, averagegain : float;
var volpane : integer = Createpane(120, false, true);
var curVol : float = VOLUME(Barcount-1);
var preVol : float = VOLUME(Barcount-2);
var val1 : integer =  5;
var val2 : integer = 13;
var val3 : integer = 6;
var MHistMACD : integer = SubtractSeries( MACDExSeries( #Close, val1, val2 ), EMASeries( MACDExSeries( #Close, val1, val2 ), val3 ) );
var macdh : integer = MultiplySeriesValue (MHistMACD, 3);
var macdhistPane : integer = CreatePane(100, false, true);
var stochPane : integer = CreatePane(100, false, false);
var stochPane2 : integer = CreatePane(100, false, false);
var VolSDPane : integer = CreatePane(100, false, false);
var PriceSDPane : integer = CreatePane(100, false, false);
var HersheyStochK2 : integer = StochDSeries(5, 2);
var HersheyStochD2 : integer = SMASeries(HersheyStochK2, 3);
var HersheyStochK : integer = StochDSeries(14, 1);
var HersheyStochD : integer = SMASeries(HersheyStochK, 3);
var StopOffset, StopOffsetPercent : float;
var Slope: float = (Period - 1) * LinearRegSlope(BarCount - 1, #Average, Period);
var Intercept: float = LinearReg(BarCount - 1, #Average, Period);
var Width: float = 2 * StdError(BarCount - 1, #Average, Period);

{Scoring Function}
function calcPVADScore() : integer;
begin
      var Score : integer = 0 ;
      var BopTBSeries : integer = SMASeries( BOPSeries, 1 );

if (@#Close[BarCount - 1] > 1.01 * @#Close[BarCount - 2]) then
         Score := Score + 4;

if (@#volume[BarCount - 1] > 1.10 * @#volume[BarCount - 2]) then
         Score := Score + 2;

if @BopTBSeries[Barcount - 1] > 0.00 then
         Score := Score + 1;

Result := Score;

end;

var PVADScore : integer = calcPVADScore ;

{Calculate Cycles}
mo1:=Barcount() -1 ;
mo2:=Barcount() -21 ;
mo3:=Barcount() -41 ;
mo4:=Barcount() -61 ;
mo5:=Barcount() -81 ;

retrace := 1;
F:=40;
count:=0;
lastlowbar :=1000000;

for Bar:= Barcount() -1 downto Barcount()-127 do
begin
 if lastlowbar < Bar then Bar:= lastlowbar ;

X:= peakbar(Bar, #high, retrace) ;
  N:= peak(Bar, #high, retrace) - lowest(X-1, #low, 5) ;
  if N/lowest(X-1, #low, 5) >= 0.20 then cyclelength:= 5 else
begin

X:= peakbar(Bar, #high, retrace) ;
  N:= peak(Bar, #high, retrace) - lowest(X-1, #low, 6) ;
  if N/lowest(X-1, #low, 6) >= 0.20 then cyclelength:= 6 else
begin

X:= peakbar(Bar, #high, retrace) ;
  N:= peak(Bar, #high, retrace) - lowest(X-1, #low, 7) ;
  if N/lowest(X-1, #low, 7) >= 0.20 then cyclelength:= 7;
 end;
end;

if N/lowest(X-1, #low, cyclelength) >= 0.20 then
begin
DAYS:= peakbar(Bar, #high, retrace) - lowestbar(X-1, #low, cyclelength)+1 ;

F:=F+10;
lastlowbar:=lowestbar(X-1, #low, cyclelength)-1 ;
count:= count+1;

if count=1 then begin
gain1:=N/lowest(X-1, #low, cyclelength) ;days1:=days;du1:=lowest(mo1, #Volume, 20);
end;
if count=2 then begin
gain2:=N/lowest(X-1, #low, cyclelength) ;days2:=days;du2:=lowest(mo2, #Volume, 20);
end;
if count=3 then begin
gain3:=N/lowest(X-1, #low, cyclelength) ;days3:=days;du3:=lowest(mo3, #Volume, 20);
end;
if count=4 then begin
gain4:=N/lowest(X-1, #low, cyclelength) ;days4:=days;du4:=lowest(mo4, #Volume, 20);
end;
if count=5 then begin
gain5:=N/lowest(X-1, #low, cyclelength) ;days5:=days;du5:=lowest(mo5, #Volume, 20);

averagegain:= (gain1+gain2+gain3+gain4+gain5)/5 ;
end;

{Annotate Chart}
DrawCircle( 6, 0, peakbar(Bar, #high, retrace), peak(Bar, #high, retrace) , #green, #thick );
DrawCircle( 6, 0, lowestbar(X-1, #low, cyclelength), lowest(X-1, #low, cyclelength) , #blue, #thick );
AnnotateBar('High', peakbar(BAR, #high, retrace), true, #blue, 8);
AnnotateBar('Low', LOWESTBAR(X-1, #low, cyclelength), false, #red, 8);
DrawLine(lowestbar(X-1, #low, cyclelength), lowest(X-1, #low, cyclelength), peakbar(Bar, #high, retrace), peak(Bar, #high, retrace), 0, #blue, #thin);
end;
end;

{Expanded Volume Pane}
hidevolume;
Drawtext('Volume', volpane, 4, 4, 009, 009 );
Drawtext('Today: '+FormatFloat( '0', curvol ), volpane, 4, 15, 009, 009 );
Drawtext('Prev Day: '+FormatFloat( '0', prevol ), volpane, 4, 26, 009, 009 );
Drawtext('Dry Up: '+FormatFloat( '0', td.t_DuHighThresh2 ), volpane, 4, 37, 009, 009 );
Plotseries(#volume, volpane, 009, #thickhist);

for Bar := 0 to BarCount - 1 do
begin
 if (@#volume[Bar] < td.t_DuHighThresh2) then DrawImage( 'DownArrowMagenta', volpane, Bar, curvol * 1.75, false );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, 0, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, volpane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, macdhistpane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, stochpane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, stochpane2, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, VolSDPane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, PriceSDPane, #GreenBkg );
end;

for Bar := 0 to BarCount - 1 do
begin
 if PriceClose(Bar) > PriceOpen(Bar) then
 SetSeriesBarColor(Bar, #volume, #black)
 else if PriceClose(Bar) < PriceOpen(Bar) then
 SetSeriesBarColor(Bar, #volume, #Red)
 else
 SetSeriesBarColor(Bar, #volume, #black);

end;

DrawHorzLine(td.t_VduHighThresh, volpane, 950, #thick);
DrawHorzLine(td.t_DuHighThresh2, volpane, 900, #thick);
DrawHorzLine(td.t_LowHighThresh2, volpane, 809, #thick);
DrawHorzLine(td.t_MediumHighThresh2, volpane, 041, #thick);
DrawHorzLine(td.t_FastHighThresh2, volpane, 009, #thick);
DrawHorzLine(td.t_ExtremeLowThresh, volpane, 190, #thick);

{MACD Histogram Pane}
PlotSeriesLabel( MACDExSeries( #Close, val1, val2 ), MACDHistpane, #Blue, #Thin,
  'MACD ('+IntToStr(val1)+','+IntToStr(val2)+','+IntToStr(val3)+')' );
PlotSeries( EMASeries( MACDExSeries( #Close, val1, val2 ), val3 ), MACDHistpane, #Red, #Thin );
DrawHorzLine( 0, MACDHistpane, #Olive, #Thin );

PlotSeries( macdh, MACDHistpane, #Blue, #ThickHist);

for Bar := 0 to BarCount - 1 do
begin
 if (@macdh[bar] > 0) then
 SetSeriesBarColor( Bar, macdh, #green )
 else if (@macdh[bar] < 0) then
 SetSeriesBarColor( Bar, macdh, #red );
end;

DrawHorzLine(0.40, macdhistPane, #black, #dotted);
DrawHorzLine(-0.40, macdhistPane, #black, #dotted);

for Bar := 0 to BarCount - 1 do
begin
  if GetSeriesValue(Bar, macdh) >= 0.40 then
   SetPaneBackgroundColor( Bar, macdhistpane, #BlueBkg )
end;

for Bar := 0 to BarCount - 1 do
begin
 if GetSeriesValue(Bar, macdh) <= -0.40 then
 SetPaneBackgroundColor( Bar, macdhistpane, #RedBkg )
end;

{Stochastics}
DrawHorzLine(80, stochPane, #black, #dotted);
DrawHorzLine(20, stochPane, #black, #dotted);

PlotSeries(HersheyStochK, stochPane, #blue, #thick);
PlotSeries(HersheyStochD, stochPane, #red, #thick);

Drawtext('Stoch(14,1,3)', stochPane, 4, 4, #blue, 009 );

for Bar := 0 to BarCount - 1 do
begin
  if GetSeriesValue(Bar, HersheyStochK) >= 80 then
   SetPaneBackgroundColor( Bar, stochpane, #BlueBkg )
end;

for Bar := 0 to BarCount - 1 do
begin
 if GetSeriesValue(Bar, HersheyStochK) <= 20 then
 SetPaneBackgroundColor( Bar, stochpane, #RedBkg )
end;

SetPaneMinMax( stochpane, -5, 105 );

DrawHorzLine(75, stochPane2, #black, #dotted);
DrawHorzLine(25, stochPane2, #black, #dotted);

PlotSeries(HersheyStochK2, stochPane2, #blue, #thick);
PlotSeries(HersheyStochD2, stochPane2, #red, #thick);

Drawtext('Stoch(5,2,3)', stochPane2, 4, 4, #blue, 009 );

for Bar := 0 to BarCount - 1 do
begin
  if GetSeriesValue(Bar, HersheyStochK2) >= 50 then
   SetPaneBackgroundColor( Bar, stochpane2, #BlueBkg )
end;

SetPaneMinMax( stochpane2, -5, 105 );

{Stop Offset Code}
function calcStopOffset() : float;
  begin
  var Spikes: array[1..10] of float;
  var index: integer;
  var barTotal, barLeft, barRight, spike: float;
  var temp: float;

// initialize
  for index:= 1 to 10 do
    Spikes[index] := 0;

// scan for spikes
 for Bar := BarCount() -137 to BarCount - 1 do
 begin
 // a spike is a bar which is lower than the low of the two
 // surrounding bars.
 barLeft := PriceLow(bar-2);
 barRight := PriceLow(bar);
 if (PriceLow(bar-1) < barLeft) AND (PriceLow(bar-1) < barRight) THEN
 begin
 // calc the magnitude of the spike
 spike := Min((barLeft - PriceLow(bar-1)),(barRight - PriceLow(bar-1)));

// insert it into the list of spikes, keeping them sorted
 for index:= 1 to 10 do
 begin
 if Spikes[index] < spike then
 begin
 // swap
 temp := Spikes[index];
 Spikes[index] := spike;
 spike := temp;
 end; // if
 end; // for
 end; // if
 end; // for
 barTotal := 0;

for index:= 1 to 5 do
    barTotal := barTotal + Spikes[index];
  barTotal := (barTotal / 5) * 1.1;

Result := barTotal;
//  Result := 9.0;
end;

StopOffset := calcStopOffset();
StopOffsetPercent := StopOffset/PriceLow(BarCount-1)*100;

DrawText('Stop Offset: ' + FormatFloat('0.00',StopOffset) , 0, 6, 75, #Blue, 10);
DrawText('Offset Percent: ' + FormatFloat('0.0',StopOffsetPercent) + '%' , 0, 6, 90, #Blue, 10);

{Average Volume and 20 SMA}
//PlotSeries( SMASeries( #VOLUME, 65) , volpane, #green, #Thin );
PlotSeries( SMASeries( #Close, 20 ), 0, 009, #Thick );

{Send Values to Commentary Window}
AddCommentary('<h3>Symbol: ' + GetSymbol + '</h3>' );
Addcommentary(' Stop Offset: '+FormatFloat('0.00',StopOffset) + ' ');
Addcommentary(' Offset Percentage: ' +FormatFloat('0.0',StopOffsetPercent) + ' ' );
Addcommentary('Current Vol: '+FormatFloat( '0', curvol ) + ' ' );
Addcommentary('Dry Up: '+FormatFloat( '0', td.t_DuHighThresh2 ) + ' ' );

td.DuDataToCommentWindow;
td.VolRngDataToCommentWindow;
td.RngVolDataToCommentWindow;

{Post Score and Rank}
if averagegain > 0 then
DrawText('Rank: '+FormatFloat( '0.00', 100*((averagegain)/((days1+days2+days3+days4+days5)/5)) ), 0, 6, 45, 009, 10 )
else
DrawText('Rank: None', 0, 6, 45, 009, 10 );
Drawtext('Score: '+FormatFloat( '0', PVADScore ), 0, 6, 60, 009, 10 );

{Draw IT Channel}
DrawDownTrendRTL(barcount - 1, #High, 0,20);
DrawUpTrendRTL(barcount - 1, #Low, 0,50);

{Second Derivative Functions}

{Trading Rules}
//InstallTimeBasedExit( 8 );

for Bar := 5 to BarCount - 1 do
begin
    var SMADiff : float =(SMA( bar, #close , 20 ) - SMA( bar - 1, #close, 20 ));
    var MACDday : integer = MACDExSeries( #Close, val1, val2 );

if //(SMADiff > - 0.12) and
 //(Priceclose(bar-1) > PriceMin) and
 //(MFI( Bar, 14 ) > MFI( Bar - 1, 14 )) and
 //(@#volume[Bar-1] < @#Volume[Bar - 2]) and
 //(@HersheyStochK2[Bar] - @HersheyStochK2[Bar-1] > Stochslope) and
 //(@MACDday[bar] - @MACDday[bar-1] > 0) and
 //(curvol < DUHigh) and
 (mv2series(6) > 0) and
 (ma2Series(#Average, 6) > 0) and
 (@HersheyStochK2[Bar-1] < StochThresh) and
 (CrossOver( Bar, HersheyStochK2, HersheyStochD2)) and
 (@macdh[Bar] > @macdh[Bar-1]) then
 begin
 if not LastPositionActive then BuyAtMarket( Bar + 1, 'Bruno R Buy');
 end;

//ApplyAutoStops( Bar + 1 );

if (@HersheyStochK[Bar] < @HersheyStochK[Bar-1]) and
 (@HersheyStochK[Bar] < StochExit) and
 (@macdh[Bar] < @macdh[Bar-1]) and
 (@macdh[Bar-1] - @macdh[Bar] > MACDdrop) then
 begin
 for P := 0 to PositionCount - 1 do
 if PositionActive( P ) then
 SellAtMarket( Bar + 1, P, 'Bruno R Sell' );
 end
end;[/code]

Thanks

Eugene

#2

12/13/2008 12:59 PM

First, you need to export your $Include's (Indicators and Studies) as the Help file instructs. (This is the reason for "cannot find file".) Then supply the path to the folder to WealthScript Translator.

When you post some code, please enclose it inside the CODE tags.

coolgramps

#3

12/14/2008 4:19 PM

Thanks Eugene
Sorry about the "code". I am a newbie.
I do not understand how to do what you suggested.
Will you explain?
Don

Eugene

#4

12/14/2008 4:57 PM

Two possible ways to get there:

1. As suggested by Wealth-Lab 4 User Guide > ChartScripts > ChartScript Explorer > Export ChartScripts, you're exporting the contents of the folders that contain $Includes (Studies and Indicators).

2. File -> Backup will export all of your chartscripts in the database automatically.

The next step is a prerequisite for using the WS Translator tool and is explained in its online help file.

coolgramps

#5

12/15/2008 12:10 PM

Thanks
I will try that.
Don

coolgramps

#6

#12

12/18/2008 1:23 AM

Do a file search for the WS (*.ws) extension.

coolgramps

#13

12/18/2008 1:09 PM

Here is the script I want to change. Will you show me now to change it?

CODE:
Please log in to see this code.

Size:

Color:

Here is the script I want to change. Will you show me now to change it?[CODE]{$I 'MACDEx'}
{$I 'GetNewDUData'}
{$I 'GetTBRZTrendLines'}

const Period = 20;
const StochThresh = 25;
const StochExit = 80;
const MACDdrop = 0.1450;

var bar : integer;
var td : TDuData = GetNewDUData(60);
var mo1, mo2, mo3, mo4, mo5, retrace, F, count, lastlowbar, X, P, cyclelength, days, days1, days2, days3, days4, days5, RankSignal : integer;
var BarTotal, B1a, B2a, B3a, B4a, B5a, B6a, B7a, B8a, B9a, B10a, N, PV, du, du1, du2, du3, du4, du5, gain, gain1, gain2, gain3, gain4, gain5, averagegain : float;
var volpane : integer = Createpane(120, false, true);
var curVol : float = VOLUME(Barcount-1);
var preVol : float = VOLUME(Barcount-2);
var val1 : integer =  12;
var val2 : integer = 26;
var val3 : integer = 9;
var MHistMACD : integer = SubtractSeries( MACDExSeries( #Close, val1, val2 ), EMASeries( MACDExSeries( #Close, val1, val2 ), val3 ) );
var macdh : integer = MultiplySeriesValue (MHistMACD, 3);
var macdhistPane : integer = CreatePane(100, false, true);
var stochPane : integer = CreatePane(100, false, false);
var stochPane2 : integer = CreatePane(100, false, false);
var VolSDPane : integer = CreatePane(1, false, false);
var PriceSDPane : integer = CreatePane(1, false, false);
var HersheyStochK2 : integer = StochDSeries(5, 2);
var HersheyStochD2 : integer = SMASeries(HersheyStochK2, 3);
var HersheyStochK : integer = StochDSeries(14, 1);
var HersheyStochD : integer = SMASeries(HersheyStochK, 3);
var StopOffset, StopOffsetPercent : float;
var Slope: float = (Period - 1) * LinearRegSlope(BarCount - 1, #Average, Period);
var Intercept: float = LinearReg(BarCount - 1, #Average, Period);
var Width: float = 2 * StdError(BarCount - 1, #Average, Period);

{Scoring Function}
function calcPVADScore() : integer;
begin
      var Score : integer = 0 ;
      var BopTBSeries : integer = SMASeries( BOPSeries, 1 );

if (@#Close[BarCount - 1] > 1.01 * @#Close[BarCount - 2]) then
         Score := Score + 4;

if (@#volume[BarCount - 1] > 1.10 * @#volume[BarCount - 2]) then
         Score := Score + 2;

if @BopTBSeries[Barcount - 1] > 0.00 then
         Score := Score + 1;

Result := Score;

end;

var PVADScore : integer = calcPVADScore ;

{Calculate Cycles}
mo1:=Barcount() -1 ;
mo2:=Barcount() -21 ;
mo3:=Barcount() -41 ;
mo4:=Barcount() -61 ;
mo5:=Barcount() -81 ;

retrace := 1;
F:=40;
count:=0;
lastlowbar :=1000000;

for Bar:= Barcount() -1 downto Barcount()-127 do
begin
 if lastlowbar < Bar then Bar:= lastlowbar ;

X:= peakbar(Bar, #high, retrace) ;
  N:= peak(Bar, #high, retrace) - lowest(X-1, #low, 5) ;
  if N/lowest(X-1, #low, 5) >= 0.20 then cyclelength:= 5 else
begin

X:= peakbar(Bar, #high, retrace) ;
  N:= peak(Bar, #high, retrace) - lowest(X-1, #low, 6) ;
  if N/lowest(X-1, #low, 6) >= 0.20 then cyclelength:= 6 else
begin

X:= peakbar(Bar, #high, retrace) ;
  N:= peak(Bar, #high, retrace) - lowest(X-1, #low, 7) ;
  if N/lowest(X-1, #low, 7) >= 0.20 then cyclelength:= 7;
 end;
end;

if N/lowest(X-1, #low, cyclelength) >= 0.20 then
begin
DAYS:= peakbar(Bar, #high, retrace) - lowestbar(X-1, #low, cyclelength)+1 ;

F:=F+10;
lastlowbar:=lowestbar(X-1, #low, cyclelength)-1 ;
count:= count+1;

if count=1 then begin
gain1:=N/lowest(X-1, #low, cyclelength) ;days1:=days;du1:=lowest(mo1, #Volume, 20);
end;
if count=2 then begin
gain2:=N/lowest(X-1, #low, cyclelength) ;days2:=days;du2:=lowest(mo2, #Volume, 20);
end;
if count=3 then begin
gain3:=N/lowest(X-1, #low, cyclelength) ;days3:=days;du3:=lowest(mo3, #Volume, 20);
end;
if count=4 then begin
gain4:=N/lowest(X-1, #low, cyclelength) ;days4:=days;du4:=lowest(mo4, #Volume, 20);
end;
if count=5 then begin
gain5:=N/lowest(X-1, #low, cyclelength) ;days5:=days;du5:=lowest(mo5, #Volume, 20);

averagegain:= (gain1+gain2+gain3+gain4+gain5)/5 ;
end;

{Annotate Chart}
DrawCircle( 6, 0, peakbar(Bar, #high, retrace), peak(Bar, #high, retrace) , #green, #thick );
DrawCircle( 6, 0, lowestbar(X-1, #low, cyclelength), lowest(X-1, #low, cyclelength) , #blue, #thick );
AnnotateBar('High', peakbar(BAR, #high, retrace), true, #blue, 8);
AnnotateBar('Low', LOWESTBAR(X-1, #low, cyclelength), false, #red, 8);
DrawLine(lowestbar(X-1, #low, cyclelength), lowest(X-1, #low, cyclelength), peakbar(Bar, #high, retrace), peak(Bar, #high, retrace), 0, #blue, #thin);
end;
end;

{Expanded Volume Pane}
hidevolume;
Drawtext('Volume', volpane, 4, 4, 009, 009 );
Drawtext('Today: '+FormatFloat( '0', curvol ), volpane, 4, 15, 009, 009 );
Drawtext('Prev Day: '+FormatFloat( '0', prevol ), volpane, 4, 26, 009, 009 );
Drawtext('Dry Up: '+FormatFloat( '0', td.t_DuHighThresh2 ), volpane, 4, 37, 009, 009 );
Plotseries(#volume, volpane, 009, #thickhist);

for Bar := 0 to BarCount - 1 do
begin
 if (@#volume[Bar] < td.t_DuHighThresh2) then DrawImage( 'DownArrowMagenta', volpane, Bar, curvol * 1.75, false );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, 0, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, volpane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, macdhistpane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, stochpane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, stochpane2, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, VolSDPane, #GreenBkg );
 if (curVol < td.t_DuHighThresh2) then SetPaneBackgroundColor( bar, PriceSDPane, #GreenBkg );
end;

for Bar := 0 to BarCount - 1 do
begin
 if PriceClose(Bar) > PriceOpen(Bar) then
 SetSeriesBarColor(Bar, #volume, #black)
 else if PriceClose(Bar) < PriceOpen(Bar) then
 SetSeriesBarColor(Bar, #volume, #Red)
 else
 SetSeriesBarColor(Bar, #volume, #black);

end;

DrawHorzLine(td.t_VduHighThresh, volpane, 950, #thick);
DrawHorzLine(td.t_DuHighThresh2, volpane, 900, #thick);
DrawHorzLine(td.t_LowHighThresh2, volpane, 809, #thick);
DrawHorzLine(td.t_MediumHighThresh2, volpane, 041, #thick);
DrawHorzLine(td.t_FastHighThresh2, volpane, 009, #thick);
DrawHorzLine(td.t_ExtremeLowThresh, volpane, 190, #thick);

{MACD Histogram Pane}
PlotSeriesLabel( MACDExSeries( #Close, val1, val2 ), MACDHistpane, #Blue, #Thin,
  'MACD ('+IntToStr(val1)+','+IntToStr(val2)+','+IntToStr(val3)+')' );
PlotSeries( EMASeries( MACDExSeries( #Close, val1, val2 ), val3 ), MACDHistpane, #Red, #Thin );
DrawHorzLine( 0, MACDHistpane, #Olive, #Thin );

PlotSeries( macdh, MACDHistpane, #Blue, #ThickHist);

for Bar := 0 to BarCount - 1 do
begin
 if (@macdh[bar] > 0) then
 SetSeriesBarColor( Bar, macdh, #green )
 else if (@macdh[bar] < 0) then
 SetSeriesBarColor( Bar, macdh, #red );
end;

DrawHorzLine(0.40, macdhistPane, #black, #dotted);
DrawHorzLine(-0.40, macdhistPane, #black, #dotted);

for Bar := 0 to BarCount - 1 do
begin
  if GetSeriesValue(Bar, macdh) >= 0.40 then
   SetPaneBackgroundColor( Bar, macdhistpane, #BlueBkg )
end;

for Bar := 0 to BarCount - 1 do
begin
 if GetSeriesValue(Bar, macdh) <= -0.40 then
 SetPaneBackgroundColor( Bar, macdhistpane, #RedBkg )
end;

{Stochastics}
DrawHorzLine(80, stochPane, #black, #dotted);
DrawHorzLine(20, stochPane, #black, #dotted);

PlotSeries(HersheyStochK, stochPane, #blue, #thick);
PlotSeries(HersheyStochD, stochPane, #red, #thick);

Drawtext('Stoch(14,1,3)', stochPane, 4, 4, #blue, 009 );

for Bar := 0 to BarCount - 1 do
begin
  if GetSeriesValue(Bar, HersheyStochK) >= 80 then
   SetPaneBackgroundColor( Bar, stochpane, #BlueBkg )
end;

for Bar := 0 to BarCount - 1 do
begin
 if GetSeriesValue(Bar, HersheyStochK) <= 20 then
 SetPaneBackgroundColor( Bar, stochpane, #RedBkg )
end;

SetPaneMinMax( stochpane, -5, 105 );

DrawHorzLine(75, stochPane2, #black, #dotted);
DrawHorzLine(25, stochPane2, #black, #dotted);

PlotSeries(HersheyStochK2, stochPane2, #blue, #thick);
PlotSeries(HersheyStochD2, stochPane2, #red, #thick);

Drawtext('Stoch(5,2,3)', stochPane2, 4, 4, #blue, 009 );

for Bar := 0 to BarCount - 1 do
begin
  if GetSeriesValue(Bar, HersheyStochK2) >= 50 then
   SetPaneBackgroundColor( Bar, stochpane2, #BlueBkg )
end;

SetPaneMinMax( stochpane2, -5, 105 );

{Stop Offset Code}
function calcStopOffset() : float;
  begin
  var Spikes: array[1..10] of float;
  var index: integer;
  var barTotal, barLeft, barRight, spike: float;
  var temp: float;

// initialize
  for index:= 1 to 10 do
    Spikes[index] := 0;

// scan for spikes
 for Bar := BarCount() -137 to BarCount - 1 do
 begin
 // a spike is a bar which is lower than the low of the two
 // surrounding bars.
 barLeft := PriceLow(bar-2);
 barRight := PriceLow(bar);
 if (PriceLow(bar-1) < barLeft) AND (PriceLow(bar-1) < barRight) THEN
 begin
 // calc the magnitude of the spike
 spike := Min((barLeft - PriceLow(bar-1)),(barRight - PriceLow(bar-1)));

// insert it into the list of spikes, keeping them sorted
 for index:= 1 to 10 do
 begin
 if Spikes[index] < spike then
 begin
 // swap
 temp := Spikes[index];
 Spikes[index] := spike;
 spike := temp;
 end; // if
 end; // for
 end; // if
 end; // for
 barTotal := 0;

for index:= 1 to 5 do
    barTotal := barTotal + Spikes[index];
  barTotal := (barTotal / 5) * 1.1;

Result := barTotal;
//  Result := 9.0;
end;

StopOffset := calcStopOffset();
StopOffsetPercent := StopOffset/PriceLow(BarCount-1)*100;

DrawText('Stop Offset: ' + FormatFloat('0.00',StopOffset) , 0, 6, 75, #Blue, 10);
DrawText('Offset Percent: ' + FormatFloat('0.0',StopOffsetPercent) + '%' , 0, 6, 90, #Blue, 10);

{Average Volume and 20 SMA}
//PlotSeries( SMASeries( #VOLUME, 65) , volpane, #green, #Thin );
PlotSeries( SMASeries( #Close, 20 ), 0, 009, #Thick );

{Send Values to Commentary Window}
AddCommentary('<h3>Symbol: ' + GetSymbol + '</h3>' );
Addcommentary(' Stop Offset: '+FormatFloat('0.00',StopOffset) + ' ');
Addcommentary(' Offset Percentage: ' +FormatFloat('0.0',StopOffsetPercent) + ' ' );
Addcommentary('Current Vol: '+FormatFloat( '0', curvol ) + ' ' );
Addcommentary('Dry Up: '+FormatFloat( '0', td.t_DuHighThresh2 ) + ' ' );

td.DuDataToCommentWindow;
td.VolRngDataToCommentWindow;
td.RngVolDataToCommentWindow;

{Post Score and Rank}
if averagegain > 0 then
DrawText('Rank: '+FormatFloat( '0.00', 100*((averagegain)/((days1+days2+days3+days4+days5)/5)) ), 0, 6, 45, 009, 10 )
else
DrawText('Rank: None', 0, 6, 45, 009, 10 );
Drawtext('Score: '+FormatFloat( '0', PVADScore ), 0, 6, 60, 009, 10 );

{Draw IT Channel}
DrawDownTrendRTL(barcount - 1, #High, 0,20);
DrawUpTrendRTL(barcount - 1, #Low, 0,50);

{Second Derivative Functions}

{
end;

[/CODE]

Eugene

#14

12/18/2008 1:41 PM

QUOTE:
Here is the script I want to change. Will you show me now to change it?

First, what's the need in reposting the script once again, missing the CODE tags?
Next, no one is going to stop you if you'd like to change it. :) The question is "how" and "why".
Finally, have you made a search for the generated *.WS files and configured the WealthScript Translator as its online help instructs?

coolgramps

#15

12/19/2008 10:37 AM

OK. I found the Backup .ws files. I loaded the Indicators and Studies files in the Translator. I ran the script in the translator. It ran successfully. Then I ran the translated script and no chart indicators , just the price bars.
Any suggestions?

coolgramps

#16

12/21/2008 11:21 AM

Hi All
This my favorite script written by Spydertrader. Soon Fidelity will discontinue supporting WL 4. Can anyone convert the script to WL 5?
I would be eternally grateful.
Thanks

Eugene

#17

12/21/2008 11:49 AM

QUOTE:
Then I ran the translated script and no chart indicators , just the price bars.

Have you really ran it (Compile+Go or Execute), or just pressed F5?

coolgramps

#18

12/21/2008 12:31 PM

I load the .ws file in the Translator. Then i hit Translate the current script. Then I go to WL 5 and run the script.
Is that the correct procedure?

Eugene

#19

12/21/2008 3:02 PM

Yes, the procedure is correct. I was under impression that, since the .WS file translated OK, it should run. However, it's not the case here as the translated Strategy contains many hidden conversion errors (which become visible when "Compile" is pressed).

Dr.Koch, please take a look at this.

coolgramps

#20

1/8/2009 12:38 PM

Dr. Koch please help me translate this excellent script to 5.1

DrKoch

#21

1/9/2009 9:18 AM

ok, this is probably one of the largest and most complex published WL scripts. A good exercise.

I used the WL4 script called "Hershey Equities Chartscript Version 5.0"
by Spydertrader, 2008-01-03

The translation step worked ok, without any errors.

If I run the translated strategy in WL5, there are some errors:

* lines 863..866: Type C not found

replace "WSTL.C.WL.TList" by "WL.TList"

this is a bug in ws2cs due to the fact that a TList is used in a nested class.

* lines 78..97: can't convert object to double

insert a cast (double) to make the lines read like this pattern:

dudata.t_VduLowThresh = (double)dudata.t_VolRangeList.Item(0);

Here the use of variants is not automatically translated to object/cast semantics in C#.

* line 108,228: can't find "array"

replace "array" by "double[]"

another limit of automatic translation.

* line 497: "IsIntraday" not found

replace "IsIntraday" by "Bars.IsIntraday"

this is not implemented in the beta.

* lines 903..905: C is a field..

replace "WSTL.C.WL.TList();" by "WL.TList()"

limitation of ws2cs, see above.

* line 948: no definition for WSTL:

replace "t_VolRangeList.WSTL.C.Count" by "t_VolRangeList.Count"

* line 949: THighLow is a type...:

make the line read:

hl = (THighLow)(t_VolRangeList.Object(i));

a ws2cs error with casting.

* line 951: no definition for Convert:

replace "WSTL.C.Convert.ToString(i)" by "Convert.ToString(i)"

another bug triggered by nested classes.

* line 951: no definition for WSTL:

replace "(double)t_VolRangeList.WSTL.C.Item(i)" by "(double)t_VolRangeList.Item(i)"

WSTL error caused by nested class

* line 962, 963, 965: remove "WSTL.C." see above

* line 693: change to
hl = (THighLow)(t_RangeVolList.Object(i));

This removes all compile errors. Next we find some runtime errors:

* invalid type conversion in JackEMABarNSeries

this is caused by line 477:
Value = (double)(double)L.Item(j);
change this to
Value = (int)L.Item(j);

this is another limitation in translating variants to objects.

* Index out of Range

this is caused by line 786, 787

for (Bar = 5; Bar <= (Bars.Count - 1); Bar++) {
SMADiff = (double)((SMA(Bar, WL_CLOSE, 20) - SMA((Bar - 1), WL_CLOSE, 20)));

here WL5 is clearly less tolerant in accessing non-existing values. Change this to

for (Bar = 21; Bar <= (Bars.Count - 1); Bar++) {
SMADiff = (double)((SMA(Bar, WL_CLOSE, 20) - SMA((Bar - 1), WL_CLOSE, 20)));

the change is "for(Bar=5..." to "for(Bar=21..."

Thats it.

Conclusion: The beta of WSTL has troble with nested classes. Scripts which make extensive use of
TLists need manual cleanup because variants do not translate to objects easily.

The final WL5 script is here:

CODE:
Please log in to see this code.

Please note: Mechanical translation and manual fixup are just the first step towards a "good" WL5 script. Its certainly a good idea to replace the TLists by native collections for example.

Size:

Color:

ok, this is probably one of the largest and most complex published WL scripts. A good exercise.

I used the WL4 script called "Hershey Equities Chartscript Version 5.0"
by Spydertrader, 2008-01-03

The translation step worked ok, without any errors.

If I run the translated strategy in WL5, there are some errors:

* lines 863..866: Type C not found

replace "WSTL.C.WL.TList" by "WL.TList"

this is a bug in ws2cs due to the fact that a TList is used in a nested class.

* lines 78..97: can't convert object to double

insert a cast (double) to make the lines read like this pattern:

dudata.t_VduLowThresh = (double)dudata.t_VolRangeList.Item(0);
 
Here the use of variants is not automatically translated to object/cast semantics in C#.

* line 108,228: can't find "array"

replace "array" by "double[]"

another limit of automatic translation.

* line 497: "IsIntraday" not found

replace "IsIntraday" by "Bars.IsIntraday"

this is not implemented in the beta.

* lines 903..905: C is a field..

replace "WSTL.C.WL.TList();" by "WL.TList()"

limitation of ws2cs, see above.

* line 948: no definition for WSTL:

replace "t_VolRangeList.WSTL.C.Count" by "t_VolRangeList.Count"

* line 949: THighLow is a type...:

make the line read:

hl = (THighLow)(t_VolRangeList.Object(i));

a ws2cs error with casting.

* line 951: no definition for Convert:

replace "WSTL.C.Convert.ToString(i)" by "Convert.ToString(i)"

another bug triggered by nested classes.

* line 951: no definition for WSTL:

replace "(double)t_VolRangeList.WSTL.C.Item(i)" by "(double)t_VolRangeList.Item(i)"

WSTL error caused by nested class

* line 962, 963, 965: remove "WSTL.C." see above

* line 693: change to 
            hl = (THighLow)(t_RangeVolList.Object(i));
            
This removes all compile errors. Next we find some runtime errors:

* invalid type conversion in JackEMABarNSeries

this is caused by line 477: 
  Value = (double)(double)L.Item(j);
change this to
  Value = (int)L.Item(j);
  
this is another limitation in translating variants to objects.

* Index out of Range

this is caused by line 786, 787

for (Bar = 5; Bar <= (Bars.Count - 1); Bar++) {
 SMADiff = (double)((SMA(Bar, WL_CLOSE, 20) - SMA((Bar - 1), WL_CLOSE, 20)));

here WL5 is clearly less tolerant in accessing non-existing values. Change this to

for (Bar = 21; Bar <= (Bars.Count - 1); Bar++) {
 SMADiff = (double)((SMA(Bar, WL_CLOSE, 20) - SMA((Bar - 1), WL_CLOSE, 20)));
 
the change is "for(Bar=5..." to "for(Bar=21..."

Thats it.

Conclusion: The beta of WSTL has troble with nested classes. Scripts which make extensive use of
 TLists need manual cleanup because variants do not translate to objects easily.

The final WL5 script is here:
[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

/** (*Description...
This is an "extended" MACD indicator that lets you specify the periods for the 2 moving averages.

*) */

/** (*Description...
This is an "extended" MACD indicator that lets you specify the periods for the 2 moving averages.

*) */ 
public int MACDExSeries (int Series, int Period1, int Period2){
 int fnResult = 0;
 int Bar = 0;
 string sName = null;
 double Value = 0.0;
 sName = (string)(((((("MACDEx(" + GetDescription(Series)) + ",") + Convert.ToString(Period1)) + ",") 
+ Convert.ToString(Period2)) + ")");
 fnResult = FindNamedSeries(sName);
 if ((fnResult >= 0)) return fnResult;
 fnResult = CreateNamedSeries(sName);
 for (Bar = Round(Math.Max(Period1, Period2)); Bar <= (Bars.Count - 1); Bar++) {
 /** Calculate your indicator value here */ 
 Value = (double)(EMA(Bar, Series, Period1) - EMA(Bar, Series, Period2));
 SetSeriesValue(Bar, fnResult, Value);
 
 }
 return fnResult;
 
}

public double MACDEx (int Bar, int Series, int Period1, int Period2){
    double fnResult = 0.0;
    fnResult = GetSeriesValue(Bar, MACDExSeries(Series, Period1, Period2));
    return fnResult;
    
}

public TDuData GetNewDUData (int lookbackperiod){
    TDuData fnResult = null;
    int Bar = 0;
    THighLow hlobj = null;
    TDuData dudata = null;
    dudata = new TDuData();
    for (Bar = (Bars.Count - 1); Bar >= (Bars.Count - lookbackperiod); Bar--) {
        hlobj = new THighLow();
        hlobj.t_range = (GetSeries(WL_HIGH)[Bar] - GetSeries(WL_LOW)[Bar]);
        hlobj.t_volume = GetSeries(WL_VOLUME)[Bar];
        dudata.t_VolRangeList.AddObject(hlobj.t_volume, hlobj);
        dudata.t_RangeVolList.AddObject(hlobj.t_range, hlobj);
        
    }
    dudata.t_VolRangeList.SortNumeric();
    dudata.t_RangeVolList.SortNumeric();
    dudata.t_VduLowThresh = (double)dudata.t_VolRangeList.Item(0);
    dudata.t_VduHighThresh = (double)dudata.t_VolRangeList.Item(5);
    dudata.t_DuLowThresh1 = (double)dudata.t_VolRangeList.Item(6);
    dudata.t_DuHighThresh1 = (double)dudata.t_VolRangeList.Item(11);
    dudata.t_DuLowThresh2 = (double)dudata.t_VolRangeList.Item(12);
    dudata.t_DuHighThresh2 = (double)dudata.t_VolRangeList.Item(17);
    dudata.t_LowLowThresh1 = (double)dudata.t_VolRangeList.Item(18);
    dudata.t_LowHighThresh1 = (double)dudata.t_VolRangeList.Item(23);
    dudata.t_LowLowThresh2 = (double)dudata.t_VolRangeList.Item(24);
    dudata.t_LowHighThresh2 = (double)dudata.t_VolRangeList.Item(29);
    dudata.t_MediumLowThresh1 = (double)dudata.t_VolRangeList.Item(30);
    dudata.t_MediumHighThresh1 = (double)dudata.t_VolRangeList.Item(35);
    dudata.t_MediumLowThresh2 = (double)dudata.t_VolRangeList.Item(36);
    dudata.t_MediumHighThresh2 = (double)dudata.t_VolRangeList.Item(41);
    dudata.t_FastLowThresh1 = (double)dudata.t_VolRangeList.Item(42);
    dudata.t_FastHighThresh1 = (double)dudata.t_VolRangeList.Item(47);
    dudata.t_FastLowThresh2 = (double)dudata.t_VolRangeList.Item(48);
    dudata.t_FastHighThresh2 = (double)dudata.t_VolRangeList.Item(53);
    dudata.t_ExtremeLowThresh = (double)dudata.t_VolRangeList.Item(54);
    dudata.t_ExtremeHighThresh = (double)dudata.t_VolRangeList.Item(59);
    fnResult = dudata;
    return fnResult;
    
}

/** (*Description...
Function which creates short term and intermediate term trend lines for use in trading the
 Hershey Equities Methods.

*) */ 
public double[] DetermineDownTrendRTL (int Bar, int Series, int MaxTrendLength){
 double[] fnResult = null;
 int Bar1 = 0;
 double RightPointPrice, LeftPointPrice, MaxDistance, CurrentDistance = 0.0;
 int RightPointBar, LeftPointBar, MaxBar = 0;
 bool LineChanged = false;
 double[] FunctionArray = new double[4 - 1 + 1];
 RightPointPrice = (double)GetSeries(Series)[Bar];
 RightPointBar = (int)Bar;
 LeftPointBar = (int)HighestBar(Bar, Series, MaxTrendLength);
 /** assume high point of trend was in the last 2 months */ 
 LeftPointPrice = (double)GetSeries(Series)[LeftPointBar];
 LineChanged = (bool)true;
 while( ((LineChanged == true))) {
 LineChanged = (bool)false;
 MaxDistance = (double)0;
 MaxBar = (int)RightPointBar;
 for (Bar1 = ((RightPointBar - (((RightPointBar - LeftPointBar)) / 2)));
 Bar1 <= RightPointBar; Bar1++) {
 CurrentDistance = (double)(GetSeries(Series)[Bar1] - LineExtendY(LeftPointBar,
 LeftPointPrice, RightPointBar, RightPointPrice, Bar1));
 if ((CurrentDistance > MaxDistance)) if ((Bar1 != RightPointBar)) {
 LineChanged = (bool)true;
 MaxDistance = (double)CurrentDistance;
 MaxBar = (int)Bar1;
 
 }
 
 }
 RightPointBar = (int)MaxBar;
 RightPointPrice = (double)GetSeries(Series)[RightPointBar];
 MaxDistance = (double)0;
 MaxBar = (int)LeftPointBar;
 for (Bar1 = LeftPointBar; Bar1 <= ((RightPointBar - (((RightPointBar - LeftPointBar))
 / 2))); Bar1++) {
 CurrentDistance = (double)(GetSeries(Series)[Bar1] - LineExtendY(LeftPointBar, 
LeftPointPrice, RightPointBar, RightPointPrice, Bar1));
 if ((CurrentDistance > MaxDistance)) if ((Bar1 != LeftPointBar)) {
 LineChanged = (bool)true;
 MaxDistance = (double)CurrentDistance;
 MaxBar = (int)Bar1;
 
 }
 
 }
 LeftPointBar = (int)MaxBar;
 LeftPointPrice = (double)GetSeries(Series)[LeftPointBar];
 
 }
 FunctionArray[1 - 1] = LeftPointBar;
 FunctionArray[2 - 1] = LeftPointPrice;
 FunctionArray[3 - 1] = RightPointBar;
 FunctionArray[4 - 1] = RightPointPrice;
 fnResult = FunctionArray;
 return fnResult;
 
}

/** End Function ********************************************* */ 
public int DrawDownTrendRTL (int Bar, int Series, int Pane, int MaxTrendLength){
 int fnResult = 0;
 double[] MyArray = new double[4 - 1 + 1];
 MyArray = DetermineDownTrendRTL(Bar, Series, MaxTrendLength);
 int RTLX1 = 0;
 RTLX1 = (int)Math.Floor(MyArray[1 - 1]);
 double RTLY1 = 0.0;
 RTLY1 = (double)MyArray[2 - 1];
 int RTLX2 = 0;
 RTLX2 = (int)Math.Floor(MyArray[3 - 1]);
 double RTLY2 = 0.0;
 RTLY2 = (double)MyArray[4 - 1];
 double Slope = 0.0;
 if (((RTLX2 - RTLX1) != 0)) Slope = (double)(((RTLY2 - RTLY1)) / ((RTLX2 - RTLX1)));
 else Slope = (double)0;
 int RTLX2Ext = 0;
 RTLX2Ext = (int)Bar;
 double RTLY2Ext = 0.0;
 RTLY2Ext = (double)(RTLY2 - (Math.Abs(Slope) * ((RTLX2Ext - RTLX2))));
 /** draw the rtl */ 
 DrawLine(RTLX1, RTLY1, RTLX2Ext, RTLY2Ext, 0, WL_RED, WL_THICK);
 int index = 0;
 int lowbar = 0;
 for (index = RTLX1; index <= RTLX2; index++) {
 lowbar = (int)LowestBar(index, WL_LOW, (index - RTLX1));
 
 }
 /** Determine the line equation for LTL */ 
 int LTLX1 = 0;
 LTLX1 = (int)RTLX1;
 int LTLX2 = 0;
 LTLX2 = (int)Bar;
 double LTLY1 = 0.0;
 LTLY1 = (double)(GetSeries(WL_LOW)[lowbar] + (Math.Abs(Slope) * ((lowbar - LTLX1))));
 double LTLY2 = 0.0;
 LTLY2 = (double)(GetSeries(WL_LOW)[lowbar] - (Math.Abs(Slope) * ((LTLX2 - lowbar))));
 for (index = LTLX1; index <= Bar; index++) {
 int X = 0;
 X = (int)(index - LTLX1);
 double lineeq = 0.0;
 lineeq = (double)(LTLY1 - (X * Math.Abs(Slope)));
 int x1 = 0;
 x1 = (int)LTLX1;
 double y1 = 0.0;
 y1 = (double)LTLY1;
 int x2 = 0;
 double y2 = 0.0;
 if (((GetSeries(WL_LOW)[index] < lineeq))) {
 x2 = (int)index;
 y2 = (double)lineeq;
 DrawLine(LTLX1, LTLY1, x2, y2, 0, WL_RED, WL_THICK);
 LTLX1 = (int)index;
 LTLY1 = (double)GetSeries(WL_LOW)[index];
 lineeq = (double)(LTLY1 - (X * Math.Abs(Slope)));
 
 }
 
 }
 LTLY2 = (double)(LTLY1 - (((LTLX2 - LTLX1)) * Math.Abs(Slope)));
 DrawLine(LTLX1, LTLY1, LTLX2, LTLY2, 0, WL_RED, WL_THICK);
 fnResult = lowbar;
 return fnResult;
 
}

public double[] DetermineUpTrendRTL (int Bar, int Series, int MaxTrendLength){
 double[] fnResult = null;
 int Bar1 = 0;
 double RightPointPrice, LeftPointPrice, MaxDistance, CurrentDistance = 0.0;
 int RightPointBar, LeftPointBar, MaxBar = 0;
 bool LineChanged = false;
 double[] FunctionArray = new double[4 - 1 + 1];
 RightPointPrice = (double)GetSeries(Series)[Bar];
 RightPointBar = (int)Bar;
 LeftPointBar = (int)LowestBar(Bar, Series, MaxTrendLength);
 /** assume high point of trend was in the last 2 months */ 
 LeftPointPrice = (double)GetSeries(Series)[LeftPointBar];
 LineChanged = (bool)true;
 while( ((LineChanged == true))) {
 LineChanged = (bool)false;
 MaxDistance = (double)0;
 MaxBar = (int)RightPointBar;
 for (Bar1 = ((RightPointBar - (((RightPointBar - LeftPointBar)) / 2))); 
Bar1 <= RightPointBar; Bar1++) {
 CurrentDistance = (double)(LineExtendY(LeftPointBar, LeftPointPrice, RightPointBar,
 RightPointPrice, Bar1) - GetSeries(Series)[Bar1]);
 if ((CurrentDistance > MaxDistance)) if ((Bar1 != RightPointBar)) {
 LineChanged = (bool)true;
 MaxDistance = (double)CurrentDistance;
 MaxBar = (int)Bar1;
 
 }
 
 }
 RightPointBar = (int)MaxBar;
 RightPointPrice = (double)GetSeries(Series)[RightPointBar];
 MaxDistance = (double)0;
 MaxBar = (int)LeftPointBar;
 for (Bar1 = LeftPointBar; Bar1 <= ((RightPointBar - (((RightPointBar - LeftPointBar))
 / 2))); Bar1++) {
 CurrentDistance = (double)(LineExtendY(LeftPointBar, LeftPointPrice, RightPointBar,
 RightPointPrice, Bar1) - GetSeries(Series)[Bar1]);
 if ((CurrentDistance > MaxDistance)) if ((Bar1 != LeftPointBar)) {
 LineChanged = (bool)true;
 MaxDistance = (double)CurrentDistance;
 MaxBar = (int)Bar1;
 
 }
 
 }
 LeftPointBar = (int)MaxBar;
 LeftPointPrice = (double)GetSeries(Series)[LeftPointBar];
 
 }
 FunctionArray[1 - 1] = LeftPointBar;
 FunctionArray[2 - 1] = LeftPointPrice;
 FunctionArray[3 - 1] = RightPointBar;
 FunctionArray[4 - 1] = RightPointPrice;
 fnResult = FunctionArray;
 return fnResult;
 
}

/** End Function ********************************************** */ 
public int DrawUpTrendRTL (int Bar, int Series, int Pane, int MaxTrendLength){
 int fnResult = 0;
 double[] MyArray = new double[4 - 1 + 1];
 MyArray = DetermineUpTrendRTL(Bar, Series, MaxTrendLength);
 int RTLX1 = 0;
 RTLX1 = (int)Math.Floor(MyArray[1 - 1]);
 double RTLY1 = 0.0;
 RTLY1 = (double)MyArray[2 - 1];
 int RTLX2 = 0;
 RTLX2 = (int)Math.Floor(MyArray[3 - 1]);
 double RTLY2 = 0.0;
 RTLY2 = (double)MyArray[4 - 1];
 double Slope = 0.0;
 if (((RTLX2 - RTLX1) != 0)) Slope = (double)(((RTLY2 - RTLY1)) / ((RTLX2 - RTLX1)));
 else Slope = (double)0;
 int RTLX2Ext = 0;
 RTLX2Ext = (int)Bar;
 double RTLY2Ext = 0.0;
 RTLY2Ext = (double)(RTLY2 + (Math.Abs(Slope) * ((RTLX2Ext - RTLX2))));
 /** draw the rtl */ 
 DrawLine(RTLX1, RTLY1, RTLX2Ext, RTLY2Ext, 0, WL_GREEN, WL_THICK);
 int index = 0;
 int highbar = 0;
 for (index = RTLX1; index <= RTLX2; index++) {
 highbar = (int)HighestBar(index, WL_HIGH, (index - RTLX1));
 
 }
 /** Determine the line equation for LTL */ 
 int LTLX1 = 0;
 LTLX1 = (int)RTLX1;
 int LTLX2 = 0;
 LTLX2 = (int)Bar;
 double LTLY1 = 0.0;
 LTLY1 = (double)(GetSeries(WL_HIGH)[highbar] - (Math.Abs(Slope) * ((highbar - LTLX1))));
 double LTLY2 = 0.0;
 LTLY2 = (double)(GetSeries(WL_HIGH)[highbar] + (Math.Abs(Slope) * ((LTLX2 - highbar))));
 for (index = LTLX1; index <= Bar; index++) {
 int X = 0;
 X = (int)(index - LTLX1);
 double lineeq = 0.0;
 lineeq = (double)(LTLY1 + (X * Math.Abs(Slope)));
 int x1 = 0;
 x1 = (int)LTLX1;
 double y1 = 0.0;
 y1 = (double)LTLY1;
 int x2 = 0;
 double y2 = 0.0;
 if (((GetSeries(WL_HIGH)[index] > lineeq))) {
 x2 = (int)index;
 y2 = (double)lineeq;
 DrawLine(LTLX1, LTLY1, x2, y2, 0, WL_GREEN, WL_THICK);
 LTLX1 = (int)index;
 LTLY1 = (double)GetSeries(WL_HIGH)[index];
 lineeq = (double)(LTLY1 - (X * Math.Abs(Slope)));
 
 }
 
 }
 LTLY2 = (double)(LTLY1 + (((LTLX2 - LTLX1)) * Math.Abs(Slope)));
 DrawLine(LTLX1, LTLY1, LTLX2, LTLY2, 0, WL_GREEN, WL_THICK);
 fnResult = highbar;
 return fnResult;
 
}
public /**const*/ int Period = 20;
public /**const*/ int StochThresh = 25;
public /**const*/ int StochExit = 80;
public /**const*/ double MACDdrop = 0.1450;
public int Bar = 0;
public TDuData td = null;
public int mo1, mo2, mo3, mo4, mo5, retrace, F, Count, lastlowbar, X, P, cyclelength,
 days, days1, days2, days3, days4, days5, RankSignal = 0;
public double BarTotal, B1a, B2a, B3a, B4a, B5a, B6a, B7a, B8a, B9a, B10a, N, PV, du,
 du1, du2, du3, du4, du5, gain, gain1, gain2, gain3, gain4, gain5, averagegain = 0.0;
public int volpane = 0;
public double curVol = 0.0;
public double preVol = 0.0;
public int val1 = 0;
public int val2 = 0;
public int val3 = 0;
public int MHistMACD = 0;
public int macdh = 0;
public int macdhistPane = 0;
public int stochPane = 0;
public int stochPane2 = 0;
public int VolSDPane = 0;
public int PriceSDPane = 0;
public int HersheyStochK2 = 0;
public int HersheyStochD2 = 0;
public int HersheyStochK = 0;
public int HersheyStochD = 0;
public double StopOffset, StopOffsetPercent = 0.0;
public double Slope = 0.0;
public double Intercept = 0.0;
public double Width = 0.0;

/** Scoring Function */ 
public int calcPVADScore (){
    int fnResult = 0;
    int Score = 0;
    Score = (int)0;
    int BopTBSeries = 0;
    BopTBSeries = (int)SMASeries(BOPSeries(), 1);
    if (((GetSeries(WL_CLOSE)[(Bars.Count - 1)] > 
(1.01 * GetSeries(WL_CLOSE)[(Bars.Count - 2)])))) Score = (int)(Score + 4);
    if (((GetSeries(WL_VOLUME)[(Bars.Count - 1)] > 
(1.10 * GetSeries(WL_VOLUME)[(Bars.Count - 2)])))) Score = (int)(Score + 2);
    if ((GetSeries(BopTBSeries)[(Bars.Count - 1)] > 0.00)) Score = (int)(Score + 1);
    fnResult = Score;
    return fnResult;
    
}
public int PVADScore = 0;

/** Stop Offset Code */ 
public double calcStopOffset (){
 double fnResult = 0.0;
 double[] Spikes = new double[10 - 1 + 1];
 int index = 0;
 double BarTotal, barLeft, barRight, spike = 0.0;
 double temp = 0.0;
 for (index = 1; index <= 10; index++) Spikes[index - 1] = 0;
 for (Bar = (Bars.Count - 137); Bar <= (Bars.Count - 1); Bar++) {
 /** surrounding bars. */ 
 barLeft = (double)PriceLow((Bar - 2));
 barRight = (double)PriceLow(Bar);
 if ((((PriceLow((Bar - 1)) < barLeft)) && ((PriceLow((Bar - 1)) < barRight)))) {
 /** calc the magnitude of the spike */ 
 spike = (double)Math.Min(((barLeft - PriceLow((Bar - 1)))), 
((barRight - PriceLow((Bar - 1)))));
 for (index = 1; index <= 10; index++) {
 if ((Spikes[index - 1] < spike)) {
 /** swap */ 
 temp = (double)Spikes[index - 1];
 Spikes[index - 1] = spike;
 spike = (double)temp;
 
 }
 
 }
 
 }
 
 }
 /** for */ 
 BarTotal = (double)0;
 for (index = 1; index <= 5; index++) BarTotal = (double)(BarTotal + Spikes[index - 1]);
 BarTotal = (double)(((BarTotal / 5)) * 1.1);
 fnResult = BarTotal;
 return fnResult;
 
}

/** Second Derivative Functions */ 
public int T3Series (int Series, int Period, double Factor){
 int fnResult = 0;
 string Name = null;
 Name = (string)(((((("T3(" + GetDescription(Series)) + ",") 
+ Convert.ToString(Period)) + ",") + FloatToStr(Factor)) + ")");
 fnResult = FindNamedSeries(Name);
 if ((fnResult >= 0)) return fnResult;
 fnResult = Series;
 int N = 0;
 for (N = 1; N <= 3; N++) {
 int A = 0;
 A = (int)EMASeries(fnResult, Period);
 int B = 0;
 B = (int)MultiplySeriesValue(A, (1 + Factor));
 int C = 0;
 C = (int)EMASeries(A, Period);
 int D = 0;
 D = (int)MultiplySeriesValue(C, Factor);
 fnResult = SubtractSeries(B, D);
 
 }
 SetDescription(fnResult, Name);
 return fnResult;
 
}

/** calculates average volume for each intraday bar */ 
public int JackEMABarNSeries (int Series, int Period){
 int fnResult = 0;
 string Name = null;
 Name = (string)(((("JackEMABarN(" + GetDescription(Series)) + ",") 
+ Convert.ToString(Period)) + ")");
 fnResult = FindNamedSeries(Name);
 if ((fnResult >= 0)) return fnResult;
 fnResult = CreateNamedSeries(Name);
 WL.TList L = null;
 L = new WL.TList();
 int Bar = 0;
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 double Value = 0.0;
 Value = (double)0;
 int j = 0;
 j = (int)L.IndexOfData(GetTime(Bar));
 if ((j < 0)) {
 j = (int)L.Count;
 L.AddData(0, GetTime(Bar));
 
 }
 Value = (int)L.Item(j);
 Value = (double)(Value + ((2 / ((1 + Period))) 
* ((GetSeries(Series)[Bar] - Value))));
 L.ChangeItem(j, Value);
 GetSeries(fnResult)[Bar] = Value;
 
 }
 return fnResult;
 
}

/**  calculates 2nd derivative */ 
public int Jackd2Xdt2Series (int Series, int T3Len){
    int fnResult = 0;
    string Name = null;
    Name = (string)(((("Jackd2Xdt2(" + GetDescription(Series)) + ",") 
+ Convert.ToString(T3Len)) + ")");
    fnResult = FindNamedSeries(Name);
    if ((fnResult >= 0)) return fnResult;
    fnResult = CreateNamedSeries(Name);
    double Factor = 0.0;
    Factor = (double)1;
    if (Bars.IsIntraday) Factor = (double)(390 / Bars.BarInterval);
    int xdifSeries = 0;
    xdifSeries = (int)MultiplySeriesValue(ROCSeries(Series, 1), Factor);
    fnResult = T3Series(MomentumSeries(xdifSeries, 1), T3Len, 0.7);
    SetDescription(fnResult, Name);
    return fnResult;
    
}

/** 2nd Der Volume: */ 
public int mv2Series (int T3Len){
 int fnResult = 0;
 string Name = null;
 Name = (string)(("mv2(" + Convert.ToString(T3Len)) + ")");
 fnResult = FindNamedSeries(Name);
 if ((fnResult >= 0)) return fnResult;
 fnResult = CreateNamedSeries(Name);
 int vadjSeries = 0;
 vadjSeries = (int)JackEMABarNSeries(WL_VOLUME, 25);
 int vpctSeries = 0;
 vpctSeries = (int)DivideSeries(WL_VOLUME, vadjSeries);
 fnResult = Jackd2Xdt2Series(vpctSeries, T3Len);
 SetDescription(fnResult, Name);
 int Bar = 0;
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 double mv2 = 0.0;
 mv2 = (double)GetSeries(fnResult)[Bar];
 if ((mv2 > 0)) SetSeriesBarColor(Bar, fnResult, WL_GREEN);
 if ((mv2 < 0)) SetSeriesBarColor(Bar, fnResult, WL_RED);
 
 }
 return fnResult;
 
}

/** 2nd Der Price: */ 
public int ma2Series (int Series, int T3Len){
 int fnResult = 0;
 string Name = null;
 Name = (string)(((("ma2(" + GetDescription(Series)) + ",") 
+ Convert.ToString(T3Len)) + ")");
 fnResult = FindNamedSeries(Name);
 if ((fnResult >= 0)) return fnResult;
 fnResult = Jackd2Xdt2Series(Series, T3Len);
 SetDescription(fnResult, Name);
 int Bar = 0;
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 double ma2 = 0.0;
 ma2 = (double)GetSeries(fnResult)[Bar];
 if ((ma2 > 0)) SetSeriesBarColor(Bar, fnResult, WL_GREEN);
 if ((ma2 < 0)) SetSeriesBarColor(Bar, fnResult, WL_RED);
 
 }
 return fnResult;
 
}
public double SMADiff = 0.0;
public int MACDday = 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] 
    
    // [declaration for function MACDExSeries  used to be here] 
    // [declaration for function MACDEx  used to be here] 
     /** (*Description...
Function for calculating Volume Pace Levels and Dry Up Volume as used in
 The Hershey Family of Chartscripts.

*) */ 
    // [declaration for class TVolRange used to be here] 
    
     /** (*Description...
Function for calculating Volume Pace Levels and Dry Up Volume as used in
 The Hershey Family of Chartscripts.

*) */ 
 // [declaration for class TBarRange used to be here] 
 
 // [declaration for class THighLow used to be here] 
 
 // [declaration for class TDuData used to be here] 
 
 // [declaration for function GetNewDUData used to be here] 
 // [declaration for function DetermineDownTrendRTL used to be here] 
 // [declaration for function DrawDownTrendRTL used to be here] 
 // [declaration for function DetermineUpTrendRTL used to be here] 
 // [declaration for function DrawupTrendRTL used to be here] 
 td = GetNewDUData(60);
 volpane = (int)CreatePane(120, false, true);
 curVol = (double)Volume((Bars.Count - 1));
 preVol = (double)Volume((Bars.Count - 2));
 val1 = (int)5;
 val2 = (int)13;
 val3 = (int)6;
 MHistMACD = (int)SubtractSeries(MACDExSeries(WL_CLOSE, val1, val2), 
EMASeries(MACDExSeries(WL_CLOSE, val1, val2), val3));
 macdh = (int)MultiplySeriesValue(MHistMACD, 3);
 macdhistPane = (int)CreatePane(100, false, true);
 stochPane = (int)CreatePane(100, false, false);
 stochPane2 = (int)CreatePane(100, false, false);
 VolSDPane = (int)CreatePane(100, false, false);
 PriceSDPane = (int)CreatePane(100, false, false);
 HersheyStochK2 = (int)StochDSeries(5, 2);
 HersheyStochD2 = (int)SMASeries(HersheyStochK2, 3);
 HersheyStochK = (int)StochDSeries(14, 1);
 HersheyStochD = (int)SMASeries(HersheyStochK, 3);
 Slope = (double)(((Period - 1)) * LinearRegSlope((Bars.Count - 1), WL_AVERAGE, Period));
 Intercept = (double)LinearReg((Bars.Count - 1), WL_AVERAGE, Period);
 Width = (double)(2 * StdError((Bars.Count - 1), WL_AVERAGE, Period));
 // [declaration for function calcPVADScore used to be here] 
 PVADScore = (int)calcPVADScore();
 /** Calculate Cycles */ 
 mo1 = (int)(Bars.Count - 1);
 mo2 = (int)(Bars.Count - 21);
 mo3 = (int)(Bars.Count - 41);
 mo4 = (int)(Bars.Count - 61);
 mo5 = (int)(Bars.Count - 81);
 retrace = (int)1;
 F = (int)40;
 Count = (int)0;
 lastlowbar = (int)1000000;
 for (Bar = (Bars.Count - 1); Bar >= (Bars.Count - 127); Bar--) {
 if ((lastlowbar < Bar)) Bar = (int)lastlowbar;
 X = (int)PeakBar(Bar, WL_HIGH, retrace);
 N = (double)(Peak(Bar, WL_HIGH, retrace) - Lowest((X - 1), WL_LOW, 5));
 if (((N / Lowest((X - 1), WL_LOW, 5)) >= 0.20)) cyclelength = (int)5;
 else {
 X = (int)PeakBar(Bar, WL_HIGH, retrace);
 N = (double)(Peak(Bar, WL_HIGH, retrace) - Lowest((X - 1), WL_LOW, 6));
 if (((N / Lowest((X - 1), WL_LOW, 6)) >= 0.20)) cyclelength = (int)6;
 else {
 X = (int)PeakBar(Bar, WL_HIGH, retrace);
 N = (double)(Peak(Bar, WL_HIGH, retrace) - Lowest((X - 1), WL_LOW, 7));
 if (((N / Lowest((X - 1), WL_LOW, 7)) >= 0.20)) cyclelength = (int)7;
 
 }
 
 }
 if (((N / Lowest((X - 1), WL_LOW, cyclelength)) >= 0.20)) {
 days = (int)((PeakBar(Bar, WL_HIGH, retrace) - LowestBar((X - 1),
 WL_LOW, cyclelength)) + 1);
 F = (int)(F + 10);
 lastlowbar = (int)(LowestBar((X - 1), WL_LOW, cyclelength) - 1);
 Count = (int)(Count + 1);
 if ((Count == 1)) {
 gain1 = (double)(N / Lowest((X - 1), WL_LOW, cyclelength));
 days1 = (int)days;
 du1 = (double)Lowest(mo1, WL_VOLUME, 20);
 
 }
 if ((Count == 2)) {
 gain2 = (double)(N / Lowest((X - 1), WL_LOW, cyclelength));
 days2 = (int)days;
 du2 = (double)Lowest(mo2, WL_VOLUME, 20);
 
 }
 if ((Count == 3)) {
 gain3 = (double)(N / Lowest((X - 1), WL_LOW, cyclelength));
 days3 = (int)days;
 du3 = (double)Lowest(mo3, WL_VOLUME, 20);
 
 }
 if ((Count == 4)) {
 gain4 = (double)(N / Lowest((X - 1), WL_LOW, cyclelength));
 days4 = (int)days;
 du4 = (double)Lowest(mo4, WL_VOLUME, 20);
 
 }
 if ((Count == 5)) {
 gain5 = (double)(N / Lowest((X - 1), WL_LOW, cyclelength));
 days5 = (int)days;
 du5 = (double)Lowest(mo5, WL_VOLUME, 20);
 averagegain = (double)((((((gain1 + gain2) + gain3) + gain4) + gain5)) / 5);
 
 }
 /** Annotate Chart */ 
 DrawCircle(6, 0, PeakBar(Bar, WL_HIGH, retrace), Peak(Bar, WL_HIGH,
 retrace), WL_GREEN, WL_THICK);
 DrawCircle(6, 0, LowestBar((X - 1), WL_LOW, cyclelength), 
Lowest((X - 1), WL_LOW, cyclelength), WL_BLUE, WL_THICK);
 AnnotateBar("High", PeakBar(Bar, WL_HIGH, retrace), true, WL_BLUE, 8);
 AnnotateBar("Low", LowestBar((X - 1), WL_LOW, cyclelength),
 false, WL_RED, 8);
 DrawLine(LowestBar((X - 1), WL_LOW, cyclelength), Lowest((X - 1), 
WL_LOW, cyclelength), PeakBar(Bar, WL_HIGH, retrace), Peak(Bar, WL_HIGH, retrace),
 0, WL_BLUE, WL_THIN);
 
 }
 
 }
 /** Expanded Volume Pane */ 
 HideVolume();
 DrawText("Volume", volpane, 4, 4, 009, 009);
 DrawText(("Today: " + FormatFloat("0", curVol)), volpane, 4, 15, 009, 009);
 DrawText(("Prev Day: " + FormatFloat("0", preVol)), volpane, 4, 26, 009, 009);
 DrawText(("Dry Up: " + FormatFloat("0", td.t_DuHighThresh2)), 
volpane, 4, 37, 009, 009);
 PlotSeries(WL_VOLUME, volpane, 009, WL_THICKHIST);
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if (((GetSeries(WL_VOLUME)[Bar] < td.t_DuHighThresh2))) 
DrawImage("DownArrowMagenta", volpane, Bar, (curVol * 1.75), false);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, 0, WL_GREENBKG);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, volpane, WL_GREENBKG);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, macdhistPane, WL_GREENBKG);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, stochPane, WL_GREENBKG);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, stochPane2, WL_GREENBKG);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, VolSDPane, WL_GREENBKG);
 if (((curVol < td.t_DuHighThresh2))) SetPaneBackgroundColor(Bar, PriceSDPane, WL_GREENBKG);
 
 }
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if ((PriceClose(Bar) > PriceOpen(Bar))) SetSeriesBarColor(Bar, WL_VOLUME, WL_BLACK);
 else if ((PriceClose(Bar) < PriceOpen(Bar))) SetSeriesBarColor(Bar, WL_VOLUME, WL_RED);
 else SetSeriesBarColor(Bar, WL_VOLUME, WL_BLACK);
 
 }
 DrawHorzLine(td.t_VduHighThresh, volpane, 950, WL_THICK);
 DrawHorzLine(td.t_DuHighThresh2, volpane, 900, WL_THICK);
 DrawHorzLine(td.t_LowHighThresh2, volpane, 809, WL_THICK);
 DrawHorzLine(td.t_MediumHighThresh2, volpane, 041, WL_THICK);
 DrawHorzLine(td.t_FastHighThresh2, volpane, 009, WL_THICK);
 DrawHorzLine(td.t_ExtremeLowThresh, volpane, 190, WL_THICK);
 /** MACD Histogram Pane */ 
 PlotSeriesLabel(MACDExSeries(WL_CLOSE, val1, val2), macdhistPane, WL_BLUE, WL_THIN, 
(((((("MACD (" + Convert.ToString(val1)) + ",") + Convert.ToString(val2)) + ",")

+ Convert.ToString(val3)) + ")"));
 PlotSeries(EMASeries(MACDExSeries(WL_CLOSE, val1, val2), val3), macdhistPane,
 WL_RED, WL_THIN);
 DrawHorzLine(0, macdhistPane, WL_OLIVE, WL_THIN);
 PlotSeries(macdh, macdhistPane, WL_BLUE, WL_THICKHIST);
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if (((GetSeries(macdh)[Bar] > 0))) SetSeriesBarColor(Bar, macdh, WL_GREEN);
 else if (((GetSeries(macdh)[Bar] < 0))) SetSeriesBarColor(Bar, macdh, WL_RED);
 
 }
 DrawHorzLine(0.40, macdhistPane, WL_BLACK, WL_DOTTED);
 DrawHorzLine( -0.40, macdhistPane, WL_BLACK, WL_DOTTED);
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if ((GetSeriesValue(Bar, macdh) >= 0.40)) SetPaneBackgroundColor(Bar,
 macdhistPane, WL_BLUEBKG);
 
 }
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if ((GetSeriesValue(Bar, macdh) <= -0.40)) SetPaneBackgroundColor(Bar,
 macdhistPane, WL_REDBKG);
 
 }
 /** Stochastics */ 
 DrawHorzLine(80, stochPane, WL_BLACK, WL_DOTTED);
 DrawHorzLine(20, stochPane, WL_BLACK, WL_DOTTED);
 PlotSeries(HersheyStochK, stochPane, WL_BLUE, WL_THICK);
 PlotSeries(HersheyStochD, stochPane, WL_RED, WL_THICK);
 DrawText("Stoch(14,1,3)", stochPane, 4, 4, WL_BLUE, 009);
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if ((GetSeriesValue(Bar, HersheyStochK) >= 80))
 SetPaneBackgroundColor(Bar, stochPane, WL_BLUEBKG);
 
 }
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if ((GetSeriesValue(Bar, HersheyStochK) <= 20))
 SetPaneBackgroundColor(Bar, stochPane, WL_REDBKG);
 
 }
 SetPaneMinMax(stochPane, -5, 105);
 DrawHorzLine(75, stochPane2, WL_BLACK, WL_DOTTED);
 DrawHorzLine(25, stochPane2, WL_BLACK, WL_DOTTED);
 PlotSeries(HersheyStochK2, stochPane2, WL_BLUE, WL_THICK);
 PlotSeries(HersheyStochD2, stochPane2, WL_RED, WL_THICK);
 DrawText("Stoch(5,2,3)", stochPane2, 4, 4, WL_BLUE, 009);
 for (Bar = 0; Bar <= (Bars.Count - 1); Bar++) {
 if ((GetSeriesValue(Bar, HersheyStochK2) >= 50))
 SetPaneBackgroundColor(Bar, stochPane2, WL_BLUEBKG);
 
 }
 SetPaneMinMax(stochPane2, -5, 105);
 // [declaration for function calcStopOffset used to be here] 
 StopOffset = (double)calcStopOffset();
 StopOffsetPercent = (double)((StopOffset / PriceLow((Bars.Count - 1))) * 100);
 DrawText(("Stop Offset: " + FormatFloat("0.00", StopOffset)),
 0, 6, 75, WL_BLUE, 10);
 DrawText((("Offset Percent: " + FormatFloat("0.0", StopOffsetPercent)) 
+ "%"), 0, 6, 90, WL_BLUE, 10);
 /** PlotSeries( SMASeries( #VOLUME, 65) , volpane, #green, #Thin ); */ 
 PlotSeries(SMASeries(WL_CLOSE, 20), 0, 009, WL_THICK);
 /** Send Values to Commentary Window */ 
 AddCommentary((("<h3>Symbol: " + Bars.Symbol) + "</h3>"));
 AddCommentary(((" Stop Offset: " + FormatFloat("0.00", StopOffset)) + " "));
 AddCommentary(((" Offset Percentage: " + FormatFloat("0.0",
 StopOffsetPercent)) + " "));
 AddCommentary((("Current Vol: " + FormatFloat("0", curVol)) + " "));
 AddCommentary((("Dry Up: " + FormatFloat("0", td.t_DuHighThresh2)) + " "));
 td.DuDataToCommentWindow();
 td.VolRngDataToCommentWindow();
 td.RngVolDataToCommentWindow();
 /** Post Score and Rank */ 
 if ((averagegain > 0)) DrawText(("Rank: " + FormatFloat("0.00",
 (100 * (((averagegain) / (((((((days1 + days2)
 + days3) + days4) + days5)) / 5))))))), 0, 6, 45, 009, 10);
 else DrawText("Rank: None", 0, 6, 45, 009, 10);
 /** Post Score and Rank */ 
 DrawText(("Score: " + FormatFloat("0", PVADScore)), 0, 6, 60, 009, 10);
 /** Draw IT Channel */ 
 DrawDownTrendRTL((Bars.Count - 1), WL_HIGH, 0, 20);
 DrawUpTrendRTL((Bars.Count - 1), WL_LOW, 0, 50);
 // [declaration for function T3Series used to be here] 
 // [declaration for function JackEMABarNSeries used to be here] 
 // [declaration for function Jackd2Xdt2Series used to be here] 
 // [declaration for function mv2Series used to be here] 
 PlotSeriesLabel(mv2Series(6), VolSDPane, WL_BLUE, WL_THICKHIST,
 "Volume Second Derivative");
 // [declaration for function ma2Series used to be here] 
 PlotSeriesLabel(ma2Series(WL_AVERAGE, 6), PriceSDPane, WL_BLUE,
 WL_THICKHIST, "Price Second Derivative");
 for (Bar = 21; Bar <= (Bars.Count - 1); Bar++) {
 SMADiff = (double)((SMA(Bar, WL_CLOSE, 20) - SMA((Bar - 1),
 WL_CLOSE, 20)));
 MACDday = (int)MACDExSeries(WL_CLOSE, val1, val2);
 /** (SMADiff > - 0.12) and(Priceclose(bar-1) > PriceMin)
 and(MFI( Bar, 14 ) > MFI( Bar - 1, 14 ))
 and(@#volume[Bar-1] < @#Volume[Bar - 2]) and(@HersheyStochK2[Bar]
 - @HersheyStochK2[Bar-1] > Stochslope) 
and(@MACDday[bar] - @MACDday[bar-1] > 0) and(curvol < DUHigh) and */ 
 if (((((((mv2Series(6) > 0)) && ((ma2Series(WL_AVERAGE, 6) > 0))) 
&& ((GetSeries(HersheyStochK2)[(Bar - 1)] < StochThresh))) 
&& (CrossOver(Bar, HersheyStochK2, HersheyStochD2))) 
&& ((GetSeries(macdh)[Bar] > GetSeries(macdh)[(Bar - 1)])))) {
 if ( ! IsLastPositionActive) BuyAtMarket((Bar + 1), "Bruno R Buy");
 
 }
 /** (SMADiff > - 0.12) and(Priceclose(bar-1) > PriceMin) 
and(MFI( Bar, 14 ) > MFI( Bar - 1, 14 )) 
and(@#volume[Bar-1] < @#Volume[Bar - 2]) and(@HersheyStochK2[Bar]
 - @HersheyStochK2[Bar-1] > Stochslope) 
and(@MACDday[bar] - @MACDday[bar-1] > 0) and(curvol < DUHigh) and */ 
 /** ApplyAutoStops( Bar + 1 ); */ 
 if ((((((GetSeries(HersheyStochK)[Bar] < GetSeries(HersheyStochK)[(Bar - 1)])) 
&& ((GetSeries(HersheyStochK)[Bar] < StochExit))) 
&& ((GetSeries(macdh)[Bar] < GetSeries(macdh)[(Bar - 1)]))) 
&& (((GetSeries(macdh)[(Bar - 1)] - GetSeries(macdh)[Bar]) > MACDdrop)))) {
 for (P = 0; P <= (PositionCount - 1); P++) 
if (PositionActive(P)) SellAtMarket((Bar + 1), P, "Bruno R Sell");
 
 }
 /** ApplyAutoStops( Bar + 1 ); */ 
 
 }
 
}
#region TVolRange
public class TVolRange{
 
 #region public 
 public double t_LowVol = 0.0;
 public double t_HighVol = 0.0;
 public string t_RangeName = null;
 #endregion public 
 
 
 
 public TVolRange (){
 
 }
 
} //end class TVolRange
#endregion TVolRange

#region TBarRange
public class TBarRange{
    
    #region public 
    public double t_LowRange = 0.0;
    public double t_HighRange = 0.0;
    #endregion public 
    
    
    
    public TBarRange (){
        
    }
    
} //end class TBarRange
#endregion TBarRange

#region THighLow
public class THighLow{
    
    #region public 
    public double t_low = 0.0;
    public double t_high = 0.0;
    public double t_range = 0.0;
    public double t_volume = 0.0;
    #endregion public 
    
    
    
    public THighLow (){
        
    }
    
} //end class THighLow
#endregion THighLow

#region TDuData
public class TDuData{
 
 #region public 
 public WL.TList t_VolRangeList = null;
 public WL.TList t_RangeVolList = null;
 public WL.TList t_IntevalList = null;
 public WL.TList t_VolRangeVolatList = null;
 public double t_VduLowThresh = 0.0;
 public double t_VduHighThresh = 0.0;
 public double t_DuLowThresh1 = 0.0;
 public double t_DuHighThresh1 = 0.0;
 public double t_DuLowThresh2 = 0.0;
 public double t_DuHighThresh2 = 0.0;
 public double t_LowLowThresh1 = 0.0;
 public double t_LowHighThresh1 = 0.0;
 public double t_LowLowThresh2 = 0.0;
 public double t_LowHighThresh2 = 0.0;
 public double t_MediumLowThresh1 = 0.0;
 public double t_MediumHighThresh1 = 0.0;
 public double t_MediumLowThresh2 = 0.0;
 public double t_MediumHighThresh2 = 0.0;
 public double t_FastLowThresh1 = 0.0;
 public double t_FastHighThresh1 = 0.0;
 public double t_FastLowThresh2 = 0.0;
 public double t_FastHighThresh2 = 0.0;
 public double t_ExtremeLowThresh = 0.0;
 public double t_ExtremeHighThresh = 0.0;
 public double t_Tick = 0.0;
 public int t_VolCat = 0;
 public int t_LookBac = 0;
 // public Create ()
 
 // public void DuDataToCommentWindow()
 
 // public void VolRngDataToCommentWindow()
 
 // public void RngVolDataToCommentWindow()
 
 #endregion public 
 
 
 
 public TDuData (){
 t_VolRangeList = new WL.TList();
 t_RangeVolList = new WL.TList();
 t_IntevalList = new WL.TList();
 t_VolRangeVolatList = new WL.TList();
 t_VolCat = (int)10;
 t_LookBac = (int)60;
 
 }
 
 public void DuDataToCommentWindow(){
 WSTL.C.AddCommentary((("Uvdu : " + WSTL.C.FormatFloat("0,0",
 t_VduHighThresh)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Du Lower Thresh 1 : "

+ WSTL.C.FormatFloat("0,0", t_DuLowThresh1)) + " "));
 WSTL.C.AddCommentary((("Du Upper Thresh 1 : " 
+ WSTL.C.FormatFloat("0,0", t_DuHighThresh1)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Du Lower Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_DuLowThresh2)) + " "));
 WSTL.C.AddCommentary((("Du Upper Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_DuHighThresh2)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Low Lower Thresh 1 : " 
+ WSTL.C.FormatFloat("0,0", t_LowLowThresh1)) + " "));
 WSTL.C.AddCommentary((("Low Upper Thresh 1 : " 
+ WSTL.C.FormatFloat("0,0", t_LowHighThresh1)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Low Lower Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_LowLowThresh2)) + " "));
 WSTL.C.AddCommentary((("Low Upper Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_LowHighThresh2)) + " "));
 WSTL.C.AddCommentary((("Medium Lower Thresh 1 : " 
+ WSTL.C.FormatFloat("0,0", t_MediumLowThresh1)) + " "));
 WSTL.C.AddCommentary((("Medium Upper Thresh 1 : "
 + WSTL.C.FormatFloat("0,0", t_MediumHighThresh1)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Medium Lower Thresh 2 : "

+ WSTL.C.FormatFloat("0,0", t_MediumLowThresh2)) + " "));
 WSTL.C.AddCommentary((("Medium Upper Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_MediumHighThresh2)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Fast Lower Thresh 1 : " 
+ WSTL.C.FormatFloat("0,0", t_FastLowThresh1)) + " "));
 WSTL.C.AddCommentary((("Fast Upper Thresh 1 : " 
+ WSTL.C.FormatFloat("0,0", t_FastHighThresh1)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Fast Lower Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_FastLowThresh2)) + " "));
 WSTL.C.AddCommentary((("Fast Upper Thresh 2 : " 
+ WSTL.C.FormatFloat("0,0", t_FastHighThresh2)) + " "));
 WSTL.C.AddCommentary(" ");
 WSTL.C.AddCommentary((("Lower Thresh Extreme : " 
+ WSTL.C.FormatFloat("0,0", t_ExtremeLowThresh)) + " "));
 WSTL.C.AddCommentary((("Upper Thresh Extreme : " 
+ WSTL.C.FormatFloat("0,0", t_ExtremeHighThresh)) + " "));
 WSTL.C.AddCommentary(" ");
 
 }
 
 public void VolRngDataToCommentWindow(){
 int i = 0;
 THighLow hl = null;
 WSTL.C.AddCommentary(" ");
 for (i = 0; i <= (t_VolRangeList.Count - 1); i++) {
 hl = (THighLow)(t_VolRangeList.Object(i));
 string str = null;
 str = (string)(((((((("Volume" + "[") + Convert.ToString(i)) + "] = ") 
+ WSTL.C.FormatFloat("0,0", (double)t_VolRangeList.Item(i))) + " - ") + "Range = ") 
+ WSTL.C.FormatFloat("#,##0.00", hl.t_range)) + " ");
 WSTL.C.AddCommentary(str);
 
 }
 
 }
 
 public void RngVolDataToCommentWindow(){
 int i = 0;
 THighLow hl = null;
 WSTL.C.AddCommentary(" ");
 for (i = 0; i <= (t_RangeVolList.Count - 1); i++) {
 hl = (THighLow)(t_RangeVolList.Object(i));
 string str = null;
 str = (string)(((((((("Range" + "[") + Convert.ToString(i)) + "] = ") 
+ WSTL.C.FormatFloat("#,##0.00", (double)t_RangeVolList.Item(i))) + " - ") + "Volume = ") 
+ WSTL.C.FormatFloat("0.0", hl.t_volume)) + " ");
 WSTL.C.AddCommentary(str);
 
 }
 
 }
 
} //end class TDuData
#endregion TDuData

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

#endregion file ChartScript
[/CODE]

Please note: Mechanical translation and manual fixup are just the first step towards a "good" WL5 script. Its certainly a good idea to replace the TLists by native collections for example.

coolgramps

#22

1/18/2009 9:48 AM

Dr. Koch - Thank you for trying. I ran your amended script but it did not work.Perhaps I did not run it correctly.
Don

coolgramps

#23

1/18/2009 9:54 AM

Dr Koch - After correcting several errors at the end of the script, it works almost perferctly.
Thanks so much! You have made my day.
Don

coolgramps

#24

1/18/2009 10:41 AM

Dr. Koch - Is there anyway that the volume bars for a down price bar can be red and the up bars blue?
Thanks

DrKoch

#25

1/19/2009 8:01 AM

QUOTE:
... volume bars ... can be red

This is a typical beginner's question.
Answer:
Open WL5, go to Help->WealthScript QuickRef
In the left tree open "Cosmetic Chart"
Open "SetSeriesBarColor"
This page shows you detailed information how to color a bar.
To apply this to the Volume series you'll need to know that the DataSeries which represents the volume bars is called "Volume".

Cone

#26

1/19/2009 11:07 AM

You don't have to program Volume up/down bar color anymore (not even in the last builds of Version 4). Just go to Preferences (F12) > Chart Colors and Style, then modify the colors.

angel57

#27

1/22/2009 7:25 PM

Tried running the final translation posted by DrKoch. Compiles ok, but dies during execution. Cannot find the finantic.TL namespace. Could not find the namespace in Community Indicators or www.finantic.de for downloading. Error was "Cannot find WealthLab base directory... finantic.TL.WealthLabTL.DrawImage". If I comment out the DrawImage, then it runs, but not sure if this line is important.

DrKoch

#28

1/23/2009 2:22 AM

Angel,
to run a "translated" script you need a helper/wrapper DLL called "WealthScriptTL.dll" which must be present in the main WL5 directory (usually C:\Program Files\Fidelity Investments\Wealth-Lab Pro 5)

This Assembly/DLL contains the finantic.TL namespace.

This DLL is part of the Translator distribution.

angel57

#29

1/23/2009 1:01 PM

Installed the Translator distribution. WealthScriptTL.dll is now in c:\program files\Fidelity Investments\Wealth-Lab Pro 5 directory. Get a slightly different error. It still says it cannot find DrawImage but says it is looking for it in directory D:\Projects\Visual Studio 2005\Projects\WSTL\WLSuperClass\WealthScriptTL.cs:line 642. The D: drive on my system is my CDRW drive and not a hard-drive location, so looks like leftover info from the system that the DLL was compiled on. Or do I need to use the Translator software to re-translate your script, or get some internal paths/environment variables reset?

DartboardTrader

#30

1/26/2009 10:53 AM

I see the same error in WLP 5.3 (with Translator installed). Here is the exact error message text:

CODE:
Please log in to see this code.

DrKoch

#31

1/26/2009 11:26 AM

ok, the translator tries to be *very* compatible here. The original DrawImage() searches the bitmap file in one of WL's folders:

original WL4 docu:

QUOTE:
The Bitmap parameter must contain the name of a bitmap file (bmp) that resides in the "Bitmaps" folder directly under the main Wealth-Lab folder. Provide the file name only, no path or file extension

consequently the translated DrawImage() checks the registry at "HKEY_CURRENT_USER\\Software\\Wealth-Lab\\Wealth-Lab Developer 3.0" to find the old WL base directory.

Some methods to get it working:

1. Set the registry to an existing path and store bitmaps in the Bitmaps subfolder of this path.

2. use the native DrawImage() function.

Probably I should extend the translated version to accept a complete path...

DartboardTrader

#32

1/26/2009 12:03 PM

Ok, part of the problem is that I did not have WLP 4.5 installed. Only WLP 5.x and the translator.
I would suggest that an installation of WLP 4.5 should not be required. If possible, pack the necessary files into the translator's installer.

Here is my workaround:

1) Add Registry Key names for "HKEY_CURRENT_USER\\Software\\Wealth-Lab\\Wealth-Lab Developer 3.0". No values, just the keys, and it appears to be fine. I'm not sure this makes any difference.
2) Copy the C:\\Program Files\Fidelity Investments\Wealth-Lab Pro\ folder from another PC (where I did have WLP 4.5 installed) to an equivalent path in your local Program Files directory.
3) Re-run the script and it will work.

DrKoch

#33

1/26/2009 3:13 PM

Hmmm...

QUOTE:
and it will work

If you are happy with this solution you could just as well comment out the DrawImage() function, much simpler!

DartboardTrader

#34

1/28/2009 1:55 PM

Did anyone notice the mv2(6) chart pane is empty?

Is this a bug or an unused pane for this script?

sgubba

#35

1/30/2009 1:49 PM

Dr. Koch,
Besides mv2(6)pane, also the chart area is too small/conjested. Is there a way to hide the indicators while working in the background? If possible, could you repost the script with modifications. Thanks in advance.

coolgramps

#36

1/31/2009 11:53 AM

Cone - Thanks for the tip about Preferences. Unfortunately, this did not change the Volume bars.

Cone

#37

1/31/2009 12:18 PM

QUOTE:
Unfortunately, this did not change the Volume bars.

Are you saying that the Preference for Up/Down Volume color does not work?
It always has before; that's what that Preference is for.

Eugene

#38

1/31/2009 12:46 PM

QUOTE:
Are you saying that the Preference for Up/Down Volume color does not work?

With this particular script, it's unlikely to have effect since there's custom color applied someplace in the code.

Cone

#39

1/31/2009 12:51 PM

Yes, of course you have to disable that coolgramps! Anything you do in code overrides Preferences.

sgubba

#40

2/11/2009 11:00 AM

Hi Eugene,
How come we can not resize the chart and volume pane. I wish I could delete the blank pane. Could you suggest any changes to the code for editing purposes? Thanks in advance.
SG

Eugene

#41

2/11/2009 11:42 AM

QUOTE:
I wish I could delete the blank pane.

Hint: search for VolSDPane.

QUOTE:
How come we can not resize the chart and volume pane

There is no volume pane, it is hidden. Volume is apparently plotted directly in the chart pane.

Actually, this is not a question to me. If you manually comment all the CreatePane calls, surprisingly, the script will not error but will continue plotting the data series in the price pane. This is handled internally by the finantic.TL library, I'm not aware how it works.

sgubba

#42

2/11/2009 12:16 PM

Thanks Eugene,
I did the first step and worked so far so good. Could you give me one line example of the step 2 of your above comment?
-SG

sgubba

#43

2/11/2009 12:22 PM

Actually first step solved big chunk of visibility. Now the task would be to resize the volume pane or get rid of it. That may give a final peace. :)
-SG