|
PureBytes Links
Trading Reference Links
|
List:
Still not sure if this is the correct translation from metastock into
TS2000i Easy Language. Cut and past and insert on top of an RSI scaled
to screen.
Any thoughts would be helpful.
Regards,
Thomas
========================================================================
==============================
{
{ RSI Derivative Index - C. Brown (MetaStock)}
Formula: Base:=Mov(RSI(14),6,S);
ATRcustom:=HHV(
ValueWhen(1, RSI(14) > Ref(RSI(14), -1), ATR(1))OR
ValueWhen(2, RSI(14) > Ref(RSI(14), -1), ATR(1))OR
ValueWhen(3, RSI(14) > Ref(RSI(14), -1), ATR(1)), 14);
Part1:=
{up coefficient is a factor 2.3 and added}
(2.3*(Mov(ATRcustom, 15,S)));
Part2:=
{down coefficient is factor 2.1 and subtracted}
(2.1*(Mov(ATRcustom, 15,S)));
{Part3=
if RSI closes up or equal to, than part1,
else, if RSI closes down, part2}
If( Base>=Ref(Base,-1),
{RSI up=TRUE, then} Base+Part1,{else}
{RSI up=FALSE,then} Base-Part2)
}
{ RSI Derivative Index - created by Thomas J, Festa, CMT Copyright c
2007 (EasyLanguage) }
Inputs: Price(Close), RSILgth(14), AvgLgth1(6), AvgLgth2(15);
Vars: Base(0), ATRCustom(0), Part1(0), Part2(0), Part3(0);
Base = Average(RSI(Price, RSILgth), AvgLgth1);
ATRCustom = Average(TrueRangeCustom(RSI(Price, RSILgth)[1], RSI(Price,
RSILgth)[2], RSI(Price, RSILgth)), AvgLgth1);
Part1 = 2.3 * Average(ATRCustom, AvgLgth2);
Part2 = 2.1 * Average(ATRCustom, AvgLgth2);
If RSI(Price, RSILgth) >= RSI(Price, RSILgth)[1] then
Part3 = Part1 else
If RSI(Price, RSILgth) < RSI(Price, RSILgth) then
Part3 = Part2;
If Base >= Base[1] then begin
If RSI(Price, RSILgth) >= RSI(Price, RSILgth)[1] then
Plot1(Base + Part1, "RSIDerivOsc") else
Plot1(Part2, "RSIDerivOsc");
If RSI(Price, RSILgth) < RSI(Price, RSILgth)[1] then
Plot1(Base - Part2, "RSIDerivOsc");
end;
========================================================================
===
Thomas J. Festa, CMT
Technical Market Analyst
Technical Analysis Trading Systems Developer
Proprietary Trader - Equities & Related Derivatives
Hold Brothers, LLC
230 Headquarters Plaza
East Tower, 2nd Floor
Morristown, NJ 07960
Cell: (908) 581-8880
Confidentiality Notice: The information contained in this e-mail and any
attachments may be legally privileged and confidential. If you are not
an intended recipient, you are hereby notified that any dissemination,
distribution, or copying of this e-mail is strictly prohibited. If you
have received this e-mail in error, please notify the sender and
permanently delete the e-mail and any attachments immediately. You
should not retain, copy or use this e-mail or any attachment for any
purpose, nor disclose all or any part of the contents to any other
person.
|