n*.KB H plota plot b;c;d;f;g;h;i;j;l;t;y;hz;nb;vt;pt;st;isv;u pc { 'O*JGHL' hs{0 st { 1 2 5 sm { 5 10 }((0=X/(2Ra),Rb), 3 2 1nb { nbX10*u-st[6-isv] { i { 1+S/D10*O|(nb#0)/nb pt { D1+10|pt-1|pt { 0.00001+(|nb)J.%10*`1+O|Iu l { u+1-(O|((c { Rnb)R1)^.=pt)I0 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 } xpl1,Rst[4-isv] { i { 1 }pl3,Rnb{sm[1+~isv]X`1+Ic pt { (-vt+0S1-i)O|pt pt { (,pt)Xj { ,O\(O|Rpt)R(,O\(1#pt)V.^(Iu)J.$IvtSi-1),(cXu+1-i { vt+iSi$0)R1 }(~vt)/xpl2 pt[(u-+/(c,u)Rj)+uX`1+Ic] { 11Xnb<0 xpl2: pt { (~(Iu+j)E(i+j),I`1+j { u-t)\(1 0+c,u)Rpt,uR0 pt[Ic;i+j] { 12 pt { ' 0123456789`.'[1+pt[;Iu-1]] }(~isv)/pl6 l { 1,h[2]R0Xc { h[1] pl4:l { (lXhsXc#0)S1,h[2]R0 l[1+(d#0)/b[;1]] { (d#0)/d { (c=b[;y])S.Xy }(c#0)/pl5 l { lS0=(sm[2]%2)|0,Ih[2] pl5: pt[((Rpt)[1],1+c%sm[1])[1+0=sm[1]|c];],(' |',(Ry)Rpc)[1+l] }(0$c { c-1)/pl4 }(u=u { sm[2]-~isv { ~RRnb { ,hz)/pl3 pl6:(sm[2]-9)O|(,(0 0 ,(u-1)R1)\pt),' ' xpl3: }(st[1 3 2 4],1)/1 3 5 7 10 + xpl3 'origin and scale factor for ordinate: ',NJg[1],%f[1] }(0=st[3])/xpl4 'scale factor for ordinate: ',NJ10*st[5]-1 xpl4: }(0=st[2])/xpl5 'origin and scale factor for abscissa: ',NJg[2]%f[2] xpl5: }(0=st[4])/0 'scale factor for abscissa: ',NJ10*st[6]-1 }0 pl7: 'the right argument of plot must have rank $ 3.' hssm$A Bxx$BC vsm { a vs b }((1