Re: 2 short TS2K functions please

[Jimmy Snowden <jhsnowden@xxxxxxxxxxxxx>]

Do you want the high and low for Monday also?

__________________________________

{*******************************************************************
Description: Low of Day
Provided By: Omega Research, Inc. (c) Copyright 1999
********************************************************************}

Inputs: DaysAgo(Numeric);
Array: LowArray[50](-1);

If  DataCompression < 2 Then Begin
        If Date > Date[1] Then Begin
                For Value1 = 50 DownTo 1 Begin
                        LowArray[Value1] = LowArray[Value1 - 1];
                End;
                LowArray[0] = Low;
        End;
        
        If Low < LowArray[0] Then 
                LowArray[0] = Low;

        If DaysAgo <= 50 Then 
                LowD = LowArray[DaysAgo];
End;

{Forcing the function To series}
Value1 = LowD[1];


_____________________________________

{*******************************************************************
Description: High of Day
Provided By: Omega Research, Inc. (c) Copyright 1999
********************************************************************}

Inputs: DaysAgo(Numeric);
Variables: Day1Done(0);
Array: HighArray[50](-1);

If DataCompression < 2 Then Begin
        If Date > Date[1]  Then Begin
                Day1Done = Day1Done + 1;
                For Value1 = 50 DownTo 1 Begin
                        HighArray[Value1] = HighArray[Value1-1];
                End;
                HighArray[0] = High;
        End;
        If Day1Done>0 AND High > HighArray[0] Then 
                HighArray[0] = High;
        If DaysAgo <= 50 Then 
                HighD = HighArray[DaysAgo];
End;

{Forcing the function to series}
Value1 = HighD[1];








Would someone be kind enought to copy 2 ela's for me to compare mine with?
I may have altered them while experimenting and didn't change them back
correctly.

1.  HighYesterday
2.  LowYesterday


Thanks,
Phil