apl>" <-APL2-------------------- sam303.txt ---------------------------->


apl>)run cap2/sample/graph.inc


apl>" <-APL2-------------------- graph.txt ----------------------------->


apl>" Legend describing various global values:


apl>"


apl>" World coordinates(wc) are those of the real data.


apl>" Graph coordinates(gc) are those of the graph.


apl>"


apl>" caption - Override to text for graph caption.  If null, a caption


apl>"           will be generated.  The graph function resets the global


apl>"           caption variable to null at the end of its processing.


apl>"


apl>" hk ------ Constant coefficient of input.  If xr=1 (see below) then


apl>"           hk becomes the constant imaginary coefficient for all


apl>"           values of x on the graph.  If xr=0, hk will be the constant


apl>"           real coefficient.


apl>"


apl>" htl ----- 0 = both, 1 = headers, 2 = trailers, 3 = neither.


apl>"


apl>" maxx ---- Maximum x axis value in world coordinates.


apl>"


apl>" maxy ---- Maximum y axis value in world coordinates.


apl>"


apl>" minx ---- Minimum x axis value in world coordinates.


apl>"


apl>" miny ---- Minimum y axis value in world coordinates.


apl>"


apl>" mgc ----- Vertical margin in graphic coordinates.


apl>"


apl>" n ------- Synonymous with hk (see above).  The x values to which


apl>"           the function is applied to obtain y values are derived


apl>"           by first creating xwc as a vector of integers uniformly


apl>"           distributed between minx and maxx inclusive.  Then, either


apl>"           'x#(nX0j1)+xwc' or 'x#n+0j1Xxwc' is evaluated.


apl>"


apl>" nlb ----- 1 = Label the curve with the n value.


apl>"


apl>" points -- Number of points to generate.


apl>"


apl>" xgc ----- Array of x values for data points in graph coordinates.


apl>"


apl>" xiv ----- x axis marker interval in world coordinates.


apl>"


apl>" xlin ---- Width of graph in inches.


apl>"


apl>" xpg ----- Divide xwc by xpg to get xgc.


apl>"


apl>" xpi ----- Array of three values for minx, maxx, and xiv, used when


apl>"           invoking the graph function and the array of x values


apl>"           spans -pi to +pi.


apl>"


apl>" xr ------ 1=vary real x coefficient, 0=vary imaginary coefficient,


apl>"           holding the other coefficient to the constant hk (see above.).


apl>"


apl>" xt ------ Used in a variety of places to temporarily generate


apl>"           graphics coordinates.


apl>"


apl>" xwc ----- Array of x values in world coordinates.


apl>"


apl>" yadj ---- Adjustment down to print text below a line.


apl>"


apl>" yabm ---- Maximum absolute value (|y) to appear on graph.


apl>"


apl>" ygc ----- Array of y values for data points in graph coordinates.


apl>"


apl>" ylin ---- Height of graph in inches.


apl>"


apl>" ymgn ---- Margin in inches at top and bottom of y axis.


apl>"


apl>" ypg ----- Divide ywc by ypg to get ygc.


apl>"


apl>" yt ------ Used in a variety of places to temporarily generate


apl>"           graphics coordinates.


apl>"


apl>" ywc ----- Array of y values for data points in world coordinates.


apl>"


apl>" Set global values. -------------------------------------------->


apl>"


apl>caption#'' " Empty caption causes one to be generated.


apl>i#11 " Circle function code to extract imag. coef. of complex number.


apl>points#200 " Number of data points to generate on graph.


apl>r#9 " Circle function code to extract real coef. of complex number.


apl>xlin#4.5 " Width of graph in inches.


apl>"  minx = -3.14159....


apl>"  |     maxx = 3.14159....


apl>"  |     |     xiv


apl>"  |     |     |


apl>"  V     V     V


apl>xpi#(O-1),(O1),O.25


apl>ylin#6 " Height of graph in inches.


apl>ymgn#.2 " Margin in inches at top and bottom of y axis.


apl>"


apl>" <----------------------------------------------------------------->


apl>" Generates the LaTeX \put statements for the data points to appear


apl>" on the graph.


apl>"


apl>Lex 'dodata'

1

apl>Gdodata


[1]       xgc#(xwc_minx)%xpg " xgc=x graphic coordinates for data points.


[2]       ygc#mgc+(ywc_miny)%ypg " ygc=y graphic coordinates for data points.


[3]       $bylabXI0=nlb " Branch if the curve is not to be labelled.


[4]       '%Label the curve'


[5]       xt#1Y(u=S/u#|ywc)/xgc " x coord where maximum/mininum occurs


[6]       yt#(_yadjX0>vs/ywc)+(vs#xt=xgc)/ygc " y coord of maximum/minimum


[7]       " Note: Calculation for yt works only if all minima occur below


[8]       " y axis, and all maxima occur above.


[9]       pcon,(xt,',',[1.5]yt),`Z'){n\#',(Fhk),'}'


[10]      bylab:'%Draw the data points'


[11]      pcon,((xgc#-1U1Uxgc),',',[1.5](ygc#-1U1Uygc)),circon


[12]      G


apl>" <----------------------------------------------------------------->


apl>" Generate xwc and ywc, the arrays of x/y coordinates for the data


apl>" points to appear on the graph.


apl>"


apl>Lex 'genxy'

1

apl>Ggenxy


[1]       xwc#minx+(xlwc#maxx_minx)X(-1+Ipoints+1)%points


[2]       $varyrealXIxr


[3]       x#hk+0j1Xxwc " real part is constant, imaginary varies.


[4]       $calcy " Branch to compute values of y for data points.


[5]       varyreal:x#(hkX0j1)+xwc " Imaginary is constant, real varies.


[6]       calcy:ywc#eOCfun " Compute values of y for data points


[7]       ywcm#yabm>|ywc " Mask of keepers, magnitudes of y < yabm.


[8]       xwc#ywcm/xwc " Pick the keepers.


[9]       ywc#ywcm/ywc " Pick the keepers.


[10]      G


apl>"


apl>" <----------------------------------------------------------------->


apl>" Main graph routine.


apl>"


apl>Lex 'graph'

1

apl>Gfun graph a


[1]       "Graphs the imaginary or real coefficient of result of fun.


[2]       " fun = expression to evaluate.


[3]       (htl nlb xr e yabm minx maxx xiv hk yiv yca)#a


[4]       genxy " Generate the data points.


[5]       $dataXIhtl>1 " Branch if htl greater than 1.


[6]       scale " Calculate global scaling values.


[7]       headers " Generate LaTeX figure headers.


[8]       data:dodata " Process and graph data points.


[9]       trailers " Generate Latex figure trailers, maybe.


[10]      G


apl>"


apl>" <----------------------------------------------------------------->


apl>" Generates the LaTeX statements to begin the graph.


apl>"


apl>Lex 'headers'

1

apl>Gheaders


[1]       '\begin{figure}[tbh]'


[2]       $gencapXI0=Rcaption " Branch if no caption override.


[3]       '\caption{',caption,'}'


[4]       $begin


[5]       gencap:$realcapXI(xr=1)&hk=0 " Branch if x data are not complex.


[6]       $ncaptionXInlb=0 " Branch if curves are not labelled with n value.


[7]       '\caption{Graph of y\#',(Fe),'O',fun,'+nX0j1}'


[8]       $begin


[9]       ncaption:$cplxcapXIxr " Branch if varying real coefficient.


[10]      '\caption{Graph of y\#',(Fe),'O',(-1Ufun),(Fhk),'+xX0j1}'


[11]      $begin


[12]      cplxcap:'\caption{Graph of y\#',(Fe),'O',fun,'+(n\#',(Fhk),')X0j1}'


[13]      $begin


[14]      realcap:'\caption{Graph of y\#',fun,'}'


[15]      begin:'\begin{center}'


[16]      '\setlength{\unitlength}{',(Flin),'in}'


[17]      '\begin{picture}(',(Fxlin%lin),',',(Fylin%lin),')'


[18]      '%Draw a frame around the picture'


[19]      ' \put(0,0){\line(1,0){',(Fxlgc),'}}% bottom'


[20]      ' \put(0,0){\line(0,1){',(Fylgc),'}}% left'


[21]      ' \put(0,',(Fylgc),'){\line(1,0){',(Fxlgc),'}}% top'


[22]      ' \put(',(Fxlgc),',0){\line(0,1){',(Fylgc),'}}% right'


[23]      '%Draw the x axis'


[24]      ' \put(0,',(Fxax),'){\line(1,0){',(Fxlgc),'}}%x axis'


[25]      xt#xoff%xpg


[26]      pcon,((xt,[1.5]','),xax),circon " Draw the x axis markers.


[27]      xt#xt_xpgX.1Xxmk<0


[28]      yt#xax+((.05%lin)Xxax=mgc)_yadjXxax>mgc


[29]      $dopaxXIpix


[30]      '%Draw the x axis marker values'


[31]      pcon,xt,',',yt,econ,xmk,[1.5]scon


[32]      $doyax


[33]      dopax:'%Draw the x axis marker values in pi'


[34]      picon#(`Z'\frac{') ,`1 '\pi}{4}' '\pi}{2}' '3\pi}{4}'


[35]      picon#('-',`1`Rpicon),'0',picon


[36]      pcon,xt,',',yt,econ,picon,[1.5]scon


[37]      doyax:'%Draw the y axis'


[38]      $putymkXI(yax=0)


[39]      ' \put(',(Fyax),',0){\line(0,1){',(Fylgc),'}}%y axis'


[40]      putymk:'%Draw the y axis markers'


[41]      ymask#ymk^=0


[42]      yt#ymask/mgc+(ymk_miny)%ypg


[43]      pcon,yax,',',yt,[1.5]circon


[44]      '%Draw the y axis marker values'


[45]      xt#yax+.05%lin


[46]      yt#yt_ypgX.1X(ymask/ymk)<0


[47]      pcon,xt,',',yt,econ,(ymask/ymk),[1.5]scon


[48]      G


apl>"


apl>" <----------------------------------------------------------------->


apl>" Calculates a variety of values needed to produce the graph.


apl>"


apl>Lex 'scale'

1

apl>Gscale


[1]       $byyXIyca " Branch if ylwc, maxy, miny are precalculated.


[2]       ylwc#(maxy#S/ywc)_miny#D/ywc


[3]       byy:ylap#ylin_2Xymgn " ylap=height allowed for data points.


[4]       lin#(xlin%xlwc)Dylap%ylwc " unitlength in inches.


[5]       yadj#.14%lin " y graphic coordinate adjustment to print text below line.


[6]       mgc#ymgn%lin " Margin in graph coordinates.


[7]       xpg#xlwc%xlgc#xlin%lin " Divide xwc by xpg to get gc.


[8]       ypg#ylwc%(_2Xymgn%lin)+ylgc#ylin%lin " Divide ywc by ypg to get gc.


[9]       xax#(yz#(minyK0)&maxyZ0)Xmgc+(|miny)%ypg " xaxis in graph coordinates.


[10]      yax#(xz#(minx<0)&maxx>0)X(|minx)%xpg " yaxis in graph coordinates.


[11]      $piaxisXIpix#(minx=O-1)&maxx=O1 " branch if pi units on x axis.


[12]      xic#(yax=0)+Dxlwc%xiv


[13]      $doyiv


[14]      piaxis:xic#Dxlwc%xiv#O.25


[15]      doyiv:$doyicXIyiv^=0


[16]      yiv#10*D10@ylwc


[17]      doyic:yic#yic+0=2|yic#Dylwc%yiv


[18]      xoff#(I-1+xic)Xxiv " Offset from minx in world coord. of x markers.


[19]      yoff#(_yiv)+(Iyic)Xyiv " Offset from miny in world coord. of y markers.


[20]      $yoffplusXIminy>0


[21]      ymk#yoff+miny+yiv||miny


[22]      $yoffdone


[23]      yoffplus:ymk#yoff+miny_yiv|miny " y for y axis markers in world coord.


[24]      yoffdone:xmk#minx+xoff " x for x axis markers in world coord.


[25]      circon#`Z'){\circle*{',(F.0205%lin),'}}'


[26]      scon#`Z'$}'


[27]      econ#`Z'){$'


[28]      pcon#`Z' \put('


[29]      G


apl>"


apl>" <----------------------------------------------------------------->


apl>" Generates the LaTeX statements to finish the graph.


apl>"


apl>Lex 'trailers'

1

apl>Gtrailers


[1]       $epicXIhtl=0 " Branch if both headers and trailers.


[2]       $eojckXInlb " Branch if graph already labelled.


[3]       pcon,(1Yxgc+xpgX.1),',',(1Yygc),'){',fun,'}' " Label the graph.


[4]       eojck:$eojXI(htl=1)+htl=3 " br if headers only, or neither.


[5]       epic:'\end{picture}'


[6]       '\end{center}'


[7]       eoj:'%Finis.'


[8]       caption#'' " Reset global caption


[9]       G


apl>"            htl: 0=both, 1=headers, 2=trailers, 3=neither.


apl>"            | nlb 1 = Label the curve.


apl>"            | | xr = 1=vary real x coeff, 0=vary imaginary coeff.


apl>"            | | | e = i(11) or r(9) to select coefficient to graph.


apl>"            | | | | yabm = maximum |y printed on graph.


apl>"            | | | | |   minx = minimum value of x.


apl>"            | | | | |   |   maxx = maximum value of x.


apl>"            | | | | |   |   |  xiv = x axis marker interval.


apl>"            | | | | |   |   |  | hk = Constant coefficient of input.


apl>"            | | | | |   |   |  | |     yiv = y axis marker interval, or 0.


apl>"            | | | | |   |   |  | |     |   yca = ylwc, maxy, miny are precalculated.


apl>"            | | | | |   |   |  | |     |   |


apl>"            V V V V V   V   V  V V     V   V


apl> points#300


apl> ylwc#(maxy#2.16)_miny#-2.16


apl> '3Ox' graph 1,1,1,i,1e6,-10,10,1,.5  , 0  ,1 " tandaty.tex

