{VERSION 4 0 "SGI MIPS UNIX" "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 }{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 0 "" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 150 "This routine reads in a sequence of 1D data sets \+
and animates the data\nin a sequence of frames. It is assumed that the
 name of the data sets have the " }}{PARA 0 "" 0 "" {TEXT -1 86 "form \+
 NAME*****  where ***** is a 5 digit integer. It is assumed this 5 dig
it integer " }}{PARA 0 "" 0 "" {TEXT -1 86 "is counted consecutively, \+
i.e, 00000,00001,00002,... You choose the starting step, the" }}{PARA 
0 "" 0 "" {TEXT -1 95 "step size and the last step for these 5 digit i
ntegers. You also input NAME for your data sets." }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
485 "  This Maple program is used in MATH 365 - Computational\n   Flui
d Dynamics at James Madison University. This program was\n   written b
y James Sochacki of the Department of Mathematics\n   at James Madison
 University as part of the NSF Grant - A Collaborative \n   Compuatati
onal Science Program between JMU and North Carolina Central\n   Univer
sity. His info is\n   \n   Jim Sochacki\n   Department of Mathematics
\n   James Madison University\n   Harrisonburg, VA   22807\n   jim@mat
h.jmu.edu\n  " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "plotsetup(gdi):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 107 "The starting step is called init_step. The step size is \+
called step_size. The last step is called fin_step." }}{PARA 0 "" 0 "
" {TEXT -1 93 "str sets NAME. In this example NAME is densty. You shou
ld change densty to what your filename" }}{PARA 0 "" 0 "" {TEXT -1 97 
"is. This example starts with step 00000 with step size 5 and ends wit
h step 00050. The number of " }}{PARA 0 "" 0 "" {TEXT -1 99 "data poin
ts in each file is stored in num_data. This example is set up to plot \+
81 data points. The " }}{PARA 0 "" 0 "" {TEXT -1 95 "command display([
seq(gf[j],j=init_step..fin_step)],insequence=true); below will animate
 through" }}{PARA 0 "" 0 "" {TEXT -1 14 "the data sets." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "init_step := 0;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "step_size := 5;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "fin_step := 50;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "num_data := 81;" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 48 "for j from init_step by step_size to fin_step do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "  str := sprintf(\"%s%5.5d\",densty
,j);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "  w := readdata(str):" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 58 "  gf[j] := listplot([seq(w[k],k=1..
num_data)],color=blue):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 60 "display([seq(gf[j],j=init_step..fin_step)],insequence
=true);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 \+
0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }