Stocks and Commodities Magazine

• S&C October 2000
• S&C April 2003
• S&C Aug2000 Ehlers Center of Gravity
• S&C July 2002
• S&C July 2003
• S&C October 2002
• S&C January 2003
• S&C August 2000 Stoch RSI
• RSI Wilder in Oversold Territory

S&C October 2000

! Normalization procedures
! Simple Moving Average
! {OscCalc,periods} / SimpleAvg(OscCalc,periods)
! Sample Normalized
MACDSMA is [MACD]/SimpleAvg([MACD],9).
! Standard Deviation
! {OscCalc,periods} / Sqrt(Variance(OscCalc,periods)).
! Sample Normalized
MACDStdDev is [MACD]/Sqrt(Variance([MACD],9)).
! Average True Range
! {OscCalc,periods}/ SimpleAvg(ATR,periods)
! Sample
ATR1 is max([high]-[low],[high]-val([close],1)).
ATR is max(ATR1,val([close],1)-[low]).
NormalizedMACDATR is [MACD]/SimpleAvg(ATR,9).
! Own Historical Range
! 100 * ({OscCalc} - LoVal({OscCalc},N)/ (HiVal({OscCalc,N)-LoVal({OscCalc},N)
! Sample
NormalizedMACDHistRange is 100 * ([MACD] - LoVal([MACD],200)) / (HiVal([MACD],200) - LoVal([MACD],200)).

!The following is the AIQ code for the Telechart scan:
Long if ([close]>20) and (SimpleAvg([volume],50)>500) and ([close] > HiVal([close],5,1)) and ([close]>Val([close],1)+1) and
([volume]> 1.5 * SimpleAvg([volume],50)).
Short if ([close]>20) and (SimpleAvg([volume],50)>500) and ([close] < LoVal([close],5,1)) and
([close]< Val([close],1)-1) and ([volume]> 1.5 * SimpleAvg([volume],50)).

S&C April 2003

!!!! Stocks and Commodities April 2003 - Detecting Breakouts - FVE - Marcos Katsanos

C is [close].
H is [high].
L is [low].
V is [volume].
Vneg is -[volume].
AvgVolume is simpleavg([volume], 22).
Typical is (H+L+C) / 3.
Typicalone is valresult(typical, 1).
Inequality is C - (H + L) /2 + Typical - Typicalone.
Greaterthan03 if inequality > (0.3 * C )/ 100.
Lessthan03 if inequality < (0.3 * C) / 100.
Volumeplus is iff(greaterthan03, v, vneg).
Volumenegative is iff(lessthan03, vneg, 0).
sum is sum(volumeplus, 21).

FVE is ((sum / avgvolume) / 21) * 100.

S&C Aug2000 Ehlers Center of Gravity

!! EDS Code for Ehlers Center of Gravity.
! This code is intended for educational purposes only, and is provided as is for
! Stocks and Commodities Traders Tips Extra, August 2002 issue.
define Length 10.
price is ([high] + [low]) / 2.
count is OffsetToDate(Month(),Day(),Year()).
! Non-delayed Ehlers CG Formula num is Sum(price * (count+1),Length).
denom is Sum(price,Length).
Ehlers is -num/denom.

!Since EDS does not store values in arrays like Easy Language, you must create a separate formula
! for the "Delay" used as the signal line.
Since the Count UDF will always return the number of days in
! the sum from the report date, we simple fake it out by not adding the 1 to count as we did above.
! This just zero's out one day of the formula so we can get the "yesterday" value of the real formula.
num1 is Sum(price * count,Length).
denom1 is Sum(price,Length).
Ehlers1 is -num1/denom1.
CG is Ehlers.
CG1 is ValResult(Ehlers1,1).

S&C July 2002

Price is [close].
Price1 is val([close], 1).
Price2 is val([close], 2).
Price3 is val([close], 3).
Price4 is val([close], 4).
Price5 is val([close], 5).
Price6 is val([close], 6).
FIRFilter is (Price + 2 * Price1 + 3 * Price2 + 3 * Price3 + 2 * Price4 + Price5) / 12.
MinLagFIRFilter is (Price + 3.5 * Price1 + 4.5 * Price2 + 3 * Price3 + 0.5 * Price4 - 0.5 * Price5 - 1.5 * Price6) / 10.5.

S&C July 2003

!! July 2003 Stocks and Commodities.
"Find Those Market Tops" by David Hawkins.

!! Thrust Oscillator and Arms Ease of Movement
Thrust is ([Dec Issues] * [Dec Volume]) - ([Adv Issues] * [Adv Volume]).
OSC is Thrust / (([Dec Issues]*[Dec Volume]) + ([Adv Issues]*[Adv Volume])).
AvgOSC is expavg(Osc, 22).
CurrentPrice is ([high] + [low]) / 2.
PreviousPrice is (Val([high], 1) + Val([low], 1)) / 2.
CurrentVolume is ([volume] / 10000) / ([high] - [low]).
EMV is (CurrentPrice - PreviousPrice) / CurrentVolume.
EMVAvg is expavg(EMV, 25).

S&C October 2002

!!! Stocks and Commodities - October 2002 Traders Tips. Authored by Mike Kaden, based on the
!!! article written by Paolo Pezzutti
TrendIndicator if [close]> simpleavg([close],13).
SetUp if [close] < val([close],1).
Trigger if [close]> (([high]-[low])/2)+[low] and [close] > [open].
Exit if [close] < val([high],1).
! Note: Set ADX/R to 14days TrendFilter if [adx]>18.
TrueRange is max([high]-[low],max([high]-val([close],1),val([close],1)-[low])).
AvgTrueRange is SimpleAvg(TrueRange,13).

VolatilityFilter if simpleavg([close],13) >0.01

S&C January 2003

define days 20.
data is [close].
fact is (days + 1)/3.
DaysInto is OffsetToDate(month(),day(),year()).
numx is iff( daysInto = 0, 1, DaysInto + 1).
factx is (numx - fact) * data.
Sx is Sum( factx, days).
MoveTrend is (6/(days * (days +1))) * Sx .

S&C August 2000 Stoch RSI

define standarddev 60.
define periods 14.
LLVofRSI is loval([rsi wilder], periods).
HHVofRSI is hival([rsi wilder], periods).
StochRSI is (val([rsi wilder], periods) - LLVofRSI) / (HHVofRSI - LLVofRSI).
RSI is [rsi wilder].
rdp1 is sqrt(variance(stochrsi, standarddev)) / 0.053.
rdp2 is sqrt(variance(stochrsi, standarddev)) / 0.035.