![[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 |
1.1 root 1: n� �*.KB�& H graph g { 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: dft z { 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 �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
79: dft2 z { 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: and r { a and b
107: r { a,((Rb),1)Rb
108: lst r { 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: & 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.