Bubble's Blabber

[Soapy Bubbles]

RSI Power Scan w/ ADX constraints. It works pretty well and I've used it for a few nice in/out daytrade. Be sure to read the arguments in the functions.

Clip------------------------------------------

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));
}

function VOL_Check(f0)
{
return(V >= f0);
}

function ACC_Check(f0)
{
return(AccDist() >= HHV(AccDist(), f0));
}

function ADX_Check(f0)
{
test1 = Cross(PDI(f0),MDI(f0)) OR (PDI(f0) > MDI(f0));
test2 = (ROC(ADX(f0), 2) >= 0) AND (ROC(CCI(f0), 2) >= 0);
return(test1 AND test2);
}

function CGO()
{
return(C > O);
}

Buy = RSI_Check(3,5,7,14,30) AND RSI(14) <= 90 AND MA_Check(5) AND VOL_Check(300000) AND ADX_Check(4) AND CGO();
Sell = NOT MA_Check(20) AND NOT RSI_Check(3,5,7,14,55);

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" );