function?p3?=?addell（x1y1x2y2abn）;
%?This?function?add?points?on?the?elliptic?curve
%????y^2?=?x^3?+?ax?+b?mod?n
%?The?points?are?represented?by
%?p1（1）?=?x1????p1（2）?=?y1
%?p2（1）?=?x2????p2（2）?=?y2

if?（any（p1==Inf））
???p3=p2;
???return;
end;

if?（any（p2==Inf））
???p3=p1;
???return;
end;

x1=p1（1）;
x2=p2（2）;
y1=p1（1）;
y2=p2（2）;
z1=1;??%?this?will?store?the?gcd?incase?the?addition?produced?a?factor?of?n

if?（?（x1==x2）?&?（y1==y2）?&?（y1==0））??%?an?infinity?case
???p3（1）=inf;?p3（2）=inf;
???return;???
end;???

if?（?（x1==x2）?&?（y1?~=?y2））???????????%?an?infinity?case
???p3（1）=inf;?p3（2）=inf;
???return;???
end;???

if?（all（p1==p2）?&?（gcd（y1n）~=1）?&?（gcd（y1n）?~=n））
???z1=gcd（y1n）;
???p3=[];
???disp（[‘Elliptic?Curve?addition?produced?a?factor?of?n?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1771??2009-10-16?09:31??MATLAB?PROGRAM?FOR?ECC\addell.asv

?????文件???????1772??2009-12-11?22:48??MATLAB?PROGRAM?FOR?ECC\addell.m

?????文件????????246??2009-05-28?15:55??MATLAB?PROGRAM?FOR?ECC\affinecrypt.m

?????文件????????133??2009-05-28?15:56??MATLAB?PROGRAM?FOR?ECC\allshift.m

?????文件????????459??2009-05-28?15:56??MATLAB?PROGRAM?FOR?ECC\crt.m

?????文件????????365??2009-12-11?21:56??MATLAB?PROGRAM?FOR?ECC\eulerphi.m

?????文件????????322??2009-05-28?15:56??MATLAB?PROGRAM?FOR?ECC\int2text.m

?????文件????????471??2009-05-28?15:56??MATLAB?PROGRAM?FOR?ECC\invmodn.m

?????文件????????441??2009-05-28?15:56??MATLAB?PROGRAM?FOR?ECC\inv_field.m

?????文件???????1352??2009-12-11?22:30??MATLAB?PROGRAM?FOR?ECC\Matlab-Example_2009.mat

?????文件?????153618??2009-05-22?15:36??MATLAB?PROGRAM?FOR?ECC\Matlab-Example_2009.pdf

?????文件????????582??2009-12-11?22:50??MATLAB?PROGRAM?FOR?ECC\multell.m

?????文件????????365??2009-05-28?15:57??MATLAB?PROGRAM?FOR?ECC\multsell.m

?????文件????????663??2009-05-28?15:57??MATLAB?PROGRAM?FOR?ECC\powermod.m

?????文件????????669??2009-05-28?15:57??MATLAB?PROGRAM?FOR?ECC\primitiveroot.m

?????文件????????261??2009-05-28?15:57??MATLAB?PROGRAM?FOR?ECC\shift.m

?????文件????????318??2009-05-28?15:57??MATLAB?PROGRAM?FOR?ECC\text2int.m

?????文件????????467??2009-05-28?15:57??MATLAB?PROGRAM?FOR?ECC\text2int1.m

?????目錄??????????0??2011-06-02?15:25??MATLAB?PROGRAM?FOR?ECC

-----------?---------??----------?-----??----

???????????????164275????????????????????19