代码
n=app.NEditField.Value;
%A_str=split(app.PEditField_5.Value,',');%p的值顺序与app输入框顺序相反
A=app.PEditField_5.Value;
A=str2num(A);
%if sum(A)~=1
%disp('不符合概率分布')
% else A=fliplr(sort(A));%按降序排列
A=sort(A,'descend');%按降序排列
T=A;u=A;
A=A/sum(A);
[~,n]=size(A);
%生成待编码矩阵,每列最后一个元素为特殊元素的位置
B=zeros(n,n);
for i=1:n
B(i,1)=T(i);%生成编码表的第一列
end
r=B(i,1)+B(i-1,1);%最后两个元素相加
T</