Phân tích kỹ thuật - Hướng phát triển mới

[tigeran]

- Ở nước ngoài đồ thị Point and Figure rất nổi tiếng và nhiều người sử dụng, họ còn có cả hội đầu tư bằng phương pháp phân tích kỹ thuật Point and Figure, tất nhiên thành viên của hội này phải đóng phí hằng tháng khá đắt, nhưng được cái rất hiệu quả trong đầu tư.
- Ở VN rất ít sử dụng đồ thị này, nguyên nhân chủ yếu là do đặc thù của thị trường VN là có biên độ giao dịch, và code của đồ thị này được viết tính bằng 1USD/box, vì vậy việc ứng dụng đồ thị Point and Figure vào thị trường VN là không hiệu quả.
- Tuy nhiên hiện nay đã có một số bác đã nghiên cứu và xây dựng đồ thị này phù hợp với đặc thù của VN và cũng rất thành công trong đầu tư, tuy nhiên code vẫn được giữ bí mật..
- Mình cũng đã tìm hiểu và lóm được vài ý tưởng, nhưng e vẫn chưa hoàn thành được code, mong các cao thủ trong forum giúp sức để có thêm một đường chỉ báo mới lạ trong đầu tư.

Mặc định:
. Box = 1% của giá đóng cửa
. PFL: Point and Figure thấp nhất
. PFH: Point and Figure cao nhất nhất

1. y/c 1:
Th1: giá đóng cửa hôm nay <= PFL phiên trước
--> PFL hôm nay = với giá đóng cửa

Th2: giá đóng cửa hôm nay >= PFL phiên trước
--> . PFL hôm nay = PFL phiên trước
. PFH hôm nay = giá đóng cửa
. PFL và PFH tất cả các phiên trước đểu giảm 1 Box (phần này e chưa viết code được)

Th3: giá đóng cửa >= PFH phiên trước
--> PFH = giá đóng cửa

Th4: giá đóng cửa <= PFH phiên trước
--> . PFH hôm nay = PFH phiên trước
. PFL hôm nay = giá đóng cửa
. PFL và PFH tất cả các phiên trước đó đều tăng 1 Box (phần này e chưa viết code được)


2. Y/C 2
lưới mặc định có sẳn

3. Y/C 3
thay các ký hiệu O,X thành những con số: tháng 1: 1, tháng 2: 2 .... tháng 9: 9, tháng 10: A, tháng 11: B, tháng 12: C. tăng màu xanh, giảm màu đỏ

Đoạn code tham khảo:

_SECTION_BEGIN( "Point & Figure" );

GfxSetTextColor( colorOrange );
GfxSelectFont("Times New Roman", 10, 700, True );
GfxTextOut("name", 10 , 0 );

GraphXSpace = 5;

SetChartBkColor( ParamColor( "BackGroundColor", colorBlack) );

//GraphColor = ParamColor("GarphColor",colorLightGrey);

GridColor = ParamColor( "GridColor", colorLightGrey );

Box = Param( "Box ", 1, 0.2, 10, 0.1 ) / 100 * LastValue( C );

shiftChart = 0;
shiftLastClose = 1;
shiftGrid = 7;
shiftPriceAxis = 2;

Reverse = Param( "Reverse", 1, 1, 5 );

j = 0;

PFL[0] = Box * ceil( Close[0] / Box ) + Box;

PFH[0] = Box * floor( Close[0] / Box );

direction = 0;

for ( i = 1; i < BarCount; i++ )

**

if ( direction[j] == 0 )

**

if ( Close <= PFL[j] )

**


PFL[j] = Box * ceil( Close / Box );

}


else

**

if ( Close >= PFL[j] )

**

j++;

direction[j] = 1;

PFH[j] = Box * floor( Close / Box );

PFL[j] = PFL[j - 1];
PFL[j - 1] = PFL[j] - Box;
PFH[j - 1] = PFH[j - 1] - Box;


}

}

}



else

**

if ( Close >= PFH[j] )

**

PFH[j] = Box * floor( Close / Box );

}

else

**

if ( Close <= PFH[j] )

