Displaying VPA Working Pastie 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

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

formulaName="VPA+Foreign";
SetChartOptions(0,chartShowArrows|chartShowDates);
GfxSetBkMode(1);
GfxSelectFont("Verdana",14,500,italic=False);
GfxSetTextColor(ColorRGB(255,255,153));
GfxTextOut(FormulaName,4,20);
GraphXSpace=10;
Bkg=ParamToggle("BKG","LightBlue|System",0);
if (Bkg == 0) { SetChartBkGradientFill(ColorRGB(102,153,204),ColorRGB(0,51,102),ColorRGB(102,153,204));}
else {}
 
 
_SECTION_BEGIN("Price+Volume Chart");
SetBarFillColor(IIf(C>O,colorBrightGreen,IIf(C<=O,colorRed,colorGrey40)));
// Plot Price
ChartStyle = ParamList("Price Chart Style","Candle|Bar|Line|Heikin-Ashi");
if (ChartStyle =="Candle")    {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleCandle|styleLine); }
else if(ChartStyle == "Bar")  {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleBar|styleLine);    }
else if(ChartStyle == "Line") {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleThick|styleLine);  }
else if(ChartStyle == "Heikin-Ashi") 
{
HaClose= EMA((O+H+L+C)/4, 3); 
HaOpen = AMA(Ref(HaClose, -1), 0.5); 
HaHigh = Max(H, Max(HaClose, HaOpen)); 
HaLow  = Min(L, Min(HaClose, HaOpen)); 
PlotOHLC(HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), IIf(Close > Open, colorBrightGreen, colorRed), styleCandle|styleLine|styleNoLabel);
}
else {Plot(C,Date()+"Close",IIf(Close>Open,colorBrightGreen,colorRed),styleBar|styleLine);}
 
// Plot Volume
PlotVOL  = ParamToggle("Plot Volume","No|Yes",0);
VolColor = (C>O OR (C==O AND (H-C)<=(C-L)))*colorBrightGreen+(C<O OR (C==O AND (H-C)> (C-L)))*colorRed;
VolScale = Param("Scale Factor", 2,0.1,20,0.1);
if (PlotVOL == 1) { Vheight=VolScale;Plot(Prec(Volume,0),"V",VolColor,styleNoTitle|styleOwnScale|ParamStyle("VStyle",styleHistogram,maskHistogram),Vheight); }
_SECTION_END();
 
 
_SECTION_BEGIN("VPA Daily Chart");
segments = IIf(Interval() < inDaily,Day(),Month() );
segments = segments != Ref(Segments,-1);
ShowVPA  = ParamToggle("Plot VPA","No|Yes",1);
VPAColor = ParamColor("Select VPAColor",ColorRGB(102,153,204));
if (ShowVPA == 1) 
{
PlotVAPOverlayA(segments,Param("Select VPA Lines Density",100,50,200,10),Param("Select VPA Width",100,0,200,4),VPAColor,ParamToggle("Select VPA Side","Left|Right")|2*ParamToggle("Select VPA Style","Fill|Lines",1)|4*ParamToggle("Select VPA Z-order","On top|Behind",0));
Plot(Segments,"",ColorRGB(255,102,0),styleArea|styleOwnScale|styleNoLabel); 
} else {}
_SECTION_END();
 
 
_SECTION_BEGIN("Plot Foreign Ticker");
FT = ParamList ("Select Foreign Ticker","S&P 500-U13|S&P 500-U13");
ShowFT = ParamToggle("Plot Foreign Ticker","Yes|No",1);
O = Foreign(FT,"O");
H = Foreign(FT,"H");
L = Foreign(FT,"L");
C = Foreign(FT,"C");
if (ShowFT == 0)
{ 
PlotOHLC(O,H,L,C, "Foreign Ticker = " +FT,colorGold,styleOwnScale|styleLine); 
} else {}
_SECTION_END();

Stock Portfolio Organizer

WiseTrader Toolbox

VPA Working for Amibroker (AFL)