
39 alpha_OLS = theta_OLS (1) ;
40 beta_OLS = theta_OLS ( 2 ) ;
41
42 f i g u r e (5 )
43 p l o t ( xi , Pxi , ’ ro ’ )
44 hold on
45 p l o t ( xi , invGamma_pdf( xi , alpha_real , bet a_rea l ) * delta_xi , ’b− ’ )
46 p l o t ( xi , invGamma_pdf( xi , alpha_OLS , beta_OLS ) * delta_xi , ’ g<’ )
47 hold o f f
48 leg end ( ’ 样 本 频 率 ’ , ’ 实 际 概 率 ’ , ’ 估 计 概 率 ’ )
49 t i t l e ( ’ 最 小 二 乘 求 参 数 ’ )
50
51 c l e a r x i count_xi
52 %% 分 布 参 数 alpha 、 beta 的 极 大 似 然 估 计MLE
53 fun_mle = @( t heta ) MLE_eq_invGamma( theta , sample_invGam_define ) ;
54 the ta0 = [ 2 , 0 . 5 ] ;
55 theta_MLE = f s o l v e ( fun_mle , t het a0 ) ;
56
57 alpha_MLE = theta_MLE ( 1 ) ;
58 beta_MLE = theta_MLE ( 2 ) ;
59
60 %% 分 布 参 数 alpha 、 beta 的 最 大 后 验 估 计MAP
61 % the ta 的 先 验 pri or_pdf
62 hyperparameter = [ 2 , 3 ] ;
63 p r i o r = @( t h eta ) prior_pdf ( theta , hyperparameter ) ; %返 回 thet a 处 的 先
验 概 率 值
64
65 % 似 然 函 数 l i k e l i h o o d
66 li k e l i ho o d _ f u n = @( t h eta ) l i k e l i h o o d ( sample_invGam_define , theta ,
@invGamma_pdf) ;
67
68 % 后 验 概 率 p o s t e r i o r 即 为 目 标 分 布
69 p o s t erior_pd f = @( t heta ) p r i o r ( t heta ) * li k e l i ho o d _ f u n ( thet a ) ;
70
71 % MAP(极 大 换 为 极 小 )
72 the ta0 = [ 2 , 0 . 5 ] ; % 初 始 值
73 obj_pdf = @( the ta ) − p r i o r ( t heta ) * l i k e l i ho o d _ f u n ( thet a ) ;
74 theta_MAP = fminsear ch ( obj_pdf , t heta 0 ) ;
75
76 alpha_MAP = theta_MAP( 1) ;
77 beta_MAP = theta_MAP(2 ) ;
78
79 %% mcmc参 数 估 计 后 验 的 均 值 或 众 数
15