лабы / lab3

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(7,211);
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


a1 = 103;
b1 = 32;
c1 = 14;
d1 = 114;
e1 = 5;


answer1 = bi2de((gfElement(a1*c1,7,211) + gfElement(b1*c1,7,211) + gfElement(d1*e1+a1*14,7,211)).x)


a2 = gf_arr(a1);
b2 = gf_arr(b1);
c2 = gf_arr(c1);
d2 = gf_arr(d1);
e2 = e1;


answer2 = (a2+b2)*c2+(d2^e2)/a2