Progressive-edge-growth

PEG algorithm for LDPC codes

function [H] = alist2sparse（fname）
% reads binary parity check matrix in “alist“ format from file FNAME and
% converts it to sparse matrix used in MATLAB routines.
% This is an interface to matrices at http://wol.ra.phy.cam.ac.uk/mackay/codes/
%
% Example
%        [H] = alist2sparse（‘A‘）;   % A is the ascii file in alist format


%   Copyright （c） 1999 by Igor Kozintsev igor@ifp.uiuc.edu
%   $Revision: 1.1 $  $Date: 2000/03/23 $ Bug fixed by Hatim Behairy

fid = fopen（fname）;
n = fscanf（fid‘%d‘1）;
m = fscanf（fid‘%d‘1）;
maxinrow = fscanf（fid‘%d‘1）; 
junk = fscanf（fid‘%d‘1）; % no need
num = fscanf（fid‘%d‘[1 n]）; % number of elements in rows

num2（1:n）=maxinrow;    
junk = fscanf（fid‘%d‘[1 m]）; % no need

position = zeros（nmaxinrow）;
for i=1:n
   for j=1:n

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件        2203  2012-10-10 17:12  Progressive edge growth\1st_girth_14.mat
     文件        2750  2012-10-10 17:14  Progressive edge growth\2nd_girth_8.mat
     文件        3727  2011-08-07 19:59  Progressive edge growth\2peg_504_girth=8_dvmax=5.mat
     文件        2555  2012-10-10 17:18  Progressive edge growth\3rd_girth_8.mat
     文件        6253  2012-10-10 17:20  Progressive edge growth\4th_girth_8.mat
     文件        8031  2012-10-10 17:26  Progressive edge growth\5th_girth_8.mat
     文件        7430  2012-10-10 17:31  Progressive edge growth\6th_girth_10.mat
     文件        2095  2010-06-11 23:10  Progressive edge growth\A1.txt
     文件       29314  2010-06-12 04:57  Progressive edge growth\A4.txt
     文件        1119  2011-08-03 18:33  Progressive edge growth\ace1.mat
     文件        1102  2011-08-03 20:06  Progressive edge growth\ace10.mat
     文件        1127  2011-08-03 20:07  Progressive edge growth\ace11.mat
     文件        1127  2011-08-03 20:10  Progressive edge growth\ace12.mat
     文件        1128  2011-08-03 20:13  Progressive edge growth\ace13.mat
     文件        1125  2011-08-03 22:32  Progressive edge growth\ace14.mat
     文件        1128  2011-08-03 18:56  Progressive edge growth\ace2.mat
     文件        1102  2011-08-03 19:14  Progressive edge growth\ace3.mat
     文件        1102  2011-08-03 19:54  Progressive edge growth\ace4.mat
     文件        1102  2011-08-03 19:57  Progressive edge growth\ace5.mat
     文件        1102  2011-08-03 19:58  Progressive edge growth\ace6.mat
     文件        1127  2011-08-03 20:00  Progressive edge growth\ace7.mat
     文件        1102  2011-08-03 20:03  Progressive edge growth\ace8.mat
     文件        1102  2011-08-03 20:04  Progressive edge growth\ace9.mat
     文件        1079  2009-03-24 00:29  Progressive edge growth\alist2sparse.m
     文件        1073  2011-07-24 19:27  Progressive edge growth\bitwise_girth_calculation.m
     文件        1475  2010-07-13 20:56  Progressive edge growth\CalcGirth.m
     文件         787  2011-08-02 19:57  Progressive edge growth\calculate_ace.m
     文件        1404  2011-08-02 21:13  Progressive edge growth\calculate_ace_peg.asv
     文件        1407  2011-08-02 20:43  Progressive edge growth\calculate_ace_peg.m
     文件         207  2010-10-30 18:00  Progressive edge growth\cnassigned.asv
     文件         253  2010-10-30 18:10  Progressive edge growth\cnassigned.m
............此处省略209个文件信息