\begin{figure}[tbh]
\caption{Graph of y\#11O3Ox+nX0j1}
\begin{center}
\setlength{\unitlength}{ .225in}
\begin{picture}(20,26.66667)
%Draw a frame around the picture
 \put(0,0){\line(1,0){20}}% bottom
 \put(0,0){\line(0,1){26.66667}}% left
 \put(0,26.66667){\line(1,0){20}}% top
 \put(20,0){\line(0,1){26.66667}}% right
%Draw the x axis
 \put(0,13.33333){\line(1,0){20}}%x axis
  \put(  1 , 13.33333 ){\circle*{ .09111111}} 
  \put(  2 , 13.33333 ){\circle*{ .09111111}} 
  \put(  3 , 13.33333 ){\circle*{ .09111111}} 
  \put(  4 , 13.33333 ){\circle*{ .09111111}} 
  \put(  5 , 13.33333 ){\circle*{ .09111111}} 
  \put(  6 , 13.33333 ){\circle*{ .09111111}} 
  \put(  7 , 13.33333 ){\circle*{ .09111111}} 
  \put(  8 , 13.33333 ){\circle*{ .09111111}} 
  \put(  9 , 13.33333 ){\circle*{ .09111111}} 
  \put( 10 , 13.33333 ){\circle*{ .09111111}} 
  \put( 11 , 13.33333 ){\circle*{ .09111111}} 
  \put( 12 , 13.33333 ){\circle*{ .09111111}} 
  \put( 13 , 13.33333 ){\circle*{ .09111111}} 
  \put( 14 , 13.33333 ){\circle*{ .09111111}} 
  \put( 15 , 13.33333 ){\circle*{ .09111111}} 
  \put( 16 , 13.33333 ){\circle*{ .09111111}} 
  \put( 17 , 13.33333 ){\circle*{ .09111111}} 
  \put( 18 , 13.33333 ){\circle*{ .09111111}} 
  \put( 19 , 13.33333 ){\circle*{ .09111111}} 
%Draw the x axis marker values
  \put(  .9 , 12.71111 ){$ -9 $} 
  \put( 1.9 , 12.71111 ){$ -8 $} 
  \put( 2.9 , 12.71111 ){$ -7 $} 
  \put( 3.9 , 12.71111 ){$ -6 $} 
  \put( 4.9 , 12.71111 ){$ -5 $} 
  \put( 5.9 , 12.71111 ){$ -4 $} 
  \put( 6.9 , 12.71111 ){$ -3 $} 
  \put( 7.9 , 12.71111 ){$ -2 $} 
  \put( 8.9 , 12.71111 ){$ -1 $} 
  \put(  10 , 12.71111 ){$  0 $} 
  \put(  11 , 12.71111 ){$  1 $} 
  \put(  12 , 12.71111 ){$  2 $} 
  \put(  13 , 12.71111 ){$  3 $} 
  \put(  14 , 12.71111 ){$  4 $} 
  \put(  15 , 12.71111 ){$  5 $} 
  \put(  16 , 12.71111 ){$  6 $} 
  \put(  17 , 12.71111 ){$  7 $} 
  \put(  18 , 12.71111 ){$  8 $} 
  \put(  19 , 12.71111 ){$  9 $} 
%Draw the y axis
 \put(10,0){\line(0,1){26.66667}}%y axis
%Draw the y axis markers
  \put( 10 , 1.810700 ){\circle*{ .09111111}} 
  \put( 10 , 7.572016 ){\circle*{ .09111111}} 
  \put( 10 , 19.09465 ){\circle*{ .09111111}} 
  \put( 10 , 24.85597 ){\circle*{ .09111111}} 
%Draw the y axis marker values
  \put( 10.22222 , 1.793342 ){$ -2 $} 
  \put( 10.22222 , 7.554659 ){$ -1 $} 
  \put( 10.22222 , 19.09465 ){$  1 $} 
  \put( 10.22222 , 24.85597 ){$  2 $} 
%Label the curve
  \put( 2.133333 , 25.79317   ){n\# .5} 
%Draw the data points
  \put(  .06666667 , 16.60594   ){\circle*{ .09111111}} 
  \put(  .13333333 , 16.44299   ){\circle*{ .09111111}} 
  \put(         .2 , 16.31017   ){\circle*{ .09111111}} 
  \put(  .26666667 , 16.20394   ){\circle*{ .09111111}} 
  \put(  .33333333 , 16.12155   ){\circle*{ .09111111}} 
  \put(         .4 , 16.06093   ){\circle*{ .09111111}} 
  \put(  .46666667 , 16.02054   ){\circle*{ .09111111}} 
  \put(    .533333 , 15.99941   ){\circle*{ .09111111}} 
  \put(         .6 , 15.99702   ){\circle*{ .09111111}} 
  \put(    .666667 , 16.01331   ){\circle*{ .09111111}} 
  \put(    .733333 , 16.04868   ){\circle*{ .09111111}} 
  \put(         .8 , 16.10399   ){\circle*{ .09111111}} 
  \put(    .866667 , 16.18061   ){\circle*{ .09111111}} 
  \put(    .933333 , 16.28049   ){\circle*{ .09111111}} 
  \put(          1 , 16.40618   ){\circle*{ .09111111}} 
  \put(   1.066667 , 16.56101   ){\circle*{ .09111111}} 
  \put(   1.133333 , 16.74916   ){\circle*{ .09111111}} 
  \put(        1.2 ,  16.9758   ){\circle*{ .09111111}} 
  \put(   1.266667 ,  17.2473   ){\circle*{ .09111111}} 
  \put(   1.333333 , 17.57131   ){\circle*{ .09111111}} 
  \put(        1.4 , 17.95686   ){\circle*{ .09111111}} 
  \put(   1.466667 , 18.41426   ){\circle*{ .09111111}} 
  \put(   1.533333 , 18.95459   ){\circle*{ .09111111}} 
  \put(        1.6 , 19.58859   ){\circle*{ .09111111}} 
  \put(   1.666667 , 20.32426   ){\circle*{ .09111111}} 
  \put(   1.733333 , 21.16259   ){\circle*{ .09111111}} 
  \put(        1.8 , 22.09083   ){\circle*{ .09111111}} 
  \put(   1.866667 , 23.07343   ){\circle*{ .09111111}} 
  \put(   1.933333 , 24.04318   ){\circle*{ .09111111}} 
  \put(          2 , 24.89886   ){\circle*{ .09111111}} 
  \put(   2.066667 , 25.51859   ){\circle*{ .09111111}} 
  \put(   2.133333 , 25.79317   ){\circle*{ .09111111}} 
  \put(        2.2 , 25.66831   ){\circle*{ .09111111}} 
  \put(   2.266667 , 25.16916   ){\circle*{ .09111111}} 
  \put(   2.333333 , 24.38868   ){\circle*{ .09111111}} 
  \put(        2.4 , 23.44877   ){\circle*{ .09111111}} 
  \put(   2.466667 , 22.46123   ){\circle*{ .09111111}} 
  \put(   2.533333 , 21.50656   ){\circle*{ .09111111}} 
  \put(        2.6 , 20.63149   ){\circle*{ .09111111}} 
  \put(   2.666667 ,  19.8563   ){\circle*{ .09111111}} 
  \put(   2.733333 , 19.18429   ){\circle*{ .09111111}} 
  \put(        2.8 , 18.60950   ){\circle*{ .09111111}} 
  \put(   2.866667 , 18.12186   ){\circle*{ .09111111}} 
  \put(   2.933333 , 17.71024   ){\circle*{ .09111111}} 
  \put(          3 , 17.36395   ){\circle*{ .09111111}} 
  \put(   3.066667 , 17.07345   ){\circle*{ .09111111}} 
  \put(   3.133333 , 16.83055   ){\circle*{ .09111111}} 
  \put(        3.2 , 16.62843   ){\circle*{ .09111111}} 
  \put(   3.266667 , 16.46146   ){\circle*{ .09111111}} 
  \put(   3.333333 , 16.32511   ){\circle*{ .09111111}} 
  \put(        3.4 , 16.21576   ){\circle*{ .09111111}} 
  \put(   3.466667 , 16.13054   ){\circle*{ .09111111}} 
  \put(   3.533333 , 16.06731   ){\circle*{ .09111111}} 
  \put(        3.6 , 16.02449   ){\circle*{ .09111111}} 
  \put(   3.666667 ,   16.001   ){\circle*{ .09111111}} 
  \put(   3.733333 ,  15.9963   ){\circle*{ .09111111}} 
  \put(        3.8 , 16.01027   ){\circle*{ .09111111}} 
  \put(   3.866667 , 16.04324   ){\circle*{ .09111111}} 
  \put(   3.933333 , 16.09601   ){\circle*{ .09111111}} 
  \put(          4 ,  16.1699   ){\circle*{ .09111111}} 
  \put(   4.066667 , 16.26677   ){\circle*{ .09111111}} 
  \put(   4.133333 ,  16.3891   ){\circle*{ .09111111}} 
  \put(        4.2 , 16.54012   ){\circle*{ .09111111}} 
  \put(   4.266667 , 16.72387   ){\circle*{ .09111111}} 
  \put(   4.333333 , 16.94543   ){\circle*{ .09111111}} 
  \put(        4.4 , 17.21098   ){\circle*{ .09111111}} 
  \put(   4.466667 , 17.52802   ){\circle*{ .09111111}} 
  \put(   4.533333 , 17.90542   ){\circle*{ .09111111}} 
  \put(        4.6 , 18.35332   ){\circle*{ .09111111}} 
  \put(   4.666667 , 18.88277   ){\circle*{ .09111111}} 
  \put(   4.733333 , 19.50465   ){\circle*{ .09111111}} 
  \put(        4.8 , 20.22747   ){\circle*{ .09111111}} 
  \put(   4.866667 , 21.05341   ){\circle*{ .09111111}} 
  \put(   4.933333 , 21.97189   ){\circle*{ .09111111}} 
  \put(          5 , 22.95069   ){\circle*{ .09111111}} 
  \put(   5.066667 , 23.92688   ){\circle*{ .09111111}} 
  \put(   5.133333 , 24.80313   ){\circle*{ .09111111}} 
  \put(        5.2 , 25.45868   ){\circle*{ .09111111}} 
  \put(   5.266667 , 25.78045   ){\circle*{ .09111111}} 
  \put(   5.333333 , 25.70537   ){\circle*{ .09111111}} 
  \put(        5.4 , 25.24862   ){\circle*{ .09111111}} 
  \put(   5.466667 , 24.49653   ){\circle*{ .09111111}} 
  \put(   5.533333 , 23.56982   ){\circle*{ .09111111}} 
  \put(        5.6 , 22.58309   ){\circle*{ .09111111}} 
  \put(   5.666667 , 21.62117   ){\circle*{ .09111111}} 
  \put(   5.733333 , 20.73470   ){\circle*{ .09111111}} 
  \put(        5.8 , 19.94669   ){\circle*{ .09111111}} 
  \put(   5.866667 , 19.26209   ){\circle*{ .09111111}} 
  \put(   5.933333 , 18.67575   ){\circle*{ .09111111}} 
  \put(          6 , 18.17792   ){\circle*{ .09111111}} 
  \put(   6.066667 , 17.75749   ){\circle*{ .09111111}} 
  \put(   6.133333 , 17.40365   ){\circle*{ .09111111}} 
  \put(        6.2 ,  17.1067   ){\circle*{ .09111111}} 
  \put(   6.266667 ,  16.8583   ){\circle*{ .09111111}} 
  \put(   6.333333 , 16.65146   ){\circle*{ .09111111}} 
  \put(        6.4 ,  16.4804   ){\circle*{ .09111111}} 
  \put(   6.466667 , 16.34048   ){\circle*{ .09111111}} 
  \put(   6.533333 , 16.22794   ){\circle*{ .09111111}} 
  \put(        6.6 , 16.13987   ){\circle*{ .09111111}} 
  \put(   6.666667 , 16.07401   ){\circle*{ .09111111}} 
  \put(   6.733333 , 16.02873   ){\circle*{ .09111111}} 
  \put(        6.8 , 16.00289   ){\circle*{ .09111111}} 
  \put(   6.866667 , 15.99588   ){\circle*{ .09111111}} 
  \put(   6.933333 , 16.00752   ){\circle*{ .09111111}} 
  \put(          7 , 16.03810   ){\circle*{ .09111111}} 
  \put(   7.066667 , 16.08836   ){\circle*{ .09111111}} 
  \put(   7.133333 , 16.15955   ){\circle*{ .09111111}} 
  \put(        7.2 , 16.25344   ){\circle*{ .09111111}} 
  \put(   7.266667 , 16.37246   ){\circle*{ .09111111}} 
  \put(   7.333333 , 16.51972   ){\circle*{ .09111111}} 
  \put(        7.4 , 16.69917   ){\circle*{ .09111111}} 
  \put(   7.466667 , 16.91573   ){\circle*{ .09111111}} 
  \put(   7.533333 , 17.17545   ){\circle*{ .09111111}} 
  \put(        7.6 , 17.48566   ){\circle*{ .09111111}} 
  \put(   7.666667 , 17.85505   ){\circle*{ .09111111}} 
  \put(   7.733333 , 18.29363   ){\circle*{ .09111111}} 
  \put(        7.8 , 18.81237   ){\circle*{ .09111111}} 
  \put(   7.866667 , 19.42226   ){\circle*{ .09111111}} 
  \put(   7.933333 , 20.13228   ){\circle*{ .09111111}} 
  \put(          8 , 20.94568   ){\circle*{ .09111111}} 
  \put(   8.066667 ,  21.8539   ){\circle*{ .09111111}} 
  \put(   8.133333 , 22.82796   ){\circle*{ .09111111}} 
  \put(        8.2 , 23.80908   ){\circle*{ .09111111}} 
  \put(   8.266667 ,   24.704   ){\circle*{ .09111111}} 
  \put(   8.333333 , 25.39359   ){\circle*{ .09111111}} 
  \put(        8.4 , 25.76153   ){\circle*{ .09111111}} 
  \put(   8.466667 , 25.73648   ){\circle*{ .09111111}} 
  \put(   8.533333 , 25.32350   ){\circle*{ .09111111}} 
  \put(        8.6 , 24.60172   ){\circle*{ .09111111}} 
  \put(   8.666667 , 23.68999   ){\circle*{ .09111111}} 
  \put(   8.733333 , 22.70537   ){\circle*{ .09111111}} 
  \put(        8.8 , 21.73698   ){\circle*{ .09111111}} 
  \put(   8.866667 , 20.83944   ){\circle*{ .09111111}} 
  \put(   8.933333 , 20.03869   ){\circle*{ .09111111}} 
  \put(          9 , 19.34141   ){\circle*{ .09111111}} 
  \put(   9.066667 , 18.74337   ){\circle*{ .09111111}} 
  \put(   9.133333 , 18.23517   ){\circle*{ .09111111}} 
  \put(        9.2 , 17.80575   ){\circle*{ .09111111}} 
  \put(   9.266667 , 17.44421   ){\circle*{ .09111111}} 
  \put(   9.333333 , 17.14070   ){\circle*{ .09111111}} 
  \put(        9.4 , 16.88669   ){\circle*{ .09111111}} 
  \put(   9.466667 , 16.67503   ){\circle*{ .09111111}} 
  \put(    9.53333 , 16.49982   ){\circle*{ .09111111}} 
  \put(        9.6 , 16.35626   ){\circle*{ .09111111}} 
  \put(    9.66667 ,  16.2405   ){\circle*{ .09111111}} 
  \put(    9.73333 , 16.14954   ){\circle*{ .09111111}} 
  \put(        9.8 , 16.08103   ){\circle*{ .09111111}} 
  \put(    9.86667 , 16.03326   ){\circle*{ .09111111}} 
  \put(    9.93333 , 16.00506   ){\circle*{ .09111111}} 
  \put(         10 , 15.99574   ){\circle*{ .09111111}} 
  \put(   10.06667 , 16.00506   ){\circle*{ .09111111}} 
  \put(   10.13333 , 16.03326   ){\circle*{ .09111111}} 
  \put(       10.2 , 16.08103   ){\circle*{ .09111111}} 
  \put(   10.26667 , 16.14954   ){\circle*{ .09111111}} 
  \put(   10.33333 ,  16.2405   ){\circle*{ .09111111}} 
  \put(       10.4 , 16.35626   ){\circle*{ .09111111}} 
  \put(   10.46667 , 16.49982   ){\circle*{ .09111111}} 
  \put(   10.53333 , 16.67503   ){\circle*{ .09111111}} 
  \put(       10.6 , 16.88669   ){\circle*{ .09111111}} 
  \put(   10.66667 , 17.14070   ){\circle*{ .09111111}} 
  \put(   10.73333 , 17.44421   ){\circle*{ .09111111}} 
  \put(       10.8 , 17.80575   ){\circle*{ .09111111}} 
  \put(   10.86667 , 18.23517   ){\circle*{ .09111111}} 
  \put(   10.93333 , 18.74337   ){\circle*{ .09111111}} 
  \put(         11 , 19.34141   ){\circle*{ .09111111}} 
  \put(   11.06667 , 20.03869   ){\circle*{ .09111111}} 
  \put(   11.13333 , 20.83944   ){\circle*{ .09111111}} 
  \put(       11.2 , 21.73698   ){\circle*{ .09111111}} 
  \put(   11.26667 , 22.70537   ){\circle*{ .09111111}} 
  \put(   11.33333 , 23.68999   ){\circle*{ .09111111}} 
  \put(       11.4 , 24.60172   ){\circle*{ .09111111}} 
  \put(   11.46667 , 25.32350   ){\circle*{ .09111111}} 
  \put(   11.53333 , 25.73648   ){\circle*{ .09111111}} 
  \put(       11.6 , 25.76153   ){\circle*{ .09111111}} 
  \put(   11.66667 , 25.39359   ){\circle*{ .09111111}} 
  \put(   11.73333 ,   24.704   ){\circle*{ .09111111}} 
  \put(       11.8 , 23.80908   ){\circle*{ .09111111}} 
  \put(   11.86667 , 22.82796   ){\circle*{ .09111111}} 
  \put(   11.93333 ,  21.8539   ){\circle*{ .09111111}} 
  \put(         12 , 20.94568   ){\circle*{ .09111111}} 
  \put(   12.06667 , 20.13228   ){\circle*{ .09111111}} 
  \put(   12.13333 , 19.42226   ){\circle*{ .09111111}} 
  \put(       12.2 , 18.81237   ){\circle*{ .09111111}} 
  \put(   12.26667 , 18.29363   ){\circle*{ .09111111}} 
  \put(   12.33333 , 17.85505   ){\circle*{ .09111111}} 
  \put(       12.4 , 17.48566   ){\circle*{ .09111111}} 
  \put(   12.46667 , 17.17545   ){\circle*{ .09111111}} 
  \put(   12.53333 , 16.91573   ){\circle*{ .09111111}} 
  \put(       12.6 , 16.69917   ){\circle*{ .09111111}} 
  \put(   12.66667 , 16.51972   ){\circle*{ .09111111}} 
  \put(   12.73333 , 16.37246   ){\circle*{ .09111111}} 
  \put(       12.8 , 16.25344   ){\circle*{ .09111111}} 
  \put(   12.86667 , 16.15955   ){\circle*{ .09111111}} 
  \put(   12.93333 , 16.08836   ){\circle*{ .09111111}} 
  \put(         13 , 16.03810   ){\circle*{ .09111111}} 
  \put(   13.06667 , 16.00752   ){\circle*{ .09111111}} 
  \put(   13.13333 , 15.99588   ){\circle*{ .09111111}} 
  \put(       13.2 , 16.00289   ){\circle*{ .09111111}} 
  \put(   13.26667 , 16.02873   ){\circle*{ .09111111}} 
  \put(   13.33333 , 16.07401   ){\circle*{ .09111111}} 
  \put(       13.4 , 16.13987   ){\circle*{ .09111111}} 
  \put(   13.46667 , 16.22794   ){\circle*{ .09111111}} 
  \put(   13.53333 , 16.34048   ){\circle*{ .09111111}} 
  \put(       13.6 ,  16.4804   ){\circle*{ .09111111}} 
  \put(   13.66667 , 16.65146   ){\circle*{ .09111111}} 
  \put(   13.73333 ,  16.8583   ){\circle*{ .09111111}} 
  \put(       13.8 ,  17.1067   ){\circle*{ .09111111}} 
  \put(   13.86667 , 17.40365   ){\circle*{ .09111111}} 
  \put(   13.93333 , 17.75749   ){\circle*{ .09111111}} 
  \put(         14 , 18.17792   ){\circle*{ .09111111}} 
  \put(   14.06667 , 18.67575   ){\circle*{ .09111111}} 
  \put(   14.13333 , 19.26209   ){\circle*{ .09111111}} 
  \put(       14.2 , 19.94669   ){\circle*{ .09111111}} 
  \put(   14.26667 , 20.73470   ){\circle*{ .09111111}} 
  \put(   14.33333 , 21.62117   ){\circle*{ .09111111}} 
  \put(       14.4 , 22.58309   ){\circle*{ .09111111}} 
  \put(   14.46667 , 23.56982   ){\circle*{ .09111111}} 
  \put(   14.53333 , 24.49653   ){\circle*{ .09111111}} 
  \put(       14.6 , 25.24862   ){\circle*{ .09111111}} 
  \put(   14.66667 , 25.70537   ){\circle*{ .09111111}} 
  \put(   14.73333 , 25.78045   ){\circle*{ .09111111}} 
  \put(       14.8 , 25.45868   ){\circle*{ .09111111}} 
  \put(   14.86667 , 24.80313   ){\circle*{ .09111111}} 
  \put(   14.93333 , 23.92688   ){\circle*{ .09111111}} 
  \put(         15 , 22.95069   ){\circle*{ .09111111}} 
  \put(   15.06667 , 21.97189   ){\circle*{ .09111111}} 
  \put(   15.13333 , 21.05341   ){\circle*{ .09111111}} 
  \put(       15.2 , 20.22747   ){\circle*{ .09111111}} 
  \put(   15.26667 , 19.50465   ){\circle*{ .09111111}} 
  \put(   15.33333 , 18.88277   ){\circle*{ .09111111}} 
  \put(       15.4 , 18.35332   ){\circle*{ .09111111}} 
  \put(   15.46667 , 17.90542   ){\circle*{ .09111111}} 
  \put(   15.53333 , 17.52802   ){\circle*{ .09111111}} 
  \put(       15.6 , 17.21098   ){\circle*{ .09111111}} 
  \put(   15.66667 , 16.94543   ){\circle*{ .09111111}} 
  \put(   15.73333 , 16.72387   ){\circle*{ .09111111}} 
  \put(       15.8 , 16.54012   ){\circle*{ .09111111}} 
  \put(   15.86667 ,  16.3891   ){\circle*{ .09111111}} 
  \put(   15.93333 , 16.26677   ){\circle*{ .09111111}} 
  \put(         16 ,  16.1699   ){\circle*{ .09111111}} 
  \put(   16.06667 , 16.09601   ){\circle*{ .09111111}} 
  \put(   16.13333 , 16.04324   ){\circle*{ .09111111}} 
  \put(       16.2 , 16.01027   ){\circle*{ .09111111}} 
  \put(   16.26667 ,  15.9963   ){\circle*{ .09111111}} 
  \put(   16.33333 ,   16.001   ){\circle*{ .09111111}} 
  \put(       16.4 , 16.02449   ){\circle*{ .09111111}} 
  \put(   16.46667 , 16.06731   ){\circle*{ .09111111}} 
  \put(   16.53333 , 16.13054   ){\circle*{ .09111111}} 
  \put(       16.6 , 16.21576   ){\circle*{ .09111111}} 
  \put(   16.66667 , 16.32511   ){\circle*{ .09111111}} 
  \put(   16.73333 , 16.46146   ){\circle*{ .09111111}} 
  \put(       16.8 , 16.62843   ){\circle*{ .09111111}} 
  \put(   16.86667 , 16.83055   ){\circle*{ .09111111}} 
  \put(   16.93333 , 17.07345   ){\circle*{ .09111111}} 
  \put(         17 , 17.36395   ){\circle*{ .09111111}} 
  \put(   17.06667 , 17.71024   ){\circle*{ .09111111}} 
  \put(   17.13333 , 18.12186   ){\circle*{ .09111111}} 
  \put(       17.2 , 18.60950   ){\circle*{ .09111111}} 
  \put(   17.26667 , 19.18429   ){\circle*{ .09111111}} 
  \put(   17.33333 ,  19.8563   ){\circle*{ .09111111}} 
  \put(       17.4 , 20.63149   ){\circle*{ .09111111}} 
  \put(   17.46667 , 21.50656   ){\circle*{ .09111111}} 
  \put(   17.53333 , 22.46123   ){\circle*{ .09111111}} 
  \put(       17.6 , 23.44877   ){\circle*{ .09111111}} 
  \put(   17.66667 , 24.38868   ){\circle*{ .09111111}} 
  \put(   17.73333 , 25.16916   ){\circle*{ .09111111}} 
  \put(       17.8 , 25.66831   ){\circle*{ .09111111}} 
  \put(   17.86667 , 25.79317   ){\circle*{ .09111111}} 
  \put(   17.93333 , 25.51859   ){\circle*{ .09111111}} 
  \put(         18 , 24.89886   ){\circle*{ .09111111}} 
  \put(   18.06667 , 24.04318   ){\circle*{ .09111111}} 
  \put(   18.13333 , 23.07343   ){\circle*{ .09111111}} 
  \put(       18.2 , 22.09083   ){\circle*{ .09111111}} 
  \put(   18.26667 , 21.16259   ){\circle*{ .09111111}} 
  \put(   18.33333 , 20.32426   ){\circle*{ .09111111}} 
  \put(       18.4 , 19.58859   ){\circle*{ .09111111}} 
  \put(   18.46667 , 18.95459   ){\circle*{ .09111111}} 
  \put(   18.53333 , 18.41426   ){\circle*{ .09111111}} 
  \put(       18.6 , 17.95686   ){\circle*{ .09111111}} 
  \put(   18.66667 , 17.57131   ){\circle*{ .09111111}} 
  \put(   18.73333 ,  17.2473   ){\circle*{ .09111111}} 
  \put(       18.8 ,  16.9758   ){\circle*{ .09111111}} 
  \put(   18.86667 , 16.74916   ){\circle*{ .09111111}} 
  \put(   18.93333 , 16.56101   ){\circle*{ .09111111}} 
  \put(         19 , 16.40618   ){\circle*{ .09111111}} 
  \put(   19.06667 , 16.28049   ){\circle*{ .09111111}} 
  \put(   19.13333 , 16.18061   ){\circle*{ .09111111}} 
  \put(       19.2 , 16.10399   ){\circle*{ .09111111}} 
  \put(   19.26667 , 16.04868   ){\circle*{ .09111111}} 
  \put(   19.33333 , 16.01331   ){\circle*{ .09111111}} 
  \put(       19.4 , 15.99702   ){\circle*{ .09111111}} 
  \put(   19.46667 , 15.99941   ){\circle*{ .09111111}} 
  \put(   19.53333 , 16.02054   ){\circle*{ .09111111}} 
  \put(       19.6 , 16.06093   ){\circle*{ .09111111}} 
  \put(   19.66667 , 16.12155   ){\circle*{ .09111111}} 
  \put(   19.73333 , 16.20394   ){\circle*{ .09111111}} 
  \put(       19.8 , 16.31017   ){\circle*{ .09111111}} 
  \put(   19.86667 , 16.44299   ){\circle*{ .09111111}} 
  \put(   19.93333 , 16.60594   ){\circle*{ .09111111}} 
%Finis.

apl> '3Ox' graph 3,1,1,i,1e6,-10,10,1,1   , 0  ,1 " tandaty.tex

%Label the curve
  \put( 2.133333 , 20.89726   ){n\#1} 
%Draw the data points
  \put(  .06666667 , 18.20632   ){\circle*{ .09111111}} 
  \put(  .13333333 , 18.08616   ){\circle*{ .09111111}} 
  \put(         .2 ,  17.9834   ){\circle*{ .09111111}} 
  \put(  .26666667 , 17.89791   ){\circle*{ .09111111}} 
  \put(  .33333333 , 17.82946   ){\circle*{ .09111111}} 
  \put(         .4 , 17.77784   ){\circle*{ .09111111}} 
  \put(  .46666667 , 17.74286   ){\circle*{ .09111111}} 
  \put(    .533333 , 17.72435   ){\circle*{ .09111111}} 
  \put(         .6 , 17.72225   ){\circle*{ .09111111}} 
  \put(    .666667 , 17.73654   ){\circle*{ .09111111}} 
  \put(    .733333 , 17.76728   ){\circle*{ .09111111}} 
  \put(         .8 , 17.81462   ){\circle*{ .09111111}} 
  \put(    .866667 , 17.87873   ){\circle*{ .09111111}} 
  \put(    .933333 , 17.95983   ){\circle*{ .09111111}} 
  \put(          1 , 18.05813   ){\circle*{ .09111111}} 
  \put(   1.066667 , 18.17382   ){\circle*{ .09111111}} 
  \put(   1.133333 , 18.30694   ){\circle*{ .09111111}} 
  \put(        1.2 , 18.45737   ){\circle*{ .09111111}} 
  \put(   1.266667 , 18.62467   ){\circle*{ .09111111}} 
  \put(   1.333333 , 18.80803   ){\circle*{ .09111111}} 
  \put(        1.4 , 19.00603   ){\circle*{ .09111111}} 
  \put(   1.466667 , 19.21659   ){\circle*{ .09111111}} 
  \put(   1.533333 ,  19.4367   ){\circle*{ .09111111}} 
  \put(        1.6 , 19.66239   ){\circle*{ .09111111}} 
  \put(   1.666667 , 19.88855   ){\circle*{ .09111111}} 
  \put(   1.733333 , 20.10898   ){\circle*{ .09111111}} 
  \put(        1.8 , 20.31654   ){\circle*{ .09111111}} 
  \put(   1.866667 , 20.50344   ){\circle*{ .09111111}} 
  \put(   1.933333 , 20.66172   ){\circle*{ .09111111}} 
  \put(          2 , 20.78394   ){\circle*{ .09111111}} 
  \put(   2.066667 , 20.86388   ){\circle*{ .09111111}} 
  \put(   2.133333 , 20.89726   ){\circle*{ .09111111}} 
  \put(        2.2 , 20.88223   ){\circle*{ .09111111}} 
  \put(   2.266667 , 20.81963   ){\circle*{ .09111111}} 
  \put(   2.333333 , 20.71285   ){\circle*{ .09111111}} 
  \put(        2.4 , 20.56747   ){\circle*{ .09111111}} 
  \put(   2.466667 , 20.39054   ){\circle*{ .09111111}} 
  \put(   2.533333 ,  20.1899   ){\circle*{ .09111111}} 
  \put(        2.6 , 19.97348   ){\circle*{ .09111111}} 
  \put(   2.666667 , 19.74871   ){\circle*{ .09111111}} 
  \put(   2.733333 , 19.52219   ){\circle*{ .09111111}} 
  \put(        2.8 , 19.29942   ){\circle*{ .09111111}} 
  \put(   2.866667 , 19.08482   ){\circle*{ .09111111}} 
  \put(   2.933333 , 18.88175   ){\circle*{ .09111111}} 
  \put(          3 , 18.69262   ){\circle*{ .09111111}} 
  \put(   3.066667 , 18.51908   ){\circle*{ .09111111}} 
  \put(   3.133333 , 18.36216   ){\circle*{ .09111111}} 
  \put(        3.2 , 18.22243   ){\circle*{ .09111111}} 
  \put(   3.266667 ,  18.1001   ){\circle*{ .09111111}} 
  \put(   3.333333 , 17.99520   ){\circle*{ .09111111}} 
  \put(        3.4 , 17.90757   ){\circle*{ .09111111}} 
  \put(   3.466667 , 17.83703   ){\circle*{ .09111111}} 
  \put(   3.533333 , 17.78333   ){\circle*{ .09111111}} 
  \put(        3.6 , 17.74629   ){\circle*{ .09111111}} 
  \put(   3.666667 , 17.72575   ){\circle*{ .09111111}} 
  \put(   3.733333 , 17.72162   ){\circle*{ .09111111}} 
  \put(        3.8 , 17.73388   ){\circle*{ .09111111}} 
  \put(   3.866667 , 17.76258   ){\circle*{ .09111111}} 
  \put(   3.933333 , 17.80785   ){\circle*{ .09111111}} 
  \put(          4 , 17.86987   ){\circle*{ .09111111}} 
  \put(   4.066667 , 17.94885   ){\circle*{ .09111111}} 
  \put(   4.133333 , 18.04501   ){\circle*{ .09111111}} 
  \put(        4.2 , 18.15854   ){\circle*{ .09111111}} 
  \put(   4.266667 ,  18.2895   ){\circle*{ .09111111}} 
  \put(   4.333333 ,  18.4378   ){\circle*{ .09111111}} 
  \put(        4.4 , 18.60305   ){\circle*{ .09111111}} 
  \put(   4.466667 , 18.78448   ){\circle*{ .09111111}} 
  \put(   4.533333 , 18.98077   ){\circle*{ .09111111}} 
  \put(        4.6 , 19.18991   ){\circle*{ .09111111}} 
  \put(   4.666667 , 19.40904   ){\circle*{ .09111111}} 
  \put(   4.733333 , 19.63429   ){\circle*{ .09111111}} 
  \put(        4.8 ,  19.8607   ){\circle*{ .09111111}} 
  \put(   4.866667 , 20.08222   ){\circle*{ .09111111}} 
  \put(   4.933333 , 20.29179   ){\circle*{ .09111111}} 
  \put(          5 , 20.48168   ){\circle*{ .09111111}} 
  \put(   5.066667 , 20.64392   ){\circle*{ .09111111}} 
  \put(   5.133333 , 20.77098   ){\circle*{ .09111111}} 
  \put(        5.2 , 20.85644   ){\circle*{ .09111111}} 
  \put(   5.266667 , 20.89574   ){\circle*{ .09111111}} 
  \put(   5.333333 , 20.88672   ){\circle*{ .09111111}} 
  \put(        5.4 , 20.82987   ){\circle*{ .09111111}} 
  \put(   5.466667 ,  20.7283   ){\circle*{ .09111111}} 
  \put(   5.533333 , 20.58734   ){\circle*{ .09111111}} 
  \put(        5.6 ,  20.4139   ){\circle*{ .09111111}} 
  \put(   5.666667 , 20.21577   ){\circle*{ .09111111}} 
  \put(   5.733333 , 20.00089   ){\circle*{ .09111111}} 
  \put(        5.8 , 19.77678   ){\circle*{ .09111111}} 
  \put(   5.866667 , 19.55015   ){\circle*{ .09111111}} 
  \put(   5.933333 , 19.32665   ){\circle*{ .09111111}} 
  \put(          6 , 19.11084   ){\circle*{ .09111111}} 
  \put(   6.066667 , 18.90619   ){\circle*{ .09111111}} 
  \put(   6.133333 , 18.71523   ){\circle*{ .09111111}} 
  \put(        6.2 , 18.53969   ){\circle*{ .09111111}} 
  \put(   6.266667 , 18.38068   ){\circle*{ .09111111}} 
  \put(   6.333333 , 18.23879   ){\circle*{ .09111111}} 
  \put(        6.4 , 18.11431   ){\circle*{ .09111111}} 
  \put(   6.466667 , 18.00725   ){\circle*{ .09111111}} 
  \put(   6.533333 , 17.91750   ){\circle*{ .09111111}} 
  \put(        6.6 , 17.84485   ){\circle*{ .09111111}} 
  \put(   6.666667 , 17.78908   ){\circle*{ .09111111}} 
  \put(   6.733333 , 17.74998   ){\circle*{ .09111111}} 
  \put(        6.8 ,  17.7274   ){\circle*{ .09111111}} 
  \put(   6.866667 , 17.72124   ){\circle*{ .09111111}} 
  \put(   6.933333 , 17.73147   ){\circle*{ .09111111}} 
  \put(          7 , 17.75813   ){\circle*{ .09111111}} 
  \put(   7.066667 , 17.80133   ){\circle*{ .09111111}} 
  \put(   7.133333 , 17.86127   ){\circle*{ .09111111}} 
  \put(        7.2 , 17.93814   ){\circle*{ .09111111}} 
  \put(   7.266667 , 18.03216   ){\circle*{ .09111111}} 
  \put(   7.333333 , 18.14353   ){\circle*{ .09111111}} 
  \put(        7.4 , 18.27233   ){\circle*{ .09111111}} 
  \put(   7.466667 , 18.41850   ){\circle*{ .09111111}} 
  \put(   7.533333 , 18.58168   ){\circle*{ .09111111}} 
  \put(        7.6 , 18.76116   ){\circle*{ .09111111}} 
  \put(   7.666667 ,  18.9557   ){\circle*{ .09111111}} 
  \put(   7.733333 , 19.16339   ){\circle*{ .09111111}} 
  \put(        7.8 , 19.38147   ){\circle*{ .09111111}} 
  \put(   7.866667 , 19.60621   ){\circle*{ .09111111}} 
  \put(   7.933333 , 19.83279   ){\circle*{ .09111111}} 
  \put(          8 , 20.05527   ){\circle*{ .09111111}} 
  \put(   8.066667 , 20.26673   ){\circle*{ .09111111}} 
  \put(   8.133333 , 20.45949   ){\circle*{ .09111111}} 
  \put(        8.2 , 20.62559   ){\circle*{ .09111111}} 
  \put(   8.266667 , 20.75738   ){\circle*{ .09111111}} 
  \put(   8.333333 , 20.84829   ){\circle*{ .09111111}} 
  \put(        8.4 , 20.89348   ){\circle*{ .09111111}} 
  \put(   8.466667 , 20.89047   ){\circle*{ .09111111}} 
  \put(   8.533333 , 20.83943   ){\circle*{ .09111111}} 
  \put(        8.6 , 20.74315   ){\circle*{ .09111111}} 
  \put(   8.666667 , 20.60672   ){\circle*{ .09111111}} 
  \put(   8.733333 , 20.43689   ){\circle*{ .09111111}} 
  \put(        8.8 , 20.24139   ){\circle*{ .09111111}} 
  \put(   8.866667 , 20.02816   ){\circle*{ .09111111}} 
  \put(   8.933333 ,  19.8048   ){\circle*{ .09111111}} 
  \put(          9 , 19.57816   ){\circle*{ .09111111}} 
  \put(   9.066667 ,   19.354   ){\circle*{ .09111111}} 
  \put(   9.133333 , 19.13703   ){\circle*{ .09111111}} 
  \put(        9.2 , 18.93085   ){\circle*{ .09111111}} 
  \put(   9.266667 , 18.73808   ){\circle*{ .09111111}} 
  \put(   9.333333 , 18.56056   ){\circle*{ .09111111}} 
  \put(        9.4 , 18.39946   ){\circle*{ .09111111}} 
  \put(   9.466667 , 18.25543   ){\circle*{ .09111111}} 
  \put(    9.53333 , 18.12879   ){\circle*{ .09111111}} 
  \put(        9.6 , 18.01957   ){\circle*{ .09111111}} 
  \put(    9.66667 , 17.92768   ){\circle*{ .09111111}} 
  \put(    9.73333 , 17.85293   ){\circle*{ .09111111}} 
  \put(        9.8 , 17.79508   ){\circle*{ .09111111}} 
  \put(    9.86667 , 17.75393   ){\circle*{ .09111111}} 
  \put(    9.93333 , 17.72931   ){\circle*{ .09111111}} 
  \put(         10 , 17.72112   ){\circle*{ .09111111}} 
  \put(   10.06667 , 17.72931   ){\circle*{ .09111111}} 
  \put(   10.13333 , 17.75393   ){\circle*{ .09111111}} 
  \put(       10.2 , 17.79508   ){\circle*{ .09111111}} 
  \put(   10.26667 , 17.85293   ){\circle*{ .09111111}} 
  \put(   10.33333 , 17.92768   ){\circle*{ .09111111}} 
  \put(       10.4 , 18.01957   ){\circle*{ .09111111}} 
  \put(   10.46667 , 18.12879   ){\circle*{ .09111111}} 
  \put(   10.53333 , 18.25543   ){\circle*{ .09111111}} 
  \put(       10.6 , 18.39946   ){\circle*{ .09111111}} 
  \put(   10.66667 , 18.56056   ){\circle*{ .09111111}} 
  \put(   10.73333 , 18.73808   ){\circle*{ .09111111}} 
  \put(       10.8 , 18.93085   ){\circle*{ .09111111}} 
  \put(   10.86667 , 19.13703   ){\circle*{ .09111111}} 
  \put(   10.93333 ,   19.354   ){\circle*{ .09111111}} 
  \put(         11 , 19.57816   ){\circle*{ .09111111}} 
  \put(   11.06667 ,  19.8048   ){\circle*{ .09111111}} 
  \put(   11.13333 , 20.02816   ){\circle*{ .09111111}} 
  \put(       11.2 , 20.24139   ){\circle*{ .09111111}} 
  \put(   11.26667 , 20.43689   ){\circle*{ .09111111}} 
  \put(   11.33333 , 20.60672   ){\circle*{ .09111111}} 
  \put(       11.4 , 20.74315   ){\circle*{ .09111111}} 
  \put(   11.46667 , 20.83943   ){\circle*{ .09111111}} 
  \put(   11.53333 , 20.89047   ){\circle*{ .09111111}} 
  \put(       11.6 , 20.89348   ){\circle*{ .09111111}} 
  \put(   11.66667 , 20.84829   ){\circle*{ .09111111}} 
  \put(   11.73333 , 20.75738   ){\circle*{ .09111111}} 
  \put(       11.8 , 20.62559   ){\circle*{ .09111111}} 
  \put(   11.86667 , 20.45949   ){\circle*{ .09111111}} 
  \put(   11.93333 , 20.26673   ){\circle*{ .09111111}} 
  \put(         12 , 20.05527   ){\circle*{ .09111111}} 
  \put(   12.06667 , 19.83279   ){\circle*{ .09111111}} 
  \put(   12.13333 , 19.60621   ){\circle*{ .09111111}} 
  \put(       12.2 , 19.38147   ){\circle*{ .09111111}} 
  \put(   12.26667 , 19.16339   ){\circle*{ .09111111}} 
  \put(   12.33333 ,  18.9557   ){\circle*{ .09111111}} 
  \put(       12.4 , 18.76116   ){\circle*{ .09111111}} 
  \put(   12.46667 , 18.58168   ){\circle*{ .09111111}} 
  \put(   12.53333 , 18.41850   ){\circle*{ .09111111}} 
  \put(       12.6 , 18.27233   ){\circle*{ .09111111}} 
  \put(   12.66667 , 18.14353   ){\circle*{ .09111111}} 
  \put(   12.73333 , 18.03216   ){\circle*{ .09111111}} 
  \put(       12.8 , 17.93814   ){\circle*{ .09111111}} 
  \put(   12.86667 , 17.86127   ){\circle*{ .09111111}} 
  \put(   12.93333 , 17.80133   ){\circle*{ .09111111}} 
  \put(         13 , 17.75813   ){\circle*{ .09111111}} 
  \put(   13.06667 , 17.73147   ){\circle*{ .09111111}} 
  \put(   13.13333 , 17.72124   ){\circle*{ .09111111}} 
  \put(       13.2 ,  17.7274   ){\circle*{ .09111111}} 
  \put(   13.26667 , 17.74998   ){\circle*{ .09111111}} 
  \put(   13.33333 , 17.78908   ){\circle*{ .09111111}} 
  \put(       13.4 , 17.84485   ){\circle*{ .09111111}} 
  \put(   13.46667 , 17.91750   ){\circle*{ .09111111}} 
  \put(   13.53333 , 18.00725   ){\circle*{ .09111111}} 
  \put(       13.6 , 18.11431   ){\circle*{ .09111111}} 
  \put(   13.66667 , 18.23879   ){\circle*{ .09111111}} 
  \put(   13.73333 , 18.38068   ){\circle*{ .09111111}} 
  \put(       13.8 , 18.53969   ){\circle*{ .09111111}} 
  \put(   13.86667 , 18.71523   ){\circle*{ .09111111}} 
  \put(   13.93333 , 18.90619   ){\circle*{ .09111111}} 
  \put(         14 , 19.11084   ){\circle*{ .09111111}} 
  \put(   14.06667 , 19.32665   ){\circle*{ .09111111}} 
  \put(   14.13333 , 19.55015   ){\circle*{ .09111111}} 
  \put(       14.2 , 19.77678   ){\circle*{ .09111111}} 
  \put(   14.26667 , 20.00089   ){\circle*{ .09111111}} 
  \put(   14.33333 , 20.21577   ){\circle*{ .09111111}} 
  \put(       14.4 ,  20.4139   ){\circle*{ .09111111}} 
  \put(   14.46667 , 20.58734   ){\circle*{ .09111111}} 
  \put(   14.53333 ,  20.7283   ){\circle*{ .09111111}} 
  \put(       14.6 , 20.82987   ){\circle*{ .09111111}} 
  \put(   14.66667 , 20.88672   ){\circle*{ .09111111}} 
  \put(   14.73333 , 20.89574   ){\circle*{ .09111111}} 
  \put(       14.8 , 20.85644   ){\circle*{ .09111111}} 
  \put(   14.86667 , 20.77098   ){\circle*{ .09111111}} 
  \put(   14.93333 , 20.64392   ){\circle*{ .09111111}} 
  \put(         15 , 20.48168   ){\circle*{ .09111111}} 
  \put(   15.06667 , 20.29179   ){\circle*{ .09111111}} 
  \put(   15.13333 , 20.08222   ){\circle*{ .09111111}} 
  \put(       15.2 ,  19.8607   ){\circle*{ .09111111}} 
  \put(   15.26667 , 19.63429   ){\circle*{ .09111111}} 
  \put(   15.33333 , 19.40904   ){\circle*{ .09111111}} 
  \put(       15.4 , 19.18991   ){\circle*{ .09111111}} 
  \put(   15.46667 , 18.98077   ){\circle*{ .09111111}} 
  \put(   15.53333 , 18.78448   ){\circle*{ .09111111}} 
  \put(       15.6 , 18.60305   ){\circle*{ .09111111}} 
  \put(   15.66667 ,  18.4378   ){\circle*{ .09111111}} 
  \put(   15.73333 ,  18.2895   ){\circle*{ .09111111}} 
  \put(       15.8 , 18.15854   ){\circle*{ .09111111}} 
  \put(   15.86667 , 18.04501   ){\circle*{ .09111111}} 
  \put(   15.93333 , 17.94885   ){\circle*{ .09111111}} 
  \put(         16 , 17.86987   ){\circle*{ .09111111}} 
  \put(   16.06667 , 17.80785   ){\circle*{ .09111111}} 
  \put(   16.13333 , 17.76258   ){\circle*{ .09111111}} 
  \put(       16.2 , 17.73388   ){\circle*{ .09111111}} 
  \put(   16.26667 , 17.72162   ){\circle*{ .09111111}} 
  \put(   16.33333 , 17.72575   ){\circle*{ .09111111}} 
  \put(       16.4 , 17.74629   ){\circle*{ .09111111}} 
  \put(   16.46667 , 17.78333   ){\circle*{ .09111111}} 
  \put(   16.53333 , 17.83703   ){\circle*{ .09111111}} 
  \put(       16.6 , 17.90757   ){\circle*{ .09111111}} 
  \put(   16.66667 , 17.99520   ){\circle*{ .09111111}} 
  \put(   16.73333 ,  18.1001   ){\circle*{ .09111111}} 
  \put(       16.8 , 18.22243   ){\circle*{ .09111111}} 
  \put(   16.86667 , 18.36216   ){\circle*{ .09111111}} 
  \put(   16.93333 , 18.51908   ){\circle*{ .09111111}} 
  \put(         17 , 18.69262   ){\circle*{ .09111111}} 
  \put(   17.06667 , 18.88175   ){\circle*{ .09111111}} 
  \put(   17.13333 , 19.08482   ){\circle*{ .09111111}} 
  \put(       17.2 , 19.29942   ){\circle*{ .09111111}} 
  \put(   17.26667 , 19.52219   ){\circle*{ .09111111}} 
  \put(   17.33333 , 19.74871   ){\circle*{ .09111111}} 
  \put(       17.4 , 19.97348   ){\circle*{ .09111111}} 
  \put(   17.46667 ,  20.1899   ){\circle*{ .09111111}} 
  \put(   17.53333 , 20.39054   ){\circle*{ .09111111}} 
  \put(       17.6 , 20.56747   ){\circle*{ .09111111}} 
  \put(   17.66667 , 20.71285   ){\circle*{ .09111111}} 
  \put(   17.73333 , 20.81963   ){\circle*{ .09111111}} 
  \put(       17.8 , 20.88223   ){\circle*{ .09111111}} 
  \put(   17.86667 , 20.89726   ){\circle*{ .09111111}} 
  \put(   17.93333 , 20.86388   ){\circle*{ .09111111}} 
  \put(         18 , 20.78394   ){\circle*{ .09111111}} 
  \put(   18.06667 , 20.66172   ){\circle*{ .09111111}} 
  \put(   18.13333 , 20.50344   ){\circle*{ .09111111}} 
  \put(       18.2 , 20.31654   ){\circle*{ .09111111}} 
  \put(   18.26667 , 20.10898   ){\circle*{ .09111111}} 
  \put(   18.33333 , 19.88855   ){\circle*{ .09111111}} 
  \put(       18.4 , 19.66239   ){\circle*{ .09111111}} 
  \put(   18.46667 ,  19.4367   ){\circle*{ .09111111}} 
  \put(   18.53333 , 19.21659   ){\circle*{ .09111111}} 
  \put(       18.6 , 19.00603   ){\circle*{ .09111111}} 
  \put(   18.66667 , 18.80803   ){\circle*{ .09111111}} 
  \put(   18.73333 , 18.62467   ){\circle*{ .09111111}} 
  \put(       18.8 , 18.45737   ){\circle*{ .09111111}} 
  \put(   18.86667 , 18.30694   ){\circle*{ .09111111}} 
  \put(   18.93333 , 18.17382   ){\circle*{ .09111111}} 
  \put(         19 , 18.05813   ){\circle*{ .09111111}} 
  \put(   19.06667 , 17.95983   ){\circle*{ .09111111}} 
  \put(   19.13333 , 17.87873   ){\circle*{ .09111111}} 
  \put(       19.2 , 17.81462   ){\circle*{ .09111111}} 
  \put(   19.26667 , 17.76728   ){\circle*{ .09111111}} 
  \put(   19.33333 , 17.73654   ){\circle*{ .09111111}} 
  \put(       19.4 , 17.72225   ){\circle*{ .09111111}} 
  \put(   19.46667 , 17.72435   ){\circle*{ .09111111}} 
  \put(   19.53333 , 17.74286   ){\circle*{ .09111111}} 
  \put(       19.6 , 17.77784   ){\circle*{ .09111111}} 
  \put(   19.66667 , 17.82946   ){\circle*{ .09111111}} 
  \put(   19.73333 , 17.89791   ){\circle*{ .09111111}} 
  \put(       19.8 ,  17.9834   ){\circle*{ .09111111}} 
  \put(   19.86667 , 18.08616   ){\circle*{ .09111111}} 
  \put(   19.93333 , 18.20632   ){\circle*{ .09111111}} 
%Finis.

apl> '3Ox' graph 3,1,1,i,1e6,-10,10,1,2   , 0  ,1 " tandaty.tex

%Label the curve
  \put( 2.133333 , 19.30956   ){n\#2} 
%Draw the data points
  \put(  .06666667 , 18.98202   ){\circle*{ .09111111}} 
  \put(  .13333333 ,  18.9601   ){\circle*{ .09111111}} 
  \put(         .2 ,  18.9406   ){\circle*{ .09111111}} 
  \put(  .26666667 , 18.92383   ){\circle*{ .09111111}} 
  \put(  .33333333 ,    18.91   ){\circle*{ .09111111}} 
  \put(         .4 , 18.89935   ){\circle*{ .09111111}} 
  \put(  .46666667 , 18.89201   ){\circle*{ .09111111}} 
  \put(    .533333 , 18.88809   ){\circle*{ .09111111}} 
  \put(         .6 , 18.88764   ){\circle*{ .09111111}} 
  \put(    .666667 , 18.89068   ){\circle*{ .09111111}} 
  \put(    .733333 , 18.89715   ){\circle*{ .09111111}} 
  \put(         .8 , 18.90696   ){\circle*{ .09111111}} 
  \put(    .866667 , 18.91999   ){\circle*{ .09111111}} 
  \put(    .933333 , 18.93603   ){\circle*{ .09111111}} 
  \put(          1 , 18.95486   ){\circle*{ .09111111}} 
  \put(   1.066667 , 18.97618   ){\circle*{ .09111111}} 
  \put(   1.133333 , 18.99968   ){\circle*{ .09111111}} 
  \put(        1.2 , 19.02498   ){\circle*{ .09111111}} 
  \put(   1.266667 , 19.05167   ){\circle*{ .09111111}} 
  \put(   1.333333 ,  19.0793   ){\circle*{ .09111111}} 
  \put(        1.4 , 19.10742   ){\circle*{ .09111111}} 
  \put(   1.466667 , 19.13551   ){\circle*{ .09111111}} 
  \put(   1.533333 , 19.16307   ){\circle*{ .09111111}} 
  \put(        1.6 , 19.18958   ){\circle*{ .09111111}} 
  \put(   1.666667 , 19.21453   ){\circle*{ .09111111}} 
  \put(   1.733333 , 19.23743   ){\circle*{ .09111111}} 
  \put(        1.8 , 19.25783   ){\circle*{ .09111111}} 
  \put(   1.866667 , 19.27529   ){\circle*{ .09111111}} 
  \put(   1.933333 , 19.28946   ){\circle*{ .09111111}} 
  \put(          2 , 19.30003   ){\circle*{ .09111111}} 
  \put(   2.066667 , 19.30678   ){\circle*{ .09111111}} 
  \put(   2.133333 , 19.30956   ){\circle*{ .09111111}} 
  \put(        2.2 , 19.30831   ){\circle*{ .09111111}} 
  \put(   2.266667 , 19.30306   ){\circle*{ .09111111}} 
  \put(   2.333333 , 19.29392   ){\circle*{ .09111111}} 
  \put(        2.4 , 19.28109   ){\circle*{ .09111111}} 
  \put(   2.466667 , 19.26484   ){\circle*{ .09111111}} 
  \put(   2.533333 , 19.24551   ){\circle*{ .09111111}} 
  \put(        2.6 , 19.22351   ){\circle*{ .09111111}} 
  \put(   2.666667 , 19.19928   ){\circle*{ .09111111}} 
  \put(   2.733333 , 19.17331   ){\circle*{ .09111111}} 
  \put(        2.8 , 19.14609   ){\circle*{ .09111111}} 
  \put(   2.866667 , 19.11814   ){\circle*{ .09111111}} 
  \put(   2.933333 , 19.08998   ){\circle*{ .09111111}} 
  \put(          3 ,  19.0621   ){\circle*{ .09111111}} 
  \put(   3.066667 , 19.03499   ){\circle*{ .09111111}} 
  \put(   3.133333 , 19.00912   ){\circle*{ .09111111}} 
  \put(        3.2 , 18.98489   ){\circle*{ .09111111}} 
  \put(   3.266667 , 18.96269   ){\circle*{ .09111111}} 
  \put(   3.333333 , 18.94288   ){\circle*{ .09111111}} 
  \put(        3.4 , 18.92575   ){\circle*{ .09111111}} 
  \put(   3.466667 , 18.91155   ){\circle*{ .09111111}} 
  \put(   3.533333 , 18.90050   ){\circle*{ .09111111}} 
  \put(        3.6 , 18.89274   ){\circle*{ .09111111}} 
  \put(   3.666667 , 18.88839   ){\circle*{ .09111111}} 
  \put(   3.733333 ,  18.8875   ){\circle*{ .09111111}} 
  \put(        3.8 , 18.89011   ){\circle*{ .09111111}} 
  \put(   3.866667 , 18.89616   ){\circle*{ .09111111}} 
  \put(   3.933333 , 18.90557   ){\circle*{ .09111111}} 
  \put(          4 ,  18.9182   ){\circle*{ .09111111}} 
  \put(   4.066667 , 18.93389   ){\circle*{ .09111111}} 
  \put(   4.133333 , 18.95238   ){\circle*{ .09111111}} 
  \put(        4.2 , 18.97341   ){\circle*{ .09111111}} 
  \put(   4.266667 , 18.99666   ){\circle*{ .09111111}} 
  \put(   4.333333 , 19.02176   ){\circle*{ .09111111}} 
  \put(        4.4 ,  19.0483   ){\circle*{ .09111111}} 
  \put(   4.466667 , 19.07585   ){\circle*{ .09111111}} 
  \put(   4.533333 , 19.10393   ){\circle*{ .09111111}} 
  \put(        4.6 , 19.13205   ){\circle*{ .09111111}} 
  \put(   4.666667 ,  19.1597   ){\circle*{ .09111111}} 
  \put(   4.733333 , 19.18637   ){\circle*{ .09111111}} 
  \put(        4.8 , 19.21154   ){\circle*{ .09111111}} 
  \put(   4.866667 , 19.23472   ){\circle*{ .09111111}} 
  \put(   4.933333 , 19.25545   ){\circle*{ .09111111}} 
  \put(          5 , 19.27330   ){\circle*{ .09111111}} 
  \put(   5.066667 , 19.28789   ){\circle*{ .09111111}} 
  \put(   5.133333 , 19.29892   ){\circle*{ .09111111}} 
  \put(        5.2 , 19.30616   ){\circle*{ .09111111}} 
  \put(   5.266667 , 19.30943   ){\circle*{ .09111111}} 
  \put(   5.333333 , 19.30868   ){\circle*{ .09111111}} 
  \put(        5.4 , 19.30392   ){\circle*{ .09111111}} 
  \put(   5.466667 , 19.29526   ){\circle*{ .09111111}} 
  \put(   5.533333 , 19.28287   ){\circle*{ .09111111}} 
  \put(        5.6 , 19.26703   ){\circle*{ .09111111}} 
  \put(   5.666667 , 19.24806   ){\circle*{ .09111111}} 
  \put(   5.733333 , 19.22637   ){\circle*{ .09111111}} 
  \put(        5.8 , 19.20239   ){\circle*{ .09111111}} 
  \put(   5.866667 ,  19.1766   ){\circle*{ .09111111}} 
  \put(   5.933333 , 19.14951   ){\circle*{ .09111111}} 
  \put(          6 , 19.12163   ){\circle*{ .09111111}} 
  \put(   6.066667 , 19.09346   ){\circle*{ .09111111}} 
  \put(   6.133333 , 19.06552   ){\circle*{ .09111111}} 
  \put(        6.2 , 19.03830   ){\circle*{ .09111111}} 
  \put(   6.266667 , 19.01224   ){\circle*{ .09111111}} 
  \put(   6.333333 , 18.98779   ){\circle*{ .09111111}} 
  \put(        6.4 , 18.96532   ){\circle*{ .09111111}} 
  \put(   6.466667 , 18.94520   ){\circle*{ .09111111}} 
  \put(   6.533333 , 18.92772   ){\circle*{ .09111111}} 
  \put(        6.6 , 18.91314   ){\circle*{ .09111111}} 
  \put(   6.666667 , 18.90169   ){\circle*{ .09111111}} 
  \put(   6.733333 , 18.89351   ){\circle*{ .09111111}} 
  \put(        6.8 , 18.88874   ){\circle*{ .09111111}} 
  \put(   6.866667 , 18.88743   ){\circle*{ .09111111}} 
  \put(   6.933333 ,  18.8896   ){\circle*{ .09111111}} 
  \put(          7 , 18.89523   ){\circle*{ .09111111}} 
  \put(   7.066667 , 18.90423   ){\circle*{ .09111111}} 
  \put(   7.133333 , 18.91647   ){\circle*{ .09111111}} 
  \put(        7.2 , 18.93179   ){\circle*{ .09111111}} 
  \put(   7.266667 , 18.94995   ){\circle*{ .09111111}} 
  \put(   7.333333 , 18.97068   ){\circle*{ .09111111}} 
  \put(        7.4 , 18.99367   ){\circle*{ .09111111}} 
  \put(   7.466667 , 19.01856   ){\circle*{ .09111111}} 
  \put(   7.533333 , 19.04495   ){\circle*{ .09111111}} 
  \put(        7.6 , 19.07240   ){\circle*{ .09111111}} 
  \put(   7.666667 , 19.10044   ){\circle*{ .09111111}} 
  \put(   7.733333 , 19.12858   ){\circle*{ .09111111}} 
  \put(        7.8 , 19.15632   ){\circle*{ .09111111}} 
  \put(   7.866667 , 19.18314   ){\circle*{ .09111111}} 
  \put(   7.933333 , 19.20852   ){\circle*{ .09111111}} 
  \put(          8 , 19.23197   ){\circle*{ .09111111}} 
  \put(   8.066667 , 19.25303   ){\circle*{ .09111111}} 
  \put(   8.133333 , 19.27126   ){\circle*{ .09111111}} 
  \put(        8.2 , 19.28627   ){\circle*{ .09111111}} 
  \put(   8.266667 , 19.29776   ){\circle*{ .09111111}} 
  \put(   8.333333 , 19.30547   ){\circle*{ .09111111}} 
  \put(        8.4 , 19.30924   ){\circle*{ .09111111}} 
  \put(   8.466667 , 19.30899   ){\circle*{ .09111111}} 
  \put(   8.533333 , 19.30473   ){\circle*{ .09111111}} 
  \put(        8.6 , 19.29654   ){\circle*{ .09111111}} 
  \put(   8.666667 , 19.28460   ){\circle*{ .09111111}} 
  \put(   8.733333 , 19.26916   ){\circle*{ .09111111}} 
  \put(        8.8 , 19.25057   ){\circle*{ .09111111}} 
  \put(   8.866667 , 19.22919   ){\circle*{ .09111111}} 
  \put(   8.933333 , 19.20547   ){\circle*{ .09111111}} 
  \put(          9 , 19.17988   ){\circle*{ .09111111}} 
  \put(   9.066667 , 19.15292   ){\circle*{ .09111111}} 
  \put(   9.133333 ,  19.1251   ){\circle*{ .09111111}} 
  \put(        9.2 , 19.09695   ){\circle*{ .09111111}} 
  \put(   9.266667 , 19.06895   ){\circle*{ .09111111}} 
  \put(   9.333333 , 19.04161   ){\circle*{ .09111111}} 
  \put(        9.4 , 19.01539   ){\circle*{ .09111111}} 
  \put(   9.466667 , 18.99071   ){\circle*{ .09111111}} 
  \put(    9.53333 , 18.96798   ){\circle*{ .09111111}} 
  \put(        9.6 , 18.94755   ){\circle*{ .09111111}} 
  \put(    9.66667 , 18.92973   ){\circle*{ .09111111}} 
  \put(    9.73333 , 18.91478   ){\circle*{ .09111111}} 
  \put(        9.8 , 18.90293   ){\circle*{ .09111111}} 
  \put(    9.86667 , 18.89435   ){\circle*{ .09111111}} 
  \put(    9.93333 , 18.88914   ){\circle*{ .09111111}} 
  \put(         10 ,  18.8874   ){\circle*{ .09111111}} 
  \put(   10.06667 , 18.88914   ){\circle*{ .09111111}} 
  \put(   10.13333 , 18.89435   ){\circle*{ .09111111}} 
  \put(       10.2 , 18.90293   ){\circle*{ .09111111}} 
  \put(   10.26667 , 18.91478   ){\circle*{ .09111111}} 
  \put(   10.33333 , 18.92973   ){\circle*{ .09111111}} 
  \put(       10.4 , 18.94755   ){\circle*{ .09111111}} 
  \put(   10.46667 , 18.96798   ){\circle*{ .09111111}} 
  \put(   10.53333 , 18.99071   ){\circle*{ .09111111}} 
  \put(       10.6 , 19.01539   ){\circle*{ .09111111}} 
  \put(   10.66667 , 19.04161   ){\circle*{ .09111111}} 
  \put(   10.73333 , 19.06895   ){\circle*{ .09111111}} 
  \put(       10.8 , 19.09695   ){\circle*{ .09111111}} 
  \put(   10.86667 ,  19.1251   ){\circle*{ .09111111}} 
  \put(   10.93333 , 19.15292   ){\circle*{ .09111111}} 
  \put(         11 , 19.17988   ){\circle*{ .09111111}} 
  \put(   11.06667 , 19.20547   ){\circle*{ .09111111}} 
  \put(   11.13333 , 19.22919   ){\circle*{ .09111111}} 
  \put(       11.2 , 19.25057   ){\circle*{ .09111111}} 
  \put(   11.26667 , 19.26916   ){\circle*{ .09111111}} 
  \put(   11.33333 , 19.28460   ){\circle*{ .09111111}} 
  \put(       11.4 , 19.29654   ){\circle*{ .09111111}} 
  \put(   11.46667 , 19.30473   ){\circle*{ .09111111}} 
  \put(   11.53333 , 19.30899   ){\circle*{ .09111111}} 
  \put(       11.6 , 19.30924   ){\circle*{ .09111111}} 
  \put(   11.66667 , 19.30547   ){\circle*{ .09111111}} 
  \put(   11.73333 , 19.29776   ){\circle*{ .09111111}} 
  \put(       11.8 , 19.28627   ){\circle*{ .09111111}} 
  \put(   11.86667 , 19.27126   ){\circle*{ .09111111}} 
  \put(   11.93333 , 19.25303   ){\circle*{ .09111111}} 
  \put(         12 , 19.23197   ){\circle*{ .09111111}} 
  \put(   12.06667 , 19.20852   ){\circle*{ .09111111}} 
  \put(   12.13333 , 19.18314   ){\circle*{ .09111111}} 
  \put(       12.2 , 19.15632   ){\circle*{ .09111111}} 
  \put(   12.26667 , 19.12858   ){\circle*{ .09111111}} 
  \put(   12.33333 , 19.10044   ){\circle*{ .09111111}} 
  \put(       12.4 , 19.07240   ){\circle*{ .09111111}} 
  \put(   12.46667 , 19.04495   ){\circle*{ .09111111}} 
  \put(   12.53333 , 19.01856   ){\circle*{ .09111111}} 
  \put(       12.6 , 18.99367   ){\circle*{ .09111111}} 
  \put(   12.66667 , 18.97068   ){\circle*{ .09111111}} 
  \put(   12.73333 , 18.94995   ){\circle*{ .09111111}} 
  \put(       12.8 , 18.93179   ){\circle*{ .09111111}} 
  \put(   12.86667 , 18.91647   ){\circle*{ .09111111}} 
  \put(   12.93333 , 18.90423   ){\circle*{ .09111111}} 
  \put(         13 , 18.89523   ){\circle*{ .09111111}} 
  \put(   13.06667 ,  18.8896   ){\circle*{ .09111111}} 
  \put(   13.13333 , 18.88743   ){\circle*{ .09111111}} 
  \put(       13.2 , 18.88874   ){\circle*{ .09111111}} 
  \put(   13.26667 , 18.89351   ){\circle*{ .09111111}} 
  \put(   13.33333 , 18.90169   ){\circle*{ .09111111}} 
  \put(       13.4 , 18.91314   ){\circle*{ .09111111}} 
  \put(   13.46667 , 18.92772   ){\circle*{ .09111111}} 
  \put(   13.53333 , 18.94520   ){\circle*{ .09111111}} 
  \put(       13.6 , 18.96532   ){\circle*{ .09111111}} 
  \put(   13.66667 , 18.98779   ){\circle*{ .09111111}} 
  \put(   13.73333 , 19.01224   ){\circle*{ .09111111}} 
  \put(       13.8 , 19.03830   ){\circle*{ .09111111}} 
  \put(   13.86667 , 19.06552   ){\circle*{ .09111111}} 
  \put(   13.93333 , 19.09346   ){\circle*{ .09111111}} 
  \put(         14 , 19.12163   ){\circle*{ .09111111}} 
  \put(   14.06667 , 19.14951   ){\circle*{ .09111111}} 
  \put(   14.13333 ,  19.1766   ){\circle*{ .09111111}} 
  \put(       14.2 , 19.20239   ){\circle*{ .09111111}} 
  \put(   14.26667 , 19.22637   ){\circle*{ .09111111}} 
  \put(   14.33333 , 19.24806   ){\circle*{ .09111111}} 
  \put(       14.4 , 19.26703   ){\circle*{ .09111111}} 
  \put(   14.46667 , 19.28287   ){\circle*{ .09111111}} 
  \put(   14.53333 , 19.29526   ){\circle*{ .09111111}} 
  \put(       14.6 , 19.30392   ){\circle*{ .09111111}} 
  \put(   14.66667 , 19.30868   ){\circle*{ .09111111}} 
  \put(   14.73333 , 19.30943   ){\circle*{ .09111111}} 
  \put(       14.8 , 19.30616   ){\circle*{ .09111111}} 
  \put(   14.86667 , 19.29892   ){\circle*{ .09111111}} 
  \put(   14.93333 , 19.28789   ){\circle*{ .09111111}} 
  \put(         15 , 19.27330   ){\circle*{ .09111111}} 
  \put(   15.06667 , 19.25545   ){\circle*{ .09111111}} 
  \put(   15.13333 , 19.23472   ){\circle*{ .09111111}} 
  \put(       15.2 , 19.21154   ){\circle*{ .09111111}} 
  \put(   15.26667 , 19.18637   ){\circle*{ .09111111}} 
  \put(   15.33333 ,  19.1597   ){\circle*{ .09111111}} 
  \put(       15.4 , 19.13205   ){\circle*{ .09111111}} 
  \put(   15.46667 , 19.10393   ){\circle*{ .09111111}} 
  \put(   15.53333 , 19.07585   ){\circle*{ .09111111}} 
  \put(       15.6 ,  19.0483   ){\circle*{ .09111111}} 
  \put(   15.66667 , 19.02176   ){\circle*{ .09111111}} 
  \put(   15.73333 , 18.99666   ){\circle*{ .09111111}} 
  \put(       15.8 , 18.97341   ){\circle*{ .09111111}} 
  \put(   15.86667 , 18.95238   ){\circle*{ .09111111}} 
  \put(   15.93333 , 18.93389   ){\circle*{ .09111111}} 
  \put(         16 ,  18.9182   ){\circle*{ .09111111}} 
  \put(   16.06667 , 18.90557   ){\circle*{ .09111111}} 
  \put(   16.13333 , 18.89616   ){\circle*{ .09111111}} 
  \put(       16.2 , 18.89011   ){\circle*{ .09111111}} 
  \put(   16.26667 ,  18.8875   ){\circle*{ .09111111}} 
  \put(   16.33333 , 18.88839   ){\circle*{ .09111111}} 
  \put(       16.4 , 18.89274   ){\circle*{ .09111111}} 
  \put(   16.46667 , 18.90050   ){\circle*{ .09111111}} 
  \put(   16.53333 , 18.91155   ){\circle*{ .09111111}} 
  \put(       16.6 , 18.92575   ){\circle*{ .09111111}} 
  \put(   16.66667 , 18.94288   ){\circle*{ .09111111}} 
  \put(   16.73333 , 18.96269   ){\circle*{ .09111111}} 
  \put(       16.8 , 18.98489   ){\circle*{ .09111111}} 
  \put(   16.86667 , 19.00912   ){\circle*{ .09111111}} 
  \put(   16.93333 , 19.03499   ){\circle*{ .09111111}} 
  \put(         17 ,  19.0621   ){\circle*{ .09111111}} 
  \put(   17.06667 , 19.08998   ){\circle*{ .09111111}} 
  \put(   17.13333 , 19.11814   ){\circle*{ .09111111}} 
  \put(       17.2 , 19.14609   ){\circle*{ .09111111}} 
  \put(   17.26667 , 19.17331   ){\circle*{ .09111111}} 
  \put(   17.33333 , 19.19928   ){\circle*{ .09111111}} 
  \put(       17.4 , 19.22351   ){\circle*{ .09111111}} 
  \put(   17.46667 , 19.24551   ){\circle*{ .09111111}} 
  \put(   17.53333 , 19.26484   ){\circle*{ .09111111}} 
  \put(       17.6 , 19.28109   ){\circle*{ .09111111}} 
  \put(   17.66667 , 19.29392   ){\circle*{ .09111111}} 
  \put(   17.73333 , 19.30306   ){\circle*{ .09111111}} 
  \put(       17.8 , 19.30831   ){\circle*{ .09111111}} 
  \put(   17.86667 , 19.30956   ){\circle*{ .09111111}} 
  \put(   17.93333 , 19.30678   ){\circle*{ .09111111}} 
  \put(         18 , 19.30003   ){\circle*{ .09111111}} 
  \put(   18.06667 , 19.28946   ){\circle*{ .09111111}} 
  \put(   18.13333 , 19.27529   ){\circle*{ .09111111}} 
  \put(       18.2 , 19.25783   ){\circle*{ .09111111}} 
  \put(   18.26667 , 19.23743   ){\circle*{ .09111111}} 
  \put(   18.33333 , 19.21453   ){\circle*{ .09111111}} 
  \put(       18.4 , 19.18958   ){\circle*{ .09111111}} 
  \put(   18.46667 , 19.16307   ){\circle*{ .09111111}} 
  \put(   18.53333 , 19.13551   ){\circle*{ .09111111}} 
  \put(       18.6 , 19.10742   ){\circle*{ .09111111}} 
  \put(   18.66667 ,  19.0793   ){\circle*{ .09111111}} 
  \put(   18.73333 , 19.05167   ){\circle*{ .09111111}} 
  \put(       18.8 , 19.02498   ){\circle*{ .09111111}} 
  \put(   18.86667 , 18.99968   ){\circle*{ .09111111}} 
  \put(   18.93333 , 18.97618   ){\circle*{ .09111111}} 
  \put(         19 , 18.95486   ){\circle*{ .09111111}} 
  \put(   19.06667 , 18.93603   ){\circle*{ .09111111}} 
  \put(   19.13333 , 18.91999   ){\circle*{ .09111111}} 
  \put(       19.2 , 18.90696   ){\circle*{ .09111111}} 
  \put(   19.26667 , 18.89715   ){\circle*{ .09111111}} 
  \put(   19.33333 , 18.89068   ){\circle*{ .09111111}} 
  \put(       19.4 , 18.88764   ){\circle*{ .09111111}} 
  \put(   19.46667 , 18.88809   ){\circle*{ .09111111}} 
  \put(   19.53333 , 18.89201   ){\circle*{ .09111111}} 
  \put(       19.6 , 18.89935   ){\circle*{ .09111111}} 
  \put(   19.66667 ,    18.91   ){\circle*{ .09111111}} 
  \put(   19.73333 , 18.92383   ){\circle*{ .09111111}} 
  \put(       19.8 ,  18.9406   ){\circle*{ .09111111}} 
  \put(   19.86667 ,  18.9601   ){\circle*{ .09111111}} 
  \put(   19.93333 , 18.98202   ){\circle*{ .09111111}} 
%Finis.

apl> '3Ox' graph 3,1,1,i,1e6,-10,10,1,-.5 , 0  ,1 " tandaty.tex

%Label the curve
  \put( 2.133333 , .25127288    ){n\#-0.5} 
%Draw the data points
  \put(  .06666667 , 10.06073   ){\circle*{ .09111111}} 
  \put(  .13333333 , 10.22368   ){\circle*{ .09111111}} 
  \put(         .2 ,  10.3565   ){\circle*{ .09111111}} 
  \put(  .26666667 , 10.46273   ){\circle*{ .09111111}} 
  \put(  .33333333 , 10.54511   ){\circle*{ .09111111}} 
  \put(         .4 , 10.60574   ){\circle*{ .09111111}} 
  \put(  .46666667 , 10.64612   ){\circle*{ .09111111}} 
  \put(    .533333 , 10.66725   ){\circle*{ .09111111}} 
  \put(         .6 , 10.66964   ){\circle*{ .09111111}} 
  \put(    .666667 , 10.65335   ){\circle*{ .09111111}} 
  \put(    .733333 , 10.61799   ){\circle*{ .09111111}} 
  \put(         .8 , 10.56268   ){\circle*{ .09111111}} 
  \put(    .866667 , 10.48605   ){\circle*{ .09111111}} 
  \put(    .933333 , 10.38618   ){\circle*{ .09111111}} 
  \put(          1 , 10.26048   ){\circle*{ .09111111}} 
  \put(   1.066667 , 10.10565   ){\circle*{ .09111111}} 
  \put(   1.133333 , 9.91751    ){\circle*{ .09111111}} 
  \put(        1.2 , 9.69087    ){\circle*{ .09111111}} 
  \put(   1.266667 , 9.419367   ){\circle*{ .09111111}} 
  \put(   1.333333 , 9.095357   ){\circle*{ .09111111}} 
  \put(        1.4 , 8.709805   ){\circle*{ .09111111}} 
  \put(   1.466667 ,  8.25241   ){\circle*{ .09111111}} 
  \put(   1.533333 , 7.712077   ){\circle*{ .09111111}} 
  \put(        1.6 , 7.078073   ){\circle*{ .09111111}} 
  \put(   1.666667 , 6.342405   ){\circle*{ .09111111}} 
  \put(   1.733333 , 5.504076   ){\circle*{ .09111111}} 
  \put(        1.8 , 4.575837   ){\circle*{ .09111111}} 
  \put(   1.866667 , 3.593237   ){\circle*{ .09111111}} 
  \put(   1.933333 , 2.623487   ){\circle*{ .09111111}} 
  \put(          2 , 1.767802   ){\circle*{ .09111111}} 
  \put(   2.066667 ,  1.14808   ){\circle*{ .09111111}} 
  \put(   2.133333 , .873495    ){\circle*{ .09111111}} 
  \put(        2.2 , .998355    ){\circle*{ .09111111}} 
  \put(   2.266667 , 1.497503   ){\circle*{ .09111111}} 
  \put(   2.333333 , 2.277991   ){\circle*{ .09111111}} 
  \put(        2.4 , 3.217892   ){\circle*{ .09111111}} 
  \put(   2.466667 , 4.205438   ){\circle*{ .09111111}} 
  \put(   2.533333 , 5.160107   ){\circle*{ .09111111}} 
  \put(        2.6 , 6.035176   ){\circle*{ .09111111}} 
  \put(   2.666667 , 6.810363   ){\circle*{ .09111111}} 
  \put(   2.733333 , 7.482375   ){\circle*{ .09111111}} 
  \put(        2.8 ,  8.05717   ){\circle*{ .09111111}} 
  \put(   2.866667 , 8.544803   ){\circle*{ .09111111}} 
  \put(   2.933333 , 8.956422   ){\circle*{ .09111111}} 
  \put(          3 , 9.302714   ){\circle*{ .09111111}} 
  \put(   3.066667 , 9.59322    ){\circle*{ .09111111}} 
  \put(   3.133333 , 9.83612    ){\circle*{ .09111111}} 
  \put(        3.2 , 10.03824   ){\circle*{ .09111111}} 
  \put(   3.266667 ,  10.2052   ){\circle*{ .09111111}} 
  \put(   3.333333 , 10.34155   ){\circle*{ .09111111}} 
  \put(        3.4 , 10.45091   ){\circle*{ .09111111}} 
  \put(   3.466667 , 10.53612   ){\circle*{ .09111111}} 
  \put(   3.533333 , 10.59935   ){\circle*{ .09111111}} 
  \put(        3.6 , 10.64218   ){\circle*{ .09111111}} 
  \put(   3.666667 , 10.66566   ){\circle*{ .09111111}} 
  \put(   3.733333 , 10.67036   ){\circle*{ .09111111}} 
  \put(        3.8 , 10.65640   ){\circle*{ .09111111}} 
  \put(   3.866667 , 10.62343   ){\circle*{ .09111111}} 
  \put(   3.933333 , 10.57065   ){\circle*{ .09111111}} 
  \put(          4 , 10.49676   ){\circle*{ .09111111}} 
  \put(   4.066667 , 10.39990   ){\circle*{ .09111111}} 
  \put(   4.133333 , 10.27756   ){\circle*{ .09111111}} 
  \put(        4.2 , 10.12655   ){\circle*{ .09111111}} 
  \put(   4.266667 , 9.94279    ){\circle*{ .09111111}} 
  \put(   4.333333 , 9.72124    ){\circle*{ .09111111}} 
  \put(        4.4 , 9.455684   ){\circle*{ .09111111}} 
  \put(   4.466667 , 9.138642   ){\circle*{ .09111111}} 
  \put(   4.533333 , 8.761250   ){\circle*{ .09111111}} 
  \put(        4.6 , 8.313350   ){\circle*{ .09111111}} 
  \put(   4.666667 , 7.783898   ){\circle*{ .09111111}} 
  \put(   4.733333 , 7.162020   ){\circle*{ .09111111}} 
  \put(        4.8 , 6.439197   ){\circle*{ .09111111}} 
  \put(   4.866667 , 5.613253   ){\circle*{ .09111111}} 
  \put(   4.933333 ,  4.69478   ){\circle*{ .09111111}} 
  \put(          5 , 3.715977   ){\circle*{ .09111111}} 
  \put(   5.066667 , 2.739788   ){\circle*{ .09111111}} 
  \put(   5.133333 , 1.863535   ){\circle*{ .09111111}} 
  \put(        5.2 , 1.207986   ){\circle*{ .09111111}} 
  \put(   5.266667 , .886217    ){\circle*{ .09111111}} 
  \put(   5.333333 , .961295    ){\circle*{ .09111111}} 
  \put(        5.4 , 1.418047   ){\circle*{ .09111111}} 
  \put(   5.466667 , 2.170132   ){\circle*{ .09111111}} 
  \put(   5.533333 , 3.096844   ){\circle*{ .09111111}} 
  \put(        5.6 , 4.083578   ){\circle*{ .09111111}} 
  \put(   5.666667 , 5.045494   ){\circle*{ .09111111}} 
  \put(   5.733333 ,  5.93197   ){\circle*{ .09111111}} 
  \put(        5.8 , 6.719972   ){\circle*{ .09111111}} 
  \put(   5.866667 , 7.404572   ){\circle*{ .09111111}} 
  \put(   5.933333 , 7.990913   ){\circle*{ .09111111}} 
  \put(          6 , 8.488742   ){\circle*{ .09111111}} 
  \put(   6.066667 , 8.909180   ){\circle*{ .09111111}} 
  \put(   6.133333 ,  9.26302   ){\circle*{ .09111111}} 
  \put(        6.2 , 9.55997    ){\circle*{ .09111111}} 
  \put(   6.266667 , 9.80836    ){\circle*{ .09111111}} 
  \put(   6.333333 , 10.01521   ){\circle*{ .09111111}} 
  \put(        6.4 , 10.18626   ){\circle*{ .09111111}} 
  \put(   6.466667 , 10.32619   ){\circle*{ .09111111}} 
  \put(   6.533333 , 10.43872   ){\circle*{ .09111111}} 
  \put(        6.6 , 10.52680   ){\circle*{ .09111111}} 
  \put(   6.666667 , 10.59265   ){\circle*{ .09111111}} 
  \put(   6.733333 , 10.63794   ){\circle*{ .09111111}} 
  \put(        6.8 , 10.66378   ){\circle*{ .09111111}} 
  \put(   6.866667 , 10.67079   ){\circle*{ .09111111}} 
  \put(   6.933333 , 10.65915   ){\circle*{ .09111111}} 
  \put(          7 , 10.62857   ){\circle*{ .09111111}} 
  \put(   7.066667 ,  10.5783   ){\circle*{ .09111111}} 
  \put(   7.133333 , 10.50712   ){\circle*{ .09111111}} 
  \put(        7.2 , 10.41322   ){\circle*{ .09111111}} 
  \put(   7.266667 ,  10.2942   ){\circle*{ .09111111}} 
  \put(   7.333333 , 10.14694   ){\circle*{ .09111111}} 
  \put(        7.4 , 9.96750    ){\circle*{ .09111111}} 
  \put(   7.466667 , 9.75094    ){\circle*{ .09111111}} 
  \put(   7.533333 , 9.491213   ){\circle*{ .09111111}} 
  \put(        7.6 , 9.181002   ){\circle*{ .09111111}} 
  \put(   7.666667 , 8.811614   ){\circle*{ .09111111}} 
  \put(   7.733333 , 8.373037   ){\circle*{ .09111111}} 
  \put(        7.8 , 7.854297   ){\circle*{ .09111111}} 
  \put(   7.866667 , 7.244409   ){\circle*{ .09111111}} 
  \put(   7.933333 , 6.534390   ){\circle*{ .09111111}} 
  \put(          8 , 5.720983   ){\circle*{ .09111111}} 
  \put(   8.066667 , 4.812759   ){\circle*{ .09111111}} 
  \put(   8.133333 , 3.838712   ){\circle*{ .09111111}} 
  \put(        8.2 , 2.857589   ){\circle*{ .09111111}} 
  \put(   8.266667 , 1.962662   ){\circle*{ .09111111}} 
  \put(   8.333333 , 1.273079   ){\circle*{ .09111111}} 
  \put(        8.4 , .905135    ){\circle*{ .09111111}} 
  \put(   8.466667 , .930189    ){\circle*{ .09111111}} 
  \put(   8.533333 , 1.343168   ){\circle*{ .09111111}} 
  \put(        8.6 , 2.064942   ){\circle*{ .09111111}} 
  \put(   8.666667 , 2.976677   ){\circle*{ .09111111}} 
  \put(   8.733333 , 3.961292   ){\circle*{ .09111111}} 
  \put(        8.8 , 4.929689   ){\circle*{ .09111111}} 
  \put(   8.866667 , 5.827231   ){\circle*{ .09111111}} 
  \put(   8.933333 , 6.627982   ){\circle*{ .09111111}} 
  \put(          9 , 7.325255   ){\circle*{ .09111111}} 
  \put(   9.066667 , 7.923295   ){\circle*{ .09111111}} 
  \put(   9.133333 , 8.431494   ){\circle*{ .09111111}} 
  \put(        9.2 , 8.860917   ){\circle*{ .09111111}} 
  \put(   9.266667 , 9.222456   ){\circle*{ .09111111}} 
  \put(   9.333333 , 9.52597    ){\circle*{ .09111111}} 
  \put(        9.4 , 9.77997    ){\circle*{ .09111111}} 
  \put(   9.466667 , 9.99163    ){\circle*{ .09111111}} 
  \put(    9.53333 , 10.16685   ){\circle*{ .09111111}} 
  \put(        9.6 , 10.31041   ){\circle*{ .09111111}} 
  \put(    9.66667 , 10.42616   ){\circle*{ .09111111}} 
  \put(    9.73333 , 10.51713   ){\circle*{ .09111111}} 
  \put(        9.8 , 10.58564   ){\circle*{ .09111111}} 
  \put(    9.86667 ,  10.6334   ){\circle*{ .09111111}} 
  \put(    9.93333 ,  10.6616   ){\circle*{ .09111111}} 
  \put(         10 , 10.67093   ){\circle*{ .09111111}} 
  \put(   10.06667 ,  10.6616   ){\circle*{ .09111111}} 
  \put(   10.13333 ,  10.6334   ){\circle*{ .09111111}} 
  \put(       10.2 , 10.58564   ){\circle*{ .09111111}} 
  \put(   10.26667 , 10.51713   ){\circle*{ .09111111}} 
  \put(   10.33333 , 10.42616   ){\circle*{ .09111111}} 
  \put(       10.4 , 10.31041   ){\circle*{ .09111111}} 
  \put(   10.46667 , 10.16685   ){\circle*{ .09111111}} 
  \put(   10.53333 , 9.99163    ){\circle*{ .09111111}} 
  \put(       10.6 , 9.77997    ){\circle*{ .09111111}} 
  \put(   10.66667 , 9.52597    ){\circle*{ .09111111}} 
  \put(   10.73333 , 9.222456   ){\circle*{ .09111111}} 
  \put(       10.8 , 8.860917   ){\circle*{ .09111111}} 
  \put(   10.86667 , 8.431494   ){\circle*{ .09111111}} 
  \put(   10.93333 , 7.923295   ){\circle*{ .09111111}} 
  \put(         11 , 7.325255   ){\circle*{ .09111111}} 
  \put(   11.06667 , 6.627982   ){\circle*{ .09111111}} 
  \put(   11.13333 , 5.827231   ){\circle*{ .09111111}} 
  \put(       11.2 , 4.929689   ){\circle*{ .09111111}} 
  \put(   11.26667 , 3.961292   ){\circle*{ .09111111}} 
  \put(   11.33333 , 2.976677   ){\circle*{ .09111111}} 
  \put(       11.4 , 2.064942   ){\circle*{ .09111111}} 
  \put(   11.46667 , 1.343168   ){\circle*{ .09111111}} 
  \put(   11.53333 , .930189    ){\circle*{ .09111111}} 
  \put(       11.6 , .905135    ){\circle*{ .09111111}} 
  \put(   11.66667 , 1.273079   ){\circle*{ .09111111}} 
  \put(   11.73333 , 1.962662   ){\circle*{ .09111111}} 
  \put(       11.8 , 2.857589   ){\circle*{ .09111111}} 
  \put(   11.86667 , 3.838712   ){\circle*{ .09111111}} 
  \put(   11.93333 , 4.812759   ){\circle*{ .09111111}} 
  \put(         12 , 5.720983   ){\circle*{ .09111111}} 
  \put(   12.06667 , 6.534390   ){\circle*{ .09111111}} 
  \put(   12.13333 , 7.244409   ){\circle*{ .09111111}} 
  \put(       12.2 , 7.854297   ){\circle*{ .09111111}} 
  \put(   12.26667 , 8.373037   ){\circle*{ .09111111}} 
  \put(   12.33333 , 8.811614   ){\circle*{ .09111111}} 
  \put(       12.4 , 9.181002   ){\circle*{ .09111111}} 
  \put(   12.46667 , 9.491213   ){\circle*{ .09111111}} 
  \put(   12.53333 , 9.75094    ){\circle*{ .09111111}} 
  \put(       12.6 , 9.96750    ){\circle*{ .09111111}} 
  \put(   12.66667 , 10.14694   ){\circle*{ .09111111}} 
  \put(   12.73333 ,  10.2942   ){\circle*{ .09111111}} 
  \put(       12.8 , 10.41322   ){\circle*{ .09111111}} 
  \put(   12.86667 , 10.50712   ){\circle*{ .09111111}} 
  \put(   12.93333 ,  10.5783   ){\circle*{ .09111111}} 
  \put(         13 , 10.62857   ){\circle*{ .09111111}} 
  \put(   13.06667 , 10.65915   ){\circle*{ .09111111}} 
  \put(   13.13333 , 10.67079   ){\circle*{ .09111111}} 
  \put(       13.2 , 10.66378   ){\circle*{ .09111111}} 
  \put(   13.26667 , 10.63794   ){\circle*{ .09111111}} 
  \put(   13.33333 , 10.59265   ){\circle*{ .09111111}} 
  \put(       13.4 , 10.52680   ){\circle*{ .09111111}} 
  \put(   13.46667 , 10.43872   ){\circle*{ .09111111}} 
  \put(   13.53333 , 10.32619   ){\circle*{ .09111111}} 
  \put(       13.6 , 10.18626   ){\circle*{ .09111111}} 
  \put(   13.66667 , 10.01521   ){\circle*{ .09111111}} 
  \put(   13.73333 , 9.80836    ){\circle*{ .09111111}} 
  \put(       13.8 , 9.55997    ){\circle*{ .09111111}} 
  \put(   13.86667 ,  9.26302   ){\circle*{ .09111111}} 
  \put(   13.93333 , 8.909180   ){\circle*{ .09111111}} 
  \put(         14 , 8.488742   ){\circle*{ .09111111}} 
  \put(   14.06667 , 7.990913   ){\circle*{ .09111111}} 
  \put(   14.13333 , 7.404572   ){\circle*{ .09111111}} 
  \put(       14.2 , 6.719972   ){\circle*{ .09111111}} 
  \put(   14.26667 ,  5.93197   ){\circle*{ .09111111}} 
  \put(   14.33333 , 5.045494   ){\circle*{ .09111111}} 
  \put(       14.4 , 4.083578   ){\circle*{ .09111111}} 
  \put(   14.46667 , 3.096844   ){\circle*{ .09111111}} 
  \put(   14.53333 , 2.170132   ){\circle*{ .09111111}} 
  \put(       14.6 , 1.418047   ){\circle*{ .09111111}} 
  \put(   14.66667 , .961295    ){\circle*{ .09111111}} 
  \put(   14.73333 , .886217    ){\circle*{ .09111111}} 
  \put(       14.8 , 1.207986   ){\circle*{ .09111111}} 
  \put(   14.86667 , 1.863535   ){\circle*{ .09111111}} 
  \put(   14.93333 , 2.739788   ){\circle*{ .09111111}} 
  \put(         15 , 3.715977   ){\circle*{ .09111111}} 
  \put(   15.06667 ,  4.69478   ){\circle*{ .09111111}} 
  \put(   15.13333 , 5.613253   ){\circle*{ .09111111}} 
  \put(       15.2 , 6.439197   ){\circle*{ .09111111}} 
  \put(   15.26667 , 7.162020   ){\circle*{ .09111111}} 
  \put(   15.33333 , 7.783898   ){\circle*{ .09111111}} 
  \put(       15.4 , 8.313350   ){\circle*{ .09111111}} 
  \put(   15.46667 , 8.761250   ){\circle*{ .09111111}} 
  \put(   15.53333 , 9.138642   ){\circle*{ .09111111}} 
  \put(       15.6 , 9.455684   ){\circle*{ .09111111}} 
  \put(   15.66667 , 9.72124    ){\circle*{ .09111111}} 
  \put(   15.73333 , 9.94279    ){\circle*{ .09111111}} 
  \put(       15.8 , 10.12655   ){\circle*{ .09111111}} 
  \put(   15.86667 , 10.27756   ){\circle*{ .09111111}} 
  \put(   15.93333 , 10.39990   ){\circle*{ .09111111}} 
  \put(         16 , 10.49676   ){\circle*{ .09111111}} 
  \put(   16.06667 , 10.57065   ){\circle*{ .09111111}} 
  \put(   16.13333 , 10.62343   ){\circle*{ .09111111}} 
  \put(       16.2 , 10.65640   ){\circle*{ .09111111}} 
  \put(   16.26667 , 10.67036   ){\circle*{ .09111111}} 
  \put(   16.33333 , 10.66566   ){\circle*{ .09111111}} 
  \put(       16.4 , 10.64218   ){\circle*{ .09111111}} 
  \put(   16.46667 , 10.59935   ){\circle*{ .09111111}} 
  \put(   16.53333 , 10.53612   ){\circle*{ .09111111}} 
  \put(       16.6 , 10.45091   ){\circle*{ .09111111}} 
  \put(   16.66667 , 10.34155   ){\circle*{ .09111111}} 
  \put(   16.73333 ,  10.2052   ){\circle*{ .09111111}} 
  \put(       16.8 , 10.03824   ){\circle*{ .09111111}} 
  \put(   16.86667 , 9.83612    ){\circle*{ .09111111}} 
  \put(   16.93333 , 9.59322    ){\circle*{ .09111111}} 
  \put(         17 , 9.302714   ){\circle*{ .09111111}} 
  \put(   17.06667 , 8.956422   ){\circle*{ .09111111}} 
  \put(   17.13333 , 8.544803   ){\circle*{ .09111111}} 
  \put(       17.2 ,  8.05717   ){\circle*{ .09111111}} 
  \put(   17.26667 , 7.482375   ){\circle*{ .09111111}} 
  \put(   17.33333 , 6.810363   ){\circle*{ .09111111}} 
  \put(       17.4 , 6.035176   ){\circle*{ .09111111}} 
  \put(   17.46667 , 5.160107   ){\circle*{ .09111111}} 
  \put(   17.53333 , 4.205438   ){\circle*{ .09111111}} 
  \put(       17.6 , 3.217892   ){\circle*{ .09111111}} 
  \put(   17.66667 , 2.277991   ){\circle*{ .09111111}} 
  \put(   17.73333 , 1.497503   ){\circle*{ .09111111}} 
  \put(       17.8 , .998355    ){\circle*{ .09111111}} 
  \put(   17.86667 , .873495    ){\circle*{ .09111111}} 
  \put(   17.93333 ,  1.14808   ){\circle*{ .09111111}} 
  \put(         18 , 1.767802   ){\circle*{ .09111111}} 
  \put(   18.06667 , 2.623487   ){\circle*{ .09111111}} 
  \put(   18.13333 , 3.593237   ){\circle*{ .09111111}} 
  \put(       18.2 , 4.575837   ){\circle*{ .09111111}} 
  \put(   18.26667 , 5.504076   ){\circle*{ .09111111}} 
  \put(   18.33333 , 6.342405   ){\circle*{ .09111111}} 
  \put(       18.4 , 7.078073   ){\circle*{ .09111111}} 
  \put(   18.46667 , 7.712077   ){\circle*{ .09111111}} 
  \put(   18.53333 ,  8.25241   ){\circle*{ .09111111}} 
  \put(       18.6 , 8.709805   ){\circle*{ .09111111}} 
  \put(   18.66667 , 9.095357   ){\circle*{ .09111111}} 
  \put(   18.73333 , 9.419367   ){\circle*{ .09111111}} 
  \put(       18.8 , 9.69087    ){\circle*{ .09111111}} 
  \put(   18.86667 , 9.91751    ){\circle*{ .09111111}} 
  \put(   18.93333 , 10.10565   ){\circle*{ .09111111}} 
  \put(         19 , 10.26048   ){\circle*{ .09111111}} 
  \put(   19.06667 , 10.38618   ){\circle*{ .09111111}} 
  \put(   19.13333 , 10.48605   ){\circle*{ .09111111}} 
  \put(       19.2 , 10.56268   ){\circle*{ .09111111}} 
  \put(   19.26667 , 10.61799   ){\circle*{ .09111111}} 
  \put(   19.33333 , 10.65335   ){\circle*{ .09111111}} 
  \put(       19.4 , 10.66964   ){\circle*{ .09111111}} 
  \put(   19.46667 , 10.66725   ){\circle*{ .09111111}} 
  \put(   19.53333 , 10.64612   ){\circle*{ .09111111}} 
  \put(       19.6 , 10.60574   ){\circle*{ .09111111}} 
  \put(   19.66667 , 10.54511   ){\circle*{ .09111111}} 
  \put(   19.73333 , 10.46273   ){\circle*{ .09111111}} 
  \put(       19.8 ,  10.3565   ){\circle*{ .09111111}} 
  \put(   19.86667 , 10.22368   ){\circle*{ .09111111}} 
  \put(   19.93333 , 10.06073   ){\circle*{ .09111111}} 
%Finis.

apl> '3Ox' graph 3,1,1,i,1e6,-10,10,1,-1  , 0  ,1 " tandaty.tex

%Label the curve
  \put( 2.133333 , 5.14718   ){n\#-1} 
%Draw the data points
  \put(  .06666667 , 8.460342   ){\circle*{ .09111111}} 
  \put(  .13333333 , 8.580503   ){\circle*{ .09111111}} 
  \put(         .2 , 8.683258   ){\circle*{ .09111111}} 
  \put(  .26666667 , 8.768756   ){\circle*{ .09111111}} 
  \put(  .33333333 , 8.837204   ){\circle*{ .09111111}} 
  \put(         .4 , 8.888823   ){\circle*{ .09111111}} 
  \put(  .46666667 ,  8.92381   ){\circle*{ .09111111}} 
  \put(    .533333 , 8.942314   ){\circle*{ .09111111}} 
  \put(         .6 , 8.944417   ){\circle*{ .09111111}} 
  \put(    .666667 , 8.930128   ){\circle*{ .09111111}} 
  \put(    .733333 , 8.899383   ){\circle*{ .09111111}} 
  \put(         .8 , 8.852049   ){\circle*{ .09111111}} 
  \put(    .866667 , 8.787941   ){\circle*{ .09111111}} 
  \put(    .933333 , 8.706841   ){\circle*{ .09111111}} 
  \put(          1 , 8.608532   ){\circle*{ .09111111}} 
  \put(   1.066667 , 8.492847   ){\circle*{ .09111111}} 
  \put(   1.133333 , 8.359726   ){\circle*{ .09111111}} 
  \put(        1.2 , 8.209301   ){\circle*{ .09111111}} 
  \put(   1.266667 , 8.041994   ){\circle*{ .09111111}} 
  \put(   1.333333 ,  7.85864   ){\circle*{ .09111111}} 
  \put(        1.4 , 7.660633   ){\circle*{ .09111111}} 
  \put(   1.466667 , 7.450079   ){\circle*{ .09111111}} 
  \put(   1.533333 , 7.229961   ){\circle*{ .09111111}} 
  \put(        1.6 , 7.004276   ){\circle*{ .09111111}} 
  \put(   1.666667 , 6.778119   ){\circle*{ .09111111}} 
  \put(   1.733333 , 6.557686   ){\circle*{ .09111111}} 
  \put(        1.8 , 6.350124   ){\circle*{ .09111111}} 
  \put(   1.866667 ,  6.16323   ){\circle*{ .09111111}} 
  \put(   1.933333 , 6.004949   ){\circle*{ .09111111}} 
  \put(          2 , 5.882728   ){\circle*{ .09111111}} 
  \put(   2.066667 , 5.802782   ){\circle*{ .09111111}} 
  \put(   2.133333 , 5.769402   ){\circle*{ .09111111}} 
  \put(        2.2 , 5.784433   ){\circle*{ .09111111}} 
  \put(   2.266667 ,  5.84704   ){\circle*{ .09111111}} 
  \put(   2.333333 , 5.953816   ){\circle*{ .09111111}} 
  \put(        2.4 , 6.099201   ){\circle*{ .09111111}} 
  \put(   2.466667 , 6.276131   ){\circle*{ .09111111}} 
  \put(   2.533333 , 6.476768   ){\circle*{ .09111111}} 
  \put(        2.6 , 6.693189   ){\circle*{ .09111111}} 
  \put(   2.666667 , 6.917955   ){\circle*{ .09111111}} 
  \put(   2.733333 ,  7.14448   ){\circle*{ .09111111}} 
  \put(        2.8 , 7.367247   ){\circle*{ .09111111}} 
  \put(   2.866667 , 7.581844   ){\circle*{ .09111111}} 
  \put(   2.933333 , 7.784919   ){\circle*{ .09111111}} 
  \put(          3 , 7.974048   ){\circle*{ .09111111}} 
  \put(   3.066667 , 8.147588   ){\circle*{ .09111111}} 
  \put(   3.133333 , 8.304506   ){\circle*{ .09111111}} 
  \put(        3.2 ,  8.44424   ){\circle*{ .09111111}} 
  \put(   3.266667 , 8.566562   ){\circle*{ .09111111}} 
  \put(   3.333333 , 8.671468   ){\circle*{ .09111111}} 
  \put(        3.4 , 8.759093   ){\circle*{ .09111111}} 
  \put(   3.466667 , 8.829641   ){\circle*{ .09111111}} 
  \put(   3.533333 , 8.883334   ){\circle*{ .09111111}} 
  \put(        3.6 , 8.920373   ){\circle*{ .09111111}} 
  \put(   3.666667 , 8.940913   ){\circle*{ .09111111}} 
  \put(   3.733333 , 8.945045   ){\circle*{ .09111111}} 
  \put(        3.8 , 8.932789   ){\circle*{ .09111111}} 
  \put(   3.866667 , 8.904089   ){\circle*{ .09111111}} 
  \put(   3.933333 , 8.858820   ){\circle*{ .09111111}} 
  \put(          4 , 8.796801   ){\circle*{ .09111111}} 
  \put(   4.066667 , 8.717818   ){\circle*{ .09111111}} 
  \put(   4.133333 , 8.621652   ){\circle*{ .09111111}} 
  \put(        4.2 , 8.508125   ){\circle*{ .09111111}} 
  \put(   4.266667 , 8.377162   ){\circle*{ .09111111}} 
  \put(   4.333333 , 8.228866   ){\circle*{ .09111111}} 
  \put(        4.4 , 8.063614   ){\circle*{ .09111111}} 
  \put(   4.466667 , 7.882186   ){\circle*{ .09111111}} 
  \put(   4.533333 , 7.685895   ){\circle*{ .09111111}} 
  \put(        4.6 , 7.476753   ){\circle*{ .09111111}} 
  \put(   4.666667 , 7.257625   ){\circle*{ .09111111}} 
  \put(   4.733333 , 7.032376   ){\circle*{ .09111111}} 
  \put(        4.8 , 6.805963   ){\circle*{ .09111111}} 
  \put(   4.866667 , 6.584450   ){\circle*{ .09111111}} 
  \put(   4.933333 , 6.374879   ){\circle*{ .09111111}} 
  \put(          5 , 6.184991   ){\circle*{ .09111111}} 
  \put(   5.066667 , 6.022744   ){\circle*{ .09111111}} 
  \put(   5.133333 , 5.895686   ){\circle*{ .09111111}} 
  \put(        5.2 , 5.810225   ){\circle*{ .09111111}} 
  \put(   5.266667 , 5.770923   ){\circle*{ .09111111}} 
  \put(   5.333333 , 5.779946   ){\circle*{ .09111111}} 
  \put(        5.4 , 5.836795   ){\circle*{ .09111111}} 
  \put(   5.466667 , 5.938362   ){\circle*{ .09111111}} 
  \put(   5.533333 , 6.079323   ){\circle*{ .09111111}} 
  \put(        5.6 , 6.252762   ){\circle*{ .09111111}} 
  \put(   5.666667 , 6.450896   ){\circle*{ .09111111}} 
  \put(   5.733333 , 6.665780   ){\circle*{ .09111111}} 
  \put(        5.8 , 6.889889   ){\circle*{ .09111111}} 
  \put(   5.866667 , 7.116519   ){\circle*{ .09111111}} 
  \put(   5.933333 , 7.340013   ){\circle*{ .09111111}} 
  \put(          6 , 7.555824   ){\circle*{ .09111111}} 
  \put(   6.066667 , 7.760475   ){\circle*{ .09111111}} 
  \put(   6.133333 , 7.951436   ){\circle*{ .09111111}} 
  \put(        6.2 , 8.126974   ){\circle*{ .09111111}} 
  \put(   6.266667 ,  8.28599   ){\circle*{ .09111111}} 
  \put(   6.333333 , 8.427872   ){\circle*{ .09111111}} 
  \put(        6.4 , 8.552355   ){\circle*{ .09111111}} 
  \put(   6.466667 , 8.659413   ){\circle*{ .09111111}} 
  \put(   6.533333 , 8.749169   ){\circle*{ .09111111}} 
  \put(        6.6 ,  8.82182   ){\circle*{ .09111111}} 
  \put(   6.666667 , 8.877590   ){\circle*{ .09111111}} 
  \put(   6.733333 , 8.916682   ){\circle*{ .09111111}} 
  \put(        6.8 , 8.939260   ){\circle*{ .09111111}} 
  \put(   6.866667 , 8.945422   ){\circle*{ .09111111}} 
  \put(   6.933333 , 8.935198   ){\circle*{ .09111111}} 
  \put(          7 ,  8.90854   ){\circle*{ .09111111}} 
  \put(   7.066667 , 8.865333   ){\circle*{ .09111111}} 
  \put(   7.133333 ,   8.8054   ){\circle*{ .09111111}} 
  \put(        7.2 , 8.728532   ){\circle*{ .09111111}} 
  \put(   7.266667 , 8.634505   ){\circle*{ .09111111}} 
  \put(   7.333333 , 8.523136   ){\circle*{ .09111111}} 
  \put(        7.4 , 8.394332   ){\circle*{ .09111111}} 
  \put(   7.466667 , 8.248169   ){\circle*{ .09111111}} 
  \put(   7.533333 , 8.084986   ){\circle*{ .09111111}} 
  \put(        7.6 , 7.905502   ){\circle*{ .09111111}} 
  \put(   7.666667 , 7.710960   ){\circle*{ .09111111}} 
  \put(   7.733333 , 7.503273   ){\circle*{ .09111111}} 
  \put(        7.8 , 7.285194   ){\circle*{ .09111111}} 
  \put(   7.866667 , 7.060456   ){\circle*{ .09111111}} 
  \put(   7.933333 ,  6.83388   ){\circle*{ .09111111}} 
  \put(          8 , 6.611396   ){\circle*{ .09111111}} 
  \put(   8.066667 , 6.399937   ){\circle*{ .09111111}} 
  \put(   8.133333 , 6.207177   ){\circle*{ .09111111}} 
  \put(        8.2 ,  6.04108   ){\circle*{ .09111111}} 
  \put(   8.266667 , 5.909285   ){\circle*{ .09111111}} 
  \put(   8.333333 , 5.818380   ){\circle*{ .09111111}} 
  \put(        8.4 , 5.773188   ){\circle*{ .09111111}} 
  \put(   8.466667 , 5.776197   ){\circle*{ .09111111}} 
  \put(   8.533333 , 5.827239   ){\circle*{ .09111111}} 
  \put(        8.6 , 5.923514   ){\circle*{ .09111111}} 
  \put(   8.666667 , 6.059945   ){\circle*{ .09111111}} 
  \put(   8.733333 , 6.229772   ){\circle*{ .09111111}} 
  \put(        8.8 ,  6.42528   ){\circle*{ .09111111}} 
  \put(   8.866667 ,  6.63851   ){\circle*{ .09111111}} 
  \put(   8.933333 ,  6.86186   ){\circle*{ .09111111}} 
  \put(          9 , 7.088508   ){\circle*{ .09111111}} 
  \put(   9.066667 , 7.312659   ){\circle*{ .09111111}} 
  \put(   9.133333 , 7.529632   ){\circle*{ .09111111}} 
  \put(        9.2 , 7.735821   ){\circle*{ .09111111}} 
  \put(   9.266667 , 7.928587   ){\circle*{ .09111111}} 
  \put(   9.333333 , 8.106106   ){\circle*{ .09111111}} 
  \put(        9.4 , 8.267211   ){\circle*{ .09111111}} 
  \put(   9.466667 , 8.411236   ){\circle*{ .09111111}} 
  \put(    9.53333 , 8.537879   ){\circle*{ .09111111}} 
  \put(        9.6 , 8.647092   ){\circle*{ .09111111}} 
  \put(    9.66667 , 8.738982   ){\circle*{ .09111111}} 
  \put(    9.73333 ,  8.81374   ){\circle*{ .09111111}} 
  \put(        9.8 , 8.871589   ){\circle*{ .09111111}} 
  \put(    9.86667 , 8.912738   ){\circle*{ .09111111}} 
  \put(    9.93333 , 8.937355   ){\circle*{ .09111111}} 
  \put(         10 , 8.945548   ){\circle*{ .09111111}} 
  \put(   10.06667 , 8.937355   ){\circle*{ .09111111}} 
  \put(   10.13333 , 8.912738   ){\circle*{ .09111111}} 
  \put(       10.2 , 8.871589   ){\circle*{ .09111111}} 
  \put(   10.26667 ,  8.81374   ){\circle*{ .09111111}} 
  \put(   10.33333 , 8.738982   ){\circle*{ .09111111}} 
  \put(       10.4 , 8.647092   ){\circle*{ .09111111}} 
  \put(   10.46667 , 8.537879   ){\circle*{ .09111111}} 
  \put(   10.53333 , 8.411236   ){\circle*{ .09111111}} 
  \put(       10.6 , 8.267211   ){\circle*{ .09111111}} 
  \put(   10.66667 , 8.106106   ){\circle*{ .09111111}} 
  \put(   10.73333 , 7.928587   ){\circle*{ .09111111}} 
  \put(       10.8 , 7.735821   ){\circle*{ .09111111}} 
  \put(   10.86667 , 7.529632   ){\circle*{ .09111111}} 
  \put(   10.93333 , 7.312659   ){\circle*{ .09111111}} 
  \put(         11 , 7.088508   ){\circle*{ .09111111}} 
  \put(   11.06667 ,  6.86186   ){\circle*{ .09111111}} 
  \put(   11.13333 ,  6.63851   ){\circle*{ .09111111}} 
  \put(       11.2 ,  6.42528   ){\circle*{ .09111111}} 
  \put(   11.26667 , 6.229772   ){\circle*{ .09111111}} 
  \put(   11.33333 , 6.059945   ){\circle*{ .09111111}} 
  \put(       11.4 , 5.923514   ){\circle*{ .09111111}} 
  \put(   11.46667 , 5.827239   ){\circle*{ .09111111}} 
  \put(   11.53333 , 5.776197   ){\circle*{ .09111111}} 
  \put(       11.6 , 5.773188   ){\circle*{ .09111111}} 
  \put(   11.66667 , 5.818380   ){\circle*{ .09111111}} 
  \put(   11.73333 , 5.909285   ){\circle*{ .09111111}} 
  \put(       11.8 ,  6.04108   ){\circle*{ .09111111}} 
  \put(   11.86667 , 6.207177   ){\circle*{ .09111111}} 
  \put(   11.93333 , 6.399937   ){\circle*{ .09111111}} 
  \put(         12 , 6.611396   ){\circle*{ .09111111}} 
  \put(   12.06667 ,  6.83388   ){\circle*{ .09111111}} 
  \put(   12.13333 , 7.060456   ){\circle*{ .09111111}} 
  \put(       12.2 , 7.285194   ){\circle*{ .09111111}} 
  \put(   12.26667 , 7.503273   ){\circle*{ .09111111}} 
  \put(   12.33333 , 7.710960   ){\circle*{ .09111111}} 
  \put(       12.4 , 7.905502   ){\circle*{ .09111111}} 
  \put(   12.46667 , 8.084986   ){\circle*{ .09111111}} 
  \put(   12.53333 , 8.248169   ){\circle*{ .09111111}} 
  \put(       12.6 , 8.394332   ){\circle*{ .09111111}} 
  \put(   12.66667 , 8.523136   ){\circle*{ .09111111}} 
  \put(   12.73333 , 8.634505   ){\circle*{ .09111111}} 
  \put(       12.8 , 8.728532   ){\circle*{ .09111111}} 
  \put(   12.86667 ,   8.8054   ){\circle*{ .09111111}} 
  \put(   12.93333 , 8.865333   ){\circle*{ .09111111}} 
  \put(         13 ,  8.90854   ){\circle*{ .09111111}} 
  \put(   13.06667 , 8.935198   ){\circle*{ .09111111}} 
  \put(   13.13333 , 8.945422   ){\circle*{ .09111111}} 
  \put(       13.2 , 8.939260   ){\circle*{ .09111111}} 
  \put(   13.26667 , 8.916682   ){\circle*{ .09111111}} 
  \put(   13.33333 , 8.877590   ){\circle*{ .09111111}} 
  \put(       13.4 ,  8.82182   ){\circle*{ .09111111}} 
  \put(   13.46667 , 8.749169   ){\circle*{ .09111111}} 
  \put(   13.53333 , 8.659413   ){\circle*{ .09111111}} 
  \put(       13.6 , 8.552355   ){\circle*{ .09111111}} 
  \put(   13.66667 , 8.427872   ){\circle*{ .09111111}} 
  \put(   13.73333 ,  8.28599   ){\circle*{ .09111111}} 
  \put(       13.8 , 8.126974   ){\circle*{ .09111111}} 
  \put(   13.86667 , 7.951436   ){\circle*{ .09111111}} 
  \put(   13.93333 , 7.760475   ){\circle*{ .09111111}} 
  \put(         14 , 7.555824   ){\circle*{ .09111111}} 
  \put(   14.06667 , 7.340013   ){\circle*{ .09111111}} 
  \put(   14.13333 , 7.116519   ){\circle*{ .09111111}} 
  \put(       14.2 , 6.889889   ){\circle*{ .09111111}} 
  \put(   14.26667 , 6.665780   ){\circle*{ .09111111}} 
  \put(   14.33333 , 6.450896   ){\circle*{ .09111111}} 
  \put(       14.4 , 6.252762   ){\circle*{ .09111111}} 
  \put(   14.46667 , 6.079323   ){\circle*{ .09111111}} 
  \put(   14.53333 , 5.938362   ){\circle*{ .09111111}} 
  \put(       14.6 , 5.836795   ){\circle*{ .09111111}} 
  \put(   14.66667 , 5.779946   ){\circle*{ .09111111}} 
  \put(   14.73333 , 5.770923   ){\circle*{ .09111111}} 
  \put(       14.8 , 5.810225   ){\circle*{ .09111111}} 
  \put(   14.86667 , 5.895686   ){\circle*{ .09111111}} 
  \put(   14.93333 , 6.022744   ){\circle*{ .09111111}} 
  \put(         15 , 6.184991   ){\circle*{ .09111111}} 
  \put(   15.06667 , 6.374879   ){\circle*{ .09111111}} 
  \put(   15.13333 , 6.584450   ){\circle*{ .09111111}} 
  \put(       15.2 , 6.805963   ){\circle*{ .09111111}} 
  \put(   15.26667 , 7.032376   ){\circle*{ .09111111}} 
  \put(   15.33333 , 7.257625   ){\circle*{ .09111111}} 
  \put(       15.4 , 7.476753   ){\circle*{ .09111111}} 
  \put(   15.46667 , 7.685895   ){\circle*{ .09111111}} 
  \put(   15.53333 , 7.882186   ){\circle*{ .09111111}} 
  \put(       15.6 , 8.063614   ){\circle*{ .09111111}} 
  \put(   15.66667 , 8.228866   ){\circle*{ .09111111}} 
  \put(   15.73333 , 8.377162   ){\circle*{ .09111111}} 
  \put(       15.8 , 8.508125   ){\circle*{ .09111111}} 
  \put(   15.86667 , 8.621652   ){\circle*{ .09111111}} 
  \put(   15.93333 , 8.717818   ){\circle*{ .09111111}} 
  \put(         16 , 8.796801   ){\circle*{ .09111111}} 
  \put(   16.06667 , 8.858820   ){\circle*{ .09111111}} 
  \put(   16.13333 , 8.904089   ){\circle*{ .09111111}} 
  \put(       16.2 , 8.932789   ){\circle*{ .09111111}} 
  \put(   16.26667 , 8.945045   ){\circle*{ .09111111}} 
  \put(   16.33333 , 8.940913   ){\circle*{ .09111111}} 
  \put(       16.4 , 8.920373   ){\circle*{ .09111111}} 
  \put(   16.46667 , 8.883334   ){\circle*{ .09111111}} 
  \put(   16.53333 , 8.829641   ){\circle*{ .09111111}} 
  \put(       16.6 , 8.759093   ){\circle*{ .09111111}} 
  \put(   16.66667 , 8.671468   ){\circle*{ .09111111}} 
  \put(   16.73333 , 8.566562   ){\circle*{ .09111111}} 
  \put(       16.8 ,  8.44424   ){\circle*{ .09111111}} 
  \put(   16.86667 , 8.304506   ){\circle*{ .09111111}} 
  \put(   16.93333 , 8.147588   ){\circle*{ .09111111}} 
  \put(         17 , 7.974048   ){\circle*{ .09111111}} 
  \put(   17.06667 , 7.784919   ){\circle*{ .09111111}} 
  \put(   17.13333 , 7.581844   ){\circle*{ .09111111}} 
  \put(       17.2 , 7.367247   ){\circle*{ .09111111}} 
  \put(   17.26667 ,  7.14448   ){\circle*{ .09111111}} 
  \put(   17.33333 , 6.917955   ){\circle*{ .09111111}} 
  \put(       17.4 , 6.693189   ){\circle*{ .09111111}} 
  \put(   17.46667 , 6.476768   ){\circle*{ .09111111}} 
  \put(   17.53333 , 6.276131   ){\circle*{ .09111111}} 
  \put(       17.6 , 6.099201   ){\circle*{ .09111111}} 
  \put(   17.66667 , 5.953816   ){\circle*{ .09111111}} 
  \put(   17.73333 ,  5.84704   ){\circle*{ .09111111}} 
  \put(       17.8 , 5.784433   ){\circle*{ .09111111}} 
  \put(   17.86667 , 5.769402   ){\circle*{ .09111111}} 
  \put(   17.93333 , 5.802782   ){\circle*{ .09111111}} 
  \put(         18 , 5.882728   ){\circle*{ .09111111}} 
  \put(   18.06667 , 6.004949   ){\circle*{ .09111111}} 
  \put(   18.13333 ,  6.16323   ){\circle*{ .09111111}} 
  \put(       18.2 , 6.350124   ){\circle*{ .09111111}} 
  \put(   18.26667 , 6.557686   ){\circle*{ .09111111}} 
  \put(   18.33333 , 6.778119   ){\circle*{ .09111111}} 
  \put(       18.4 , 7.004276   ){\circle*{ .09111111}} 
  \put(   18.46667 , 7.229961   ){\circle*{ .09111111}} 
  \put(   18.53333 , 7.450079   ){\circle*{ .09111111}} 
  \put(       18.6 , 7.660633   ){\circle*{ .09111111}} 
  \put(   18.66667 ,  7.85864   ){\circle*{ .09111111}} 
  \put(   18.73333 , 8.041994   ){\circle*{ .09111111}} 
  \put(       18.8 , 8.209301   ){\circle*{ .09111111}} 
  \put(   18.86667 , 8.359726   ){\circle*{ .09111111}} 
  \put(   18.93333 , 8.492847   ){\circle*{ .09111111}} 
  \put(         19 , 8.608532   ){\circle*{ .09111111}} 
  \put(   19.06667 , 8.706841   ){\circle*{ .09111111}} 
  \put(   19.13333 , 8.787941   ){\circle*{ .09111111}} 
  \put(       19.2 , 8.852049   ){\circle*{ .09111111}} 
  \put(   19.26667 , 8.899383   ){\circle*{ .09111111}} 
  \put(   19.33333 , 8.930128   ){\circle*{ .09111111}} 
  \put(       19.4 , 8.944417   ){\circle*{ .09111111}} 
  \put(   19.46667 , 8.942314   ){\circle*{ .09111111}} 
  \put(   19.53333 ,  8.92381   ){\circle*{ .09111111}} 
  \put(       19.6 , 8.888823   ){\circle*{ .09111111}} 
  \put(   19.66667 , 8.837204   ){\circle*{ .09111111}} 
  \put(   19.73333 , 8.768756   ){\circle*{ .09111111}} 
  \put(       19.8 , 8.683258   ){\circle*{ .09111111}} 
  \put(   19.86667 , 8.580503   ){\circle*{ .09111111}} 
  \put(   19.93333 , 8.460342   ){\circle*{ .09111111}} 
%Finis.

apl> points#100


apl> '3Ox' graph 2,1,1,i,1e6,-10,10,1,-2  , 0  ,1 " tandaty.tex

%Label the curve
  \put( 8.4 , 6.735200   ){n\#-2} 
%Draw the data points
  \put(   .2 , 7.726058   ){\circle*{ .09111111}} 
  \put(   .4 , 7.767314   ){\circle*{ .09111111}} 
  \put(   .6 , 7.779024   ){\circle*{ .09111111}} 
  \put(   .8 , 7.759702   ){\circle*{ .09111111}} 
  \put(    1 , 7.711810   ){\circle*{ .09111111}} 
  \put(  1.2 , 7.641689   ){\circle*{ .09111111}} 
  \put(  1.4 , 7.559245   ){\circle*{ .09111111}} 
  \put(  1.6 , 7.477088   ){\circle*{ .09111111}} 
  \put(  1.8 , 7.408841   ){\circle*{ .09111111}} 
  \put(    2 , 7.366637   ){\circle*{ .09111111}} 
  \put(  2.2 , 7.358357   ){\circle*{ .09111111}} 
  \put(  2.4 ,  7.38558   ){\circle*{ .09111111}} 
  \put(  2.6 , 7.443154   ){\circle*{ .09111111}} 
  \put(  2.8 , 7.520577   ){\circle*{ .09111111}} 
  \put(    3 , 7.604566   ){\circle*{ .09111111}} 
  \put(  3.2 , 7.681780   ){\circle*{ .09111111}} 
  \put(  3.4 , 7.740916   ){\circle*{ .09111111}} 
  \put(  3.6 , 7.773930   ){\circle*{ .09111111}} 
  \put(  3.8 , 7.776555   ){\circle*{ .09111111}} 
  \put(    4 , 7.748459   ){\circle*{ .09111111}} 
  \put(  4.2 , 7.693252   ){\circle*{ .09111111}} 
  \put(  4.4 , 7.618365   ){\circle*{ .09111111}} 
  \put(  4.6 , 7.534616   ){\circle*{ .09111111}} 
  \put(  4.8 , 7.455126   ){\circle*{ .09111111}} 
  \put(    5 , 7.393370   ){\circle*{ .09111111}} 
  \put(  5.2 ,  7.36051   ){\circle*{ .09111111}} 
  \put(  5.4 , 7.362744   ){\circle*{ .09111111}} 
  \put(  5.6 , 7.399642   ){\circle*{ .09111111}} 
  \put(  5.8 , 7.464276   ){\circle*{ .09111111}} 
  \put(    6 ,  7.54504   ){\circle*{ .09111111}} 
  \put(  6.2 , 7.628371   ){\circle*{ .09111111}} 
  \put(  6.4 , 7.701346   ){\circle*{ .09111111}} 
  \put(  6.6 , 7.753522   ){\circle*{ .09111111}} 
  \put(  6.8 , 7.777928   ){\circle*{ .09111111}} 
  \put(    7 , 7.771439   ){\circle*{ .09111111}} 
  \put(  7.2 , 7.734879   ){\circle*{ .09111111}} 
  \put(  7.4 , 7.672993   ){\circle*{ .09111111}} 
  \put(  7.6 , 7.594269   ){\circle*{ .09111111}} 
  \put(  7.8 , 7.510347   ){\circle*{ .09111111}} 
  \put(    8 , 7.434692   ){\circle*{ .09111111}} 
  \put(  8.2 , 7.380396   ){\circle*{ .09111111}} 
  \put(  8.4 , 7.357422   ){\circle*{ .09111111}} 
  \put(  8.6 ,  7.37013   ){\circle*{ .09111111}} 
  \put(  8.8 , 7.416100   ){\circle*{ .09111111}} 
  \put(    9 , 7.486786   ){\circle*{ .09111111}} 
  \put(  9.2 , 7.569718   ){\circle*{ .09111111}} 
  \put(  9.4 , 7.651277   ){\circle*{ .09111111}} 
  \put(  9.6 , 7.719114   ){\circle*{ .09111111}} 
  \put(  9.8 , 7.763734   ){\circle*{ .09111111}} 
  \put(   10 , 7.779265   ){\circle*{ .09111111}} 
  \put( 10.2 , 7.763734   ){\circle*{ .09111111}} 
  \put( 10.4 , 7.719114   ){\circle*{ .09111111}} 
  \put( 10.6 , 7.651277   ){\circle*{ .09111111}} 
  \put( 10.8 , 7.569718   ){\circle*{ .09111111}} 
  \put(   11 , 7.486786   ){\circle*{ .09111111}} 
  \put( 11.2 , 7.416100   ){\circle*{ .09111111}} 
  \put( 11.4 ,  7.37013   ){\circle*{ .09111111}} 
  \put( 11.6 , 7.357422   ){\circle*{ .09111111}} 
  \put( 11.8 , 7.380396   ){\circle*{ .09111111}} 
  \put(   12 , 7.434692   ){\circle*{ .09111111}} 
  \put( 12.2 , 7.510347   ){\circle*{ .09111111}} 
  \put( 12.4 , 7.594269   ){\circle*{ .09111111}} 
  \put( 12.6 , 7.672993   ){\circle*{ .09111111}} 
  \put( 12.8 , 7.734879   ){\circle*{ .09111111}} 
  \put(   13 , 7.771439   ){\circle*{ .09111111}} 
  \put( 13.2 , 7.777928   ){\circle*{ .09111111}} 
  \put( 13.4 , 7.753522   ){\circle*{ .09111111}} 
  \put( 13.6 , 7.701346   ){\circle*{ .09111111}} 
  \put( 13.8 , 7.628371   ){\circle*{ .09111111}} 
  \put(   14 ,  7.54504   ){\circle*{ .09111111}} 
  \put( 14.2 , 7.464276   ){\circle*{ .09111111}} 
  \put( 14.4 , 7.399642   ){\circle*{ .09111111}} 
  \put( 14.6 , 7.362744   ){\circle*{ .09111111}} 
  \put( 14.8 ,  7.36051   ){\circle*{ .09111111}} 
  \put(   15 , 7.393370   ){\circle*{ .09111111}} 
  \put( 15.2 , 7.455126   ){\circle*{ .09111111}} 
  \put( 15.4 , 7.534616   ){\circle*{ .09111111}} 
  \put( 15.6 , 7.618365   ){\circle*{ .09111111}} 
  \put( 15.8 , 7.693252   ){\circle*{ .09111111}} 
  \put(   16 , 7.748459   ){\circle*{ .09111111}} 
  \put( 16.2 , 7.776555   ){\circle*{ .09111111}} 
  \put( 16.4 , 7.773930   ){\circle*{ .09111111}} 
  \put( 16.6 , 7.740916   ){\circle*{ .09111111}} 
  \put( 16.8 , 7.681780   ){\circle*{ .09111111}} 
  \put(   17 , 7.604566   ){\circle*{ .09111111}} 
  \put( 17.2 , 7.520577   ){\circle*{ .09111111}} 
  \put( 17.4 , 7.443154   ){\circle*{ .09111111}} 
  \put( 17.6 ,  7.38558   ){\circle*{ .09111111}} 
  \put( 17.8 , 7.358357   ){\circle*{ .09111111}} 
  \put(   18 , 7.366637   ){\circle*{ .09111111}} 
  \put( 18.2 , 7.408841   ){\circle*{ .09111111}} 
  \put( 18.4 , 7.477088   ){\circle*{ .09111111}} 
  \put( 18.6 , 7.559245   ){\circle*{ .09111111}} 
  \put( 18.8 , 7.641689   ){\circle*{ .09111111}} 
  \put(   19 , 7.711810   ){\circle*{ .09111111}} 
  \put( 19.2 , 7.759702   ){\circle*{ .09111111}} 
  \put( 19.4 , 7.779024   ){\circle*{ .09111111}} 
  \put( 19.6 , 7.767314   ){\circle*{ .09111111}} 
  \put( 19.8 , 7.726058   ){\circle*{ .09111111}} 
\end{picture}
\end{center}
%Finis.

apl>)off