Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Scaner Based on ADX, RSI..with other Indicator for Amibroker (AFL)
Hello,
This is modified version of anylaser that i got from somewhere.
I added some more indicator like ADX, RSI.. and change the colour and reading .It is very usefull to scan the market and use if no is more then 8 for bullish or bearish.
Regards
Rajeev
Similar Indicators / Formulas
Indicator / Formula
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | _SECTION_BEGIN ( "All in One Explorer - Manish" ); i=0; //52 Week High Low High52 = HHV ( High ,250); Low52 = LLV ( Low ,250); //Bollinger Band BB1= C > BBandTop ( C ,20,2) AND Ref ( C ,-1)< Ref ( BBandTop ( C ,20,2),-1); BB2= C < BBandBot ( C ,20,2) AND Ref ( C ,-1)> Ref ( BBandBot ( C ,20,2),-1); BBStatus= WriteIf (BB1, "Above Top" , WriteIf (BB2, "Below Bottom" , WriteIf ( IsNull ( MA ( C ,20)), "N/A" , "Bearish" ))); BBColor= IIf (BB1, colorRed , IIf (BB2, colorGreen , colorLightGrey )); IIf (BB2,i+1,i); //Moving Average (Short, Mid & Long Term) MAShort = C > MA ( C ,15); IIf (MAShort,i+1,i); MAMid = C > MA ( C ,45); IIf (MAMid,i+1,i); MALong = C > MA ( C ,100); IIf (MALong,i+1,i); ShortStatus = WriteIf (MAShort, "Bullish" , WriteIf ( IsNull ( MA ( C ,15)) , "N/A" , "Bearish" )); ShortColor = IIf (MAShort, colorGreen , colorRed ); MidStatus = WriteIf (MAMid, "Bullish" , WriteIf ( IsNull ( MA ( C ,45)), " N/A" , "Bearish" )); MidColor = IIf (MAMid, colorGreen , colorRed ); LongStatus = WriteIf (MALong, "Bullish" , WriteIf ( IsNull ( MA ( C ,100)) , "N/A" , "Bearish" )); LongColor = IIf (MALong, colorGreen , colorRed ); //MACD MACDBull= MACD (12,26)> Signal (12,26,9); IIf (MACDBull,i+1,i); MACDStatus= WriteIf (MACDBull, "Bullish" , WriteIf ( IsNull ( MACD (12,26)), "N/A" , "Bearish" )); MACDColor= IIf (MACDBull, colorGreen , colorRed ); //Aroon Period=14; LLVBarsSince= LLVBars ( L ,Period)+1; HHVBarsSince= HHVBars ( H ,Period)+1; AroonDown=100*(Period-LLVBarsSince)/(Period-1); AroonUp=100*(Period-HHVBarsSince)/(Period-1); AroonOsc=AroonUp-AroonDown; Aroon=AroonOsc>0; IIf (Aroon,i+1,i); AroonStatus= WriteIf (Aroon, "Bullish" , WriteIf ( IsNull ( RSI (14)), "N/A" , "Bearish" )); AroonColor= IIf (Aroon, colorGreen , IIf ( IsNull ( RSI (14) ), colorLightGrey , colorRed )); //Stochastic StochKBull= StochK (15,5)> StochD (15,5,5); IIf (StochKBull,i+1,i); StochKStatus= WriteIf (StochKBull, "Bullish" , WriteIf ( IsNull ( StochK (15,5)), "N/A" , "Bearish" )); StochKColor= IIf (StochKBull, colorGreen , colorRed ); //RSI R1= RSI (14)>30 AND Ref ( RSI (14),-1)<30 AND Ref ( RSI (14),-2)<30; R2= RSI (14)<70 AND Ref ( RSI (14),-1)>70 AND Ref ( RSI (14),-2)>70; IIf (R1,i+1,i); RSIStatus= WriteIf (R1, "Improving" , WriteIf (R2, "Decli ning" , WriteIf ( IsNull ( RSI (14)), "N/A" , "Neutral" ))); RSIColor= IIf (R1, colorGreen , IIf (R2, colorRed , colorLightGrey )); //MFI M1= MFI (14)>80; M2= MFI (14)<20; IIf (M2,i+1,i); MFIStatus= WriteIf (M1, "Overbought" , WriteIf (M2, "Over sold" , WriteIf ( IsNull ( MFI (14)), "N/A" , "Neutral" ))); MFIColor= IIf (M1, colorRed , IIf (M2, colorGreen , colorLightGrey )); //ADX B1= ADX (14)>20; B2= ADX (14)<20; IIf (B2,i+1,i); ADXStatus= WriteIf (B1, "Trendy" , "Neutral" ); ADXColor= IIf (B1, colorGreen , IIf (B2, colorRed , colorLightGrey )); //RSIT T1= RSI (14)>50; T2= RSI (14)<50; IIf (T2,i+1,i); RSITStatus= WriteIf (T1, "Bullish" , WriteIf (T2, "Bearish" , WriteIf ( IsNull ( RSI (14)), "N/A" , "Neutral" ))); RSITColor= IIf (T1, colorGreen , IIf (T2, colorRed , colorLightGrey )); TrendScore = IIf (BB2,1,0)+ IIf (MAShort,1,0)+ IIf (MAMid,1,0) + IIf (MAMid,1,0) + IIf (MALong,1,0)+ IIf (MACDBull,1,0) + IIf (Aroon,1,0) + IIf (StochKBull,1,0)+ IIf (R1,1,0) + IIf (M2,1,0) + IIf (B1,1,0) + IIf (T1,1,0) ; /* TrendScore = IIf(C>=Ref(C,-11),1,-1)+ IIf(C>=Ref(C,-12),1,-1)+ IIf(C>=Ref(C,-13),1,-1)+ IIf(C>=Ref(C,-14),1,-1)+ IIf(C>=Ref(C,-15),1,-1)+ IIf(C>=Ref(C,-16),1,-1)+ IIf(C>=Ref(C,-17),1,-1)+ IIf(C>=Ref(C,-18),1,-1)+ IIf(C>=Ref(C,-19),1,-1)+ IIf(C>=Ref(C,-20),1,-1)+ IIf(C>=Ref(C,-21),1,-1)+ IIf(C>=Ref(C,-22),1,-1); */ Filter = 1; //AddColumn(High52,"52 Week High"); //AddColumn(Low52,"52 Week Low"); AddColumn ( C , "Close" ,1, IIf ( C > Ref ( C ,-1), colorGreen , colorRed )); AddColumn ( V , "Volume" ,1, IIf ( V > Ref ( V ,-1), colorGreen , colorRed )); AddTextColumn (BBStatus, "BBand" ,1, colorWhite ,BBColor); AddTextColumn (ShortStatus, "Short MA(15)" ,1, colorWhite ,ShortColor); AddTextColumn (MidStatus, "Mid MA(45)" ,1, colorWhite ,MidColor); AddTextColumn (LongStatus, "Long MA(100)" ,1, colorWhite ,LongColor); AddTextColumn (MACDStatus, "MACD" ,1, colorWhite ,MACDColor); AddTextColumn (AroonStatus, "Aroon" ,1, colorWhite ,AroonColor); AddTextColumn (StochKStatus, "Stochastic" ,1, colorWhite ,StochKColor); AddTextColumn (RSIStatus, "RSI(14)" ,1, colorWhite ,RSIColor); AddTextColumn (MFIStatus, "MFI(14)" ,1, colorWhite ,MFIColor); AddTextColumn (ADXStatus, "ADX(14)" ,1, colorWhite ,ADXColor); AddTextColumn (RSITStatus, "RSI(14)" ,1, colorWhite ,RSITColor); AddColumn (TrendScore, "Score" ); _SECTION_END (); |
6 comments
Leave Comment
Please login here to leave a comment.
Back
Hello Rajeev,
Good modification (SCORE COLUMN). You made it easy to read.
I have one Query :-
when score is below 8 we can enter short position n ZERO (0) means
we are ready to bounce back ??
kindly explain
Thanx you for modification
good job please help me in this alf how to see score yesterday i want to add column score add yesterday to compare today vs. per day
thanks alot
sweet explore indeed. Thanks brother Rajeev for nice work.
SIR, COULD YOU PL EXPLAIN HOW TO TRADE USING THIS SCORE
THANKS IN ADVANCE
plese how to trade using ur score
OUTSTANDING