Experimental Pincher Code
April 2008 Version 1
// Experimental Pincher Scanner Code
// By: Steven Hess
// March-April 2008
// Volume Signal
Vlimit = (V >= 700000);
VolMA = (ROC(Volume, 2) > 0);
VolumeTrigger = VolMA AND Vlimit;
// Price Signal
Plookback = 3;
Ptrigger = (C >= HHV(C,Plookback));
// Hammer Signal
HTrigger = (C >= HHV(C,1)) AND (Ref(C,-1) < C) ;
// Acc-Dist Signal
ADSignal = (ROC(AccDist(),2) > 0) OR (AccDist() > Ref(AccDist(), -1));
// RSI Boolean Signal
RSh = 3;
RLo = 10;
RSITrigger = (ROC(RSI(RSh),2) > 0) AND (RSI(RSh) >= 0.5*(HHV(RSI(RSh),RLo)+LLV(RSI(RSh),RLo)) );
// ADX Boolean Signal
ASh = 9;
ALo = 16;
Atol = 2;
Test1 = ADX(14) > HHV(C, ALo+ASh);
Test2 = 1;
ADXTrigger = Test1 AND Test2 ;
// PPO Boolean Trigger
PSh = 9;
PLo = 16;
Ptol = 5;
Test1 = (ROC(OscP(PSh,PLo),2) <= 0) AND (OscP(PSh,PLo) < LLV(C, PLo+PSh));
Test2 = abs(MA(OscP(PSh,PLo),20)- OscP(PSh,PLo)) < Ptol;
PPOTrigger = Test1 AND Test2 ;
// Setup Buy/Sell Signals
Buy = VolumeTrigger AND HTrigger AND ADSignal AND RSITrigger AND PPOTrigger AND ADXTrigger AND Ptrigger;
Sell = 0;