apl>" <-APL2-------------------- sam291.txt ---------------------------->
apl>Lex 'grapher'
1
apl>Ga grapher b;h;k
[1] "Graph trig functions for real numbers.
[2] "Call format:
[3] " a = Trig. function: 1=sin, 2=cos.
[4] " | b = Number of points to generate.
[5] " | |
[6] " | |
[7] " V V
[8] " 1 grapher 100
[9] h#k,',',[1.5]1.5+aO(O-1)+k#(O2)X(-1+Ib+1)%b
[10] (`Z'\put('),h,`Z'){\circle*{.04}}'
[11] G
apl>1 grapher 100
\put( 0 , 1.5 ){\circle*{.04}}
\put( .06283185 , 1.437209 ){\circle*{.04}}
\put( .1256637 , 1.374667 ){\circle*{.04}}
\put( .18849556 , 1.312619 ){\circle*{.04}}
\put( .25132741 , 1.25131 ){\circle*{.04}}
\put( .31415927 , 1.190983 ){\circle*{.04}}
\put( .37699112 , 1.131875 ){\circle*{.04}}
\put( .43982297 , 1.07422 ){\circle*{.04}}
\put( .502655 , 1.018246 ){\circle*{.04}}
\put( .565487 , .964173 ){\circle*{.04}}
\put( .628319 , .912215 ){\circle*{.04}}
\put( .69115 , .862576 ){\circle*{.04}}
\put( .753982 , .815453 ){\circle*{.04}}
\put( .816814 , .771031 ){\circle*{.04}}
\put( .879646 , .729487 ){\circle*{.04}}
\put( .942478 , .690983 ){\circle*{.04}}
\put( 1.005310 , .655672 ){\circle*{.04}}
\put( 1.068142 , .623693 ){\circle*{.04}}
\put( 1.130973 , .595173 ){\circle*{.04}}
\put( 1.193805 , .570224 ){\circle*{.04}}
\put( 1.256637 , .548943 ){\circle*{.04}}
\put( 1.319469 , .531417 ){\circle*{.04}}
\put( 1.3823 , .517713 ){\circle*{.04}}
\put( 1.445133 , .507885 ){\circle*{.04}}
\put( 1.507964 , .501973 ){\circle*{.04}}
\put( 1.570796 , .5 ){\circle*{.04}}
\put( 1.633628 , .501973 ){\circle*{.04}}
\put( 1.69646 , .507885 ){\circle*{.04}}
\put( 1.759292 , .517713 ){\circle*{.04}}
\put( 1.822124 , .531417 ){\circle*{.04}}
\put( 1.884956 , .548943 ){\circle*{.04}}
\put( 1.947787 , .570224 ){\circle*{.04}}
\put( 2.010619 , .595173 ){\circle*{.04}}
\put( 2.073451 , .623693 ){\circle*{.04}}
\put( 2.136283 , .655672 ){\circle*{.04}}
\put( 2.199115 , .690983 ){\circle*{.04}}
\put( 2.261947 , .729487 ){\circle*{.04}}
\put( 2.324779 , .771031 ){\circle*{.04}}
\put( 2.38761 , .815453 ){\circle*{.04}}
\put( 2.450442 , .862576 ){\circle*{.04}}
\put( 2.513274 , .912215 ){\circle*{.04}}
\put( 2.576106 , .964173 ){\circle*{.04}}
\put( 2.638938 , 1.018246 ){\circle*{.04}}
\put( 2.701770 , 1.07422 ){\circle*{.04}}
\put( 2.764602 , 1.131875 ){\circle*{.04}}
\put( 2.827433 , 1.190983 ){\circle*{.04}}
\put( 2.890265 , 1.25131 ){\circle*{.04}}
\put( 2.953097 , 1.312619 ){\circle*{.04}}
\put( 3.015929 , 1.374667 ){\circle*{.04}}
\put( 3.07876 , 1.437209 ){\circle*{.04}}
\put( 3.141593 , 1.5 ){\circle*{.04}}
\put( 3.204425 , 1.56279 ){\circle*{.04}}
\put( 3.267256 , 1.625333 ){\circle*{.04}}
\put( 3.330088 , 1.687381 ){\circle*{.04}}
\put( 3.39292 , 1.748690 ){\circle*{.04}}
\put( 3.455752 , 1.809017 ){\circle*{.04}}
\put( 3.518584 , 1.868125 ){\circle*{.04}}
\put( 3.581416 , 1.925779 ){\circle*{.04}}
\put( 3.644247 , 1.981754 ){\circle*{.04}}
\put( 3.707079 , 2.035827 ){\circle*{.04}}
\put( 3.769911 , 2.087785 ){\circle*{.04}}
\put( 3.832743 , 2.137424 ){\circle*{.04}}
\put( 3.895575 , 2.184547 ){\circle*{.04}}
\put( 3.958407 , 2.228969 ){\circle*{.04}}
\put( 4.021239 , 2.270513 ){\circle*{.04}}
\put( 4.08407 , 2.309017 ){\circle*{.04}}
\put( 4.146902 , 2.344328 ){\circle*{.04}}
\put( 4.209734 , 2.376307 ){\circle*{.04}}
\put( 4.272566 , 2.404827 ){\circle*{.04}}
\put( 4.335398 , 2.429776 ){\circle*{.04}}
\put( 4.398230 , 2.451057 ){\circle*{.04}}
\put( 4.461062 , 2.468583 ){\circle*{.04}}
\put( 4.523893 , 2.482287 ){\circle*{.04}}
\put( 4.586725 , 2.492115 ){\circle*{.04}}
\put( 4.649557 , 2.498027 ){\circle*{.04}}
\put( 4.712389 , 2.5 ){\circle*{.04}}
\put( 4.77522 , 2.498027 ){\circle*{.04}}
\put( 4.838053 , 2.492115 ){\circle*{.04}}
\put( 4.900885 , 2.482287 ){\circle*{.04}}
\put( 4.963716 , 2.468583 ){\circle*{.04}}
\put( 5.026548 , 2.451057 ){\circle*{.04}}
\put( 5.08938 , 2.429776 ){\circle*{.04}}
\put( 5.152212 , 2.404827 ){\circle*{.04}}
\put( 5.215044 , 2.376307 ){\circle*{.04}}
\put( 5.277876 , 2.344328 ){\circle*{.04}}
\put( 5.340708 , 2.309017 ){\circle*{.04}}
\put( 5.403539 , 2.270513 ){\circle*{.04}}
\put( 5.466371 , 2.228969 ){\circle*{.04}}
\put( 5.529203 , 2.184547 ){\circle*{.04}}
\put( 5.592035 , 2.137424 ){\circle*{.04}}
\put( 5.654867 , 2.087785 ){\circle*{.04}}
\put( 5.717699 , 2.035827 ){\circle*{.04}}
\put( 5.78053 , 1.981754 ){\circle*{.04}}
\put( 5.843362 , 1.925779 ){\circle*{.04}}
\put( 5.906194 , 1.868125 ){\circle*{.04}}
\put( 5.969026 , 1.809017 ){\circle*{.04}}
\put( 6.031858 , 1.748690 ){\circle*{.04}}
\put( 6.094690 , 1.687381 ){\circle*{.04}}
\put( 6.157522 , 1.625333 ){\circle*{.04}}
\put( 6.220353 , 1.56279 ){\circle*{.04}}
\put( 6.283185 , 1.5 ){\circle*{.04}}
apl>2 grapher 100
\put( 0 , .5 ){\circle*{.04}}
\put( .06283185 , .501973 ){\circle*{.04}}
\put( .1256637 , .507885 ){\circle*{.04}}
\put( .18849556 , .517713 ){\circle*{.04}}
\put( .25132741 , .531417 ){\circle*{.04}}
\put( .31415927 , .548943 ){\circle*{.04}}
\put( .37699112 , .570224 ){\circle*{.04}}
\put( .43982297 , .595173 ){\circle*{.04}}
\put( .502655 , .623693 ){\circle*{.04}}
\put( .565487 , .655672 ){\circle*{.04}}
\put( .628319 , .690983 ){\circle*{.04}}
\put( .69115 , .729487 ){\circle*{.04}}
\put( .753982 , .771031 ){\circle*{.04}}
\put( .816814 , .815453 ){\circle*{.04}}
\put( .879646 , .862576 ){\circle*{.04}}
\put( .942478 , .912215 ){\circle*{.04}}
\put( 1.005310 , .964173 ){\circle*{.04}}
\put( 1.068142 , 1.018246 ){\circle*{.04}}
\put( 1.130973 , 1.07422 ){\circle*{.04}}
\put( 1.193805 , 1.131875 ){\circle*{.04}}
\put( 1.256637 , 1.190983 ){\circle*{.04}}
\put( 1.319469 , 1.25131 ){\circle*{.04}}
\put( 1.3823 , 1.312619 ){\circle*{.04}}
\put( 1.445133 , 1.374667 ){\circle*{.04}}
\put( 1.507964 , 1.437209 ){\circle*{.04}}
\put( 1.570796 , 1.5 ){\circle*{.04}}
\put( 1.633628 , 1.56279 ){\circle*{.04}}
\put( 1.69646 , 1.625333 ){\circle*{.04}}
\put( 1.759292 , 1.687381 ){\circle*{.04}}
\put( 1.822124 , 1.748690 ){\circle*{.04}}
\put( 1.884956 , 1.809017 ){\circle*{.04}}
\put( 1.947787 , 1.868125 ){\circle*{.04}}
\put( 2.010619 , 1.925779 ){\circle*{.04}}
\put( 2.073451 , 1.981754 ){\circle*{.04}}
\put( 2.136283 , 2.035827 ){\circle*{.04}}
\put( 2.199115 , 2.087785 ){\circle*{.04}}
\put( 2.261947 , 2.137424 ){\circle*{.04}}
\put( 2.324779 , 2.184547 ){\circle*{.04}}
\put( 2.38761 , 2.228969 ){\circle*{.04}}
\put( 2.450442 , 2.270513 ){\circle*{.04}}
\put( 2.513274 , 2.309017 ){\circle*{.04}}
\put( 2.576106 , 2.344328 ){\circle*{.04}}
\put( 2.638938 , 2.376307 ){\circle*{.04}}
\put( 2.701770 , 2.404827 ){\circle*{.04}}
\put( 2.764602 , 2.429776 ){\circle*{.04}}
\put( 2.827433 , 2.451057 ){\circle*{.04}}
\put( 2.890265 , 2.468583 ){\circle*{.04}}
\put( 2.953097 , 2.482287 ){\circle*{.04}}
\put( 3.015929 , 2.492115 ){\circle*{.04}}
\put( 3.07876 , 2.498027 ){\circle*{.04}}
\put( 3.141593 , 2.5 ){\circle*{.04}}
\put( 3.204425 , 2.498027 ){\circle*{.04}}
\put( 3.267256 , 2.492115 ){\circle*{.04}}
\put( 3.330088 , 2.482287 ){\circle*{.04}}
\put( 3.39292 , 2.468583 ){\circle*{.04}}
\put( 3.455752 , 2.451057 ){\circle*{.04}}
\put( 3.518584 , 2.429776 ){\circle*{.04}}
\put( 3.581416 , 2.404827 ){\circle*{.04}}
\put( 3.644247 , 2.376307 ){\circle*{.04}}
\put( 3.707079 , 2.344328 ){\circle*{.04}}
\put( 3.769911 , 2.309017 ){\circle*{.04}}
\put( 3.832743 , 2.270513 ){\circle*{.04}}
\put( 3.895575 , 2.228969 ){\circle*{.04}}
\put( 3.958407 , 2.184547 ){\circle*{.04}}
\put( 4.021239 , 2.137424 ){\circle*{.04}}
\put( 4.08407 , 2.087785 ){\circle*{.04}}
\put( 4.146902 , 2.035827 ){\circle*{.04}}
\put( 4.209734 , 1.981754 ){\circle*{.04}}
\put( 4.272566 , 1.925779 ){\circle*{.04}}
\put( 4.335398 , 1.868125 ){\circle*{.04}}
\put( 4.398230 , 1.809017 ){\circle*{.04}}
\put( 4.461062 , 1.748690 ){\circle*{.04}}
\put( 4.523893 , 1.687381 ){\circle*{.04}}
\put( 4.586725 , 1.625333 ){\circle*{.04}}
\put( 4.649557 , 1.56279 ){\circle*{.04}}
\put( 4.712389 , 1.5 ){\circle*{.04}}
\put( 4.77522 , 1.437209 ){\circle*{.04}}
\put( 4.838053 , 1.374667 ){\circle*{.04}}
\put( 4.900885 , 1.312619 ){\circle*{.04}}
\put( 4.963716 , 1.25131 ){\circle*{.04}}
\put( 5.026548 , 1.190983 ){\circle*{.04}}
\put( 5.08938 , 1.131875 ){\circle*{.04}}
\put( 5.152212 , 1.07422 ){\circle*{.04}}
\put( 5.215044 , 1.018246 ){\circle*{.04}}
\put( 5.277876 , .964173 ){\circle*{.04}}
\put( 5.340708 , .912215 ){\circle*{.04}}
\put( 5.403539 , .862576 ){\circle*{.04}}
\put( 5.466371 , .815453 ){\circle*{.04}}
\put( 5.529203 , .771031 ){\circle*{.04}}
\put( 5.592035 , .729487 ){\circle*{.04}}
\put( 5.654867 , .690983 ){\circle*{.04}}
\put( 5.717699 , .655672 ){\circle*{.04}}
\put( 5.78053 , .623693 ){\circle*{.04}}
\put( 5.843362 , .595173 ){\circle*{.04}}
\put( 5.906194 , .570224 ){\circle*{.04}}
\put( 5.969026 , .548943 ){\circle*{.04}}
\put( 6.031858 , .531417 ){\circle*{.04}}
\put( 6.094690 , .517713 ){\circle*{.04}}
\put( 6.157522 , .507885 ){\circle*{.04}}
\put( 6.220353 , .501973 ){\circle*{.04}}
\put( 6.283185 , .5 ){\circle*{.04}}
apl>" <----------------------------------------------------------------->
apl>Lex 'tangraph'
1
apl>Ga tangraph b;c;d;e;f;g;h;k
[1] "Graph tangent function for real numbers.
[2] "Call format:
[3] "a = y axis adjustment for displayed graph.
[4] "| b = Number of points to generate.
[5] "| |
[6] "V V
[7] "a tangraph 100
[8] c#((aX2)>f)&0<f#a+3O(O-1)+k#(O2)X(-1+Ib+1)%b
[9] h#(c/k),',',[1.5]c/f
[10] (`Z'\put('),h,`Z'){\circle*{.04}}'
[11] G
apl>4 tangraph 100
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 4.062915 ){\circle*{.04}}
\put( .1256637 , 4.126329 ){\circle*{.04}}
\put( .18849556 , 4.19076 ){\circle*{.04}}
\put( .25132741 , 4.256756 ){\circle*{.04}}
\put( .31415927 , 4.324920 ){\circle*{.04}}
\put( .37699112 , 4.395928 ){\circle*{.04}}
\put( .43982297 , 4.470564 ){\circle*{.04}}
\put( .502655 , 4.549755 ){\circle*{.04}}
\put( .565487 , 4.634619 ){\circle*{.04}}
\put( .628319 , 4.726543 ){\circle*{.04}}
\put( .69115 , 4.827272 ){\circle*{.04}}
\put( .753982 , 4.939063 ){\circle*{.04}}
\put( .816814 , 5.064892 ){\circle*{.04}}
\put( .879646 , 5.208792 ){\circle*{.04}}
\put( .942478 , 5.376382 ){\circle*{.04}}
\put( 1.005310 , 5.575748 ){\circle*{.04}}
\put( 1.068142 , 5.818993 ){\circle*{.04}}
\put( 1.130973 , 6.125108 ){\circle*{.04}}
\put( 1.193805 , 6.525712 ){\circle*{.04}}
\put( 1.256637 , 7.077684 ){\circle*{.04}}
\put( 1.319469 , 7.894743 ){\circle*{.04}}
\put( 1.822124 , .10525715 ){\circle*{.04}}
\put( 1.884956 , .922316 ){\circle*{.04}}
\put( 1.947787 , 1.474288 ){\circle*{.04}}
\put( 2.010619 , 1.874892 ){\circle*{.04}}
\put( 2.073451 , 2.181007 ){\circle*{.04}}
\put( 2.136283 , 2.424252 ){\circle*{.04}}
\put( 2.199115 , 2.623618 ){\circle*{.04}}
\put( 2.261947 , 2.791208 ){\circle*{.04}}
\put( 2.324779 , 2.935108 ){\circle*{.04}}
\put( 2.38761 , 3.060937 ){\circle*{.04}}
\put( 2.450442 , 3.172728 ){\circle*{.04}}
\put( 2.513274 , 3.273457 ){\circle*{.04}}
\put( 2.576106 , 3.36538 ){\circle*{.04}}
\put( 2.638938 , 3.450245 ){\circle*{.04}}
\put( 2.701770 , 3.529436 ){\circle*{.04}}
\put( 2.764602 , 3.604072 ){\circle*{.04}}
\put( 2.827433 , 3.67508 ){\circle*{.04}}
\put( 2.890265 , 3.743244 ){\circle*{.04}}
\put( 2.953097 , 3.809240 ){\circle*{.04}}
\put( 3.015929 , 3.87367 ){\circle*{.04}}
\put( 3.07876 , 3.937085 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 4.062915 ){\circle*{.04}}
\put( 3.267256 , 4.126329 ){\circle*{.04}}
\put( 3.330088 , 4.19076 ){\circle*{.04}}
\put( 3.39292 , 4.256756 ){\circle*{.04}}
\put( 3.455752 , 4.324920 ){\circle*{.04}}
\put( 3.518584 , 4.395928 ){\circle*{.04}}
\put( 3.581416 , 4.470564 ){\circle*{.04}}
\put( 3.644247 , 4.549755 ){\circle*{.04}}
\put( 3.707079 , 4.634619 ){\circle*{.04}}
\put( 3.769911 , 4.726543 ){\circle*{.04}}
\put( 3.832743 , 4.827272 ){\circle*{.04}}
\put( 3.895575 , 4.939063 ){\circle*{.04}}
\put( 3.958407 , 5.064892 ){\circle*{.04}}
\put( 4.021239 , 5.208792 ){\circle*{.04}}
\put( 4.08407 , 5.376382 ){\circle*{.04}}
\put( 4.146902 , 5.575748 ){\circle*{.04}}
\put( 4.209734 , 5.818993 ){\circle*{.04}}
\put( 4.272566 , 6.125108 ){\circle*{.04}}
\put( 4.335398 , 6.525712 ){\circle*{.04}}
\put( 4.398230 , 7.077684 ){\circle*{.04}}
\put( 4.461062 , 7.894743 ){\circle*{.04}}
\put( 4.963716 , .10525715 ){\circle*{.04}}
\put( 5.026548 , .922316 ){\circle*{.04}}
\put( 5.08938 , 1.474288 ){\circle*{.04}}
\put( 5.152212 , 1.874892 ){\circle*{.04}}
\put( 5.215044 , 2.181007 ){\circle*{.04}}
\put( 5.277876 , 2.424252 ){\circle*{.04}}
\put( 5.340708 , 2.623618 ){\circle*{.04}}
\put( 5.403539 , 2.791208 ){\circle*{.04}}
\put( 5.466371 , 2.935108 ){\circle*{.04}}
\put( 5.529203 , 3.060937 ){\circle*{.04}}
\put( 5.592035 , 3.172728 ){\circle*{.04}}
\put( 5.654867 , 3.273457 ){\circle*{.04}}
\put( 5.717699 , 3.36538 ){\circle*{.04}}
\put( 5.78053 , 3.450245 ){\circle*{.04}}
\put( 5.843362 , 3.529436 ){\circle*{.04}}
\put( 5.906194 , 3.604072 ){\circle*{.04}}
\put( 5.969026 , 3.67508 ){\circle*{.04}}
\put( 6.031858 , 3.743244 ){\circle*{.04}}
\put( 6.094690 , 3.809240 ){\circle*{.04}}
\put( 6.157522 , 3.87367 ){\circle*{.04}}
\put( 6.220353 , 3.937085 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>" <----------------------------------------------------------------->
apl>Lex 'hyperbolic'
1
apl>Ga hyperbolic b;c;d;e;f;h;k
[1] "Graph hyperbolic sinh, cosh functions for real numbers.
[2] "Call format:
[3] " a = Trig. function: 5=sinh, 6=cosh.
[4] " | c = Number of points to generate.
[5] " | | d = Midpoint of graph.
[6] " | | |
[7] " V V V
[8] " 5 hyperbolic 100,5
[9] (c d)#b
[10] f#(e<dX2)&0<e#d+aO(O-1)+k#(O2)X(-1+Ic+1)%c
[11] h#(f/k),',',[1.5]f/e
[12] (`Z'\put('),h,`Z'){\circle*{.04}}'
[13] G
apl>5 hyperbolic 100 5
\put( .879646 , .25119235 ){\circle*{.04}}
\put( .942478 , .546936 ){\circle*{.04}}
\put( 1.005310 , .825095 ){\circle*{.04}}
\put( 1.068142 , 1.086765 ){\circle*{.04}}
\put( 1.130973 , 1.332982 ){\circle*{.04}}
\put( 1.193805 , 1.564718 ){\circle*{.04}}
\put( 1.256637 , 1.782887 ){\circle*{.04}}
\put( 1.319469 , 1.988351 ){\circle*{.04}}
\put( 1.3823 , 2.181922 ){\circle*{.04}}
\put( 1.445133 , 2.364364 ){\circle*{.04}}
\put( 1.507964 , 2.536397 ){\circle*{.04}}
\put( 1.570796 , 2.698701 ){\circle*{.04}}
\put( 1.633628 , 2.851917 ){\circle*{.04}}
\put( 1.69646 , 2.99665 ){\circle*{.04}}
\put( 1.759292 , 3.133471 ){\circle*{.04}}
\put( 1.822124 , 3.262922 ){\circle*{.04}}
\put( 1.884956 , 3.385512 ){\circle*{.04}}
\put( 1.947787 , 3.501726 ){\circle*{.04}}
\put( 2.010619 , 3.612024 ){\circle*{.04}}
\put( 2.073451 , 3.71684 ){\circle*{.04}}
\put( 2.136283 , 3.816589 ){\circle*{.04}}
\put( 2.199115 , 3.911664 ){\circle*{.04}}
\put( 2.261947 , 4.002442 ){\circle*{.04}}
\put( 2.324779 , 4.089280 ){\circle*{.04}}
\put( 2.38761 , 4.172521 ){\circle*{.04}}
\put( 2.450442 , 4.252495 ){\circle*{.04}}
\put( 2.513274 , 4.329516 ){\circle*{.04}}
\put( 2.576106 , 4.403890 ){\circle*{.04}}
\put( 2.638938 , 4.475909 ){\circle*{.04}}
\put( 2.701770 , 4.545859 ){\circle*{.04}}
\put( 2.764602 , 4.614015 ){\circle*{.04}}
\put( 2.827433 , 4.680647 ){\circle*{.04}}
\put( 2.890265 , 4.746018 ){\circle*{.04}}
\put( 2.953097 , 4.810386 ){\circle*{.04}}
\put( 3.015929 , 4.874005 ){\circle*{.04}}
\put( 3.07876 , 4.937127 ){\circle*{.04}}
\put( 3.141593 , 5 ){\circle*{.04}}
\put( 3.204425 , 5.062873 ){\circle*{.04}}
\put( 3.267256 , 5.125995 ){\circle*{.04}}
\put( 3.330088 , 5.189614 ){\circle*{.04}}
\put( 3.39292 , 5.253982 ){\circle*{.04}}
\put( 3.455752 , 5.319353 ){\circle*{.04}}
\put( 3.518584 , 5.385985 ){\circle*{.04}}
\put( 3.581416 , 5.454141 ){\circle*{.04}}
\put( 3.644247 , 5.52409 ){\circle*{.04}}
\put( 3.707079 , 5.59611 ){\circle*{.04}}
\put( 3.769911 , 5.670484 ){\circle*{.04}}
\put( 3.832743 , 5.747505 ){\circle*{.04}}
\put( 3.895575 , 5.827479 ){\circle*{.04}}
\put( 3.958407 , 5.91072 ){\circle*{.04}}
\put( 4.021239 , 5.997558 ){\circle*{.04}}
\put( 4.08407 , 6.088336 ){\circle*{.04}}
\put( 4.146902 , 6.183411 ){\circle*{.04}}
\put( 4.209734 , 6.283160 ){\circle*{.04}}
\put( 4.272566 , 6.387976 ){\circle*{.04}}
\put( 4.335398 , 6.498274 ){\circle*{.04}}
\put( 4.398230 , 6.614488 ){\circle*{.04}}
\put( 4.461062 , 6.737078 ){\circle*{.04}}
\put( 4.523893 , 6.866529 ){\circle*{.04}}
\put( 4.586725 , 7.00335 ){\circle*{.04}}
\put( 4.649557 , 7.148083 ){\circle*{.04}}
\put( 4.712389 , 7.301299 ){\circle*{.04}}
\put( 4.77522 , 7.463603 ){\circle*{.04}}
\put( 4.838053 , 7.635636 ){\circle*{.04}}
\put( 4.900885 , 7.818078 ){\circle*{.04}}
\put( 4.963716 , 8.011649 ){\circle*{.04}}
\put( 5.026548 , 8.217113 ){\circle*{.04}}
\put( 5.08938 , 8.435282 ){\circle*{.04}}
\put( 5.152212 , 8.667018 ){\circle*{.04}}
\put( 5.215044 , 8.913235 ){\circle*{.04}}
\put( 5.277876 , 9.174905 ){\circle*{.04}}
\put( 5.340708 , 9.453064 ){\circle*{.04}}
\put( 5.403539 , 9.7488 ){\circle*{.04}}
apl>6 hyperbolic 100 5
\put( .879646 , 9.85296 ){\circle*{.04}}
\put( .942478 , 9.56396 ){\circle*{.04}}
\put( 1.005310 , 9.292998 ){\circle*{.04}}
\put( 1.068142 , 9.038986 ){\circle*{.04}}
\put( 1.130973 , 8.800923 ){\circle*{.04}}
\put( 1.193805 , 8.577871 ){\circle*{.04}}
\put( 1.256637 , 8.368949 ){\circle*{.04}}
\put( 1.319469 , 8.173331 ){\circle*{.04}}
\put( 1.3823 , 7.990245 ){\circle*{.04}}
\put( 1.445133 , 7.818968 ){\circle*{.04}}
\put( 1.507964 , 7.658823 ){\circle*{.04}}
\put( 1.570796 , 7.509178 ){\circle*{.04}}
\put( 1.633628 , 7.369443 ){\circle*{.04}}
\put( 1.69646 , 7.239065 ){\circle*{.04}}
\put( 1.759292 , 7.117529 ){\circle*{.04}}
\put( 1.822124 , 7.004356 ){\circle*{.04}}
\put( 1.884956 , 6.899098 ){\circle*{.04}}
\put( 1.947787 , 6.801339 ){\circle*{.04}}
\put( 2.010619 , 6.710695 ){\circle*{.04}}
\put( 2.073451 , 6.626806 ){\circle*{.04}}
\put( 2.136283 , 6.549342 ){\circle*{.04}}
\put( 2.199115 , 6.477997 ){\circle*{.04}}
\put( 2.261947 , 6.412488 ){\circle*{.04}}
\put( 2.324779 , 6.352557 ){\circle*{.04}}
\put( 2.38761 , 6.297968 ){\circle*{.04}}
\put( 2.450442 , 6.248505 ){\circle*{.04}}
\put( 2.513274 , 6.203972 ){\circle*{.04}}
\put( 2.576106 , 6.164194 ){\circle*{.04}}
\put( 2.638938 , 6.129013 ){\circle*{.04}}
\put( 2.701770 , 6.098291 ){\circle*{.04}}
\put( 2.764602 , 6.071907 ){\circle*{.04}}
\put( 2.827433 , 6.049755 ){\circle*{.04}}
\put( 2.890265 , 6.031749 ){\circle*{.04}}
\put( 2.953097 , 6.017818 ){\circle*{.04}}
\put( 3.015929 , 6.007906 ){\circle*{.04}}
\put( 3.07876 , 6.001975 ){\circle*{.04}}
\put( 3.141593 , 6 ){\circle*{.04}}
\put( 3.204425 , 6.001975 ){\circle*{.04}}
\put( 3.267256 , 6.007906 ){\circle*{.04}}
\put( 3.330088 , 6.017818 ){\circle*{.04}}
\put( 3.39292 , 6.031749 ){\circle*{.04}}
\put( 3.455752 , 6.049755 ){\circle*{.04}}
\put( 3.518584 , 6.071907 ){\circle*{.04}}
\put( 3.581416 , 6.098291 ){\circle*{.04}}
\put( 3.644247 , 6.129013 ){\circle*{.04}}
\put( 3.707079 , 6.164194 ){\circle*{.04}}
\put( 3.769911 , 6.203972 ){\circle*{.04}}
\put( 3.832743 , 6.248505 ){\circle*{.04}}
\put( 3.895575 , 6.297968 ){\circle*{.04}}
\put( 3.958407 , 6.352557 ){\circle*{.04}}
\put( 4.021239 , 6.412488 ){\circle*{.04}}
\put( 4.08407 , 6.477997 ){\circle*{.04}}
\put( 4.146902 , 6.549342 ){\circle*{.04}}
\put( 4.209734 , 6.626806 ){\circle*{.04}}
\put( 4.272566 , 6.710695 ){\circle*{.04}}
\put( 4.335398 , 6.801339 ){\circle*{.04}}
\put( 4.398230 , 6.899098 ){\circle*{.04}}
\put( 4.461062 , 7.004356 ){\circle*{.04}}
\put( 4.523893 , 7.117529 ){\circle*{.04}}
\put( 4.586725 , 7.239065 ){\circle*{.04}}
\put( 4.649557 , 7.369443 ){\circle*{.04}}
\put( 4.712389 , 7.509178 ){\circle*{.04}}
\put( 4.77522 , 7.658823 ){\circle*{.04}}
\put( 4.838053 , 7.818968 ){\circle*{.04}}
\put( 4.900885 , 7.990245 ){\circle*{.04}}
\put( 4.963716 , 8.173331 ){\circle*{.04}}
\put( 5.026548 , 8.368949 ){\circle*{.04}}
\put( 5.08938 , 8.577871 ){\circle*{.04}}
\put( 5.152212 , 8.800923 ){\circle*{.04}}
\put( 5.215044 , 9.038986 ){\circle*{.04}}
\put( 5.277876 , 9.292998 ){\circle*{.04}}
\put( 5.340708 , 9.56396 ){\circle*{.04}}
\put( 5.403539 , 9.85296 ){\circle*{.04}}
apl>)off
