Download Rsi Mini Max with Support and Resistance For Amibroker (AFL)

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex

EOD and Realtime

Dividends and Trust Distributions

And Much More ....

For Portfolio Manager Click Here

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators

Advanced Pattern Exploration

Neural Networks

And Much More ....

Find Out More Here

3 / 5 (Votes 8)

amibroker

Submitted by hbkwarez over 10 years ago

Submitted by MarcosEn over 13 years ago

Submitted by motorfly over 13 years ago

Submitted by durgesh1712 over 13 years ago

Submitted by Tinych over 13 years ago

Submitted by northstar over 13 years ago

Indicator

Copy & Paste Friendly

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

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

_SECTION_BEGIN("RSI(14,30,70)MinMax");
SetChartOptions(0,0,chartGrid30|chartGrid50|chartGrid70);
periods = Param( "Periods", 14, 1, 200, 1 );
maxClip = Param( "maxClip", 70, 1, 100, 1 );
minClip = Param( "minClip", 30, 1, 100, 1 );
Plot( RSI(periods),"",colorCustom12,styleLine+styleThick);
r = RSI(periods);
PlotOHLC( r,r,50,r, "", IIf( r > 50, colorRed, colorBrightGreen), styleCloud |styleNoLabel | styleClipMinMax, minClip, maxClip );
_SECTION_END();
Plot( 30 , "", colorDarkRed);
Plot(50, "", colorDarkRed,styleDashed);
Plot(70, "", colorDarkRed);
numbars = LastValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText(">>" + WriteVal(C,fraction),
SelectedValue(BarIndex()+1)-(numbars/hts),SelectedValue(r),colorWhite);
PlotText("Bot= " + WriteVal(30,fraction),
SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(30),colorDarkRed);
PlotText("Top= " + WriteVal(70,fraction),
SelectedValue(BarIndex()+2)-(numbars/hts),SelectedValue(70),colorDarkRed);
_SECTION_END();
  
  
  
_SECTION_BEGIN("TD Fractl LINE");
strength = Param("Strength",1,1,15,1);
pR=PeakBars(RSI(14),strength)==0;
PlotShapes(shapeSmallCircle*pR,colorWhite,0,r,0);
_SECTION_END();
  
_SECTION_BEGIN("TD Fractl LINE");
pS =TroughBars(RSI(14),strength)==0;
PlotShapes(shapeSmallCircle*pS,colorYellow,0,r,0);
_SECTION_END();
  
_SECTION_BEGIN("Price Risistance");
RT=SelectedValue(ValueWhen(pR,r));
ST=SelectedValue(ValueWhen(pS,r));
Plot(RT,"",colorCustom7,styleThick);
Plot(ST,"",colorYellow,styleThick);
_SECTION_END();
  
  
_SECTION_BEGIN("RT,ST ");
{ GfxSelectFont("Arial",11, 700 );
GfxSetBkMode(1);
GfxSetTextColor(colorCustom12);
GfxTextOut("RT= "+WriteVal(H,format=1.2)+"",930,1);
GfxSetTextColor(colorYellow);
GfxTextOut("ST= "+WriteVal(L,format=1.2)+"",930,20);
  
}
_SECTION_END();
  
  
  
_SECTION_BEGIN("Buy/Sell Arrows");
shapesswitch = ParamToggle("Arrows","On,Off",1);
UPcolor = ParamColor( "UP Color", colorBlue );
DOWNcolor = ParamColor( "Down Color", colorRed );
Buy=Cross( RSI( periods), 30 );
Sell=Cross( 70, RSI( periods) );
shape = Buy * shapeSmallUpTriangle + Sell * shapeSmallDownTriangle;
PlotShapes( IIf(shapesswitch,-1e10,shape), IIf( Buy, UPcolor, DOWNcolor ));
_SECTION_END();
  
