exec('/mnt/media/work/vsu/Информационная защита/code/ellipse.sci');

p=751;
a=-1;
a=-1;
G=[-1,1];
nb=34;
codeword=[
[[618, 206], [426, 662]],
[[72, 254], [67, 667]],
[[286, 136], [739, 574]],
[[16, 416], [143, 602]],
[[618, 206], [313, 203]],
[[618, 206], [114, 607]],
[[618, 206], [438, 711]],
[[188, 93], [573, 168]]
];

num=size(codeword); num=num(1);
for pos=1:num
  fst = codeword(pos,1:2);
  snd = codeword(pos,3:4);
  letter = sumpq(snd,minusp(multkp(nb,fst,p,a),p),p,a);
  mprintf('(%i, %i), ',letter(1),letter(2));
end