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;