{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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 256 "" 1 14 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 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 256 18 "Demo for Sequences" }}
{PARA 0 "" 0 "" {TEXT -1 24 "We use the example      " }{XPPEDIT 18 0 
"a[k] = (-1)^(k+1)/k;" "6#/&%\"aG6#%\"kG*&),$\"\"\"!\"\",&F'\"\"\"\"\"
\"F.F.F'F," }{TEXT -1 5 "  .  " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "re
start;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "N := 50;  # Numbe
r of points" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "A := seq((-1
)^(k+1)/k,k=1..N);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "A[5];
  # Display " }{XPPEDIT 18 0 "a[5];" "6#&%\"aG6#\"\"&" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 60 "for k from 1 to N do\np(k) := [k,A[
k]]:\nq(k) := [A[k],0]:\nod:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 49 "pts := seq(p(k),k=1..N):\nqts := seq(q(k),k=1..N):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "plot([pts],style=point);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "plot([qts],style=point,view=
[-0.6..1.2,-1..1],axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "4 0 0" 21 }{VIEWOPTS 1 1 0 1 1 1803 }