![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to graph2ws 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 graph2ws 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](5 0+0Sj-3|i) JN(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 { (5 0+S/0,j-D10O*|a+1e`8>|a) NJ((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
x � nd �@ A @A �A �A �A �A B B B 0B @B PB `B pB �B �B �B �B �B w |
�@ �@ �@ �@ @A @A @A @A �A �A �A �A B z � �A �A �A B B B B B (B 0B 8B @B HB PB XB `B hB pB xB �B y � �@ A @A �A �A �A �A B B B 0B @B PB `B pB �B �B �B �B �B 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
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.