|
PureBytes Links
Trading Reference Links
|
Nice one Clyde,
I always learn something from yr. code.
Many thanks
DJ
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
----- Original Message -----
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black">From:
Clyde Lee
To: <A title=code-list@xxxxxxxxxxxxx
href="mailto:code-list@xxxxxxxxxxxxx";>Code
Sent: Thursday, July 26, 2001 8:36
PM
Subject: [RT] INDICATOR -- Stochastic on
Anything
I wanted to look at a stochastic based on
momentum of prices
and there was not one in my
library.
I wrote this in such a fashion that it
runs on TS4 and TS2000
(YOU GOTTA USE THE XAverage2 FUNCTION for
TS4).
May not be of any use but I got a kick
out of the results of
this compared with a conventional
Stochastic.
There is a picture attached which shows
the difference.
Enjoy.
Clyde
{= = = = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = =
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.
<FONT face="Courier New"
size=2> The
raw computation plot can be bypassed by
setting
the PlotRaw input to false.
<FONT face="Courier New"
size=2> 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)
;
<FONT face="Courier New"
size=2>
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,Xaverage2(StochRaw,SmoLeng1));
Plot2(StochS1,"SS1"); If
SmoLeng2>0 then begin StochS2 =
Iff(CurrentBar=Length,StochS1,Xaverage2(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: <A
href="mailto:clydelee@xxxxxxxxxxxx";>clydelee@xxxxxxxxxxxx 7910
Westglen, Suite 105
Office: (713) 783-9540Houston, TX
77063
Fax: (713) 783-1092Details
at:
www.theswingmachine.com- - -
- - - - - - - - - - - - - - - - - - - - - - - -
-To unsubscribe from this group, send an email
to:realtraders-unsubscribe@xxxxxxxxxxxxxxxYour
use of Yahoo! Groups is subject to the <A
href="http://docs.yahoo.com/info/terms/";>Yahoo! Terms of Service.
To unsubscribe from this group, send an email to:
realtraders-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
|