up [pdf]
from rsf.proj import *

Flow('t0',None,'spike n1=1001 d1=0.001 unit1="s" label1="Time" ')
Flow('t1','t0','math output=x1')

for n in range(2,11):
    Flow('t%d' % n,['t%d' % (n-1),'t%d' % (n-2)],
         'math t2=${SOURCES[1]} output="2*x1*input-t2" ')

title='\s100 \F11 Polinom CHebysheva ' + \
    '\c3 \F3 T\_\s75 n\^\s100 (cos \F10 q) = \F3 cos n\F10 q'

Result('t10','graph grid=y gridcol=5 pad=n title="%s" ' % title)

plots = {'def':'Default',
         'par':'parallel2=n',
         'man':'parallel2=n n2tic=3 o2num=-1 d2num=1',
         'for':'parallel2=n format2=%3.1f',
         'fnt':'parallel2=n format2=%3.1f font=2'}

for plot in plots.keys():
    Plot(plot,'t10','graph title="\s75 %s" %s' % tuple([plots[plot],]*2))

Result('def','def par man for','TwoRows')

Result('geo','def fnt','OverUnderIso')

Flow('x',None,'math n1=50 output=x1')
Flow('y','x','math output=x1^2')
Flow('z zbar','x','byte allpos=y bar=${TARGETS[1]}')

Result('xyz','x y z',
       '''
       cmplx ${SOURCES[1]} |
       graph depth=${SOURCES[2]} symbol=o symbolsz=8 color=h
       title="Colored Symbols" scalebar=y
       ''')

End()

sfspike
sfmath
sfgraph
sfbyte
sfcmplx