[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     ! 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.