{VERSION 4 0 "IBM INTEL LINUX22" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 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 "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 
0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 0 1 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 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 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 
0 0 0 0 0 0 0 0 0 2 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "M
aple 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 "Title" 0 18 1 {CSTYLE "" 
-1 -1 "" 1 18 0 0 0 0 0 1 1 0 0 0 0 0 0 0 }3 0 0 -1 12 12 0 0 0 0 0 0 
19 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 
0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 257 1 {CSTYLE "
" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 
0 -1 0 }{PSTYLE "" 0 258 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 
0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT -1 29 "Writing to a File in Mapl
e R6" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 256 67 "Maple has
 fprintf statements which work very similar to those of C." }}{PARA 0 
"" 0 "" {TEXT 257 64 "This worksheet illustrates opening a file (poten
tially one whose" }}{PARA 0 "" 0 "" {TEXT 258 63 "name is computed in \+
a program) and writing some simple text and" }}{PARA 0 "" 0 "" {TEXT 
-1 0 "" }{TEXT 259 20 "numbers to the file." }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 78 "These first 3 variables specify the location and name o
f the file being saved." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "DIR_LOCN
 :=`/tmp`;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)DIR_LOCNG%%/tmpG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "NUM:= 25;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%$NUMG\"#D" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 84 "group_suffix := `grp`;Here || is the concatenation operator. `` \+
is the empty string." }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-group_suffi
xG%$grpG" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }{TEXT 260 72 "Here \+
|| is the string concatenation operator and `` is the empty string." }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "group_output_file_path := ``|| DIR
_LOCN  || `/` || nm || NUM || `.`  || group_suffix;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%7group_output_file_pathG%./tmp/nm25.grpG" }}}
{EXCHG {PARA 256 "" 0 "" {TEXT -1 147 "The format specifications for i
ntegers, floats, and algebraic expressions\nare illustrated here. Many
 more exist. Also \\t is a tab and \\n a newline." }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 224 "fd := fopen(group_output_file_path,WRITE);\nfor i \+
from 1 to 3 do\n     fprintf(fd,`An integer: %d\\n`,i);\n     fprintf(
fd,`\\tA float: %g\\n`,evalf(log(i+1)));\n     fprintf(fd,`\\t\\tAlgeb
ra: %a\\n`,expand((x+y)^i));\nod:\nfclose(fd);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#fdG\"\"\"" }}}{EXCHG {PARA 257 "" 0 "" {TEXT -1 64 "
Especially when debugging it is useful to have your output go to" }}
{PARA 258 "" 0 "" {TEXT -1 73 "the current worksheet instead of a file
. Setting fd to default does this." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
197 "fd := default;\nfor i from 1 to 3 do\n     fprintf(fd,`An integer
: %d\\n`,i);\n     fprintf(fd,`\\tA Float: %g\\n`,evalf(log(i+1)));\n \+
    fprintf(fd,`\\t\\tAlgebra: %a\\n`,expand((x+y)^i));\nod:\n#fclose(
fd);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#fdG%(defaultG" }}{PARA 6 "
" 1 "" {TEXT -1 13 "An integer: 1" }}{PARA 6 "" 1 "" {TEXT -1 17 "\011
A Float: .693147" }}{PARA 6 "" 1 "" {TEXT -1 14 "\011\011Algebra: x+y
" }}{PARA 6 "" 1 "" {TEXT -1 13 "An integer: 2" }}{PARA 6 "" 1 "" 
{TEXT -1 18 "\011A Float: 1.098612" }}{PARA 6 "" 1 "" {TEXT -1 24 "
\011\011Algebra: x^2+2*x*y+y^2" }}{PARA 6 "" 1 "" {TEXT -1 13 "An inte
ger: 3" }}{PARA 6 "" 1 "" {TEXT -1 18 "\011A Float: 1.386294" }}{PARA 
6 "" 1 "" {TEXT -1 34 "\011\011Algebra: x^3+3*x^2*y+3*x*y^2+y^3" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 35 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }