Re: won't

[Ron Archer <archer@xxxxxxx>]

preston morrow wrote:
> seems several bugs inhibiting verification... any suggestions?  couldn't
> get thru to mark... only got an automatic reply "thank you"
<snip>
> Subj:  Re:Pivot Indicator
<snip>

Here's my version for intraday data...

Ron Archer
archer@xxxxxxx

{Pivot}
Inputs:LastDate(true);

If DataCompression = 1 then
Value1=((HighD(1) + LowD(1) + CloseD(1)) / 3); {Pivot
intraday}

If LastDate=true and Date=LastCalcDate then begin
Plot1(Value1,"Pivot");
end;

If LastDate=false then begin
Plot1(Value1,"Pivot");
end;


{Pivot Support ^ Resistance}
Inputs:
ShowR2(true),ShowR1(true),ShowS1(true),ShowS2(true),LastDate(true);

If DataCompression = 1 then begin
Value1=((HighD(1) + LowD(1) + CloseD(1)) / 3);	{Pivot}
Value2=Value1 + (HighD(1) - LowD(1));	{Resistance 2}
Value3=(Value1 * 2) - LowD(1);    	{Resistance 1}
Value4=(Value1 * 2) - HighD(1);   	{Support 1}
Value5=Value1 + (LowD(1) - HighD(1));	{Support 2}
end;

If LastDate = true and Date = LastCalcDate then begin
If ShowR2=true then
Plot1(Value2,"R2");
If ShowR1=true then
Plot2(Value3,"R1");
If ShowS1=true then
Plot3(Value4,"S1");
If ShowS2=true then
Plot4(Value5,"S2");
end;

If LastDate = false then begin
If ShowR2=true then
Plot1(Value2,"R2");
If ShowR1=true then
Plot2(Value3,"R1");
If ShowS1=true then
Plot3(Value4,"S1");
If ShowS2=true then
Plot4(Value5,"S2");
end;