Bubble's Blabber

[Soapy Bubbles]

PseudoPincher Code

function ADX_Max_Tester(ADXT, Lookback)
{
Test1 = (ADX(ADXT) >= HHV(ADX(ADXT), Lookback));
isADXMax = Test1;
return(isADXMax);
}

function OSCP_Min_Tester(OscP1, OscP2, Lookback)
{
isOSCPMin = (OscP(OscP1,OscP2) <= LLV(OscP(OscP1,OscP2), Lookback));
return(isOSCPMin);
}

function RSI_Check(f0, f1, f2, f3, f4) // f0 is shortest, f3 longest, f4 is min threshold
{
f0Test = (RSI(f0) >= f4);
f1Test = (RSI(f1) >= f4);
f2Test = (RSI(f2) >= f4);
f3Test = (RSI(f3) >= f4);
return(f0Test AND f1Test AND f2Test AND f3Test);
}

function MA_Check(f0)
{
return(C >= MA(C, f0));
}

Buy = ADX_Max_Tester(14, 25) AND OSCP_Min_Tester(12, 26, 45) AND RSI_Check(3,5,7,14,30) AND MA_Check(5);
Sell = NOT ADX_Max_Tester(14, 25) OR NOT OSCP_Min_Tester(12, 26, 45) OR NOT MA_Check(5a);

Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

// Exporter Code
Filter=((Buy==1));
VarSetText("header", "http://stockcharts.com/h-sc/ui?s=");
VarSetText("terminator", "&p=D&yr=0&mn=6&dy=0&id=p63328628710&a=139936059&listNum=1");
AddTextColumn( StrFormat(header+Name()+terminator+"\n" ), "Stockchart" );