_SECTION_BEGIN("EMA Time Frame");
r= RSI(14);
pR=PeakBars(RSI(14),1)==0;
pivothigh = Ref(pR,-1)<pR AND pR>Ref(pR,1);
y0=SelectedValue(ValueWhen(pivothigh,RSI(14),2));
y1=SelectedValue(ValueWhen(pivothigh,RSI(14),1));
x0=SelectedValue(ValueWhen(pivothigh,Cum( 1)-1,2));
x1=SelectedValue(ValueWhen(pivothigh,Cum( 1)-1,1));
LineA=LineArray(x0,y0,x1,y1,1);
pS =TroughBars(RSI(14),1)==0;
pivotlow = Ref(pS,-1)<pS AND pS>Ref(pS,1);
yt0=SelectedValue(ValueWhen(pivotlow,RSI(14),2));
yt1=SelectedValue(ValueWhen(pivotlow,RSI(14),1));
xt0=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,2));
xt1=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,1));
LineB=LineArray(xt0,yt0,xt1,yt1,1);
  
_SECTION_BEGIN("DIV");
u00=LastValue(Peak(r,1,2));
u11=LastValue(Peak(r,1,1));
a00=BarCount - 1 - LastValue(PeakBars(r,1,2));
price_start1=Close[a00];
a11=BarCount - 1 - LastValue(PeakBars(r,1,1));
price_end1=Close[a11];
Line = LineArray(a00,u00,a11,u11, 0 );
LastPointSell = LineArray(a11-1,u11-1,a11,u11,0);
  
GG=u11<u00 AND price_end1>price_start1;
PlotShapes(shapeSmallCircle*GG ,colorCustom12,0,Line,5);
  
PlotShapes(shapeSmallDownTriangle*GG,colorRed,0,LastPointSell,-15);
_SECTION_END();
  
_SECTION_BEGIN("DIV");
u0=LastValue(Trough(r,1,2));
u1=LastValue(Trough(r,1,1));
a0=BarCount - 1 - LastValue(TroughBars(r,1,2));
price_start=Close[a0];
a1=BarCount - 1 - LastValue(TroughBars(r,1,1));
price_end=Close[a1];
Line = LineArray(a0,u0,a1,u1, 0 );
  
TT=u1>u0 AND price_end<price_start;
LastPointBuy = LineArray(a1-1,u1-1,a1,u1,0);
PlotShapes(shapeSmallCircle*TT,colorCustom11,0,Line,-5);
PlotShapes(shapeSmallUpTriangle*TT,colorCustom11,0,LastPointBuy,-15);
_SECTION_END();
  
r= RSI(14);
W1=ValueWhen(HHV(r,14),r,1);
strength = Param("Strength",5,2,15,1);
bi = Cum(1)-1;
  
function GetTop(bars)
{
Top =r== HHV(r,2*bars) AND Ref(HHV(r,bars),bars) < r;
Top = Top AND LastValue(bi)-ValueWhen(Top,bi) > bars;
return Top;
}
  
function GetValley(bars)
{
Valley = W1== LLV(W1,2*bars) AND Ref(LLV(W1,bars),bars) >W1;
Valley = Valley AND LastValue(bi)-ValueWhen(Valley,bi) > bars;
return Valley;
}
P1 = GetTop(strength);
V1 = GetValley(Strength);
RF=ValueWhen(P1,r);
SF=ValueWhen(V1,W1);
cbar = Param("cbar",4,2,50,1);
RF1 = IIf(RF AND BarsSince(P1) <=cbar,RF,Null);
SF1 = IIf(SF AND BarsSince(V1) <=cbar,SF,Null);
Plot(RF1,"",colorWhite,styleDots | styleNoLine);
Plot(SF1,"",colorWhite,styleDots | styleNoLine);
Plot(RF,"",colorOrange,40+16|styleNoLabel);
Plot(SF,"",colorOrange,40+16|styleNoLabel);
PlotShapes(IIf(P1, shapeSmallSquare,shapeNone),colorYellow,0,r,10);
PlotShapes(shapeSmallCircle*P1,colorBlack,0,r,10);
PlotShapes(IIf(V1, shapeSmallSquare,shapeNone),colorYellow,0,W1,-10);
PlotShapes(shapeSmallCircle*V1,colorBlack,0,W1,-10);
numbars = SelectedValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText("" + WriteVal(RF,fraction),
SelectedValue(BarIndex()+10)-(numbars/hts),SelectedValue(RF),colorWhite,colorOrange);
PlotText("" + WriteVal(SF,fraction),
SelectedValue(BarIndex()+10)-(numbars/hts),SelectedValue(SF),colorWhite,colorOrange);
  
  
_SECTION_BEGIN("Unnamed 24");
  
