Phân tích kỹ thuật (TA) - (chỉ chia sẻ kiến thức, ko spam)

Nhờ trau đổi với bạn,mình đã chuẩn được ht của mình ,bg có thể sd cho việc mua ato và mình đã chạy thử backtest,trước đây mình không biết chạy backtest,mình luôn cầu tiến và học hỏi,chỉ cần thấy ý tưởng người khác hay là mình tìm cách đưa vào ht của mình thôi,chúc bạn luôn thành công ,thân ái

Các bạn dân TA sửa dùm tôi code này nhé.
Nó bị 2 lỗi:
1. Hay bị repaint tức là hôm nay báo bán nhưng khi mã đó tốt lên vào hôm sau thì điểm báo bán đó lại mất. Ngược lại cho trường hợp báo mua
2. Không filter được( báo lỗi Error 10)
Cảm ơn các bác!
Code dưới dây

_SECTION_BEGIN("ADX Candle stick ");
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 ) ) ));
if (SetBarFillColor( IIf( (C O)AND (C mindistance AND High > HHV( Ref( H, fwdcheck ), fwdcheck - 1 );
doubleBot=tr AND abs( troughdiff - 1 ) mindistance AND Low Ref(DayEMA, -1) AND Histogram > Ref(Histogram, -1);
Impulse_Down = DayEMA Ref(Hist_in_w, -1);
wh_falling = Hist_in_w Ref(Hist_in_m, -1);
mh_falling = Hist_in_m b , "BUY","SELL");
GfxSetTextColor( colorYellow );
GfxTextOut( "STOCH = " +STOCH, textoffset + 1, 229 );
GfxSelectFont("Arial", 8 );

_SECTION_BEGIN("Van K Tharp Efficient Stocks");
// Mark Keitel 12-05
// Van K Tharp Efficient Stocks
GfxSelectFont("Arial", 8, 500, True );
ATRD180 = ATR(180);
ATRD90 = ATR(90);
ATRD45 = ATR(45);
ATRD20 = ATR(20);
ATRD5 = ATR(5);
DifferenceD180 = Close - Ref(Close,-180);
DifferenceD90 = Close - Ref(Close,-90);
DifferenceD45 = Close - Ref(Close,-45);
DifferenceD20 = Close - Ref(Close,-20);
DifferenceD5 = Close - Ref(Close,-5);
EfficiencyD180 = IIf(ATRD180!=0,DifferenceD180/ATRD180,1);
EfficiencyD90 = IIf(ATRD90!=0,DifferenceD90/ATRD90,1);
EfficiencyD45 = IIf(ATRD45!=0,DifferenceD45/ATRD45,1);
EfficiencyD20 = IIf(ATRD20!=0,DifferenceD20/ATRD20,1);
EfficiencyD5 = IIf(ATRD5!=0,DifferenceD5/ATRD5,1);
Averageeff = (EfficiencyD180 + EfficiencyD90 + EfficiencyD45 +
EfficiencyD20 ) / 4;
//Plot( averageeff, "AvgEff", colorLightBlue, styleLine );
x = Param ( "Add Results to a Watchlist? Yes = 1, No = 2" , 2 , 1 , 2 , 1 ) ; // select whether to add results to watchlist or not
y = Param("Set Watchlist Number", 25, 2, 60,1); // sets the watchlist number, but reserves the first 2 and last 4 watchlists
// -------- Parameter Variables for Exploration --------------------------------
TCH = Param("High close value ", 20, 5, 300, 0.5);
TCL = Param("Low close value " , 5, 1, 10, 0.25);
AVP = Param("Period for Avg Vol " , 21, 10, 240, 1);
SV = Param("Stock minimum Avg Vol " , 125000, 50000, 1000000, 500000);
// -------------- Organize the exploration results ------------------------------------
P = Param("Period for Price Delta Comparisons", 1, 1, 120, 1);
P1 = Param("Period for Other Delta Comparisons", 3, 1, 120, 1);
PATR = Param("Period for ATR", 5,1,21,1);
PADX = Param("Period for ADX", 14, 3, 34,1);
PRSI = Param("Period for RSI", 13, 3, 34,1);
ADX_TREND =WriteIf(PDI(PADX)>MDI(PADX),"_ TREND UP","_TREND DOWN");
GfxSetTextColor( colorRed );
GfxTextOut( "RSI(14) = " + MOMETUM + ADX_TREND , textoffset + 1,465 );
ADX_14 = ADX(14);
GfxSetTextColor( colorLightBlue );
GfxTextOut( "ADX_TREND = " +ADX_14+ ADX_TREND, textoffset + 1, 452 );
_SECTION_END();


_SECTION_BEGIN("Gann HiLo");
/*Gann HiLo*/
pds=Param("Stop Period",4,2,10,0.25);

barcolor=
IIf(Outside(),colorYellow,
IIf(LRef(H,-1) && L>=Ref(L,-1),colorBrightGreen,colorBlue)));

Hld = IIf(C > Ref(MA(H, 2), -1), 1, IIf(C Hilo, colorBrightGreen, colorRed);
Buy = Close > Hilo;
Sell = Close Hilo,"BUY","SELL");
GfxSetTextColor( colorBrightGreen );
GfxTextOut( "GannHiLo = " +GannHiLo, textoffset + 1, 255 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("Indicator ZeroLag W%R");
/*ZeroLag W%R*/
"========";
R = ((HHV(H,12) - C) /(HHV (H,14) -LLV (L,14))) *-100;
Period= 10;
EMA1= EMA(R,Period);
EMA2= EMA(EMA1,5);
Difference= EMA1 - EMA2;
ZeroLagEMA= EMA1 + Difference;
PR=100-abs(ZeroLagEMA);
Buy=Cross(R,ZeroLagEMA);
Sell=Cross(ZeroLagEMA,R);
ZeroLagEMA =WriteIf(R > ZeroLagEMA, "BUY","SELL");
GfxSetTextColor( colorOrange );
GfxTextOut( "William%R = " +ZeroLagEMA, textoffset + 1, 216 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("PVR");
"PVR";
P1=Ref(C,-1);
V1=Ref(V,-1);
PVR=IIf(C>P1 AND V>V1,4,
IIf(C>P1 AND V B, "BUY","SELL");
GfxSetTextColor( colorRed );
GfxTextOut( "PVR = " +PVR, textoffset + 1, 203 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("ASHISHDA MACD");
a=TSF(C,3)+TSF(C,5)+TSF(C,8)+TSF(C,13)+TSF(C,17)+TSF(C,26);
b=TSF(C,8)+TSF(C,13)+TSF(C,26)+TSF(C,35)+TSF(C,50)+TSF(C,56);
mova= TSF(a,3);
movb=TSF(b,26);
diff= a + mova;
diff1= b + movb;
m= diff - diff1;
m1= TSF(m,5)*.5;
Buy = Cross(m1,Ref(m1, -1));
Sell = Cross(Ref(m1, -1),m1);
QuickMACD =WriteIf(m1>Ref(m1, -1), "BUY","SELL");
GfxSetTextColor( colorGreen);
GfxTextOut( "MACD = " +QuickMACD, textoffset + 1, 242 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("SECONDARY LANDIS");
x = ((StochK(9,3)*0.05)+(StochK(182,9)*0.43)+(StochK(34,13)*0.26)+(StochK(34,8)*0.16)+(StochK(21,5)*0.10));
y = MA(x,15);

Buy= Cross (x,y);
Sell= Cross (y,x);
LANDIS =WriteIf(x > y, "SECONDARY UPTREND","SECONDARY DOWNTREND");
GfxSetTextColor( colorPink );
GfxTextOut( "LANDIS = " +LANDIS, textoffset + 1, 491 );
GfxSelectFont("Arial", 8 );

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
_SECTION_BEGIN("Average");
P = ParamField("Field");
Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear Regression-45,Exponential,Double Exponential,Tripple Exponential,Wilders,Simple");
Periods = Param("Periods", 14, 2, 100 );
Displacement = Param("Displacement", 1, -50, 50 );
m = 0;

if( Type == "Weighted" ) m= WMA( P, Periods );
if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods);
if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );
if( Type == "Exponential" ) m = EMA( P, Periods );
if( Type == "Double Exponential" ) m = DEMA( P, Periods );
if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );
if( Type == "Wilders" ) m = Wilders( P, Periods );
if( Type == "Simple" ) m = MA( P, Periods );

Buy=Cover=Cross(C,m);
Sell=Short=Cross(m,C);
AveragePrice =WriteIf(C > m, "ABOVE AVERAGE","BELOW AVERAGE");
GfxSetTextColor( colorDarkYellow );
GfxTextOut( "PRICE = " +averageprice, textoffset + 1, 504 );
GfxSelectFont("Arial", 8 );

_SECTION_BEGIN("SAR ARROW");
Plot( Close, "C", colorBlack, styleCandle );
acc = Param("Acceleration", 0.02, 0, 1, 0.001 );
accm = Param("Max. acceleration", 0.2, 0, 1, 0.001 );
S = SAR();
Buy = Cross( Close, S );
Sell = Cross( S, Close );
SARPhase =WriteIf(Close>S,"BUY","SELL");
GfxSetTextColor( colorRed);
GfxTextOut( "S A R = " +SARPhase, textoffset + 1, 517 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("Stochastic Momentum Index");
period1 = 12;
period2 = 6;
period3 = 6;
SMI =
100 * ( EMA( EMA( C - (0.5 * ( HHV(H,period1) + LLV(L,period1))),period2),period3)/(0.5*EMA( EMA( HHV(H,period1) - LLV(L,period1),period2),period3)));
Buy= Cross (SMI,MA( SMI, 6 ));
Sell= Cross (MA( SMI, 6 ),SMI);
Momentum =WriteIf(SMI > MA( SMI, 6 ), "BUY","SELL");
GfxSetTextColor( colorOrange );
GfxTextOut( "Stoch Momentum = " +Momentum, textoffset + 1, 530 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("JMAHiLo");
function JMA( array, per )
{
TN1=MA(array,per);
s1=0;
for( i = 0; i JMA(varLo ,JMAperiods), "BUY","SELL");
GfxSetTextColor( colorGreen );
GfxTextOut( "JMAHiLo = " +JMAHiLo, textoffset + 1, 543 );
GfxSelectFont("Arial", 8 );
_SECTION_END();

_SECTION_BEGIN("SmoothHeikin MA Swing");
SetBarsRequired(200,0);
GraphXSpace = 5;
SetChartOptions(0,chartShowArrows|chartShowDates);
k = Param("K", 1.5, 1, 5, 0.1);
Per = Param("ATR", 3, 1, 30, 0.50);
k1 = Optimize("K", 1, 0.1, 5, 0.1);
Per1 = Optimize("ATR", 3, 1, 30, 0.50);
HACLOSE=(O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
j=Haclose;
//=======================================================================================================================
//=========================Indicator==============================================================================================
f=ATR(14);

rfsctor = WMA(H-L, Per);

revers = k * rfsctor;

Trend = 1;
NW[0] = 0;


for(i = 1; i NW[i-1])
{
NW = j - Revers;
}
else
{
NW = NW[i-1];
}
}
}
if(Trend[i-1] == -1)
{
if(j > NW[i-1])
{
Trend = 1;
NW = j - Revers;
}
else
{
Trend = -1;
if((j + Revers) nw, "UPTREND","DOWNTREND");
GfxSetTextColor( colorLightBlue );
GfxTextOut( "SWING = " +SWING, textoffset + 1, 268 );
GfxSelectFont("Arial", 8 );
shape = Buy * shapeCircle + Sell * shapeCircle;
_SECTION_END();

_SECTION_BEGIN("Sigma Bands");
A = Param("Periods?",21,1,300,1);

x = MA(C,a);

x1 = x+1*StDev(C,a);
x2 = x+2*StDev(C,a);
x3 = x+3*StDev(C,a);

y1 = x-1*StDev(C,a);
y2 = x-2*StDev(C,a);
y3 = x-3*StDev(C,a);

Plot(x1, "", colorDarkGreen, styleDashed);
Plot(x2, "", colorDarkGreen, styleThick | styleDashed);
Plot(x3, "", colorDarkGreen, styleThick);

Plot(y1, "", colorDarkRed, styleDashed);
Plot(y2, "", colorDarkRed, styleThick | styleDashed);
Plot(y3, "", colorDarkRed, styleThick);
_SECTION_END();


_SECTION_BEGIN("Pivot_Finder");
/* **********************************

Code to automatically identify pivots

********************************** */

// -- what will be our lookback range for the hh and ll?
farback=Param("How Far back to go",100,0,5000,10);
nBars = Param("Number of bars", 12, 5, 40);


GraphXSpace=7;

// -- Create 0-initialized arrays the size of barcount

aHPivs = H - H;

aLPivs = L - L;

// -- More for future use, not necessary for basic plotting

aHPivHighs = H - H;

aLPivLows = L - L;

aHPivIdxs = H - H;

aLPivIdxs = L - L;

nHPivs = 0;

nLPivs = 0;

lastHPIdx = 0;

lastLPIdx = 0;

lastHPH = 0;

lastLPL = 0;

curPivBarIdx = 0;

// -- looking back from the current bar, how many bars

// back were the hhv and llv values of the previous

// n bars, etc.?

aHHVBars = HHVBars(H, nBars);

aLLVBars = LLVBars(L, nBars);

aHHV = HHV(H, nBars);

aLLV = LLV(L, nBars);

// -- Would like to set this up so pivots are calculated back from

// last visible bar to make it easy to "go back" and see the pivots

// this code would find. However, the first instance of

// _Trace output will show a value of 0

aVisBars = Status("barvisible");

nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));

_TRACE("Last visible bar: " + nLastVisBar);

// -- Initialize value of curTrend

curBar = (BarCount-1);

curTrend = "";

if (aLLVBars[curBar] lastHPIdx) {

// -- Bar and price info for candidate pivot

candIdx = curBar - aHHVBars[curBar];

candPrc = aHHV[curBar];

if (

lastHPH lastLPIdx AND

candIdx candPrc AND

candIdx > lastHPIdx AND

candIdx BEGIN-10,trendlineS,-1e10);
TRR = IIf(x>BEGIN-10,trendlineR,-1e10);
Condcolor=(Cross(C,trendlineR) AND X>ENDT1) OR (Cross(trendlineS,C) AND
X>ENDT);
BarColor=IIf(Condcolor,7,1);
Plot(C,"Close",BarColor,styleCandle);
Plot(TRS,"Support",colorYellow,styleLine);
Plot(TRR,"Resist",colorYellow,styleLine);
/////////////////////////////////////
// Shading //
////////////////////////////////////
fill=Param("style",2,1,2,1);
style=IIf(fill==1,styleHistogram,IIf(fill==2,styleArea,Null));
x=IIf(trs > trr,trr,trs);
Plot(x,"",colorBlack,style);
Plot(trr,"",colorDarkTeal,style);
////////////////////////////////////////////
// Pattern Recognition in title bar //
///////////////////////////////////////////
Lowline=Ends-starts;
Highline=endr-startr;
Wedge=IIf(Highline 0,1,0);
DecendingTriangle=IIf(Highline 0,1,0);
DownChannel=IIf(Highline0 AND Lowline>0,1,0);
BroadeningWedge=IIf(Highline > 0 AND Lowline trendlineR, "Bullish","Bearish");
GfxSetTextColor( colorWhite );
GfxTextOut( "Breakout = " +Breakout, textoffset + 1, 558 );
GfxSelectFont("Arial", 8 );
Title=Name()+ WriteIf(wedge==1," Wedge","")+WriteIf(DecendingTriangle==1," Decending Triangle","")+WriteIf(AscendingTriangle==1,"Ascending Triangle","")/*+WriteVal(Lowline)*/+WriteIf(DownChannel==1," Downward Sloping Channel","")+WriteIf(UpChannel==1," Upward Sloping Channel","")+WriteIf(broadeningWedge==1," Broadening Wedge","")+"\n"+EncodeColor(colorGreen)+WriteIf(bullishbreakout,"Bullish Breakout",EncodeColor(colorRed)+WriteIf(bearishbreakout,"Bearish Breakout",""))/*+WriteVal(highline)*/;
/////////////////////////////////////
// Automatic Analysis //
////////////////////////////////////
Filter=AscendingTriangle OR DecendingTriangle OR Wedge OR DownChannel OR UpChannel OR BroadeningWedge OR Bullishbreakout OR bearishbreakout;
AddTextColumn(WriteIf(bullishbreakout,"bullish Breakout",""),"BullBreak");
AddTextColumn(WriteIf(bearishBreakout,"Bearish Breakout",""),"BearBreak");
AddTextColumn(WriteIf(ascendingtriangle,"Ascending Triangle",WriteIf(decendingtriangle,"Decending Triangle",WriteIf(Wedge,"Wedge",WriteIf(DownChannel,"Down Channel",WriteIf(UpChannel,"Up Channel",WriteIf(BroadeningWedge,"Broadening Wedge","")))))),"Pattern");
_SECTION_END();

_SECTION_BEGIN("Calculation Bar");
Version(4.70); // needs AmiBroker 4.70
function msPattPos( element )
{
Value1 = Ref( H, -1 );
Value2 = Ref( L, -1 );
Value3 = ( Value1 + Value2 )/2;
Dist = Ref( ATR( 10 ), -1 );
Value4 = Value1 + Dist;
Value5 = Value2 - Dist;
result = IIf( element Open, 1 );
PattCloseBelow = DesiredPattern == patts AND Ref( Close < Open, 1 );
//PlotShapes( ( DesiredPattern == patts ) * shapeCircle , IIf( PattCloseAbove, colorDarkGreen, IIf( PattCloseBelow, colorDarkRed, colorDarkBlue ) ), 0, High, 30 );
NumPatterns = LastValue( Cum( DesiredPattern == patts ) );
NumPattCloseAbove = LastValue( Cum( PattCloseAbove ) );
NumPattCloseBelow = LastValue( Cum( PattCloseBelow ) );
NumPattCloseEqual = NumPatterns - NumPattCloseAbove - NumPattCloseBelow;
Title = Title +
"\n\nTotal number of Patterns: " + NumPatterns +
"\n% on Total Bars: " + 100 * NumPatterns/BarCount +
"\nIn the next bar\n" +
EncodeColor(colorGreen) +
"Close has been above the open " + NumPattCloseAbove +
" (" + NumPattCloseAbove / NumPatterns + "%) times\n" +
EncodeColor(colorRed) +
"Close has been below the open " + NumPattCloseBelow + " (" +
NumPattCloseBelow / NumPatterns +" %) times\n" +
EncodeColor(colorGrey50) +
"Close has been equal to the open " + NumPattCloseEqual + " (" +
NumPattCloseEqual / NumPatterns +" %)times";
_SECTION_END();[/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I][/I]

--- Gộp bài viết, 18/04/2017, Bài cũ: 18/04/2017 ---

Cho xin kiến giải đi các bác

không dùng pivot được ,vì khi dùng pivot không thể scan hay explorer(đó là kinh nghiệm bản thân khi sd code,không biết các bác thế nào nhưng ami không chaỵ khi dùng scan trong code có pivot) ,2 là tất cả code đều repaint trừ trường hợp bạn dùng (
LongMA = EMA( C, Param(“Long Period”, 50, 30, 100, 5 ));
ShortMA = EMA( C, Param(“Short Period”, 5, 3, 50, 1 ));
LongMA[BarCount-1]=Null;
ShortMA[BarCount-1]=Null trước đây mình có dùng thử ,không repaint nhưng có độ trể khoảng 2 phiên nên mình không dùng vì ở tt vn 2 phiên có khi đã 5-7% rồi) ,thân

Bài phân tích hay về Đầu tư chứng khoán giá trị, Đầu tư chứng khoán tăng trưởng các bạn có thể tham khảo

theo dõi tại link

Rất hữu ích trong việc xem xét đánh giá cổ phiếu

CTP ăn 40% từ giá FL 10.7 kìa bạn....

Chào các thành viên F319! Làm thế nào để xem được hình minh họa mấy trang đầu tiên hả các bác? Em không xem được hình là do máy của em hay do link bị lỗi ạ? Em cảm ơn!

Up thành viên vip đi bạn. Giới hạn chỉ có VIP mới nhìn đc thôi.

Liên hệ admin nhé.

tks

Lý thuyết về 3 con quạ đen và 3 con thiên nga trắng trong TA .

Lý thuyết này nói là với 1 cổ phiếu nhất định , một nhóm NDT thường biết trước một tin khủng gì đó sắp diễn ra , nên họ sẽ mua và bán rất quyết liệt 1 mã nào đó trong khoảng 3 phiên ( Kèm theo VOL tăng mạnh so với trung bình nhiều phiên trước ) , và xu hướng tiếp theo của CP đó gần như chắc chắn sẽ là giảm mạnh (với quạ đen ) và tăng mạnh ( với thiên nga trắng ) .

Vào 1 ví dụ thực tế . HVG 3 phiên gần nhất thì 2 phiên có dấu hiệu thiên nga trắng , phiên thứ 3 cũng chớm tăng mạnh , nhưng lực bán mạnh hơn , lực mua không nhiều . Tuy nhiên nếu thứ 2 này HVG lại tiếp tục tăng và VOL mạnh ( vượt trên 1 triệu ) thì có thể ghép 2 phiên thứ 6 và thứ 2 tạo nên 1 cây nến xanh dài có VOL tăng mạnh . Và như thế nó sẽ hoàn thành mẫu hình THIÊN NGA TRẮNG . Và về lý thuyết sau đó xu hướng tăng sẽ là chủ đạo của CP này .

Nếu thứ 2 này HVG diễn biến như tôi dự đoán thì có vẻ mã này sắp có tin rất vui về FA .

HVG mới chính thức vượt mây Ichimoku .

Lý thuyết này còn có thể áp dụng cho cả VNIDEX .