Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Time Frame Based 3 Averages Signals + MTF RSI Signal for Amibroker (AFL) V 1.2 for Amibroker (AFL)
Earlier I have made MTF Averages Signals, in Addition to that now MTF RSI status/signals are added.
RSI > 70 then colorBrightGreen // SuperBullish
RSI > 60 AND RSI <= 70 then colorPaleGreen // Bullish
RSI > 50 AND RSI <= 60 then colorTurquoise // Rising
RSI > 40 AND RSI <= 50 then colorYellow // FLAT
RSI >= 30 AND RSI <= 40 then colorLightOrange // Bearish
RSI <= colorCustom12 // Deep Bearish
Actually these status ranges are relative. Like – after fall* Rising stage of 50 to 60* can come and also when bullish trend is over it can come down in range of 60 to 50. So Trend is to be confirmed with Cross Over and direction of Averages
Same is applicable for all ranges.
Vertical and Horizontal Position is applicable to status/signal of RSI and Averages Cross Over both
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 | // By Mr. Abhimanyu Y. Altekar abhimanyu.altekar@gmail.com // 6th January 2025 V1.2 Hor= Param ( "Horizontal Position" ,55,05,1200,1); Ver= Param ( "Vertical Position" ,90,5,1000,1); IsxPlot2 = ParamToggle ( "Plot Hourly & 5Min Averages Only" , "No|Yes" ,1); IsxPlot = ParamToggle ( "Plot all Averages" , "No|Yes" ,0); function xSignalF(xTf,Hor,Ver,sxTf,isPlot) { TimeFrameSet (xTF); ea5= EMA ( C ,5); ea13= EMA ( C ,13); ea21= EMA ( C ,21); TRSI = RSI (14); TimeFrameRestore (); exTRSI= LastValue ( SelectedValue ( TimeFrameExpand ( TRSI,xTF,expandLast ))); RSIcolor = IIf (exTRSI > 70, colorBrightGreen , // SuperBullish IIf (exTRSI > 60 AND exTRSI <= 70, colorpaleGreen , // Bullish IIf (exTRSI > 50 AND exTRSI <= 60, colorTurquoise , // Rising IIf (exTRSI > 40 AND exTRSI <= 50, colorYellow , // FLAT IIf (exTRSI >= 30 AND exTRSI <= 40, colorLightOrange , // Bearish colorCustom12 ))))); exa5= TimeFrameExpand ( ea5, xTF,expandLast ); exa13= TimeFrameExpand ( ea13, xTF,expandLast ); exa21= TimeFrameExpand ( ea21, xTF,expandLast ); if (isPlot) { Plot (exa5, "\n" +sxTf, colorGreen , styleThick ); Plot (exa13,sxTf, colorBlue , styleThick ); Plot (exa21,sxTf, colorOrange , styleThick ); } sOK= WriteIf (exa5>exa13 OR exa5<exa13, "Ok" , "Flat" ); sGood= WriteIf (exa5>exa13 AND exa5>exa21, "Good " , "Flat" ); sBad= WriteIf (exa5<exa13 AND exa5<exa21, "Bad " , "Flat" ); if (sOK== "Ok" ) GfxSetCoordsMode( 0 ); // bar/price mode (instead of pixel) GfxSetZOrder(6); GfxSelectSolidBrush ( colorGold ); //PlotShapes(shapeCircle,colorGold,0,1,1,5); if (sGood== "Good " ) GfxSelectSolidBrush ( colorBrightGreen ); if (sBad== "Bad " ) GfxSelectSolidBrush ( colorRed ); GfxSelectFont ( "Times New Roman" , 10, 400, True ); GfxTextOut (sxTF,Hor+70, Ver-15); GfxRectangle ( Hor+70,Ver+5,Hor+100,Ver+15 ); GfxSelectFont ( "Times New Roman" , 8, 300, True ); GfxTextOut ( "R" +sxtf,Hor+68, Ver+50); GfxSelectSolidBrush (RSIColor); GfxRectangle ( Hor+70,Ver+35,Hor+100,Ver+45 ); } xSignalF( in5Minute ,Hor,Ver, "5M" ,isxPlot); xSignalF( in15Minute ,Hor+40,Ver, "15M" ,isxPlot2); xSignalF( in15Minute *2,Hor+85,Ver, "30M" ,isxPlot); xSignalF( inHourly ,Hor+125,Ver, "1H" ,isxPlot2); xSignalF( inHourly *2,Hor+165,Ver, "2H" ,isxPlot); xSignalF( inHourly *4,Hor+205,Ver, "4H" ,isxPlot); xSignalF( inDaily ,Hor+245,Ver, "Day" ,isxPlot); xSignalF( inweekly ,Hor+285,Ver, "WK" ,isxPlot); SetChartOptions (0, chartShowDates | chartShowArrows | chartWrapTitle ); SetChartBkGradientFill ( ParamColor ( "BgTop" , colorLightGrey ), ParamColor ( "BgBottom" , colorTan ), ParamColor ( "titleblock" , colorLightGrey )); gxs= Param ( "GRAPH spaceing" ,5,5,50,5); GraphXSpace = gxs; _SECTION_BEGIN ( "Price" ); GraphLabelDecimals = 2; _N ( Title = StrFormat ( "{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}" , O , H , L , C , SelectedValue ( ROC ( C , 1 ) ) ) ); Plot ( C , "Close" , ParamColor ( "Color" , colorBlack ), styleNoTitle | ParamStyle ( "Style" ) | GetPriceStyle (),0,0,0,1 ); ; _SECTION_END (); |
0 comments
Leave Comment
Please login here to leave a comment.
Back