{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "with(linalg): with(n umtheory): with(plots):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 219 "numb:=t able([\" \"=0,\"a\"=1, \"b\"=2, \"c\"=3, \"d\"=4, \"e\"=5, \"f\"=6, \" g\"=7, \"h\"=8, \"i\"=9, \"j\"=10, \"k\"=11, \"l\"=12, \"m\"=13, \"n\" =14, \"o\"=15, \"p\"=16, \"q\"=17, \"r\"=18, \"s\"=19, \"t\"=20, \"u\" =21, \"v\"=22, \"w\"=23, \"x\"=24, \"y\"=25, \"z\"=26]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 194 "alph:=table([0=\" \",1=\"a\",2=\"b\",3=\"c\" ,4=\"d\",5=\"e\",6=\"f\",7=\"g\",8=\"h\",9=\"i\",10=\"j\",11=\"k\",12= \"l\",13=\"m\",14=\"n\",15=\"o\",16=\"p\",17=\"q\",18=\"r\",19=\"s\",2 0=\"t\",21=\"u\",22=\"v\",23=\"w\",24=\"x\",25=\"y\",26=\"z\"]):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "shift:=proc(txt,n) " }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 16 " local i, z; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " z :=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 " \+ for i from 1 while i<= length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 " z:=cat(z,(alph[(numb[substring(txt,i)]+n-1 mod 26)+1])); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " end do;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 13 " return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " end: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "allshifts:= proc(txt)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " local i;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 " for i from 0 while i<26 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " print(shift(txt,i));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " end do; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "e nd:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "affinecrypt:= proc(txt,m,n) " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " local i,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " z:=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "for i from 1 while i<=length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 " z:=cat(z,(alph[((numb[substring(txt,i)]-1)*m+n m od 26)+1]));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " end do;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " return(z);" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "vigenere: = proc(txt,v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " local i,z;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " z:=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "for i from 1 while i<=length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 " z:=cat(z,alph[(numb[substring(txt,i)]+v[(i-1 mod nops(v))+1]-1 mod 26)+1]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " return(z);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "choose:=proc(txt,m,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " \+ local i,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " z:=NULL;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 " for i from n by m while i<= length (txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 " z:=cat(z,substring (txt,i));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "frequency:=proc(txt)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 " local i,j,k,v,z; z:=[0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " for i from 1 while i<= length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " j:=numb[substring(txt,i)];" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 25 " z:=subsop(j=z[j]+1,z);" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 10 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "re turn(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 22 "vigvec:= proc(txt,m,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " local w,z,i;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 " z:=choose(txt,m,n);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " w:=frequ ency(z)/length(z)*1.;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " return(w) ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "alfreq:=[.082, .015, .028, .043, .127, .022, .020, . 061, .070, .002, .008, .040, .024, .067, .075, .019, .001, .060, .063, .091, .028, .010, .023, .001, .020, .001]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "corr:=proc(v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 " \+ local i,j,w,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 " w:=augment(m atrix(1,26,v),matrix(1,26,v));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 " \+ z:=seq(sum(alfreq[i]*w[1,i+j-1],i=1..26),j=1..26);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "coinc:=proc(txt,s)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " local i,w,z;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 7 " z:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 " for \+ i from 1 while i <= length(txt)-s do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 " " }{TEXT -1 1 " " }{MPLTEXT 1 0 64 "if substring(txt,i)=substri ng(txt,i+s) then z:=z+1 else z:=z fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " return(z);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "lfsr:=proc(c,k,n) " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " loc al f,i,j,r,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " z:=matrix(1,nops (k),k);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 38 " for i from 1 while i< = n-nops(c) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "z:=augment(z,matr ix(1,1,[sum(z[1,j+i-1]*c[j],j=1..nops(c)) mod 2]));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 " \+ z:=row(z,1);z:=[seq(z[i],i=1..n)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "lfsrlength:=proc(v,n) " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " local w,z,i,j,k; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " for k from 1 while k<=n do" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 22 " w:=array(1..k,1..k);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " for i from 1 while i<= k do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " for j from 1 while j<= k do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 " w[i,j]:=v[i+j-1];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " print([k,det(w) mod 2]);" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " \+ end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "lfsrsolve:=proc(v,n)" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 " local w1,w,z,i,j,k;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " w1:=array(1..n,1..1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " w:=array(1..n,1..n);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " for i from 1 while i<= n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " for j from 1 while j<= n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 " w[i,j]:=v[i+j-1];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " for i from 1 while i<= n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " w1[i,1]:=v[i+n]; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 " z:=evalm(det(w)* transpose(evalm(inverse(w)&*w1)));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "z:=map(x->x mod 2,z); z:=[seq(z[1,i],i=1..n)];" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 3 " z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 " text2num:=proc(txt)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " local i,z; z:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " for i from 1 while i<=length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 " z:=100*z+numb[substring(txt,i)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " end:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "num2text:=proc(n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " local i,w,z; z:=NULL;w:=n;" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 36 " for i from 1 while 100^(i-1) \+ " 0 "" {MPLTEXT 1 0 29 " z:=cat(alph[w mod 100],z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " w:=floor(w/100);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 " retu rn(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " end:" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 51 "cards:=[200514,10010311,1721050514,11091407,10305]: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "with(combinat,randperm):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "khide:=proc();2*rand()+101;end:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "shuffle:=proc(k)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " local z; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 90 "z :=randperm(\{cards[1]&^k,cards[2]&^k,cards[3]&^k,cards[4]&^k,cards[5]& ^k\}mod 24691313099);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "return(z); end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "reveal:=proc(c) " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " local k1,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 " k1:= k&^(-1) mod 24691313098;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 " z:=[c[1]&^k1,c[2]&^k1,c[3]&^k1,c[4]&^k1,c[5]&^k1] m od 24691313099;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "z:=[num2text(z[1 ]),num2text(z[2]),num2text(z[3]),num2text(z[4]),num2text(z[5])];" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " return(z); " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "advise:=pro c(v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " local i,w,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " w:=1; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 " for i from 1 while w=1 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 47 " w:= v[i]&^((24691313099-1)/2) mod 24691313099;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " return (i-1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "end: " }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 25 "addell:=proc(p1,p2,a,b,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 " local z,z1,m,x3,y3,p3;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " z:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " z1:=1; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 62 " if p1=[\"infinity\",\"infinit y\"] then p3:=p2; z:=1 else end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z=1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 75 " if p2=[\"infinity\",\"infinity\"] then p3:=p1; z:=1 else end if en d if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z=1 then NULL else " } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 81 " if p1[1]=p2[1] and p1[2]=0 then \+ p3:=[\"infinity\",\"infinity\"]; z:=1 else end if" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " if z=1 then NULL else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " if p1[1]=p 2[1] and p1[2]<>p2[2] then " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 " p3 :=[\"infinity\",\"infinity\"]; z:=1 else end if end if;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 23 " if z=1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 " if p1=p2 and gcd(p1[2],n)<>1 and gcd(p1[2],n)<>n" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 " then z1:=gcd(p1[2],n); z:=1 els e end if end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z=1 then NU LL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 102 " if p1=p2 then m:=( (3*p1[1]^2+a)*((2*p1[2])&^(-1) mod n)) mod n; z:=1; x3:=(m^2-p1[1]-p2[ 1]) mod n;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 " y3:=(m*(p1[1]-x3)-p1 [2]) mod n;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "p3:=[x3,y3];" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "else end if end if;" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 23 " if z=1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 " if gcd(p2[1]-p1[1],n)<>1 then z:=1;z1:=gcd(p2[1]-p1 [1],n) else end if end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z =1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 56 " m:= ((p2[2] -p1[2])*((p2[1]-p1[1])&^(-1) mod n)) mod n;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 84 " x3:=(m^2-p1[1]-p2[1]) mod n; y3:= (m*(p1[1]-x3)-p1[ 2]) mod n; p3:= [x3,y3] end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 " if z1=1 then return(p3) else return([\"factor=\",z1]) end if;" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "multsell:=proc(p1,m,a,b,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " local i,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " z:=[[1,p1]];" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 " for i from 2 while i<=m and z[-1] [2][1]<>\"factor=\" do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 55 " z:=[op(z ),[1+nops(z),addell(p1,z[nops(z)][2],a,b,n)]];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " retur n(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "multell:=proc(p,m,a,b,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " local i,j,q,y,z1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " y:=[\"infinity\",\"infinity\"];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " q:=p;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " z1:=m; " }}{PARA 0 " > " 0 "" {MPLTEXT 1 0 48 " for i from 1 while z1<>0 and y[1]<>\"factor =\" do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 57 " for j from 1 while z1 m od 2 = 0 and q[1]<>\"factor=\" do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 42 " z1:=z1/2; q:=addell(q,q,a,b,n); end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 " z1:=z1-1; y:=addell(q,y,a,b,n); end do; " } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 " if q[1]=\"factor=\" then y:=q el se NULL end if; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 " " }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 11 " return(y);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gaul:= \"gaulisdividedin tothreeparts\":" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 219 "ycve:= \"ycvejq wvhqtdtwvwu\":\nedsg:= \"edsgickxhuklzveqzvkxwkzukcvuh\":\ntcab:= \"tc abtiqmfheqqmrmvmtmaq\": lcll:=\"lcllewljazlnnzmvyiylhrmhza\": \+ DNA:= \"GAATTCGCGGCCGCAATTAACCCTCACTAAAGGGATCTCTAGAACT\": \+ " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 679 "xkju:= \"xkjurowmllpxwzn pimbvbqjcnowxpcchhvvfvsllfvxhazityxohulxqojaxelxzxmyjaqfs\\\ntsrulhhuc dskbxknjqidallpqslluhiaqfpbpcidsvcihwhwewthbtxrljnrsncihuvffuxvoukjlj \\\nswmaqfvjwjsdyljogjxdboxajultucpzmpliwmlubzxvoodybafdskxgqfadshxnxe hsaruojaqfpf\\\nkndhsaafvulluwtaqfrupwjrszxgpfutjqiynrxnyntwmhcukjfbir zsmehhsjshyonddzzntzmpli\\\nlrwnmwmlvuryonthuhabwnvw\":\nocwy:= \"ocwy ikoooniwugpmxwktzdwgtssayjzwyemdlbnqaaavsuwdvbrflauplooubfgqhgcscmgz\\ \nlatoedcsdeidpbhtmuovpiekifpimfnoamvlpqfxejsmxmpgkccaykwfzpyuavtelwhr hmwkbbvgtg\\\nuvtefjlodfefkvpxsgrsorvgtajbsauhzrzalkwuowhgedefnswmrciw cpaaavogpdnfpktdbalsis\\\nurlnpsjyeatcuceesohhdarkhwotikbroqrdfmzghguc ebvgwcdqxgpbgqwlpbdaylooqdmuhbdqgm\\\nyweuik\":" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3637 "hdsf:= \"hdsfgvmkoowafweetcmfthskucaqbilgjofmaqlgsp vatvxqbiryscpcfrmvswrvnqlszd\\\nmgaoqsakmlupsqforvtwvdfcjzvgsoaoqsacjk brsevbelvbksarlscdcaarmnvrysywxqgvellcyl\\\nuwwveoafgclazowafojdlhssfi ksepsoywxafowlbfcsocylngqsyzxgjbmlvgrggokgfgmhlmejab\\\nsjvgmlnrvqzcrg gcrghgeupcyfgtydycjkhqluhgxgzovqswpdvbwsffsenbxapasgazmyuhgsfhmf\\\nta yjxmwznrsofrsoaopgauaaarmftqsmahvqecev\":\nvvhq:= \"vvhqwvvrhmusgjgthk ihtssejchlsfcbgvwcrlryqtfsvgahwkcuhwauglqhnslrljshbl\\\ntspisprdxljsve eghlqwkasskuwepwqtwvspgoelkcqyfnsvwljsniqkgnrgybwlwgoviokhkazkqk\\\nxz gyhcecmeiujoqkwfwvefqhkijrclrlkbienqfrjljsdhgrhlsfqtwlauqrhwdmwlgusgik kflryv\\\ncwvspgpmlkassjvoqxeggveyggzmljcxxljsvpaivwikvrdrygfrjljslveg gveyggeiapuuisfpbt\\\ngnwwmuczrvtwglrwugumnczvile\":\nL100:= [1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, \n 1 , 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, \n 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0 , 1, 1, 1, \n 0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, \+ 1, 0, 0, 0, 1, 0, 0, \n 1, 0, 0, 0, 0]:\nL011:= [0, 1, 1, 0, 0, 0 , 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0,\n 0, 1, \+ 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1,\n \+ 0, 1]:\nL101:= [1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, \n 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1,\n 1 , 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, \n 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1 , 0, 0, 0, \n 0, 1, 1, 1, 0, 0, 0]:\nrsan:= 114381625757888867669 23577997614661201021829672124236256256184293570693\\\n5245733897830597 123563958705058989075147599290026879543541:\nrsae:= 9007:\nrsaci:= 968 6961375462206147714092225435588290575999112457431987469512093081629\\ \n8225145708356931476622883989628013391990551829945157815154:\nrsap:= \+ 3490529510847650949147849619903898133417764638493387843990820577:\nrsa q:= 32769132993266709549961988190834461413177642967992942539798288533: \nnaive:= 152415787501905985701881832150835089037858868621211004433:\n cnaive:= 141077461765569500241199505617854673388398574333341423525:\nn 1:=8834884587090814646372459890377418962766907: \+ sigpairm1:=418726553997094258577980055061305150940547956: sigpairs 1:=749142649641548101520133634736865752883277237: sigpairm2:=148237652 32498712344512418717130930: sigpairs2:=4317612162846544134011241867206 5063: signa:=171024704183616109700818066925197841516671277: signb :=839073542734369359260871355939062622747633109: sigpb:=9876345769783 4568934613: sigqb:=8495789457893457345793: golay:=matrix(12,2 4,[1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,1,1,1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0 ,0,0,1,0,1,1,0,1,1,1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,1,1,1 ,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,1,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0,1,0,0,0 ,0,0,0,0,1,0,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,1 ,1,0,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0 ,0,1,0,0,0,0,1,1,1,0,0,0,1,0,1,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,1,0 ,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,1,1,1,0,0,0,1,0,1,1,0,0,0,0 ,0,0,0,0,0,0,1,0,1,1,0,1,1,1,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1 ,1,1,1,1,1,1,1,1,1]): golayb:=matrix(12,12,[1,1,1,0,1,1,1,0,0,0,1,0,1, 0,1,1,0,1,1,1,0,0,0,1,1,1,0,1,1,0,1,1,1,0,0,0,1,0,1,0,1,1,0,1,1,1,0,0, 1,0,0,1,0,1,1,0,1,1,1,0,1,0,0,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1,1,0,1, 1,1,1,1,0,0,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1,1,0,1,0,1,1,1,0,0,0,1,0, 1,1,1,1,0,1,1,1,0,0,0,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1]): hammingpc:=matr ix(4,15,[0,0,0,0,1,1,1,1,1,1,1,1,0,0,0,\n1,1,1,0,0,0,0,1,1,1,1,0,1,0,0 ,0,1,1,1,0,1,1,0,0,1,1,0,0,1,0,\n1,0,1,1,1,0,1,0,1,0,1,0,0,0,1]):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "XXXX:= \"DON'T FORGET TO HIT RETUR N TO LOAD THE ABOVE COMMANDS BEFORE STARTING YOUR WORK. PUT THE CURSOR HERE, OR HIGHER, BEFORE HITTING RETURN.\":" }}}}{MARK "0 173 0" 6 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }