apl>" <-APL2-------------------- sam292.txt ---------------------------->
apl>Lex 'grapx'
1
apl>Ga grapx b;c;d;h;k
[1] "Graphs the real coefficient of tan
[2] "Call format:
[3] " Trig. function: 3=tangent.
[4] " | d = Imaginary coefficient.
[5] " | | e = Number of points to generate.
[6] " | | |
[7] " V V V
[8] " 1 grapx 1,100
[9] (c d)#b
[10] h#k,',',[1.5]4+9OaO(cX0j1)+(O-1)+k#(O2)X(-1+Id+1)%d
[11] (`Z'\put('),h,`Z'){\circle*{.04}}'
[12] G
apl>3 grapx .15,400
\put( 0 , 4 ){\circle*{.04}}
\put( .01570796 , 4.015361 ){\circle*{.04}}
\put( .03141593 , 4.030729 ){\circle*{.04}}
\put( .04712389 , 4.046111 ){\circle*{.04}}
\put( .06283185 , 4.061515 ){\circle*{.04}}
\put( .07853982 , 4.076947 ){\circle*{.04}}
\put( .09424778 , 4.092414 ){\circle*{.04}}
\put( .10995574 , 4.107925 ){\circle*{.04}}
\put( .1256637 , 4.123485 ){\circle*{.04}}
\put( .14137167 , 4.139104 ){\circle*{.04}}
\put( .15707963 , 4.154787 ){\circle*{.04}}
\put( .17278760 , 4.170544 ){\circle*{.04}}
\put( .18849556 , 4.186381 ){\circle*{.04}}
\put( .20420352 , 4.202307 ){\circle*{.04}}
\put( .21991149 , 4.218330 ){\circle*{.04}}
\put( .23561945 , 4.234457 ){\circle*{.04}}
\put( .25132741 , 4.250699 ){\circle*{.04}}
\put( .26703538 , 4.267062 ){\circle*{.04}}
\put( .28274334 , 4.283556 ){\circle*{.04}}
\put( .2984513 , 4.300191 ){\circle*{.04}}
\put( .31415927 , 4.316975 ){\circle*{.04}}
\put( .32986723 , 4.333919 ){\circle*{.04}}
\put( .34557519 , 4.351033 ){\circle*{.04}}
\put( .36128316 , 4.368327 ){\circle*{.04}}
\put( .37699112 , 4.385811 ){\circle*{.04}}
\put( .39269908 , 4.403497 ){\circle*{.04}}
\put( .40840704 , 4.421397 ){\circle*{.04}}
\put( .424115 , 4.439522 ){\circle*{.04}}
\put( .43982297 , 4.457886 ){\circle*{.04}}
\put( .45553093 , 4.4765 ){\circle*{.04}}
\put( .47123890 , 4.49538 ){\circle*{.04}}
\put( .48694686 , 4.514539 ){\circle*{.04}}
\put( .502655 , 4.533991 ){\circle*{.04}}
\put( .518363 , 4.553753 ){\circle*{.04}}
\put( .53407 , 4.57384 ){\circle*{.04}}
\put( .549779 , 4.59427 ){\circle*{.04}}
\put( .565487 , 4.615061 ){\circle*{.04}}
\put( .581195 , 4.636231 ){\circle*{.04}}
\put( .596903 , 4.6578 ){\circle*{.04}}
\put( .61261 , 4.679790 ){\circle*{.04}}
\put( .628319 , 4.70222 ){\circle*{.04}}
\put( .644026 , 4.725117 ){\circle*{.04}}
\put( .659734 , 4.748502 ){\circle*{.04}}
\put( .675442 , 4.772403 ){\circle*{.04}}
\put( .69115 , 4.796846 ){\circle*{.04}}
\put( .706858 , 4.821859 ){\circle*{.04}}
\put( .722566 , 4.847475 ){\circle*{.04}}
\put( .738274 , 4.873724 ){\circle*{.04}}
\put( .753982 , 4.900641 ){\circle*{.04}}
\put( .76969 , 4.928263 ){\circle*{.04}}
\put( .785398 , 4.956628 ){\circle*{.04}}
\put( .801106 , 4.985777 ){\circle*{.04}}
\put( .816814 , 5.015754 ){\circle*{.04}}
\put( .832522 , 5.046605 ){\circle*{.04}}
\put( .84823 , 5.078379 ){\circle*{.04}}
\put( .863938 , 5.11113 ){\circle*{.04}}
\put( .879646 , 5.144914 ){\circle*{.04}}
\put( .895354 , 5.17979 ){\circle*{.04}}
\put( .911062 , 5.215822 ){\circle*{.04}}
\put( .926770 , 5.253079 ){\circle*{.04}}
\put( .942478 , 5.291632 ){\circle*{.04}}
\put( .958186 , 5.331560 ){\circle*{.04}}
\put( .973894 , 5.372943 ){\circle*{.04}}
\put( .989602 , 5.415871 ){\circle*{.04}}
\put( 1.005310 , 5.460437 ){\circle*{.04}}
\put( 1.021018 , 5.506738 ){\circle*{.04}}
\put( 1.036726 , 5.554880 ){\circle*{.04}}
\put( 1.052434 , 5.604972 ){\circle*{.04}}
\put( 1.068142 , 5.657132 ){\circle*{.04}}
\put( 1.083849 , 5.711478 ){\circle*{.04}}
\put( 1.099557 , 5.768137 ){\circle*{.04}}
\put( 1.115265 , 5.827238 ){\circle*{.04}}
\put( 1.130973 , 5.888909 ){\circle*{.04}}
\put( 1.146681 , 5.953279 ){\circle*{.04}}
\put( 1.162389 , 6.020471 ){\circle*{.04}}
\put( 1.178097 , 6.090599 ){\circle*{.04}}
\put( 1.193805 , 6.163756 ){\circle*{.04}}
\put( 1.209513 , 6.240008 ){\circle*{.04}}
\put( 1.225221 , 6.319379 ){\circle*{.04}}
\put( 1.240929 , 6.401829 ){\circle*{.04}}
\put( 1.256637 , 6.487227 ){\circle*{.04}}
\put( 1.272345 , 6.575317 ){\circle*{.04}}
\put( 1.288053 , 6.665665 ){\circle*{.04}}
\put( 1.303761 , 6.75759 ){\circle*{.04}}
\put( 1.319469 , 6.850077 ){\circle*{.04}}
\put( 1.335177 , 6.941649 ){\circle*{.04}}
\put( 1.350885 , 7.03021 ){\circle*{.04}}
\put( 1.366593 , 7.112837 ){\circle*{.04}}
\put( 1.3823 , 7.185515 ){\circle*{.04}}
\put( 1.398009 , 7.242822 ){\circle*{.04}}
\put( 1.413717 , 7.277582 ){\circle*{.04}}
\put( 1.429425 , 7.280518 ){\circle*{.04}}
\put( 1.445133 , 7.240033 ){\circle*{.04}}
\put( 1.46084 , 7.142289 ){\circle*{.04}}
\put( 1.476549 , 6.971888 ){\circle*{.04}}
\put( 1.492257 , 6.713512 ){\circle*{.04}}
\put( 1.507964 , 6.354834 ){\circle*{.04}}
\put( 1.523672 , 5.890615 ){\circle*{.04}}
\put( 1.53938 , 5.327164 ){\circle*{.04}}
\put( 1.555088 , 4.685346 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.586504 , 3.314654 ){\circle*{.04}}
\put( 1.602212 , 2.672836 ){\circle*{.04}}
\put( 1.61792 , 2.109385 ){\circle*{.04}}
\put( 1.633628 , 1.645166 ){\circle*{.04}}
\put( 1.649336 , 1.286488 ){\circle*{.04}}
\put( 1.665044 , 1.028112 ){\circle*{.04}}
\put( 1.680752 , .85771 ){\circle*{.04}}
\put( 1.69646 , .759967 ){\circle*{.04}}
\put( 1.712168 , .719482 ){\circle*{.04}}
\put( 1.727876 , .722418 ){\circle*{.04}}
\put( 1.743584 , .757178 ){\circle*{.04}}
\put( 1.759292 , .814485 ){\circle*{.04}}
\put( 1.775000 , .887163 ){\circle*{.04}}
\put( 1.790708 , .969790 ){\circle*{.04}}
\put( 1.806416 , 1.058351 ){\circle*{.04}}
\put( 1.822124 , 1.149923 ){\circle*{.04}}
\put( 1.837832 , 1.24241 ){\circle*{.04}}
\put( 1.853540 , 1.334335 ){\circle*{.04}}
\put( 1.869248 , 1.424683 ){\circle*{.04}}
\put( 1.884956 , 1.512773 ){\circle*{.04}}
\put( 1.900664 , 1.598171 ){\circle*{.04}}
\put( 1.916372 , 1.680621 ){\circle*{.04}}
\put( 1.932079 , 1.759992 ){\circle*{.04}}
\put( 1.947787 , 1.836244 ){\circle*{.04}}
\put( 1.963495 , 1.909401 ){\circle*{.04}}
\put( 1.979203 , 1.979529 ){\circle*{.04}}
\put( 1.994911 , 2.046721 ){\circle*{.04}}
\put( 2.010619 , 2.111091 ){\circle*{.04}}
\put( 2.026327 , 2.172762 ){\circle*{.04}}
\put( 2.042035 , 2.231863 ){\circle*{.04}}
\put( 2.057743 , 2.288522 ){\circle*{.04}}
\put( 2.073451 , 2.342868 ){\circle*{.04}}
\put( 2.089159 , 2.395028 ){\circle*{.04}}
\put( 2.104867 , 2.44512 ){\circle*{.04}}
\put( 2.120575 , 2.493262 ){\circle*{.04}}
\put( 2.136283 , 2.539563 ){\circle*{.04}}
\put( 2.151991 , 2.584129 ){\circle*{.04}}
\put( 2.167699 , 2.627057 ){\circle*{.04}}
\put( 2.183407 , 2.66844 ){\circle*{.04}}
\put( 2.199115 , 2.708368 ){\circle*{.04}}
\put( 2.214823 , 2.746921 ){\circle*{.04}}
\put( 2.23053 , 2.784178 ){\circle*{.04}}
\put( 2.246239 , 2.82021 ){\circle*{.04}}
\put( 2.261947 , 2.855086 ){\circle*{.04}}
\put( 2.277655 , 2.888870 ){\circle*{.04}}
\put( 2.293363 , 2.92162 ){\circle*{.04}}
\put( 2.30907 , 2.953395 ){\circle*{.04}}
\put( 2.324779 , 2.984246 ){\circle*{.04}}
\put( 2.340487 , 3.014223 ){\circle*{.04}}
\put( 2.356194 , 3.043372 ){\circle*{.04}}
\put( 2.371902 , 3.071737 ){\circle*{.04}}
\put( 2.38761 , 3.099359 ){\circle*{.04}}
\put( 2.403318 , 3.126276 ){\circle*{.04}}
\put( 2.419026 , 3.152525 ){\circle*{.04}}
\put( 2.434734 , 3.17814 ){\circle*{.04}}
\put( 2.450442 , 3.203154 ){\circle*{.04}}
\put( 2.46615 , 3.227597 ){\circle*{.04}}
\put( 2.481858 , 3.251498 ){\circle*{.04}}
\put( 2.497566 , 3.274883 ){\circle*{.04}}
\put( 2.513274 , 3.297779 ){\circle*{.04}}
\put( 2.528982 , 3.32021 ){\circle*{.04}}
\put( 2.54469 , 3.342200 ){\circle*{.04}}
\put( 2.560398 , 3.363769 ){\circle*{.04}}
\put( 2.576106 , 3.384939 ){\circle*{.04}}
\put( 2.591814 , 3.405730 ){\circle*{.04}}
\put( 2.607522 , 3.42616 ){\circle*{.04}}
\put( 2.623230 , 3.446247 ){\circle*{.04}}
\put( 2.638938 , 3.466009 ){\circle*{.04}}
\put( 2.654646 , 3.485461 ){\circle*{.04}}
\put( 2.670354 , 3.50462 ){\circle*{.04}}
\put( 2.686062 , 3.523499 ){\circle*{.04}}
\put( 2.701770 , 3.542114 ){\circle*{.04}}
\put( 2.717478 , 3.560478 ){\circle*{.04}}
\put( 2.733186 , 3.578603 ){\circle*{.04}}
\put( 2.748894 , 3.596503 ){\circle*{.04}}
\put( 2.764602 , 3.614189 ){\circle*{.04}}
\put( 2.780309 , 3.631673 ){\circle*{.04}}
\put( 2.796017 , 3.648967 ){\circle*{.04}}
\put( 2.811725 , 3.66608 ){\circle*{.04}}
\put( 2.827433 , 3.683025 ){\circle*{.04}}
\put( 2.843141 , 3.699809 ){\circle*{.04}}
\put( 2.858849 , 3.716444 ){\circle*{.04}}
\put( 2.874557 , 3.732938 ){\circle*{.04}}
\put( 2.890265 , 3.749301 ){\circle*{.04}}
\put( 2.905973 , 3.765543 ){\circle*{.04}}
\put( 2.921681 , 3.78167 ){\circle*{.04}}
\put( 2.937389 , 3.797693 ){\circle*{.04}}
\put( 2.953097 , 3.813619 ){\circle*{.04}}
\put( 2.968805 , 3.829456 ){\circle*{.04}}
\put( 2.984513 , 3.845213 ){\circle*{.04}}
\put( 3.000221 , 3.860896 ){\circle*{.04}}
\put( 3.015929 , 3.876515 ){\circle*{.04}}
\put( 3.031637 , 3.892075 ){\circle*{.04}}
\put( 3.047345 , 3.907586 ){\circle*{.04}}
\put( 3.063053 , 3.923053 ){\circle*{.04}}
\put( 3.07876 , 3.938485 ){\circle*{.04}}
\put( 3.094469 , 3.953889 ){\circle*{.04}}
\put( 3.110177 , 3.969271 ){\circle*{.04}}
\put( 3.125885 , 3.984639 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.1573 , 4.015361 ){\circle*{.04}}
\put( 3.173009 , 4.030729 ){\circle*{.04}}
\put( 3.188717 , 4.046111 ){\circle*{.04}}
\put( 3.204425 , 4.061515 ){\circle*{.04}}
\put( 3.220132 , 4.076947 ){\circle*{.04}}
\put( 3.23584 , 4.092414 ){\circle*{.04}}
\put( 3.251548 , 4.107925 ){\circle*{.04}}
\put( 3.267256 , 4.123485 ){\circle*{.04}}
\put( 3.282964 , 4.139104 ){\circle*{.04}}
\put( 3.298672 , 4.154787 ){\circle*{.04}}
\put( 3.31438 , 4.170544 ){\circle*{.04}}
\put( 3.330088 , 4.186381 ){\circle*{.04}}
\put( 3.345796 , 4.202307 ){\circle*{.04}}
\put( 3.361504 , 4.218330 ){\circle*{.04}}
\put( 3.377212 , 4.234457 ){\circle*{.04}}
\put( 3.39292 , 4.250699 ){\circle*{.04}}
\put( 3.408628 , 4.267062 ){\circle*{.04}}
\put( 3.424336 , 4.283556 ){\circle*{.04}}
\put( 3.440044 , 4.300191 ){\circle*{.04}}
\put( 3.455752 , 4.316975 ){\circle*{.04}}
\put( 3.471460 , 4.333919 ){\circle*{.04}}
\put( 3.487168 , 4.351033 ){\circle*{.04}}
\put( 3.502876 , 4.368327 ){\circle*{.04}}
\put( 3.518584 , 4.385811 ){\circle*{.04}}
\put( 3.534292 , 4.403497 ){\circle*{.04}}
\put( 3.550000 , 4.421397 ){\circle*{.04}}
\put( 3.565708 , 4.439522 ){\circle*{.04}}
\put( 3.581416 , 4.457886 ){\circle*{.04}}
\put( 3.597124 , 4.4765 ){\circle*{.04}}
\put( 3.612832 , 4.49538 ){\circle*{.04}}
\put( 3.628540 , 4.514539 ){\circle*{.04}}
\put( 3.644247 , 4.533991 ){\circle*{.04}}
\put( 3.659955 , 4.553753 ){\circle*{.04}}
\put( 3.675663 , 4.57384 ){\circle*{.04}}
\put( 3.691371 , 4.59427 ){\circle*{.04}}
\put( 3.707079 , 4.615061 ){\circle*{.04}}
\put( 3.722787 , 4.636231 ){\circle*{.04}}
\put( 3.738495 , 4.6578 ){\circle*{.04}}
\put( 3.754203 , 4.679790 ){\circle*{.04}}
\put( 3.769911 , 4.70222 ){\circle*{.04}}
\put( 3.785619 , 4.725117 ){\circle*{.04}}
\put( 3.801327 , 4.748502 ){\circle*{.04}}
\put( 3.817035 , 4.772403 ){\circle*{.04}}
\put( 3.832743 , 4.796846 ){\circle*{.04}}
\put( 3.848451 , 4.821859 ){\circle*{.04}}
\put( 3.864159 , 4.847475 ){\circle*{.04}}
\put( 3.879867 , 4.873724 ){\circle*{.04}}
\put( 3.895575 , 4.900641 ){\circle*{.04}}
\put( 3.911283 , 4.928263 ){\circle*{.04}}
\put( 3.92699 , 4.956628 ){\circle*{.04}}
\put( 3.942699 , 4.985777 ){\circle*{.04}}
\put( 3.958407 , 5.015754 ){\circle*{.04}}
\put( 3.974115 , 5.046605 ){\circle*{.04}}
\put( 3.989823 , 5.078379 ){\circle*{.04}}
\put( 4.00553 , 5.11113 ){\circle*{.04}}
\put( 4.021239 , 5.144914 ){\circle*{.04}}
\put( 4.036947 , 5.17979 ){\circle*{.04}}
\put( 4.052655 , 5.215822 ){\circle*{.04}}
\put( 4.068362 , 5.253079 ){\circle*{.04}}
\put( 4.08407 , 5.291632 ){\circle*{.04}}
\put( 4.099778 , 5.331560 ){\circle*{.04}}
\put( 4.115486 , 5.372943 ){\circle*{.04}}
\put( 4.131194 , 5.415871 ){\circle*{.04}}
\put( 4.146902 , 5.460437 ){\circle*{.04}}
\put( 4.16261 , 5.506738 ){\circle*{.04}}
\put( 4.178318 , 5.554880 ){\circle*{.04}}
\put( 4.194026 , 5.604972 ){\circle*{.04}}
\put( 4.209734 , 5.657132 ){\circle*{.04}}
\put( 4.225442 , 5.711478 ){\circle*{.04}}
\put( 4.24115 , 5.768137 ){\circle*{.04}}
\put( 4.256858 , 5.827238 ){\circle*{.04}}
\put( 4.272566 , 5.888909 ){\circle*{.04}}
\put( 4.288274 , 5.953279 ){\circle*{.04}}
\put( 4.303982 , 6.020471 ){\circle*{.04}}
\put( 4.319690 , 6.090599 ){\circle*{.04}}
\put( 4.335398 , 6.163756 ){\circle*{.04}}
\put( 4.351106 , 6.240008 ){\circle*{.04}}
\put( 4.366814 , 6.319379 ){\circle*{.04}}
\put( 4.382522 , 6.401829 ){\circle*{.04}}
\put( 4.398230 , 6.487227 ){\circle*{.04}}
\put( 4.413938 , 6.575317 ){\circle*{.04}}
\put( 4.429646 , 6.665665 ){\circle*{.04}}
\put( 4.445354 , 6.75759 ){\circle*{.04}}
\put( 4.461062 , 6.850077 ){\circle*{.04}}
\put( 4.476770 , 6.941649 ){\circle*{.04}}
\put( 4.492477 , 7.03021 ){\circle*{.04}}
\put( 4.508185 , 7.112837 ){\circle*{.04}}
\put( 4.523893 , 7.185515 ){\circle*{.04}}
\put( 4.539601 , 7.242822 ){\circle*{.04}}
\put( 4.555309 , 7.277582 ){\circle*{.04}}
\put( 4.571017 , 7.280518 ){\circle*{.04}}
\put( 4.586725 , 7.240033 ){\circle*{.04}}
\put( 4.602433 , 7.142289 ){\circle*{.04}}
\put( 4.618141 , 6.971888 ){\circle*{.04}}
\put( 4.633849 , 6.713512 ){\circle*{.04}}
\put( 4.649557 , 6.354834 ){\circle*{.04}}
\put( 4.665265 , 5.890615 ){\circle*{.04}}
\put( 4.680973 , 5.327164 ){\circle*{.04}}
\put( 4.696681 , 4.685346 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.728097 , 3.314654 ){\circle*{.04}}
\put( 4.743805 , 2.672836 ){\circle*{.04}}
\put( 4.759513 , 2.109385 ){\circle*{.04}}
\put( 4.77522 , 1.645166 ){\circle*{.04}}
\put( 4.790929 , 1.286488 ){\circle*{.04}}
\put( 4.806637 , 1.028112 ){\circle*{.04}}
\put( 4.822345 , .85771 ){\circle*{.04}}
\put( 4.838053 , .759967 ){\circle*{.04}}
\put( 4.85376 , .719482 ){\circle*{.04}}
\put( 4.869469 , .722418 ){\circle*{.04}}
\put( 4.885177 , .757178 ){\circle*{.04}}
\put( 4.900885 , .814485 ){\circle*{.04}}
\put( 4.916593 , .887163 ){\circle*{.04}}
\put( 4.9323 , .969790 ){\circle*{.04}}
\put( 4.948008 , 1.058351 ){\circle*{.04}}
\put( 4.963716 , 1.149923 ){\circle*{.04}}
\put( 4.979424 , 1.24241 ){\circle*{.04}}
\put( 4.995132 , 1.334335 ){\circle*{.04}}
\put( 5.01084 , 1.424683 ){\circle*{.04}}
\put( 5.026548 , 1.512773 ){\circle*{.04}}
\put( 5.042256 , 1.598171 ){\circle*{.04}}
\put( 5.057964 , 1.680621 ){\circle*{.04}}
\put( 5.073672 , 1.759992 ){\circle*{.04}}
\put( 5.08938 , 1.836244 ){\circle*{.04}}
\put( 5.105088 , 1.909401 ){\circle*{.04}}
\put( 5.120796 , 1.979529 ){\circle*{.04}}
\put( 5.136504 , 2.046721 ){\circle*{.04}}
\put( 5.152212 , 2.111091 ){\circle*{.04}}
\put( 5.16792 , 2.172762 ){\circle*{.04}}
\put( 5.183628 , 2.231863 ){\circle*{.04}}
\put( 5.199336 , 2.288522 ){\circle*{.04}}
\put( 5.215044 , 2.342868 ){\circle*{.04}}
\put( 5.230752 , 2.395028 ){\circle*{.04}}
\put( 5.246460 , 2.44512 ){\circle*{.04}}
\put( 5.262168 , 2.493262 ){\circle*{.04}}
\put( 5.277876 , 2.539563 ){\circle*{.04}}
\put( 5.293584 , 2.584129 ){\circle*{.04}}
\put( 5.309292 , 2.627057 ){\circle*{.04}}
\put( 5.325000 , 2.66844 ){\circle*{.04}}
\put( 5.340708 , 2.708368 ){\circle*{.04}}
\put( 5.356415 , 2.746921 ){\circle*{.04}}
\put( 5.372123 , 2.784178 ){\circle*{.04}}
\put( 5.387831 , 2.82021 ){\circle*{.04}}
\put( 5.403539 , 2.855086 ){\circle*{.04}}
\put( 5.419247 , 2.888870 ){\circle*{.04}}
\put( 5.434955 , 2.92162 ){\circle*{.04}}
\put( 5.450663 , 2.953395 ){\circle*{.04}}
\put( 5.466371 , 2.984246 ){\circle*{.04}}
\put( 5.482079 , 3.014223 ){\circle*{.04}}
\put( 5.497787 , 3.043372 ){\circle*{.04}}
\put( 5.513495 , 3.071737 ){\circle*{.04}}
\put( 5.529203 , 3.099359 ){\circle*{.04}}
\put( 5.544911 , 3.126276 ){\circle*{.04}}
\put( 5.560619 , 3.152525 ){\circle*{.04}}
\put( 5.576327 , 3.17814 ){\circle*{.04}}
\put( 5.592035 , 3.203154 ){\circle*{.04}}
\put( 5.607743 , 3.227597 ){\circle*{.04}}
\put( 5.62345 , 3.251498 ){\circle*{.04}}
\put( 5.639159 , 3.274883 ){\circle*{.04}}
\put( 5.654867 , 3.297779 ){\circle*{.04}}
\put( 5.670575 , 3.32021 ){\circle*{.04}}
\put( 5.686283 , 3.342200 ){\circle*{.04}}
\put( 5.70199 , 3.363769 ){\circle*{.04}}
\put( 5.717699 , 3.384939 ){\circle*{.04}}
\put( 5.733407 , 3.405730 ){\circle*{.04}}
\put( 5.749115 , 3.42616 ){\circle*{.04}}
\put( 5.764823 , 3.446247 ){\circle*{.04}}
\put( 5.78053 , 3.466009 ){\circle*{.04}}
\put( 5.796238 , 3.485461 ){\circle*{.04}}
\put( 5.811946 , 3.50462 ){\circle*{.04}}
\put( 5.827654 , 3.523499 ){\circle*{.04}}
\put( 5.843362 , 3.542114 ){\circle*{.04}}
\put( 5.85907 , 3.560478 ){\circle*{.04}}
\put( 5.874778 , 3.578603 ){\circle*{.04}}
\put( 5.890486 , 3.596503 ){\circle*{.04}}
\put( 5.906194 , 3.614189 ){\circle*{.04}}
\put( 5.921902 , 3.631673 ){\circle*{.04}}
\put( 5.93761 , 3.648967 ){\circle*{.04}}
\put( 5.953318 , 3.66608 ){\circle*{.04}}
\put( 5.969026 , 3.683025 ){\circle*{.04}}
\put( 5.984734 , 3.699809 ){\circle*{.04}}
\put( 6.000442 , 3.716444 ){\circle*{.04}}
\put( 6.01615 , 3.732938 ){\circle*{.04}}
\put( 6.031858 , 3.749301 ){\circle*{.04}}
\put( 6.047566 , 3.765543 ){\circle*{.04}}
\put( 6.063274 , 3.78167 ){\circle*{.04}}
\put( 6.078982 , 3.797693 ){\circle*{.04}}
\put( 6.094690 , 3.813619 ){\circle*{.04}}
\put( 6.110398 , 3.829456 ){\circle*{.04}}
\put( 6.126106 , 3.845213 ){\circle*{.04}}
\put( 6.141814 , 3.860896 ){\circle*{.04}}
\put( 6.157522 , 3.876515 ){\circle*{.04}}
\put( 6.173230 , 3.892075 ){\circle*{.04}}
\put( 6.188938 , 3.907586 ){\circle*{.04}}
\put( 6.204645 , 3.923053 ){\circle*{.04}}
\put( 6.220353 , 3.938485 ){\circle*{.04}}
\put( 6.236061 , 3.953889 ){\circle*{.04}}
\put( 6.251769 , 3.969271 ){\circle*{.04}}
\put( 6.267477 , 3.984639 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>" <----------------------------------------------------------------->
apl>)off
