Sz\303\241m\303\255t\303\263g\303\251pes sz\303\241melm\303\251letJ\303\241rai AntalEzek a programok csak szeml\303\251ltet\303\251sre szolg\303\241lnak1. A pr\303\255mek eloszl\303\241sa, szit\303\241l\303\241s2. Egyszer\305\261 faktoriz\303\241l\303\241si m\303\263dszerek3. Egyszer\305\261 pr\303\255mtesztel\303\251si m\303\263dszerekLUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2JVEhRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0Yn4. Lucas-sorozatok5. Alkalmaz\303\241sok 6. Sz\303\241mok \303\251s polinomok7. Gyors Fourier-transzform\303\241ci\303\2638. Elliptikus f\303\274ggv\303\251nyek9. Sz\303\241mol\303\241s elliptikus g\303\266rb\303\251ken10. Faktoriz\303\241l\303\241s elliptikus g\303\274rb\303\251kkel11. Pr\303\255mteszt elliptikus g\303\266rb\303\251kkel12. Polinomfaktoriz\303\241l\303\241s13. Az AKS-teszt14. A szita m\303\263dszerek alapjai15. Sz\303\241mtest szita16. Vegyes probl\303\251m\303\241krestart; with(numtheory);16.1. Collatz-probl\303\251ma.interface(echo=3);;#
# The 3*x+1 problem of Collatz
#
L:=[2,{3}];points:=[[2,nops(L[2])]];#
# This tests an odd x wether in n halfing steps became smaller then x
#
test:=proc(n::posint,x::posint) local m,y;
y:=x;
m:=n;
while m>0 do
y:=3*y+1;
while m>0 and type(y,even) do m:=m-1; y:=y/2 od;
if y<x then RETURN(true) fi
od; false end;reduce:=proc(n,S) local x,SS;
SS:={};
for x in S do if not test(n,x) then SS:=SS union {x} fi od;
SS end;nextL:=proc(L) local n,S,x,y;
n:=L[1]; S:=L[2]; S:=S union map(proc(x,y) x+2^y end,S,n);
[n+1,reduce(n+1,S)] end;cycle:=proc(n::posint) local L,points;
L:=[2,{3}];
points:=[[2,nops(L[2])]];
while L[1]<n do
L:=nextL(L);
points:=[op(points),[L[1],nops(L[2])]];
od end;logpoints:=map(`x`->[x[1],evalf(ln(x[2]))],points); plot(logpoints);16.2. Iteration of the lambda function.#
# Definition of the lambda function
#
la:= proc(x) sigma(x)-x end;lacycle:=proc(x::posint) local y,z;
z:=x; y:=la(x); print(y);
while not y=z do
y:=la(y); print(y);
y:=la(y); print(y);
z:=la(z); od;
end;lacycle(16777778);16.3. Blum-rejtjelz\303\251s.16.2. L\303\241nct\303\266rtek.16.3. Kvadratikus irracion\303\241lis sz\303\241mok l\303\241nct\303\266rt alakja.16.4. Faktoriz\303\241l\303\241s l\303\241nct\303\266rtekkel.16.5. N\303\251gyzetes szita.16.6. T\303\266bbpolinomos n\303\251gyzetes szita.16.7. letlen n\303\251gyzet m\303\263dszere.LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2JVEhRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0Yn