Sz\303\241m\303\255t\303\263g\303\251pes sz\303\241melm\303\251let J\303\241rai Antal Ezek a programok csak szeml\303\251ltet\303\251sre szolg\303\241lnak
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">1. A pr\303\255mek eloszl\303\241sa, szit\303\241l\303\241s</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">2. Egyszer\305\261 faktoriz\303\241l\303\241si m\303\263dszerek</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">3. Egyszer\305\261 pr\303\255mtesztel\303\251si m\303\263dszerek</Font></Text-field> LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2JVEhRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0Yn
<Text-field style="Heading 1" layout="Heading 1">4. Lucas-sorozatok</Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">5. Alkalmaz\303\241sok </Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">6. Sz\303\241mok \303\251s polinomok</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">7. Gyors Fourier-transzform\303\241ci\303\263</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">8. Elliptikus f\303\274ggv\303\251nyek</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">9. Sz\303\241mol\303\241s elliptikus g\303\266rb\303\251ken</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">10. Faktoriz\303\241l\303\241s elliptikus g\303\274rb\303\251kkel</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">11. Pr\303\255mteszt elliptikus g\303\266rb\303\251kkel</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">12. Polinomfaktoriz\303\241l\303\241s</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1">13. Az AKS-teszt</Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">14. A szita m\303\263dszerek alapjai</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1"><Font encoding="UTF-8">15. Sz\303\241mtest szita</Font></Text-field>
<Text-field style="Heading 1" layout="Heading 1">16. Vegyes probl<Font encoding="UTF-8">\303\251</Font>m<Font encoding="UTF-8">\303\241</Font>k</Text-field> restart; with(numtheory); N1FJJkdJZ2NkRzYiSSliaWdvbWVnYUdGJEkmY2ZyYWNHRiRJKWNmcmFjcG9sR0YkSStjeWNsb3RvbWljR0YkSSlkaXZpc29yc0dGJEkpZmFjdG9yRVFHRiRJKmZhY3RvcnNldEdGJEknZmVybWF0R0YkSSlpbWFndW5pdEdGJEkmaW5kZXhHRiRJL2ludGVncmFsX2Jhc2lzR0YkSSlpbnZjZnJhY0dGJEknaW52cGhpR0YkSSppc3NxcmZyZWVHRiRJJ2phY29iaUdGJEkqa3JvbmVja2VyR0YkSSdsYW1iZGFHRiRJKWxlZ2VuZHJlR0YkSSltY29tYmluZUdGJEkpbWVyc2VubmVHRiRJKG1pZ2NkZXhHRiRJKm1pbmtvd3NraUdGJEkobWlwb2x5c0dGJEklbWxvZ0dGJEknbW9iaXVzR0YkSSZtcm9vdEdGJEkmbXNxcnRHRiRJKW5lYXJlc3RwR0YkSSpudGhjb252ZXJHRiRJKW50aGRlbm9tR0YkSSludGhudW1lckdGJEknbnRocG93R0YkSSZvcmRlckclKnByb3RlY3RlZEdJKXBkZXhwYW5kR0YkSSRwaGlHRiRJI3BpR0YkSSpwcHJpbXJvb3RHRiRJKXByaW1yb290R0YkSShxdWFkcmVzR0YkSStyb290c3VuaXR5R0YkSSpzYWZlcHJpbWVHRiRJJnNpZ21hR0YkSSpzcTJmYWN0b3JHRiRJKHN1bTJzcXJHRiRJJHRhdUdGJEkldGh1ZUdGJA==
<Text-field style="Heading 2" layout="Heading 2">16.1. Collatz-probl<Font encoding="UTF-8">\303\251ma.</Font></Text-field> interface(echo=3); IiIi ; # # The 3*x+1 problem of Collatz # L:=[2,{3}]; NyQiIiM8IyIiJA== points:=[[2,nops(L[2])]]; NyM3JCIiIyIiIg== # # 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; Zio2JCdJIm5HNiJJJ3Bvc2ludEclKnByb3RlY3RlZEcnSSJ4R0YmRic2JEkibUdGJkkieUdGJkYmRiZDJj5GLUYqPkYsRiU/KEYmIiIiRjJGJjIiIiFGLEMlPkYtLCYqJiIiJEYyRi1GMkYyRjJGMj8oRiZGMkYyRiYzRjMtSSV0eXBlR0YoNiRGLUklZXZlbkdGKEMkPkYsLCZGLEYyRjIhIiI+Ri0sJComI0YyIiIjRjJGLUYyRjJAJDJGLUYqLUknUkVUVVJOR0YoNiNJJXRydWVHRihJJmZhbHNlR0YoRiZGJkYm 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; Zio2JEkibkc2IkkiU0dGJTYkSSJ4R0YlSSNTU0dGJUYlRiVDJT5GKTwiPyZGKEYmSSV0cnVlRyUqcHJvdGVjdGVkR0AkNC1JJXRlc3RHRiU2JEYkRig+RiktSSZ1bmlvbkdGLzYkRik8I0YoRilGJUYlRiU= 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; Zio2I0kiTEc2IjYmSSJuR0YlSSJTR0YlSSJ4R0YlSSJ5R0YlRiVGJUMmPkYnJkYkNiMiIiI+RigmRiQ2IyIiIz5GKC1JJnVuaW9uRyUqcHJvdGVjdGVkRzYkRigtSSRtYXBHRjc2JWYqNiRGKUYqRiVGJUYlLCZGKUYvKUYzRipGL0YlRiVGJUYoRic3JCwmRidGL0YvRi8tSSdyZWR1Y2VHRiU2JEZBRihGJUYlRiU= 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; Zio2IydJIm5HNiJJJ3Bvc2ludEclKnByb3RlY3RlZEc2JEkiTEdGJkkncG9pbnRzR0YmRiZGJkMlPkYqNyQiIiM8IyIiJD5GKzcjNyRGLy1JJW5vcHNHRig2IyZGKjYjRi8/KEYmIiIiRjtGJjImRio2I0Y7RiVDJD5GKi1JJm5leHRMR0YmNiNGKj5GKzckLUkjb3BHRig2I0YrNyRGPUY1RiZGJkYm logpoints:=map(`x`->[x[1],evalf(ln(x[2]))],points); plot(logpoints); NyM3JCIiIyQiIiFGJg== NiUtSSdDVVJWRVNHNiI2JDcjNyQkIiIjIiIhJEYrRistSSdDT0xPVVJHRiU2JkkkUkdCR0YlJCIjNSEiIkYsRiwtSStBWEVTTEFCRUxTRzYkJSpwcm90ZWN0ZWRHSShfc3lzbGliR0YlNiRRIUYlRjotSSVWSUVXR0Y2NiRJKERFRkFVTFRHRiVGPg==
<Text-field style="Heading 2" layout="Heading 2">16.2. Iteration of the lambda function.</Text-field> # # Definition of the lambda function # la:= proc(x) sigma(x)-x end; Zio2I0kieEc2IkYlRiVGJSwmLV9JKm51bXRoZW9yeUc2JCUqcHJvdGVjdGVkR0koX3N5c2xpYkdGJUkmc2lnbWFHRiVGIyIiIkYkISIiRiVGJUYl 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; Zio2IydJInhHNiJJJ3Bvc2ludEclKnByb3RlY3RlZEc2JEkieUdGJkkiekdGJkYmRiZDJj5GK0YlPkYqLUkjbGFHRiY2I0YlLUkmcHJpbnRHRig2I0YqPyhGJiIiIkY2RiY0L0YqRitDJz5GKi1GMEY0RjJGOkYyPkYrLUYwNiNGK0YmRiZGJg== lacycle(16777778); IiglXEMqKQ== IigleklY IihNOE8j IihtJz05 IidlbnI= IiclKj5e IidNZE8= IidxRz0= Iic5ajk= IidnIjQi IidTbDg= IidPLTo= Iid3JUci IiZraio= IiYhR3M= Iic/VDU= IichR1ci IidTLz0= IidTIWUj IidTRUs= IidTW1g= IidTJSll IidTIW8o Iig/Km84 IighKT06Iw== Iig/RCFI IighWyZvJA== Iig/bG0l IihTSyRl Iig/eFMq IikhRyV5OQ== Iik/MDBF IikhR0lqJA== Iik/PC1p IikhW0BRKQ== Iio/IkdeNQ== IiorXSJwOA== IiorWyN5PQ== IipZV3FxIw== Iio5UkZRIg== IilZIipHdw== IilhYD5R IiklPiZcPw== IiklPnYtIg== IihRV2gm IihdTTwk IihVSmQk IihlVzEj IigxI1w4 IicxWW4= IidNWU4= Iic5TUU= Iic1PDg= IicnUTAi IiY5dSc= IiZhbCQ= IiYrdSM= IiZxbiQ= IiZNJUg= IiY/WiI= IiYrPyM= IiZLZyQ= IiYnZk4= IiZXQyQ= IiZTViM= IiY7byM= IiZDbCM= IiZ3QyM= IiYnKipI IiYvRCM= IiYnZkA= IiYvaSI= IiZnQCI= IiZTJT0= IiZTSiM= IiYheUg= IiYrRyQ= IiZFI1w= IiZlYiM= IiZxZCI= IiZxVyI= IiYlZjY= IiVVIio= IiVhbA== IiUxUA== IiVNQQ== IiU/Ng== IiUvPg== IiVnRA== IiV5Tg== IiUjeiI= IiUnSCM= IiVXRg== IiVjSw== IiUlZSQ= IiUrWQ== IiVnbA== IiU7JCo= IiVzISk= IiV5cQ== IiVVTg== IiVxTA== IiU5Rg== IiUxOw== IiVlNQ== IiQsJw== IiIi IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh IiIh
<Text-field style="Heading 2" layout="Heading 2">16.3. Blum-rejtjelz<Font encoding="UTF-8">\303\251</Font>s.</Text-field>
<Text-field style="Heading 2" layout="Heading 2">16.2. L<Font encoding="UTF-8">\303\241</Font>nct<Font encoding="UTF-8">\303\266</Font>rtek.</Text-field>
<Text-field style="Heading 2" layout="Heading 2">16.3. Kvadratikus irracion<Font encoding="UTF-8">\303\241</Font>lis sz<Font encoding="UTF-8">\303\241</Font>mok l<Font encoding="UTF-8">\303\241</Font>nct<Font encoding="UTF-8">\303\266</Font>rt alakja.</Text-field>
<Text-field style="Heading 2" layout="Heading 2">16.4. Fak<Font encoding="UTF-8">toriz\303\241l\303\241s l\303\241</Font>nct<Font encoding="UTF-8">\303\266</Font>rtekkel.</Text-field>
<Text-field style="Heading 2" layout="Heading 2">16.5. N<Font encoding="UTF-8">\303\251</Font>gyzetes szita.</Text-field>
<Text-field style="Heading 2" layout="Heading 2">16.6. T<Font encoding="UTF-8">\303\266</Font>bbpolinomos n<Font encoding="UTF-8">\303\251</Font>gyzetes szita.</Text-field>
<Text-field style="Heading 2" layout="Heading 2">16.7. letlen n<Font encoding="UTF-8">\303\251</Font>gyzet m<Font encoding="UTF-8">\303\263</Font>dszere.</Text-field>
LUklbXJvd0c2Iy9JK21vZHVsZW5hbWVHNiJJLFR5cGVzZXR0aW5nR0koX3N5c2xpYkdGJzYjLUkjbWlHRiQ2JVEhRicvJSdpdGFsaWNHUSV0cnVlRicvJSxtYXRodmFyaWFudEdRJ2l0YWxpY0Yn