Displaying VALUE CHART WITH SCAN 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

I will appreciate if there can be a better modification than this. thanks....
 
SetChartOptions(0,chartShowArrows|chartShowDates);
    SetChartBkColor(ParamColor("Outer panel",colorBlack)); // color of outer border 
    SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),ParamColor("Inner panel lower",colorBlack));
    tchoice=Param("Title Selection ",2,1,2,1);
 
////  Vchart
//This was converted from code created for TradeStation by Mark W. Helweg of ValueCharts.com
VarNumbars = Param("Number of candlestick",5,2,1000,1);
Color = Param("Bar Color",colorBlue);
Top = Param("Top Chart Line",8);
TopMid = Param("Top Mid Chart Line",4);
BottomMid = Param("Bottom Mid Chart Line",-4);
Bottom = Param("Bottom Chart Line",-8);
Plot(Top,"Top Chart Line",colorRed);
Plot(TopMid,"Top Mid Chart Line",colorLightGrey);
Plot(BottomMid,"Bottom Mid Chart Line",colorLightGrey);
Plot(Bottom,"Bottom Chart Line",colorRed);
 
LRange = 0;
    VarP = round(VarNumBars/5);
if (VarNumBars > 7) 
{
    VarA=HHV(H,VarP)-LLV(L,VarP);
    VarR1 = IIf(VarA==0 AND VarP==1,abs(C-Ref(C,-Varp)),VarA);
    VarB=Ref(HHV(H,VarP),-VarP+1)-Ref(LLV(L,VarP),-VarP);
    VarR2 = IIf(VarB==0 AND VARP==1,abs( Ref(C,-VarP)-Ref(C,-Varp*2) ),VarB);
    VarC=Ref(HHV(H,VarP),-VarP*2)-Ref(LLV(L,VarP),-VarP*2);
    VarR3 = IIf(VarC == 0 AND VarP==1,abs(Ref(C,-Varp*2)-Ref(C,-Varp*3)),VarC);  
    VarD = Ref(HHV(H,VarP),-VarP*3)-Ref(LLV(L,VarP),-VarP*3);
    VarR4 = IIf(VarD == 0 AND VarP==1,abs(Ref(C,-Varp*3)-Ref(C,-Varp*4)),VarD); 
    VarE = Ref(HHV(H,VarP),-VarP*4)-Ref(LLV(L,VarP),-VarP*4);
    VarR5 = IIf(VarE == 0 AND VarP==1,abs(Ref(C,-Varp*4)-Ref(C,-Varp*5)),VarE); 
    LRange=((VarR1+VarR2+VarR3+VarR4+VarR5)/5)*.2;
};
 
 
CDelta = abs(C - Ref(C,-1));
if (VarNumBars <=7)
{
    Var0 = IIf(CDelta > (H-L) OR H==L,CDelta,(H-L));
    LRange = MA(Var0,5)*.2;
}
MidBarAverage = MA( (H+L)/2,VarNumbars);
VOpen = (Open- MidBarAverage)/LRange;
VHigh = (High-MidBarAverage)/LRange;
VLow = (Low-MidBarAverage)/LRange; 
VClose = (Close-MidBarAverage)/LRange; 
PlotOHLC(VOpen,VHigh,VLow,VClose,"ValueChart",color,styleCandle| styleThick ,-12,12);
Title= Name() + " " + WriteVal( DateTime(), formatDateTime )+
"\nVOpen " + VOpen + "\n"+ " VHigh "+ VHigh + "\n"+ " VLow " + Vlow  + "\n"+ " VClose " + VClose;
Filter = Volume > 50000;
AddColumn( VOpen, "VOpen"); 
AddColumn( VHigh, "VHigh"); 
AddColumn( VLow, "VLow"); 
AddColumn( VClose, "VClose");
_SECTION_END();

Stock Portfolio Organizer

WiseTrader Toolbox

VALUE CHART WITH SCAN for Amibroker (AFL)