![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to graphws CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib|
Return to graphws CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib |
BSD 4.3
n� �*.KB� H graph g { graph x;a;al;b;c;i;j;k;l;m;sh;ra;se;sf;t;w;xl
}((RRx)=I4)/ 3 4 5 7
}0,RL { 'Incorrect Data Format'
x { (2,Rx)R(IRx),x
x { (1,Rx)Rx
xl { (Rx)R1
}9
xl { x[2;;;]^1
x { x[1;;;]
ra { Ra{x[1;1;]
al { raRacon,((I0)R0=R,acon)/xl[1;1;]
x[;j{1;] { x[;2;]
xl { xl^(x&D/clip)^x$S/clip
here: }(0=sswitch)R4+here
se { D10O*(i=0)+i{2X((se=0)+se{(S/(,xl)/,x)-c{D/(,xl)/,x)%qsize
sf { ((i< 2 4 10 M10*se)/ 1 2 5)[1]
sdata { sf,se,or{c-(sfM10*se+1)|c
x { (x%i)-or{sdata[3]%i{(sf{sdata[1])M10*se{sdata[2]
x { Dx+0.5
x { O|[1] 2 1 3 O\O|[1] 0 1 0 Ux
m { 10MS0.1MS/S/S/x{xMxl{(O|[1] 2 1 3 O\O|[1] 0 1 0 Uxl)Mx&0
a { a-(10*i)|a{a+0.5M10*i{1+(D10O*|a+a=0)-j{3+D10O*S/1,|a%S/a-D/a
b { al\[1] al/[1](0Sj-3|i) dft(ra,1)Ra%10*l{3MD(i{1+D10O*D/|a+a=0)%3
b[;1] { raRatitle,raR' '
b { (0,2M0=R,atitle)Ub
l { (l#0)/'(M10*',((l<0)/'-'),'0123456789'[1+((1+10$|l)R10)N|l],')'
a { (sfM(or%10)+0,Im%10)M10*`1+3|se+2
a { a-(10*i)|a{a+0.5M10*i{(D10O*|a+a=0)-j{1+D10O*S/1,|a%S/a-D/a
a { (S/0,j-D10O*|a+1e`8>|a) dft((1+m%10),1)Ra
b { 1O|(((S/(-(Rb)[2])+ `3 1 2 +w{(Ra)[2],(Rb)[2],Rl)R0),(Rb)[2]R1)\b
g { title,car,((S/w- 5 1 0 +w[3])R' '),l,' \',(6R' '),otitle,5R' '
c { 3MD(2+se)%3
g { g,(c#0)/'(M10*',((c<0)/'-'),'0123456789'[1+((1+10$|c)R10)N|c],')'
g { g,car,((S/w+ 0 4 5 -w[1])R' '),,((w[1]R1),(10-w[1])R0)\2O|a
w { ' |',(Rx)[1]Rsymbols
a { ,(Rx)[2 1]RO|I(Rx)[c{1]
here2: }(Rj{rswitchRcar)R2+here2
g { 0RL{g
l { 2,(S/(mMc=1,ra),S/x[;;c])R1
l[1+(cV.=1,ra)M10MIm%10] { 2
l[1+i/,x[;;c]] { 2+(i{,xl[;;c])/a
g { g,j,b[c;],w[l]
here3: }(ra&c{c+1)Rrswitch+`5+here3
g { g,car
here4: }((i{0)=Rl{legend)R5+here4
g { g,car,(' ',(Rx)[1]Rsymbols)[i{i+1],' ',(`1+b{lIcar)Rl
l { (bDRl)Ul
here5: }((Rx)[1]&i)R`2+here5
g { g,car
}rswitchR0
g { 0RL{g
dft z { w dft x;d;e;f;g;h;i;j;k;l;y
d { ' 0123456789.`'
}(V/w#Dw{,w+(h{0)Ml{1<RRx)/dfterr+0Mf{2
hr1: }(3 2 1 <RRx)/(dfterr+f{0), 2 3 +hr1
hr2: }(RRRx{((V/ 1 2 =Rw)O| 1 2)O\(1,R,x)Rx)/2+hr2
x { (0 1 1 /Rx)Rx
hr3: }((^/(Rw)# 1 2 ,2Me{1RO|Rx),1#Rw)/(dfterrMf{1),3+hr3
i { 1+S/0,,D10O*|x+1>|x
w { (2+i+w+(w#0)+V/,x<0),w
}(V/2>-/[1] w{O\(e,2)Rw)/dfterr+0Mf{2
z { ((k{1RRx),+/w[1;])R' '
x { j-1|j{0.5+xM10*(Rx)Rw[2;]
dftlp: }(e<h{h+1)/dftend
j { 1 + O\ ((i{w[1;h])R10)N |y{x[;h]
j { (,j)Mg{,O\(O|Rj)R(,O\(j#1)V.^(Ii)J.$Ii-f+1),(kM1+f{w[2;h])R1
hr4: }(^/0$y)/2+hr4
j[(i-+/(k,i)Rg)+iM`1+Ik]{12My<0
j { (k,i)Rj
hr5: }(0=f)/3+hr5
j { j[;(1O|Ig),(g{-/w[;h])+If]
j[;g] { 11
}dftlpMRRRz[;(+/w[1;Ih-1])+Ii]{d[1+j]
dftend: }l/0
}0MRz{,z
dfterr: 'dft ',(3 6 R' rank lengthdomain')[f+1;],' problem.'
z � �A �A �A B B B B B (B 0B 8B @B HB PB XB `B hB pB xB �B w |
�@ �@ �@ �@ @A @A @A @A �A �A �A �A B x � �@ A @A �A �A �A �A B B B 0B @B PB `B pB �B �B �B �B �B d < �@ A @A �A �A y � �@ A @A �A �A �A �A B B B 0B @B PB `B pB �B �B �B �B �B
dft2 z { w dft2 x;d;e;f;g;h;i;j;k;y
L{d { ' 0123456789.`'
}(V/w#Dw{,w+(h{0)Ml{1<RRx)/dfterr+0Mf{2
hr1: }(3 2 1 <RRx)/(dfterr+f{0), 2 3 +hr1
hr2: }(RRRx{((V/ 1 2 =Rw)O| 1 2)O\(1,R,x)Rx)/2+hr2
L{x { (0 1 1 /Rx)Rx
hr3: }((^/(Rw)# 1 2 ,2Me{1RO|Rx),1#Rw)/(dfterrMf{1),3+hr3
L{i { 1+S/0,,D10O*|x+1>|x
L{w { (2+i+w+(w#0)+V/,x<0),w
}(V/2>-/[1] w{O\(e,2)Rw)/dfterr+0Mf{2
L{z { ((k{1RRx),+/w[1;])R' '
L{x { j-1|j{0.5+xM10*(Rx)Rw[2;]
dftlp: }(e<h{h+1)/dftend
L{j { 1+10|j-1|j{(|y{x[;h])J.%10*`1+O|Ii{w[1;h]
L{j { (,j)Mg{,O\(O|Rj)R(,O\(j#1)V.^(Ii)J.$Ii-f+1),(kM1+f{w[2;h])R1
hr4: }(^/0$y)/2+hr4
L{j[(i-+/(k,i)Rg)+iM`1+Ik]{12My<0
L{j { (k,i)Rj
hr5: }(0=f)/3+hr5
L{j { j[;(1O|Ig),(g{-/w[;h])+If]
L{j[;g] { 11
dftlpMRRRz[;(+/w[1;Ih-1])+Ii]{d[1+j]
dftend: }l/0
}0MRz{,z
dfterr: 'dft ',(3 6 R' rank lengthdomain')[f+1;],' problem.'
qsize �C acon �@ sswitch �@ sdata , �A �� rswitch title graph1 atitle abscissa otitle ordinate symbols *LO+ clip $ �� �C legend or car
and r { a and b
r { a,((Rb),1)Rb
lst r { lst fn ;tttt;nnnn
tttt { Lcr fn
nnnn { 1YRtttt
r { ((nnnn,1)R'['),0 1U(B(nnnn,1)R((Innnn)-I1)),((nnnn,3)R'] '),tttt
Llx C / / L{'graphws2 is a new faster version of graphws'
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.