/dvbt/trunk/release/mm/ml/forge_gcalc/ginv.m

 1% ???????? ??????? 
 2function iInv = ginv(b, unicalc)
 3	% ??????????
 4	%index_of = unicalc{1,1};
 5	%alpha_to = unicalc{1,2};
 6	%GF = unicalc{1,3};]
 7
 8	if(b == 0) 
 9		iInv = '! ??????? ?? ????"; % !! ??????? ?? ????'
10		return;
11	end
12	% ???????? ??????
13	idiff = unicalc{1,1}(1)-unicalc{1,1}(b);
14	if idiff < 0	% ????????????? ?????????
15		idiff = idiff+unicalc{1,3}-1;
16	end
17	iInv = unicalc{1,2}(idiff+1);
18end
19% endfunction