apl>" <-APL2-------------------- sam302.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> '3Ox' graph 1,1,1,r,1e6,xpi     ,.15 , 0  ,0 " tandatx.tex

\begin{figure}[tbh]
\caption{Graph of y\#9O3Ox+nX0j1}
\begin{center}
\setlength{\unitlength}{ .716197in}
\begin{picture}(6.283185,8.37758)
%Draw a frame around the picture
 \put(0,0){\line(1,0){6.283185}}% bottom
 \put(0,0){\line(0,1){8.37758}}% left
 \put(0,8.37758){\line(1,0){6.283185}}% top
 \put(6.283185,0){\line(0,1){8.37758}}% right
%Draw the x axis
 \put(0,4.18879){\line(1,0){6.283185}}%x axis
  \put(  .785398 , 4.18879 ){\circle*{ .0286234}} 
  \put( 1.570796 , 4.18879 ){\circle*{ .0286234}} 
  \put( 2.356194 , 4.18879 ){\circle*{ .0286234}} 
  \put( 3.141593 , 4.18879 ){\circle*{ .0286234}} 
  \put(  3.92699 , 4.18879 ){\circle*{ .0286234}} 
  \put( 4.712389 , 4.18879 ){\circle*{ .0286234}} 
  \put( 5.497787 , 4.18879 ){\circle*{ .0286234}} 
%Draw the x axis marker values in pi
  \put(  .685398 , 3.993313 ){$ -\frac{3\pi}{4} $} 
  \put( 1.470796 , 3.993313 ){$  -\frac{\pi}{2} $} 
  \put( 2.256194 , 3.993313 ){$  -\frac{\pi}{4} $} 
  \put( 3.141593 , 3.993313 ){$               0 $} 
  \put(  3.92699 , 3.993313 ){$   \frac{\pi}{4} $} 
  \put( 4.712389 , 3.993313 ){$   \frac{\pi}{2} $} 
  \put( 5.497787 , 3.993313 ){$  \frac{3\pi}{4} $} 
%Draw the y axis
 \put(3.141593,0){\line(0,1){8.37758}}%y axis
%Draw the y axis markers
  \put( 3.141593 ,  .617069 ){\circle*{ .0286234}} 
  \put( 3.141593 , 1.807643 ){\circle*{ .0286234}} 
  \put( 3.141593 , 2.998217 ){\circle*{ .0286234}} 
  \put( 3.141593 , 5.379364 ){\circle*{ .0286234}} 
  \put( 3.141593 , 6.569938 ){\circle*{ .0286234}} 
  \put( 3.141593 , 7.760511 ){\circle*{ .0286234}} 
%Draw the y axis marker values
  \put( 3.211406 ,  .533076 ){$ -3 $} 
  \put( 3.211406 , 1.723650 ){$ -2 $} 
  \put( 3.211406 , 2.914223 ){$ -1 $} 
  \put( 3.211406 , 5.379364 ){$  1 $} 
  \put( 3.211406 , 6.569938 ){$  2 $} 
  \put( 3.211406 , 7.760511 ){$  3 $} 
%Label the curve
  \put( 1.424189 , 8.098328   ){n\# .15} 
%Draw the data points
  \put(  .02094395 ,   4.213176   ){\circle*{ .0286234}} 
  \put(   .0418879 ,   4.237582   ){\circle*{ .0286234}} 
  \put(  .06283185 ,   4.262028   ){\circle*{ .0286234}} 
  \put(   .0837758 ,   4.286534   ){\circle*{ .0286234}} 
  \put(  .10471976 ,    4.31112   ){\circle*{ .0286234}} 
  \put(   .1256637 ,   4.335809   ){\circle*{ .0286234}} 
  \put(  .14660766 ,   4.360619   ){\circle*{ .0286234}} 
  \put(   .1675516 ,   4.385572   ){\circle*{ .0286234}} 
  \put(  .18849556 ,   4.410691   ){\circle*{ .0286234}} 
  \put(  .20943951 ,   4.435997   ){\circle*{ .0286234}} 
  \put(  .23038346 ,   4.461514   ){\circle*{ .0286234}} 
  \put(  .25132741 ,   4.487265   ){\circle*{ .0286234}} 
  \put(  .27227136 ,   4.513275   ){\circle*{ .0286234}} 
  \put(  .29321531 ,   4.539569   ){\circle*{ .0286234}} 
  \put(  .31415927 ,   4.566173   ){\circle*{ .0286234}} 
  \put(  .33510322 ,   4.593115   ){\circle*{ .0286234}} 
  \put(  .35604717 ,   4.620422   ){\circle*{ .0286234}} 
  \put(  .37699112 ,   4.648127   ){\circle*{ .0286234}} 
  \put(  .39793507 ,   4.676258   ){\circle*{ .0286234}} 
  \put(  .41887902 ,    4.70485   ){\circle*{ .0286234}} 
  \put(  .43982297 ,   4.733937   ){\circle*{ .0286234}} 
  \put(  .46076692 ,   4.763556   ){\circle*{ .0286234}} 
  \put(  .48171087 ,   4.793745   ){\circle*{ .0286234}} 
  \put(    .502655 ,   4.824546   ){\circle*{ .0286234}} 
  \put(    .523599 ,   4.856001   ){\circle*{ .0286234}} 
  \put(    .544543 ,   4.888158   ){\circle*{ .0286234}} 
  \put(    .565487 ,   4.921066   ){\circle*{ .0286234}} 
  \put(     .58643 ,   4.954776   ){\circle*{ .0286234}} 
  \put(    .607375 ,   4.989346   ){\circle*{ .0286234}} 
  \put(    .628319 ,   5.024836   ){\circle*{ .0286234}} 
  \put(    .649262 ,   5.061310   ){\circle*{ .0286234}} 
  \put(    .670206 ,   5.098837   ){\circle*{ .0286234}} 
  \put(     .69115 ,   5.137493   ){\circle*{ .0286234}} 
  \put(    .712094 ,   5.177359   ){\circle*{ .0286234}} 
  \put(    .733038 ,   5.218519   ){\circle*{ .0286234}} 
  \put(    .753982 ,    5.26107   ){\circle*{ .0286234}} 
  \put(    .774926 ,   5.305112   ){\circle*{ .0286234}} 
  \put(     .79587 ,   5.350755   ){\circle*{ .0286234}} 
  \put(    .816814 ,   5.398120   ){\circle*{ .0286234}} 
  \put(    .837758 ,   5.447335   ){\circle*{ .0286234}} 
  \put(    .858702 ,   5.498542   ){\circle*{ .0286234}} 
  \put(    .879646 ,   5.551895   ){\circle*{ .0286234}} 
  \put(    .900590 ,    5.60756   ){\circle*{ .0286234}} 
  \put(    .921534 ,    5.66572   ){\circle*{ .0286234}} 
  \put(    .942478 ,   5.726573   ){\circle*{ .0286234}} 
  \put(    .963422 ,   5.790336   ){\circle*{ .0286234}} 
  \put(    .984366 ,   5.857242   ){\circle*{ .0286234}} 
  \put(   1.005310 ,   5.927548   ){\circle*{ .0286234}} 
  \put(   1.026254 ,   6.001528   ){\circle*{ .0286234}} 
  \put(   1.047198 ,   6.079482   ){\circle*{ .0286234}} 
  \put(   1.068142 ,   6.161727   ){\circle*{ .0286234}} 
  \put(   1.089085 ,   6.248603   ){\circle*{ .0286234}} 
  \put(   1.110029 ,   6.340464   ){\circle*{ .0286234}} 
  \put(   1.130973 ,   6.437675   ){\circle*{ .0286234}} 
  \put(   1.151917 ,   6.540598   ){\circle*{ .0286234}} 
  \put(   1.172861 ,   6.649575   ){\circle*{ .0286234}} 
  \put(   1.193805 ,     6.7649   ){\circle*{ .0286234}} 
  \put(   1.214749 ,   6.886772   ){\circle*{ .0286234}} 
  \put(   1.235693 ,   7.015223   ){\circle*{ .0286234}} 
  \put(   1.256637 ,   7.150017   ){\circle*{ .0286234}} 
  \put(   1.277581 ,   7.290484   ){\circle*{ .0286234}} 
  \put(   1.298525 ,   7.435279   ){\circle*{ .0286234}} 
  \put(   1.319469 ,   7.582016   ){\circle*{ .0286234}} 
  \put(   1.340413 ,   7.726733   ){\circle*{ .0286234}} 
  \put(   1.361357 ,    7.86311   ){\circle*{ .0286234}} 
  \put(     1.3823 ,    7.98138   ){\circle*{ .0286234}} 
  \put(   1.403245 ,   8.066877   ){\circle*{ .0286234}} 
  \put(   1.424189 ,   8.098328   ){\circle*{ .0286234}} 
  \put(   1.445133 ,   8.046288   ){\circle*{ .0286234}} 
  \put(   1.466077 ,   7.872833   ){\circle*{ .0286234}} 
  \put(    1.48702 ,   7.534631   ){\circle*{ .0286234}} 
  \put(   1.507964 ,   6.992393   ){\circle*{ .0286234}} 
  \put(   1.528908 ,    6.22837   ){\circle*{ .0286234}} 
  \put(   1.549852 ,   5.267559   ){\circle*{ .0286234}} 
  \put(   1.570796 ,    4.18879   ){\circle*{ .0286234}} 
  \put(    1.59174 ,   3.110021   ){\circle*{ .0286234}} 
  \put(   1.612684 ,   2.149210   ){\circle*{ .0286234}} 
  \put(   1.633628 ,   1.385187   ){\circle*{ .0286234}} 
  \put(   1.654572 ,   .842949    ){\circle*{ .0286234}} 
  \put(   1.675516 ,   .504748    ){\circle*{ .0286234}} 
  \put(    1.69646 , .33129205    ){\circle*{ .0286234}} 
  \put(   1.717404 , .27925268    ){\circle*{ .0286234}} 
  \put(   1.738348 , .31070326    ){\circle*{ .0286234}} 
  \put(   1.759292 , .39620013    ){\circle*{ .0286234}} 
  \put(   1.780236 ,   .514470    ){\circle*{ .0286234}} 
  \put(   1.801180 ,   .650847    ){\circle*{ .0286234}} 
  \put(   1.822124 ,   .795564    ){\circle*{ .0286234}} 
  \put(   1.843068 ,   .942301    ){\circle*{ .0286234}} 
  \put(   1.864012 ,   1.087096   ){\circle*{ .0286234}} 
  \put(   1.884956 ,   1.227563   ){\circle*{ .0286234}} 
  \put(   1.905900 ,   1.362357   ){\circle*{ .0286234}} 
  \put(   1.926843 ,   1.490809   ){\circle*{ .0286234}} 
  \put(   1.947787 ,   1.612680   ){\circle*{ .0286234}} 
  \put(   1.968731 ,   1.728005   ){\circle*{ .0286234}} 
  \put(   1.989675 ,   1.836982   ){\circle*{ .0286234}} 
  \put(   2.010619 ,   1.939905   ){\circle*{ .0286234}} 
  \put(   2.031563 ,   2.037116   ){\circle*{ .0286234}} 
  \put(   2.052507 ,   2.128977   ){\circle*{ .0286234}} 
  \put(   2.073451 ,   2.215853   ){\circle*{ .0286234}} 
  \put(   2.094395 ,   2.298098   ){\circle*{ .0286234}} 
  \put(   2.115339 ,   2.376052   ){\circle*{ .0286234}} 
  \put(   2.136283 ,   2.450033   ){\circle*{ .0286234}} 
  \put(   2.157227 ,   2.520338   ){\circle*{ .0286234}} 
  \put(   2.178171 ,   2.587245   ){\circle*{ .0286234}} 
  \put(   2.199115 ,   2.651007   ){\circle*{ .0286234}} 
  \put(   2.220059 ,    2.71186   ){\circle*{ .0286234}} 
  \put(   2.241003 ,    2.77002   ){\circle*{ .0286234}} 
  \put(   2.261947 ,   2.825686   ){\circle*{ .0286234}} 
  \put(    2.28289 ,   2.879038   ){\circle*{ .0286234}} 
  \put(   2.303835 ,   2.930245   ){\circle*{ .0286234}} 
  \put(   2.324779 ,    2.97946   ){\circle*{ .0286234}} 
  \put(   2.345723 ,   3.026825   ){\circle*{ .0286234}} 
  \put(   2.366666 ,   3.072468   ){\circle*{ .0286234}} 
  \put(    2.38761 ,    3.11651   ){\circle*{ .0286234}} 
  \put(   2.408554 ,   3.159061   ){\circle*{ .0286234}} 
  \put(   2.429498 ,   3.200222   ){\circle*{ .0286234}} 
  \put(   2.450442 ,   3.240087   ){\circle*{ .0286234}} 
  \put(   2.471386 ,   3.278743   ){\circle*{ .0286234}} 
  \put(    2.49233 ,    3.31627   ){\circle*{ .0286234}} 
  \put(   2.513274 ,   3.352745   ){\circle*{ .0286234}} 
  \put(   2.534218 ,   3.388234   ){\circle*{ .0286234}} 
  \put(   2.555162 ,   3.422804   ){\circle*{ .0286234}} 
  \put(   2.576106 ,   3.456515   ){\circle*{ .0286234}} 
  \put(    2.59705 ,   3.489422   ){\circle*{ .0286234}} 
  \put(   2.617994 ,   3.521579   ){\circle*{ .0286234}} 
  \put(   2.638938 ,   3.553035   ){\circle*{ .0286234}} 
  \put(   2.659882 ,   3.583835   ){\circle*{ .0286234}} 
  \put(   2.680826 ,   3.614025   ){\circle*{ .0286234}} 
  \put(   2.701770 ,   3.643643   ){\circle*{ .0286234}} 
  \put(   2.722714 ,    3.67273   ){\circle*{ .0286234}} 
  \put(   2.743658 ,   3.701322   ){\circle*{ .0286234}} 
  \put(   2.764602 ,   3.729454   ){\circle*{ .0286234}} 
  \put(   2.785545 ,   3.757158   ){\circle*{ .0286234}} 
  \put(   2.806489 ,   3.784466   ){\circle*{ .0286234}} 
  \put(   2.827433 ,   3.811408   ){\circle*{ .0286234}} 
  \put(   2.848377 ,   3.838012   ){\circle*{ .0286234}} 
  \put(   2.869321 ,   3.864305   ){\circle*{ .0286234}} 
  \put(   2.890265 ,   3.890315   ){\circle*{ .0286234}} 
  \put(   2.911209 ,   3.916066   ){\circle*{ .0286234}} 
  \put(   2.932153 ,   3.941583   ){\circle*{ .0286234}} 
  \put(   2.953097 ,   3.966890   ){\circle*{ .0286234}} 
  \put(   2.974041 ,   3.992008   ){\circle*{ .0286234}} 
  \put(   2.994985 ,   4.016962   ){\circle*{ .0286234}} 
  \put(   3.015929 ,   4.041772   ){\circle*{ .0286234}} 
  \put(   3.036873 ,   4.066460   ){\circle*{ .0286234}} 
  \put(   3.057817 ,   4.091046   ){\circle*{ .0286234}} 
  \put(    3.07876 ,   4.115552   ){\circle*{ .0286234}} 
  \put(   3.099705 ,   4.139998   ){\circle*{ .0286234}} 
  \put(   3.120649 ,   4.164404   ){\circle*{ .0286234}} 
  \put(   3.141593 ,    4.18879   ){\circle*{ .0286234}} 
  \put(   3.162537 ,   4.213176   ){\circle*{ .0286234}} 
  \put(    3.18348 ,   4.237582   ){\circle*{ .0286234}} 
  \put(   3.204425 ,   4.262028   ){\circle*{ .0286234}} 
  \put(   3.225368 ,   4.286534   ){\circle*{ .0286234}} 
  \put(   3.246312 ,    4.31112   ){\circle*{ .0286234}} 
  \put(   3.267256 ,   4.335809   ){\circle*{ .0286234}} 
  \put(     3.2882 ,   4.360619   ){\circle*{ .0286234}} 
  \put(   3.309144 ,   4.385572   ){\circle*{ .0286234}} 
  \put(   3.330088 ,   4.410691   ){\circle*{ .0286234}} 
  \put(   3.351032 ,   4.435997   ){\circle*{ .0286234}} 
  \put(   3.371976 ,   4.461514   ){\circle*{ .0286234}} 
  \put(    3.39292 ,   4.487265   ){\circle*{ .0286234}} 
  \put(   3.413864 ,   4.513275   ){\circle*{ .0286234}} 
  \put(   3.434808 ,   4.539569   ){\circle*{ .0286234}} 
  \put(   3.455752 ,   4.566173   ){\circle*{ .0286234}} 
  \put(   3.476696 ,   4.593115   ){\circle*{ .0286234}} 
  \put(   3.497640 ,   4.620422   ){\circle*{ .0286234}} 
  \put(   3.518584 ,   4.648127   ){\circle*{ .0286234}} 
  \put(   3.539528 ,   4.676258   ){\circle*{ .0286234}} 
  \put(   3.560472 ,    4.70485   ){\circle*{ .0286234}} 
  \put(   3.581416 ,   4.733937   ){\circle*{ .0286234}} 
  \put(   3.602360 ,   4.763556   ){\circle*{ .0286234}} 
  \put(   3.623304 ,   4.793745   ){\circle*{ .0286234}} 
  \put(   3.644247 ,   4.824546   ){\circle*{ .0286234}} 
  \put(   3.665191 ,   4.856001   ){\circle*{ .0286234}} 
  \put(   3.686135 ,   4.888158   ){\circle*{ .0286234}} 
  \put(   3.707079 ,   4.921066   ){\circle*{ .0286234}} 
  \put(   3.728023 ,   4.954776   ){\circle*{ .0286234}} 
  \put(   3.748967 ,   4.989346   ){\circle*{ .0286234}} 
  \put(   3.769911 ,   5.024836   ){\circle*{ .0286234}} 
  \put(   3.790855 ,   5.061310   ){\circle*{ .0286234}} 
  \put(   3.811799 ,   5.098837   ){\circle*{ .0286234}} 
  \put(   3.832743 ,   5.137493   ){\circle*{ .0286234}} 
  \put(   3.853687 ,   5.177359   ){\circle*{ .0286234}} 
  \put(   3.874631 ,   5.218519   ){\circle*{ .0286234}} 
  \put(   3.895575 ,    5.26107   ){\circle*{ .0286234}} 
  \put(   3.916519 ,   5.305112   ){\circle*{ .0286234}} 
  \put(   3.937463 ,   5.350755   ){\circle*{ .0286234}} 
  \put(   3.958407 ,   5.398120   ){\circle*{ .0286234}} 
  \put(    3.97935 ,   5.447335   ){\circle*{ .0286234}} 
  \put(   4.000295 ,   5.498542   ){\circle*{ .0286234}} 
  \put(   4.021239 ,   5.551895   ){\circle*{ .0286234}} 
  \put(   4.042183 ,    5.60756   ){\circle*{ .0286234}} 
  \put(   4.063126 ,    5.66572   ){\circle*{ .0286234}} 
  \put(    4.08407 ,   5.726573   ){\circle*{ .0286234}} 
  \put(   4.105014 ,   5.790336   ){\circle*{ .0286234}} 
  \put(   4.125958 ,   5.857242   ){\circle*{ .0286234}} 
  \put(   4.146902 ,   5.927548   ){\circle*{ .0286234}} 
  \put(   4.167846 ,   6.001528   ){\circle*{ .0286234}} 
  \put(    4.18879 ,   6.079482   ){\circle*{ .0286234}} 
  \put(   4.209734 ,   6.161727   ){\circle*{ .0286234}} 
  \put(   4.230678 ,   6.248603   ){\circle*{ .0286234}} 
  \put(   4.251622 ,   6.340464   ){\circle*{ .0286234}} 
  \put(   4.272566 ,   6.437675   ){\circle*{ .0286234}} 
  \put(    4.29351 ,   6.540598   ){\circle*{ .0286234}} 
  \put(   4.314454 ,   6.649575   ){\circle*{ .0286234}} 
  \put(   4.335398 ,     6.7649   ){\circle*{ .0286234}} 
  \put(   4.356342 ,   6.886772   ){\circle*{ .0286234}} 
  \put(   4.377286 ,   7.015223   ){\circle*{ .0286234}} 
  \put(   4.398230 ,   7.150017   ){\circle*{ .0286234}} 
  \put(   4.419174 ,   7.290484   ){\circle*{ .0286234}} 
  \put(   4.440118 ,   7.435279   ){\circle*{ .0286234}} 
  \put(   4.461062 ,   7.582016   ){\circle*{ .0286234}} 
  \put(   4.482006 ,   7.726733   ){\circle*{ .0286234}} 
  \put(   4.502949 ,    7.86311   ){\circle*{ .0286234}} 
  \put(   4.523893 ,    7.98138   ){\circle*{ .0286234}} 
  \put(   4.544837 ,   8.066877   ){\circle*{ .0286234}} 
  \put(   4.565781 ,   8.098328   ){\circle*{ .0286234}} 
  \put(   4.586725 ,   8.046288   ){\circle*{ .0286234}} 
  \put(   4.607669 ,   7.872833   ){\circle*{ .0286234}} 
  \put(   4.628613 ,   7.534631   ){\circle*{ .0286234}} 
  \put(   4.649557 ,   6.992393   ){\circle*{ .0286234}} 
  \put(   4.670501 ,    6.22837   ){\circle*{ .0286234}} 
  \put(   4.691445 ,   5.267559   ){\circle*{ .0286234}} 
  \put(   4.712389 ,    4.18879   ){\circle*{ .0286234}} 
  \put(   4.733333 ,   3.110021   ){\circle*{ .0286234}} 
  \put(   4.754277 ,   2.149210   ){\circle*{ .0286234}} 
  \put(    4.77522 ,   1.385187   ){\circle*{ .0286234}} 
  \put(   4.796165 ,   .842949    ){\circle*{ .0286234}} 
  \put(   4.817109 ,   .504748    ){\circle*{ .0286234}} 
  \put(   4.838053 , .33129205    ){\circle*{ .0286234}} 
  \put(   4.858997 , .27925268    ){\circle*{ .0286234}} 
  \put(    4.87994 , .31070326    ){\circle*{ .0286234}} 
  \put(   4.900885 , .39620013    ){\circle*{ .0286234}} 
  \put(   4.921828 ,   .514470    ){\circle*{ .0286234}} 
  \put(   4.942772 ,   .650847    ){\circle*{ .0286234}} 
  \put(   4.963716 ,   .795564    ){\circle*{ .0286234}} 
  \put(    4.98466 ,   .942301    ){\circle*{ .0286234}} 
  \put(   5.005604 ,   1.087096   ){\circle*{ .0286234}} 
  \put(   5.026548 ,   1.227563   ){\circle*{ .0286234}} 
  \put(   5.047492 ,   1.362357   ){\circle*{ .0286234}} 
  \put(   5.068436 ,   1.490809   ){\circle*{ .0286234}} 
  \put(    5.08938 ,   1.612680   ){\circle*{ .0286234}} 
  \put(   5.110324 ,   1.728005   ){\circle*{ .0286234}} 
  \put(   5.131268 ,   1.836982   ){\circle*{ .0286234}} 
  \put(   5.152212 ,   1.939905   ){\circle*{ .0286234}} 
  \put(   5.173156 ,   2.037116   ){\circle*{ .0286234}} 
  \put(   5.194100 ,   2.128977   ){\circle*{ .0286234}} 
  \put(   5.215044 ,   2.215853   ){\circle*{ .0286234}} 
  \put(   5.235988 ,   2.298098   ){\circle*{ .0286234}} 
  \put(   5.256932 ,   2.376052   ){\circle*{ .0286234}} 
  \put(   5.277876 ,   2.450033   ){\circle*{ .0286234}} 
  \put(   5.298820 ,   2.520338   ){\circle*{ .0286234}} 
  \put(   5.319764 ,   2.587245   ){\circle*{ .0286234}} 
  \put(   5.340708 ,   2.651007   ){\circle*{ .0286234}} 
  \put(   5.361651 ,    2.71186   ){\circle*{ .0286234}} 
  \put(   5.382595 ,    2.77002   ){\circle*{ .0286234}} 
  \put(   5.403539 ,   2.825686   ){\circle*{ .0286234}} 
  \put(   5.424483 ,   2.879038   ){\circle*{ .0286234}} 
  \put(   5.445427 ,   2.930245   ){\circle*{ .0286234}} 
  \put(   5.466371 ,    2.97946   ){\circle*{ .0286234}} 
  \put(   5.487315 ,   3.026825   ){\circle*{ .0286234}} 
  \put(   5.508259 ,   3.072468   ){\circle*{ .0286234}} 
  \put(   5.529203 ,    3.11651   ){\circle*{ .0286234}} 
  \put(   5.550147 ,   3.159061   ){\circle*{ .0286234}} 
  \put(   5.571091 ,   3.200222   ){\circle*{ .0286234}} 
  \put(   5.592035 ,   3.240087   ){\circle*{ .0286234}} 
  \put(   5.612979 ,   3.278743   ){\circle*{ .0286234}} 
  \put(   5.633923 ,    3.31627   ){\circle*{ .0286234}} 
  \put(   5.654867 ,   3.352745   ){\circle*{ .0286234}} 
  \put(    5.67581 ,   3.388234   ){\circle*{ .0286234}} 
  \put(   5.696755 ,   3.422804   ){\circle*{ .0286234}} 
  \put(   5.717699 ,   3.456515   ){\circle*{ .0286234}} 
  \put(   5.738643 ,   3.489422   ){\circle*{ .0286234}} 
  \put(   5.759587 ,   3.521579   ){\circle*{ .0286234}} 
  \put(    5.78053 ,   3.553035   ){\circle*{ .0286234}} 
  \put(   5.801474 ,   3.583835   ){\circle*{ .0286234}} 
  \put(   5.822418 ,   3.614025   ){\circle*{ .0286234}} 
  \put(   5.843362 ,   3.643643   ){\circle*{ .0286234}} 
  \put(   5.864306 ,    3.67273   ){\circle*{ .0286234}} 
  \put(    5.88525 ,   3.701322   ){\circle*{ .0286234}} 
  \put(   5.906194 ,   3.729454   ){\circle*{ .0286234}} 
  \put(   5.927138 ,   3.757158   ){\circle*{ .0286234}} 
  \put(   5.948082 ,   3.784466   ){\circle*{ .0286234}} 
  \put(   5.969026 ,   3.811408   ){\circle*{ .0286234}} 
  \put(    5.98997 ,   3.838012   ){\circle*{ .0286234}} 
  \put(   6.010914 ,   3.864305   ){\circle*{ .0286234}} 
  \put(   6.031858 ,   3.890315   ){\circle*{ .0286234}} 
  \put(   6.052802 ,   3.916066   ){\circle*{ .0286234}} 
  \put(   6.073746 ,   3.941583   ){\circle*{ .0286234}} 
  \put(   6.094690 ,   3.966890   ){\circle*{ .0286234}} 
  \put(   6.115634 ,   3.992008   ){\circle*{ .0286234}} 
  \put(   6.136578 ,   4.016962   ){\circle*{ .0286234}} 
  \put(   6.157522 ,   4.041772   ){\circle*{ .0286234}} 
  \put(   6.178466 ,   4.066460   ){\circle*{ .0286234}} 
  \put(   6.199410 ,   4.091046   ){\circle*{ .0286234}} 
  \put(   6.220353 ,   4.115552   ){\circle*{ .0286234}} 
  \put(   6.241297 ,   4.139998   ){\circle*{ .0286234}} 
  \put(   6.262241 ,   4.164404   ){\circle*{ .0286234}} 
%Finis.

apl> '3Ox' graph 3,1,1,r,1e6,xpi     ,.5  , 0  ,0 " tandatx.tex

%Label the curve
  \put( 1.130973 , 5.201705   ){n\# .5} 
%Draw the data points
  \put(  .02094395 , 4.208402   ){\circle*{ .0286234}} 
  \put(   .0418879 , 4.228019   ){\circle*{ .0286234}} 
  \put(  .06283185 , 4.247649   ){\circle*{ .0286234}} 
  \put(   .0837758 , 4.267297   ){\circle*{ .0286234}} 
  \put(  .10471976 ,  4.28697   ){\circle*{ .0286234}} 
  \put(   .1256637 , 4.306674   ){\circle*{ .0286234}} 
  \put(  .14660766 , 4.326414   ){\circle*{ .0286234}} 
  \put(   .1675516 , 4.346196   ){\circle*{ .0286234}} 
  \put(  .18849556 , 4.366026   ){\circle*{ .0286234}} 
  \put(  .20943951 ,  4.38591   ){\circle*{ .0286234}} 
  \put(  .23038346 , 4.405853   ){\circle*{ .0286234}} 
  \put(  .25132741 , 4.425860   ){\circle*{ .0286234}} 
  \put(  .27227136 , 4.445936   ){\circle*{ .0286234}} 
  \put(  .29321531 , 4.466085   ){\circle*{ .0286234}} 
  \put(  .31415927 , 4.486313   ){\circle*{ .0286234}} 
  \put(  .33510322 , 4.506622   ){\circle*{ .0286234}} 
  \put(  .35604717 , 4.527016   ){\circle*{ .0286234}} 
  \put(  .37699112 , 4.547499   ){\circle*{ .0286234}} 
  \put(  .39793507 , 4.568072   ){\circle*{ .0286234}} 
  \put(  .41887902 , 4.588738   ){\circle*{ .0286234}} 
  \put(  .43982297 , 4.609497   ){\circle*{ .0286234}} 
  \put(  .46076692 , 4.630349   ){\circle*{ .0286234}} 
  \put(  .48171087 , 4.651294   ){\circle*{ .0286234}} 
  \put(    .502655 ,  4.67233   ){\circle*{ .0286234}} 
  \put(    .523599 , 4.693453   ){\circle*{ .0286234}} 
  \put(    .544543 , 4.714659   ){\circle*{ .0286234}} 
  \put(    .565487 , 4.735941   ){\circle*{ .0286234}} 
  \put(     .58643 , 4.757291   ){\circle*{ .0286234}} 
  \put(    .607375 , 4.778699   ){\circle*{ .0286234}} 
  \put(    .628319 , 4.800153   ){\circle*{ .0286234}} 
  \put(    .649262 , 4.821636   ){\circle*{ .0286234}} 
  \put(    .670206 , 4.843130   ){\circle*{ .0286234}} 
  \put(     .69115 , 4.864613   ){\circle*{ .0286234}} 
  \put(    .712094 , 4.886059   ){\circle*{ .0286234}} 
  \put(    .733038 , 4.907439   ){\circle*{ .0286234}} 
  \put(    .753982 , 4.928715   ){\circle*{ .0286234}} 
  \put(    .774926 , 4.949848   ){\circle*{ .0286234}} 
  \put(     .79587 ,  4.97079   ){\circle*{ .0286234}} 
  \put(    .816814 , 4.991487   ){\circle*{ .0286234}} 
  \put(    .837758 , 5.011876   ){\circle*{ .0286234}} 
  \put(    .858702 , 5.031885   ){\circle*{ .0286234}} 
  \put(    .879646 , 5.051434   ){\circle*{ .0286234}} 
  \put(    .900590 , 5.070429   ){\circle*{ .0286234}} 
  \put(    .921534 , 5.088768   ){\circle*{ .0286234}} 
  \put(    .942478 ,  5.10633   ){\circle*{ .0286234}} 
  \put(    .963422 , 5.122985   ){\circle*{ .0286234}} 
  \put(    .984366 , 5.138582   ){\circle*{ .0286234}} 
  \put(   1.005310 , 5.152956   ){\circle*{ .0286234}} 
  \put(   1.026254 ,  5.16592   ){\circle*{ .0286234}} 
  \put(   1.047198 , 5.177273   ){\circle*{ .0286234}} 
  \put(   1.068142 , 5.186786   ){\circle*{ .0286234}} 
  \put(   1.089085 , 5.194212   ){\circle*{ .0286234}} 
  \put(   1.110029 , 5.199282   ){\circle*{ .0286234}} 
  \put(   1.130973 , 5.201705   ){\circle*{ .0286234}} 
  \put(   1.151917 , 5.201169   ){\circle*{ .0286234}} 
  \put(   1.172861 , 5.197345   ){\circle*{ .0286234}} 
  \put(   1.193805 , 5.189886   ){\circle*{ .0286234}} 
  \put(   1.214749 , 5.178435   ){\circle*{ .0286234}} 
  \put(   1.235693 , 5.162631   ){\circle*{ .0286234}} 
  \put(   1.256637 , 5.142116   ){\circle*{ .0286234}} 
  \put(   1.277581 , 5.116544   ){\circle*{ .0286234}} 
  \put(   1.298525 , 5.085598   ){\circle*{ .0286234}} 
  \put(   1.319469 , 5.048997   ){\circle*{ .0286234}} 
  \put(   1.340413 , 5.006517   ){\circle*{ .0286234}} 
  \put(   1.361357 , 4.958008   ){\circle*{ .0286234}} 
  \put(     1.3823 ,  4.90341   ){\circle*{ .0286234}} 
  \put(   1.403245 , 4.842769   ){\circle*{ .0286234}} 
  \put(   1.424189 , 4.776254   ){\circle*{ .0286234}} 
  \put(   1.445133 , 4.704169   ){\circle*{ .0286234}} 
  \put(   1.466077 , 4.626956   ){\circle*{ .0286234}} 
  \put(    1.48702 ,   4.5452   ){\circle*{ .0286234}} 
  \put(   1.507964 ,  4.45962   ){\circle*{ .0286234}} 
  \put(   1.528908 , 4.371057   ){\circle*{ .0286234}} 
  \put(   1.549852 , 4.280444   ){\circle*{ .0286234}} 
  \put(   1.570796 ,  4.18879   ){\circle*{ .0286234}} 
  \put(    1.59174 , 4.097136   ){\circle*{ .0286234}} 
  \put(   1.612684 , 4.006524   ){\circle*{ .0286234}} 
  \put(   1.633628 , 3.917960   ){\circle*{ .0286234}} 
  \put(   1.654572 ,  3.83238   ){\circle*{ .0286234}} 
  \put(   1.675516 , 3.750625   ){\circle*{ .0286234}} 
  \put(    1.69646 , 3.673412   ){\circle*{ .0286234}} 
  \put(   1.717404 , 3.601326   ){\circle*{ .0286234}} 
  \put(   1.738348 , 3.534811   ){\circle*{ .0286234}} 
  \put(   1.759292 ,  3.47417   ){\circle*{ .0286234}} 
  \put(   1.780236 , 3.419572   ){\circle*{ .0286234}} 
  \put(   1.801180 , 3.371063   ){\circle*{ .0286234}} 
  \put(   1.822124 , 3.328584   ){\circle*{ .0286234}} 
  \put(   1.843068 , 3.291983   ){\circle*{ .0286234}} 
  \put(   1.864012 , 3.261036   ){\circle*{ .0286234}} 
  \put(   1.884956 , 3.235465   ){\circle*{ .0286234}} 
  \put(   1.905900 , 3.214949   ){\circle*{ .0286234}} 
  \put(   1.926843 , 3.199146   ){\circle*{ .0286234}} 
  \put(   1.947787 , 3.187695   ){\circle*{ .0286234}} 
  \put(   1.968731 , 3.180236   ){\circle*{ .0286234}} 
  \put(   1.989675 , 3.176411   ){\circle*{ .0286234}} 
  \put(   2.010619 , 3.175876   ){\circle*{ .0286234}} 
  \put(   2.031563 , 3.178299   ){\circle*{ .0286234}} 
  \put(   2.052507 , 3.183369   ){\circle*{ .0286234}} 
  \put(   2.073451 , 3.190795   ){\circle*{ .0286234}} 
  \put(   2.094395 , 3.200308   ){\circle*{ .0286234}} 
  \put(   2.115339 , 3.211660   ){\circle*{ .0286234}} 
  \put(   2.136283 , 3.224625   ){\circle*{ .0286234}} 
  \put(   2.157227 , 3.238999   ){\circle*{ .0286234}} 
  \put(   2.178171 , 3.254596   ){\circle*{ .0286234}} 
  \put(   2.199115 ,  3.27125   ){\circle*{ .0286234}} 
  \put(   2.220059 , 3.288813   ){\circle*{ .0286234}} 
  \put(   2.241003 , 3.307151   ){\circle*{ .0286234}} 
  \put(   2.261947 , 3.326147   ){\circle*{ .0286234}} 
  \put(    2.28289 , 3.345695   ){\circle*{ .0286234}} 
  \put(   2.303835 , 3.365705   ){\circle*{ .0286234}} 
  \put(   2.324779 , 3.386093   ){\circle*{ .0286234}} 
  \put(   2.345723 , 3.406790   ){\circle*{ .0286234}} 
  \put(   2.366666 , 3.427732   ){\circle*{ .0286234}} 
  \put(    2.38761 , 3.448865   ){\circle*{ .0286234}} 
  \put(   2.408554 , 3.470142   ){\circle*{ .0286234}} 
  \put(   2.429498 , 3.491521   ){\circle*{ .0286234}} 
  \put(   2.450442 , 3.512968   ){\circle*{ .0286234}} 
  \put(   2.471386 ,  3.53445   ){\circle*{ .0286234}} 
  \put(    2.49233 , 3.555945   ){\circle*{ .0286234}} 
  \put(   2.513274 , 3.577428   ){\circle*{ .0286234}} 
  \put(   2.534218 , 3.598881   ){\circle*{ .0286234}} 
  \put(   2.555162 , 3.620289   ){\circle*{ .0286234}} 
  \put(   2.576106 , 3.641639   ){\circle*{ .0286234}} 
  \put(    2.59705 , 3.662922   ){\circle*{ .0286234}} 
  \put(   2.617994 , 3.684127   ){\circle*{ .0286234}} 
  \put(   2.638938 ,  3.70525   ){\circle*{ .0286234}} 
  \put(   2.659882 , 3.726286   ){\circle*{ .0286234}} 
  \put(   2.680826 , 3.747231   ){\circle*{ .0286234}} 
  \put(   2.701770 , 3.768084   ){\circle*{ .0286234}} 
  \put(   2.722714 , 3.788843   ){\circle*{ .0286234}} 
  \put(   2.743658 , 3.809508   ){\circle*{ .0286234}} 
  \put(   2.764602 , 3.830082   ){\circle*{ .0286234}} 
  \put(   2.785545 , 3.850564   ){\circle*{ .0286234}} 
  \put(   2.806489 , 3.870959   ){\circle*{ .0286234}} 
  \put(   2.827433 , 3.891268   ){\circle*{ .0286234}} 
  \put(   2.848377 , 3.911495   ){\circle*{ .0286234}} 
  \put(   2.869321 , 3.931645   ){\circle*{ .0286234}} 
  \put(   2.890265 ,  3.95172   ){\circle*{ .0286234}} 
  \put(   2.911209 , 3.971727   ){\circle*{ .0286234}} 
  \put(   2.932153 ,  3.99167   ){\circle*{ .0286234}} 
  \put(   2.953097 , 4.011554   ){\circle*{ .0286234}} 
  \put(   2.974041 , 4.031384   ){\circle*{ .0286234}} 
  \put(   2.994985 , 4.051167   ){\circle*{ .0286234}} 
  \put(   3.015929 , 4.070907   ){\circle*{ .0286234}} 
  \put(   3.036873 ,  4.09061   ){\circle*{ .0286234}} 
  \put(   3.057817 , 4.110283   ){\circle*{ .0286234}} 
  \put(    3.07876 , 4.129931   ){\circle*{ .0286234}} 
  \put(   3.099705 , 4.149561   ){\circle*{ .0286234}} 
  \put(   3.120649 , 4.169179   ){\circle*{ .0286234}} 
  \put(   3.141593 ,  4.18879   ){\circle*{ .0286234}} 
  \put(   3.162537 , 4.208402   ){\circle*{ .0286234}} 
  \put(    3.18348 , 4.228019   ){\circle*{ .0286234}} 
  \put(   3.204425 , 4.247649   ){\circle*{ .0286234}} 
  \put(   3.225368 , 4.267297   ){\circle*{ .0286234}} 
  \put(   3.246312 ,  4.28697   ){\circle*{ .0286234}} 
  \put(   3.267256 , 4.306674   ){\circle*{ .0286234}} 
  \put(     3.2882 , 4.326414   ){\circle*{ .0286234}} 
  \put(   3.309144 , 4.346196   ){\circle*{ .0286234}} 
  \put(   3.330088 , 4.366026   ){\circle*{ .0286234}} 
  \put(   3.351032 ,  4.38591   ){\circle*{ .0286234}} 
  \put(   3.371976 , 4.405853   ){\circle*{ .0286234}} 
  \put(    3.39292 , 4.425860   ){\circle*{ .0286234}} 
  \put(   3.413864 , 4.445936   ){\circle*{ .0286234}} 
  \put(   3.434808 , 4.466085   ){\circle*{ .0286234}} 
  \put(   3.455752 , 4.486313   ){\circle*{ .0286234}} 
  \put(   3.476696 , 4.506622   ){\circle*{ .0286234}} 
  \put(   3.497640 , 4.527016   ){\circle*{ .0286234}} 
  \put(   3.518584 , 4.547499   ){\circle*{ .0286234}} 
  \put(   3.539528 , 4.568072   ){\circle*{ .0286234}} 
  \put(   3.560472 , 4.588738   ){\circle*{ .0286234}} 
  \put(   3.581416 , 4.609497   ){\circle*{ .0286234}} 
  \put(   3.602360 , 4.630349   ){\circle*{ .0286234}} 
  \put(   3.623304 , 4.651294   ){\circle*{ .0286234}} 
  \put(   3.644247 ,  4.67233   ){\circle*{ .0286234}} 
  \put(   3.665191 , 4.693453   ){\circle*{ .0286234}} 
  \put(   3.686135 , 4.714659   ){\circle*{ .0286234}} 
  \put(   3.707079 , 4.735941   ){\circle*{ .0286234}} 
  \put(   3.728023 , 4.757291   ){\circle*{ .0286234}} 
  \put(   3.748967 , 4.778699   ){\circle*{ .0286234}} 
  \put(   3.769911 , 4.800153   ){\circle*{ .0286234}} 
  \put(   3.790855 , 4.821636   ){\circle*{ .0286234}} 
  \put(   3.811799 , 4.843130   ){\circle*{ .0286234}} 
  \put(   3.832743 , 4.864613   ){\circle*{ .0286234}} 
  \put(   3.853687 , 4.886059   ){\circle*{ .0286234}} 
  \put(   3.874631 , 4.907439   ){\circle*{ .0286234}} 
  \put(   3.895575 , 4.928715   ){\circle*{ .0286234}} 
  \put(   3.916519 , 4.949848   ){\circle*{ .0286234}} 
  \put(   3.937463 ,  4.97079   ){\circle*{ .0286234}} 
  \put(   3.958407 , 4.991487   ){\circle*{ .0286234}} 
  \put(    3.97935 , 5.011876   ){\circle*{ .0286234}} 
  \put(   4.000295 , 5.031885   ){\circle*{ .0286234}} 
  \put(   4.021239 , 5.051434   ){\circle*{ .0286234}} 
  \put(   4.042183 , 5.070429   ){\circle*{ .0286234}} 
  \put(   4.063126 , 5.088768   ){\circle*{ .0286234}} 
  \put(    4.08407 ,  5.10633   ){\circle*{ .0286234}} 
  \put(   4.105014 , 5.122985   ){\circle*{ .0286234}} 
  \put(   4.125958 , 5.138582   ){\circle*{ .0286234}} 
  \put(   4.146902 , 5.152956   ){\circle*{ .0286234}} 
  \put(   4.167846 ,  5.16592   ){\circle*{ .0286234}} 
  \put(    4.18879 , 5.177273   ){\circle*{ .0286234}} 
  \put(   4.209734 , 5.186786   ){\circle*{ .0286234}} 
  \put(   4.230678 , 5.194212   ){\circle*{ .0286234}} 
  \put(   4.251622 , 5.199282   ){\circle*{ .0286234}} 
  \put(   4.272566 , 5.201705   ){\circle*{ .0286234}} 
  \put(    4.29351 , 5.201169   ){\circle*{ .0286234}} 
  \put(   4.314454 , 5.197345   ){\circle*{ .0286234}} 
  \put(   4.335398 , 5.189886   ){\circle*{ .0286234}} 
  \put(   4.356342 , 5.178435   ){\circle*{ .0286234}} 
  \put(   4.377286 , 5.162631   ){\circle*{ .0286234}} 
  \put(   4.398230 , 5.142116   ){\circle*{ .0286234}} 
  \put(   4.419174 , 5.116544   ){\circle*{ .0286234}} 
  \put(   4.440118 , 5.085598   ){\circle*{ .0286234}} 
  \put(   4.461062 , 5.048997   ){\circle*{ .0286234}} 
  \put(   4.482006 , 5.006517   ){\circle*{ .0286234}} 
  \put(   4.502949 , 4.958008   ){\circle*{ .0286234}} 
  \put(   4.523893 ,  4.90341   ){\circle*{ .0286234}} 
  \put(   4.544837 , 4.842769   ){\circle*{ .0286234}} 
  \put(   4.565781 , 4.776254   ){\circle*{ .0286234}} 
  \put(   4.586725 , 4.704169   ){\circle*{ .0286234}} 
  \put(   4.607669 , 4.626956   ){\circle*{ .0286234}} 
  \put(   4.628613 ,   4.5452   ){\circle*{ .0286234}} 
  \put(   4.649557 ,  4.45962   ){\circle*{ .0286234}} 
  \put(   4.670501 , 4.371057   ){\circle*{ .0286234}} 
  \put(   4.691445 , 4.280444   ){\circle*{ .0286234}} 
  \put(   4.712389 ,  4.18879   ){\circle*{ .0286234}} 
  \put(   4.733333 , 4.097136   ){\circle*{ .0286234}} 
  \put(   4.754277 , 4.006524   ){\circle*{ .0286234}} 
  \put(    4.77522 , 3.917960   ){\circle*{ .0286234}} 
  \put(   4.796165 ,  3.83238   ){\circle*{ .0286234}} 
  \put(   4.817109 , 3.750625   ){\circle*{ .0286234}} 
  \put(   4.838053 , 3.673412   ){\circle*{ .0286234}} 
  \put(   4.858997 , 3.601326   ){\circle*{ .0286234}} 
  \put(    4.87994 , 3.534811   ){\circle*{ .0286234}} 
  \put(   4.900885 ,  3.47417   ){\circle*{ .0286234}} 
  \put(   4.921828 , 3.419572   ){\circle*{ .0286234}} 
  \put(   4.942772 , 3.371063   ){\circle*{ .0286234}} 
  \put(   4.963716 , 3.328584   ){\circle*{ .0286234}} 
  \put(    4.98466 , 3.291983   ){\circle*{ .0286234}} 
  \put(   5.005604 , 3.261036   ){\circle*{ .0286234}} 
  \put(   5.026548 , 3.235465   ){\circle*{ .0286234}} 
  \put(   5.047492 , 3.214949   ){\circle*{ .0286234}} 
  \put(   5.068436 , 3.199146   ){\circle*{ .0286234}} 
  \put(    5.08938 , 3.187695   ){\circle*{ .0286234}} 
  \put(   5.110324 , 3.180236   ){\circle*{ .0286234}} 
  \put(   5.131268 , 3.176411   ){\circle*{ .0286234}} 
  \put(   5.152212 , 3.175876   ){\circle*{ .0286234}} 
  \put(   5.173156 , 3.178299   ){\circle*{ .0286234}} 
  \put(   5.194100 , 3.183369   ){\circle*{ .0286234}} 
  \put(   5.215044 , 3.190795   ){\circle*{ .0286234}} 
  \put(   5.235988 , 3.200308   ){\circle*{ .0286234}} 
  \put(   5.256932 , 3.211660   ){\circle*{ .0286234}} 
  \put(   5.277876 , 3.224625   ){\circle*{ .0286234}} 
  \put(   5.298820 , 3.238999   ){\circle*{ .0286234}} 
  \put(   5.319764 , 3.254596   ){\circle*{ .0286234}} 
  \put(   5.340708 ,  3.27125   ){\circle*{ .0286234}} 
  \put(   5.361651 , 3.288813   ){\circle*{ .0286234}} 
  \put(   5.382595 , 3.307151   ){\circle*{ .0286234}} 
  \put(   5.403539 , 3.326147   ){\circle*{ .0286234}} 
  \put(   5.424483 , 3.345695   ){\circle*{ .0286234}} 
  \put(   5.445427 , 3.365705   ){\circle*{ .0286234}} 
  \put(   5.466371 , 3.386093   ){\circle*{ .0286234}} 
  \put(   5.487315 , 3.406790   ){\circle*{ .0286234}} 
  \put(   5.508259 , 3.427732   ){\circle*{ .0286234}} 
  \put(   5.529203 , 3.448865   ){\circle*{ .0286234}} 
  \put(   5.550147 , 3.470142   ){\circle*{ .0286234}} 
  \put(   5.571091 , 3.491521   ){\circle*{ .0286234}} 
  \put(   5.592035 , 3.512968   ){\circle*{ .0286234}} 
  \put(   5.612979 ,  3.53445   ){\circle*{ .0286234}} 
  \put(   5.633923 , 3.555945   ){\circle*{ .0286234}} 
  \put(   5.654867 , 3.577428   ){\circle*{ .0286234}} 
  \put(    5.67581 , 3.598881   ){\circle*{ .0286234}} 
  \put(   5.696755 , 3.620289   ){\circle*{ .0286234}} 
  \put(   5.717699 , 3.641639   ){\circle*{ .0286234}} 
  \put(   5.738643 , 3.662922   ){\circle*{ .0286234}} 
  \put(   5.759587 , 3.684127   ){\circle*{ .0286234}} 
  \put(    5.78053 ,  3.70525   ){\circle*{ .0286234}} 
  \put(   5.801474 , 3.726286   ){\circle*{ .0286234}} 
  \put(   5.822418 , 3.747231   ){\circle*{ .0286234}} 
  \put(   5.843362 , 3.768084   ){\circle*{ .0286234}} 
  \put(   5.864306 , 3.788843   ){\circle*{ .0286234}} 
  \put(    5.88525 , 3.809508   ){\circle*{ .0286234}} 
  \put(   5.906194 , 3.830082   ){\circle*{ .0286234}} 
  \put(   5.927138 , 3.850564   ){\circle*{ .0286234}} 
  \put(   5.948082 , 3.870959   ){\circle*{ .0286234}} 
  \put(   5.969026 , 3.891268   ){\circle*{ .0286234}} 
  \put(    5.98997 , 3.911495   ){\circle*{ .0286234}} 
  \put(   6.010914 , 3.931645   ){\circle*{ .0286234}} 
  \put(   6.031858 ,  3.95172   ){\circle*{ .0286234}} 
  \put(   6.052802 , 3.971727   ){\circle*{ .0286234}} 
  \put(   6.073746 ,  3.99167   ){\circle*{ .0286234}} 
  \put(   6.094690 , 4.011554   ){\circle*{ .0286234}} 
  \put(   6.115634 , 4.031384   ){\circle*{ .0286234}} 
  \put(   6.136578 , 4.051167   ){\circle*{ .0286234}} 
  \put(   6.157522 , 4.070907   ){\circle*{ .0286234}} 
  \put(   6.178466 ,  4.09061   ){\circle*{ .0286234}} 
  \put(   6.199410 , 4.110283   ){\circle*{ .0286234}} 
  \put(   6.220353 , 4.129931   ){\circle*{ .0286234}} 
  \put(   6.241297 , 4.149561   ){\circle*{ .0286234}} 
  \put(   6.262241 , 4.169179   ){\circle*{ .0286234}} 
%Finis.

apl> '3Ox' graph 2,1,1,r,1e6,xpi     ,.9  , 0  ,0 " tandatx.tex

%Label the curve
  \put(  .942478 , 4.593407   ){n\# .9} 
%Draw the data points
  \put(  .02094395 ,  4.20093   ){\circle*{ .0286234}} 
  \put(   .0418879 , 4.213065   ){\circle*{ .0286234}} 
  \put(  .06283185 , 4.225189   ){\circle*{ .0286234}} 
  \put(   .0837758 , 4.237294   ){\circle*{ .0286234}} 
  \put(  .10471976 , 4.249377   ){\circle*{ .0286234}} 
  \put(   .1256637 ,  4.26143   ){\circle*{ .0286234}} 
  \put(  .14660766 , 4.273447   ){\circle*{ .0286234}} 
  \put(   .1675516 , 4.285423   ){\circle*{ .0286234}} 
  \put(  .18849556 , 4.297349   ){\circle*{ .0286234}} 
  \put(  .20943951 , 4.309220   ){\circle*{ .0286234}} 
  \put(  .23038346 , 4.321028   ){\circle*{ .0286234}} 
  \put(  .25132741 , 4.332765   ){\circle*{ .0286234}} 
  \put(  .27227136 , 4.344423   ){\circle*{ .0286234}} 
  \put(  .29321531 , 4.355995   ){\circle*{ .0286234}} 
  \put(  .31415927 , 4.367471   ){\circle*{ .0286234}} 
  \put(  .33510322 , 4.378842   ){\circle*{ .0286234}} 
  \put(  .35604717 , 4.390097   ){\circle*{ .0286234}} 
  \put(  .37699112 , 4.401228   ){\circle*{ .0286234}} 
  \put(  .39793507 , 4.412221   ){\circle*{ .0286234}} 
  \put(  .41887902 , 4.423066   ){\circle*{ .0286234}} 
  \put(  .43982297 , 4.433751   ){\circle*{ .0286234}} 
  \put(  .46076692 , 4.444261   ){\circle*{ .0286234}} 
  \put(  .48171087 , 4.454584   ){\circle*{ .0286234}} 
  \put(    .502655 , 4.464703   ){\circle*{ .0286234}} 
  \put(    .523599 , 4.474604   ){\circle*{ .0286234}} 
  \put(    .544543 ,  4.48427   ){\circle*{ .0286234}} 
  \put(    .565487 , 4.493683   ){\circle*{ .0286234}} 
  \put(     .58643 , 4.502824   ){\circle*{ .0286234}} 
  \put(    .607375 , 4.511675   ){\circle*{ .0286234}} 
  \put(    .628319 , 4.520213   ){\circle*{ .0286234}} 
  \put(    .649262 , 4.528418   ){\circle*{ .0286234}} 
  \put(    .670206 , 4.536266   ){\circle*{ .0286234}} 
  \put(     .69115 , 4.543733   ){\circle*{ .0286234}} 
  \put(    .712094 , 4.550795   ){\circle*{ .0286234}} 
  \put(    .733038 , 4.557424   ){\circle*{ .0286234}} 
  \put(    .753982 , 4.563593   ){\circle*{ .0286234}} 
  \put(    .774926 , 4.569274   ){\circle*{ .0286234}} 
  \put(     .79587 , 4.574438   ){\circle*{ .0286234}} 
  \put(    .816814 , 4.579052   ){\circle*{ .0286234}} 
  \put(    .837758 , 4.583087   ){\circle*{ .0286234}} 
  \put(    .858702 , 4.586509   ){\circle*{ .0286234}} 
  \put(    .879646 , 4.589286   ){\circle*{ .0286234}} 
  \put(    .900590 , 4.591384   ){\circle*{ .0286234}} 
  \put(    .921534 , 4.592769   ){\circle*{ .0286234}} 
  \put(    .942478 , 4.593407   ){\circle*{ .0286234}} 
  \put(    .963422 , 4.593264   ){\circle*{ .0286234}} 
  \put(    .984366 , 4.592306   ){\circle*{ .0286234}} 
  \put(   1.005310 ,   4.5905   ){\circle*{ .0286234}} 
  \put(   1.026254 , 4.587814   ){\circle*{ .0286234}} 
  \put(   1.047198 , 4.584218   ){\circle*{ .0286234}} 
  \put(   1.068142 , 4.579682   ){\circle*{ .0286234}} 
  \put(   1.089085 , 4.574179   ){\circle*{ .0286234}} 
  \put(   1.110029 , 4.567686   ){\circle*{ .0286234}} 
  \put(   1.130973 ,  4.56018   ){\circle*{ .0286234}} 
  \put(   1.151917 , 4.551647   ){\circle*{ .0286234}} 
  \put(   1.172861 ,  4.54207   ){\circle*{ .0286234}} 
  \put(   1.193805 , 4.531444   ){\circle*{ .0286234}} 
  \put(   1.214749 , 4.519763   ){\circle*{ .0286234}} 
  \put(   1.235693 , 4.507031   ){\circle*{ .0286234}} 
  \put(   1.256637 , 4.493256   ){\circle*{ .0286234}} 
  \put(   1.277581 , 4.478453   ){\circle*{ .0286234}} 
  \put(   1.298525 , 4.462644   ){\circle*{ .0286234}} 
  \put(   1.319469 , 4.445859   ){\circle*{ .0286234}} 
  \put(   1.340413 , 4.428134   ){\circle*{ .0286234}} 
  \put(   1.361357 , 4.409513   ){\circle*{ .0286234}} 
  \put(     1.3823 , 4.390048   ){\circle*{ .0286234}} 
  \put(   1.403245 , 4.369799   ){\circle*{ .0286234}} 
  \put(   1.424189 , 4.348832   ){\circle*{ .0286234}} 
  \put(   1.445133 , 4.327219   ){\circle*{ .0286234}} 
  \put(   1.466077 ,  4.30504   ){\circle*{ .0286234}} 
  \put(    1.48702 ,  4.28238   ){\circle*{ .0286234}} 
  \put(   1.507964 ,  4.25933   ){\circle*{ .0286234}} 
  \put(   1.528908 , 4.235984   ){\circle*{ .0286234}} 
  \put(   1.549852 , 4.212437   ){\circle*{ .0286234}} 
  \put(   1.570796 ,  4.18879   ){\circle*{ .0286234}} 
  \put(    1.59174 , 4.165143   ){\circle*{ .0286234}} 
  \put(   1.612684 , 4.141597   ){\circle*{ .0286234}} 
  \put(   1.633628 , 4.118250   ){\circle*{ .0286234}} 
  \put(   1.654572 , 4.095200   ){\circle*{ .0286234}} 
  \put(   1.675516 ,  4.07254   ){\circle*{ .0286234}} 
  \put(    1.69646 , 4.050362   ){\circle*{ .0286234}} 
  \put(   1.717404 , 4.028749   ){\circle*{ .0286234}} 
  \put(   1.738348 , 4.007781   ){\circle*{ .0286234}} 
  \put(   1.759292 , 3.987532   ){\circle*{ .0286234}} 
  \put(   1.780236 , 3.968067   ){\circle*{ .0286234}} 
  \put(   1.801180 , 3.949447   ){\circle*{ .0286234}} 
  \put(   1.822124 , 3.931721   ){\circle*{ .0286234}} 
  \put(   1.843068 , 3.914936   ){\circle*{ .0286234}} 
  \put(   1.864012 , 3.899127   ){\circle*{ .0286234}} 
  \put(   1.884956 , 3.884324   ){\circle*{ .0286234}} 
  \put(   1.905900 , 3.870549   ){\circle*{ .0286234}} 
  \put(   1.926843 , 3.857817   ){\circle*{ .0286234}} 
  \put(   1.947787 , 3.846136   ){\circle*{ .0286234}} 
  \put(   1.968731 , 3.835510   ){\circle*{ .0286234}} 
  \put(   1.989675 , 3.825934   ){\circle*{ .0286234}} 
  \put(   2.010619 , 3.817400   ){\circle*{ .0286234}} 
  \put(   2.031563 , 3.809895   ){\circle*{ .0286234}} 
  \put(   2.052507 , 3.803401   ){\circle*{ .0286234}} 
  \put(   2.073451 , 3.797899   ){\circle*{ .0286234}} 
  \put(   2.094395 , 3.793363   ){\circle*{ .0286234}} 
  \put(   2.115339 , 3.789766   ){\circle*{ .0286234}} 
  \put(   2.136283 ,  3.78708   ){\circle*{ .0286234}} 
  \put(   2.157227 , 3.785274   ){\circle*{ .0286234}} 
  \put(   2.178171 , 3.784316   ){\circle*{ .0286234}} 
  \put(   2.199115 , 3.784173   ){\circle*{ .0286234}} 
  \put(   2.220059 , 3.784811   ){\circle*{ .0286234}} 
  \put(   2.241003 , 3.786196   ){\circle*{ .0286234}} 
  \put(   2.261947 , 3.788294   ){\circle*{ .0286234}} 
  \put(    2.28289 , 3.791071   ){\circle*{ .0286234}} 
  \put(   2.303835 , 3.794493   ){\circle*{ .0286234}} 
  \put(   2.324779 , 3.798528   ){\circle*{ .0286234}} 
  \put(   2.345723 , 3.803143   ){\circle*{ .0286234}} 
  \put(   2.366666 , 3.808306   ){\circle*{ .0286234}} 
  \put(    2.38761 , 3.813987   ){\circle*{ .0286234}} 
  \put(   2.408554 , 3.820157   ){\circle*{ .0286234}} 
  \put(   2.429498 , 3.826786   ){\circle*{ .0286234}} 
  \put(   2.450442 , 3.833847   ){\circle*{ .0286234}} 
  \put(   2.471386 , 3.841315   ){\circle*{ .0286234}} 
  \put(    2.49233 , 3.849163   ){\circle*{ .0286234}} 
  \put(   2.513274 , 3.857367   ){\circle*{ .0286234}} 
  \put(   2.534218 , 3.865906   ){\circle*{ .0286234}} 
  \put(   2.555162 , 3.874756   ){\circle*{ .0286234}} 
  \put(   2.576106 , 3.883897   ){\circle*{ .0286234}} 
  \put(    2.59705 ,  3.89331   ){\circle*{ .0286234}} 
  \put(   2.617994 , 3.902976   ){\circle*{ .0286234}} 
  \put(   2.638938 , 3.912877   ){\circle*{ .0286234}} 
  \put(   2.659882 , 3.922997   ){\circle*{ .0286234}} 
  \put(   2.680826 , 3.933319   ){\circle*{ .0286234}} 
  \put(   2.701770 , 3.943829   ){\circle*{ .0286234}} 
  \put(   2.722714 , 3.954514   ){\circle*{ .0286234}} 
  \put(   2.743658 , 3.965359   ){\circle*{ .0286234}} 
  \put(   2.764602 , 3.976353   ){\circle*{ .0286234}} 
  \put(   2.785545 , 3.987483   ){\circle*{ .0286234}} 
  \put(   2.806489 , 3.998739   ){\circle*{ .0286234}} 
  \put(   2.827433 , 4.010109   ){\circle*{ .0286234}} 
  \put(   2.848377 , 4.021585   ){\circle*{ .0286234}} 
  \put(   2.869321 , 4.033157   ){\circle*{ .0286234}} 
  \put(   2.890265 , 4.044816   ){\circle*{ .0286234}} 
  \put(   2.911209 , 4.056553   ){\circle*{ .0286234}} 
  \put(   2.932153 ,  4.06836   ){\circle*{ .0286234}} 
  \put(   2.953097 , 4.080231   ){\circle*{ .0286234}} 
  \put(   2.974041 , 4.092158   ){\circle*{ .0286234}} 
  \put(   2.994985 , 4.104133   ){\circle*{ .0286234}} 
  \put(   3.015929 ,  4.11615   ){\circle*{ .0286234}} 
  \put(   3.036873 , 4.128204   ){\circle*{ .0286234}} 
  \put(   3.057817 , 4.140286   ){\circle*{ .0286234}} 
  \put(    3.07876 , 4.152392   ){\circle*{ .0286234}} 
  \put(   3.099705 , 4.164515   ){\circle*{ .0286234}} 
  \put(   3.120649 , 4.176650   ){\circle*{ .0286234}} 
  \put(   3.141593 ,  4.18879   ){\circle*{ .0286234}} 
  \put(   3.162537 ,  4.20093   ){\circle*{ .0286234}} 
  \put(    3.18348 , 4.213065   ){\circle*{ .0286234}} 
  \put(   3.204425 , 4.225189   ){\circle*{ .0286234}} 
  \put(   3.225368 , 4.237294   ){\circle*{ .0286234}} 
  \put(   3.246312 , 4.249377   ){\circle*{ .0286234}} 
  \put(   3.267256 ,  4.26143   ){\circle*{ .0286234}} 
  \put(     3.2882 , 4.273447   ){\circle*{ .0286234}} 
  \put(   3.309144 , 4.285423   ){\circle*{ .0286234}} 
  \put(   3.330088 , 4.297349   ){\circle*{ .0286234}} 
  \put(   3.351032 , 4.309220   ){\circle*{ .0286234}} 
  \put(   3.371976 , 4.321028   ){\circle*{ .0286234}} 
  \put(    3.39292 , 4.332765   ){\circle*{ .0286234}} 
  \put(   3.413864 , 4.344423   ){\circle*{ .0286234}} 
  \put(   3.434808 , 4.355995   ){\circle*{ .0286234}} 
  \put(   3.455752 , 4.367471   ){\circle*{ .0286234}} 
  \put(   3.476696 , 4.378842   ){\circle*{ .0286234}} 
  \put(   3.497640 , 4.390097   ){\circle*{ .0286234}} 
  \put(   3.518584 , 4.401228   ){\circle*{ .0286234}} 
  \put(   3.539528 , 4.412221   ){\circle*{ .0286234}} 
  \put(   3.560472 , 4.423066   ){\circle*{ .0286234}} 
  \put(   3.581416 , 4.433751   ){\circle*{ .0286234}} 
  \put(   3.602360 , 4.444261   ){\circle*{ .0286234}} 
  \put(   3.623304 , 4.454584   ){\circle*{ .0286234}} 
  \put(   3.644247 , 4.464703   ){\circle*{ .0286234}} 
  \put(   3.665191 , 4.474604   ){\circle*{ .0286234}} 
  \put(   3.686135 ,  4.48427   ){\circle*{ .0286234}} 
  \put(   3.707079 , 4.493683   ){\circle*{ .0286234}} 
  \put(   3.728023 , 4.502824   ){\circle*{ .0286234}} 
  \put(   3.748967 , 4.511675   ){\circle*{ .0286234}} 
  \put(   3.769911 , 4.520213   ){\circle*{ .0286234}} 
  \put(   3.790855 , 4.528418   ){\circle*{ .0286234}} 
  \put(   3.811799 , 4.536266   ){\circle*{ .0286234}} 
  \put(   3.832743 , 4.543733   ){\circle*{ .0286234}} 
  \put(   3.853687 , 4.550795   ){\circle*{ .0286234}} 
  \put(   3.874631 , 4.557424   ){\circle*{ .0286234}} 
  \put(   3.895575 , 4.563593   ){\circle*{ .0286234}} 
  \put(   3.916519 , 4.569274   ){\circle*{ .0286234}} 
  \put(   3.937463 , 4.574438   ){\circle*{ .0286234}} 
  \put(   3.958407 , 4.579052   ){\circle*{ .0286234}} 
  \put(    3.97935 , 4.583087   ){\circle*{ .0286234}} 
  \put(   4.000295 , 4.586509   ){\circle*{ .0286234}} 
  \put(   4.021239 , 4.589286   ){\circle*{ .0286234}} 
  \put(   4.042183 , 4.591384   ){\circle*{ .0286234}} 
  \put(   4.063126 , 4.592769   ){\circle*{ .0286234}} 
  \put(    4.08407 , 4.593407   ){\circle*{ .0286234}} 
  \put(   4.105014 , 4.593264   ){\circle*{ .0286234}} 
  \put(   4.125958 , 4.592306   ){\circle*{ .0286234}} 
  \put(   4.146902 ,   4.5905   ){\circle*{ .0286234}} 
  \put(   4.167846 , 4.587814   ){\circle*{ .0286234}} 
  \put(    4.18879 , 4.584218   ){\circle*{ .0286234}} 
  \put(   4.209734 , 4.579682   ){\circle*{ .0286234}} 
  \put(   4.230678 , 4.574179   ){\circle*{ .0286234}} 
  \put(   4.251622 , 4.567686   ){\circle*{ .0286234}} 
  \put(   4.272566 ,  4.56018   ){\circle*{ .0286234}} 
  \put(    4.29351 , 4.551647   ){\circle*{ .0286234}} 
  \put(   4.314454 ,  4.54207   ){\circle*{ .0286234}} 
  \put(   4.335398 , 4.531444   ){\circle*{ .0286234}} 
  \put(   4.356342 , 4.519763   ){\circle*{ .0286234}} 
  \put(   4.377286 , 4.507031   ){\circle*{ .0286234}} 
  \put(   4.398230 , 4.493256   ){\circle*{ .0286234}} 
  \put(   4.419174 , 4.478453   ){\circle*{ .0286234}} 
  \put(   4.440118 , 4.462644   ){\circle*{ .0286234}} 
  \put(   4.461062 , 4.445859   ){\circle*{ .0286234}} 
  \put(   4.482006 , 4.428134   ){\circle*{ .0286234}} 
  \put(   4.502949 , 4.409513   ){\circle*{ .0286234}} 
  \put(   4.523893 , 4.390048   ){\circle*{ .0286234}} 
  \put(   4.544837 , 4.369799   ){\circle*{ .0286234}} 
  \put(   4.565781 , 4.348832   ){\circle*{ .0286234}} 
  \put(   4.586725 , 4.327219   ){\circle*{ .0286234}} 
  \put(   4.607669 ,  4.30504   ){\circle*{ .0286234}} 
  \put(   4.628613 ,  4.28238   ){\circle*{ .0286234}} 
  \put(   4.649557 ,  4.25933   ){\circle*{ .0286234}} 
  \put(   4.670501 , 4.235984   ){\circle*{ .0286234}} 
  \put(   4.691445 , 4.212437   ){\circle*{ .0286234}} 
  \put(   4.712389 ,  4.18879   ){\circle*{ .0286234}} 
  \put(   4.733333 , 4.165143   ){\circle*{ .0286234}} 
  \put(   4.754277 , 4.141597   ){\circle*{ .0286234}} 
  \put(    4.77522 , 4.118250   ){\circle*{ .0286234}} 
  \put(   4.796165 , 4.095200   ){\circle*{ .0286234}} 
  \put(   4.817109 ,  4.07254   ){\circle*{ .0286234}} 
  \put(   4.838053 , 4.050362   ){\circle*{ .0286234}} 
  \put(   4.858997 , 4.028749   ){\circle*{ .0286234}} 
  \put(    4.87994 , 4.007781   ){\circle*{ .0286234}} 
  \put(   4.900885 , 3.987532   ){\circle*{ .0286234}} 
  \put(   4.921828 , 3.968067   ){\circle*{ .0286234}} 
  \put(   4.942772 , 3.949447   ){\circle*{ .0286234}} 
  \put(   4.963716 , 3.931721   ){\circle*{ .0286234}} 
  \put(    4.98466 , 3.914936   ){\circle*{ .0286234}} 
  \put(   5.005604 , 3.899127   ){\circle*{ .0286234}} 
  \put(   5.026548 , 3.884324   ){\circle*{ .0286234}} 
  \put(   5.047492 , 3.870549   ){\circle*{ .0286234}} 
  \put(   5.068436 , 3.857817   ){\circle*{ .0286234}} 
  \put(    5.08938 , 3.846136   ){\circle*{ .0286234}} 
  \put(   5.110324 , 3.835510   ){\circle*{ .0286234}} 
  \put(   5.131268 , 3.825934   ){\circle*{ .0286234}} 
  \put(   5.152212 , 3.817400   ){\circle*{ .0286234}} 
  \put(   5.173156 , 3.809895   ){\circle*{ .0286234}} 
  \put(   5.194100 , 3.803401   ){\circle*{ .0286234}} 
  \put(   5.215044 , 3.797899   ){\circle*{ .0286234}} 
  \put(   5.235988 , 3.793363   ){\circle*{ .0286234}} 
  \put(   5.256932 , 3.789766   ){\circle*{ .0286234}} 
  \put(   5.277876 ,  3.78708   ){\circle*{ .0286234}} 
  \put(   5.298820 , 3.785274   ){\circle*{ .0286234}} 
  \put(   5.319764 , 3.784316   ){\circle*{ .0286234}} 
  \put(   5.340708 , 3.784173   ){\circle*{ .0286234}} 
  \put(   5.361651 , 3.784811   ){\circle*{ .0286234}} 
  \put(   5.382595 , 3.786196   ){\circle*{ .0286234}} 
  \put(   5.403539 , 3.788294   ){\circle*{ .0286234}} 
  \put(   5.424483 , 3.791071   ){\circle*{ .0286234}} 
  \put(   5.445427 , 3.794493   ){\circle*{ .0286234}} 
  \put(   5.466371 , 3.798528   ){\circle*{ .0286234}} 
  \put(   5.487315 , 3.803143   ){\circle*{ .0286234}} 
  \put(   5.508259 , 3.808306   ){\circle*{ .0286234}} 
  \put(   5.529203 , 3.813987   ){\circle*{ .0286234}} 
  \put(   5.550147 , 3.820157   ){\circle*{ .0286234}} 
  \put(   5.571091 , 3.826786   ){\circle*{ .0286234}} 
  \put(   5.592035 , 3.833847   ){\circle*{ .0286234}} 
  \put(   5.612979 , 3.841315   ){\circle*{ .0286234}} 
  \put(   5.633923 , 3.849163   ){\circle*{ .0286234}} 
  \put(   5.654867 , 3.857367   ){\circle*{ .0286234}} 
  \put(    5.67581 , 3.865906   ){\circle*{ .0286234}} 
  \put(   5.696755 , 3.874756   ){\circle*{ .0286234}} 
  \put(   5.717699 , 3.883897   ){\circle*{ .0286234}} 
  \put(   5.738643 ,  3.89331   ){\circle*{ .0286234}} 
  \put(   5.759587 , 3.902976   ){\circle*{ .0286234}} 
  \put(    5.78053 , 3.912877   ){\circle*{ .0286234}} 
  \put(   5.801474 , 3.922997   ){\circle*{ .0286234}} 
  \put(   5.822418 , 3.933319   ){\circle*{ .0286234}} 
  \put(   5.843362 , 3.943829   ){\circle*{ .0286234}} 
  \put(   5.864306 , 3.954514   ){\circle*{ .0286234}} 
  \put(    5.88525 , 3.965359   ){\circle*{ .0286234}} 
  \put(   5.906194 , 3.976353   ){\circle*{ .0286234}} 
  \put(   5.927138 , 3.987483   ){\circle*{ .0286234}} 
  \put(   5.948082 , 3.998739   ){\circle*{ .0286234}} 
  \put(   5.969026 , 4.010109   ){\circle*{ .0286234}} 
  \put(    5.98997 , 4.021585   ){\circle*{ .0286234}} 
  \put(   6.010914 , 4.033157   ){\circle*{ .0286234}} 
  \put(   6.031858 , 4.044816   ){\circle*{ .0286234}} 
  \put(   6.052802 , 4.056553   ){\circle*{ .0286234}} 
  \put(   6.073746 ,  4.06836   ){\circle*{ .0286234}} 
  \put(   6.094690 , 4.080231   ){\circle*{ .0286234}} 
  \put(   6.115634 , 4.092158   ){\circle*{ .0286234}} 
  \put(   6.136578 , 4.104133   ){\circle*{ .0286234}} 
  \put(   6.157522 ,  4.11615   ){\circle*{ .0286234}} 
  \put(   6.178466 , 4.128204   ){\circle*{ .0286234}} 
  \put(   6.199410 , 4.140286   ){\circle*{ .0286234}} 
  \put(   6.220353 , 4.152392   ){\circle*{ .0286234}} 
  \put(   6.241297 , 4.164515   ){\circle*{ .0286234}} 
  \put(   6.262241 , 4.176650   ){\circle*{ .0286234}} 
\end{picture}
\end{center}
%Finis.

apl>)off