Lỗi này của bác có thể do máy bác đang bị virus hay win bị lỗi đấy bác. Em thấy kiểu vậy không phải chỉ mỗi cái downloader bị đâu.

Bạn Tú có thể hướng dẫn qua giúp mình về phần mềm Mugcafe được không? Mình có thể tìm hiểu về phần mềm ở đâu? Xin cảm ơn!

File điều chỉnh của mã GDKHQ sẽ có trong Topic 'Dữ liệu Metastock chiều hàng ngày sau phiên giao dịch.

Indicator quản lý danh mục đầu tư trên Ami:
_SECTION_BEGIN("quanlydanhmuc");
// NHAP VAO DANH MUC CUA BAN THEO FORMAT : TICKER, SHARES, DAYBUY, PRICE BUY
// CHU Y : KHONG CO KHOANG TRANG SAU DAU PHAY.
H1 =ParamStr("Tick1","SSI,1500,17/12/09,90");
H2 = ParamStr("Tick2","LCG,2000,17/12/09,62");
H3 = ParamStr("Tick3","REE,3000,17/12/09,36");
H4 = ParamStr("Tick4","REE,3000,17/12/09,36");
H5 = ParamStr("Tick5","REE,3000,17/12/09,36");


TotalSymbolCount = Param("NoTicker",5,0,20);

Title = "";
CellHeight = Param("CellHeight", 20, 10, 30, 1);
CellWidth = Param("CellWidth", 90, 70, 110,1);
PlotSpace = Param("PlotSpace", 50, 20, 80, 1);

ShowPlot = ParamToggle("GIATRIDANHMUC","No|Yes");
SymList = "";
ShrList = "";
DatList = "";
BuyList = "";

for( i=1; i < totalSymbolCount+1; i++ )
{
list = VarGetText( "H" + NumToStr(i, 1.0, 0));
if(i==1){comma = "";} else{comma = ",";}
SymList += comma + StrExtract( list , 0);
ShrList += comma + StrExtract( list, 1);
DatList += comma + StrExtract( list, 2);
BuyList += comma + StrExtract( list, 3);
}

Title = "";


function PrintInCell( string, row, Col,TxtColor )
{
GfxSetTextColor(TxtColor);
GfxDrawText( string, Col * CellWidth, row * CellHeight, ( Col + 1 ) *
CellWidth, ( row + 1 ) * CellHeight, 0 );
}

function DateToDateNum(dat)
{
firstbreak = StrFind(dat, "/");
mont = StrToNum(StrLeft(StrLeft(dat, firstbreak) , firstbreak - 1));
fragment = StrRight(dat, StrLen(dat) - firstbreak);
secbreak = StrFind(fragment, "/");
daa = StrToNum(StrLeft(StrLeft(fragment, secbreak) , secbreak - 1));
yeer = StrToNum(StrRight(fragment, StrLen(fragment) - secbreak));
yerr = IIf(yeer <= 99 AND yeer > 25, yeer + 1900, IIf(yeer <= 25, yeer + 2000, yeer));
DatNum = (yerr - 1900)*10000 + mont*100 + daa;
return DatNum;
}

function DateToBar(dn)
{
return LastValue(ValueWhen(DateNum()==dn, BarIndex()));
}

// ===================== Gfx Printing of Title ==============================
GfxSelectFont( "Courior New", CellHeight/2 );
GfxSetBkMode(1);

// ===================== Headers for columns ================================
CellWidth = 400;
DateSelect = NumToStr(SelectedValue(DateTime()),formatDateTime);
TopHL = " PORTFOLIO SYSTEM - TODAY: "+ StrFormat(DateSelect);
Colorx = colorBlack;
PrintInCell( TopHL, 0,0,colorBlue);
CellWidth = 75;
PrintInCell( "Portfolio", 1,0,colorViolet);
PrintInCell( "BuyDate", 1,1,colorViolet);
PrintInCell( "BuyPrice", 1,2,colorViolet);
PrintInCell( "Shares", 1,3,colorViolet);
PrintInCell( "BuyVal", 1,4,colorViolet);
PrintInCell( "CurPrice", 1,5,colorViolet);
PrintInCell( "CurValue", 1,6,colorViolet);
PrintInCell( "% 1Day", 1,7,colorViolet);
PrintInCell( "$ 1Day", 1,8,colorViolet);
PrintInCell( "Total %", 1,9,colorViolet);
PrintInCell( "ROC 4D", 1,10,colorViolet);
PrintInCell( "ROC 21D", 1,11,colorViolet);



//------------------
kk = 2; FTot = 0; GainDol1dTot = 0; ValatBuyTot = 0;
for( i = 0; ( sym = StrExtract( SymList, i ) ) != ""; i++ )
{// Loop
// Set Ticker/Trade Environment.
SetForeign(sym);

Dat = StrExtract(DatList,i);
Dat1 = StrToDateTime(Dat);
BuyDate = DateToDateNum(Dat);
BuyBar = DatetoBar(BuyDate);
BuyPr = StrExtract(BuyList,i);
if (BuyPr != "")
{ BuyPr2 = StrToNum(BuyPr); }
else
{ BuyPr2 = ValueWhen(DateTime()==Dat1,C,1); }
Shr = StrExtract(ShrList,i);
ValatBuy = BuyPr2 * StrToNum(Shr);
ValToday = C * StrToNum(Shr);
GainPC = 100 * (C - BuyPr2)/BuyPr2;
GainDol1d = StrToNum(Shr) * (C - Ref(C,-1) );
Ftot = Ftot + ValToday;
GainDol1dTot= GainDol1dTot + GainDol1d;
ValatBuyTot = ValatBuyTot + ValatBuy;
Color1 = colorBlack;
if (LastValue(ROC(C,1)>=0)) {Color2 = colorGreen;}else {Color2 = colorRed;}
if (LastValue(ROC(C,4)>=0)) {Color3 = colorGreen;}else {Color3 = colorRed;}
if (LastValue(ROC(C,21)>=0)) {Color4 = colorGreen;}else {Color4 = colorRed;}


Colorx = colorYellow;
PrintInCell( StrFormat(sym), i+kk,0,color1);//Col1:Sym
PrintInCell( StrFormat(Dat), i+kk,1,color1);//Col2:BuyDate
PrintInCell( StrFormat("$ "+"%01.2f",BuyPr2),
i+kk,2,color1);//Col3:BuyPrice
PrintInCell(
StrFormat("%01.0f",StrToNum(Shr)), i+kk,3,color1);//Col4:Shares
PrintInCell(
StrFormat("$ "+"%01.0f",ValatBuy), i+kk,4,color1);//Col5:ValatBuy
PrintInCell( StrFormat("$ "+"%01.2f", C ), i+kk,5,color1);//Col5:Price
//Today
PrintInCell(
StrFormat("$ "+"%01.0f",ValToday), i+kk,6,color1);//Col6:ValueToday
PrintInCell( StrFormat("%01.2f", ROC(C,1))+"%", i+kk,7,color2);//Col6:1dROC
PrintInCell( StrFormat("$ "+"%01.0f", GainDol1d),
i+kk,8,color2);//Col8:1dGain$
PrintInCell( StrFormat("%01.1f",
GainPC)+"%", i+kk,9,color2);//Col7:Tot%Change
PrintInCell( StrFormat("%01.2f", ROC(C,4))+"%",
i+kk,10,color3);//Col9:21dROC
PrintInCell( StrFormat("%01.2f", ROC(C,21))+"%",
i+kk,11,color4);//Col9:63dROC


RestorePriceArrays();

}// End Loop
FTot1dROC = ROC(Ftot,1);
TotChg = 100 * (FTot - ValatBuyTot)/ValatBuyTot;
FTot4 = ROC(Ftot,4);
Ftot21 = ROC(Ftot,21);

if (LastValue(Ftot1dROC>=0)) {Color5 = colorGreen;}else {Color5 = colorRed;}
if (LastValue(GainDol1dTot>=0)) {Color6 = colorGreen;}else {Color6 =
colorRed;}
if (LastValue(TotChg>=0)) {Color7 = colorGreen;}else {Color7 = colorRed;}
if (LastValue(Ftot4>=0)) {Color8 = colorGreen;}else {Color8 = colorRed;}
if (LastValue(Ftot21>=0)) {Color9 = colorGreen;}else {Color9 = colorRed;}

