METASTOCK FORMULAS

New
Additions

Where Bear Dares 1
From PSChakravarthy

Div(Div(O-L-H-C,2)+Div(O+L+H+C,4),2);0

{Swing Or Close,at -ve Value,"Bull"; At +ve Value the end of Bull.}

Where Bear Dares 2
From PSChakravarthy

Div(O-L-H-C,2)

{Bear Dares Below this value}

Zigzag Validity Indicator

Spyros Raftopoulos

1=valid last leg of zig,

-1=invalid last leg of zig.

DO NOT use this indicator in systems}

perc:=Input("Percent",0.2,100,10);

Z:=Zig(C,perc,%);

last:=ValueWhen(1,

( Z > Ref(Z,-1) AND Ref(Z,-1) <>

OR

( Z <> Ref(Z,-2) ),

Ref(Z,-1));

pc:=(C-last) * 100 / last;

pc:= Abs(pc);

SD:=(z>Ref(z,-1) AND Ref(z,-1)>Ref(z,-2)) OR (z

Ref(z,-1)

res:=If(pc>=perc ,1,0);

res:= If(Alert(res,2) AND SD,1,res);

res

3 Minute Bar Breakout

{Functions used in Middle Screen}

MiddleScreenBlue := Mov( Close, 34, E )

MiddleScreenYell := Mov( Open, 13, E )

{Functions used in Lower Screen}

StochRed := Stoch( 9, 7 )

StochLagging : = Mov( StochRed, 7, S )

{ Main analysis section }

{BULLISH}

Cross( StochRed, StochLagging ) AND ( MiddleScreenYell > MiddleScreenBlue )

{BEARISH}

Cross( StochLagging, StochRed ) AND ( MiddleScreenYell <>

{ Breakout Notifier }

UpperSupportNow := Mov( OPEN, 10, E )

LowerSupportNow := Mov( CLOSE, 8, E )

PrevUpperSupport := Ref( Mov( OPEN, 10, E ), -1 )

PrevLowerSupportNow := ref( Mov( CLOSE, 8, E ), - 1 )

TRUE := 1

FALSE := 0

SignalledHigh := FALSE

SignalledLow :=FALSE

{ BULLISH }

IF ( ( L > UpperSupportNow ) AND ( Ref( L, -1 ) > PrevUpperSupport ) AND

SignalledHigh = FALSE )

THEN

SignalledHigh := TRUE

IF ( SignalledHigh = TRUE )

THEN

SignalledLow :=FALSE

{BEARISH}

IF ( ( H <> PrevLowerSupport ) AND

SignalledLow = FALSE )

THEN

SignalledLow := TRUE

IF ( SignalledLow = TRUE )

THEN

SignalledHigh := FALSE

Sean Plows

Panic Selling

sqrt(((buyp()/sellp())/rsi(2))) > ref(((buyp()/sellp())/rsi(2)),-1)

Guido Cereia (Torino)

Italia

1-2-3 High or Low

www.fib-charting.it

LOW

Mx:=Mov(L,4,S);

L > Ref(L,-1) AND L>Mx AND

Ref(L,-1) <>

LLV(L,4 ) > LLV(L,10 ) AND

RSI(14)<50

HIGH

Mx:=Mov(H,4,S);

H <>

Ref(H,-1) > Ref(Mx,-1) AND

HHV(H,4 ) <>

RSI(14)>50

KA Money Flow System

by Karim Anwar

This system is based on Money Flow Index . It is a developing system and will like input from other readers to improve it> Thanks for any suggestions to improve it.

It tries to buy when MFI is starting to rally from an oversold state and sells short when MFI starts falling from overbought state.

Can any body help to form an exploration to find stocks for whom this system will work best ?

EnterLong: Cross(MFI(23), (LLV(MFI(23),23) + opt1)) AND MFI(23)<50

closeLong: MFI(23)=LLV(MFI(23),23)

longOptimisationFullDetails: OPT 1 = Min. 5 Max. 20 Step: 1

enterShort: Cross( (HHV(MFI(23),23) - opt1), MFI(23))AND MFI(23)>50

closeShort: MFI(23)=HHV(MFI(23),23)

ShortOptimisationFullDetails: OPT 1 = Min. 5 Max. 20 Step: 1

Presto's Magic Box
(a tweaked version of the Darvis Box)

Jason Prestwidge

Periods:=Input("periods",1,260,100);

Topbox:=If(Ref(H,-3)>=Ref(HHV(H,Periods),-4) AND Ref(H,-2)

Botbox:=If(Ref(H,-3)>=Ref(HHV(H,Periods),-4) AND Ref(H,-2)

Botbox;

Topbox;

MACD Histogram Divergence

This explorer looks for stocks exhibiting extreme divergence from the MACD Histogram. In his book "Trading for a Living", Alexander Elder argues that divergence from the MACD Histogram gives the strongest signals in the whole of technical analysis.

ColA:

md := MACD();

mdhist := md - Mov(md,9,E);

Correl(((Sum(Cum(1)*( mdhist ),100))-(Sum(Cum(1),100)*

Sum(( mdhist ),100)/100))/((Sum(Power(Cum(1),2),100))-

(Power(Sum(Cum(1),100),2)/100)),((Sum(Cum(1)*C,100))-(Sum(Cum(1),100)*

Sum(C,100)/100))/((Sum(Power(Cum(1),2),100))-(Power(Sum(Cum(1),100),2)/100)

),12,0)

Filter Column:

colA and colA <-0.8

The above formula can also be combined with a volatility buy signal and a volume signal. The following addition is then made.

ColB: The volatility buy signal

H > Ref(C,-1) + 1.8 * Ref( ATR(10),-1)

ColC: Volume 10% above the average of the previous 10 days

V > 1.1 * Ref( Mov(V,10,E),-1)

Filter Column:

colA AND colB AND colC AND colA <-0.80

Initial tests with this system have been encouraging.

Denis Mortell

1 2 3 Ross Hook

http://www.fib-charting.it

Col A: Peak(1,H,10)<=1.1*Peak(2,H,10)

AND Peak(1,H,10)>=0.9*Peak(2,H,10)

AND Trough(1,L,10)>=1.1*Trough(2,H,10)

AND Trough(1,L,10)<=0.9*Trough(2,H,10)

AND LLV(L,25)

Col B: Peak(1,H,5)<=1.1*Peak(2,H,5)

AND Peak(1,H,5)>=0.9*Peak(2,H,5)

AND Trough(1,L,5)>=1.1*Trough(2,H,5)

AND Trough(1,L,5)<=0.9*Trough(2,H,5)

AND LLV(L,25)

Col C: Peak(1,H,1)<=1.1*Peak(2,H,1)

AND Peak(1,H,1)>=0.9*Peak(2,H,1)

AND Trough(1,L,1)>=1.1*Trough(2,H,1)

AND Trough(1,L,1)<=0.9*Trough(2,H,1)

AND LLV(L,25)

Filter colA=1 OR colB=1 OR colC=1

Guppy MMA Oscillator

by Jason Prestwidge

((Mov(CLOSE,3,E)+Mov(CLOSE,5,E)+
Mov(CLOSE,8,E)+Mov(CLOSE,10,E)+
Mov(CLOSE,12,E)+Mov(CLOSE,15,E))-
(Mov(CLOSE,30,E)+Mov(CLOSE,35,E)+
Mov(CLOSE,40,E)+Mov(CLOSE,45,E)+
Mov(CLOSE,50,E)+Mov(CLOSE,60,E)))*10;
(Mov((Mov(CLOSE,3,E)+Mov(CLOSE,5,E)+
Mov(CLOSE,8,E)+Mov(CLOSE,10,E)+
Mov(CLOSE,12,E)+Mov(CLOSE,15,E))-
(Mov(CLOSE,30,E)+Mov(CLOSE,35,E)+
Mov(CLOSE,40,E)+Mov(CLOSE,45,E)+
Mov(CLOSE,50,E)+Mov(CLOSE,60,E)),13,E))*10;0;