#
# Fourier series animations.
# The animation runs over the number of terms in a series of type
# A<-1%1+2*N<-i$NT; B<-0; Y<-+/(B*1oN*X)++/(A*2oN*X)
# NT, the number of terms will have a value to be substituted before
# the expression is passed to PLOT_FN
#
"FSUM.OPTS"
-lut LUT<-SHIFT |color lut
-size SZ<-SHIFT |size
-range XR<-SHIFT |range of x
-o OFILE<-SHIFT |output file
-d DELAY<-SHIFT |.gif frame delay
-tname TN<-SHIFT |temporary files
-expr EXPR<-SHIFT |(no space) encoded expression
-v QV<-1 |verbose
Z<-GEN_TSUM STR;DELAY;EXPR;FN;LUT;N;NT;LST;OFILE;SIZE;STYLE;RANGE;QV;TN
|Animated gif for trig. sum
OFILE<-""; QV<-0
SIZE<-"600x200"; RANGE<-"-7,7"; TN<-"fss000.xpm"; DELAY<-"15"; LUT<-".F"
EXPR<-"(1oN*X)%N<-1+2*i$NT"
STR<-FSUM.OPTS GETOPTS STR
LST<-""
WHILE NT<-SHIFT
LST<-LST," ",TN
STYLE<-"-p -o ",TN," -size ",SIZE, " -lut ",LUT, " -range ", RANGE
FN<-SUBS_VARS "/%20/ /*" #rxsubs EXPR
"expr = ", FN
PLOT_FN STYLE," ",FN
TN<-INC_DIGITS TN
WEND
|make multiframe .gif
0 r #cmd"convert -delay ",DELAY," ",LST," ",Z<-OFILE
Z<-FSS_LIST;N;X
|Make list of form (image name)*
Z<-""
GEN_TSUM"-d 5 -o covernsq.gif -lut .3 -expr Y<-+/(2oX*N)%N*N<-1+i$NT 1 2 3 5 8 13 21 34 55 89 144 233"
Z<-Z,"\covernsq.gif violin"
GEN_TSUM"-d 5 -o sovernsq.gif -lut .3 -expr Y<-+/(1oX*N)%N*N<-1+i$NT 1 2 3 5 8 13 21 34 55 89 144 233"
Z<-Z,"\sovernsq.gif violin"
GEN_TSUM"-d 5 -o altpulse.gif -lut .3 -expr ""Y<-+/(1 _1[NT #mod 2])*(1oX*N)%N<-1+iNT<-$NT"" 1 2 3 5 8 13 21 34"
Z<-Z,"\altpulse.gif alternating odd"
GEN_TSUM"-d 5 -o cospulse.gif -lut .3 -expr Y<-+/(2oX*N)%N<-1+2*i$NT 1 2 3 5 8 13 21 34"
Z<-Z,"\cospulse.gif squarewave"
GEN_TSUM"-d 5 -o altsum-n.gif -lut .3 -expr Y<-+/(_1%201[N%20#mod%202])*(1oX*N)%N<-1+i$NT 1 2 3 5 8 13 21 34"
Z<-Z,"\altsum-n.gif untitled"
GEN_TSUM"-d 5 -o sawtooth.gif -lut .3 -expr Y<-+/(1oX*N)%N<-1+i$NT 1 2 3 5 8 13 21 34"
Z<-Z,"\sawtooth.gif violin"
GEN_TSUM"-d 5 -o pulse.gif -lut .3 -expr Y<-+/(1oX*N)%N<-1+2*i$NT 1 2 3 5 8 13 21 34"
Z<-Z,"\pulse.gif squarewave"
Z<-FSS_HTML
Z<-0 r 0 #sed "X:d;$fsa.htm;:u fsa.htm"
Z<-0 r 0 #sed "X:d;$fsadesc.htm;:u fsadesc.htm"
Z<-0 r 0 #sed "X:d;$fslist.htm;:u fslist.htm"
"fsa.htm" << EOF
$TITLE
EOF
"fsadesc.htm" << EOF
WAVEFORM ANIMATION
These are images are meant to look like an old fashioned oscilloscope
EOF
"fslist.htm" << EOF
$TITLE
EOF