tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...

EK A : “
MERTEBELERİNİ BULMA”
2 3 2
y = x − n x (mod p) EĞRİSİ ÜZERİNDEKİ NOKTALARIN
> #y^2=x^3-n^2x (mod p) EĞRİSİNDEKİ NOKTALARIN MERTEBELERİNİ
BULMA#
> restart;
> mertebe:=proc(x1,y1,p,k);
x:=int;y:=int;x2:=int;y2:=int;
> n:=2;
> if y10 then
> n:=n+1;
> m:=((3*x1^2-k^2)/(2*y1)) mod p;
> x:=(m^2-x1-x1) mod p;
> y:=(m*(x1-x)-y1) mod p;
> #print([x,y],"mertebe:",n);
> x2:=x;y2:=y;
> while xx1 or yp-y1 do
> n:=n+1;
> m:=((y-y1)/(x-x1)) mod p;
> x:=(m^2-x-x1) mod p;
> y:=(m*(x2-x)-y2) mod p;
> #print([x,y],"mertebe:",n);
x2:=x;y2:=y;
> end do;
> print("mertebe:",n);
else print("mertebe:",n);
> end if;
end proc;
72