Re: Code for Double Stochastic

["Spot Forex" <spotforex@xxxxxxxxxxx>]

Thanks so much for the code!!

John

----- Original Message -----
From: "Chase Hardy" <chardy@xxxxxxxxxxxx>
To: "Spot Forex" <spotforex@xxxxxxxxxxx>
Sent: Thursday, August 08, 2002 4:41 PM
Subject: Re: Code for Double Stochastic


> Indicator:
>
> Inputs: DStLen(21),SellLine(80),BuyLine(20),Smooth(3);
>
> Vars: DStoc(0);
>
> {DStoc}
> DStoc=_DStoc(DStLen);
>
>
> {Plots}
> Plot1(DStoc,"DStoc");
> Plot2(SellLine,"Upper");
> Plot3(BuyLine,"Lower");
> Plot4(average(DStoc,Smooth),"Smooth");
>
> **************************************************
> Function:
>
> {_DStoc: Double Stochastic}
>
> Inputs: DStLen(NumericSimple);
>
> Vars:   Num(0),Denom(0),Ratio(0),PctK(0),DNum(0),DDenom(0),
>         DRatio(0),DPctK(0);
>
> {Stoc}
> Num=C-_Lst(L,DStLen);
> Denom=_Hst(H,DStLen)-_Lst(L,DStLen);
> Ratio=IFF(Denom>0,(Num/Denom)*100,Ratio[1]);
> PctK=IFF(CurrentBar=1,Ratio,PctK[1]+(.5*(Ratio-PctK[1])));
>
> {DStoc}
> DNum=PctK-_Lst(PctK,DStLen);
> DDenom=_Hst(PctK,DStLen)-_Lst(PctK,DStLen);
> DRatio=IFF(DDenom>0,(DNum/DDenom)*100,DRatio[1]);
> DPctK=IFF(CurrentBar=1,DRatio,DPctK[1]+(.5*(DRatio-DPctK[1])));
>
> _DStoc=DPctK;
>
>
> ----- Original Message -----
> From: "Spot Forex" <spotforex@xxxxxxxxxxx>
> To: <omega-list@xxxxxxxxxx>
> Sent: Thursday, August 08, 2002 4:28 PM
> Subject: Code for Double Stochastic
>
>
> Hi Everyone
>
> First, I would like to express my gratitude to the members who responded
> with advice and coding suggestions with my previous post.  I did not
expect
> such a quick response.  Thank you, thank you, thank you!
>
> Second, I was wondering if someone would be so kind as to provide the code
> for Walter Bressert's Double Stochastic.  I am interested in studying the
> code and comparing it to the classic stochastic.
>
> Take Care and Thanks in Advance. :- )
>
> John
>