##Retr Indicator

[joachim@xxxxxxxxxxxx]

Dale Legan has requested that I post this indicator for him. It is based
on the Confluence indicator. If you have any questions on the use and
application of this indicator..... you will be able to contact Dale
after his surgery.  He is apparently off
the list but still on the net.

John

{##Retr Indicator}

vars:STL(0),ITL(0),LTL(0),HOFF(0),SOFF(0),IOFF(0),LTOFF(0),Phase(1),mtl(0),momsig(0),mom(0),HT(0),HTA(0),price(0),harmonic(0),

ST(0),STA(0),IT(0),ITA(0),SUM(0),ERR(0),ERRSUM(0),ERRSIG(0),TC(0),TCSIG(0),
ERRNUM(0),MOMNUM(0),TCNUM(0),String2("");



price=c;
{Calculate Lengths}
harmonic=6;
STL= 11;  {11}
ITL= 21;             {21}
LTL= 41;              {41}

HOFF=3;     {3}
SOFF=5;               {5}
IOFF=10;                 {10}
LTOFF=20;             {20}

{Cycle Momentum}

value2 = average(price,STL) - average(price,Harmonic)[HOFF];
value3 = average(price,ITL) - average(price,STL)[SOFF];
value12 = average(price,LTL)-average(price,ITL)[IOFF];

momsig = value2 + value3 + value12;  {Signal Line}

value5= ((summation(price,harmonic-1) +
derivativema(price,harmonic))/harmonic);
value6= ((summation(price,STL-1) + derivativema(price,STL))/STL);
value7= ((summation(price,ITL-1) + derivativema(price,ITL))/ITL);
value13=((summation(avgprice,LTL-1) + derivativema(price,LTL))/LTL);

value9 = value6 - value5[HOFF];
value10=value7 - value6[SOFF];
value14=value13 - value7[IOFF];
mom = value9 + value10 + value14;

{ harmonic =6 was 5 may use harmonic -1 }

HT=
sine((summation(price,(harmonic-1))+derivativema(price,harmonic))/harmonic)
+
cosine((summation(price,(harmonic-1))+derivativema(price,harmonic))/harmonic);

HTA= sine(average(price,harmonic)) +cosine(average(price,harmonic));

ST=  sine((summation(price,(STL-1))+derivativema(price,STL))/ STL) +
cosine((summation(Price,(STL-1))+derivativema(Price,STL))/STL);
STA = sine(average(price,STL)) + cosine(average(price,STL));

IT= sine((summation(price,(ITL-1))+derivativema(c,ITL))/ITL) +
cosine((summation(price,(ITL-1))+derivativema(Price,ITL))/ITL);
ITA=sine(average(price,ITL))+ cosine(average(price,ITL));

Sum= HT+ST+IT;  {Est in Cyc Estimator/ Cycle Est Err = Sum - Err }
Err =HTA + STA +ITA;

{phase detect}
{phase detect}

phase=1;
value7=average(medianprice,3);
if value7>value7[1] and sum<sum[1] then begin
 phase=-1;
end;

if value7<value7[1] and sum>sum[1] then begin
 phase=-1;
end;

ErrSum = (Sum - Err)*phase;  { ERROR OF THE CYCLE}
ErrSig=average(ErrSum,SOFF);   { ERROR SIGNAL LINE}

{Trend Catcher}

value68=( (summation(price,(harmonic-1)) + derivativema(price,harmonic))
/ harmonic );
value69=( (summation(avgprice,(LTL-1)) + derivativema(price,LTL)) / LTL
);

value70 = value68-value69; { EST W Der}
value71 = average(value70,Harmonic);

TC =value70;
TCSig=value71;

{Begin Counting Bars}

If ErrSum > 0 then begin
if Errsum < ErrSum[1] and ErrSum < ErrSig then ErrNum=1;
If ErrSum <ErrSum[1] and ErrSum >ErrSig then ErrNum=2;
If ErrSum>ErrSum[1] and ErrSum<ErrSig then ErrNum=2;
If ErrSum > ErrSum[1] and ErrSum> ErrSig then ErrNum=3;
End;
If ErrSum < 0 then begin
if Errsum > ErrSum[1] and ErrSum > ErrSig then ErrNum=-1;
If ErrSum <ErrSum[1] and ErrSum >ErrSig then ErrNum=-2;
If ErrSum>ErrSum[1] and ErrSum<ErrSig then ErrNum=-2;
If ErrSum < ErrSum[1] and ErrSum< ErrSig then ErrNum=-3;
End;

If Mom > 0 THEN begin
if mom < mom[1] and mom < momsig then momNum=1;
If mom <mom[1] and mom >momsig then momNum=2;
If mom>mom[1] and mom<momsig then momNum=2;
If mom > mom[1] and mom> momSig then momNum=3;
End;
If mom < 0 then begin
if mom > mom[1] and mom > momSig then momNum=-1;
If mom <mom[1] and mom >momSig then momNum=-2;
If mom>mom[1] and mom<momSig then momNum=-2;
If mom < mom[1] and mom< momSig then momNum=-3;
End;

If TC > 0 THEN begin
if TC < TC[1] and TC < TCsig then TCNum=1;
If TC <TC[1] and TC >TCsig then TCNum=2;
If TC>TC[1] and TC<TCsig then TCNum=2;
If TC > TC[1] and TC> TCSig then TCNum=3;
End;
If  TC < 0 then begin
if TC > TC[1] and TC > TCSig then TCNum=-1;
If TC <TC[1] and TC >TCSig then TCNum=-2;
If TC>TC[1] and TC<TCSig then TCNum=-2;
If TC < TC[1] and TC< TCSig then TCNum=-3;
End;

value42= ErrNum + MomNum+TCNum;

If value42=5 then begin
 If ErrSum > 0 then begin
  If TC < 0 THEN begin { + 5 Yellow}
   Plot1(l-1 point,"+5Y");
  end;
  if TC>0 then begin {+5G}
   plot2(l-1 point,"+5G");
  End;
 End;
end;

If value42=-5 then begin
 If ErrSum < 0 then begin
  If TC > 0 THEN begin { - 5 Yellow}
   Plot3(h+1 point,"-5Y");
  end;

  if TC<0 then begin {-5R}
   plot4(h+1 point,"-5R");
  end;
 End;
end;