|
PureBytes Links
Trading Reference Links
|
Just substitute RSI where I have Momentum and you will have one.
{= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Indicator: StochasticANY
Purpose: Allow user to calculate a Stochastic (raw and two
smoothed versions) on anything that their little
heart desires. Default is setup using Momentum
and if used with defaults will calculate a
Stochastic of Momentum.
The raw computation plot can be bypassed by setting
the PlotRaw input to false.
BE SURE TO SET TYPE PLOT FOR PLOT4 TO BE POINT
since one plot is used to plot the 20 and 80 lines.
Author: Clyde Lee, Copyrighted July, 2001
Permissions: This code may be freely copied and distributed
so long as credit to the copyright holder is
included.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =}
Input: LoPrice(Momentum(L,30)),
HiPrice(Momentum(H,30)),
ClPrice(Momentum(C,30)),
Length(30),
SmoLeng1(21),
SmoLeng2(9),
PlotRaw(false) ;
Variables: PriceLo(LoPrice),PriceHi(HiPrice),PriceCl(ClPrice),
StochRaw(0),StochS1(0),StochS2(0);
PriceLo=Loprice;
PriceHi=HiPrice;
PriceCl=ClPrice;
If CurrentBar>=Length then begin
Value1=Lowest(PriceLo,LENGTH);
Value2=Highest(PriceHi,LENGTH)-Value1;
StochRaw = (PriceCl-Value1)/Iff(Value2<>0,Value2,.001)*100;
If PlotRaw then Plot1(StochRaw,"SRaw");
If SmoLeng1>0 then begin
StochS1 = Iff(CurrentBar=Length,StochRaw,Xaverage(StochRaw,SmoLeng1));
Plot2(StochS1,"SS1");
If SmoLeng2>0 then begin
StochS2 = Iff(CurrentBar=Length,StochS1,Xaverage(StochS1,SmoLeng2));
Plot3(StochS2,"SS2");
End;
End;
End;
If Mod(CurrentBar,2)=0
then Plot4(20,"8020")
else Plot4(80,"8020");
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
Clyde Lee Chairman/CEO (Home of SwingMachine)
SYTECH Corporation email:clydelee@xxxxxxxxxxxxxxxxxxx
7910 Westglen, Suite 105 Office: (713) 783-9540
Houston, TX 77063 Fax: (713) 783-1092
Details at: www.theswingmachine.com
- - - - - - - - - - - - - - - - - - - - - - - - - - - -
----- Original Message -----
From: "Eliot Kaplan" <eliot@xxxxxxx>
To: "Omega Mail List" <omega-list@xxxxxxxxxx>; "MedianLine Mail List"
<MedianLine@xxxxxxxxxxxxxxx>
Sent: Thursday, October 10, 2002 11:36 AM
Subject: [MedianLine] StochRSI
> In the public domain, is there a StochRSI available that works in TS6,
that
> someone is willing to post?
>
> Your help is appreciated.
>
> Eliot
> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
> Eliot Kaplan
> email; eliot@xxxxxxx
> web: http://www.isu.com
|