Return to graphws CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib

Annotation of 43BSD/contrib/apl/lib/graphws, revision 1.1

1.1     ! root        1: n��*.KB�&       H graphg { graph x;a;al;b;c;i;j;k;l;m;sh;ra;se;sf;t;w;xl
        !             2: }((RRx)=I4)/ 3 4 5 7
        !             3: }0,RL { 'Incorrect Data Format'
        !             4: x  { (2,Rx)R(IRx),x
        !             5: x  { (1,Rx)Rx
        !             6: xl { (Rx)R1
        !             7: }9
        !             8: xl { x[2;;;]^1
        !             9: x  { x[1;;;]
        !            10: ra { Ra{x[1;1;]
        !            11: al { raRacon,((I0)R0=R,acon)/xl[1;1;]
        !            12: x[;j{1;] { x[;2;]
        !            13: xl { xl^(x&D/clip)^x$S/clip
        !            14: here: }(0=sswitch)R4+here
        !            15: se { D10O*(i=0)+i{2X((se=0)+se{(S/(,xl)/,x)-c{D/(,xl)/,x)%qsize
        !            16: sf { ((i< 2 4 10 M10*se)/ 1 2 5)[1]
        !            17: sdata { sf,se,or{c-(sfM10*se+1)|c
        !            18: x { (x%i)-or{sdata[3]%i{(sf{sdata[1])M10*se{sdata[2]
        !            19: x { Dx+0.5
        !            20: x { O|[1] 2 1 3 O\O|[1] 0 1 0 Ux
        !            21: m { 10MS0.1MS/S/S/x{xMxl{(O|[1] 2 1 3 O\O|[1] 0 1 0 Uxl)Mx&0
        !            22: a { a-(10*i)|a{a+0.5M10*i{1+(D10O*|a+a=0)-j{3+D10O*S/1,|a%S/a-D/a
        !            23: b { al\[1] al/[1](0Sj-3|i) dft(ra,1)Ra%10*l{3MD(i{1+D10O*D/|a+a=0)%3
        !            24: b[;1] { raRatitle,raR' '
        !            25: b { (0,2M0=R,atitle)Ub
        !            26: l { (l#0)/'(M10*',((l<0)/'-'),'0123456789'[1+((1+10$|l)R10)N|l],')'
        !            27: a { (sfM(or%10)+0,Im%10)M10*`1+3|se+2
        !            28: a { a-(10*i)|a{a+0.5M10*i{(D10O*|a+a=0)-j{1+D10O*S/1,|a%S/a-D/a
        !            29: a { (S/0,j-D10O*|a+1e`8>|a) dft((1+m%10),1)Ra
        !            30: b { 1O|(((S/(-(Rb)[2])+ `3 1 2 +w{(Ra)[2],(Rb)[2],Rl)R0),(Rb)[2]R1)\b
        !            31: g { title,car,((S/w- 5 1 0 +w[3])R' '),l,' \',(6R' '),otitle,5R' '
        !            32: c { 3MD(2+se)%3
        !            33: g { g,(c#0)/'(M10*',((c<0)/'-'),'0123456789'[1+((1+10$|c)R10)N|c],')'
        !            34: g { g,car,((S/w+ 0 4 5 -w[1])R' '),,((w[1]R1),(10-w[1])R0)\2O|a
        !            35: w { ' |',(Rx)[1]Rsymbols
        !            36: a { ,(Rx)[2 1]RO|I(Rx)[c{1]
        !            37: here2: }(Rj{rswitchRcar)R2+here2
        !            38: g { 0RL{g
        !            39: l { 2,(S/(mMc=1,ra),S/x[;;c])R1
        !            40: l[1+(cV.=1,ra)M10MIm%10] { 2
        !            41: l[1+i/,x[;;c]] { 2+(i{,xl[;;c])/a
        !            42: g { g,j,b[c;],w[l]
        !            43: here3: }(ra&c{c+1)Rrswitch+`5+here3
        !            44: g { g,car
        !            45: here4: }((i{0)=Rl{legend)R5+here4
        !            46: g { g,car,(' ',(Rx)[1]Rsymbols)[i{i+1],'  ',(`1+b{lIcar)Rl
        !            47: l { (bDRl)Ul
        !            48: here5: }((Rx)[1]&i)R`2+here5
        !            49: g { g,car
        !            50: }rswitchR0
        !            51: g { 0RL{g
        !            52: 
        !            53: dftz { w dft x;d;e;f;g;h;i;j;k;l;y
        !            54: d { ' 0123456789.`'
        !            55: }(V/w#Dw{,w+(h{0)Ml{1<RRx)/dfterr+0Mf{2
        !            56: hr1: }(3 2 1 <RRx)/(dfterr+f{0), 2 3 +hr1
        !            57: hr2: }(RRRx{((V/ 1 2 =Rw)O| 1 2)O\(1,R,x)Rx)/2+hr2
        !            58: x { (0 1 1 /Rx)Rx
        !            59: hr3: }((^/(Rw)# 1 2 ,2Me{1RO|Rx),1#Rw)/(dfterrMf{1),3+hr3
        !            60: i { 1+S/0,,D10O*|x+1>|x
        !            61: w { (2+i+w+(w#0)+V/,x<0),w
        !            62: }(V/2>-/[1] w{O\(e,2)Rw)/dfterr+0Mf{2
        !            63: z { ((k{1RRx),+/w[1;])R' '
        !            64: x { j-1|j{0.5+xM10*(Rx)Rw[2;]
        !            65: dftlp: }(e<h{h+1)/dftend
        !            66: j { 1 + O\ ((i{w[1;h])R10)N |y{x[;h]
        !            67: j { (,j)Mg{,O\(O|Rj)R(,O\(j#1)V.^(Ii)J.$Ii-f+1),(kM1+f{w[2;h])R1
        !            68: hr4: }(^/0$y)/2+hr4
        !            69: j[(i-+/(k,i)Rg)+iM`1+Ik]{12My<0
        !            70: j { (k,i)Rj
        !            71: hr5: }(0=f)/3+hr5
        !            72: j { j[;(1O|Ig),(g{-/w[;h])+If]
        !            73: j[;g] { 11
        !            74:  }dftlpMRRRz[;(+/w[1;Ih-1])+Ii]{d[1+j]
        !            75: dftend: }l/0
        !            76:  }0MRz{,z
        !            77: dfterr: 'dft ',(3 6 R' rank lengthdomain')[f+1;],' problem.'
        !            78: &z�&&�A�A�ABBBB B(B0B8B@BHBPBXB`BhBpBxB�B&w|&&

�@�@�@�@@A@A@A@A�A�A�A�AB&x�&&�@A@A�A�A�A�ABB B0B@BPB`BpB�B�B�B�B�B&d<&&�@A@A�A�A&y�&&�@A@A�A�A�A�ABB B0B@BPB`BpB�B�B�B�B�B
        !            79: dft2z { w dft2 x;d;e;f;g;h;i;j;k;y
        !            80: L{d { ' 0123456789.`'
        !            81: }(V/w#Dw{,w+(h{0)Ml{1<RRx)/dfterr+0Mf{2
        !            82: hr1: }(3 2 1 <RRx)/(dfterr+f{0), 2 3 +hr1
        !            83: hr2: }(RRRx{((V/ 1 2 =Rw)O| 1 2)O\(1,R,x)Rx)/2+hr2
        !            84: L{x { (0 1 1 /Rx)Rx
        !            85: hr3: }((^/(Rw)# 1 2 ,2Me{1RO|Rx),1#Rw)/(dfterrMf{1),3+hr3
        !            86: L{i { 1+S/0,,D10O*|x+1>|x
        !            87: L{w { (2+i+w+(w#0)+V/,x<0),w
        !            88: }(V/2>-/[1] w{O\(e,2)Rw)/dfterr+0Mf{2
        !            89: L{z { ((k{1RRx),+/w[1;])R' '
        !            90: L{x { j-1|j{0.5+xM10*(Rx)Rw[2;]
        !            91: dftlp: }(e<h{h+1)/dftend
        !            92: L{j { 1+10|j-1|j{(|y{x[;h])J.%10*`1+O|Ii{w[1;h]
        !            93: L{j { (,j)Mg{,O\(O|Rj)R(,O\(j#1)V.^(Ii)J.$Ii-f+1),(kM1+f{w[2;h])R1
        !            94: hr4: }(^/0$y)/2+hr4
        !            95: L{j[(i-+/(k,i)Rg)+iM`1+Ik]{12My<0
        !            96: L{j { (k,i)Rj
        !            97: hr5: }(0=f)/3+hr5
        !            98: L{j { j[;(1O|Ig),(g{-/w[;h])+If]
        !            99: L{j[;g] { 11
        !           100:  dftlpMRRRz[;(+/w[1;Ih-1])+Ii]{d[1+j]
        !           101: dftend: }l/0
        !           102:  }0MRz{,z
        !           103: dfterr: 'dft ',(3 6 R' rank lengthdomain')[f+1;],' problem.'
        !           104: &qsize&&�C&acon&&�@&sswitch&&�@&sdata,&&�A��&rswitch&&&title&graph1&atitle&abscissa&otitle&ordinate&symbols&*LO+&clip$&&���C&legend&&&or&&&car&
        !           105: 
        !           106: andr { a and b
        !           107: r { a,((Rb),1)Rb
        !           108:       lstr { lst fn ;tttt;nnnn
        !           109: tttt { Lcr fn
        !           110: nnnn { 1YRtttt
        !           111: r { ((nnnn,1)R'['),0 1U(B(nnnn,1)R((Innnn)-I1)),((nnnn,3)R']  '),tttt
        !           112: &LlxC&  //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.