apl>" <-APL2-------------------- sam290.txt ---------------------------->
apl>Lex 'graph'
1
apl>Ga graph b;c;d;h;k
[1] "Call format:
[2] " Trig. function: 1=sin, 2=cos, 3=tangent, 5=sinh, 6=cosh, 7=tanh.
[3] " | d = Imaginary coefficient.
[4] " | | e = Number of points to generate.
[5] " | | |
[6] " V V V
[7] " 1 graph 1,100
[8] (c d)#b
[9] k#(O2)X(-1+Id+1)%d
[10] h#k,',',[1.5]4+9OaO(cX0j1)+(O-1)+k
[11] (`Z'\put('),h,`Z'){\circle*{.04}}'
[12] G
apl>5 graph 1,100
\put( 0 , -2.23981 ){\circle*{.04}}
\put( .06283185 , -1.858347 ){\circle*{.04}}
\put( .1256637 , -1.500018 ){\circle*{.04}}
\put( .18849556 , -1.16341 ){\circle*{.04}}
\put( .25132741 , -0.847193 ){\circle*{.04}}
\put( .31415927 , -0.550118 ){\circle*{.04}}
\put( .37699112 , -0.27101214 ){\circle*{.04}}
\put( .43982297 , -0.00877316 ){\circle*{.04}}
\put( .502655 , .23763461 ){\circle*{.04}}
\put( .565487 , .46918428 ){\circle*{.04}}
\put( .628319 , .68679 ){\circle*{.04}}
\put( .69115 , .891312 ){\circle*{.04}}
\put( .753982 , 1.083557 ){\circle*{.04}}
\put( .816814 , 1.264284 ){\circle*{.04}}
\put( .879646 , 1.434208 ){\circle*{.04}}
\put( .942478 , 1.593999 ){\circle*{.04}}
\put( 1.005310 , 1.744289 ){\circle*{.04}}
\put( 1.068142 , 1.88567 ){\circle*{.04}}
\put( 1.130973 , 2.018702 ){\circle*{.04}}
\put( 1.193805 , 2.143909 ){\circle*{.04}}
\put( 1.256637 , 2.261786 ){\circle*{.04}}
\put( 1.319469 , 2.372799 ){\circle*{.04}}
\put( 1.3823 , 2.477386 ){\circle*{.04}}
\put( 1.445133 , 2.575960 ){\circle*{.04}}
\put( 1.507964 , 2.668910 ){\circle*{.04}}
\put( 1.570796 , 2.756603 ){\circle*{.04}}
\put( 1.633628 , 2.839386 ){\circle*{.04}}
\put( 1.69646 , 2.917585 ){\circle*{.04}}
\put( 1.759292 , 2.99151 ){\circle*{.04}}
\put( 1.822124 , 3.061453 ){\circle*{.04}}
\put( 1.884956 , 3.127688 ){\circle*{.04}}
\put( 1.947787 , 3.190479 ){\circle*{.04}}
\put( 2.010619 , 3.250073 ){\circle*{.04}}
\put( 2.073451 , 3.306706 ){\circle*{.04}}
\put( 2.136283 , 3.3606 ){\circle*{.04}}
\put( 2.199115 , 3.411970 ){\circle*{.04}}
\put( 2.261947 , 3.461017 ){\circle*{.04}}
\put( 2.324779 , 3.507936 ){\circle*{.04}}
\put( 2.38761 , 3.552911 ){\circle*{.04}}
\put( 2.450442 , 3.596121 ){\circle*{.04}}
\put( 2.513274 , 3.637736 ){\circle*{.04}}
\put( 2.576106 , 3.67792 ){\circle*{.04}}
\put( 2.638938 , 3.716833 ){\circle*{.04}}
\put( 2.701770 , 3.754627 ){\circle*{.04}}
\put( 2.764602 , 3.791452 ){\circle*{.04}}
\put( 2.827433 , 3.827453 ){\circle*{.04}}
\put( 2.890265 , 3.862773 ){\circle*{.04}}
\put( 2.953097 , 3.897551 ){\circle*{.04}}
\put( 3.015929 , 3.931925 ){\circle*{.04}}
\put( 3.07876 , 3.966029 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 4.03397 ){\circle*{.04}}
\put( 3.267256 , 4.068075 ){\circle*{.04}}
\put( 3.330088 , 4.102449 ){\circle*{.04}}
\put( 3.39292 , 4.137227 ){\circle*{.04}}
\put( 3.455752 , 4.172547 ){\circle*{.04}}
\put( 3.518584 , 4.208548 ){\circle*{.04}}
\put( 3.581416 , 4.245373 ){\circle*{.04}}
\put( 3.644247 , 4.283167 ){\circle*{.04}}
\put( 3.707079 , 4.322080 ){\circle*{.04}}
\put( 3.769911 , 4.362264 ){\circle*{.04}}
\put( 3.832743 , 4.403879 ){\circle*{.04}}
\put( 3.895575 , 4.447089 ){\circle*{.04}}
\put( 3.958407 , 4.492064 ){\circle*{.04}}
\put( 4.021239 , 4.538983 ){\circle*{.04}}
\put( 4.08407 , 4.58803 ){\circle*{.04}}
\put( 4.146902 , 4.639400 ){\circle*{.04}}
\put( 4.209734 , 4.693294 ){\circle*{.04}}
\put( 4.272566 , 4.749927 ){\circle*{.04}}
\put( 4.335398 , 4.80952 ){\circle*{.04}}
\put( 4.398230 , 4.872312 ){\circle*{.04}}
\put( 4.461062 , 4.938547 ){\circle*{.04}}
\put( 4.523893 , 5.008490 ){\circle*{.04}}
\put( 4.586725 , 5.082415 ){\circle*{.04}}
\put( 4.649557 , 5.160614 ){\circle*{.04}}
\put( 4.712389 , 5.243397 ){\circle*{.04}}
\put( 4.77522 , 5.33109 ){\circle*{.04}}
\put( 4.838053 , 5.42404 ){\circle*{.04}}
\put( 4.900885 , 5.522614 ){\circle*{.04}}
\put( 4.963716 , 5.6272 ){\circle*{.04}}
\put( 5.026548 , 5.738214 ){\circle*{.04}}
\put( 5.08938 , 5.85609 ){\circle*{.04}}
\put( 5.152212 , 5.981298 ){\circle*{.04}}
\put( 5.215044 , 6.114330 ){\circle*{.04}}
\put( 5.277876 , 6.255711 ){\circle*{.04}}
\put( 5.340708 , 6.406 ){\circle*{.04}}
\put( 5.403539 , 6.565792 ){\circle*{.04}}
\put( 5.466371 , 6.735716 ){\circle*{.04}}
\put( 5.529203 , 6.916443 ){\circle*{.04}}
\put( 5.592035 , 7.108688 ){\circle*{.04}}
\put( 5.654867 , 7.313210 ){\circle*{.04}}
\put( 5.717699 , 7.530816 ){\circle*{.04}}
\put( 5.78053 , 7.762365 ){\circle*{.04}}
\put( 5.843362 , 8.008773 ){\circle*{.04}}
\put( 5.906194 , 8.271012 ){\circle*{.04}}
\put( 5.969026 , 8.550118 ){\circle*{.04}}
\put( 6.031858 , 8.847193 ){\circle*{.04}}
\put( 6.094690 , 9.16341 ){\circle*{.04}}
\put( 6.157522 , 9.50002 ){\circle*{.04}}
\put( 6.220353 , 9.85835 ){\circle*{.04}}
\put( 6.283185 , 10.23981 ){\circle*{.04}}
apl>5 graph 2,100
\put( 0 , 8.805971 ){\circle*{.04}}
\put( .06283185 , 8.512164 ){\circle*{.04}}
\put( .1256637 , 8.236175 ){\circle*{.04}}
\put( .18849556 , 7.976916 ){\circle*{.04}}
\put( .25132741 , 7.733362 ){\circle*{.04}}
\put( .31415927 , 7.504551 ){\circle*{.04}}
\put( .37699112 , 7.289581 ){\circle*{.04}}
\put( .43982297 , 7.087602 ){\circle*{.04}}
\put( .502655 , 6.897816 ){\circle*{.04}}
\put( .565487 , 6.719473 ){\circle*{.04}}
\put( .628319 , 6.551871 ){\circle*{.04}}
\put( .69115 , 6.394346 ){\circle*{.04}}
\put( .753982 , 6.246277 ){\circle*{.04}}
\put( .816814 , 6.107078 ){\circle*{.04}}
\put( .879646 , 5.976201 ){\circle*{.04}}
\put( .942478 , 5.853128 ){\circle*{.04}}
\put( 1.005310 , 5.737374 ){\circle*{.04}}
\put( 1.068142 , 5.62848 ){\circle*{.04}}
\put( 1.130973 , 5.526018 ){\circle*{.04}}
\put( 1.193805 , 5.429582 ){\circle*{.04}}
\put( 1.256637 , 5.338791 ){\circle*{.04}}
\put( 1.319469 , 5.253288 ){\circle*{.04}}
\put( 1.3823 , 5.172734 ){\circle*{.04}}
\put( 1.445133 , 5.096812 ){\circle*{.04}}
\put( 1.507964 , 5.02522 ){\circle*{.04}}
\put( 1.570796 , 4.957678 ){\circle*{.04}}
\put( 1.633628 , 4.893918 ){\circle*{.04}}
\put( 1.69646 , 4.833688 ){\circle*{.04}}
\put( 1.759292 , 4.77675 ){\circle*{.04}}
\put( 1.822124 , 4.722880 ){\circle*{.04}}
\put( 1.884956 , 4.671864 ){\circle*{.04}}
\put( 1.947787 , 4.623502 ){\circle*{.04}}
\put( 2.010619 , 4.577602 ){\circle*{.04}}
\put( 2.073451 , 4.533983 ){\circle*{.04}}
\put( 2.136283 , 4.492473 ){\circle*{.04}}
\put( 2.199115 , 4.452907 ){\circle*{.04}}
\put( 2.261947 , 4.41513 ){\circle*{.04}}
\put( 2.324779 , 4.378993 ){\circle*{.04}}
\put( 2.38761 , 4.344353 ){\circle*{.04}}
\put( 2.450442 , 4.311072 ){\circle*{.04}}
\put( 2.513274 , 4.279020 ){\circle*{.04}}
\put( 2.576106 , 4.248069 ){\circle*{.04}}
\put( 2.638938 , 4.218099 ){\circle*{.04}}
\put( 2.701770 , 4.188989 ){\circle*{.04}}
\put( 2.764602 , 4.160626 ){\circle*{.04}}
\put( 2.827433 , 4.132898 ){\circle*{.04}}
\put( 2.890265 , 4.105694 ){\circle*{.04}}
\put( 2.953097 , 4.078907 ){\circle*{.04}}
\put( 3.015929 , 4.052432 ){\circle*{.04}}
\put( 3.07876 , 4.026164 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 3.973836 ){\circle*{.04}}
\put( 3.267256 , 3.947568 ){\circle*{.04}}
\put( 3.330088 , 3.921093 ){\circle*{.04}}
\put( 3.39292 , 3.894306 ){\circle*{.04}}
\put( 3.455752 , 3.867102 ){\circle*{.04}}
\put( 3.518584 , 3.839374 ){\circle*{.04}}
\put( 3.581416 , 3.81101 ){\circle*{.04}}
\put( 3.644247 , 3.781901 ){\circle*{.04}}
\put( 3.707079 , 3.75193 ){\circle*{.04}}
\put( 3.769911 , 3.72098 ){\circle*{.04}}
\put( 3.832743 , 3.688928 ){\circle*{.04}}
\put( 3.895575 , 3.655647 ){\circle*{.04}}
\put( 3.958407 , 3.621007 ){\circle*{.04}}
\put( 4.021239 , 3.584869 ){\circle*{.04}}
\put( 4.08407 , 3.547093 ){\circle*{.04}}
\put( 4.146902 , 3.507527 ){\circle*{.04}}
\put( 4.209734 , 3.466017 ){\circle*{.04}}
\put( 4.272566 , 3.422398 ){\circle*{.04}}
\put( 4.335398 , 3.376498 ){\circle*{.04}}
\put( 4.398230 , 3.328136 ){\circle*{.04}}
\put( 4.461062 , 3.27712 ){\circle*{.04}}
\put( 4.523893 , 3.22325 ){\circle*{.04}}
\put( 4.586725 , 3.166312 ){\circle*{.04}}
\put( 4.649557 , 3.106082 ){\circle*{.04}}
\put( 4.712389 , 3.042322 ){\circle*{.04}}
\put( 4.77522 , 2.974779 ){\circle*{.04}}
\put( 4.838053 , 2.903188 ){\circle*{.04}}
\put( 4.900885 , 2.827266 ){\circle*{.04}}
\put( 4.963716 , 2.746712 ){\circle*{.04}}
\put( 5.026548 , 2.661209 ){\circle*{.04}}
\put( 5.08938 , 2.570418 ){\circle*{.04}}
\put( 5.152212 , 2.473982 ){\circle*{.04}}
\put( 5.215044 , 2.371520 ){\circle*{.04}}
\put( 5.277876 , 2.262626 ){\circle*{.04}}
\put( 5.340708 , 2.146872 ){\circle*{.04}}
\put( 5.403539 , 2.023799 ){\circle*{.04}}
\put( 5.466371 , 1.892922 ){\circle*{.04}}
\put( 5.529203 , 1.753723 ){\circle*{.04}}
\put( 5.592035 , 1.605654 ){\circle*{.04}}
\put( 5.654867 , 1.448129 ){\circle*{.04}}
\put( 5.717699 , 1.280527 ){\circle*{.04}}
\put( 5.78053 , 1.102184 ){\circle*{.04}}
\put( 5.843362 , .912398 ){\circle*{.04}}
\put( 5.906194 , .710419 ){\circle*{.04}}
\put( 5.969026 , .49544862 ){\circle*{.04}}
\put( 6.031858 , .26663825 ){\circle*{.04}}
\put( 6.094690 , .02308432 ){\circle*{.04}}
\put( 6.157522 , -0.23617501 ){\circle*{.04}}
\put( 6.220353 , -0.512164 ){\circle*{.04}}
\put( 6.283185 , -0.805971 ){\circle*{.04}}
apl>6 graph 1,100
\put( 0 , 10.26316 ){\circle*{.04}}
\put( .06283185 , 9.88321 ){\circle*{.04}}
\put( .1256637 , 9.52649 ){\circle*{.04}}
\put( .18849556 , 9.191602 ){\circle*{.04}}
\put( .25132741 , 8.877213 ){\circle*{.04}}
\put( .31415927 , 8.582085 ){\circle*{.04}}
\put( .37699112 , 8.305052 ){\circle*{.04}}
\put( .43982297 , 8.04502 ){\circle*{.04}}
\put( .502655 , 7.800963 ){\circle*{.04}}
\put( .565487 , 7.571916 ){\circle*{.04}}
\put( .628319 , 7.356976 ){\circle*{.04}}
\put( .69115 , 7.155292 ){\circle*{.04}}
\put( .753982 , 6.966069 ){\circle*{.04}}
\put( .816814 , 6.788560 ){\circle*{.04}}
\put( .879646 , 6.622063 ){\circle*{.04}}
\put( .942478 , 6.46592 ){\circle*{.04}}
\put( 1.005310 , 6.319517 ){\circle*{.04}}
\put( 1.068142 , 6.182273 ){\circle*{.04}}
\put( 1.130973 , 6.053648 ){\circle*{.04}}
\put( 1.193805 , 5.933132 ){\circle*{.04}}
\put( 1.256637 , 5.82025 ){\circle*{.04}}
\put( 1.319469 , 5.714558 ){\circle*{.04}}
\put( 1.3823 , 5.615636 ){\circle*{.04}}
\put( 1.445133 , 5.523095 ){\circle*{.04}}
\put( 1.507964 , 5.436568 ){\circle*{.04}}
\put( 1.570796 , 5.355715 ){\circle*{.04}}
\put( 1.633628 , 5.280216 ){\circle*{.04}}
\put( 1.69646 , 5.209772 ){\circle*{.04}}
\put( 1.759292 , 5.144106 ){\circle*{.04}}
\put( 1.822124 , 5.082958 ){\circle*{.04}}
\put( 1.884956 , 5.026087 ){\circle*{.04}}
\put( 1.947787 , 4.973268 ){\circle*{.04}}
\put( 2.010619 , 4.924292 ){\circle*{.04}}
\put( 2.073451 , 4.878967 ){\circle*{.04}}
\put( 2.136283 , 4.837113 ){\circle*{.04}}
\put( 2.199115 , 4.798565 ){\circle*{.04}}
\put( 2.261947 , 4.76317 ){\circle*{.04}}
\put( 2.324779 , 4.730790 ){\circle*{.04}}
\put( 2.38761 , 4.701295 ){\circle*{.04}}
\put( 2.450442 , 4.67457 ){\circle*{.04}}
\put( 2.513274 , 4.650509 ){\circle*{.04}}
\put( 2.576106 , 4.629017 ){\circle*{.04}}
\put( 2.638938 , 4.610009 ){\circle*{.04}}
\put( 2.701770 , 4.593409 ){\circle*{.04}}
\put( 2.764602 , 4.579154 ){\circle*{.04}}
\put( 2.827433 , 4.567185 ){\circle*{.04}}
\put( 2.890265 , 4.557457 ){\circle*{.04}}
\put( 2.953097 , 4.549929 ){\circle*{.04}}
\put( 3.015929 , 4.544574 ){\circle*{.04}}
\put( 3.07876 , 4.541369 ){\circle*{.04}}
\put( 3.141593 , 4.540302 ){\circle*{.04}}
\put( 3.204425 , 4.541369 ){\circle*{.04}}
\put( 3.267256 , 4.544574 ){\circle*{.04}}
\put( 3.330088 , 4.549929 ){\circle*{.04}}
\put( 3.39292 , 4.557457 ){\circle*{.04}}
\put( 3.455752 , 4.567185 ){\circle*{.04}}
\put( 3.518584 , 4.579154 ){\circle*{.04}}
\put( 3.581416 , 4.593409 ){\circle*{.04}}
\put( 3.644247 , 4.610009 ){\circle*{.04}}
\put( 3.707079 , 4.629017 ){\circle*{.04}}
\put( 3.769911 , 4.650509 ){\circle*{.04}}
\put( 3.832743 , 4.67457 ){\circle*{.04}}
\put( 3.895575 , 4.701295 ){\circle*{.04}}
\put( 3.958407 , 4.730790 ){\circle*{.04}}
\put( 4.021239 , 4.76317 ){\circle*{.04}}
\put( 4.08407 , 4.798565 ){\circle*{.04}}
\put( 4.146902 , 4.837113 ){\circle*{.04}}
\put( 4.209734 , 4.878967 ){\circle*{.04}}
\put( 4.272566 , 4.924292 ){\circle*{.04}}
\put( 4.335398 , 4.973268 ){\circle*{.04}}
\put( 4.398230 , 5.026087 ){\circle*{.04}}
\put( 4.461062 , 5.082958 ){\circle*{.04}}
\put( 4.523893 , 5.144106 ){\circle*{.04}}
\put( 4.586725 , 5.209772 ){\circle*{.04}}
\put( 4.649557 , 5.280216 ){\circle*{.04}}
\put( 4.712389 , 5.355715 ){\circle*{.04}}
\put( 4.77522 , 5.436568 ){\circle*{.04}}
\put( 4.838053 , 5.523095 ){\circle*{.04}}
\put( 4.900885 , 5.615636 ){\circle*{.04}}
\put( 4.963716 , 5.714558 ){\circle*{.04}}
\put( 5.026548 , 5.82025 ){\circle*{.04}}
\put( 5.08938 , 5.933132 ){\circle*{.04}}
\put( 5.152212 , 6.053648 ){\circle*{.04}}
\put( 5.215044 , 6.182273 ){\circle*{.04}}
\put( 5.277876 , 6.319517 ){\circle*{.04}}
\put( 5.340708 , 6.46592 ){\circle*{.04}}
\put( 5.403539 , 6.622063 ){\circle*{.04}}
\put( 5.466371 , 6.788560 ){\circle*{.04}}
\put( 5.529203 , 6.966069 ){\circle*{.04}}
\put( 5.592035 , 7.155292 ){\circle*{.04}}
\put( 5.654867 , 7.356976 ){\circle*{.04}}
\put( 5.717699 , 7.571916 ){\circle*{.04}}
\put( 5.78053 , 7.800963 ){\circle*{.04}}
\put( 5.843362 , 8.04502 ){\circle*{.04}}
\put( 5.906194 , 8.305052 ){\circle*{.04}}
\put( 5.969026 , 8.582085 ){\circle*{.04}}
\put( 6.031858 , 8.877213 ){\circle*{.04}}
\put( 6.094690 , 9.191602 ){\circle*{.04}}
\put( 6.157522 , 9.52649 ){\circle*{.04}}
\put( 6.220353 , 9.88321 ){\circle*{.04}}
\put( 6.283185 , 10.26316 ){\circle*{.04}}
apl>6 graph 2,100
\put( 0 , -0.823955 ){\circle*{.04}}
\put( .06283185 , -0.531313 ){\circle*{.04}}
\put( .1256637 , -0.25656633 ){\circle*{.04}}
\put( .18849556 , .00137067 ){\circle*{.04}}
\put( .25132741 , .24351652 ){\circle*{.04}}
\put( .31415927 , .47082749 ){\circle*{.04}}
\put( .37699112 , .684201 ){\circle*{.04}}
\put( .43982297 , .88448 ){\circle*{.04}}
\put( .502655 , 1.072456 ){\circle*{.04}}
\put( .565487 , 1.24887 ){\circle*{.04}}
\put( .628319 , 1.41442 ){\circle*{.04}}
\put( .69115 , 1.569759 ){\circle*{.04}}
\put( .753982 , 1.7155 ){\circle*{.04}}
\put( .816814 , 1.85222 ){\circle*{.04}}
\put( .879646 , 1.980458 ){\circle*{.04}}
\put( .942478 , 2.10072 ){\circle*{.04}}
\put( 1.005310 , 2.213482 ){\circle*{.04}}
\put( 1.068142 , 2.319189 ){\circle*{.04}}
\put( 1.130973 , 2.418258 ){\circle*{.04}}
\put( 1.193805 , 2.51108 ){\circle*{.04}}
\put( 1.256637 , 2.598023 ){\circle*{.04}}
\put( 1.319469 , 2.679428 ){\circle*{.04}}
\put( 1.3823 , 2.755619 ){\circle*{.04}}
\put( 1.445133 , 2.826896 ){\circle*{.04}}
\put( 1.507964 , 2.893539 ){\circle*{.04}}
\put( 1.570796 , 2.955813 ){\circle*{.04}}
\put( 1.633628 , 3.013964 ){\circle*{.04}}
\put( 1.69646 , 3.06822 ){\circle*{.04}}
\put( 1.759292 , 3.118797 ){\circle*{.04}}
\put( 1.822124 , 3.165894 ){\circle*{.04}}
\put( 1.884956 , 3.209697 ){\circle*{.04}}
\put( 1.947787 , 3.250378 ){\circle*{.04}}
\put( 2.010619 , 3.288100 ){\circle*{.04}}
\put( 2.073451 , 3.323010 ){\circle*{.04}}
\put( 2.136283 , 3.355246 ){\circle*{.04}}
\put( 2.199115 , 3.384936 ){\circle*{.04}}
\put( 2.261947 , 3.412198 ){\circle*{.04}}
\put( 2.324779 , 3.437138 ){\circle*{.04}}
\put( 2.38761 , 3.459855 ){\circle*{.04}}
\put( 2.450442 , 3.480439 ){\circle*{.04}}
\put( 2.513274 , 3.49897 ){\circle*{.04}}
\put( 2.576106 , 3.515524 ){\circle*{.04}}
\put( 2.638938 , 3.530165 ){\circle*{.04}}
\put( 2.701770 , 3.542950 ){\circle*{.04}}
\put( 2.764602 , 3.553929 ){\circle*{.04}}
\put( 2.827433 , 3.563148 ){\circle*{.04}}
\put( 2.890265 , 3.57064 ){\circle*{.04}}
\put( 2.953097 , 3.576438 ){\circle*{.04}}
\put( 3.015929 , 3.580563 ){\circle*{.04}}
\put( 3.07876 , 3.583031 ){\circle*{.04}}
\put( 3.141593 , 3.583853 ){\circle*{.04}}
\put( 3.204425 , 3.583031 ){\circle*{.04}}
\put( 3.267256 , 3.580563 ){\circle*{.04}}
\put( 3.330088 , 3.576438 ){\circle*{.04}}
\put( 3.39292 , 3.57064 ){\circle*{.04}}
\put( 3.455752 , 3.563148 ){\circle*{.04}}
\put( 3.518584 , 3.553929 ){\circle*{.04}}
\put( 3.581416 , 3.542950 ){\circle*{.04}}
\put( 3.644247 , 3.530165 ){\circle*{.04}}
\put( 3.707079 , 3.515524 ){\circle*{.04}}
\put( 3.769911 , 3.49897 ){\circle*{.04}}
\put( 3.832743 , 3.480439 ){\circle*{.04}}
\put( 3.895575 , 3.459855 ){\circle*{.04}}
\put( 3.958407 , 3.437138 ){\circle*{.04}}
\put( 4.021239 , 3.412198 ){\circle*{.04}}
\put( 4.08407 , 3.384936 ){\circle*{.04}}
\put( 4.146902 , 3.355246 ){\circle*{.04}}
\put( 4.209734 , 3.323010 ){\circle*{.04}}
\put( 4.272566 , 3.288100 ){\circle*{.04}}
\put( 4.335398 , 3.250378 ){\circle*{.04}}
\put( 4.398230 , 3.209697 ){\circle*{.04}}
\put( 4.461062 , 3.165894 ){\circle*{.04}}
\put( 4.523893 , 3.118797 ){\circle*{.04}}
\put( 4.586725 , 3.06822 ){\circle*{.04}}
\put( 4.649557 , 3.013964 ){\circle*{.04}}
\put( 4.712389 , 2.955813 ){\circle*{.04}}
\put( 4.77522 , 2.893539 ){\circle*{.04}}
\put( 4.838053 , 2.826896 ){\circle*{.04}}
\put( 4.900885 , 2.755619 ){\circle*{.04}}
\put( 4.963716 , 2.679428 ){\circle*{.04}}
\put( 5.026548 , 2.598023 ){\circle*{.04}}
\put( 5.08938 , 2.51108 ){\circle*{.04}}
\put( 5.152212 , 2.418258 ){\circle*{.04}}
\put( 5.215044 , 2.319189 ){\circle*{.04}}
\put( 5.277876 , 2.213482 ){\circle*{.04}}
\put( 5.340708 , 2.10072 ){\circle*{.04}}
\put( 5.403539 , 1.980458 ){\circle*{.04}}
\put( 5.466371 , 1.85222 ){\circle*{.04}}
\put( 5.529203 , 1.7155 ){\circle*{.04}}
\put( 5.592035 , 1.569759 ){\circle*{.04}}
\put( 5.654867 , 1.41442 ){\circle*{.04}}
\put( 5.717699 , 1.24887 ){\circle*{.04}}
\put( 5.78053 , 1.072456 ){\circle*{.04}}
\put( 5.843362 , .88448 ){\circle*{.04}}
\put( 5.906194 , .684201 ){\circle*{.04}}
\put( 5.969026 , .47082749 ){\circle*{.04}}
\put( 6.031858 , .24351652 ){\circle*{.04}}
\put( 6.094690 , .00137067 ){\circle*{.04}}
\put( 6.157522 , -0.25656633 ){\circle*{.04}}
\put( 6.220353 , -0.531313 ){\circle*{.04}}
\put( 6.283185 , -0.823955 ){\circle*{.04}}
apl>7 graph .15,400
\put( 0 , 3.003562 ){\circle*{.04}}
\put( .01570796 , 3.003676 ){\circle*{.04}}
\put( .03141593 , 3.003793 ){\circle*{.04}}
\put( .04712389 , 3.003914 ){\circle*{.04}}
\put( .06283185 , 3.004038 ){\circle*{.04}}
\put( .07853982 , 3.004167 ){\circle*{.04}}
\put( .09424778 , 3.004300 ){\circle*{.04}}
\put( .10995574 , 3.004437 ){\circle*{.04}}
\put( .1256637 , 3.004578 ){\circle*{.04}}
\put( .14137167 , 3.004724 ){\circle*{.04}}
\put( .15707963 , 3.004874 ){\circle*{.04}}
\put( .17278760 , 3.005030 ){\circle*{.04}}
\put( .18849556 , 3.005190 ){\circle*{.04}}
\put( .20420352 , 3.005355 ){\circle*{.04}}
\put( .21991149 , 3.005525 ){\circle*{.04}}
\put( .23561945 , 3.005701 ){\circle*{.04}}
\put( .25132741 , 3.005883 ){\circle*{.04}}
\put( .26703538 , 3.00607 ){\circle*{.04}}
\put( .28274334 , 3.006263 ){\circle*{.04}}
\put( .2984513 , 3.006462 ){\circle*{.04}}
\put( .31415927 , 3.006668 ){\circle*{.04}}
\put( .32986723 , 3.00688 ){\circle*{.04}}
\put( .34557519 , 3.007099 ){\circle*{.04}}
\put( .36128316 , 3.007325 ){\circle*{.04}}
\put( .37699112 , 3.007558 ){\circle*{.04}}
\put( .39269908 , 3.007798 ){\circle*{.04}}
\put( .40840704 , 3.008046 ){\circle*{.04}}
\put( .424115 , 3.008302 ){\circle*{.04}}
\put( .43982297 , 3.008566 ){\circle*{.04}}
\put( .45553093 , 3.008838 ){\circle*{.04}}
\put( .47123890 , 3.009119 ){\circle*{.04}}
\put( .48694686 , 3.009409 ){\circle*{.04}}
\put( .502655 , 3.009708 ){\circle*{.04}}
\put( .518363 , 3.010016 ){\circle*{.04}}
\put( .53407 , 3.010334 ){\circle*{.04}}
\put( .549779 , 3.010663 ){\circle*{.04}}
\put( .565487 , 3.011001 ){\circle*{.04}}
\put( .581195 , 3.01135 ){\circle*{.04}}
\put( .596903 , 3.01171 ){\circle*{.04}}
\put( .61261 , 3.012083 ){\circle*{.04}}
\put( .628319 , 3.012466 ){\circle*{.04}}
\put( .644026 , 3.012862 ){\circle*{.04}}
\put( .659734 , 3.013270 ){\circle*{.04}}
\put( .675442 , 3.01369 ){\circle*{.04}}
\put( .69115 , 3.014125 ){\circle*{.04}}
\put( .706858 , 3.014572 ){\circle*{.04}}
\put( .722566 , 3.015034 ){\circle*{.04}}
\put( .738274 , 3.01551 ){\circle*{.04}}
\put( .753982 , 3.016002 ){\circle*{.04}}
\put( .76969 , 3.016509 ){\circle*{.04}}
\put( .785398 , 3.017032 ){\circle*{.04}}
\put( .801106 , 3.017571 ){\circle*{.04}}
\put( .816814 , 3.018127 ){\circle*{.04}}
\put( .832522 , 3.0187 ){\circle*{.04}}
\put( .84823 , 3.019292 ){\circle*{.04}}
\put( .863938 , 3.019903 ){\circle*{.04}}
\put( .879646 , 3.020532 ){\circle*{.04}}
\put( .895354 , 3.02118 ){\circle*{.04}}
\put( .911062 , 3.02185 ){\circle*{.04}}
\put( .926770 , 3.02254 ){\circle*{.04}}
\put( .942478 , 3.023252 ){\circle*{.04}}
\put( .958186 , 3.023986 ){\circle*{.04}}
\put( .973894 , 3.024743 ){\circle*{.04}}
\put( .989602 , 3.025524 ){\circle*{.04}}
\put( 1.005310 , 3.026328 ){\circle*{.04}}
\put( 1.021018 , 3.027158 ){\circle*{.04}}
\put( 1.036726 , 3.028014 ){\circle*{.04}}
\put( 1.052434 , 3.028896 ){\circle*{.04}}
\put( 1.068142 , 3.029806 ){\circle*{.04}}
\put( 1.083849 , 3.030744 ){\circle*{.04}}
\put( 1.099557 , 3.031711 ){\circle*{.04}}
\put( 1.115265 , 3.032708 ){\circle*{.04}}
\put( 1.130973 , 3.033736 ){\circle*{.04}}
\put( 1.146681 , 3.034796 ){\circle*{.04}}
\put( 1.162389 , 3.035888 ){\circle*{.04}}
\put( 1.178097 , 3.037014 ){\circle*{.04}}
\put( 1.193805 , 3.038175 ){\circle*{.04}}
\put( 1.209513 , 3.039372 ){\circle*{.04}}
\put( 1.225221 , 3.040605 ){\circle*{.04}}
\put( 1.240929 , 3.041876 ){\circle*{.04}}
\put( 1.256637 , 3.043187 ){\circle*{.04}}
\put( 1.272345 , 3.044537 ){\circle*{.04}}
\put( 1.288053 , 3.045929 ){\circle*{.04}}
\put( 1.303761 , 3.047363 ){\circle*{.04}}
\put( 1.319469 , 3.048841 ){\circle*{.04}}
\put( 1.335177 , 3.050364 ){\circle*{.04}}
\put( 1.350885 , 3.051933 ){\circle*{.04}}
\put( 1.366593 , 3.05355 ){\circle*{.04}}
\put( 1.3823 , 3.055217 ){\circle*{.04}}
\put( 1.398009 , 3.056933 ){\circle*{.04}}
\put( 1.413717 , 3.058702 ){\circle*{.04}}
\put( 1.429425 , 3.060523 ){\circle*{.04}}
\put( 1.445133 , 3.0624 ){\circle*{.04}}
\put( 1.46084 , 3.064333 ){\circle*{.04}}
\put( 1.476549 , 3.066324 ){\circle*{.04}}
\put( 1.492257 , 3.068375 ){\circle*{.04}}
\put( 1.507964 , 3.070487 ){\circle*{.04}}
\put( 1.523672 , 3.072662 ){\circle*{.04}}
\put( 1.53938 , 3.074902 ){\circle*{.04}}
\put( 1.555088 , 3.077208 ){\circle*{.04}}
\put( 1.570796 , 3.079583 ){\circle*{.04}}
\put( 1.586504 , 3.082028 ){\circle*{.04}}
\put( 1.602212 , 3.084545 ){\circle*{.04}}
\put( 1.61792 , 3.087136 ){\circle*{.04}}
\put( 1.633628 , 3.089802 ){\circle*{.04}}
\put( 1.649336 , 3.092547 ){\circle*{.04}}
\put( 1.665044 , 3.095372 ){\circle*{.04}}
\put( 1.680752 , 3.098279 ){\circle*{.04}}
\put( 1.69646 , 3.10127 ){\circle*{.04}}
\put( 1.712168 , 3.104348 ){\circle*{.04}}
\put( 1.727876 , 3.107515 ){\circle*{.04}}
\put( 1.743584 , 3.110772 ){\circle*{.04}}
\put( 1.759292 , 3.114123 ){\circle*{.04}}
\put( 1.775000 , 3.117569 ){\circle*{.04}}
\put( 1.790708 , 3.121113 ){\circle*{.04}}
\put( 1.806416 , 3.124757 ){\circle*{.04}}
\put( 1.822124 , 3.128504 ){\circle*{.04}}
\put( 1.837832 , 3.132356 ){\circle*{.04}}
\put( 1.853540 , 3.136316 ){\circle*{.04}}
\put( 1.869248 , 3.140386 ){\circle*{.04}}
\put( 1.884956 , 3.144569 ){\circle*{.04}}
\put( 1.900664 , 3.148867 ){\circle*{.04}}
\put( 1.916372 , 3.153283 ){\circle*{.04}}
\put( 1.932079 , 3.15782 ){\circle*{.04}}
\put( 1.947787 , 3.16248 ){\circle*{.04}}
\put( 1.963495 , 3.167267 ){\circle*{.04}}
\put( 1.979203 , 3.172182 ){\circle*{.04}}
\put( 1.994911 , 3.177228 ){\circle*{.04}}
\put( 2.010619 , 3.182409 ){\circle*{.04}}
\put( 2.026327 , 3.187726 ){\circle*{.04}}
\put( 2.042035 , 3.193183 ){\circle*{.04}}
\put( 2.057743 , 3.198783 ){\circle*{.04}}
\put( 2.073451 , 3.204528 ){\circle*{.04}}
\put( 2.089159 , 3.21042 ){\circle*{.04}}
\put( 2.104867 , 3.216463 ){\circle*{.04}}
\put( 2.120575 , 3.222660 ){\circle*{.04}}
\put( 2.136283 , 3.229012 ){\circle*{.04}}
\put( 2.151991 , 3.235524 ){\circle*{.04}}
\put( 2.167699 , 3.242196 ){\circle*{.04}}
\put( 2.183407 , 3.249033 ){\circle*{.04}}
\put( 2.199115 , 3.256036 ){\circle*{.04}}
\put( 2.214823 , 3.263208 ){\circle*{.04}}
\put( 2.23053 , 3.270552 ){\circle*{.04}}
\put( 2.246239 , 3.278070 ){\circle*{.04}}
\put( 2.261947 , 3.285764 ){\circle*{.04}}
\put( 2.277655 , 3.293636 ){\circle*{.04}}
\put( 2.293363 , 3.301689 ){\circle*{.04}}
\put( 2.30907 , 3.309926 ){\circle*{.04}}
\put( 2.324779 , 3.318347 ){\circle*{.04}}
\put( 2.340487 , 3.326955 ){\circle*{.04}}
\put( 2.356194 , 3.335751 ){\circle*{.04}}
\put( 2.371902 , 3.344738 ){\circle*{.04}}
\put( 2.38761 , 3.353917 ){\circle*{.04}}
\put( 2.403318 , 3.363289 ){\circle*{.04}}
\put( 2.419026 , 3.372856 ){\circle*{.04}}
\put( 2.434734 , 3.382618 ){\circle*{.04}}
\put( 2.450442 , 3.392577 ){\circle*{.04}}
\put( 2.46615 , 3.402734 ){\circle*{.04}}
\put( 2.481858 , 3.413088 ){\circle*{.04}}
\put( 2.497566 , 3.423641 ){\circle*{.04}}
\put( 2.513274 , 3.434393 ){\circle*{.04}}
\put( 2.528982 , 3.445344 ){\circle*{.04}}
\put( 2.54469 , 3.456493 ){\circle*{.04}}
\put( 2.560398 , 3.46784 ){\circle*{.04}}
\put( 2.576106 , 3.479385 ){\circle*{.04}}
\put( 2.591814 , 3.491127 ){\circle*{.04}}
\put( 2.607522 , 3.503064 ){\circle*{.04}}
\put( 2.623230 , 3.515196 ){\circle*{.04}}
\put( 2.638938 , 3.527520 ){\circle*{.04}}
\put( 2.654646 , 3.540035 ){\circle*{.04}}
\put( 2.670354 , 3.552739 ){\circle*{.04}}
\put( 2.686062 , 3.565629 ){\circle*{.04}}
\put( 2.701770 , 3.578703 ){\circle*{.04}}
\put( 2.717478 , 3.591957 ){\circle*{.04}}
\put( 2.733186 , 3.605389 ){\circle*{.04}}
\put( 2.748894 , 3.618995 ){\circle*{.04}}
\put( 2.764602 , 3.632771 ){\circle*{.04}}
\put( 2.780309 , 3.646713 ){\circle*{.04}}
\put( 2.796017 , 3.660817 ){\circle*{.04}}
\put( 2.811725 , 3.675078 ){\circle*{.04}}
\put( 2.827433 , 3.689491 ){\circle*{.04}}
\put( 2.843141 , 3.704052 ){\circle*{.04}}
\put( 2.858849 , 3.718754 ){\circle*{.04}}
\put( 2.874557 , 3.733591 ){\circle*{.04}}
\put( 2.890265 , 3.748559 ){\circle*{.04}}
\put( 2.905973 , 3.76365 ){\circle*{.04}}
\put( 2.921681 , 3.778859 ){\circle*{.04}}
\put( 2.937389 , 3.794178 ){\circle*{.04}}
\put( 2.953097 , 3.809601 ){\circle*{.04}}
\put( 2.968805 , 3.82512 ){\circle*{.04}}
\put( 2.984513 , 3.840729 ){\circle*{.04}}
\put( 3.000221 , 3.856420 ){\circle*{.04}}
\put( 3.015929 , 3.872184 ){\circle*{.04}}
\put( 3.031637 , 3.888014 ){\circle*{.04}}
\put( 3.047345 , 3.903903 ){\circle*{.04}}
\put( 3.063053 , 3.919842 ){\circle*{.04}}
\put( 3.07876 , 3.935823 ){\circle*{.04}}
\put( 3.094469 , 3.951838 ){\circle*{.04}}
\put( 3.110177 , 3.967878 ){\circle*{.04}}
\put( 3.125885 , 3.983935 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.1573 , 4.016065 ){\circle*{.04}}
\put( 3.173009 , 4.032122 ){\circle*{.04}}
\put( 3.188717 , 4.048162 ){\circle*{.04}}
\put( 3.204425 , 4.064177 ){\circle*{.04}}
\put( 3.220132 , 4.080158 ){\circle*{.04}}
\put( 3.23584 , 4.096097 ){\circle*{.04}}
\put( 3.251548 , 4.111986 ){\circle*{.04}}
\put( 3.267256 , 4.127816 ){\circle*{.04}}
\put( 3.282964 , 4.14358 ){\circle*{.04}}
\put( 3.298672 , 4.15927 ){\circle*{.04}}
\put( 3.31438 , 4.174879 ){\circle*{.04}}
\put( 3.330088 , 4.190399 ){\circle*{.04}}
\put( 3.345796 , 4.205822 ){\circle*{.04}}
\put( 3.361504 , 4.22114 ){\circle*{.04}}
\put( 3.377212 , 4.236349 ){\circle*{.04}}
\put( 3.39292 , 4.25144 ){\circle*{.04}}
\put( 3.408628 , 4.266409 ){\circle*{.04}}
\put( 3.424336 , 4.281246 ){\circle*{.04}}
\put( 3.440044 , 4.295948 ){\circle*{.04}}
\put( 3.455752 , 4.310509 ){\circle*{.04}}
\put( 3.471460 , 4.324922 ){\circle*{.04}}
\put( 3.487168 , 4.339183 ){\circle*{.04}}
\put( 3.502876 , 4.353287 ){\circle*{.04}}
\put( 3.518584 , 4.367229 ){\circle*{.04}}
\put( 3.534292 , 4.381005 ){\circle*{.04}}
\put( 3.550000 , 4.394611 ){\circle*{.04}}
\put( 3.565708 , 4.408043 ){\circle*{.04}}
\put( 3.581416 , 4.421297 ){\circle*{.04}}
\put( 3.597124 , 4.434371 ){\circle*{.04}}
\put( 3.612832 , 4.447261 ){\circle*{.04}}
\put( 3.628540 , 4.459965 ){\circle*{.04}}
\put( 3.644247 , 4.47248 ){\circle*{.04}}
\put( 3.659955 , 4.484804 ){\circle*{.04}}
\put( 3.675663 , 4.496936 ){\circle*{.04}}
\put( 3.691371 , 4.508873 ){\circle*{.04}}
\put( 3.707079 , 4.520615 ){\circle*{.04}}
\put( 3.722787 , 4.53216 ){\circle*{.04}}
\put( 3.738495 , 4.543507 ){\circle*{.04}}
\put( 3.754203 , 4.554656 ){\circle*{.04}}
\put( 3.769911 , 4.565607 ){\circle*{.04}}
\put( 3.785619 , 4.576359 ){\circle*{.04}}
\put( 3.801327 , 4.586912 ){\circle*{.04}}
\put( 3.817035 , 4.597266 ){\circle*{.04}}
\put( 3.832743 , 4.607423 ){\circle*{.04}}
\put( 3.848451 , 4.617382 ){\circle*{.04}}
\put( 3.864159 , 4.627144 ){\circle*{.04}}
\put( 3.879867 , 4.63671 ){\circle*{.04}}
\put( 3.895575 , 4.646083 ){\circle*{.04}}
\put( 3.911283 , 4.655262 ){\circle*{.04}}
\put( 3.92699 , 4.664249 ){\circle*{.04}}
\put( 3.942699 , 4.673045 ){\circle*{.04}}
\put( 3.958407 , 4.681653 ){\circle*{.04}}
\put( 3.974115 , 4.690074 ){\circle*{.04}}
\put( 3.989823 , 4.69831 ){\circle*{.04}}
\put( 4.00553 , 4.706364 ){\circle*{.04}}
\put( 4.021239 , 4.714236 ){\circle*{.04}}
\put( 4.036947 , 4.72193 ){\circle*{.04}}
\put( 4.052655 , 4.729448 ){\circle*{.04}}
\put( 4.068362 , 4.736792 ){\circle*{.04}}
\put( 4.08407 , 4.743964 ){\circle*{.04}}
\put( 4.099778 , 4.750967 ){\circle*{.04}}
\put( 4.115486 , 4.757804 ){\circle*{.04}}
\put( 4.131194 , 4.764476 ){\circle*{.04}}
\put( 4.146902 , 4.770988 ){\circle*{.04}}
\put( 4.16261 , 4.77734 ){\circle*{.04}}
\put( 4.178318 , 4.783537 ){\circle*{.04}}
\put( 4.194026 , 4.789580 ){\circle*{.04}}
\put( 4.209734 , 4.795472 ){\circle*{.04}}
\put( 4.225442 , 4.801217 ){\circle*{.04}}
\put( 4.24115 , 4.806817 ){\circle*{.04}}
\put( 4.256858 , 4.812274 ){\circle*{.04}}
\put( 4.272566 , 4.817591 ){\circle*{.04}}
\put( 4.288274 , 4.822772 ){\circle*{.04}}
\put( 4.303982 , 4.827818 ){\circle*{.04}}
\put( 4.319690 , 4.832733 ){\circle*{.04}}
\put( 4.335398 , 4.837519 ){\circle*{.04}}
\put( 4.351106 , 4.842180 ){\circle*{.04}}
\put( 4.366814 , 4.846717 ){\circle*{.04}}
\put( 4.382522 , 4.851133 ){\circle*{.04}}
\put( 4.398230 , 4.855431 ){\circle*{.04}}
\put( 4.413938 , 4.859614 ){\circle*{.04}}
\put( 4.429646 , 4.863684 ){\circle*{.04}}
\put( 4.445354 , 4.867644 ){\circle*{.04}}
\put( 4.461062 , 4.871496 ){\circle*{.04}}
\put( 4.476770 , 4.875243 ){\circle*{.04}}
\put( 4.492477 , 4.878887 ){\circle*{.04}}
\put( 4.508185 , 4.882431 ){\circle*{.04}}
\put( 4.523893 , 4.885877 ){\circle*{.04}}
\put( 4.539601 , 4.889228 ){\circle*{.04}}
\put( 4.555309 , 4.892485 ){\circle*{.04}}
\put( 4.571017 , 4.895652 ){\circle*{.04}}
\put( 4.586725 , 4.898730 ){\circle*{.04}}
\put( 4.602433 , 4.90172 ){\circle*{.04}}
\put( 4.618141 , 4.904628 ){\circle*{.04}}
\put( 4.633849 , 4.907453 ){\circle*{.04}}
\put( 4.649557 , 4.910198 ){\circle*{.04}}
\put( 4.665265 , 4.912864 ){\circle*{.04}}
\put( 4.680973 , 4.915455 ){\circle*{.04}}
\put( 4.696681 , 4.917972 ){\circle*{.04}}
\put( 4.712389 , 4.920417 ){\circle*{.04}}
\put( 4.728097 , 4.922792 ){\circle*{.04}}
\put( 4.743805 , 4.925098 ){\circle*{.04}}
\put( 4.759513 , 4.927338 ){\circle*{.04}}
\put( 4.77522 , 4.929513 ){\circle*{.04}}
\put( 4.790929 , 4.931625 ){\circle*{.04}}
\put( 4.806637 , 4.933676 ){\circle*{.04}}
\put( 4.822345 , 4.935667 ){\circle*{.04}}
\put( 4.838053 , 4.9376 ){\circle*{.04}}
\put( 4.85376 , 4.939477 ){\circle*{.04}}
\put( 4.869469 , 4.941298 ){\circle*{.04}}
\put( 4.885177 , 4.943067 ){\circle*{.04}}
\put( 4.900885 , 4.944783 ){\circle*{.04}}
\put( 4.916593 , 4.946450 ){\circle*{.04}}
\put( 4.9323 , 4.948067 ){\circle*{.04}}
\put( 4.948008 , 4.949636 ){\circle*{.04}}
\put( 4.963716 , 4.951159 ){\circle*{.04}}
\put( 4.979424 , 4.952637 ){\circle*{.04}}
\put( 4.995132 , 4.954071 ){\circle*{.04}}
\put( 5.01084 , 4.955463 ){\circle*{.04}}
\put( 5.026548 , 4.956813 ){\circle*{.04}}
\put( 5.042256 , 4.958124 ){\circle*{.04}}
\put( 5.057964 , 4.959395 ){\circle*{.04}}
\put( 5.073672 , 4.960628 ){\circle*{.04}}
\put( 5.08938 , 4.961825 ){\circle*{.04}}
\put( 5.105088 , 4.962986 ){\circle*{.04}}
\put( 5.120796 , 4.964112 ){\circle*{.04}}
\put( 5.136504 , 4.965204 ){\circle*{.04}}
\put( 5.152212 , 4.966264 ){\circle*{.04}}
\put( 5.16792 , 4.967292 ){\circle*{.04}}
\put( 5.183628 , 4.968289 ){\circle*{.04}}
\put( 5.199336 , 4.969256 ){\circle*{.04}}
\put( 5.215044 , 4.970194 ){\circle*{.04}}
\put( 5.230752 , 4.971104 ){\circle*{.04}}
\put( 5.246460 , 4.971986 ){\circle*{.04}}
\put( 5.262168 , 4.972842 ){\circle*{.04}}
\put( 5.277876 , 4.973672 ){\circle*{.04}}
\put( 5.293584 , 4.974476 ){\circle*{.04}}
\put( 5.309292 , 4.975257 ){\circle*{.04}}
\put( 5.325000 , 4.976014 ){\circle*{.04}}
\put( 5.340708 , 4.976748 ){\circle*{.04}}
\put( 5.356415 , 4.977460 ){\circle*{.04}}
\put( 5.372123 , 4.978150 ){\circle*{.04}}
\put( 5.387831 , 4.978819 ){\circle*{.04}}
\put( 5.403539 , 4.979468 ){\circle*{.04}}
\put( 5.419247 , 4.980097 ){\circle*{.04}}
\put( 5.434955 , 4.980708 ){\circle*{.04}}
\put( 5.450663 , 4.981299 ){\circle*{.04}}
\put( 5.466371 , 4.981873 ){\circle*{.04}}
\put( 5.482079 , 4.982429 ){\circle*{.04}}
\put( 5.497787 , 4.982968 ){\circle*{.04}}
\put( 5.513495 , 4.983491 ){\circle*{.04}}
\put( 5.529203 , 4.983998 ){\circle*{.04}}
\put( 5.544911 , 4.984489 ){\circle*{.04}}
\put( 5.560619 , 4.984966 ){\circle*{.04}}
\put( 5.576327 , 4.985428 ){\circle*{.04}}
\put( 5.592035 , 4.985875 ){\circle*{.04}}
\put( 5.607743 , 4.986310 ){\circle*{.04}}
\put( 5.62345 , 4.98673 ){\circle*{.04}}
\put( 5.639159 , 4.987138 ){\circle*{.04}}
\put( 5.654867 , 4.987534 ){\circle*{.04}}
\put( 5.670575 , 4.987917 ){\circle*{.04}}
\put( 5.686283 , 4.988289 ){\circle*{.04}}
\put( 5.70199 , 4.988649 ){\circle*{.04}}
\put( 5.717699 , 4.988999 ){\circle*{.04}}
\put( 5.733407 , 4.989337 ){\circle*{.04}}
\put( 5.749115 , 4.989666 ){\circle*{.04}}
\put( 5.764823 , 4.989984 ){\circle*{.04}}
\put( 5.78053 , 4.990292 ){\circle*{.04}}
\put( 5.796238 , 4.990591 ){\circle*{.04}}
\put( 5.811946 , 4.990881 ){\circle*{.04}}
\put( 5.827654 , 4.991162 ){\circle*{.04}}
\put( 5.843362 , 4.991434 ){\circle*{.04}}
\put( 5.85907 , 4.991698 ){\circle*{.04}}
\put( 5.874778 , 4.991954 ){\circle*{.04}}
\put( 5.890486 , 4.992202 ){\circle*{.04}}
\put( 5.906194 , 4.992442 ){\circle*{.04}}
\put( 5.921902 , 4.992675 ){\circle*{.04}}
\put( 5.93761 , 4.992901 ){\circle*{.04}}
\put( 5.953318 , 4.993120 ){\circle*{.04}}
\put( 5.969026 , 4.993332 ){\circle*{.04}}
\put( 5.984734 , 4.993538 ){\circle*{.04}}
\put( 6.000442 , 4.993737 ){\circle*{.04}}
\put( 6.01615 , 4.99393 ){\circle*{.04}}
\put( 6.031858 , 4.994117 ){\circle*{.04}}
\put( 6.047566 , 4.994299 ){\circle*{.04}}
\put( 6.063274 , 4.994475 ){\circle*{.04}}
\put( 6.078982 , 4.994645 ){\circle*{.04}}
\put( 6.094690 , 4.99481 ){\circle*{.04}}
\put( 6.110398 , 4.99497 ){\circle*{.04}}
\put( 6.126106 , 4.995126 ){\circle*{.04}}
\put( 6.141814 , 4.995276 ){\circle*{.04}}
\put( 6.157522 , 4.995422 ){\circle*{.04}}
\put( 6.173230 , 4.995563 ){\circle*{.04}}
\put( 6.188938 , 4.9957 ){\circle*{.04}}
\put( 6.204645 , 4.995833 ){\circle*{.04}}
\put( 6.220353 , 4.995962 ){\circle*{.04}}
\put( 6.236061 , 4.996086 ){\circle*{.04}}
\put( 6.251769 , 4.996207 ){\circle*{.04}}
\put( 6.267477 , 4.996324 ){\circle*{.04}}
\put( 6.283185 , 4.996438 ){\circle*{.04}}
apl>" <----------------------------------------------------------------->
apl>)off
