{VERSION 7 1 "Linux" "7.1" } {USTYLETAB {PSTYLE "Ordered List 5" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 } {PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "MS Serif" 1 12 0 0 0 1 1 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output " -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 2 2 2 2 2 1 3 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 1" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Tim es" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 } {PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "MS S erif" 1 14 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 12 40 120 40 1 2 2 2 2 2 1 2 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered \+ List 4" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times " 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 } {PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 2 2 2 2 2 1 2 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "H eading 2" -1 4 1 {CSTYLE "" -1 -1 "MS Serif" 1 16 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 72 2 0 2 2 -1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courie r" 1 12 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "MS Serif" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered Li st 2" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{CSTYLE "Equation Label" -1 200 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 201 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 1 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 "MS Serif" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 0 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 202 "Couri er" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Time s" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "MS Ser if" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT 203 29 "Komputeralgebrai algorit musok" }}}{EXCHG {PARA 19 "" 0 "" {TEXT 204 18 "J\303\241rai Antal" }} }{EXCHG {PARA 19 "" 0 "" {TEXT 201 69 "Ezek a programok csak szeml\303 \251ltet\303\251sre szolg\303\241lnak." }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 4 "1. T" }{TEXT 205 18 "\303\266rt\303\251" }{TEXT 205 3 "ne t" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 18 "2. Algebrai alapok" }}} {SECT 1 {PARA 3 "" 0 "" {TEXT 205 7 "3. Norm" }{TEXT 205 8 "\303\241" }{TEXT 205 6 "l form" }{TEXT 205 8 "\303\241" }{TEXT 205 12 "k, reprez ent" }{TEXT 205 18 "\303\241ci\303\263" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 13 "4. Aritmetika" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 205 4 "5 . K" }{TEXT 205 8 "\303\255" }{TEXT 205 9 "nai marad" }{TEXT 205 8 "\3 03\251" }{TEXT 205 3 "kol" }{TEXT 205 8 "\303\241" }{TEXT 205 1 "s" }} {PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.1. P" } {TEXT 206 12 "\303\251lda." }}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" " %#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.2. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "a:=-30*x^3*y+90*x^2*y^2+15*x^2-60*x*y+45*y^2; " }}{PARA 11 "" 1 "" {XPPMATH 20 ",,*(\"#I\"\"\")I\"xG6\"\"\"$F%I\"yGF (F%!\"\"*(\"#!*F%)F'\"\"#F%)F*F/F%F%*&\"#:F%F.F%F%*(\"#gF%F'F%F*F%F+*& \"#XF%F0F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "collect(a,[ x,y],`distributed`);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",,*(\"#I\"\"\")I \"xG6\"\"\"$F%I\"yGF(F%!\"\"*(\"#!*F%)F'\"\"#F%)F*F/F%F%*&\"#:F%F.F%F% *(\"#gF%F'F%F*F%F+*&\"#XF%F0F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "collect(a,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",**(\"#I\"\"\" )I\"xG6\"\"\"$F%I\"yGF(F%!\"\"*&,&*&\"#!*F%)F*\"\"#F%F%\"#:F%F%)F'F1F% F%*(\"#gF%F'F%F*F%F+*&\"#XF%F0F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "collect(a,y);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&,& *&\"#!*\"\"\")I\"xG6\"\"\"#F'F'\"#XF'F')I\"yGF*F+F'F'*&,&*&\"#IF')F)\" \"$F'!\"\"*&\"#gF'F)F'F5F'F.F'F'*&\"#:F'F(F'F'" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.3. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "3/1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"$" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.4. P" }{TEXT 206 12 "\303 \251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "[i$i=-8..8]; map(x->x mod 6,%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "73!\")!\"(!\"'!\"&!\"%!\"$!\"#!\"\"\"\"!\"\"\"\"\"#\"\"$ \"\"%\"\"&\"\"'\"\"(\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "73\"\"%\"\" &\"\"!\"\"\"\"\"#\"\"$F#F$F%F&F'F(F#F$F%F&F'" }}}{EXCHG {PARA 0 "" 0 " " {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5 .5. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" } }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "subs(x=5,a); subs(y=2,a);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"%]S\"\"\"I\"yG6\"F%!\"\"*&\"%&H# F%)F&\"\"#F%F%\"$v$F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",**&\"#g\"\"\") I\"xG6\"\"\"$F%!\"\"*&\"$v$F%)F'\"\"#F%F%*&\"$?\"F%F'F%F*\"$!=F%" }}} {EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.6. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "a:=3*x ^2*y^2-x^2*y+5*x^2+x*y^2-3*x*y; b:=2*x*y+7*x+y^2-2;" }}{PARA 11 "" 1 " " {XPPMATH 20 ",,*(\"\"$\"\"\")I\"xG6\"\"\"#F%)I\"yGF(F)F%F%*&F&F%F+F% !\"\"*&\"\"&F%F&F%F%*&F'F%F*F%F%*(F$F%F'F%F+F%F-" }}{PARA 11 "" 1 "" {XPPMATH 20 ",**(\"\"#\"\"\"I\"xG6\"F%I\"yGF'F%F%*&\"\"(F%F&F%F%*$)F(F $F%F%F$!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a mod 5; b \+ mod 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",**(\"\"$\"\"\")I\"xG6\"\"\"#F %)I\"yGF(F)F%F%*(\"\"%F%F&F%F+F%F%*&F'F%F*F%F%*(F)F%F'F%F+F%F%" }} {PARA 11 "" 1 "" {XPPMATH 20 ",**(\"\"#\"\"\"I\"xG6\"F%I\"yGF'F%F%*&F$ F%F&F%F%*$)F(F$F%F%\"\"$F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "a mod 7; b mod 7;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",,*(\"\"$\"\"\" )I\"xG6\"\"\"#F%)I\"yGF(F)F%F%*(\"\"'F%F&F%F+F%F%*&\"\"&F%F&F%F%*&F'F% F*F%F%*(\"\"%F%F'F%F+F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*(\"\"#\" \"\"I\"xG6\"F%I\"yGF'F%F%*$)F(F$F%F%\"\"&F%" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5. 7. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "a:=7*x+5; b:=2*x-3; c:=expan d(a*b);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"(\"\"\"I\"xG6\"F%F%\" \"&F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"#\"\"\"I\"xG6\"F%F%\"\" $!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"#9\"\"\")I\"xG6\"\"\"#F% F%*&\"#6F%F'F%!\"\"\"#:F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "subs(x=0,a) mod 5; subs(x=0,b) mod 5; subs(x=0,c) mod 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "subs(x=1,a) mod 5; subs(x=1,b) mod 5; subs(x=1,c) mod 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "subs(x=2,a) mod 5; subs(x=2,b) mod \+ 5; subs(x=2,c) mod 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "subs(x=0,a) mod 7; subs( x=0,b) mod 7; subs(x=0,c) mod 7;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\" &" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "subs(x=1,a) mo d 7; subs(x=1,b) mod 7; subs(x=1,c) mod 7;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"'" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "subs(x=2,a) mod 7; subs(x=2,b) mod 7; subs(x=2,c) mod 7;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "c mod 7; c mod 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",& *&\"\"$\"\"\"I\"xG6\"F%F%\"\"'F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*& \"\"%\"\"\")I\"xG6\"\"\"#F%F%*&F$F%F'F%F%" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.8 . P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "m*i$i=-infinity..infinity;" }}{PARA 11 "" 1 "" {XPPMATH 20 "-I\"$G%*protectedG6$*&I\"mG6\"\"\"\"I \"iGF(F)/F*;,$I)infinityGF$!\"\"F." }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 8 "E 5.9 . P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "p:=5*x+2; p*d;" }}{PARA 11 " " 1 "" {XPPMATH 20 ",&*&\"\"&\"\"\"I\"xG6\"F%F%\"\"#F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "*&,&*&\"\"&\"\"\"I\"xG6\"F&F&\"\"#F&F&I\"dGF(F&" }}} {EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.10. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "p1:=x ; p2:=y;" }}{PARA 11 "" 1 "" {XPPMATH 20 "I\"xG6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "I\"yG6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "p 1*a1+p2*a2;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&I\"xG6\"\"\"\"I#a1GF% F&F&*&I\"yGF%F&I#a2GF%F&F&" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.11. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "[i$i=-8..8]; map(x->x mod 6,%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "73!\")!\"(!\"'!\"&!\"%!\"$!\"#!\"\"\"\"!\"\"\" \"\"#\"\"$\"\"%\"\"&\"\"'\"\"(\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "7 3\"\"%\"\"&\"\"!\"\"\"\"\"#\"\"$F#F$F%F&F'F(F#F$F%F&F'" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.12. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "p:=x^2+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*$)I\"xG6\"\"\"#\"\"\"F(F(F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "a:=x^2+8*x+4; rem(a,p,x); b: =2*x^2+8*x+5; rem(b,p,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*$)I\"xG6 \"\"\"#\"\"\"F(*&\"\")F(F%F(F(\"\"%F(" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&\"\"$\"\"\"*&\"\")F$I\"xG6\"F$F$" }}{PARA 11 "" 1 "" {XPPMATH 20 ", (*&\"\"#\"\"\")I\"xG6\"F$F%F%*&\"\")F%F'F%F%\"\"&F%" }}{PARA 11 "" 1 " " {XPPMATH 20 ",&\"\"$\"\"\"*&\"\")F$I\"xG6\"F$F$" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 57 "p:=x-2; rem(a,p,x); subs(x=2,a); rem(b,p,x); subs(x=2,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&I\"xG6\"\"\"\"\"\"#! \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#C" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#C" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#H" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#H" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%# %?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.13. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 67 "a:=-30*x^3*y+90*x^2*y^2+15*x^2-60*x*y+45*y^2; a mod 7; subs(y=3,a);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",,*(\"#I\"\"\" )I\"xG6\"\"\"$F%I\"yGF(F%!\"\"*(\"#!*F%)F'\"\"#F%)F*F/F%F%*&\"#:F%F.F% F%*(\"#gF%F'F%F*F%F+*&\"#XF%F0F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",, *(\"\"&\"\"\")I\"xG6\"\"\"$F%I\"yGF(F%F%*(\"\"'F%)F'\"\"#F%)F*F.F%F%*$ F-F%F%*(F)F%F'F%F*F%F%*&F)F%F/F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",* *&\"#!*\"\"\")I\"xG6\"\"\"$F%!\"\"*&\"$D)F%)F'\"\"#F%F%*&\"$!=F%F'F%F* \"$0%F%" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.14. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "m0:=3; m1:=5; m:=m0*m1; 11=2+3*3; -4=-1+(-1)*3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }} {PARA 11 "" 1 "" {XPPMATH 20 "\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "/ \"#6F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "/!\"%F#" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 19 "A 5.1. Algoritmus. " }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "IntegerCRA:=proc(M,U) local G,N,n,i,j,t; \n" }{MPLTEXT 1 0 17 " n:=nops(M)-1;\n" }{MPLTEXT 1 0 18 " G:=[0$i=1 ..n];\n" }{MPLTEXT 1 0 18 " N:=[0$i=0..n];\n" }{MPLTEXT 1 0 17 " for j to n do\n" }{MPLTEXT 1 0 25 " t:=M[1] mod M[j+1];\n" }{MPLTEXT 1 0 21 " for i to j-1 do\n" }{MPLTEXT 1 0 31 " t:=t*M[i+1] mod M[j+1];\n" }{MPLTEXT 1 0 9 " od;\n" }{MPLTEXT 1 0 27 " G[j]:=1/ t mod M[j+1];\n" }{MPLTEXT 1 0 7 " od;\n" }{MPLTEXT 1 0 15 " N[1]:=U [1];\n" }{MPLTEXT 1 0 17 " for j to n do\n" }{MPLTEXT 1 0 14 " t:= N[j];\n" }{MPLTEXT 1 0 34 " for i from j-2 to 0 by -1 do\n" } {MPLTEXT 1 0 38 " t:=t*M[i+1]+N[i+1] mod M[j+1];\n" }{MPLTEXT 1 0 9 " od;\n" }{MPLTEXT 1 0 41 " N[j+1]:=(U[j+1]-t)*G[j] mod M[j+ 1];\n" }{MPLTEXT 1 0 7 " od;\n" }{MPLTEXT 1 0 14 " t:=N[n+1];\n" } {MPLTEXT 1 0 32 " for j from n-1 to 0 by -1 do\n" }{MPLTEXT 1 0 25 " \+ t:=t*M[j+1]+N[j+1];\n" }{MPLTEXT 1 0 10 " od; t;\n" }{MPLTEXT 1 0 6 "end;\n" }{MPLTEXT 1 0 2 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "f*6$I \"MG6\"I\"UGF%6(I\"GGF%I\"NGF%I\"nGF%I\"iGF%I\"jGF%I\"tGF%F%F%C+>F*,&- I%nopsG%*protectedG6#F$\"\"\"F5!\"\">F(7#-I\"$GF36$\"\"!/F+;F5F*>F)7#- F:6$FF--I$modGF%6$&F$6#F5&F$6#,&F,F5F5F 5?(F+F5F5,&F,F5F5F6FF>F--FJ6$*&F-F5&F$6#,&F+F5F5F5F5FN>&F(6#F,-FJ6$*$F -F6FN>&F)FM&F&FM?(F,F5F5F*FFC%>F-&F)Ffn?(F+,&F,F5\"\"#F6F6FF--FJ6$ ,&FVF5&F)FXF5FN>&F)FO-FJ6$*&,&&F&FOF5F-F6F5FenF5FN>F-&F)6#,&F*F5F5F5?( F,,&F*F5F5F6F6FF-,&*&F-F5FNF5F5FjoF5F-F%F%F%" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.15. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "`mod`:=mods; debug(In tegerCRA); IntegerCRA([99,97,95],[49,-21,-30]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "I%modsG%*protectedG" }}{PARA 11 "" 1 "" {XPPMATH 20 "I+In tegerCRAG6\"" }}{PARA 9 "" 1 "" {TEXT 207 59 "\{--> enter IntegerCRA, \+ args = [99, 97, 95], [49, -21, -30]" }}{PARA 11 "" 1 "" {XPPMATH 20 " \"\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "7$\"\"!F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "7%\"\"!F#F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "!#[" }}{PARA 11 "" 1 "" {XPPMATH 20 "\" \"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#7" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#\\" }}{PARA 11 " " 1 "" {XPPMATH 20 "\"#\\" }}{PARA 11 "" 1 "" {XPPMATH 20 "!#N" }} {PARA 11 "" 1 "" {XPPMATH 20 "!#N" }}{PARA 11 "" 1 "" {XPPMATH 20 "\" \"%" }}{PARA 11 "" 1 "" {XPPMATH 20 "!#G" }}{PARA 11 "" 1 "" {XPPMATH 20 "!#G" }}{PARA 11 "" 1 "" {XPPMATH 20 "!%^F" }}{PARA 11 "" 1 "" {XPPMATH 20 "!'+BF" }}{PARA 11 "" 1 "" {XPPMATH 20 "!'+BF" }}{PARA 9 " " 1 "" {TEXT 207 49 "<-- exit IntegerCRA (now at top level) = 272300\} " }}{PARA 11 "" 1 "" {XPPMATH 20 "!'+BF" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 19 "A 5. 2. Algoritmus. " }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 48 "NewtonInterp:=proc(a,u,x,p) local i,j,t,n,G,N; \n" }{MPLTEXT 1 0 17 " n:=nops(a)-1;\n" }{MPLTEXT 1 0 18 " G:=[0$i=1 ..n];\n" }{MPLTEXT 1 0 18 " N:=[0$i=0..n];\n" }{MPLTEXT 1 0 17 " for j to n do\n" }{MPLTEXT 1 0 27 " t:=a[j+1]-a[1] mod p;\n" }{MPLTEXT 1 0 21 " for i to j-1 do\n" }{MPLTEXT 1 0 35 " t:=t*(a[j+1]-a [i+1]) mod p;\n" }{MPLTEXT 1 0 9 " od;\n" }{MPLTEXT 1 0 22 " G[j ]:=1/t mod p;\n" }{MPLTEXT 1 0 7 " od;\n" }{MPLTEXT 1 0 15 " N[1]:=u [1];\n" }{MPLTEXT 1 0 17 " for j to n do\n" }{MPLTEXT 1 0 14 " t:= N[j];\n" }{MPLTEXT 1 0 34 " for i from j-2 to 0 by -1 do\n" } {MPLTEXT 1 0 42 " t:=t*(a[j+1]-a[i+1])+N[i+1] mod p;\n" }{MPLTEXT 1 0 9 " od;\n" }{MPLTEXT 1 0 36 " N[j+1]:=(u[j+1]-t)*G[j] mod p ;\n" }{MPLTEXT 1 0 7 " od;\n" }{MPLTEXT 1 0 14 " t:=N[n+1];\n" } {MPLTEXT 1 0 32 " for j from n-1 to 0 by -1 do\n" }{MPLTEXT 1 0 35 " \+ t:=t*(x-a[j+1])+N[j+1] mod p;\n" }{MPLTEXT 1 0 10 " od; t;\n" } {MPLTEXT 1 0 4 "end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "f*6&I\"aG6\"I\"u GF%I\"xGF%I\"pGF%6(I\"iGF%I\"jGF%I\"tGF%I\"nGF%I\"GGF%I\"NGF%F%F%C+>F- ,&-I%nopsG%*protectedG6#F$\"\"\"F7!\"\">F.7#-I\"$GF56$\"\"!/F*;F7F->F/ 7#-F<6$F>/F*;F>F-?(F+F7F7F-I%trueGF5C%>F,-I$modGF%6$,&&F$6#,&F+F7F7F7F 7&F$6#F7F8F(?(F*F7F7,&F+F7F7F8FH>F,-FL6$*&F,F7,&FOF7&F$6#,&F*F7F7F7F8F 7F(>&F.6#F+-FL6$*$F,F8F(>&F/FS&F&FS?(F+F7F7F-FHC%>F,&F/Fjn?(F*,&F+F7\" \"#F8F8F>FH>F,-FL6$,&FYF7&F/FfnF7F(>&F/FP-FL6$*&,&&F&FPF7F,F8F7FinF7F( >F,&F/6#,&F-F7F7F7?(F+,&F-F7F7F8F8F>FH>F,-FL6$,&*&F,F7,&F'F7FOF8F7F7F^ pF7F(F,F%F%F%" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}} {SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.16. P" }{TEXT 206 12 "\303\25 1lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "u0:=NewtonInterp([0,1],[-21,-30],y,97);" }}{PARA 11 " " 1 "" {XPPMATH 20 ",&*&\"\"*\"\"\"I\"yG6\"F%!\"\"\"#@F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "u1:=NewtonInterp([0,1],[20,17],y,97 );" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"$\"\"\"I\"yG6\"F%!\"\"\"#? F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "u2:=NewtonInterp([0,1 ],[-36,-31],y,97);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"&\"\"\"I\" yG6\"F%F%\"#O!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "u:=Ne wtonInterp([0,1,2],[u0,u1,u2],x,97); expand(u);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&,(*&I\"yG6\"\"\"\",&I\"xGF'F(F(!\"\"F(F(*&\"\"'F(F&F( F(\"#TF(F(F*F(F(*&\"\"*F(F&F(F+\"#@F+" }}{PARA 11 "" 1 "" {XPPMATH 20 ",,*&)I\"xG6\"\"\"#\"\"\"I\"yGF&F(F(*(\"\"&F(F%F(F)F(F(*&\"#TF(F%F(F(* &\"\"*F(F)F(!\"\"\"#@F0" }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%# %?G" }}}}{SECT 0 {PARA 4 "" 0 "" {TEXT 206 9 "E 5.17. P" }{TEXT 206 12 "\303\251lda." }}{PARA 0 "" 0 "" {TEXT 201 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "a:=7*x+5; b:=2*x-3; c:=expand(a*b);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"(\"\"\"I\"xG6\"F%F%\"\"&F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"#\"\"\"I\"xG6\"F%F%\"\"$!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"#9\"\"\")I\"xG6\"\"\"#F%F%*&\"#6F%F'F%! \"\"\"#:F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "c5:=expand(Ne wtonInterp([0,1,2],[0,-2,-1],x,5)) mod 5;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*$)I\"xG6\"\"\"#\"\"\"!\"\"F%F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "c7:=expand(NewtonInterp([0,1,2],[-1,2,-2],x,7)) mod 7;" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*&\"\"$\"\"\"I\"xG6\"F%F%F% !\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "c3:=expand(NewtonI nterp([0,1,-1],[0,0,1],x,3)) mod 3;" }}{PARA 11 "" 1 "" {XPPMATH 20 ", &*$)I\"xG6\"\"\"#\"\"\"!\"\"F%F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "expand(IntegerCRA([5,7,3],[-x^2-x,3*x-1,-x^2+x])) mod 105;" } }{PARA 9 "" 1 "" {TEXT 207 65 "\{--> enter IntegerCRA, args = [5, 7, 3 ], [-x^2-x, 3*x-1, -x^2+x]" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "7$\"\"!F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "7%\"\"!F#F#" }}{PARA 11 "" 1 "" {XPPMATH 20 "!\"#" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"$" }}{PARA 11 "" 1 "" {XPPMATH 20 "!\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "! \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*$)I\"xG6\"\"\"#\"\"\"!\"\"F%F )" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*$)I\"xG6\"\"\"#\"\"\"!\"\"F%F)" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"\"#\"\"\"I\"xG6\"F%!\"\"\"\"$F(* &F)F%)F&F$F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"\"#\"\"\"I\"xG6 \"F%!\"\"\"\"$F(*&F)F%)F&F$F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",&*$) I\"xG6\"\"\"#\"\"\"!\"\"F%F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"!" } }{PARA 11 "" 1 "" {XPPMATH 20 "\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 " ,(*&\"\"#\"\"\"I\"xG6\"F%!\"\"\"\"$F(*&F)F%)F&F$F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"#9\"\"\")I\"xG6\"\"\"#F%F%*&\"#6F%F'F%!\"\"\"#:F ," }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"#9\"\"\")I\"xG6\"\"\"#F%F%*& \"#6F%F'F%!\"\"\"#:F," }}{PARA 9 "" 1 "" {TEXT 207 57 "<-- exit Intege rCRA (now at top level) = 14*x^2-11*x-15\}" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*&\"#9\"\"\")I\"xG6\"\"\"#F%F%*&\"#6F%F'F%!\"\"\"#:F," }}}{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}{PARA 0 "" 0 "" {TEXT 201 0 "" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 14 "6. Newton-iter " }{TEXT 205 8 "\303\241" }{TEXT 205 2 "ci" }{TEXT 205 8 "\303\263" } {TEXT 205 16 ", Hensel-felemel" }{TEXT 205 8 "\303\251" }{TEXT 205 1 " s" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 15 "7. Legnagyobb k" }{TEXT 205 8 "\303\266" }{TEXT 205 1 "z" }{TEXT 205 8 "\303\266" }{TEXT 205 6 "s oszt" }{TEXT 205 8 "\303\263" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 11 "8. Faktoriz" }{TEXT 205 8 "\303\241" }{TEXT 205 1 "l" }{TEXT 205 8 "\303\241" }{TEXT 205 1 "s" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 21 "9. Egyenletrendszerek" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 6 "10. Gr" }{TEXT 205 27 "\303\266bner-b\303\241zisok" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 10 "11. Racion" }{TEXT 205 8 "\303\241" }{TEXT 205 5 "lis t" }{TEXT 205 8 "\303\266" }{TEXT 205 3 "rtf" }{TEXT 205 8 "\303\274" }{TEXT 205 3 "ggv" }{TEXT 205 8 "\303\251" }{TEXT 205 11 "n yek integr" }{TEXT 205 8 "\303\241" }{TEXT 205 1 "l" }{TEXT 205 8 "\30 3\241" }{TEXT 205 2 "sa" }}}{SECT 1 {PARA 3 "" 0 "" {TEXT 205 23 "12. \+ A Risch-algoritmus." }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "" "%#% ?G" }}}} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }