apl>" <-APL2-------------------- sam293.txt ---------------------------->
apl>Lex 'tangr'
1
apl>Gz tangr a;b;c;d;e;f;g;h;k;m;n;p;s;t;u;v;w;x;y
[1] "Graphs the imaginary coefficient of tan.
[2] "Call format:
[3] "z = 0 if header information to be generated, 1 otherwise.
[4] " b = Imaginary coefficient of argument.
[5] " | c = Number of points to generate.
[6] " | | f = length of y axis.
[7] " | | | g = length of x axis.
[8] " | | | |
[9] " V V V V
[10] "z tangr 1,300,6,20
[11] (b c f g)#a
[12] e#f%2 " midpoint vertically of graph.
[13] k#(_g%2)+gX(-1+Ic+1)%c
[14] h#(k+g%2),',',[1.5]y#e+u#11O3O(bX0j1)+k
[15] m#I-1+g " Integer points on x axis.
[16] n#m_g%2 " Values to display at integer points on x.
[17] s#I-1+f " Integer points on y axis.
[18] t#s_e " Values to display at integer points on y.
[19] $dataXIz
[20] '\setlength{\unitlength}{',(F4.5%g),'in}'
[21] '\begin{picture}(',(Fg),',',(Ff),')'
[22] '%Draw a frame around the picture'
[23] ' \put(0,0){\line(1,0){',(Fg),'}}' " bottom horizontal
[24] ' \put(0,0){\line(0,1){',(Ff),'}}' " left vertical
[25] ' \put(0,',(Ff),'){\line(1,0){',(Fg),'}}' " top horizontal
[26] ' \put(',(Fg),',0){\line(0,1){',(Ff),'}}' " right vertical
[27] '%Draw the x axis'
[28] ' \put(0,',(Fe),'){\line(1,0){',(Fg),'}}' " horizontal x axis
[29] (`Z' \put('),((m,[1.5]','),e),`Z'){\circle*{.05}}'
[30] (`Z' \put('),(-.1+m+-.5Xn<0),',',(e_.5),(`Z'){$'),n,[1.5]`Z'$}'
[31] '%Draw the y axis'
[32] (`Z' \put(0,'),s,[1.5]`Z'){\circle*{.05}}'
[33] (`Z' \put(.05,'),s,(`Z'){$'),t,[1.5]`Z'$}'
[34] data:'%Label the curve'
[35] v#1Y(u=S/u#|u)/k " x coord where maximum/mininum occurs
[36] w#(v=k)/y " y coord of maximum/minimum
[37] '\put(',(Fv+g%2),',',(Fw+(.075Xb>0)_.5Xb<0),'){n\#',(Fb),'}'
[38] '%Draw the data points'
[39] (`Z'\put('),h,`Z'){\circle*{.04}}'
[40] G
apl>0 tangr 1,300,6,20
\setlength{\unitlength}{ .225in}
\begin{picture}(20,6)
%Draw a frame around the picture
\put(0,0){\line(1,0){20}}
\put(0,0){\line(0,1){6}}
\put(0,6){\line(1,0){20}}
\put(20,0){\line(0,1){6}}
%Draw the x axis
\put(0,3){\line(1,0){20}}
\put( 1 , 3 ){\circle*{.05}}
\put( 2 , 3 ){\circle*{.05}}
\put( 3 , 3 ){\circle*{.05}}
\put( 4 , 3 ){\circle*{.05}}
\put( 5 , 3 ){\circle*{.05}}
\put( 6 , 3 ){\circle*{.05}}
\put( 7 , 3 ){\circle*{.05}}
\put( 8 , 3 ){\circle*{.05}}
\put( 9 , 3 ){\circle*{.05}}
\put( 10 , 3 ){\circle*{.05}}
\put( 11 , 3 ){\circle*{.05}}
\put( 12 , 3 ){\circle*{.05}}
\put( 13 , 3 ){\circle*{.05}}
\put( 14 , 3 ){\circle*{.05}}
\put( 15 , 3 ){\circle*{.05}}
\put( 16 , 3 ){\circle*{.05}}
\put( 17 , 3 ){\circle*{.05}}
\put( 18 , 3 ){\circle*{.05}}
\put( 19 , 3 ){\circle*{.05}}
\put( .4 , 2.5 ){$ -9 $}
\put( 1.4 , 2.5 ){$ -8 $}
\put( 2.4 , 2.5 ){$ -7 $}
\put( 3.4 , 2.5 ){$ -6 $}
\put( 4.4 , 2.5 ){$ -5 $}
\put( 5.4 , 2.5 ){$ -4 $}
\put( 6.4 , 2.5 ){$ -3 $}
\put( 7.4 , 2.5 ){$ -2 $}
\put( 8.4 , 2.5 ){$ -1 $}
\put( 9.9 , 2.5 ){$ 0 $}
\put( 10.9 , 2.5 ){$ 1 $}
\put( 11.9 , 2.5 ){$ 2 $}
\put( 12.9 , 2.5 ){$ 3 $}
\put( 13.9 , 2.5 ){$ 4 $}
\put( 14.9 , 2.5 ){$ 5 $}
\put( 15.9 , 2.5 ){$ 6 $}
\put( 16.9 , 2.5 ){$ 7 $}
\put( 17.9 , 2.5 ){$ 8 $}
\put( 18.9 , 2.5 ){$ 9 $}
%Draw the y axis
\put(0, 1 ){\circle*{.05}}
\put(0, 2 ){\circle*{.05}}
\put(0, 3 ){\circle*{.05}}
\put(0, 4 ){\circle*{.05}}
\put(0, 5 ){\circle*{.05}}
\put(.05, 1 ){$ -2 $}
\put(.05, 2 ){$ -1 $}
\put(.05, 3 ){$ 0 $}
\put(.05, 4 ){$ 1 $}
\put(.05, 5 ){$ 2 $}
%Label the curve
\put(2.133333,4.387882 ){n\#1}
%Draw the data points
\put( 0 , 3.869693 ){\circle*{.04}}
\put( .06666667 , 3.845812 ){\circle*{.04}}
\put( .13333333 , 3.824956 ){\circle*{.04}}
\put( .2 , 3.80712 ){\circle*{.04}}
\put( .26666667 , 3.79228 ){\circle*{.04}}
\put( .33333333 , 3.780400 ){\circle*{.04}}
\put( .4 , 3.77144 ){\circle*{.04}}
\put( .46666667 , 3.765367 ){\circle*{.04}}
\put( .533333 , 3.762155 ){\circle*{.04}}
\put( .6 , 3.76179 ){\circle*{.04}}
\put( .666667 , 3.76427 ){\circle*{.04}}
\put( .733333 , 3.769607 ){\circle*{.04}}
\put( .8 , 3.777823 ){\circle*{.04}}
\put( .866667 , 3.78895 ){\circle*{.04}}
\put( .933333 , 3.803027 ){\circle*{.04}}
\put( 1 , 3.82009 ){\circle*{.04}}
\put( 1.066667 , 3.84017 ){\circle*{.04}}
\put( 1.133333 , 3.863276 ){\circle*{.04}}
\put( 1.2 , 3.889386 ){\circle*{.04}}
\put( 1.266667 , 3.918425 ){\circle*{.04}}
\put( 1.333333 , 3.95025 ){\circle*{.04}}
\put( 1.4 , 3.984619 ){\circle*{.04}}
\put( 1.466667 , 4.021165 ){\circle*{.04}}
\put( 1.533333 , 4.059371 ){\circle*{.04}}
\put( 1.6 , 4.098544 ){\circle*{.04}}
\put( 1.666667 , 4.137798 ){\circle*{.04}}
\put( 1.733333 , 4.176059 ){\circle*{.04}}
\put( 1.8 , 4.212086 ){\circle*{.04}}
\put( 1.866667 , 4.244525 ){\circle*{.04}}
\put( 1.933333 , 4.271998 ){\circle*{.04}}
\put( 2 , 4.293212 ){\circle*{.04}}
\put( 2.066667 , 4.307089 ){\circle*{.04}}
\put( 2.133333 , 4.312882 ){\circle*{.04}}
\put( 2.2 , 4.310273 ){\circle*{.04}}
\put( 2.266667 , 4.299407 ){\circle*{.04}}
\put( 2.333333 , 4.280873 ){\circle*{.04}}
\put( 2.4 , 4.255639 ){\circle*{.04}}
\put( 2.466667 , 4.224929 ){\circle*{.04}}
\put( 2.533333 , 4.190104 ){\circle*{.04}}
\put( 2.6 , 4.152539 ){\circle*{.04}}
\put( 2.666667 , 4.113526 ){\circle*{.04}}
\put( 2.733333 , 4.074208 ){\circle*{.04}}
\put( 2.8 , 4.035542 ){\circle*{.04}}
\put( 2.866667 , 3.998294 ){\circle*{.04}}
\put( 2.933333 , 3.963046 ){\circle*{.04}}
\put( 3 , 3.930219 ){\circle*{.04}}
\put( 3.066667 , 3.900097 ){\circle*{.04}}
\put( 3.133333 , 3.87286 ){\circle*{.04}}
\put( 3.2 , 3.848607 ){\circle*{.04}}
\put( 3.266667 , 3.827375 ){\circle*{.04}}
\put( 3.333333 , 3.809167 ){\circle*{.04}}
\put( 3.4 , 3.793957 ){\circle*{.04}}
\put( 3.466667 , 3.781712 ){\circle*{.04}}
\put( 3.533333 , 3.772393 ){\circle*{.04}}
\put( 3.6 , 3.765964 ){\circle*{.04}}
\put( 3.666667 , 3.762399 ){\circle*{.04}}
\put( 3.733333 , 3.761681 ){\circle*{.04}}
\put( 3.8 , 3.763809 ){\circle*{.04}}
\put( 3.866667 , 3.76879 ){\circle*{.04}}
\put( 3.933333 , 3.776648 ){\circle*{.04}}
\put( 4 , 3.787412 ){\circle*{.04}}
\put( 4.066667 , 3.801122 ){\circle*{.04}}
\put( 4.133333 , 3.817813 ){\circle*{.04}}
\put( 4.2 , 3.837518 ){\circle*{.04}}
\put( 4.266667 , 3.860250 ){\circle*{.04}}
\put( 4.333333 , 3.885990 ){\circle*{.04}}
\put( 4.4 , 3.914673 ){\circle*{.04}}
\put( 4.466667 , 3.946163 ){\circle*{.04}}
\put( 4.533333 , 3.980234 ){\circle*{.04}}
\put( 4.6 , 4.016535 ){\circle*{.04}}
\put( 4.666667 , 4.054569 ){\circle*{.04}}
\put( 4.733333 , 4.093666 ){\circle*{.04}}
\put( 4.8 , 4.132965 ){\circle*{.04}}
\put( 4.866667 , 4.171413 ){\circle*{.04}}
\put( 4.933333 , 4.207789 ){\circle*{.04}}
\put( 5 , 4.240748 ){\circle*{.04}}
\put( 5.066667 , 4.268909 ){\circle*{.04}}
\put( 5.133333 , 4.290963 ){\circle*{.04}}
\put( 5.2 , 4.305797 ){\circle*{.04}}
\put( 5.266667 , 4.312618 ){\circle*{.04}}
\put( 5.333333 , 4.311052 ){\circle*{.04}}
\put( 5.4 , 4.301185 ){\circle*{.04}}
\put( 5.466667 , 4.283556 ){\circle*{.04}}
\put( 5.533333 , 4.259089 ){\circle*{.04}}
\put( 5.6 , 4.228985 ){\circle*{.04}}
\put( 5.666667 , 4.194595 ){\circle*{.04}}
\put( 5.733333 , 4.157297 ){\circle*{.04}}
\put( 5.8 , 4.118398 ){\circle*{.04}}
\put( 5.866667 , 4.079061 ){\circle*{.04}}
\put( 5.933333 , 4.040269 ){\circle*{.04}}
\put( 6 , 4.00281 ){\circle*{.04}}
\put( 6.066667 , 3.967289 ){\circle*{.04}}
\put( 6.133333 , 3.934144 ){\circle*{.04}}
\put( 6.2 , 3.903675 ){\circle*{.04}}
\put( 6.266667 , 3.876075 ){\circle*{.04}}
\put( 6.333333 , 3.851448 ){\circle*{.04}}
\put( 6.4 , 3.829841 ){\circle*{.04}}
\put( 6.466667 , 3.811259 ){\circle*{.04}}
\put( 6.533333 , 3.79568 ){\circle*{.04}}
\put( 6.6 , 3.783070 ){\circle*{.04}}
\put( 6.666667 , 3.773390 ){\circle*{.04}}
\put( 6.733333 , 3.766604 ){\circle*{.04}}
\put( 6.8 , 3.762686 ){\circle*{.04}}
\put( 6.866667 , 3.761616 ){\circle*{.04}}
\put( 6.933333 , 3.76339 ){\circle*{.04}}
\put( 7 , 3.768018 ){\circle*{.04}}
\put( 7.066667 , 3.775517 ){\circle*{.04}}
\put( 7.133333 , 3.785920 ){\circle*{.04}}
\put( 7.2 , 3.799262 ){\circle*{.04}}
\put( 7.266667 , 3.815582 ){\circle*{.04}}
\put( 7.333333 , 3.834913 ){\circle*{.04}}
\put( 7.4 , 3.857269 ){\circle*{.04}}
\put( 7.466667 , 3.882639 ){\circle*{.04}}
\put( 7.533333 , 3.910963 ){\circle*{.04}}
\put( 7.6 , 3.942116 ){\circle*{.04}}
\put( 7.666667 , 3.975883 ){\circle*{.04}}
\put( 7.733333 , 4.011932 ){\circle*{.04}}
\put( 7.8 , 4.049784 ){\circle*{.04}}
\put( 7.866667 , 4.088792 ){\circle*{.04}}
\put( 7.933333 , 4.128119 ){\circle*{.04}}
\put( 8 , 4.166736 ){\circle*{.04}}
\put( 8.066667 , 4.203440 ){\circle*{.04}}
\put( 8.133333 , 4.236897 ){\circle*{.04}}
\put( 8.2 , 4.265727 ){\circle*{.04}}
\put( 8.266667 , 4.288603 ){\circle*{.04}}
\put( 8.333333 , 4.304381 ){\circle*{.04}}
\put( 8.4 , 4.312225 ){\circle*{.04}}
\put( 8.466667 , 4.311703 ){\circle*{.04}}
\put( 8.533333 , 4.302844 ){\circle*{.04}}
\put( 8.6 , 4.286133 ){\circle*{.04}}
\put( 8.666667 , 4.262452 ){\circle*{.04}}
\put( 8.733333 , 4.232975 ){\circle*{.04}}
\put( 8.8 , 4.19904 ){\circle*{.04}}
\put( 8.866667 , 4.16203 ){\circle*{.04}}
\put( 8.933333 , 4.123263 ){\circle*{.04}}
\put( 9 , 4.083923 ){\circle*{.04}}
\put( 9.066667 , 4.045017 ){\circle*{.04}}
\put( 9.133333 , 4.007357 ){\circle*{.04}}
\put( 9.2 , 3.971568 ){\circle*{.04}}
\put( 9.266667 , 3.938110 ){\circle*{.04}}
\put( 9.333333 , 3.907297 ){\circle*{.04}}
\put( 9.4 , 3.879334 ){\circle*{.04}}
\put( 9.466667 , 3.854336 ){\circle*{.04}}
\put( 9.53333 , 3.832354 ){\circle*{.04}}
\put( 9.6 , 3.813398 ){\circle*{.04}}
\put( 9.66667 , 3.797448 ){\circle*{.04}}
\put( 9.73333 , 3.784472 ){\circle*{.04}}
\put( 9.8 , 3.774431 ){\circle*{.04}}
\put( 9.86667 , 3.767289 ){\circle*{.04}}
\put( 9.93333 , 3.763016 ){\circle*{.04}}
\put( 10 , 3.761594 ){\circle*{.04}}
\put( 10.06667 , 3.763016 ){\circle*{.04}}
\put( 10.13333 , 3.767289 ){\circle*{.04}}
\put( 10.2 , 3.774431 ){\circle*{.04}}
\put( 10.26667 , 3.784472 ){\circle*{.04}}
\put( 10.33333 , 3.797448 ){\circle*{.04}}
\put( 10.4 , 3.813398 ){\circle*{.04}}
\put( 10.46667 , 3.832354 ){\circle*{.04}}
\put( 10.53333 , 3.854336 ){\circle*{.04}}
\put( 10.6 , 3.879334 ){\circle*{.04}}
\put( 10.66667 , 3.907297 ){\circle*{.04}}
\put( 10.73333 , 3.938110 ){\circle*{.04}}
\put( 10.8 , 3.971568 ){\circle*{.04}}
\put( 10.86667 , 4.007357 ){\circle*{.04}}
\put( 10.93333 , 4.045017 ){\circle*{.04}}
\put( 11 , 4.083923 ){\circle*{.04}}
\put( 11.06667 , 4.123263 ){\circle*{.04}}
\put( 11.13333 , 4.16203 ){\circle*{.04}}
\put( 11.2 , 4.19904 ){\circle*{.04}}
\put( 11.26667 , 4.232975 ){\circle*{.04}}
\put( 11.33333 , 4.262452 ){\circle*{.04}}
\put( 11.4 , 4.286133 ){\circle*{.04}}
\put( 11.46667 , 4.302844 ){\circle*{.04}}
\put( 11.53333 , 4.311703 ){\circle*{.04}}
\put( 11.6 , 4.312225 ){\circle*{.04}}
\put( 11.66667 , 4.304381 ){\circle*{.04}}
\put( 11.73333 , 4.288603 ){\circle*{.04}}
\put( 11.8 , 4.265727 ){\circle*{.04}}
\put( 11.86667 , 4.236897 ){\circle*{.04}}
\put( 11.93333 , 4.203440 ){\circle*{.04}}
\put( 12 , 4.166736 ){\circle*{.04}}
\put( 12.06667 , 4.128119 ){\circle*{.04}}
\put( 12.13333 , 4.088792 ){\circle*{.04}}
\put( 12.2 , 4.049784 ){\circle*{.04}}
\put( 12.26667 , 4.011932 ){\circle*{.04}}
\put( 12.33333 , 3.975883 ){\circle*{.04}}
\put( 12.4 , 3.942116 ){\circle*{.04}}
\put( 12.46667 , 3.910963 ){\circle*{.04}}
\put( 12.53333 , 3.882639 ){\circle*{.04}}
\put( 12.6 , 3.857269 ){\circle*{.04}}
\put( 12.66667 , 3.834913 ){\circle*{.04}}
\put( 12.73333 , 3.815582 ){\circle*{.04}}
\put( 12.8 , 3.799262 ){\circle*{.04}}
\put( 12.86667 , 3.785920 ){\circle*{.04}}
\put( 12.93333 , 3.775517 ){\circle*{.04}}
\put( 13 , 3.768018 ){\circle*{.04}}
\put( 13.06667 , 3.76339 ){\circle*{.04}}
\put( 13.13333 , 3.761616 ){\circle*{.04}}
\put( 13.2 , 3.762686 ){\circle*{.04}}
\put( 13.26667 , 3.766604 ){\circle*{.04}}
\put( 13.33333 , 3.773390 ){\circle*{.04}}
\put( 13.4 , 3.783070 ){\circle*{.04}}
\put( 13.46667 , 3.79568 ){\circle*{.04}}
\put( 13.53333 , 3.811259 ){\circle*{.04}}
\put( 13.6 , 3.829841 ){\circle*{.04}}
\put( 13.66667 , 3.851448 ){\circle*{.04}}
\put( 13.73333 , 3.876075 ){\circle*{.04}}
\put( 13.8 , 3.903675 ){\circle*{.04}}
\put( 13.86667 , 3.934144 ){\circle*{.04}}
\put( 13.93333 , 3.967289 ){\circle*{.04}}
\put( 14 , 4.00281 ){\circle*{.04}}
\put( 14.06667 , 4.040269 ){\circle*{.04}}
\put( 14.13333 , 4.079061 ){\circle*{.04}}
\put( 14.2 , 4.118398 ){\circle*{.04}}
\put( 14.26667 , 4.157297 ){\circle*{.04}}
\put( 14.33333 , 4.194595 ){\circle*{.04}}
\put( 14.4 , 4.228985 ){\circle*{.04}}
\put( 14.46667 , 4.259089 ){\circle*{.04}}
\put( 14.53333 , 4.283556 ){\circle*{.04}}
\put( 14.6 , 4.301185 ){\circle*{.04}}
\put( 14.66667 , 4.311052 ){\circle*{.04}}
\put( 14.73333 , 4.312618 ){\circle*{.04}}
\put( 14.8 , 4.305797 ){\circle*{.04}}
\put( 14.86667 , 4.290963 ){\circle*{.04}}
\put( 14.93333 , 4.268909 ){\circle*{.04}}
\put( 15 , 4.240748 ){\circle*{.04}}
\put( 15.06667 , 4.207789 ){\circle*{.04}}
\put( 15.13333 , 4.171413 ){\circle*{.04}}
\put( 15.2 , 4.132965 ){\circle*{.04}}
\put( 15.26667 , 4.093666 ){\circle*{.04}}
\put( 15.33333 , 4.054569 ){\circle*{.04}}
\put( 15.4 , 4.016535 ){\circle*{.04}}
\put( 15.46667 , 3.980234 ){\circle*{.04}}
\put( 15.53333 , 3.946163 ){\circle*{.04}}
\put( 15.6 , 3.914673 ){\circle*{.04}}
\put( 15.66667 , 3.885990 ){\circle*{.04}}
\put( 15.73333 , 3.860250 ){\circle*{.04}}
\put( 15.8 , 3.837518 ){\circle*{.04}}
\put( 15.86667 , 3.817813 ){\circle*{.04}}
\put( 15.93333 , 3.801122 ){\circle*{.04}}
\put( 16 , 3.787412 ){\circle*{.04}}
\put( 16.06667 , 3.776648 ){\circle*{.04}}
\put( 16.13333 , 3.76879 ){\circle*{.04}}
\put( 16.2 , 3.763809 ){\circle*{.04}}
\put( 16.26667 , 3.761681 ){\circle*{.04}}
\put( 16.33333 , 3.762399 ){\circle*{.04}}
\put( 16.4 , 3.765964 ){\circle*{.04}}
\put( 16.46667 , 3.772393 ){\circle*{.04}}
\put( 16.53333 , 3.781712 ){\circle*{.04}}
\put( 16.6 , 3.793957 ){\circle*{.04}}
\put( 16.66667 , 3.809167 ){\circle*{.04}}
\put( 16.73333 , 3.827375 ){\circle*{.04}}
\put( 16.8 , 3.848607 ){\circle*{.04}}
\put( 16.86667 , 3.87286 ){\circle*{.04}}
\put( 16.93333 , 3.900097 ){\circle*{.04}}
\put( 17 , 3.930219 ){\circle*{.04}}
\put( 17.06667 , 3.963046 ){\circle*{.04}}
\put( 17.13333 , 3.998294 ){\circle*{.04}}
\put( 17.2 , 4.035542 ){\circle*{.04}}
\put( 17.26667 , 4.074208 ){\circle*{.04}}
\put( 17.33333 , 4.113526 ){\circle*{.04}}
\put( 17.4 , 4.152539 ){\circle*{.04}}
\put( 17.46667 , 4.190104 ){\circle*{.04}}
\put( 17.53333 , 4.224929 ){\circle*{.04}}
\put( 17.6 , 4.255639 ){\circle*{.04}}
\put( 17.66667 , 4.280873 ){\circle*{.04}}
\put( 17.73333 , 4.299407 ){\circle*{.04}}
\put( 17.8 , 4.310273 ){\circle*{.04}}
\put( 17.86667 , 4.312882 ){\circle*{.04}}
\put( 17.93333 , 4.307089 ){\circle*{.04}}
\put( 18 , 4.293212 ){\circle*{.04}}
\put( 18.06667 , 4.271998 ){\circle*{.04}}
\put( 18.13333 , 4.244525 ){\circle*{.04}}
\put( 18.2 , 4.212086 ){\circle*{.04}}
\put( 18.26667 , 4.176059 ){\circle*{.04}}
\put( 18.33333 , 4.137798 ){\circle*{.04}}
\put( 18.4 , 4.098544 ){\circle*{.04}}
\put( 18.46667 , 4.059371 ){\circle*{.04}}
\put( 18.53333 , 4.021165 ){\circle*{.04}}
\put( 18.6 , 3.984619 ){\circle*{.04}}
\put( 18.66667 , 3.95025 ){\circle*{.04}}
\put( 18.73333 , 3.918425 ){\circle*{.04}}
\put( 18.8 , 3.889386 ){\circle*{.04}}
\put( 18.86667 , 3.863276 ){\circle*{.04}}
\put( 18.93333 , 3.84017 ){\circle*{.04}}
\put( 19 , 3.82009 ){\circle*{.04}}
\put( 19.06667 , 3.803027 ){\circle*{.04}}
\put( 19.13333 , 3.78895 ){\circle*{.04}}
\put( 19.2 , 3.777823 ){\circle*{.04}}
\put( 19.26667 , 3.769607 ){\circle*{.04}}
\put( 19.33333 , 3.76427 ){\circle*{.04}}
\put( 19.4 , 3.76179 ){\circle*{.04}}
\put( 19.46667 , 3.762155 ){\circle*{.04}}
\put( 19.53333 , 3.765367 ){\circle*{.04}}
\put( 19.6 , 3.77144 ){\circle*{.04}}
\put( 19.66667 , 3.780400 ){\circle*{.04}}
\put( 19.73333 , 3.79228 ){\circle*{.04}}
\put( 19.8 , 3.80712 ){\circle*{.04}}
\put( 19.86667 , 3.824956 ){\circle*{.04}}
\put( 19.93333 , 3.845812 ){\circle*{.04}}
\put( 20 , 3.869693 ){\circle*{.04}}
apl>1 tangr .5,300,6,20
%Label the curve
\put(2.133333,5.237672 ){n\# .5}
%Draw the data points
\put( 0 , 3.602308 ){\circle*{.04}}
\put( .06666667 , 3.56803 ){\circle*{.04}}
\put( .13333333 , 3.539748 ){\circle*{.04}}
\put( .2 , 3.516693 ){\circle*{.04}}
\put( .26666667 , 3.498255 ){\circle*{.04}}
\put( .33333333 , 3.483956 ){\circle*{.04}}
\put( .4 , 3.473432 ){\circle*{.04}}
\put( .46666667 , 3.466423 ){\circle*{.04}}
\put( .533333 , 3.462755 ){\circle*{.04}}
\put( .6 , 3.46234 ){\circle*{.04}}
\put( .666667 , 3.465168 ){\circle*{.04}}
\put( .733333 , 3.471306 ){\circle*{.04}}
\put( .8 , 3.480906 ){\circle*{.04}}
\put( .866667 , 3.494206 ){\circle*{.04}}
\put( .933333 , 3.511542 ){\circle*{.04}}
\put( 1 , 3.533359 ){\circle*{.04}}
\put( 1.066667 , 3.560233 ){\circle*{.04}}
\put( 1.133333 , 3.592889 ){\circle*{.04}}
\put( 1.2 , 3.632228 ){\circle*{.04}}
\put( 1.266667 , 3.679353 ){\circle*{.04}}
\put( 1.333333 , 3.735592 ){\circle*{.04}}
\put( 1.4 , 3.802512 ){\circle*{.04}}
\put( 1.466667 , 3.881903 ){\circle*{.04}}
\put( 1.533333 , 3.975689 ){\circle*{.04}}
\put( 1.6 , 4.085734 ){\circle*{.04}}
\put( 1.666667 , 4.213425 ){\circle*{.04}}
\put( 1.733333 , 4.358935 ){\circle*{.04}}
\put( 1.8 , 4.520051 ){\circle*{.04}}
\put( 1.866667 , 4.690602 ){\circle*{.04}}
\put( 1.933333 , 4.858923 ){\circle*{.04}}
\put( 2 , 5.007446 ){\circle*{.04}}
\put( 2.066667 , 5.115012 ){\circle*{.04}}
\put( 2.133333 , 5.162672 ){\circle*{.04}}
\put( 2.2 , 5.141000 ){\circle*{.04}}
\put( 2.266667 , 5.054362 ){\circle*{.04}}
\put( 2.333333 , 4.918892 ){\circle*{.04}}
\put( 2.4 , 4.755752 ){\circle*{.04}}
\put( 2.466667 , 4.584342 ){\circle*{.04}}
\put( 2.533333 , 4.418639 ){\circle*{.04}}
\put( 2.6 , 4.266752 ){\circle*{.04}}
\put( 2.666667 , 4.132201 ){\circle*{.04}}
\put( 2.733333 , 4.015559 ){\circle*{.04}}
\put( 2.8 , 3.915791 ){\circle*{.04}}
\put( 2.866667 , 3.831152 ){\circle*{.04}}
\put( 2.933333 , 3.759707 ){\circle*{.04}}
\put( 3 , 3.6996 ){\circle*{.04}}
\put( 3.066667 , 3.649177 ){\circle*{.04}}
\put( 3.133333 , 3.607017 ){\circle*{.04}}
\put( 3.2 , 3.571934 ){\circle*{.04}}
\put( 3.266667 , 3.542954 ){\circle*{.04}}
\put( 3.333333 , 3.519288 ){\circle*{.04}}
\put( 3.4 , 3.500306 ){\circle*{.04}}
\put( 3.466667 , 3.485516 ){\circle*{.04}}
\put( 3.533333 , 3.47454 ){\circle*{.04}}
\put( 3.6 , 3.467107 ){\circle*{.04}}
\put( 3.666667 , 3.463032 ){\circle*{.04}}
\put( 3.733333 , 3.462216 ){\circle*{.04}}
\put( 3.8 , 3.46464 ){\circle*{.04}}
\put( 3.866667 , 3.470362 ){\circle*{.04}}
\put( 3.933333 , 3.479522 ){\circle*{.04}}
\put( 4 , 3.492347 ){\circle*{.04}}
\put( 4.066667 , 3.509161 ){\circle*{.04}}
\put( 4.133333 , 3.530394 ){\circle*{.04}}
\put( 4.2 , 3.556606 ){\circle*{.04}}
\put( 4.266667 , 3.5885 ){\circle*{.04}}
\put( 4.333333 , 3.626956 ){\circle*{.04}}
\put( 4.4 , 3.673049 ){\circle*{.04}}
\put( 4.466667 , 3.728079 ){\circle*{.04}}
\put( 4.533333 , 3.793583 ){\circle*{.04}}
\put( 4.6 , 3.871326 ){\circle*{.04}}
\put( 4.666667 , 3.963223 ){\circle*{.04}}
\put( 4.733333 , 4.071164 ){\circle*{.04}}
\put( 4.8 , 4.196625 ){\circle*{.04}}
\put( 4.866667 , 4.339985 ){\circle*{.04}}
\put( 4.933333 , 4.499406 ){\circle*{.04}}
\put( 5 , 4.669298 ){\circle*{.04}}
\put( 5.066667 , 4.838737 ){\circle*{.04}}
\put( 5.133333 , 4.990829 ){\circle*{.04}}
\put( 5.2 , 5.104614 ){\circle*{.04}}
\put( 5.266667 , 5.160464 ){\circle*{.04}}
\put( 5.333333 , 5.147432 ){\circle*{.04}}
\put( 5.4 , 5.068153 ){\circle*{.04}}
\put( 5.466667 , 4.937613 ){\circle*{.04}}
\put( 5.533333 , 4.776762 ){\circle*{.04}}
\put( 5.6 , 4.605493 ){\circle*{.04}}
\put( 5.666667 , 4.438532 ){\circle*{.04}}
\put( 5.733333 , 4.284665 ){\circle*{.04}}
\put( 5.8 , 4.14789 ){\circle*{.04}}
\put( 5.866667 , 4.029064 ){\circle*{.04}}
\put( 5.933333 , 3.927292 ){\circle*{.04}}
\put( 6 , 3.840883 ){\circle*{.04}}
\put( 6.066667 , 3.767907 ){\circle*{.04}}
\put( 6.133333 , 3.70649 ){\circle*{.04}}
\put( 6.2 , 3.654949 ){\circle*{.04}}
\put( 6.266667 , 3.611834 ){\circle*{.04}}
\put( 6.333333 , 3.575931 ){\circle*{.04}}
\put( 6.4 , 3.546241 ){\circle*{.04}}
\put( 6.466667 , 3.521954 ){\circle*{.04}}
\put( 6.533333 , 3.502421 ){\circle*{.04}}
\put( 6.6 , 3.487134 ){\circle*{.04}}
\put( 6.666667 , 3.475704 ){\circle*{.04}}
\put( 6.733333 , 3.467843 ){\circle*{.04}}
\put( 6.8 , 3.463359 ){\circle*{.04}}
\put( 6.866667 , 3.462142 ){\circle*{.04}}
\put( 6.933333 , 3.464163 ){\circle*{.04}}
\put( 7 , 3.46947 ){\circle*{.04}}
\put( 7.066667 , 3.478194 ){\circle*{.04}}
\put( 7.133333 , 3.490550 ){\circle*{.04}}
\put( 7.2 , 3.506848 ){\circle*{.04}}
\put( 7.266667 , 3.527506 ){\circle*{.04}}
\put( 7.333333 , 3.553066 ){\circle*{.04}}
\put( 7.4 , 3.584213 ){\circle*{.04}}
\put( 7.466667 , 3.621802 ){\circle*{.04}}
\put( 7.533333 , 3.666882 ){\circle*{.04}}
\put( 7.6 , 3.720726 ){\circle*{.04}}
\put( 7.666667 , 3.784841 ){\circle*{.04}}
\put( 7.733333 , 3.860966 ){\circle*{.04}}
\put( 7.8 , 3.951004 ){\circle*{.04}}
\put( 7.866667 , 4.056863 ){\circle*{.04}}
\put( 7.933333 , 4.180102 ){\circle*{.04}}
\put( 8 , 4.321287 ){\circle*{.04}}
\put( 8.066667 , 4.478928 ){\circle*{.04}}
\put( 8.133333 , 4.647995 ){\circle*{.04}}
\put( 8.2 , 4.81829 ){\circle*{.04}}
\put( 8.266667 , 4.973624 ){\circle*{.04}}
\put( 8.333333 , 5.093315 ){\circle*{.04}}
\put( 8.4 , 5.15718 ){\circle*{.04}}
\put( 8.466667 , 5.152832 ){\circle*{.04}}
\put( 8.533333 , 5.08115 ){\circle*{.04}}
\put( 8.6 , 4.95587 ){\circle*{.04}}
\put( 8.666667 , 4.797620 ){\circle*{.04}}
\put( 8.733333 , 4.626719 ){\circle*{.04}}
\put( 8.8 , 4.458633 ){\circle*{.04}}
\put( 8.866667 , 4.302845 ){\circle*{.04}}
\put( 8.933333 , 4.163857 ){\circle*{.04}}
\put( 9 , 4.04283 ){\circle*{.04}}
\put( 9.066667 , 3.939028 ){\circle*{.04}}
\put( 9.133333 , 3.850819 ){\circle*{.04}}
\put( 9.2 , 3.776284 ){\circle*{.04}}
\put( 9.266667 , 3.71353 ){\circle*{.04}}
\put( 9.333333 , 3.660850 ){\circle*{.04}}
\put( 9.4 , 3.616762 ){\circle*{.04}}
\put( 9.466667 , 3.580024 ){\circle*{.04}}
\put( 9.53333 , 3.549612 ){\circle*{.04}}
\put( 9.6 , 3.524693 ){\circle*{.04}}
\put( 9.66667 , 3.504602 ){\circle*{.04}}
\put( 9.73333 , 3.488812 ){\circle*{.04}}
\put( 9.8 , 3.476921 ){\circle*{.04}}
\put( 9.86667 , 3.46863 ){\circle*{.04}}
\put( 9.93333 , 3.463736 ){\circle*{.04}}
\put( 10 , 3.462117 ){\circle*{.04}}
\put( 10.06667 , 3.463736 ){\circle*{.04}}
\put( 10.13333 , 3.46863 ){\circle*{.04}}
\put( 10.2 , 3.476921 ){\circle*{.04}}
\put( 10.26667 , 3.488812 ){\circle*{.04}}
\put( 10.33333 , 3.504602 ){\circle*{.04}}
\put( 10.4 , 3.524693 ){\circle*{.04}}
\put( 10.46667 , 3.549612 ){\circle*{.04}}
\put( 10.53333 , 3.580024 ){\circle*{.04}}
\put( 10.6 , 3.616762 ){\circle*{.04}}
\put( 10.66667 , 3.660850 ){\circle*{.04}}
\put( 10.73333 , 3.71353 ){\circle*{.04}}
\put( 10.8 , 3.776284 ){\circle*{.04}}
\put( 10.86667 , 3.850819 ){\circle*{.04}}
\put( 10.93333 , 3.939028 ){\circle*{.04}}
\put( 11 , 4.04283 ){\circle*{.04}}
\put( 11.06667 , 4.163857 ){\circle*{.04}}
\put( 11.13333 , 4.302845 ){\circle*{.04}}
\put( 11.2 , 4.458633 ){\circle*{.04}}
\put( 11.26667 , 4.626719 ){\circle*{.04}}
\put( 11.33333 , 4.797620 ){\circle*{.04}}
\put( 11.4 , 4.95587 ){\circle*{.04}}
\put( 11.46667 , 5.08115 ){\circle*{.04}}
\put( 11.53333 , 5.152832 ){\circle*{.04}}
\put( 11.6 , 5.15718 ){\circle*{.04}}
\put( 11.66667 , 5.093315 ){\circle*{.04}}
\put( 11.73333 , 4.973624 ){\circle*{.04}}
\put( 11.8 , 4.81829 ){\circle*{.04}}
\put( 11.86667 , 4.647995 ){\circle*{.04}}
\put( 11.93333 , 4.478928 ){\circle*{.04}}
\put( 12 , 4.321287 ){\circle*{.04}}
\put( 12.06667 , 4.180102 ){\circle*{.04}}
\put( 12.13333 , 4.056863 ){\circle*{.04}}
\put( 12.2 , 3.951004 ){\circle*{.04}}
\put( 12.26667 , 3.860966 ){\circle*{.04}}
\put( 12.33333 , 3.784841 ){\circle*{.04}}
\put( 12.4 , 3.720726 ){\circle*{.04}}
\put( 12.46667 , 3.666882 ){\circle*{.04}}
\put( 12.53333 , 3.621802 ){\circle*{.04}}
\put( 12.6 , 3.584213 ){\circle*{.04}}
\put( 12.66667 , 3.553066 ){\circle*{.04}}
\put( 12.73333 , 3.527506 ){\circle*{.04}}
\put( 12.8 , 3.506848 ){\circle*{.04}}
\put( 12.86667 , 3.490550 ){\circle*{.04}}
\put( 12.93333 , 3.478194 ){\circle*{.04}}
\put( 13 , 3.46947 ){\circle*{.04}}
\put( 13.06667 , 3.464163 ){\circle*{.04}}
\put( 13.13333 , 3.462142 ){\circle*{.04}}
\put( 13.2 , 3.463359 ){\circle*{.04}}
\put( 13.26667 , 3.467843 ){\circle*{.04}}
\put( 13.33333 , 3.475704 ){\circle*{.04}}
\put( 13.4 , 3.487134 ){\circle*{.04}}
\put( 13.46667 , 3.502421 ){\circle*{.04}}
\put( 13.53333 , 3.521954 ){\circle*{.04}}
\put( 13.6 , 3.546241 ){\circle*{.04}}
\put( 13.66667 , 3.575931 ){\circle*{.04}}
\put( 13.73333 , 3.611834 ){\circle*{.04}}
\put( 13.8 , 3.654949 ){\circle*{.04}}
\put( 13.86667 , 3.70649 ){\circle*{.04}}
\put( 13.93333 , 3.767907 ){\circle*{.04}}
\put( 14 , 3.840883 ){\circle*{.04}}
\put( 14.06667 , 3.927292 ){\circle*{.04}}
\put( 14.13333 , 4.029064 ){\circle*{.04}}
\put( 14.2 , 4.14789 ){\circle*{.04}}
\put( 14.26667 , 4.284665 ){\circle*{.04}}
\put( 14.33333 , 4.438532 ){\circle*{.04}}
\put( 14.4 , 4.605493 ){\circle*{.04}}
\put( 14.46667 , 4.776762 ){\circle*{.04}}
\put( 14.53333 , 4.937613 ){\circle*{.04}}
\put( 14.6 , 5.068153 ){\circle*{.04}}
\put( 14.66667 , 5.147432 ){\circle*{.04}}
\put( 14.73333 , 5.160464 ){\circle*{.04}}
\put( 14.8 , 5.104614 ){\circle*{.04}}
\put( 14.86667 , 4.990829 ){\circle*{.04}}
\put( 14.93333 , 4.838737 ){\circle*{.04}}
\put( 15 , 4.669298 ){\circle*{.04}}
\put( 15.06667 , 4.499406 ){\circle*{.04}}
\put( 15.13333 , 4.339985 ){\circle*{.04}}
\put( 15.2 , 4.196625 ){\circle*{.04}}
\put( 15.26667 , 4.071164 ){\circle*{.04}}
\put( 15.33333 , 3.963223 ){\circle*{.04}}
\put( 15.4 , 3.871326 ){\circle*{.04}}
\put( 15.46667 , 3.793583 ){\circle*{.04}}
\put( 15.53333 , 3.728079 ){\circle*{.04}}
\put( 15.6 , 3.673049 ){\circle*{.04}}
\put( 15.66667 , 3.626956 ){\circle*{.04}}
\put( 15.73333 , 3.5885 ){\circle*{.04}}
\put( 15.8 , 3.556606 ){\circle*{.04}}
\put( 15.86667 , 3.530394 ){\circle*{.04}}
\put( 15.93333 , 3.509161 ){\circle*{.04}}
\put( 16 , 3.492347 ){\circle*{.04}}
\put( 16.06667 , 3.479522 ){\circle*{.04}}
\put( 16.13333 , 3.470362 ){\circle*{.04}}
\put( 16.2 , 3.46464 ){\circle*{.04}}
\put( 16.26667 , 3.462216 ){\circle*{.04}}
\put( 16.33333 , 3.463032 ){\circle*{.04}}
\put( 16.4 , 3.467107 ){\circle*{.04}}
\put( 16.46667 , 3.47454 ){\circle*{.04}}
\put( 16.53333 , 3.485516 ){\circle*{.04}}
\put( 16.6 , 3.500306 ){\circle*{.04}}
\put( 16.66667 , 3.519288 ){\circle*{.04}}
\put( 16.73333 , 3.542954 ){\circle*{.04}}
\put( 16.8 , 3.571934 ){\circle*{.04}}
\put( 16.86667 , 3.607017 ){\circle*{.04}}
\put( 16.93333 , 3.649177 ){\circle*{.04}}
\put( 17 , 3.6996 ){\circle*{.04}}
\put( 17.06667 , 3.759707 ){\circle*{.04}}
\put( 17.13333 , 3.831152 ){\circle*{.04}}
\put( 17.2 , 3.915791 ){\circle*{.04}}
\put( 17.26667 , 4.015559 ){\circle*{.04}}
\put( 17.33333 , 4.132201 ){\circle*{.04}}
\put( 17.4 , 4.266752 ){\circle*{.04}}
\put( 17.46667 , 4.418639 ){\circle*{.04}}
\put( 17.53333 , 4.584342 ){\circle*{.04}}
\put( 17.6 , 4.755752 ){\circle*{.04}}
\put( 17.66667 , 4.918892 ){\circle*{.04}}
\put( 17.73333 , 5.054362 ){\circle*{.04}}
\put( 17.8 , 5.141000 ){\circle*{.04}}
\put( 17.86667 , 5.162672 ){\circle*{.04}}
\put( 17.93333 , 5.115012 ){\circle*{.04}}
\put( 18 , 5.007446 ){\circle*{.04}}
\put( 18.06667 , 4.858923 ){\circle*{.04}}
\put( 18.13333 , 4.690602 ){\circle*{.04}}
\put( 18.2 , 4.520051 ){\circle*{.04}}
\put( 18.26667 , 4.358935 ){\circle*{.04}}
\put( 18.33333 , 4.213425 ){\circle*{.04}}
\put( 18.4 , 4.085734 ){\circle*{.04}}
\put( 18.46667 , 3.975689 ){\circle*{.04}}
\put( 18.53333 , 3.881903 ){\circle*{.04}}
\put( 18.6 , 3.802512 ){\circle*{.04}}
\put( 18.66667 , 3.735592 ){\circle*{.04}}
\put( 18.73333 , 3.679353 ){\circle*{.04}}
\put( 18.8 , 3.632228 ){\circle*{.04}}
\put( 18.86667 , 3.592889 ){\circle*{.04}}
\put( 18.93333 , 3.560233 ){\circle*{.04}}
\put( 19 , 3.533359 ){\circle*{.04}}
\put( 19.06667 , 3.511542 ){\circle*{.04}}
\put( 19.13333 , 3.494206 ){\circle*{.04}}
\put( 19.2 , 3.480906 ){\circle*{.04}}
\put( 19.26667 , 3.471306 ){\circle*{.04}}
\put( 19.33333 , 3.465168 ){\circle*{.04}}
\put( 19.4 , 3.46234 ){\circle*{.04}}
\put( 19.46667 , 3.462755 ){\circle*{.04}}
\put( 19.53333 , 3.466423 ){\circle*{.04}}
\put( 19.6 , 3.473432 ){\circle*{.04}}
\put( 19.66667 , 3.483956 ){\circle*{.04}}
\put( 19.73333 , 3.498255 ){\circle*{.04}}
\put( 19.8 , 3.516693 ){\circle*{.04}}
\put( 19.86667 , 3.539748 ){\circle*{.04}}
\put( 19.93333 , 3.56803 ){\circle*{.04}}
\put( 20 , 3.602308 ){\circle*{.04}}
apl>1 tangr -1,300,6,20
%Label the curve
\put(2.133333,1.187118 ){n\#-1}
%Draw the data points
\put( 0 , 2.130307 ){\circle*{.04}}
\put( .06666667 , 2.154188 ){\circle*{.04}}
\put( .13333333 , 2.175044 ){\circle*{.04}}
\put( .2 , 2.192880 ){\circle*{.04}}
\put( .26666667 , 2.207720 ){\circle*{.04}}
\put( .33333333 , 2.2196 ){\circle*{.04}}
\put( .4 , 2.22856 ){\circle*{.04}}
\put( .46666667 , 2.234633 ){\circle*{.04}}
\put( .533333 , 2.237845 ){\circle*{.04}}
\put( .6 , 2.238209 ){\circle*{.04}}
\put( .666667 , 2.235729 ){\circle*{.04}}
\put( .733333 , 2.230393 ){\circle*{.04}}
\put( .8 , 2.222177 ){\circle*{.04}}
\put( .866667 , 2.211050 ){\circle*{.04}}
\put( .933333 , 2.196973 ){\circle*{.04}}
\put( 1 , 2.179909 ){\circle*{.04}}
\put( 1.066667 , 2.159830 ){\circle*{.04}}
\put( 1.133333 , 2.136724 ){\circle*{.04}}
\put( 1.2 , 2.110614 ){\circle*{.04}}
\put( 1.266667 , 2.081575 ){\circle*{.04}}
\put( 1.333333 , 2.049750 ){\circle*{.04}}
\put( 1.4 , 2.015381 ){\circle*{.04}}
\put( 1.466667 , 1.978835 ){\circle*{.04}}
\put( 1.533333 , 1.940629 ){\circle*{.04}}
\put( 1.6 , 1.901456 ){\circle*{.04}}
\put( 1.666667 , 1.862202 ){\circle*{.04}}
\put( 1.733333 , 1.823941 ){\circle*{.04}}
\put( 1.8 , 1.787914 ){\circle*{.04}}
\put( 1.866667 , 1.755475 ){\circle*{.04}}
\put( 1.933333 , 1.728002 ){\circle*{.04}}
\put( 2 , 1.706788 ){\circle*{.04}}
\put( 2.066667 , 1.692911 ){\circle*{.04}}
\put( 2.133333 , 1.687118 ){\circle*{.04}}
\put( 2.2 , 1.689727 ){\circle*{.04}}
\put( 2.266667 , 1.700593 ){\circle*{.04}}
\put( 2.333333 , 1.719127 ){\circle*{.04}}
\put( 2.4 , 1.744361 ){\circle*{.04}}
\put( 2.466667 , 1.775071 ){\circle*{.04}}
\put( 2.533333 , 1.809896 ){\circle*{.04}}
\put( 2.6 , 1.84746 ){\circle*{.04}}
\put( 2.666667 , 1.886474 ){\circle*{.04}}
\put( 2.733333 , 1.925792 ){\circle*{.04}}
\put( 2.8 , 1.964458 ){\circle*{.04}}
\put( 2.866667 , 2.001706 ){\circle*{.04}}
\put( 2.933333 , 2.036954 ){\circle*{.04}}
\put( 3 , 2.069781 ){\circle*{.04}}
\put( 3.066667 , 2.099903 ){\circle*{.04}}
\put( 3.133333 , 2.127139 ){\circle*{.04}}
\put( 3.2 , 2.151393 ){\circle*{.04}}
\put( 3.266667 , 2.172625 ){\circle*{.04}}
\put( 3.333333 , 2.190833 ){\circle*{.04}}
\put( 3.4 , 2.206043 ){\circle*{.04}}
\put( 3.466667 , 2.218288 ){\circle*{.04}}
\put( 3.533333 , 2.227607 ){\circle*{.04}}
\put( 3.6 , 2.234036 ){\circle*{.04}}
\put( 3.666667 , 2.237601 ){\circle*{.04}}
\put( 3.733333 , 2.238319 ){\circle*{.04}}
\put( 3.8 , 2.236191 ){\circle*{.04}}
\put( 3.866667 , 2.231210 ){\circle*{.04}}
\put( 3.933333 , 2.223352 ){\circle*{.04}}
\put( 4 , 2.212588 ){\circle*{.04}}
\put( 4.066667 , 2.198878 ){\circle*{.04}}
\put( 4.133333 , 2.182187 ){\circle*{.04}}
\put( 4.2 , 2.162482 ){\circle*{.04}}
\put( 4.266667 , 2.13975 ){\circle*{.04}}
\put( 4.333333 , 2.11401 ){\circle*{.04}}
\put( 4.4 , 2.085327 ){\circle*{.04}}
\put( 4.466667 , 2.053837 ){\circle*{.04}}
\put( 4.533333 , 2.019766 ){\circle*{.04}}
\put( 4.6 , 1.983465 ){\circle*{.04}}
\put( 4.666667 , 1.94543 ){\circle*{.04}}
\put( 4.733333 , 1.906334 ){\circle*{.04}}
\put( 4.8 , 1.867035 ){\circle*{.04}}
\put( 4.866667 , 1.828587 ){\circle*{.04}}
\put( 4.933333 , 1.792211 ){\circle*{.04}}
\put( 5 , 1.759252 ){\circle*{.04}}
\put( 5.066667 , 1.73109 ){\circle*{.04}}
\put( 5.133333 , 1.709037 ){\circle*{.04}}
\put( 5.2 , 1.694203 ){\circle*{.04}}
\put( 5.266667 , 1.687382 ){\circle*{.04}}
\put( 5.333333 , 1.688948 ){\circle*{.04}}
\put( 5.4 , 1.698815 ){\circle*{.04}}
\put( 5.466667 , 1.716444 ){\circle*{.04}}
\put( 5.533333 , 1.740911 ){\circle*{.04}}
\put( 5.6 , 1.771015 ){\circle*{.04}}
\put( 5.666667 , 1.805405 ){\circle*{.04}}
\put( 5.733333 , 1.842703 ){\circle*{.04}}
\put( 5.8 , 1.881602 ){\circle*{.04}}
\put( 5.866667 , 1.920939 ){\circle*{.04}}
\put( 5.933333 , 1.95973 ){\circle*{.04}}
\put( 6 , 1.997189 ){\circle*{.04}}
\put( 6.066667 , 2.032711 ){\circle*{.04}}
\put( 6.133333 , 2.065856 ){\circle*{.04}}
\put( 6.2 , 2.096325 ){\circle*{.04}}
\put( 6.266667 , 2.123925 ){\circle*{.04}}
\put( 6.333333 , 2.148552 ){\circle*{.04}}
\put( 6.4 , 2.170159 ){\circle*{.04}}
\put( 6.466667 , 2.188741 ){\circle*{.04}}
\put( 6.533333 , 2.20432 ){\circle*{.04}}
\put( 6.6 , 2.21693 ){\circle*{.04}}
\put( 6.666667 , 2.22661 ){\circle*{.04}}
\put( 6.733333 , 2.233396 ){\circle*{.04}}
\put( 6.8 , 2.237314 ){\circle*{.04}}
\put( 6.866667 , 2.238384 ){\circle*{.04}}
\put( 6.933333 , 2.236609 ){\circle*{.04}}
\put( 7 , 2.231982 ){\circle*{.04}}
\put( 7.066667 , 2.224483 ){\circle*{.04}}
\put( 7.133333 , 2.21408 ){\circle*{.04}}
\put( 7.2 , 2.200738 ){\circle*{.04}}
\put( 7.266667 , 2.184418 ){\circle*{.04}}
\put( 7.333333 , 2.165087 ){\circle*{.04}}
\put( 7.4 , 2.14273 ){\circle*{.04}}
\put( 7.466667 , 2.11736 ){\circle*{.04}}
\put( 7.533333 , 2.089037 ){\circle*{.04}}
\put( 7.6 , 2.057884 ){\circle*{.04}}
\put( 7.666667 , 2.024117 ){\circle*{.04}}
\put( 7.733333 , 1.988068 ){\circle*{.04}}
\put( 7.8 , 1.950216 ){\circle*{.04}}
\put( 7.866667 , 1.911208 ){\circle*{.04}}
\put( 7.933333 , 1.87188 ){\circle*{.04}}
\put( 8 , 1.833264 ){\circle*{.04}}
\put( 8.066667 , 1.79656 ){\circle*{.04}}
\put( 8.133333 , 1.763103 ){\circle*{.04}}
\put( 8.2 , 1.734273 ){\circle*{.04}}
\put( 8.266667 , 1.711397 ){\circle*{.04}}
\put( 8.333333 , 1.695619 ){\circle*{.04}}
\put( 8.4 , 1.687775 ){\circle*{.04}}
\put( 8.466667 , 1.688297 ){\circle*{.04}}
\put( 8.533333 , 1.697156 ){\circle*{.04}}
\put( 8.6 , 1.713867 ){\circle*{.04}}
\put( 8.666667 , 1.737548 ){\circle*{.04}}
\put( 8.733333 , 1.767025 ){\circle*{.04}}
\put( 8.8 , 1.800959 ){\circle*{.04}}
\put( 8.866667 , 1.83797 ){\circle*{.04}}
\put( 8.933333 , 1.876737 ){\circle*{.04}}
\put( 9 , 1.916077 ){\circle*{.04}}
\put( 9.066667 , 1.954983 ){\circle*{.04}}
\put( 9.133333 , 1.992643 ){\circle*{.04}}
\put( 9.2 , 2.028432 ){\circle*{.04}}
\put( 9.266667 , 2.06189 ){\circle*{.04}}
\put( 9.333333 , 2.092703 ){\circle*{.04}}
\put( 9.4 , 2.120666 ){\circle*{.04}}
\put( 9.466667 , 2.145664 ){\circle*{.04}}
\put( 9.53333 , 2.167646 ){\circle*{.04}}
\put( 9.6 , 2.186602 ){\circle*{.04}}
\put( 9.66667 , 2.202552 ){\circle*{.04}}
\put( 9.73333 , 2.215528 ){\circle*{.04}}
\put( 9.8 , 2.225569 ){\circle*{.04}}
\put( 9.86667 , 2.232711 ){\circle*{.04}}
\put( 9.93333 , 2.236984 ){\circle*{.04}}
\put( 10 , 2.238406 ){\circle*{.04}}
\put( 10.06667 , 2.236984 ){\circle*{.04}}
\put( 10.13333 , 2.232711 ){\circle*{.04}}
\put( 10.2 , 2.225569 ){\circle*{.04}}
\put( 10.26667 , 2.215528 ){\circle*{.04}}
\put( 10.33333 , 2.202552 ){\circle*{.04}}
\put( 10.4 , 2.186602 ){\circle*{.04}}
\put( 10.46667 , 2.167646 ){\circle*{.04}}
\put( 10.53333 , 2.145664 ){\circle*{.04}}
\put( 10.6 , 2.120666 ){\circle*{.04}}
\put( 10.66667 , 2.092703 ){\circle*{.04}}
\put( 10.73333 , 2.06189 ){\circle*{.04}}
\put( 10.8 , 2.028432 ){\circle*{.04}}
\put( 10.86667 , 1.992643 ){\circle*{.04}}
\put( 10.93333 , 1.954983 ){\circle*{.04}}
\put( 11 , 1.916077 ){\circle*{.04}}
\put( 11.06667 , 1.876737 ){\circle*{.04}}
\put( 11.13333 , 1.83797 ){\circle*{.04}}
\put( 11.2 , 1.800959 ){\circle*{.04}}
\put( 11.26667 , 1.767025 ){\circle*{.04}}
\put( 11.33333 , 1.737548 ){\circle*{.04}}
\put( 11.4 , 1.713867 ){\circle*{.04}}
\put( 11.46667 , 1.697156 ){\circle*{.04}}
\put( 11.53333 , 1.688297 ){\circle*{.04}}
\put( 11.6 , 1.687775 ){\circle*{.04}}
\put( 11.66667 , 1.695619 ){\circle*{.04}}
\put( 11.73333 , 1.711397 ){\circle*{.04}}
\put( 11.8 , 1.734273 ){\circle*{.04}}
\put( 11.86667 , 1.763103 ){\circle*{.04}}
\put( 11.93333 , 1.79656 ){\circle*{.04}}
\put( 12 , 1.833264 ){\circle*{.04}}
\put( 12.06667 , 1.87188 ){\circle*{.04}}
\put( 12.13333 , 1.911208 ){\circle*{.04}}
\put( 12.2 , 1.950216 ){\circle*{.04}}
\put( 12.26667 , 1.988068 ){\circle*{.04}}
\put( 12.33333 , 2.024117 ){\circle*{.04}}
\put( 12.4 , 2.057884 ){\circle*{.04}}
\put( 12.46667 , 2.089037 ){\circle*{.04}}
\put( 12.53333 , 2.11736 ){\circle*{.04}}
\put( 12.6 , 2.14273 ){\circle*{.04}}
\put( 12.66667 , 2.165087 ){\circle*{.04}}
\put( 12.73333 , 2.184418 ){\circle*{.04}}
\put( 12.8 , 2.200738 ){\circle*{.04}}
\put( 12.86667 , 2.21408 ){\circle*{.04}}
\put( 12.93333 , 2.224483 ){\circle*{.04}}
\put( 13 , 2.231982 ){\circle*{.04}}
\put( 13.06667 , 2.236609 ){\circle*{.04}}
\put( 13.13333 , 2.238384 ){\circle*{.04}}
\put( 13.2 , 2.237314 ){\circle*{.04}}
\put( 13.26667 , 2.233396 ){\circle*{.04}}
\put( 13.33333 , 2.22661 ){\circle*{.04}}
\put( 13.4 , 2.21693 ){\circle*{.04}}
\put( 13.46667 , 2.20432 ){\circle*{.04}}
\put( 13.53333 , 2.188741 ){\circle*{.04}}
\put( 13.6 , 2.170159 ){\circle*{.04}}
\put( 13.66667 , 2.148552 ){\circle*{.04}}
\put( 13.73333 , 2.123925 ){\circle*{.04}}
\put( 13.8 , 2.096325 ){\circle*{.04}}
\put( 13.86667 , 2.065856 ){\circle*{.04}}
\put( 13.93333 , 2.032711 ){\circle*{.04}}
\put( 14 , 1.997189 ){\circle*{.04}}
\put( 14.06667 , 1.95973 ){\circle*{.04}}
\put( 14.13333 , 1.920939 ){\circle*{.04}}
\put( 14.2 , 1.881602 ){\circle*{.04}}
\put( 14.26667 , 1.842703 ){\circle*{.04}}
\put( 14.33333 , 1.805405 ){\circle*{.04}}
\put( 14.4 , 1.771015 ){\circle*{.04}}
\put( 14.46667 , 1.740911 ){\circle*{.04}}
\put( 14.53333 , 1.716444 ){\circle*{.04}}
\put( 14.6 , 1.698815 ){\circle*{.04}}
\put( 14.66667 , 1.688948 ){\circle*{.04}}
\put( 14.73333 , 1.687382 ){\circle*{.04}}
\put( 14.8 , 1.694203 ){\circle*{.04}}
\put( 14.86667 , 1.709037 ){\circle*{.04}}
\put( 14.93333 , 1.73109 ){\circle*{.04}}
\put( 15 , 1.759252 ){\circle*{.04}}
\put( 15.06667 , 1.792211 ){\circle*{.04}}
\put( 15.13333 , 1.828587 ){\circle*{.04}}
\put( 15.2 , 1.867035 ){\circle*{.04}}
\put( 15.26667 , 1.906334 ){\circle*{.04}}
\put( 15.33333 , 1.94543 ){\circle*{.04}}
\put( 15.4 , 1.983465 ){\circle*{.04}}
\put( 15.46667 , 2.019766 ){\circle*{.04}}
\put( 15.53333 , 2.053837 ){\circle*{.04}}
\put( 15.6 , 2.085327 ){\circle*{.04}}
\put( 15.66667 , 2.11401 ){\circle*{.04}}
\put( 15.73333 , 2.13975 ){\circle*{.04}}
\put( 15.8 , 2.162482 ){\circle*{.04}}
\put( 15.86667 , 2.182187 ){\circle*{.04}}
\put( 15.93333 , 2.198878 ){\circle*{.04}}
\put( 16 , 2.212588 ){\circle*{.04}}
\put( 16.06667 , 2.223352 ){\circle*{.04}}
\put( 16.13333 , 2.231210 ){\circle*{.04}}
\put( 16.2 , 2.236191 ){\circle*{.04}}
\put( 16.26667 , 2.238319 ){\circle*{.04}}
\put( 16.33333 , 2.237601 ){\circle*{.04}}
\put( 16.4 , 2.234036 ){\circle*{.04}}
\put( 16.46667 , 2.227607 ){\circle*{.04}}
\put( 16.53333 , 2.218288 ){\circle*{.04}}
\put( 16.6 , 2.206043 ){\circle*{.04}}
\put( 16.66667 , 2.190833 ){\circle*{.04}}
\put( 16.73333 , 2.172625 ){\circle*{.04}}
\put( 16.8 , 2.151393 ){\circle*{.04}}
\put( 16.86667 , 2.127139 ){\circle*{.04}}
\put( 16.93333 , 2.099903 ){\circle*{.04}}
\put( 17 , 2.069781 ){\circle*{.04}}
\put( 17.06667 , 2.036954 ){\circle*{.04}}
\put( 17.13333 , 2.001706 ){\circle*{.04}}
\put( 17.2 , 1.964458 ){\circle*{.04}}
\put( 17.26667 , 1.925792 ){\circle*{.04}}
\put( 17.33333 , 1.886474 ){\circle*{.04}}
\put( 17.4 , 1.84746 ){\circle*{.04}}
\put( 17.46667 , 1.809896 ){\circle*{.04}}
\put( 17.53333 , 1.775071 ){\circle*{.04}}
\put( 17.6 , 1.744361 ){\circle*{.04}}
\put( 17.66667 , 1.719127 ){\circle*{.04}}
\put( 17.73333 , 1.700593 ){\circle*{.04}}
\put( 17.8 , 1.689727 ){\circle*{.04}}
\put( 17.86667 , 1.687118 ){\circle*{.04}}
\put( 17.93333 , 1.692911 ){\circle*{.04}}
\put( 18 , 1.706788 ){\circle*{.04}}
\put( 18.06667 , 1.728002 ){\circle*{.04}}
\put( 18.13333 , 1.755475 ){\circle*{.04}}
\put( 18.2 , 1.787914 ){\circle*{.04}}
\put( 18.26667 , 1.823941 ){\circle*{.04}}
\put( 18.33333 , 1.862202 ){\circle*{.04}}
\put( 18.4 , 1.901456 ){\circle*{.04}}
\put( 18.46667 , 1.940629 ){\circle*{.04}}
\put( 18.53333 , 1.978835 ){\circle*{.04}}
\put( 18.6 , 2.015381 ){\circle*{.04}}
\put( 18.66667 , 2.049750 ){\circle*{.04}}
\put( 18.73333 , 2.081575 ){\circle*{.04}}
\put( 18.8 , 2.110614 ){\circle*{.04}}
\put( 18.86667 , 2.136724 ){\circle*{.04}}
\put( 18.93333 , 2.159830 ){\circle*{.04}}
\put( 19 , 2.179909 ){\circle*{.04}}
\put( 19.06667 , 2.196973 ){\circle*{.04}}
\put( 19.13333 , 2.211050 ){\circle*{.04}}
\put( 19.2 , 2.222177 ){\circle*{.04}}
\put( 19.26667 , 2.230393 ){\circle*{.04}}
\put( 19.33333 , 2.235729 ){\circle*{.04}}
\put( 19.4 , 2.238209 ){\circle*{.04}}
\put( 19.46667 , 2.237845 ){\circle*{.04}}
\put( 19.53333 , 2.234633 ){\circle*{.04}}
\put( 19.6 , 2.22856 ){\circle*{.04}}
\put( 19.66667 , 2.2196 ){\circle*{.04}}
\put( 19.73333 , 2.207720 ){\circle*{.04}}
\put( 19.8 , 2.192880 ){\circle*{.04}}
\put( 19.86667 , 2.175044 ){\circle*{.04}}
\put( 19.93333 , 2.154188 ){\circle*{.04}}
\put( 20 , 2.130307 ){\circle*{.04}}
apl>1 tangr -.5,300,6,20
%Label the curve
\put(2.133333,.33732808 ){n\#-0.5}
%Draw the data points
\put( 0 , 2.397692 ){\circle*{.04}}
\put( .06666667 , 2.431970 ){\circle*{.04}}
\put( .13333333 , 2.460252 ){\circle*{.04}}
\put( .2 , 2.483307 ){\circle*{.04}}
\put( .26666667 , 2.501745 ){\circle*{.04}}
\put( .33333333 , 2.516044 ){\circle*{.04}}
\put( .4 , 2.526568 ){\circle*{.04}}
\put( .46666667 , 2.533577 ){\circle*{.04}}
\put( .533333 , 2.537245 ){\circle*{.04}}
\put( .6 , 2.537660 ){\circle*{.04}}
\put( .666667 , 2.534832 ){\circle*{.04}}
\put( .733333 , 2.528694 ){\circle*{.04}}
\put( .8 , 2.519094 ){\circle*{.04}}
\put( .866667 , 2.505794 ){\circle*{.04}}
\put( .933333 , 2.488458 ){\circle*{.04}}
\put( 1 , 2.466641 ){\circle*{.04}}
\put( 1.066667 , 2.439767 ){\circle*{.04}}
\put( 1.133333 , 2.40711 ){\circle*{.04}}
\put( 1.2 , 2.367772 ){\circle*{.04}}
\put( 1.266667 , 2.320647 ){\circle*{.04}}
\put( 1.333333 , 2.264408 ){\circle*{.04}}
\put( 1.4 , 2.197488 ){\circle*{.04}}
\put( 1.466667 , 2.118097 ){\circle*{.04}}
\put( 1.533333 , 2.02431 ){\circle*{.04}}
\put( 1.6 , 1.914266 ){\circle*{.04}}
\put( 1.666667 , 1.786575 ){\circle*{.04}}
\put( 1.733333 , 1.641065 ){\circle*{.04}}
\put( 1.8 , 1.479949 ){\circle*{.04}}
\put( 1.866667 , 1.309398 ){\circle*{.04}}
\put( 1.933333 , 1.141077 ){\circle*{.04}}
\put( 2 , .992554 ){\circle*{.04}}
\put( 2.066667 , .884988 ){\circle*{.04}}
\put( 2.133333 , .837328 ){\circle*{.04}}
\put( 2.2 , .859 ){\circle*{.04}}
\put( 2.266667 , .945638 ){\circle*{.04}}
\put( 2.333333 , 1.081108 ){\circle*{.04}}
\put( 2.4 , 1.244248 ){\circle*{.04}}
\put( 2.466667 , 1.415658 ){\circle*{.04}}
\put( 2.533333 , 1.581361 ){\circle*{.04}}
\put( 2.6 , 1.733248 ){\circle*{.04}}
\put( 2.666667 , 1.867799 ){\circle*{.04}}
\put( 2.733333 , 1.98444 ){\circle*{.04}}
\put( 2.8 , 2.084209 ){\circle*{.04}}
\put( 2.866667 , 2.168848 ){\circle*{.04}}
\put( 2.933333 , 2.240293 ){\circle*{.04}}
\put( 3 , 2.300400 ){\circle*{.04}}
\put( 3.066667 , 2.350823 ){\circle*{.04}}
\put( 3.133333 , 2.392983 ){\circle*{.04}}
\put( 3.2 , 2.428066 ){\circle*{.04}}
\put( 3.266667 , 2.457046 ){\circle*{.04}}
\put( 3.333333 , 2.480712 ){\circle*{.04}}
\put( 3.4 , 2.499694 ){\circle*{.04}}
\put( 3.466667 , 2.514484 ){\circle*{.04}}
\put( 3.533333 , 2.525459 ){\circle*{.04}}
\put( 3.6 , 2.532893 ){\circle*{.04}}
\put( 3.666667 , 2.536968 ){\circle*{.04}}
\put( 3.733333 , 2.537784 ){\circle*{.04}}
\put( 3.8 , 2.53536 ){\circle*{.04}}
\put( 3.866667 , 2.529638 ){\circle*{.04}}
\put( 3.933333 , 2.520478 ){\circle*{.04}}
\put( 4 , 2.507653 ){\circle*{.04}}
\put( 4.066667 , 2.490839 ){\circle*{.04}}
\put( 4.133333 , 2.469606 ){\circle*{.04}}
\put( 4.2 , 2.443394 ){\circle*{.04}}
\put( 4.266667 , 2.411499 ){\circle*{.04}}
\put( 4.333333 , 2.373044 ){\circle*{.04}}
\put( 4.4 , 2.326951 ){\circle*{.04}}
\put( 4.466667 , 2.271921 ){\circle*{.04}}
\put( 4.533333 , 2.206417 ){\circle*{.04}}
\put( 4.6 , 2.128674 ){\circle*{.04}}
\put( 4.666667 , 2.036777 ){\circle*{.04}}
\put( 4.733333 , 1.928836 ){\circle*{.04}}
\put( 4.8 , 1.803375 ){\circle*{.04}}
\put( 4.866667 , 1.660015 ){\circle*{.04}}
\put( 4.933333 , 1.500594 ){\circle*{.04}}
\put( 5 , 1.330702 ){\circle*{.04}}
\put( 5.066667 , 1.161263 ){\circle*{.04}}
\put( 5.133333 , 1.00917 ){\circle*{.04}}
\put( 5.2 , .895386 ){\circle*{.04}}
\put( 5.266667 , .839536 ){\circle*{.04}}
\put( 5.333333 , .852568 ){\circle*{.04}}
\put( 5.4 , .931847 ){\circle*{.04}}
\put( 5.466667 , 1.062387 ){\circle*{.04}}
\put( 5.533333 , 1.223238 ){\circle*{.04}}
\put( 5.6 , 1.394507 ){\circle*{.04}}
\put( 5.666667 , 1.561468 ){\circle*{.04}}
\put( 5.733333 , 1.715335 ){\circle*{.04}}
\put( 5.8 , 1.852109 ){\circle*{.04}}
\put( 5.866667 , 1.970936 ){\circle*{.04}}
\put( 5.933333 , 2.072708 ){\circle*{.04}}
\put( 6 , 2.159117 ){\circle*{.04}}
\put( 6.066667 , 2.232093 ){\circle*{.04}}
\put( 6.133333 , 2.29351 ){\circle*{.04}}
\put( 6.2 , 2.345051 ){\circle*{.04}}
\put( 6.266667 , 2.388166 ){\circle*{.04}}
\put( 6.333333 , 2.424069 ){\circle*{.04}}
\put( 6.4 , 2.453759 ){\circle*{.04}}
\put( 6.466667 , 2.478046 ){\circle*{.04}}
\put( 6.533333 , 2.497579 ){\circle*{.04}}
\put( 6.6 , 2.512866 ){\circle*{.04}}
\put( 6.666667 , 2.524296 ){\circle*{.04}}
\put( 6.733333 , 2.532157 ){\circle*{.04}}
\put( 6.8 , 2.536641 ){\circle*{.04}}
\put( 6.866667 , 2.537858 ){\circle*{.04}}
\put( 6.933333 , 2.535837 ){\circle*{.04}}
\put( 7 , 2.53053 ){\circle*{.04}}
\put( 7.066667 , 2.521806 ){\circle*{.04}}
\put( 7.133333 , 2.50945 ){\circle*{.04}}
\put( 7.2 , 2.493152 ){\circle*{.04}}
\put( 7.266667 , 2.472494 ){\circle*{.04}}
\put( 7.333333 , 2.446934 ){\circle*{.04}}
\put( 7.4 , 2.415787 ){\circle*{.04}}
\put( 7.466667 , 2.378198 ){\circle*{.04}}
\put( 7.533333 , 2.333118 ){\circle*{.04}}
\put( 7.6 , 2.279274 ){\circle*{.04}}
\put( 7.666667 , 2.215159 ){\circle*{.04}}
\put( 7.733333 , 2.139034 ){\circle*{.04}}
\put( 7.8 , 2.048996 ){\circle*{.04}}
\put( 7.866667 , 1.943137 ){\circle*{.04}}
\put( 7.933333 , 1.819898 ){\circle*{.04}}
\put( 8 , 1.678713 ){\circle*{.04}}
\put( 8.066667 , 1.521072 ){\circle*{.04}}
\put( 8.133333 , 1.352005 ){\circle*{.04}}
\put( 8.2 , 1.18171 ){\circle*{.04}}
\put( 8.266667 , 1.026376 ){\circle*{.04}}
\put( 8.333333 , .906685 ){\circle*{.04}}
\put( 8.4 , .84282 ){\circle*{.04}}
\put( 8.466667 , .847168 ){\circle*{.04}}
\put( 8.533333 , .91885 ){\circle*{.04}}
\put( 8.6 , 1.044129 ){\circle*{.04}}
\put( 8.666667 , 1.20238 ){\circle*{.04}}
\put( 8.733333 , 1.373281 ){\circle*{.04}}
\put( 8.8 , 1.541367 ){\circle*{.04}}
\put( 8.866667 , 1.697155 ){\circle*{.04}}
\put( 8.933333 , 1.836143 ){\circle*{.04}}
\put( 9 , 1.957169 ){\circle*{.04}}
\put( 9.066667 , 2.060972 ){\circle*{.04}}
\put( 9.133333 , 2.14918 ){\circle*{.04}}
\put( 9.2 , 2.223716 ){\circle*{.04}}
\put( 9.266667 , 2.286469 ){\circle*{.04}}
\put( 9.333333 , 2.33915 ){\circle*{.04}}
\put( 9.4 , 2.383238 ){\circle*{.04}}
\put( 9.466667 , 2.419976 ){\circle*{.04}}
\put( 9.53333 , 2.450388 ){\circle*{.04}}
\put( 9.6 , 2.475307 ){\circle*{.04}}
\put( 9.66667 , 2.495398 ){\circle*{.04}}
\put( 9.73333 , 2.511188 ){\circle*{.04}}
\put( 9.8 , 2.523079 ){\circle*{.04}}
\put( 9.86667 , 2.531370 ){\circle*{.04}}
\put( 9.93333 , 2.536264 ){\circle*{.04}}
\put( 10 , 2.537883 ){\circle*{.04}}
\put( 10.06667 , 2.536264 ){\circle*{.04}}
\put( 10.13333 , 2.531370 ){\circle*{.04}}
\put( 10.2 , 2.523079 ){\circle*{.04}}
\put( 10.26667 , 2.511188 ){\circle*{.04}}
\put( 10.33333 , 2.495398 ){\circle*{.04}}
\put( 10.4 , 2.475307 ){\circle*{.04}}
\put( 10.46667 , 2.450388 ){\circle*{.04}}
\put( 10.53333 , 2.419976 ){\circle*{.04}}
\put( 10.6 , 2.383238 ){\circle*{.04}}
\put( 10.66667 , 2.33915 ){\circle*{.04}}
\put( 10.73333 , 2.286469 ){\circle*{.04}}
\put( 10.8 , 2.223716 ){\circle*{.04}}
\put( 10.86667 , 2.14918 ){\circle*{.04}}
\put( 10.93333 , 2.060972 ){\circle*{.04}}
\put( 11 , 1.957169 ){\circle*{.04}}
\put( 11.06667 , 1.836143 ){\circle*{.04}}
\put( 11.13333 , 1.697155 ){\circle*{.04}}
\put( 11.2 , 1.541367 ){\circle*{.04}}
\put( 11.26667 , 1.373281 ){\circle*{.04}}
\put( 11.33333 , 1.20238 ){\circle*{.04}}
\put( 11.4 , 1.044129 ){\circle*{.04}}
\put( 11.46667 , .91885 ){\circle*{.04}}
\put( 11.53333 , .847168 ){\circle*{.04}}
\put( 11.6 , .84282 ){\circle*{.04}}
\put( 11.66667 , .906685 ){\circle*{.04}}
\put( 11.73333 , 1.026376 ){\circle*{.04}}
\put( 11.8 , 1.18171 ){\circle*{.04}}
\put( 11.86667 , 1.352005 ){\circle*{.04}}
\put( 11.93333 , 1.521072 ){\circle*{.04}}
\put( 12 , 1.678713 ){\circle*{.04}}
\put( 12.06667 , 1.819898 ){\circle*{.04}}
\put( 12.13333 , 1.943137 ){\circle*{.04}}
\put( 12.2 , 2.048996 ){\circle*{.04}}
\put( 12.26667 , 2.139034 ){\circle*{.04}}
\put( 12.33333 , 2.215159 ){\circle*{.04}}
\put( 12.4 , 2.279274 ){\circle*{.04}}
\put( 12.46667 , 2.333118 ){\circle*{.04}}
\put( 12.53333 , 2.378198 ){\circle*{.04}}
\put( 12.6 , 2.415787 ){\circle*{.04}}
\put( 12.66667 , 2.446934 ){\circle*{.04}}
\put( 12.73333 , 2.472494 ){\circle*{.04}}
\put( 12.8 , 2.493152 ){\circle*{.04}}
\put( 12.86667 , 2.50945 ){\circle*{.04}}
\put( 12.93333 , 2.521806 ){\circle*{.04}}
\put( 13 , 2.53053 ){\circle*{.04}}
\put( 13.06667 , 2.535837 ){\circle*{.04}}
\put( 13.13333 , 2.537858 ){\circle*{.04}}
\put( 13.2 , 2.536641 ){\circle*{.04}}
\put( 13.26667 , 2.532157 ){\circle*{.04}}
\put( 13.33333 , 2.524296 ){\circle*{.04}}
\put( 13.4 , 2.512866 ){\circle*{.04}}
\put( 13.46667 , 2.497579 ){\circle*{.04}}
\put( 13.53333 , 2.478046 ){\circle*{.04}}
\put( 13.6 , 2.453759 ){\circle*{.04}}
\put( 13.66667 , 2.424069 ){\circle*{.04}}
\put( 13.73333 , 2.388166 ){\circle*{.04}}
\put( 13.8 , 2.345051 ){\circle*{.04}}
\put( 13.86667 , 2.29351 ){\circle*{.04}}
\put( 13.93333 , 2.232093 ){\circle*{.04}}
\put( 14 , 2.159117 ){\circle*{.04}}
\put( 14.06667 , 2.072708 ){\circle*{.04}}
\put( 14.13333 , 1.970936 ){\circle*{.04}}
\put( 14.2 , 1.852109 ){\circle*{.04}}
\put( 14.26667 , 1.715335 ){\circle*{.04}}
\put( 14.33333 , 1.561468 ){\circle*{.04}}
\put( 14.4 , 1.394507 ){\circle*{.04}}
\put( 14.46667 , 1.223238 ){\circle*{.04}}
\put( 14.53333 , 1.062387 ){\circle*{.04}}
\put( 14.6 , .931847 ){\circle*{.04}}
\put( 14.66667 , .852568 ){\circle*{.04}}
\put( 14.73333 , .839536 ){\circle*{.04}}
\put( 14.8 , .895386 ){\circle*{.04}}
\put( 14.86667 , 1.00917 ){\circle*{.04}}
\put( 14.93333 , 1.161263 ){\circle*{.04}}
\put( 15 , 1.330702 ){\circle*{.04}}
\put( 15.06667 , 1.500594 ){\circle*{.04}}
\put( 15.13333 , 1.660015 ){\circle*{.04}}
\put( 15.2 , 1.803375 ){\circle*{.04}}
\put( 15.26667 , 1.928836 ){\circle*{.04}}
\put( 15.33333 , 2.036777 ){\circle*{.04}}
\put( 15.4 , 2.128674 ){\circle*{.04}}
\put( 15.46667 , 2.206417 ){\circle*{.04}}
\put( 15.53333 , 2.271921 ){\circle*{.04}}
\put( 15.6 , 2.326951 ){\circle*{.04}}
\put( 15.66667 , 2.373044 ){\circle*{.04}}
\put( 15.73333 , 2.411499 ){\circle*{.04}}
\put( 15.8 , 2.443394 ){\circle*{.04}}
\put( 15.86667 , 2.469606 ){\circle*{.04}}
\put( 15.93333 , 2.490839 ){\circle*{.04}}
\put( 16 , 2.507653 ){\circle*{.04}}
\put( 16.06667 , 2.520478 ){\circle*{.04}}
\put( 16.13333 , 2.529638 ){\circle*{.04}}
\put( 16.2 , 2.53536 ){\circle*{.04}}
\put( 16.26667 , 2.537784 ){\circle*{.04}}
\put( 16.33333 , 2.536968 ){\circle*{.04}}
\put( 16.4 , 2.532893 ){\circle*{.04}}
\put( 16.46667 , 2.525459 ){\circle*{.04}}
\put( 16.53333 , 2.514484 ){\circle*{.04}}
\put( 16.6 , 2.499694 ){\circle*{.04}}
\put( 16.66667 , 2.480712 ){\circle*{.04}}
\put( 16.73333 , 2.457046 ){\circle*{.04}}
\put( 16.8 , 2.428066 ){\circle*{.04}}
\put( 16.86667 , 2.392983 ){\circle*{.04}}
\put( 16.93333 , 2.350823 ){\circle*{.04}}
\put( 17 , 2.300400 ){\circle*{.04}}
\put( 17.06667 , 2.240293 ){\circle*{.04}}
\put( 17.13333 , 2.168848 ){\circle*{.04}}
\put( 17.2 , 2.084209 ){\circle*{.04}}
\put( 17.26667 , 1.98444 ){\circle*{.04}}
\put( 17.33333 , 1.867799 ){\circle*{.04}}
\put( 17.4 , 1.733248 ){\circle*{.04}}
\put( 17.46667 , 1.581361 ){\circle*{.04}}
\put( 17.53333 , 1.415658 ){\circle*{.04}}
\put( 17.6 , 1.244248 ){\circle*{.04}}
\put( 17.66667 , 1.081108 ){\circle*{.04}}
\put( 17.73333 , .945638 ){\circle*{.04}}
\put( 17.8 , .859 ){\circle*{.04}}
\put( 17.86667 , .837328 ){\circle*{.04}}
\put( 17.93333 , .884988 ){\circle*{.04}}
\put( 18 , .992554 ){\circle*{.04}}
\put( 18.06667 , 1.141077 ){\circle*{.04}}
\put( 18.13333 , 1.309398 ){\circle*{.04}}
\put( 18.2 , 1.479949 ){\circle*{.04}}
\put( 18.26667 , 1.641065 ){\circle*{.04}}
\put( 18.33333 , 1.786575 ){\circle*{.04}}
\put( 18.4 , 1.914266 ){\circle*{.04}}
\put( 18.46667 , 2.02431 ){\circle*{.04}}
\put( 18.53333 , 2.118097 ){\circle*{.04}}
\put( 18.6 , 2.197488 ){\circle*{.04}}
\put( 18.66667 , 2.264408 ){\circle*{.04}}
\put( 18.73333 , 2.320647 ){\circle*{.04}}
\put( 18.8 , 2.367772 ){\circle*{.04}}
\put( 18.86667 , 2.40711 ){\circle*{.04}}
\put( 18.93333 , 2.439767 ){\circle*{.04}}
\put( 19 , 2.466641 ){\circle*{.04}}
\put( 19.06667 , 2.488458 ){\circle*{.04}}
\put( 19.13333 , 2.505794 ){\circle*{.04}}
\put( 19.2 , 2.519094 ){\circle*{.04}}
\put( 19.26667 , 2.528694 ){\circle*{.04}}
\put( 19.33333 , 2.534832 ){\circle*{.04}}
\put( 19.4 , 2.537660 ){\circle*{.04}}
\put( 19.46667 , 2.537245 ){\circle*{.04}}
\put( 19.53333 , 2.533577 ){\circle*{.04}}
\put( 19.6 , 2.526568 ){\circle*{.04}}
\put( 19.66667 , 2.516044 ){\circle*{.04}}
\put( 19.73333 , 2.501745 ){\circle*{.04}}
\put( 19.8 , 2.483307 ){\circle*{.04}}
\put( 19.86667 , 2.460252 ){\circle*{.04}}
\put( 19.93333 , 2.431970 ){\circle*{.04}}
\put( 20 , 2.397692 ){\circle*{.04}}
apl>)off
