[EquisMetaStock Group] Translation Required to MS

["formulaprimer" <formulaprimer@xxxxxxxxx>]

Inputs:

Price((H+L)/2),
Lookback(60);
Arrays:
H[190](0), H1[100](0), H2[100](0), H3[100](0), H4[100](0), HAvg[100](0);
For I = 1 to 50 Begin
N = 2*I;
N3 = (Highest(High, N) - Lowest(Low, N)) / N;
HH = High;
LL = Low;
For count = 0 to N/2 - 1 begin
If High[count] > HH then HH = High[count];
If Low[count] < LL then LL = Low[count];
End;
N1 = (HH - LL)/(N / 2);
HH = High[N/2];
LL = Low[N/2];
For count = N/2 to N - 1 begin
If High[count] > HH then HH = High[count];
If Low[count] < LL then LL = Low[count];
End;
N2 = (HH - LL)/(N / 2);
If N1 > 0 and  N2 > 0 and N3 > 0 then Dimen = (Log(N1 + N2) - Log(N3)) / Log(2);
H = 2*(1 / Dimen - .5);
H = 1.25*(H - .5) + .6;
HAvg = (H + H1 + H2 + H3 + H4) / 5;
If HAvg > 1 then HAvg = 1;
If HAvg < 0 then HAvg = 0;
H4 = H3;
H3 = H2;
H2 = H1;
H1 = H;
End;
For I = 2 to 50 Begin
N = 2*I - 1;
HAvg = (HAvg[N - 1] + HAvg[N + 1]) / 2;
End;

PlotLen = Lookback;
If Plotlen > 99 Then PlotLen = 99;
For I = 8 to PlotLen Begin


If HAvg >= .5 Then Begin
Color1 = 255*(2 - 2*HAvg);
Color2 = 255*(2*HAvg - 1);
Color3 = 0;
End
Else If HAvg < .5 Then Begin
Color1 = 255*(2*HAvg);
Color2 = 0;
Color3 = 255*(1 - 2*HAvg);
End;



------------------------------------

Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/equismetastock/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/equismetastock/join
    (Yahoo! ID required)

<*> To change settings via email:
    equismetastock-digest@xxxxxxxxxxxxxxx 
    equismetastock-fullfeatured@xxxxxxxxxxxxxxx

<*> To unsubscribe from this group, send an email to:
    equismetastock-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/