LeonWilson Metastock Exploration

All the following formulas are from Leons wilsons book “ Next step to share trading “ for easy copying to metastock

Exploration TrendingSearch

“Locates stock with a closing price greater than $0.20.Volume is >200000 and the price oscillator is higher than 3.0% and less than 10%.The price oscillator is greater than Yesterday”

OscP(8,48,E,%)>=3 And OscP(8,48,E,%)<=10 AND  Close>=0.20 AND Volume>=200000 and OscP(8,48,E,%)>Ref(OscP(8,48,E,%),-1)

Adjusted Volume

MovAveA:=Input("Short Term Moving Average on Volume",3,34,5);

MovAveB:=Input("Long Term Moving Average on Volume",35,250,50);

MaxVal:=Input("Maximum allowable Volume",.1,5,2);

MaxVol:=MaxVal * (Mov(VOLUME,MovAveB,E));

Adjustment:=VOLUME-(VOLUME-MaxVol);

If(VOLUME>MaxVol,Adjustment,If(VOLUME<MaxVol,VOLUME,VOLUME));Mov(If(VOLUME>MaxVol,Adjustment,If(VOLUME<MaxVol,VOLUME,VOLUME)),MovAveA,E);

Mov(If(VOLUME>MaxVol,Adjustment,If(VOLUME<MaxVol,VOLUME,VOLUME)),MovAveB,E);

------------------------------------------------------------------------------------------------

OBV index:

Periods:=Input(“OBV Periods”,1,55,21);

Smooth:=Input(“Smoothing Periods”,1,21,3);

Trigger:=Input(“Trigger Line”,1,35,13);

Up:=(Sum(if(OBV()>Ref(OBV(),-1),0,OBV()-Ref(OBV(),-1)),Periods));

Down:=(Sum(if(OBV()<Ref(OBV(),-1),0,Ref(OBV(),-1)-OBV()),Periods));

Value:=(100-(100/(1+((Down+0.000001)/Up))));

Mov(Value,Smooth,E);

Mov(Value,Trigger,E);

20;80;

=---------------------------------------------------------------------------------------------

Indicator name-Market sentiment

MaxVol:=2*(Mov(Volume,50,E));

Adjustment:=Volume-(Volume-MaxVol);

Value:=if(Volume>MaxVol,Adjustment,If(Volume<MaxVol,Volume,Volume));

Up:=If(Close>Ref(Close,-1),(Close-Ref(Close,-1))*Value,(Close,Ref(Close,-1))*Value);

Mov(Sum(Up,21)-Sum(Down,21),3,E);

0;

Indicator name-DEMA offset

Value:=Input(‘Periods in MMA-ROC’,1,55,21);

Trigger:=Input(‘Trigger Line’,1,55,13);

SHORT:(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

MMACD:=((Short-Ref(Short,-Value))/Ref(Short,-Value))*100;

MMACD1:=Mov(Mov(MMACD,Value,E);

MMACD-MMACD1;

Mov(MMACD-MMACD1,Trigger,E);

0;

----------------------------------------------------------------------------------------

Indicator Name-MMA-ROC-H

Value:=Input(‘Periods in MMA-ROC’,1,55,21);

SHORT:(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

((Short-Ref(Short,-Value))/Ref(Short,-Value))*100- ((Long-Ref(Long,-Value))/Ref(Long,-Value))*100;

0;

------------------------------------------------------------------------------

Indicator Name-MMA-ROC

Value:=Input("Periods in MMA-ROC",1,55,21);

SHORT:=(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:=(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

((Short-Ref(Short,-Value))/Ref(Short,-Value))*100;

((Long-Ref(Long,-Value))/Ref(Long,-Value))*100;

0;

====================================

MMACD-H

SHORT:(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

((Short-Long)/Long)*100 –Mov((Short-Long)/Long)*100,9,E);

0;

===========================================

MMACD

SHORT:(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

((Short-Long)/Long)*100;

Mov((Short-Long)/Long)*100,9,E);

0;

===================================

Leon Wilson MMA CrossOver

SHORT:(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

MMACD:=((SHORT-LONG)/LONG)*100;

MMACD>0 AND Ref(MMACD,-1)<=0;

==================================

Leon Wilson MMA CrossOver 3% separation

 

SHORT:(Mov(C,3,E) +Mov(C,5,E)+Mov(C,7,E)+Mov(C,9,E)+Mov(C,11,E)+Mov(C,13,E));

LONG:(Mov(C,30,E) +Mov(C,34,E)+Mov(C,38,E)+Mov(C,42,E)+Mov(C,46,E)+Mov(C,50,E));

MMACD:=((SHORT-LONG)/LONG)*100;

MMACD>3 AND Ref(MMACD,-1)<=3;