{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 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 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {MPLTEXT 0 21 25 " Topologist's sin curve" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "with(plottools):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "s :=x -> -sin(5*(1+2*Pi)/(x+1));" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "S:=plot([1+x/5,Pi*s(x),x=.9..10.59],coords=polar,n umpoints=100,thickness=2,color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "c:=circ le([0 ,0],1,color=red,thickness=3):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "plots[d isplay]([S,c],scaling=constrained,axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "plotsetup(ps,plotoutput=`Warsawa.ps`,plotoption s=`noborder, axisheight=5cm, axiswidth=5cm,portrait,color`);" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 110 "plotsetup(gif,plotoutput=`Warsawa.gif`,plotoptions =`noborder, axisheight=5cm, axiswidth=5cm,portrait,color`);\n" }}}} {MARK "12 0 0" 33 }{VIEWOPTS 1 1 0 1 1 1803 }