％ EM algorithm for k multidimensional Gaussian mixture estimation
％
％ Inputs:
％ X(n,d) - input data, n=number of observations, d=dimension of variable
％ k - maximum number of Gaussian components allowed
％ ltol - percentage of the log likelihood difference between 2 iterations ([] for none)
％ maxiter - maximum number of iteration allowed ([] for none)
％ pflag - 1 for plotting GM for 1D or 2D cases only, 0 otherwise ([] for none)
％ Init - structure of initial W, M, V: Init.W, Init.M, Init.V ([] for none)
％
％ Ouputs:
％ W(1,k) - estimated weights of GM
％ M(d,k) - estimated mean vectors of GM
％ V(d,d,k) - estimated covariance matrices of GM
％ L - log likelihood of estimates
％
標(biāo)簽：
multidimensional
estimation
algorithm
Gaussian
上傳時(shí)間：
2013-12-03
上傳用戶：我們的船長(zhǎng)
Euler函數(shù):
m = p1^r1 * p2^r2 * …… * pn^rn ai >= 1 , 1 <= i <= n
Euler函數(shù)：
定義：phi(m) 表示小于等于m并且與m互質(zhì)的正整數(shù)的個(gè)數(shù)。
phi(m) = p1^(r1-1)*(p1-1) * p2^(r2-1)*(p2-1) * …… * pn^(rn-1)*(pn-1)
= m*(1 - 1/p1)*(1 - 1/p2)*……*(1 - 1/pn)
= p1^(r1-1)*p2^(r2-1)* …… * pn^(rn-1)*phi(p1*p2*……*pn)
定理：若(a , m) = 1 則有 a^phi(m) = 1 (mod m) 即a^phi(m) - 1 整出m
在實(shí)際代碼中可以用類似素?cái)?shù)篩法求出
for (i = 1 i < MAXN i++)
phi[i] = i
for (i = 2 i < MAXN i++)
if (phi[i] == i)
{
for (j = i j < MAXN j += i)
{
phi[j] /= i
phi[j] *= i - 1
}
}
容斥原理：定義phi(p) 為比p小的與p互素的數(shù)的個(gè)數(shù)
設(shè)n的素因子有p1, p2, p3, … pk
包含p1, p2…的個(gè)數(shù)為n/p1, n/p2…
包含p1*p2, p2*p3…的個(gè)數(shù)為n/(p1*p2)…
phi(n) = n - sigm_[i = 1](n/pi) + sigm_[i!=j](n/(pi*pj)) - …… +- n/(p1*p2……pk)
= n*(1 - 1/p1)*(1 - 1/p2)*……*(1 - 1/pk)
標(biāo)簽：
Euler
lt
phi
函數(shù)
上傳時(shí)間：
2014-01-10
上傳用戶：wkchong
//建立頂級(jí)窗口
toplevel = XtVaAppInitialize[&app, "Form", NULL, 0,
&argc, argv, NULL, NULL]
n = 0
XtSetArg[args[n], XmNwidth, 500] n++
XtSetArg[args[n], XmNheight, 500] n++
XtSetValues[toplevel, args, n]
//建立主窗口
form = XmCreateForm[toplevel, "form", NULL, 0]
XtManageChild[form]
//建立菜單條
n = 0
XtSetArg[args[n], XmNtopAttachment, XmATTACH_FORM] n++
XtSetArg[args[n], XmNleftAttachment, XmATTACH_FORM] n++
XtSetArg[args[n], XmNrightAttachment, XmATTACH_FORM] n++
menubar = XmCreateMenuBar[form, "menubar", args, n]
XtManageChild[menubar]
create_menu[menubar]
標(biāo)簽：
NULL
XtVaAppInitialize
toplevel
Form
上傳時(shí)間：
2013-12-19
上傳用戶：亞亞娟娟123
