// Downloaded From https://www.WiseStockTrader.com
/*RSPIVOTS*/
K = EMA((H + L + C) / 3, 10);
S1 = 2 *(K - Ref(K,  -1)) / (K + Ref(K,  -1));
RS = 100 * EMA(S1, 3);
s3 = RS < Ref(RS,  -1) AND Ref(RS,  -1) > Ref(RS,  -2) AND RS > 2;
s4 = RS > Ref(RS,  -1) AND Ref(RS,  -1) < Ref(RS,  -2) AND RS <  -2;
values9 = s3 > 0;
values10 = s4 > 0;

AddToComposite(Values9, "~rsuppivot", "V");
AddToComposite(Values10, "~rsdownpivot", "V");
Buy = 0;

/*Graph of ~rsuppivot and ~rsdownpivot*/
Graph0 = Foreign("~rsuppivot", "V");
Graph0Color = 5;
Graph1 = Foreign("~rsdownpivot", "V");
Graph1Color = 6;

Title = "BEARISH PIVOTS = " + WriteVal(LastValue(Foreign("~rsuppivot", "V"))) + 
" , BULLISH PIVOTS = " + WriteVal(LastValue(Foreign("~rsdownpivot", "V")));