PrintInCell(StrFormat("Rate Return ",ValatBuytot), i+kk+0,0,colorViolet);
PrintInCell(StrFormat("Of Tran Bau :",ValatBuytot), i+kk+0,1,colorViolet);
PrintInCell(StrFormat("$ "+"%01.0f",ValatBuytot), i+kk+0,4,color1);
PrintInCell(StrFormat("$ "+"%01.0f",Ftot), i+kk+0,6,color1);
PrintInCell(StrFormat("%01.1f",FTot1dROC)+"%", i+kk+0,7,color5);
PrintInCell(StrFormat("$ "+"%01.0f",GainDol1dTot), i+kk+0,8,color6);
PrintInCell(StrFormat("%01.1f",TotChg)+"%", i+kk+0,9,color7);
PrintInCell(StrFormat("%01.1f",Ftot4)+"%", i+kk+0,10,color8);
PrintInCell(StrFormat("%01.1f",Ftot21)+"%", i+kk+0,11,color9);


if (ShowPlot != 0)
{Plot(Ftot,"",colorBlue,styleLine); }
Plot(FTot21,"",colorBlue,styleLine|styleThick);
Plot(ROC(Foreign("VNINDEX", "C"),21),"",colorRed,1|styleThick);


GraphXSpace = PlotSpace;
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),ParamColor("Inner panel color lower half",colorBlack));
_SECTION_END();

Indicator thể hiện Alpha- Beta-Rsquare của cổ phiếu

Có lẽ cụm từ chỉ số Beta , Alpha , Rsquared của một cổ phiếu chỉ được các nhà đầu tư biết đến trên phương diện lý thuyết phân tích tài chính và việc tính toán của nó thường chỉ diễn ra trên Excel. Việc tính toán cập nhật data tương đối phức tạp và tốn thời gian.

Bây giờ chỉ với Indicator này nhà đầu tư hoàn toàn cỏ thể biết được cả 3 chỉ số này không những tại một thời điểm và tại một khoảng thời gian dài mà nhà đầu tư tùy chọn. Đây được đánh giá là công cụ khá hữu ích cho việc nguyên cứu và phân tích về mảng FA.

_SECTION_BEGIN("Alpha and Beta and R_Squared Indicator");
///Alpha AND Beta Indicators
//Ver.1.00, 2/10/02
//coded by Anthony Faragasso
//e-mail: ajf1111@epix.net

//Insert your Stock_index,Composite_index, S&P,etc.
//as the **Base Market**.

MaxGraph=5;

/***Base Market************/
Mkt="vnindex";//Must be enclosed in "....."Quotations.
P=Foreign(Mkt,"C",1);
/**************************/

Periods=21;//Set the period of Observation

//****Beta***********************/

Beta=(( Periods * Sum(ROC( C,1) * ROC(P,1),Periods )) - (Sum(ROC(C,1),Periods) * Sum(ROC( P,1),Periods))) / ((Periods * Sum((ROC(P,1)^2 ),Periods)) - (Sum(ROC(P,1 ),Periods)^2 ));
/******************************************/

//*****Alpha*********************/

Alpha=(Sum(ROC( C,1) ,Periods) - ( Beta ) * Sum( ROC( P,1) ,Periods ) ) / Periods;
/******************************************/

/***R-Squared*****************/
R2=Correlation(P,C,Periods)^2;
/************************************/
Graph0=Beta;
Graph0Style=1;
Graph1=Alpha;
Graph1=(LastValue(Highest(Graph0))/LastValue(Highest(Graph1))) * Graph1;
Graph1Style=1;

/**R_squared graphing*****/
Graph2=r2;
Graph2Style=1;
//Graph2Color=2;
/*************************/
Title="ALPHA "+"("+WriteVal(Alpha,format=1.2)+")"+" "+" BETA "+"("+WriteVal(Beta,format=1.2)+")"+" "+" R_SQUARED "+"("+WriteVal(r2,format=1.2)+")";

/**Notes***/
//You've got to start with r-squared, which is an
//indicator of the validity of the beta AND alpha
//measures. Because the r-squared measures just how
//closely the Stock OR fund tracks the
//index with which it is being compared.

//An r-squared of 1.0 indicates
//A perfect match. AND, in that case, you can
//trust that the beta AND alpha measures are
//valid, too. But, the lower the r-squared, the less
//reliable beta AND alpha measures are.

//"[Betas and alphas on] a Stock or fund with an r-squared that's below //0.50 are completely meaningless.

//Assuming the r-squared is, say, 0.75 OR higher, you can move on to the //beta.
_SECTION_END();