Lbp=Param("lbp",50,1,500,5);
rp=Param("rp",14,5,100,1);
b30=(Sum(RSI(rp)<30,Lbp))*100/Lbp;
b30n50=(Sum(RSI(rp)>30 && RSI(rp)<50,Lbp))*100/Lbp;
b50n70=(Sum((RSI(rp)>50 && RSI(rp)<70),Lbp))*100/Lbp;
a70=(Sum(RSI(rp)>70,Lbp))*100/Lbp;
GfxSetBkColor(colorBlack);
GfxSetTextColor(colorYellow);
GfxTextOut(" bellow 30= "+b30+"%",5,20);
GfxTextOut(" above 30 & bellow 50= "+b30n50+"%",5,40);
GfxTextOut(" above 50 & bellow 70= "+b50n70+"%",5,60);
GfxTextOut(" above 70 = "+a70+"%",5,80);
GfxTextOut(" total="+(b30+b30n50+b50n70+a70)+"%",5,100);
_SECTION_BEGIN("RSI");
SetChartOptions(0,0,chartGrid30|chartGrid70);
periods = Param( "Periods", 14, 1, 200, 1 );
Plot( vrsi = RSI( periods), _DEFAULT_NAME(),colorCustom12,styleNoLine| styleNoLabel  );
if( Status("action") == actionCommentary )
SetChartOptions(0,chartShowArrows|chartShowDates);
priceTitle=StrFormat(" {{NAME}} {{VALUES}}");
  
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}

1. Kabir

over 12 years ago

Dear Administration

Hoping for Ur Approvement …..

Report as Spam

2. soundar

over 11 years ago

kabir sir congrats good application nice very helpful for intradaytraders

Report as Spam

3. SUMIT GANGWANI

about 11 years ago

KABIR SIR THANKS VERY MUCH NICE AFL MY GOOD WISHES IS ALWAYS WITH YOU

Report as Spam

4. keyessiva

almost 11 years ago

i found its very exciting…..
Dear Kabir ji can i contact u, pl give ur email id or phone

Report as Spam

5. esnataraj

over 10 years ago

Good One Sir

Report as Spam

6. giribabu06

over 10 years ago

Interesting one…
Thanks for sharing the AFL.

Report as Spam

7. ziman

about 8 years ago

good

Report as Spam

8. abdalelah

almost 8 years ago

good one

Report as Spam

Stock Portfolio Organizer

WiseTrader Toolbox

Rsi Mini Max with Support and Resistance for Amibroker (AFL)
Kabir
over 12 years ago
Amibroker (AFL)

Screenshots

Similar Indicators / Formulas

Indicator / Formula

8 comments

Leave Comment

Stock Portfolio Organizer

WiseTrader Toolbox

Rsi Mini Max with Support and Resistance for Amibroker (AFL) Kabir over 12 years ago Amibroker (AFL)

Screenshots

Similar Indicators / Formulas

Indicator / Formula

8 comments

Leave Comment

Rsi Mini Max with Support and Resistance for Amibroker (AFL)
Kabir
over 12 years ago
Amibroker (AFL)