[BACK]Return to plotws CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib

Annotation of 43BSD/contrib/apl/lib/plotws, revision 1.1.1.1

1.1       root        1: n��*.KB�&       H
                      2: plota plot b;c;d;f;g;h;i;j;l;t;y;hz;nb;vt;pt;st;isv;u
                      3: pc { 'O*JGHL'
                      4: hs{0
                      5: st { 1 2 5
                      6: sm { 5 10
                      7: }((0=X/(2Ra),Rb), 3 2 1<RRb)/0,pl7,pl1,pl2
                      8: }pl2,Rb{O\(2,d)R(Id{R,b),b
                      9: pl1: b{b[1;;]
                     10: pl2: y{1+I(Rb)[2]-1
                     11: c{((S/S/b[;y])-D/D/b[;y]),(S/b[;1])-D/b[;1]
                     12: f { |(2Ra)%c+(c=0)Xb[1;2 1]+b[1;2 1]=0
                     13: f { (st[+/(0.0001+fX10*-g)J.&st])X10*g{D10O*f
                     14: g{ (sm%f)XD((D/D/b[;y]),D/b[;1])Xf%sm{16DsmS1 4
                     15: b[;1]{D0.5+f[2]Xb[;1]-g[2]
                     16: b[;y]{D0.5+f[1]Xb[;y]-g[1]
                     17: h { smXS((S/S/b[;y]),S/b[;1])%sm
                     18: nb { g[1]+(sm[1]%f[1])X0,Ih[1]%sm[1]
                     19: hz { g[2]+(sm[2]%f[2])X0,Ih[2]%sm[2]
                     20: 0Rst{6R~isv { 1#u { 9
                     21: pl3:vt { V/0>nb { nbX10*u-st[6-isv] { i { 1+S/D10*O|(nb#0)/nb
                     22: pt { D1+10|pt-1|pt { 0.00001+(|nb)J.%10*`1+O|Iu
                     23: l { u+1-(O|((c { Rnb)R1)^.=pt)I0
                     24: xpl1:}((u>t { vt+S/i,(l+l#i),(i$0)X2+l-i),st[2-isv] { st[2-isv]Vl&u-vt+l>i)/3 2+xpl1
                     25: } xpl1,Rst[4-isv] { i { 1
                     26: }pl3,Rnb{sm[1+~isv]X`1+Ic
                     27: pt { (-vt+0S1-i)O|pt
                     28: pt { (,pt)Xj { ,O\(O|Rpt)R(,O\(1#pt)V.^(Iu)J.$IvtSi-1),(cXu+1-i { vt+iSi$0)R1
                     29: }(~vt)/xpl2
                     30: pt[(u-+/(c,u)Rj)+uX`1+Ic] { 11Xnb<0
                     31: xpl2: pt { (~(Iu+j)E(i+j),I`1+j { u-t)\(1 0+c,u)Rpt,uR0
                     32: pt[Ic;i+j] { 12
                     33: pt { ' 0123456789`.'[1+pt[;Iu-1]]
                     34: }(~isv)/pl6
                     35: l { 1,h[2]R0Xc { h[1]
                     36: pl4:l { (lXhsXc#0)S1,h[2]R0
                     37: l[1+(d#0)/b[;1]] { (d#0)/d { (c=b[;y])S.Xy
                     38: }(c#0)/pl5
                     39: l { lS0=(sm[2]%2)|0,Ih[2]
                     40: pl5: pt[((Rpt)[1],1+c%sm[1])[1+0=sm[1]|c];],(' |',(Ry)Rpc)[1+l]
                     41: }(0$c { c-1)/pl4
                     42: }(u=u { sm[2]-~isv { ~RRnb { ,hz)/pl3
                     43: pl6:(sm[2]-9)O|(,(0 0 ,(u-1)R1)\pt),' '
                     44: xpl3: }(st[1 3 2 4],1)/1 3 5 7 10 + xpl3
                     45: 'origin and scale factor for ordinate: ',NJg[1],%f[1]
                     46: }(0=st[3])/xpl4
                     47: 'scale factor for ordinate: ',NJ10*st[5]-1
                     48: xpl4: }(0=st[2])/xpl5
                     49: 'origin and scale factor for abscissa: ',NJg[2]%f[2]
                     50: xpl5: }(0=st[4])/0
                     51: 'scale factor for abscissa: ',NJ10*st[6]-1
                     52: }0
                     53: pl7: 'the right argument of plot must have rank $ 3.'
                     54: &hs&&&sm$&&���A B&xx$&&�B�C
                     55: vsm { a vs b
                     56: }((1<RRb)V2<RRa)Ul1
                     57: 'an argument of vs is of improper rank'
                     58: }0
                     59: l1:b{(((1Y(Ra),1),Rb)[(BN29)+1#Rb],1)Rb{,b
                     60: m { (1,Rm)Rm{b,a
                     61: 
                     62: andr { a and b
                     63: r { a,((Rb),1)Rb
                     64: &pc&O*JGHL&        describe3&sc'type ''describe'' for details'edtxt edtxt;fd;name;vr;r
                     65: L'{'variable name? '
                     66: name { L'
                     67: fd { 390 Lcreat 'apltxt.tmp'
                     68: }(fd < 0)/error
                     69: r  { fd Lwrite BJ name
                     70: fd { Lclose fd
                     71: Lrun 'xed apltxt.tmp'
                     72: fd { 260 Lopen 'apltxt.tmp'
                     73: }(fd<0)/error
                     74: vr { ''
                     75: more: vr { vr,r { fd Lread 256
                     76: } (0#Rr)/more
                     77: fd { Lclose fd
                     78: r { BJ name,' { vr'
                     79: Lrun 'rm apltxt.tmp'
                     80: }0
                     81: error: 'Can''t open file: apltxt.tmp'
                     82: &Llx-&  type describe for details
unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.