{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 } {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 -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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT 258 52 " Some string-theoretic procedures " }}{PARA 0 "" 0 "" {TEXT 259 56 " (useful for decrypting \"classical\" \+ encryptions)" }{TEXT 256 1 "." }{TEXT -1 1 " " }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 120 "Note: strings in Maple V 5 use double quotes: \"we\" is a string in V5. The double quotes shoul d be removed for use in V4. " }}{PARA 0 "" 0 "" {TEXT -1 100 "First, w e read in Book I of Milton's Paradise Lost. The text has been put in a file, all the \" marks" }}{PARA 0 "" 0 "" {TEXT -1 96 "removed (repla ced by ' marks, in order not to conflict with MAPLE's string conventio ns), and the" }}{PARA 0 "" 0 "" {TEXT -1 63 "entire text is surrounded by \" marks and that string is called " }{TEXT 257 12 "paradiselost" }{TEXT -1 140 ". (The carriage returns cause MAPLE's read command to p rint pages of warning statements, so they will be surpressed by settin g warnlevel=0.)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 24 "crypto0.mws,wdj,11-11-98" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 38 "read(`c:/maplev4/bin.win/crypto.mpl`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "interface(warnlevel=0);\nread(`c:/m aplev4/bin.win/paradise_lost.mpl`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "whattype(paradiselost);\nlength(paradiselost);\n" } {TEXT -1 37 "This text has about 35000 characters." }}{PARA 11 "" 1 " " {XPPMATH 20 "6#%'stringG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&L_$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 134 "How many lines (carriage retur ns) are there? It takes about 20 seconds on my Cyrex 200mz and 30 seco nds on an Intel 200mz to find out:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "t0:=time();\nL:=Locate(\"\\n\",paradiselost):\nnops(L );\ntime()-t0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#t0G$\"&*QW!\"$" } }{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$)z" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&*3I!\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 57 "How many tim es does Milton use the word \"men\", and where?" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 39 "L:=Locate(\"men\",paradiselost);\nnops(L);" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"LG76\"%b5\"%F6\"%\"&MR#\"&D,$\"&$pI\"&A?$\"&8F $\"&DM$\"&m[$\"&**\\$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#?" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 104 "The next calculation is more time -consuming. It will tell us how frequently \"a\" occurs, \"b\" occurs, ...," }}{PARA 0 "" 0 "" {TEXT -1 90 "and arrange the result in decrea sing order. The time below is for a Cyrex 200 mz computer." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 151 "t0:=time();\nL:=statistics(paradis elost);\nprint(`This computation took `,time()-t0,` seconds`);\nprint( `Total percentage accounted for: `,add(x[2],x=L));" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#t0G$\"&sy*!\"$" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# >%\"LG7en7$Q\"~6\"$\"+o:p)p\"!\")7$Q\"eF($\"+$*Gz3%*!\"*7$Q\"tF($\"+]> 20hF07$Q\"oF($\"+b^$ex&F07$Q\"nF($\"+I%oIL&F07$Q\"aF($\"+@()yn_F07$Q\" rF($\"+ONxi^F07$Q\"hF($\"+o]o6^F07$Q\"sF($\"+`\"\\a(\\F07$Q\"iF($\"+eM Y()[F07$Q\"dF($\"+]!>O`$F07$Q\"lF($\"+a9p'G$F07$Q\"uF($\"+Z\")4u@F07$Q \",F($\"+Zq%G$>F07$Q\"mF($\"+_8'[%=F07$Q\"fF($\"+2mMO=F07$Q\"gF($\"+@& *Qs:F07$Q\"cF($\"+\\v(p_\"F07$Q\"wF($\"+`5I@:F07$Q\"pF($\"+rum^7F07$Q \"bF($\"+&4!*H0\"F07$Q\"yF($\"+HYFG')!#57$Q\"vF($\"+TE=0yF[q7$Q\"AF($ \"+b'z&pXF[q7$Q\"TF($\"+3AV%[%F[q7$Q\"kF($\"+ow[YPF[q7$Q\"HF($\"+uF>wN F[q7$Q\".F($\"+@!Q)yJF[q7$Q\"OF($\"+pK[\"y#F[q7$Q\"SF($\"+RL&zm#F[q7$Q \"WF($\"+jfFpCF[q7$Q\"IF($\"+jPx')>F[q7$Q\"BF($\"+A9LJ\"F[q7$Q\"EF($\"+;)oQ$**! #67$Q\"MF(Fft7$Q\"NF($\"+q\">iO*Fht7$Q\"DF($\"+B&p&)z)Fht7$Q\"zF($\"++ Zu9&)Fht7$Q\"PF($\"+w)>4B)Fht7$Q\"GF($\"+I-FjwFht7$Q\"LF($\"+O4(z_'Fht 7$Q\"RF(Fav7$Q\"qF($\"+8h9WiFht7$Q\"?F($\"+?o%)3^Fht7$Q\"jF($\"+]BPdUF ht7$Q\"!F($\"+EvatRFht7$Q\"JF($\"+!)y*eS$Fht7$Q\"VF($\"+S*[Hq\"Fht7$Q \"UF($\"+9Fht7$Q\"YF($\"+$H*HN6Fht7$Q\"KF($\"+mk\\wc!#77$Q\"QF(\" \"!7$Q\"XF(F\\y7$Q\"ZF(F\\y" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%%7This~ computation~took~G$\"(xa9\"!\"$%)~secondsG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%ATotal~percentage~accounted~for:~G$\"+\"G&)Qn*!\")" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "seg(\"qwert\",2,3);\n" } {TEXT -1 79 "Returns the substring indicated. (See also MAPLE's built- in substring command.)" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q#we6\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "SearchText(wx,abcdefghijklmn opqrstuvwxyz);\nSearchText(Wx,abcdefghijklmnopqrstuvwxyz);\n" }{TEXT -1 68 "This is a built-in MAPLE command (case sensitive). Self explana tory." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#B" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "sea rchtext(wx,abcdefghijklmnopqrstuvwxyz);\nsearchtext(Wx,abcdefghijklmno pqrstuvwxyz);\n" }{TEXT -1 70 "This is a built-in MAPLE command (case \+ insensitive). Self explanatory." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"# B" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#B" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 36 "length(abcdefghijklmnopqrstuvwxyz);\n" }{TEXT -1 51 "This is a built-in MAPLE command. Self explanatory." }}{PARA 11 " " 1 "" {XPPMATH 20 "6#\"#E" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "locate(\"wx\",\"abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvw xyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz\");\n" }{TEXT -1 35 "Self explanatory. Case insensitive." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7&\"#B\"#\\\"#v\"$,\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 121 "Locate(\"wx\",\"abcdefghijklmnopqrstuvwxyzabcdefghij klmnopqrstuvwxyzabcdefghijklmnopqrstUVWXYZabcdefghijklmnopqrstuvwxyz\" );\n" }{TEXT -1 34 "Self explanatory. Case sensitive. " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"#B\"#\\\"$,\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "0 1 0" 12 }{VIEWOPTS 1 1 0 1 1 1803 }