### Keltner Classic System

This system test requires several settings be made in addition to the formula. It can only be used in MetaStock 8.0 or latter. To create this system:

• Select the Enhanced System tester from the Tools menu
• Click New
• Enter the name of the system
• Select the Buy Order tab and enter the following formula:

new:=roc(month(),1,\$)<>0;
H>ref(highestsince(7,new,H),-1)

• Set the enter size dropdown to "Number of Units"
• Click the italics f to the right of the space for the Limit or Stop Price
• In the window that appears, enter the following formula:

equity:=Simulation.AccountCash+Simulation.AccountBorrowed+
Simulation.PortfolioValue+Simulation.AccountReserved;
ub:=MOV((H+L+C)/3,10,S) + MOV((H-L),10,S);
lb:=MOV((H+L+C)/3,10,S) - MOV((H-L),10,S);
(equity*.02)/(ub-lb)

• Select the Sell order tab and enter this formula:

ub:=MOV((H+L+C)/3,10,S) + MOV((H-L),10,S);
lb:=MOV((H+L+C)/3,10,S) - MOV((H-L),10,S);
cross(lb,c)

• Select the Sell Short Order tab and enter the following formula:

ub:=MOV((H+L+C)/3,10,S) + MOV((H-L),10,S)
lb:=MOV((H+L+C)/3,10,S) - MOV((H-L),10,S);
cross(lb,c)

• Set the enter size dropdown to "Number of Units"
• Click the italics f to the right of the space for the Limit or Stop Price
• In the window that appears, enter the following formula:

equity:=Simulation.AccountCash+Simulation.AccountBorrowed+
Simulation.PortfolioValue+Simulation.AccountReserved;
ub:=MOV((H+L+C)/3,10,S) + MOV((H-L),10,S);
lb:=MOV((H+L+C)/3,10,S) - MOV((H-L),10,S);
(equity*.02)/(ub-lb)

• Select the Buy to Cover order tab and enter this formula:

ub:=MOV((H+L+C)/3,10,S) + MOV((H-L),10,S);
lb:=MOV((H+L+C)/3,10,S) - MOV((H-L),10,S);
cross(c,ub)