|
PureBytes Links
Trading Reference Links
|
Could someone post the "derivativema" function for this as I missed it last
time around.
many thanks
Philip
----------
> From: Jim Osborn <jimo@xxxxxxxxxx>
> To: omega-list@xxxxxxxxxx
> Cc: dlegan@xxxxxxxxx
> Subject: Fwd: Free Downloads - Confluence.
> Date: 12 November 1998 18:10
>
> 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;
>
>
>
|