лабы / temp2

pkg load communications
primpoly(5, "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(4,19);
de2bi(gf_arr([1:15]).x)


function gfELMT = gfElement1(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:gfSTP]),gfSTP,gfPOL);
endfunction



x1 = 4;
x2 = 6;
y = 6;


answer3 = gfElement1(x1*y,4,19)
bi2de(answer3.x)
gf_arr(x1)^y


answer4 = gfElement1(x1+x2,4,19)
bi2de(answer4.x)
gf_arr(x1)*gf_arr(x2)