Fwd: Free Downloads - Confluence.

[Jim Osborn <jimo@xxxxxxxxxx>]

Dale's ISP forgot who he is for a while the other day, so the list
server dropped him.  Rather than make him resubscribe to send this
article, I'm taking the liberty of forwarding it straight to the list.
-- 
jimo@xxxxxxxxxx
maintainer of the omega list
omega-list-request@xxxxxxxxxx

----------------------forwarded article----------------------
X-Envelope-From: dlegan@xxxxxxxxx  Wed Nov 11 12:05:25 1998
Message-ID: <01BE0D7C.23CA0320@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>
From: Dale Legan <dlegan@xxxxxxxxx>

I have updated the site and added a zip file of my favorites.  It may
be a few months before I can add more or update.  I am going in for
surgery next week.  I am in the end stages of renal disease and will
be put on dialysis, again.  I was on dialysis 9 years ago for 2
years, and got a kidney transplant.  This one is failing.  I'll
probably drop off the list for awhile. 

Thanks for all the helpful post, everyone !  I know I got P.O.'d the
other day at the overly zelous spam police who crowd up the list with
more useless post than the actual spammers do !!  And, some small
minded people who attack anyone who is actually doing it. 

I admit there is a lot of junk to go through on this newsgroup.  But
the few nuggets of gold I get off of this list make it all worth while.

PS.  Here is the full code for the confluence indicator.  What I
posted before was a function.  The Confluence is a summation of three
indicators

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}
Condition2= (Sum > Sum[SOFF] and average(price,harmonic) < average(price,harmonic)[SOFF]) OR (Sum < Sum[SOFF] and average(price,harmonic) > average(price,harmonic)[SOFF]) ;
Phase=1;
if Condition2 then Phase=-1;

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

{Trend Catcher}
value15=average(medianprice,5);
value16=average(medianprice,11);
value17 =average(medianprice,21);
value18=average(medianprice,41);
value25=average(medianprice,81);

value19=value15-value15[1];  {slope}
value20=value16-value16[1];  {slope}
value21=value17-value17[1];  {slope}
value22=value18-value18[1];  {slope}
value26=value25-value25[1];  {slope}
value23=(value19+value20+value21+value22+value26)/5;
value24=average(value6,5);

TC =value23;
TCSig=value24;
{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 >0 and TC >0 THEN BEGIN
Plot1(value42,"Bull");
END;

IF value42<0 and TC < 0 THEN BEGIN 
PLOT2(VALUE42,"Bear-");
END;

If (value42 > 0 and tc <0) or (value42 <0 and tc>0) then begin
PLOT3(value42,"Yellow");
end;

If value42 = 0 then begin
PLOT4(value42,"ZERO");
end;