**

j++;

direction[j] = 0;

PFH[j] = PFH[j - 1];
PFH[j - 1] = PFH[j] + Box;
PFL[j - 1] = PFL[j -1] + Box;

PFL[j] = Box * ceil( Close / Box );
}

}

}

}


delta = BarCount - j - 1;

direction = Ref( direction, - delta );

Hi = Ref( PFH, -delta ) + Box / 2;

Lo = Ref( PFL, -delta ) - Box / 2;

Cl = IIf( direction == 1, Hi, Lo );

Op = IIf( direction == 1, Cl - Box, Cl + Box );

Graphcolor = IIf( direction == 1, ParamColor( "X_Color",colorBrightGreen ),

ParamColor( "O_Color", colorRed ) );

PlotOHLC( Op, Hi, Lo, Cl, "", GraphColor , stylePointAndFigure | styleNoLabel, 0, 0 , shiftChart );

PlotOHLC( Op, Hi, Lo, Cl, "", GraphColor , stylePointAndFigure | styleNoLabel, 0, 0 , shiftChart );

Last = Ref( LastValue( C ), -( BarCount - 1 ) );

Plot( Last, "", colorGold, styleNoLine | styleDots, 0 , 0,shiftLastClose );
Plot( PFH[j], "", colorBlue, styleNoLine | styleDots, 0 , 0,shiftLastClose );
Plot( PFL[j], "", colorRed, styleNoLine | styleDots, 0 , 0,shiftLastClose );


// selected value

Value = IIf( direction > 0, SelectedValue( Hi ) - box / 2,SelectedValue( Lo ) + box / 2 );


//----------------------------------------------------------// GRID CONSTRUCTION//----------------------------------------------------------

PlotGridLines = ParamToggle( "PlotdGrid", "Yes! |No", 1 ) ;

if ( PlotGridLines ==1)

**

begin = SelectedValue( BarIndex() );

end = LastValue( BarIndex() );

period = end - begin + 1;

if ( begin < end )

**

ScreenHigh = LastValue( HHV( cl, period ) );

ScreenLow = LastValue( LLV( Cl, period ) );

top = LineArray( begin - shiftGrid, screenHigh, end, screenhigh, 0 ,
1 );

Bot = LineArray( begin - shiftGrid, screenlow, end, screenLow, 0, 1 );

Plot( top, "", gridColor, styleLine | styleNoLabel , 0, 0, shiftGrid );

//Plot( bot, "", gridColor,styleLine|styleNoLabel, 0 , 0 , shiftGrid);

VerticalGrid = IIf ( BarIndex() >= begin, IIf( direction == 1,
screenHigh,
screenLow ), Null );

Plot ( VerticalGrid, "", gridColor, styleStaircase | styleNoLabel,
0, 0, 1
);

format = 8.2;

for ( n = LastValue( bot ); n < LastValue( top ) - 0.5*box; n = n +
box )

**

Plot( bot , "", gridColor, styleLine | styleNoLabel, 0, 0 , shiftGrid );

text = NumToStr( LastValue( bot ) + 0.5 * box, format );

xposition = BarCount + shiftPriceaxis;

yPosition = LastValue( bot ) + 0.27 * box;

PlotText( text, xPosition , yPosition, colorWhite );

bot = bot + box;

Graphcolor = IIf( direction == 1, ParamColor( "X_Color",
colorBrightGreen ),

ParamColor( "O_Color", colorRed ) );

PlotOHLC( Op, Hi, Lo, Cl, "", GraphColor , stylePointAndFigure | styleNoLabel, 0, 0 , shiftChart );

}

}

}



//----------------------------------------------------------// TITLE//----------------------------------------------------------Title = "\n" +

" Instrument : " + Name() + FullName() + "\n " +

"Formula : " + " Point & Figure (High/Low Range)" + "\n " +

"Box : " + NumToStr( Box, 4.4 ) + " " +

"Reverse : " + NumToStr( Reverse, 2.0 ) + "\n " +

"ATR : " + WriteVal( LastValue( ATR( 100 ) ), format = 4.4 );

_SECTION_END();