Download Modification of Reversal By pranafrans 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 3)

amibroker, candlestick, pattern

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

// Reversal.afl by pranafrans http://wisestocktrader.com/indicators/5499-reversal
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_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() ); 
 
// REVERSAL by Candlestick
 
 
C1 = Ref(C,-1);
C2 = Ref(C,-2);
A1 = Ref(Avg,-1);
A2 = Ref(Avg,-2);
A3 = Ref(Avg,-3);
A4 = Ref(Avg,-4);
A5 = Ref(Avg,-5);
O1 = Ref(O,-1);
O2 = Ref(O,-2);
 
Syarat1 = ((A1 < A2) AND (A2 < A3) AND (A1 < A4)); //AND (A3 < A4) ) ;//OR ( A1 < A3);
Syarat2 = (C1 <= O1) AND (C2 <= O2);
SyaratTurun = Syarat1 AND Syarat2;
Syarat3 = (A1 > A2) AND (A2 > A3) AND (A1 > A4) ;
Syarat4 = (C1 >= O1) AND (C2 >= O2);
SyaratNaik = Syarat3 AND Syarat4;
 
DibawahMA20 = C < MA(C,20);
DiatasMA20  = C > MA(C,20);
 
//HammerItem =
BodyI = O - C;
TailI = C - L;
HammerItem = (O==H) AND (C < O) AND (TailI >= 2*BodyI);
 
//HammerPutih =
BodyP = C - O;
TailP = O - L;
HammerPutih = (C==H) AND (C > O) AND (TailP >= 2*BodyP);
 
Hammer = HammerPutih OR HammerItem;// Syarat Candlestick Bullish dan Bearish Reversal
Doji = O == C;
BodiPutih = C > O ;//AND (TailI < BodyI) ;
BodiItem = C < O ;//AND (TailP < BodyP);
 
BullishReversal = Doji OR BodiPutih OR Hammer;
BearishReversal = Doji OR BodiItem OR Hammer;
 
SyaratBullishR = SyaratTurun AND BullishReversal ;
SyaratBearishR = SyaratNaik  AND BearishReversal ;
 
PlotShapes(IIf(SyaratBullishR ,shapeHollowSmallCircle,shapeNone),colorBlue,0,L,-15);
PlotShapes(IIf(SyaratBearishR ,shapeHollowSmallCircle,shapeNone),colorRed,0,H,15);
 
 
_SECTION_END();
 
_SECTION_BEGIN("Transaction");//added this section by Sosrodiningrat http://bit.ly/SosrodiningratV1
//SetTradeDelays(1,1,0,0);
//FeeBeli atau FeeJual dapat diabaikan dengan mengisi angka nol.
FeeBeli=0.19;//dalam persen, penggunaannya tidak menjamin akurasi, hanya memberikan gambaran sekilas
FeeJual=0.29;//dalam persen, penggunaannya tidak menjamin akurasi, hanya memberikan gambaran sekilas
 
BuyPrice=O*(1+FeeBeli/100);
SellPrice=O*(1-FeeJual/100);
 
Buy=Ref(SyaratBullishR,-1);
Sell=Ref(SyaratBearishR,-1);
 
Buy=ExRem(Buy,Sell);Sell=ExRem(Sell,Buy);
 
PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorBlue,0,L,-25);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed,0,H,-25);
 
printf("\nBuyPrice= "+BuyPrice);
printf("\nSellPrice= "+SellPrice);
printf("\nFeeBeli= "+(1+FeeBeli/100));
printf("\nFeeJual= "+(1-FeeJual/100));
 
_SECTION_END();

1. NHUCHAU

over 7 years ago

Thanks !

Report as Spam

Stock Portfolio Organizer

WiseTrader Toolbox

Modification of Reversal By pranafrans for Amibroker (AFL)
Sosrodiningrat
almost 8 years ago
Amibroker (AFL)

Screenshots

Indicator / Formula

1 comments

Leave Comment