|
PureBytes Links
Trading Reference Links
|
A few days ago Dale Legan posted an indicator 'Confluence' , this
looked more like a function. I contacted him and.....there is a little
more to this. See Attachment.
I have looked this indicator over and it's quite a piece of code. It
looks good. I placed it on my chart and it seems to have some merit. I
would like to take this opportunity to present the code to the list.
I did not get any instructions from Dale as to what and how this thing
should look like. I made it into a Histogram..... Bear bars 'Red' Bull
bars 'Blue' the Yellow 'Yellow' and the Zero 'white' If you come up
with a better combination let us all know.
Those of you who use SuperCharts.....if you are interested I will send
you an ela file....I will send them out on this Saturday....one day
only...I would like to send out one post with every one's address on the
cc line. Saturday morning 'only'
John
PS.... almost forgot...'usual disclaimer'.....
Return-path: <dlegan@xxxxxxxxx>
Envelope-to: joachim@xxxxxxxxxxxx
Received: from centurion.flash.net [209.30.0.22]
by pop.uniserve.com with esmtp (Exim 1.82 #4)
id 0zdgjx-0001W2-00; Wed, 11 Nov 1998 12:19:45 -0800
Received: from p67.amax7.dialup.hou1.flash.net (p67.amax7.dialup.hou1.flash.net [209.30.66.67])
by centurion.flash.net (8.8.8/8.8.5) with SMTP id OAA20544
for <joachim@xxxxxxxxxxxx>; Wed, 11 Nov 1998 14:19:41 -0600 (CST)
Received: by p67.amax7.dialup.hou1.flash.net with Microsoft Mail
id <01BE0D7E.253010E0@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>; Wed, 11 Nov 1998 14:18:25 -0600
Message-ID: <01BE0D7E.253010E0@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>
From: Dale Legan <dlegan@xxxxxxxxx>
To: "'joachim@xxxxxxxxxxxx'" <joachim@xxxxxxxxxxxx>
Subject: RE: Confluence indicator
Date: Wed, 11 Nov 1998 14:10:10 -0600
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
You can post this to the list. I have dropped off of the list. I'm going in for surgury next week, going on dialysis.
Thanks
Dale
{*****************************
Confluence Indicator By Dale Legan
Clear Lake Capital Mgmt
18333 Egrett Bay Blvd Suite 270
Houston TX 77058
281-335-4983
FAX 281-335-4984
e-mail DLegan@xxxxxxxxx
*********************************}
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),
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);
Input: price(c),Harmonic(6);
{Calculate Lengths}
MTL=harmonic/2;
STL= IntPortion((harmonic*2)-1); {11}
ITL= IntPortion((STL*2)-1); {21}
LTL= IntPortion((ITL*2)-1); {41}
HOFF=intportion(harmonic/2); {3}
SOFF=intportion(STL/2); {5}
IOFF=intportion(ITL/2); {10}
LTOFF=intportion(LTL/2); {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}
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;
|