信道容量迭代算法

一般信道容量迭代算法

有具体实验要求可以私聊定制

实验要求

  1. 输入:任意的一个信道转移概率矩阵。信源符号个数、新宿符号个数和每个具体的转移概率在运行时从键盘输入
  2. 输出:最佳信源分布 P ˉ ∗ \bar P^{*} Pˉ、信道容量 C C C

实验原理

迭代法

步骤

  1. 初始化信源分布: p i = 1 r p^{i}=\frac{1}{r} pi=r1,循环变量 k = 1 k=1 k=1,门限 Δ \Delta Δ C ( 0 ) = − ∞ C^{(0)}=-\infty C(0)=
  2. ϕ i j ( k ) = p i ( k ) p j i ∑ i r p i ( k ) p j i \phi^{(k)}_{ij}=\frac{p^{(k)}_{i}p_{ji}}{\sum_{i}^{r}p^{(k)}_{i}p_{ji}} ϕij(k)=irpi(k)pjipi(k)pji
  3. p i k + 1 = e x p [ ∑ j = 1 s p j i l o g ϕ i j ( k ) ] ∑ i = 1 r e x p [ ∑ j = 1 s p j i l o g ϕ i j ( k ) ] p_{i}^{k+1}=\frac{exp[\sum_{j=1}^{s}p_{ji}log\phi _{ij}^{(k)}]}{\sum_{i=1}^{r}exp[\sum_{j=1}^{s}p_{ji}log\phi_{ij}^{(k)}]} pik+1=i=1rexp[j=1spjilogϕij(k)]exp[j=1spjilogϕij(k)]
  4. C ( k + 1 ) = l o g [ ∑ i = 1 r e x p ( ∑ j = 1 s p j i l o g ϕ i j ( k ) ) ] C^{(k+1)}=log[\sum_{i=1}^{r}exp(\sum_{j=1}^{s}p_{ji}log\phi_{ij}^{(k)})] C(k+1)=log[i=1rexp(j=1spjilogϕij(k))]
  5. C k + 1 = l o g ∣ C ( k + 1 ) − C ( k ) ∣ C ( k + 1 ) > Δ C^{k+1}=log\frac{|C^{(k+1)}-C^{(k)}|}{C^{(k+1)}}>\Delta Ck+1=logC(k+1)C(k+1)C(k)>Δ,则 k = k + 1 k=k+1 k=k+1,转到第二步

代码

clc      ;
clear all;

% [1/2,1/3,1/6;1/6,1/2,1/3;1/3,1/6,1/2]
% [1/2,1/4,0,1/4;0,1,0,0;0,0,1,0;1/4,0,1/4,1/2]
% [0.5,0.3,0.2;0.3,0.5,0.2]

Pij   = input('请输入信道转移矩阵P\n')
[r,s] = size(Pij)   ;           % r为信源符号数 s为信宿符号数
Pi    = zeros(1,r)  ;           % 零阵初始化
disp('原始信源分布:');
for m = 1:r
    Pi(1, m) = 1/r  ;           % 初始化信源分布
end
disp(Pi)
error = 1e-10;                  % 误差
C(1)  = -inf;                   % 负无穷
for k = 2:10000
   % 计算fai
   for n = 1:s
       Pi_trans(:,n) = Pi';     % 因需要构造fai(ji),所以要构造Pij的转置
   end
   PiPji      = Pij.*Pi_trans;   
   sum_PiPji  = sum(PiPji,1);
   for p = 1:r
       sum_PiPji_extend(p,:) = sum_PiPji % 每列相同,构造矩阵逐项相除 
   end
   fai=PiPji./(sum_PiPji_extend);        % 逐项相除
   
   % 计算新信源P(k+1)
   Pi_exp    = exp(sum(Pij.*log(fai+error),2));
   Pi_sumsum = sum(Pi_exp,1);
   Pi        = Pi_exp/(Pi_sumsum) 
   Pi        = Pi'
   
   %计算信道容量
   C(k) = log(Pi_sumsum)/log(2);
   if abs((C(k)-C(k-1)))/C(k) < error    % 小于误差截止,大于误差进入下一轮循环   
       break;
   end
end
disp('迭代次数:k='),disp(k-1)
disp('最大信道容量时的信源分布:p='),disp(Pi)
disp('最大信道容量:C='),disp(C(k))

结果

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

不想取名字的飞

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值