лабы / лаб3

pkg load communications
primpoly(7, "all")
function gfFLD = gf_field(gfSTP,gfPOL)
gfLNG = 2**gfSTP-1;
gfFLD = gf(zeros(1,gfLNG),gfSTP,gfPOL);
gfFLD(1) = 1;
gfFLD(2) = 2;
for CNTR = 3:1:gfLNG
gfFLD(CNTR) = gfFLD(CNTR-1)*gfFLD(2);
endfor
endfunction
gf_arr = gf_field(7,211);
de2bi(gf_arr([1:15]).x)




function gfELMT = gfElement(index,gfSTP,gfPOL)
fg_all_elements = de2bi(gf_field(gfSTP,gfPOL).x);
m = mod(index,((2**gfSTP)-1));
gfELMT = gf(fg_all_elements((m + 1),[1:7]),1,3);
endfunction