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
