{VERSION 5 0 "IBM INTEL NT" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 } {CSTYLE "_cstyle1" -1 202 "Times" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 } {CSTYLE "_cstyle2" -1 203 "Times" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "_pstyle1" -1 200 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "_ pstyle2" -1 201 1 {CSTYLE "" -1 -1 "Courier" 0 1 255 0 0 1 0 1 0 2 1 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }{PSTYLE "_pstyle3" -1 202 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 2 2 2 0 0 0 1 }0 0 0 -1 -1 -1 1 0 1 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "01." }{TEXT 202 0 "" }}} {EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 0 63 "AddZ:=k->matrix(k,k,[seq([ seq(i+j mod k,i=0..k-1)],j=0..k-1)]):" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 66 "\nMultZ0:=k->matrix(k,k,[seq([seq(i*j mod k,i=0..k-1)],j=0..k-1) ]):" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 69 "\nMultZ:=k->matrix(k-1,k-1,[ seq([seq(i*j mod k,i=1..k-1)],j=1..k-1)]):" }{MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "02." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 0 12 "a:=12345678;" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 15 "\np:=1234567891;" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 14 "\na^(-1) mod p;" }{MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\")ycM7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"pG\"+\"*ycM 7" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"*nv'*3*" }}}{EXCHG {PARA 200 " " 0 "" {TEXT 202 3 "03." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 " " {MPLTEXT 1 0 23 "g:=igcdex(a,p,'s','t');" }{MPLTEXT 1 0 0 "" } {MPLTEXT 1 0 3 "\ns;" }{MPLTEXT 1 0 0 "" }{MPLTEXT 1 0 3 "\nt;" } {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gG\"\"\"" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#!*C.gD$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"(.gD$" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "04." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 0 8 "s*a+t*p;" } {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "05." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 0 8 "s mod p;" }{MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"*nv'*3*" }}}{EXCHG {PARA 200 "" 0 "" {TEXT 202 3 "06." }{TEXT 202 0 "" }}}{EXCHG {PARA 201 "> " 0 "" {MPLTEXT 1 0 23 "msolve(12345678*x=1,p);" }{MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<#/%\"xG\"*nv'*3*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{PARA 202 "" 0 "" {TEXT 203 0 "" }}{PARA 202 "" 0 "" {TEXT -1 0 "" }}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }