apl>" <-APL2-------------------- sam288.txt ---------------------------->
apl>Lex 'graph'
1
apl>Ga graph b;c;d;e;f;g;h;k;m;s;t;u;v;w
[1] "Graphs the real coefficient of sin, cos
[2] "Call format:
[3] " Trig. function: 1=sin, 2=cos.
[4] " | c = Imaginary coefficient of argument.
[5] " | | d = Number of points to generate.
[6] " | | | e = Adjustment of y axis.
[7] " | | | | f = Top of range of k.
[8] " | | | | | m = 9 for graph of real coeff. 11 for imag.
[9] " | | | | | |
[10] " V V V V V V
[11] " 1 graph 1,100,4,O2,9
[12] (c d e f m)#b
[13] h#(s#k+f%2),',',[1.5]e+g#mOaO(cX0j1)+k#(_f%2)+fX(-1+Id+1)%d
[14] v#1Y(1.5<u)/u#(t=S/t#|g)/s " x coord where maximum occurs
[15] w#(v=s)/g " y coord of maximum
[16] '\put(',(Fv)','(Fw+e+(.075Xw>0)_.155Xw<0),'){n\#',(Fc),'}'
[17] (`Z'\put('),h,`Z'){\circle*{.04}}'
[18] G
apl>1 graph 1,100,4,(O2),9
\put( 1.570796 , 2.301919 ){n\#1}
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 3.903109 ){\circle*{.04}}
\put( .1256637 , 3.8066 ){\circle*{.04}}
\put( .18849556 , 3.710856 ){\circle*{.04}}
\put( .25132741 , 3.616251 ){\circle*{.04}}
\put( .31415927 , 3.523162 ){\circle*{.04}}
\put( .37699112 , 3.431954 ){\circle*{.04}}
\put( .43982297 , 3.342988 ){\circle*{.04}}
\put( .502655 , 3.256615 ){\circle*{.04}}
\put( .565487 , 3.173176 ){\circle*{.04}}
\put( .628319 , 3.093 ){\circle*{.04}}
\put( .69115 , 3.016403 ){\circle*{.04}}
\put( .753982 , 2.943689 ){\circle*{.04}}
\put( .816814 , 2.875143 ){\circle*{.04}}
\put( .879646 , 2.811036 ){\circle*{.04}}
\put( .942478 , 2.751622 ){\circle*{.04}}
\put( 1.005310 , 2.697134 ){\circle*{.04}}
\put( 1.068142 , 2.647788 ){\circle*{.04}}
\put( 1.130973 , 2.603779 ){\circle*{.04}}
\put( 1.193805 , 2.56528 ){\circle*{.04}}
\put( 1.256637 , 2.532443 ){\circle*{.04}}
\put( 1.319469 , 2.505398 ){\circle*{.04}}
\put( 1.3823 , 2.484252 ){\circle*{.04}}
\put( 1.445133 , 2.469087 ){\circle*{.04}}
\put( 1.507964 , 2.459964 ){\circle*{.04}}
\put( 1.570796 , 2.456919 ){\circle*{.04}}
\put( 1.633628 , 2.459964 ){\circle*{.04}}
\put( 1.69646 , 2.469087 ){\circle*{.04}}
\put( 1.759292 , 2.484252 ){\circle*{.04}}
\put( 1.822124 , 2.505398 ){\circle*{.04}}
\put( 1.884956 , 2.532443 ){\circle*{.04}}
\put( 1.947787 , 2.56528 ){\circle*{.04}}
\put( 2.010619 , 2.603779 ){\circle*{.04}}
\put( 2.073451 , 2.647788 ){\circle*{.04}}
\put( 2.136283 , 2.697134 ){\circle*{.04}}
\put( 2.199115 , 2.751622 ){\circle*{.04}}
\put( 2.261947 , 2.811036 ){\circle*{.04}}
\put( 2.324779 , 2.875143 ){\circle*{.04}}
\put( 2.38761 , 2.943689 ){\circle*{.04}}
\put( 2.450442 , 3.016403 ){\circle*{.04}}
\put( 2.513274 , 3.093 ){\circle*{.04}}
\put( 2.576106 , 3.173176 ){\circle*{.04}}
\put( 2.638938 , 3.256615 ){\circle*{.04}}
\put( 2.701770 , 3.342988 ){\circle*{.04}}
\put( 2.764602 , 3.431954 ){\circle*{.04}}
\put( 2.827433 , 3.523162 ){\circle*{.04}}
\put( 2.890265 , 3.616251 ){\circle*{.04}}
\put( 2.953097 , 3.710856 ){\circle*{.04}}
\put( 3.015929 , 3.8066 ){\circle*{.04}}
\put( 3.07876 , 3.903109 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 4.09689 ){\circle*{.04}}
\put( 3.267256 , 4.193399 ){\circle*{.04}}
\put( 3.330088 , 4.289144 ){\circle*{.04}}
\put( 3.39292 , 4.383749 ){\circle*{.04}}
\put( 3.455752 , 4.476838 ){\circle*{.04}}
\put( 3.518584 , 4.568046 ){\circle*{.04}}
\put( 3.581416 , 4.657012 ){\circle*{.04}}
\put( 3.644247 , 4.743385 ){\circle*{.04}}
\put( 3.707079 , 4.826824 ){\circle*{.04}}
\put( 3.769911 , 4.907 ){\circle*{.04}}
\put( 3.832743 , 4.983597 ){\circle*{.04}}
\put( 3.895575 , 5.056311 ){\circle*{.04}}
\put( 3.958407 , 5.124857 ){\circle*{.04}}
\put( 4.021239 , 5.188964 ){\circle*{.04}}
\put( 4.08407 , 5.248378 ){\circle*{.04}}
\put( 4.146902 , 5.302866 ){\circle*{.04}}
\put( 4.209734 , 5.352212 ){\circle*{.04}}
\put( 4.272566 , 5.396221 ){\circle*{.04}}
\put( 4.335398 , 5.43472 ){\circle*{.04}}
\put( 4.398230 , 5.467557 ){\circle*{.04}}
\put( 4.461062 , 5.494602 ){\circle*{.04}}
\put( 4.523893 , 5.515748 ){\circle*{.04}}
\put( 4.586725 , 5.530913 ){\circle*{.04}}
\put( 4.649557 , 5.540036 ){\circle*{.04}}
\put( 4.712389 , 5.54308 ){\circle*{.04}}
\put( 4.77522 , 5.540036 ){\circle*{.04}}
\put( 4.838053 , 5.530913 ){\circle*{.04}}
\put( 4.900885 , 5.515748 ){\circle*{.04}}
\put( 4.963716 , 5.494602 ){\circle*{.04}}
\put( 5.026548 , 5.467557 ){\circle*{.04}}
\put( 5.08938 , 5.43472 ){\circle*{.04}}
\put( 5.152212 , 5.396221 ){\circle*{.04}}
\put( 5.215044 , 5.352212 ){\circle*{.04}}
\put( 5.277876 , 5.302866 ){\circle*{.04}}
\put( 5.340708 , 5.248378 ){\circle*{.04}}
\put( 5.403539 , 5.188964 ){\circle*{.04}}
\put( 5.466371 , 5.124857 ){\circle*{.04}}
\put( 5.529203 , 5.056311 ){\circle*{.04}}
\put( 5.592035 , 4.983597 ){\circle*{.04}}
\put( 5.654867 , 4.907 ){\circle*{.04}}
\put( 5.717699 , 4.826824 ){\circle*{.04}}
\put( 5.78053 , 4.743385 ){\circle*{.04}}
\put( 5.843362 , 4.657012 ){\circle*{.04}}
\put( 5.906194 , 4.568046 ){\circle*{.04}}
\put( 5.969026 , 4.476838 ){\circle*{.04}}
\put( 6.031858 , 4.383749 ){\circle*{.04}}
\put( 6.094690 , 4.289144 ){\circle*{.04}}
\put( 6.157522 , 4.193399 ){\circle*{.04}}
\put( 6.220353 , 4.09689 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>1 graph 2,100,4,(O2),9
\put( 1.570796 , .0828043 ){n\#2}
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 3.763770 ){\circle*{.04}}
\put( .1256637 , 3.528472 ){\circle*{.04}}
\put( .18849556 , 3.295035 ){\circle*{.04}}
\put( .25132741 , 3.06438 ){\circle*{.04}}
\put( .31415927 , 2.837418 ){\circle*{.04}}
\put( .37699112 , 2.615043 ){\circle*{.04}}
\put( .43982297 , 2.398135 ){\circle*{.04}}
\put( .502655 , 2.187548 ){\circle*{.04}}
\put( .565487 , 1.984115 ){\circle*{.04}}
\put( .628319 , 1.788637 ){\circle*{.04}}
\put( .69115 , 1.601886 ){\circle*{.04}}
\put( .753982 , 1.424600 ){\circle*{.04}}
\put( .816814 , 1.257477 ){\circle*{.04}}
\put( .879646 , 1.101178 ){\circle*{.04}}
\put( .942478 , .956320 ){\circle*{.04}}
\put( 1.005310 , .823473 ){\circle*{.04}}
\put( 1.068142 , .703163 ){\circle*{.04}}
\put( 1.130973 , .595864 ){\circle*{.04}}
\put( 1.193805 , .501999 ){\circle*{.04}}
\put( 1.256637 , .42193927 ){\circle*{.04}}
\put( 1.319469 , .3560006 ){\circle*{.04}}
\put( 1.3823 , .30444314 ){\circle*{.04}}
\put( 1.445133 , .26747035 ){\circle*{.04}}
\put( 1.507964 , .24522814 ){\circle*{.04}}
\put( 1.570796 , .2378043 ){\circle*{.04}}
\put( 1.633628 , .24522814 ){\circle*{.04}}
\put( 1.69646 , .26747035 ){\circle*{.04}}
\put( 1.759292 , .30444314 ){\circle*{.04}}
\put( 1.822124 , .3560006 ){\circle*{.04}}
\put( 1.884956 , .42193927 ){\circle*{.04}}
\put( 1.947787 , .501999 ){\circle*{.04}}
\put( 2.010619 , .595864 ){\circle*{.04}}
\put( 2.073451 , .703163 ){\circle*{.04}}
\put( 2.136283 , .823473 ){\circle*{.04}}
\put( 2.199115 , .956320 ){\circle*{.04}}
\put( 2.261947 , 1.101178 ){\circle*{.04}}
\put( 2.324779 , 1.257477 ){\circle*{.04}}
\put( 2.38761 , 1.424600 ){\circle*{.04}}
\put( 2.450442 , 1.601886 ){\circle*{.04}}
\put( 2.513274 , 1.788637 ){\circle*{.04}}
\put( 2.576106 , 1.984115 ){\circle*{.04}}
\put( 2.638938 , 2.187548 ){\circle*{.04}}
\put( 2.701770 , 2.398135 ){\circle*{.04}}
\put( 2.764602 , 2.615043 ){\circle*{.04}}
\put( 2.827433 , 2.837418 ){\circle*{.04}}
\put( 2.890265 , 3.06438 ){\circle*{.04}}
\put( 2.953097 , 3.295035 ){\circle*{.04}}
\put( 3.015929 , 3.528472 ){\circle*{.04}}
\put( 3.07876 , 3.763770 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 4.23623 ){\circle*{.04}}
\put( 3.267256 , 4.471528 ){\circle*{.04}}
\put( 3.330088 , 4.704965 ){\circle*{.04}}
\put( 3.39292 , 4.93562 ){\circle*{.04}}
\put( 3.455752 , 5.162582 ){\circle*{.04}}
\put( 3.518584 , 5.384957 ){\circle*{.04}}
\put( 3.581416 , 5.601865 ){\circle*{.04}}
\put( 3.644247 , 5.812452 ){\circle*{.04}}
\put( 3.707079 , 6.015885 ){\circle*{.04}}
\put( 3.769911 , 6.211363 ){\circle*{.04}}
\put( 3.832743 , 6.398114 ){\circle*{.04}}
\put( 3.895575 , 6.5754 ){\circle*{.04}}
\put( 3.958407 , 6.742523 ){\circle*{.04}}
\put( 4.021239 , 6.898822 ){\circle*{.04}}
\put( 4.08407 , 7.04368 ){\circle*{.04}}
\put( 4.146902 , 7.176527 ){\circle*{.04}}
\put( 4.209734 , 7.296837 ){\circle*{.04}}
\put( 4.272566 , 7.404136 ){\circle*{.04}}
\put( 4.335398 , 7.498001 ){\circle*{.04}}
\put( 4.398230 , 7.57806 ){\circle*{.04}}
\put( 4.461062 , 7.643999 ){\circle*{.04}}
\put( 4.523893 , 7.695557 ){\circle*{.04}}
\put( 4.586725 , 7.732530 ){\circle*{.04}}
\put( 4.649557 , 7.754772 ){\circle*{.04}}
\put( 4.712389 , 7.762196 ){\circle*{.04}}
\put( 4.77522 , 7.754772 ){\circle*{.04}}
\put( 4.838053 , 7.732530 ){\circle*{.04}}
\put( 4.900885 , 7.695557 ){\circle*{.04}}
\put( 4.963716 , 7.643999 ){\circle*{.04}}
\put( 5.026548 , 7.57806 ){\circle*{.04}}
\put( 5.08938 , 7.498001 ){\circle*{.04}}
\put( 5.152212 , 7.404136 ){\circle*{.04}}
\put( 5.215044 , 7.296837 ){\circle*{.04}}
\put( 5.277876 , 7.176527 ){\circle*{.04}}
\put( 5.340708 , 7.04368 ){\circle*{.04}}
\put( 5.403539 , 6.898822 ){\circle*{.04}}
\put( 5.466371 , 6.742523 ){\circle*{.04}}
\put( 5.529203 , 6.5754 ){\circle*{.04}}
\put( 5.592035 , 6.398114 ){\circle*{.04}}
\put( 5.654867 , 6.211363 ){\circle*{.04}}
\put( 5.717699 , 6.015885 ){\circle*{.04}}
\put( 5.78053 , 5.812452 ){\circle*{.04}}
\put( 5.843362 , 5.601865 ){\circle*{.04}}
\put( 5.906194 , 5.384957 ){\circle*{.04}}
\put( 5.969026 , 5.162582 ){\circle*{.04}}
\put( 6.031858 , 4.93562 ){\circle*{.04}}
\put( 6.094690 , 4.704965 ){\circle*{.04}}
\put( 6.157522 , 4.471528 ){\circle*{.04}}
\put( 6.220353 , 4.23623 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>2 graph 1,100,4,(O2),9
\put( 3.141593 , 5.61808 ){n\#1}
\put( 0 , 2.456919 ){\circle*{.04}}
\put( .06283185 , 2.459964 ){\circle*{.04}}
\put( .1256637 , 2.469087 ){\circle*{.04}}
\put( .18849556 , 2.484252 ){\circle*{.04}}
\put( .25132741 , 2.505398 ){\circle*{.04}}
\put( .31415927 , 2.532443 ){\circle*{.04}}
\put( .37699112 , 2.56528 ){\circle*{.04}}
\put( .43982297 , 2.603779 ){\circle*{.04}}
\put( .502655 , 2.647788 ){\circle*{.04}}
\put( .565487 , 2.697134 ){\circle*{.04}}
\put( .628319 , 2.751622 ){\circle*{.04}}
\put( .69115 , 2.811036 ){\circle*{.04}}
\put( .753982 , 2.875143 ){\circle*{.04}}
\put( .816814 , 2.943689 ){\circle*{.04}}
\put( .879646 , 3.016403 ){\circle*{.04}}
\put( .942478 , 3.093 ){\circle*{.04}}
\put( 1.005310 , 3.173176 ){\circle*{.04}}
\put( 1.068142 , 3.256615 ){\circle*{.04}}
\put( 1.130973 , 3.342988 ){\circle*{.04}}
\put( 1.193805 , 3.431954 ){\circle*{.04}}
\put( 1.256637 , 3.523162 ){\circle*{.04}}
\put( 1.319469 , 3.616251 ){\circle*{.04}}
\put( 1.3823 , 3.710856 ){\circle*{.04}}
\put( 1.445133 , 3.8066 ){\circle*{.04}}
\put( 1.507964 , 3.903109 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.633628 , 4.09689 ){\circle*{.04}}
\put( 1.69646 , 4.193399 ){\circle*{.04}}
\put( 1.759292 , 4.289144 ){\circle*{.04}}
\put( 1.822124 , 4.383749 ){\circle*{.04}}
\put( 1.884956 , 4.476838 ){\circle*{.04}}
\put( 1.947787 , 4.568046 ){\circle*{.04}}
\put( 2.010619 , 4.657012 ){\circle*{.04}}
\put( 2.073451 , 4.743385 ){\circle*{.04}}
\put( 2.136283 , 4.826824 ){\circle*{.04}}
\put( 2.199115 , 4.907 ){\circle*{.04}}
\put( 2.261947 , 4.983597 ){\circle*{.04}}
\put( 2.324779 , 5.056311 ){\circle*{.04}}
\put( 2.38761 , 5.124857 ){\circle*{.04}}
\put( 2.450442 , 5.188964 ){\circle*{.04}}
\put( 2.513274 , 5.248378 ){\circle*{.04}}
\put( 2.576106 , 5.302866 ){\circle*{.04}}
\put( 2.638938 , 5.352212 ){\circle*{.04}}
\put( 2.701770 , 5.396221 ){\circle*{.04}}
\put( 2.764602 , 5.43472 ){\circle*{.04}}
\put( 2.827433 , 5.467557 ){\circle*{.04}}
\put( 2.890265 , 5.494602 ){\circle*{.04}}
\put( 2.953097 , 5.515748 ){\circle*{.04}}
\put( 3.015929 , 5.530913 ){\circle*{.04}}
\put( 3.07876 , 5.540036 ){\circle*{.04}}
\put( 3.141593 , 5.54308 ){\circle*{.04}}
\put( 3.204425 , 5.540036 ){\circle*{.04}}
\put( 3.267256 , 5.530913 ){\circle*{.04}}
\put( 3.330088 , 5.515748 ){\circle*{.04}}
\put( 3.39292 , 5.494602 ){\circle*{.04}}
\put( 3.455752 , 5.467557 ){\circle*{.04}}
\put( 3.518584 , 5.43472 ){\circle*{.04}}
\put( 3.581416 , 5.396221 ){\circle*{.04}}
\put( 3.644247 , 5.352212 ){\circle*{.04}}
\put( 3.707079 , 5.302866 ){\circle*{.04}}
\put( 3.769911 , 5.248378 ){\circle*{.04}}
\put( 3.832743 , 5.188964 ){\circle*{.04}}
\put( 3.895575 , 5.124857 ){\circle*{.04}}
\put( 3.958407 , 5.056311 ){\circle*{.04}}
\put( 4.021239 , 4.983597 ){\circle*{.04}}
\put( 4.08407 , 4.907 ){\circle*{.04}}
\put( 4.146902 , 4.826824 ){\circle*{.04}}
\put( 4.209734 , 4.743385 ){\circle*{.04}}
\put( 4.272566 , 4.657012 ){\circle*{.04}}
\put( 4.335398 , 4.568046 ){\circle*{.04}}
\put( 4.398230 , 4.476838 ){\circle*{.04}}
\put( 4.461062 , 4.383749 ){\circle*{.04}}
\put( 4.523893 , 4.289144 ){\circle*{.04}}
\put( 4.586725 , 4.193399 ){\circle*{.04}}
\put( 4.649557 , 4.09689 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.77522 , 3.903109 ){\circle*{.04}}
\put( 4.838053 , 3.8066 ){\circle*{.04}}
\put( 4.900885 , 3.710856 ){\circle*{.04}}
\put( 4.963716 , 3.616251 ){\circle*{.04}}
\put( 5.026548 , 3.523162 ){\circle*{.04}}
\put( 5.08938 , 3.431954 ){\circle*{.04}}
\put( 5.152212 , 3.342988 ){\circle*{.04}}
\put( 5.215044 , 3.256615 ){\circle*{.04}}
\put( 5.277876 , 3.173176 ){\circle*{.04}}
\put( 5.340708 , 3.093 ){\circle*{.04}}
\put( 5.403539 , 3.016403 ){\circle*{.04}}
\put( 5.466371 , 2.943689 ){\circle*{.04}}
\put( 5.529203 , 2.875143 ){\circle*{.04}}
\put( 5.592035 , 2.811036 ){\circle*{.04}}
\put( 5.654867 , 2.751622 ){\circle*{.04}}
\put( 5.717699 , 2.697134 ){\circle*{.04}}
\put( 5.78053 , 2.647788 ){\circle*{.04}}
\put( 5.843362 , 2.603779 ){\circle*{.04}}
\put( 5.906194 , 2.56528 ){\circle*{.04}}
\put( 5.969026 , 2.532443 ){\circle*{.04}}
\put( 6.031858 , 2.505398 ){\circle*{.04}}
\put( 6.094690 , 2.484252 ){\circle*{.04}}
\put( 6.157522 , 2.469087 ){\circle*{.04}}
\put( 6.220353 , 2.459964 ){\circle*{.04}}
\put( 6.283185 , 2.456919 ){\circle*{.04}}
apl>2 graph 2,100,4,(O2),9
\put( 3.141593 , 7.837196 ){n\#2}
\put( 0 , .2378043 ){\circle*{.04}}
\put( .06283185 , .24522814 ){\circle*{.04}}
\put( .1256637 , .26747035 ){\circle*{.04}}
\put( .18849556 , .30444314 ){\circle*{.04}}
\put( .25132741 , .3560006 ){\circle*{.04}}
\put( .31415927 , .42193927 ){\circle*{.04}}
\put( .37699112 , .501999 ){\circle*{.04}}
\put( .43982297 , .595864 ){\circle*{.04}}
\put( .502655 , .703163 ){\circle*{.04}}
\put( .565487 , .823473 ){\circle*{.04}}
\put( .628319 , .956320 ){\circle*{.04}}
\put( .69115 , 1.101178 ){\circle*{.04}}
\put( .753982 , 1.257477 ){\circle*{.04}}
\put( .816814 , 1.424600 ){\circle*{.04}}
\put( .879646 , 1.601886 ){\circle*{.04}}
\put( .942478 , 1.788637 ){\circle*{.04}}
\put( 1.005310 , 1.984115 ){\circle*{.04}}
\put( 1.068142 , 2.187548 ){\circle*{.04}}
\put( 1.130973 , 2.398135 ){\circle*{.04}}
\put( 1.193805 , 2.615043 ){\circle*{.04}}
\put( 1.256637 , 2.837418 ){\circle*{.04}}
\put( 1.319469 , 3.06438 ){\circle*{.04}}
\put( 1.3823 , 3.295035 ){\circle*{.04}}
\put( 1.445133 , 3.528472 ){\circle*{.04}}
\put( 1.507964 , 3.763770 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.633628 , 4.23623 ){\circle*{.04}}
\put( 1.69646 , 4.471528 ){\circle*{.04}}
\put( 1.759292 , 4.704965 ){\circle*{.04}}
\put( 1.822124 , 4.93562 ){\circle*{.04}}
\put( 1.884956 , 5.162582 ){\circle*{.04}}
\put( 1.947787 , 5.384957 ){\circle*{.04}}
\put( 2.010619 , 5.601865 ){\circle*{.04}}
\put( 2.073451 , 5.812452 ){\circle*{.04}}
\put( 2.136283 , 6.015885 ){\circle*{.04}}
\put( 2.199115 , 6.211363 ){\circle*{.04}}
\put( 2.261947 , 6.398114 ){\circle*{.04}}
\put( 2.324779 , 6.5754 ){\circle*{.04}}
\put( 2.38761 , 6.742523 ){\circle*{.04}}
\put( 2.450442 , 6.898822 ){\circle*{.04}}
\put( 2.513274 , 7.04368 ){\circle*{.04}}
\put( 2.576106 , 7.176527 ){\circle*{.04}}
\put( 2.638938 , 7.296837 ){\circle*{.04}}
\put( 2.701770 , 7.404136 ){\circle*{.04}}
\put( 2.764602 , 7.498001 ){\circle*{.04}}
\put( 2.827433 , 7.57806 ){\circle*{.04}}
\put( 2.890265 , 7.643999 ){\circle*{.04}}
\put( 2.953097 , 7.695557 ){\circle*{.04}}
\put( 3.015929 , 7.732530 ){\circle*{.04}}
\put( 3.07876 , 7.754772 ){\circle*{.04}}
\put( 3.141593 , 7.762196 ){\circle*{.04}}
\put( 3.204425 , 7.754772 ){\circle*{.04}}
\put( 3.267256 , 7.732530 ){\circle*{.04}}
\put( 3.330088 , 7.695557 ){\circle*{.04}}
\put( 3.39292 , 7.643999 ){\circle*{.04}}
\put( 3.455752 , 7.57806 ){\circle*{.04}}
\put( 3.518584 , 7.498001 ){\circle*{.04}}
\put( 3.581416 , 7.404136 ){\circle*{.04}}
\put( 3.644247 , 7.296837 ){\circle*{.04}}
\put( 3.707079 , 7.176527 ){\circle*{.04}}
\put( 3.769911 , 7.04368 ){\circle*{.04}}
\put( 3.832743 , 6.898822 ){\circle*{.04}}
\put( 3.895575 , 6.742523 ){\circle*{.04}}
\put( 3.958407 , 6.5754 ){\circle*{.04}}
\put( 4.021239 , 6.398114 ){\circle*{.04}}
\put( 4.08407 , 6.211363 ){\circle*{.04}}
\put( 4.146902 , 6.015885 ){\circle*{.04}}
\put( 4.209734 , 5.812452 ){\circle*{.04}}
\put( 4.272566 , 5.601865 ){\circle*{.04}}
\put( 4.335398 , 5.384957 ){\circle*{.04}}
\put( 4.398230 , 5.162582 ){\circle*{.04}}
\put( 4.461062 , 4.93562 ){\circle*{.04}}
\put( 4.523893 , 4.704965 ){\circle*{.04}}
\put( 4.586725 , 4.471528 ){\circle*{.04}}
\put( 4.649557 , 4.23623 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.77522 , 3.763770 ){\circle*{.04}}
\put( 4.838053 , 3.528472 ){\circle*{.04}}
\put( 4.900885 , 3.295035 ){\circle*{.04}}
\put( 4.963716 , 3.06438 ){\circle*{.04}}
\put( 5.026548 , 2.837418 ){\circle*{.04}}
\put( 5.08938 , 2.615043 ){\circle*{.04}}
\put( 5.152212 , 2.398135 ){\circle*{.04}}
\put( 5.215044 , 2.187548 ){\circle*{.04}}
\put( 5.277876 , 1.984115 ){\circle*{.04}}
\put( 5.340708 , 1.788637 ){\circle*{.04}}
\put( 5.403539 , 1.601886 ){\circle*{.04}}
\put( 5.466371 , 1.424600 ){\circle*{.04}}
\put( 5.529203 , 1.257477 ){\circle*{.04}}
\put( 5.592035 , 1.101178 ){\circle*{.04}}
\put( 5.654867 , .956320 ){\circle*{.04}}
\put( 5.717699 , .823473 ){\circle*{.04}}
\put( 5.78053 , .703163 ){\circle*{.04}}
\put( 5.843362 , .595864 ){\circle*{.04}}
\put( 5.906194 , .501999 ){\circle*{.04}}
\put( 5.969026 , .42193927 ){\circle*{.04}}
\put( 6.031858 , .3560006 ){\circle*{.04}}
\put( 6.094690 , .30444314 ){\circle*{.04}}
\put( 6.157522 , .26747035 ){\circle*{.04}}
\put( 6.220353 , .24522814 ){\circle*{.04}}
\put( 6.283185 , .2378043 ){\circle*{.04}}
apl>1 graph 1,100,4,(O2),11
\put( 3.141593 , 5.250201 ){n\#1}
\put( 0 , 2.824799 ){\circle*{.04}}
\put( .06283185 , 2.827118 ){\circle*{.04}}
\put( .1256637 , 2.834066 ){\circle*{.04}}
\put( .18849556 , 2.845615 ){\circle*{.04}}
\put( .25132741 , 2.86172 ){\circle*{.04}}
\put( .31415927 , 2.882317 ){\circle*{.04}}
\put( .37699112 , 2.907326 ){\circle*{.04}}
\put( .43982297 , 2.936646 ){\circle*{.04}}
\put( .502655 , 2.970163 ){\circle*{.04}}
\put( .565487 , 3.007745 ){\circle*{.04}}
\put( .628319 , 3.049242 ){\circle*{.04}}
\put( .69115 , 3.094492 ){\circle*{.04}}
\put( .753982 , 3.143315 ){\circle*{.04}}
\put( .816814 , 3.195519 ){\circle*{.04}}
\put( .879646 , 3.250899 ){\circle*{.04}}
\put( .942478 , 3.309234 ){\circle*{.04}}
\put( 1.005310 , 3.370296 ){\circle*{.04}}
\put( 1.068142 , 3.433843 ){\circle*{.04}}
\put( 1.130973 , 3.499624 ){\circle*{.04}}
\put( 1.193805 , 3.567380 ){\circle*{.04}}
\put( 1.256637 , 3.636843 ){\circle*{.04}}
\put( 1.319469 , 3.707739 ){\circle*{.04}}
\put( 1.3823 , 3.779789 ){\circle*{.04}}
\put( 1.445133 , 3.852708 ){\circle*{.04}}
\put( 1.507964 , 3.926209 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.633628 , 4.073791 ){\circle*{.04}}
\put( 1.69646 , 4.147292 ){\circle*{.04}}
\put( 1.759292 , 4.22021 ){\circle*{.04}}
\put( 1.822124 , 4.29226 ){\circle*{.04}}
\put( 1.884956 , 4.363157 ){\circle*{.04}}
\put( 1.947787 , 4.43262 ){\circle*{.04}}
\put( 2.010619 , 4.500376 ){\circle*{.04}}
\put( 2.073451 , 4.566157 ){\circle*{.04}}
\put( 2.136283 , 4.629704 ){\circle*{.04}}
\put( 2.199115 , 4.690766 ){\circle*{.04}}
\put( 2.261947 , 4.749101 ){\circle*{.04}}
\put( 2.324779 , 4.80448 ){\circle*{.04}}
\put( 2.38761 , 4.856685 ){\circle*{.04}}
\put( 2.450442 , 4.905508 ){\circle*{.04}}
\put( 2.513274 , 4.950758 ){\circle*{.04}}
\put( 2.576106 , 4.992255 ){\circle*{.04}}
\put( 2.638938 , 5.029837 ){\circle*{.04}}
\put( 2.701770 , 5.063354 ){\circle*{.04}}
\put( 2.764602 , 5.092674 ){\circle*{.04}}
\put( 2.827433 , 5.117683 ){\circle*{.04}}
\put( 2.890265 , 5.13828 ){\circle*{.04}}
\put( 2.953097 , 5.154385 ){\circle*{.04}}
\put( 3.015929 , 5.165934 ){\circle*{.04}}
\put( 3.07876 , 5.172882 ){\circle*{.04}}
\put( 3.141593 , 5.175201 ){\circle*{.04}}
\put( 3.204425 , 5.172882 ){\circle*{.04}}
\put( 3.267256 , 5.165934 ){\circle*{.04}}
\put( 3.330088 , 5.154385 ){\circle*{.04}}
\put( 3.39292 , 5.13828 ){\circle*{.04}}
\put( 3.455752 , 5.117683 ){\circle*{.04}}
\put( 3.518584 , 5.092674 ){\circle*{.04}}
\put( 3.581416 , 5.063354 ){\circle*{.04}}
\put( 3.644247 , 5.029837 ){\circle*{.04}}
\put( 3.707079 , 4.992255 ){\circle*{.04}}
\put( 3.769911 , 4.950758 ){\circle*{.04}}
\put( 3.832743 , 4.905508 ){\circle*{.04}}
\put( 3.895575 , 4.856685 ){\circle*{.04}}
\put( 3.958407 , 4.80448 ){\circle*{.04}}
\put( 4.021239 , 4.749101 ){\circle*{.04}}
\put( 4.08407 , 4.690766 ){\circle*{.04}}
\put( 4.146902 , 4.629704 ){\circle*{.04}}
\put( 4.209734 , 4.566157 ){\circle*{.04}}
\put( 4.272566 , 4.500376 ){\circle*{.04}}
\put( 4.335398 , 4.43262 ){\circle*{.04}}
\put( 4.398230 , 4.363157 ){\circle*{.04}}
\put( 4.461062 , 4.29226 ){\circle*{.04}}
\put( 4.523893 , 4.22021 ){\circle*{.04}}
\put( 4.586725 , 4.147292 ){\circle*{.04}}
\put( 4.649557 , 4.073791 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.77522 , 3.926209 ){\circle*{.04}}
\put( 4.838053 , 3.852708 ){\circle*{.04}}
\put( 4.900885 , 3.779789 ){\circle*{.04}}
\put( 4.963716 , 3.707739 ){\circle*{.04}}
\put( 5.026548 , 3.636843 ){\circle*{.04}}
\put( 5.08938 , 3.567380 ){\circle*{.04}}
\put( 5.152212 , 3.499624 ){\circle*{.04}}
\put( 5.215044 , 3.433843 ){\circle*{.04}}
\put( 5.277876 , 3.370296 ){\circle*{.04}}
\put( 5.340708 , 3.309234 ){\circle*{.04}}
\put( 5.403539 , 3.250899 ){\circle*{.04}}
\put( 5.466371 , 3.195519 ){\circle*{.04}}
\put( 5.529203 , 3.143315 ){\circle*{.04}}
\put( 5.592035 , 3.094492 ){\circle*{.04}}
\put( 5.654867 , 3.049242 ){\circle*{.04}}
\put( 5.717699 , 3.007745 ){\circle*{.04}}
\put( 5.78053 , 2.970163 ){\circle*{.04}}
\put( 5.843362 , 2.936646 ){\circle*{.04}}
\put( 5.906194 , 2.907326 ){\circle*{.04}}
\put( 5.969026 , 2.882317 ){\circle*{.04}}
\put( 6.031858 , 2.86172 ){\circle*{.04}}
\put( 6.094690 , 2.845615 ){\circle*{.04}}
\put( 6.157522 , 2.834066 ){\circle*{.04}}
\put( 6.220353 , 2.827118 ){\circle*{.04}}
\put( 6.283185 , 2.824799 ){\circle*{.04}}
apl>1 graph 2,100,4,(O2),11
\put( 3.141593 , 7.70186 ){n\#2}
\put( 0 , .37313959 ){\circle*{.04}}
\put( .06283185 , .38029637 ){\circle*{.04}}
\put( .1256637 , .40173847 ){\circle*{.04}}
\put( .18849556 , .43738126 ){\circle*{.04}}
\put( .25132741 , .48708408 ){\circle*{.04}}
\put( .31415927 , .55065 ){\circle*{.04}}
\put( .37699112 , .62783 ){\circle*{.04}}
\put( .43982297 , .718319 ){\circle*{.04}}
\put( .502655 , .821758 ){\circle*{.04}}
\put( .565487 , .93774 ){\circle*{.04}}
\put( .628319 , 1.065808 ){\circle*{.04}}
\put( .69115 , 1.205456 ){\circle*{.04}}
\put( .753982 , 1.356133 ){\circle*{.04}}
\put( .816814 , 1.517243 ){\circle*{.04}}
\put( .879646 , 1.688152 ){\circle*{.04}}
\put( .942478 , 1.868185 ){\circle*{.04}}
\put( 1.005310 , 2.056631 ){\circle*{.04}}
\put( 1.068142 , 2.252747 ){\circle*{.04}}
\put( 1.130973 , 2.455758 ){\circle*{.04}}
\put( 1.193805 , 2.664864 ){\circle*{.04}}
\put( 1.256637 , 2.879238 ){\circle*{.04}}
\put( 1.319469 , 3.098036 ){\circle*{.04}}
\put( 1.3823 , 3.320394 ){\circle*{.04}}
\put( 1.445133 , 3.545434 ){\circle*{.04}}
\put( 1.507964 , 3.772268 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.633628 , 4.227732 ){\circle*{.04}}
\put( 1.69646 , 4.454566 ){\circle*{.04}}
\put( 1.759292 , 4.679606 ){\circle*{.04}}
\put( 1.822124 , 4.901964 ){\circle*{.04}}
\put( 1.884956 , 5.120762 ){\circle*{.04}}
\put( 1.947787 , 5.335136 ){\circle*{.04}}
\put( 2.010619 , 5.544242 ){\circle*{.04}}
\put( 2.073451 , 5.747253 ){\circle*{.04}}
\put( 2.136283 , 5.943369 ){\circle*{.04}}
\put( 2.199115 , 6.131815 ){\circle*{.04}}
\put( 2.261947 , 6.311848 ){\circle*{.04}}
\put( 2.324779 , 6.482757 ){\circle*{.04}}
\put( 2.38761 , 6.643867 ){\circle*{.04}}
\put( 2.450442 , 6.794544 ){\circle*{.04}}
\put( 2.513274 , 6.934192 ){\circle*{.04}}
\put( 2.576106 , 7.062260 ){\circle*{.04}}
\put( 2.638938 , 7.178242 ){\circle*{.04}}
\put( 2.701770 , 7.281681 ){\circle*{.04}}
\put( 2.764602 , 7.372170 ){\circle*{.04}}
\put( 2.827433 , 7.449349 ){\circle*{.04}}
\put( 2.890265 , 7.512916 ){\circle*{.04}}
\put( 2.953097 , 7.562619 ){\circle*{.04}}
\put( 3.015929 , 7.598262 ){\circle*{.04}}
\put( 3.07876 , 7.619704 ){\circle*{.04}}
\put( 3.141593 , 7.62686 ){\circle*{.04}}
\put( 3.204425 , 7.619704 ){\circle*{.04}}
\put( 3.267256 , 7.598262 ){\circle*{.04}}
\put( 3.330088 , 7.562619 ){\circle*{.04}}
\put( 3.39292 , 7.512916 ){\circle*{.04}}
\put( 3.455752 , 7.449349 ){\circle*{.04}}
\put( 3.518584 , 7.372170 ){\circle*{.04}}
\put( 3.581416 , 7.281681 ){\circle*{.04}}
\put( 3.644247 , 7.178242 ){\circle*{.04}}
\put( 3.707079 , 7.062260 ){\circle*{.04}}
\put( 3.769911 , 6.934192 ){\circle*{.04}}
\put( 3.832743 , 6.794544 ){\circle*{.04}}
\put( 3.895575 , 6.643867 ){\circle*{.04}}
\put( 3.958407 , 6.482757 ){\circle*{.04}}
\put( 4.021239 , 6.311848 ){\circle*{.04}}
\put( 4.08407 , 6.131815 ){\circle*{.04}}
\put( 4.146902 , 5.943369 ){\circle*{.04}}
\put( 4.209734 , 5.747253 ){\circle*{.04}}
\put( 4.272566 , 5.544242 ){\circle*{.04}}
\put( 4.335398 , 5.335136 ){\circle*{.04}}
\put( 4.398230 , 5.120762 ){\circle*{.04}}
\put( 4.461062 , 4.901964 ){\circle*{.04}}
\put( 4.523893 , 4.679606 ){\circle*{.04}}
\put( 4.586725 , 4.454566 ){\circle*{.04}}
\put( 4.649557 , 4.227732 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.77522 , 3.772268 ){\circle*{.04}}
\put( 4.838053 , 3.545434 ){\circle*{.04}}
\put( 4.900885 , 3.320394 ){\circle*{.04}}
\put( 4.963716 , 3.098036 ){\circle*{.04}}
\put( 5.026548 , 2.879238 ){\circle*{.04}}
\put( 5.08938 , 2.664864 ){\circle*{.04}}
\put( 5.152212 , 2.455758 ){\circle*{.04}}
\put( 5.215044 , 2.252747 ){\circle*{.04}}
\put( 5.277876 , 2.056631 ){\circle*{.04}}
\put( 5.340708 , 1.868185 ){\circle*{.04}}
\put( 5.403539 , 1.688152 ){\circle*{.04}}
\put( 5.466371 , 1.517243 ){\circle*{.04}}
\put( 5.529203 , 1.356133 ){\circle*{.04}}
\put( 5.592035 , 1.205456 ){\circle*{.04}}
\put( 5.654867 , 1.065808 ){\circle*{.04}}
\put( 5.717699 , .93774 ){\circle*{.04}}
\put( 5.78053 , .821758 ){\circle*{.04}}
\put( 5.843362 , .718319 ){\circle*{.04}}
\put( 5.906194 , .62783 ){\circle*{.04}}
\put( 5.969026 , .55065 ){\circle*{.04}}
\put( 6.031858 , .48708408 ){\circle*{.04}}
\put( 6.094690 , .43738126 ){\circle*{.04}}
\put( 6.157522 , .40173847 ){\circle*{.04}}
\put( 6.220353 , .38029637 ){\circle*{.04}}
\put( 6.283185 , .37313959 ){\circle*{.04}}
apl>1 graph -1,100,4,(O2),11
\put( 3.141593 , 2.669799 ){n\#-1}
\put( 0 , 5.175201 ){\circle*{.04}}
\put( .06283185 , 5.172882 ){\circle*{.04}}
\put( .1256637 , 5.165934 ){\circle*{.04}}
\put( .18849556 , 5.154385 ){\circle*{.04}}
\put( .25132741 , 5.13828 ){\circle*{.04}}
\put( .31415927 , 5.117683 ){\circle*{.04}}
\put( .37699112 , 5.092674 ){\circle*{.04}}
\put( .43982297 , 5.063354 ){\circle*{.04}}
\put( .502655 , 5.029837 ){\circle*{.04}}
\put( .565487 , 4.992255 ){\circle*{.04}}
\put( .628319 , 4.950758 ){\circle*{.04}}
\put( .69115 , 4.905508 ){\circle*{.04}}
\put( .753982 , 4.856685 ){\circle*{.04}}
\put( .816814 , 4.80448 ){\circle*{.04}}
\put( .879646 , 4.749101 ){\circle*{.04}}
\put( .942478 , 4.690766 ){\circle*{.04}}
\put( 1.005310 , 4.629704 ){\circle*{.04}}
\put( 1.068142 , 4.566157 ){\circle*{.04}}
\put( 1.130973 , 4.500376 ){\circle*{.04}}
\put( 1.193805 , 4.43262 ){\circle*{.04}}
\put( 1.256637 , 4.363157 ){\circle*{.04}}
\put( 1.319469 , 4.29226 ){\circle*{.04}}
\put( 1.3823 , 4.22021 ){\circle*{.04}}
\put( 1.445133 , 4.147292 ){\circle*{.04}}
\put( 1.507964 , 4.073791 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.633628 , 3.926209 ){\circle*{.04}}
\put( 1.69646 , 3.852708 ){\circle*{.04}}
\put( 1.759292 , 3.779789 ){\circle*{.04}}
\put( 1.822124 , 3.707739 ){\circle*{.04}}
\put( 1.884956 , 3.636843 ){\circle*{.04}}
\put( 1.947787 , 3.567380 ){\circle*{.04}}
\put( 2.010619 , 3.499624 ){\circle*{.04}}
\put( 2.073451 , 3.433843 ){\circle*{.04}}
\put( 2.136283 , 3.370296 ){\circle*{.04}}
\put( 2.199115 , 3.309234 ){\circle*{.04}}
\put( 2.261947 , 3.250899 ){\circle*{.04}}
\put( 2.324779 , 3.195519 ){\circle*{.04}}
\put( 2.38761 , 3.143315 ){\circle*{.04}}
\put( 2.450442 , 3.094492 ){\circle*{.04}}
\put( 2.513274 , 3.049242 ){\circle*{.04}}
\put( 2.576106 , 3.007745 ){\circle*{.04}}
\put( 2.638938 , 2.970163 ){\circle*{.04}}
\put( 2.701770 , 2.936646 ){\circle*{.04}}
\put( 2.764602 , 2.907326 ){\circle*{.04}}
\put( 2.827433 , 2.882317 ){\circle*{.04}}
\put( 2.890265 , 2.86172 ){\circle*{.04}}
\put( 2.953097 , 2.845615 ){\circle*{.04}}
\put( 3.015929 , 2.834066 ){\circle*{.04}}
\put( 3.07876 , 2.827118 ){\circle*{.04}}
\put( 3.141593 , 2.824799 ){\circle*{.04}}
\put( 3.204425 , 2.827118 ){\circle*{.04}}
\put( 3.267256 , 2.834066 ){\circle*{.04}}
\put( 3.330088 , 2.845615 ){\circle*{.04}}
\put( 3.39292 , 2.86172 ){\circle*{.04}}
\put( 3.455752 , 2.882317 ){\circle*{.04}}
\put( 3.518584 , 2.907326 ){\circle*{.04}}
\put( 3.581416 , 2.936646 ){\circle*{.04}}
\put( 3.644247 , 2.970163 ){\circle*{.04}}
\put( 3.707079 , 3.007745 ){\circle*{.04}}
\put( 3.769911 , 3.049242 ){\circle*{.04}}
\put( 3.832743 , 3.094492 ){\circle*{.04}}
\put( 3.895575 , 3.143315 ){\circle*{.04}}
\put( 3.958407 , 3.195519 ){\circle*{.04}}
\put( 4.021239 , 3.250899 ){\circle*{.04}}
\put( 4.08407 , 3.309234 ){\circle*{.04}}
\put( 4.146902 , 3.370296 ){\circle*{.04}}
\put( 4.209734 , 3.433843 ){\circle*{.04}}
\put( 4.272566 , 3.499624 ){\circle*{.04}}
\put( 4.335398 , 3.567380 ){\circle*{.04}}
\put( 4.398230 , 3.636843 ){\circle*{.04}}
\put( 4.461062 , 3.707739 ){\circle*{.04}}
\put( 4.523893 , 3.779789 ){\circle*{.04}}
\put( 4.586725 , 3.852708 ){\circle*{.04}}
\put( 4.649557 , 3.926209 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.77522 , 4.073791 ){\circle*{.04}}
\put( 4.838053 , 4.147292 ){\circle*{.04}}
\put( 4.900885 , 4.22021 ){\circle*{.04}}
\put( 4.963716 , 4.29226 ){\circle*{.04}}
\put( 5.026548 , 4.363157 ){\circle*{.04}}
\put( 5.08938 , 4.43262 ){\circle*{.04}}
\put( 5.152212 , 4.500376 ){\circle*{.04}}
\put( 5.215044 , 4.566157 ){\circle*{.04}}
\put( 5.277876 , 4.629704 ){\circle*{.04}}
\put( 5.340708 , 4.690766 ){\circle*{.04}}
\put( 5.403539 , 4.749101 ){\circle*{.04}}
\put( 5.466371 , 4.80448 ){\circle*{.04}}
\put( 5.529203 , 4.856685 ){\circle*{.04}}
\put( 5.592035 , 4.905508 ){\circle*{.04}}
\put( 5.654867 , 4.950758 ){\circle*{.04}}
\put( 5.717699 , 4.992255 ){\circle*{.04}}
\put( 5.78053 , 5.029837 ){\circle*{.04}}
\put( 5.843362 , 5.063354 ){\circle*{.04}}
\put( 5.906194 , 5.092674 ){\circle*{.04}}
\put( 5.969026 , 5.117683 ){\circle*{.04}}
\put( 6.031858 , 5.13828 ){\circle*{.04}}
\put( 6.094690 , 5.154385 ){\circle*{.04}}
\put( 6.157522 , 5.165934 ){\circle*{.04}}
\put( 6.220353 , 5.172882 ){\circle*{.04}}
\put( 6.283185 , 5.175201 ){\circle*{.04}}
apl>1 graph -2,100,4,(O2),11
\put( 3.141593 , .21813959 ){n\#-2}
\put( 0 , 7.62686 ){\circle*{.04}}
\put( .06283185 , 7.619704 ){\circle*{.04}}
\put( .1256637 , 7.598262 ){\circle*{.04}}
\put( .18849556 , 7.562619 ){\circle*{.04}}
\put( .25132741 , 7.512916 ){\circle*{.04}}
\put( .31415927 , 7.449349 ){\circle*{.04}}
\put( .37699112 , 7.372170 ){\circle*{.04}}
\put( .43982297 , 7.281681 ){\circle*{.04}}
\put( .502655 , 7.178242 ){\circle*{.04}}
\put( .565487 , 7.062260 ){\circle*{.04}}
\put( .628319 , 6.934192 ){\circle*{.04}}
\put( .69115 , 6.794544 ){\circle*{.04}}
\put( .753982 , 6.643867 ){\circle*{.04}}
\put( .816814 , 6.482757 ){\circle*{.04}}
\put( .879646 , 6.311848 ){\circle*{.04}}
\put( .942478 , 6.131815 ){\circle*{.04}}
\put( 1.005310 , 5.943369 ){\circle*{.04}}
\put( 1.068142 , 5.747253 ){\circle*{.04}}
\put( 1.130973 , 5.544242 ){\circle*{.04}}
\put( 1.193805 , 5.335136 ){\circle*{.04}}
\put( 1.256637 , 5.120762 ){\circle*{.04}}
\put( 1.319469 , 4.901964 ){\circle*{.04}}
\put( 1.3823 , 4.679606 ){\circle*{.04}}
\put( 1.445133 , 4.454566 ){\circle*{.04}}
\put( 1.507964 , 4.227732 ){\circle*{.04}}
\put( 1.570796 , 4 ){\circle*{.04}}
\put( 1.633628 , 3.772268 ){\circle*{.04}}
\put( 1.69646 , 3.545434 ){\circle*{.04}}
\put( 1.759292 , 3.320394 ){\circle*{.04}}
\put( 1.822124 , 3.098036 ){\circle*{.04}}
\put( 1.884956 , 2.879238 ){\circle*{.04}}
\put( 1.947787 , 2.664864 ){\circle*{.04}}
\put( 2.010619 , 2.455758 ){\circle*{.04}}
\put( 2.073451 , 2.252747 ){\circle*{.04}}
\put( 2.136283 , 2.056631 ){\circle*{.04}}
\put( 2.199115 , 1.868185 ){\circle*{.04}}
\put( 2.261947 , 1.688152 ){\circle*{.04}}
\put( 2.324779 , 1.517243 ){\circle*{.04}}
\put( 2.38761 , 1.356133 ){\circle*{.04}}
\put( 2.450442 , 1.205456 ){\circle*{.04}}
\put( 2.513274 , 1.065808 ){\circle*{.04}}
\put( 2.576106 , .93774 ){\circle*{.04}}
\put( 2.638938 , .821758 ){\circle*{.04}}
\put( 2.701770 , .718319 ){\circle*{.04}}
\put( 2.764602 , .62783 ){\circle*{.04}}
\put( 2.827433 , .55065 ){\circle*{.04}}
\put( 2.890265 , .48708408 ){\circle*{.04}}
\put( 2.953097 , .43738126 ){\circle*{.04}}
\put( 3.015929 , .40173847 ){\circle*{.04}}
\put( 3.07876 , .38029637 ){\circle*{.04}}
\put( 3.141593 , .37313959 ){\circle*{.04}}
\put( 3.204425 , .38029637 ){\circle*{.04}}
\put( 3.267256 , .40173847 ){\circle*{.04}}
\put( 3.330088 , .43738126 ){\circle*{.04}}
\put( 3.39292 , .48708408 ){\circle*{.04}}
\put( 3.455752 , .55065 ){\circle*{.04}}
\put( 3.518584 , .62783 ){\circle*{.04}}
\put( 3.581416 , .718319 ){\circle*{.04}}
\put( 3.644247 , .821758 ){\circle*{.04}}
\put( 3.707079 , .93774 ){\circle*{.04}}
\put( 3.769911 , 1.065808 ){\circle*{.04}}
\put( 3.832743 , 1.205456 ){\circle*{.04}}
\put( 3.895575 , 1.356133 ){\circle*{.04}}
\put( 3.958407 , 1.517243 ){\circle*{.04}}
\put( 4.021239 , 1.688152 ){\circle*{.04}}
\put( 4.08407 , 1.868185 ){\circle*{.04}}
\put( 4.146902 , 2.056631 ){\circle*{.04}}
\put( 4.209734 , 2.252747 ){\circle*{.04}}
\put( 4.272566 , 2.455758 ){\circle*{.04}}
\put( 4.335398 , 2.664864 ){\circle*{.04}}
\put( 4.398230 , 2.879238 ){\circle*{.04}}
\put( 4.461062 , 3.098036 ){\circle*{.04}}
\put( 4.523893 , 3.320394 ){\circle*{.04}}
\put( 4.586725 , 3.545434 ){\circle*{.04}}
\put( 4.649557 , 3.772268 ){\circle*{.04}}
\put( 4.712389 , 4 ){\circle*{.04}}
\put( 4.77522 , 4.227732 ){\circle*{.04}}
\put( 4.838053 , 4.454566 ){\circle*{.04}}
\put( 4.900885 , 4.679606 ){\circle*{.04}}
\put( 4.963716 , 4.901964 ){\circle*{.04}}
\put( 5.026548 , 5.120762 ){\circle*{.04}}
\put( 5.08938 , 5.335136 ){\circle*{.04}}
\put( 5.152212 , 5.544242 ){\circle*{.04}}
\put( 5.215044 , 5.747253 ){\circle*{.04}}
\put( 5.277876 , 5.943369 ){\circle*{.04}}
\put( 5.340708 , 6.131815 ){\circle*{.04}}
\put( 5.403539 , 6.311848 ){\circle*{.04}}
\put( 5.466371 , 6.482757 ){\circle*{.04}}
\put( 5.529203 , 6.643867 ){\circle*{.04}}
\put( 5.592035 , 6.794544 ){\circle*{.04}}
\put( 5.654867 , 6.934192 ){\circle*{.04}}
\put( 5.717699 , 7.062260 ){\circle*{.04}}
\put( 5.78053 , 7.178242 ){\circle*{.04}}
\put( 5.843362 , 7.281681 ){\circle*{.04}}
\put( 5.906194 , 7.372170 ){\circle*{.04}}
\put( 5.969026 , 7.449349 ){\circle*{.04}}
\put( 6.031858 , 7.512916 ){\circle*{.04}}
\put( 6.094690 , 7.562619 ){\circle*{.04}}
\put( 6.157522 , 7.598262 ){\circle*{.04}}
\put( 6.220353 , 7.619704 ){\circle*{.04}}
\put( 6.283185 , 7.62686 ){\circle*{.04}}
apl>2 graph 1,100,4,(O2),11
\put( 1.570796 , 5.250201 ){n\#1}
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 4.073791 ){\circle*{.04}}
\put( .1256637 , 4.147292 ){\circle*{.04}}
\put( .18849556 , 4.22021 ){\circle*{.04}}
\put( .25132741 , 4.29226 ){\circle*{.04}}
\put( .31415927 , 4.363157 ){\circle*{.04}}
\put( .37699112 , 4.43262 ){\circle*{.04}}
\put( .43982297 , 4.500376 ){\circle*{.04}}
\put( .502655 , 4.566157 ){\circle*{.04}}
\put( .565487 , 4.629704 ){\circle*{.04}}
\put( .628319 , 4.690766 ){\circle*{.04}}
\put( .69115 , 4.749101 ){\circle*{.04}}
\put( .753982 , 4.80448 ){\circle*{.04}}
\put( .816814 , 4.856685 ){\circle*{.04}}
\put( .879646 , 4.905508 ){\circle*{.04}}
\put( .942478 , 4.950758 ){\circle*{.04}}
\put( 1.005310 , 4.992255 ){\circle*{.04}}
\put( 1.068142 , 5.029837 ){\circle*{.04}}
\put( 1.130973 , 5.063354 ){\circle*{.04}}
\put( 1.193805 , 5.092674 ){\circle*{.04}}
\put( 1.256637 , 5.117683 ){\circle*{.04}}
\put( 1.319469 , 5.13828 ){\circle*{.04}}
\put( 1.3823 , 5.154385 ){\circle*{.04}}
\put( 1.445133 , 5.165934 ){\circle*{.04}}
\put( 1.507964 , 5.172882 ){\circle*{.04}}
\put( 1.570796 , 5.175201 ){\circle*{.04}}
\put( 1.633628 , 5.172882 ){\circle*{.04}}
\put( 1.69646 , 5.165934 ){\circle*{.04}}
\put( 1.759292 , 5.154385 ){\circle*{.04}}
\put( 1.822124 , 5.13828 ){\circle*{.04}}
\put( 1.884956 , 5.117683 ){\circle*{.04}}
\put( 1.947787 , 5.092674 ){\circle*{.04}}
\put( 2.010619 , 5.063354 ){\circle*{.04}}
\put( 2.073451 , 5.029837 ){\circle*{.04}}
\put( 2.136283 , 4.992255 ){\circle*{.04}}
\put( 2.199115 , 4.950758 ){\circle*{.04}}
\put( 2.261947 , 4.905508 ){\circle*{.04}}
\put( 2.324779 , 4.856685 ){\circle*{.04}}
\put( 2.38761 , 4.80448 ){\circle*{.04}}
\put( 2.450442 , 4.749101 ){\circle*{.04}}
\put( 2.513274 , 4.690766 ){\circle*{.04}}
\put( 2.576106 , 4.629704 ){\circle*{.04}}
\put( 2.638938 , 4.566157 ){\circle*{.04}}
\put( 2.701770 , 4.500376 ){\circle*{.04}}
\put( 2.764602 , 4.43262 ){\circle*{.04}}
\put( 2.827433 , 4.363157 ){\circle*{.04}}
\put( 2.890265 , 4.29226 ){\circle*{.04}}
\put( 2.953097 , 4.22021 ){\circle*{.04}}
\put( 3.015929 , 4.147292 ){\circle*{.04}}
\put( 3.07876 , 4.073791 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 3.926209 ){\circle*{.04}}
\put( 3.267256 , 3.852708 ){\circle*{.04}}
\put( 3.330088 , 3.779789 ){\circle*{.04}}
\put( 3.39292 , 3.707739 ){\circle*{.04}}
\put( 3.455752 , 3.636843 ){\circle*{.04}}
\put( 3.518584 , 3.567380 ){\circle*{.04}}
\put( 3.581416 , 3.499624 ){\circle*{.04}}
\put( 3.644247 , 3.433843 ){\circle*{.04}}
\put( 3.707079 , 3.370296 ){\circle*{.04}}
\put( 3.769911 , 3.309234 ){\circle*{.04}}
\put( 3.832743 , 3.250899 ){\circle*{.04}}
\put( 3.895575 , 3.195519 ){\circle*{.04}}
\put( 3.958407 , 3.143315 ){\circle*{.04}}
\put( 4.021239 , 3.094492 ){\circle*{.04}}
\put( 4.08407 , 3.049242 ){\circle*{.04}}
\put( 4.146902 , 3.007745 ){\circle*{.04}}
\put( 4.209734 , 2.970163 ){\circle*{.04}}
\put( 4.272566 , 2.936646 ){\circle*{.04}}
\put( 4.335398 , 2.907326 ){\circle*{.04}}
\put( 4.398230 , 2.882317 ){\circle*{.04}}
\put( 4.461062 , 2.86172 ){\circle*{.04}}
\put( 4.523893 , 2.845615 ){\circle*{.04}}
\put( 4.586725 , 2.834066 ){\circle*{.04}}
\put( 4.649557 , 2.827118 ){\circle*{.04}}
\put( 4.712389 , 2.824799 ){\circle*{.04}}
\put( 4.77522 , 2.827118 ){\circle*{.04}}
\put( 4.838053 , 2.834066 ){\circle*{.04}}
\put( 4.900885 , 2.845615 ){\circle*{.04}}
\put( 4.963716 , 2.86172 ){\circle*{.04}}
\put( 5.026548 , 2.882317 ){\circle*{.04}}
\put( 5.08938 , 2.907326 ){\circle*{.04}}
\put( 5.152212 , 2.936646 ){\circle*{.04}}
\put( 5.215044 , 2.970163 ){\circle*{.04}}
\put( 5.277876 , 3.007745 ){\circle*{.04}}
\put( 5.340708 , 3.049242 ){\circle*{.04}}
\put( 5.403539 , 3.094492 ){\circle*{.04}}
\put( 5.466371 , 3.143315 ){\circle*{.04}}
\put( 5.529203 , 3.195519 ){\circle*{.04}}
\put( 5.592035 , 3.250899 ){\circle*{.04}}
\put( 5.654867 , 3.309234 ){\circle*{.04}}
\put( 5.717699 , 3.370296 ){\circle*{.04}}
\put( 5.78053 , 3.433843 ){\circle*{.04}}
\put( 5.843362 , 3.499624 ){\circle*{.04}}
\put( 5.906194 , 3.567380 ){\circle*{.04}}
\put( 5.969026 , 3.636843 ){\circle*{.04}}
\put( 6.031858 , 3.707739 ){\circle*{.04}}
\put( 6.094690 , 3.779789 ){\circle*{.04}}
\put( 6.157522 , 3.852708 ){\circle*{.04}}
\put( 6.220353 , 3.926209 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>2 graph 2,100,4,(O2),11
\put( 1.570796 , 7.70186 ){n\#2}
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 4.227732 ){\circle*{.04}}
\put( .1256637 , 4.454566 ){\circle*{.04}}
\put( .18849556 , 4.679606 ){\circle*{.04}}
\put( .25132741 , 4.901964 ){\circle*{.04}}
\put( .31415927 , 5.120762 ){\circle*{.04}}
\put( .37699112 , 5.335136 ){\circle*{.04}}
\put( .43982297 , 5.544242 ){\circle*{.04}}
\put( .502655 , 5.747253 ){\circle*{.04}}
\put( .565487 , 5.943369 ){\circle*{.04}}
\put( .628319 , 6.131815 ){\circle*{.04}}
\put( .69115 , 6.311848 ){\circle*{.04}}
\put( .753982 , 6.482757 ){\circle*{.04}}
\put( .816814 , 6.643867 ){\circle*{.04}}
\put( .879646 , 6.794544 ){\circle*{.04}}
\put( .942478 , 6.934192 ){\circle*{.04}}
\put( 1.005310 , 7.062260 ){\circle*{.04}}
\put( 1.068142 , 7.178242 ){\circle*{.04}}
\put( 1.130973 , 7.281681 ){\circle*{.04}}
\put( 1.193805 , 7.372170 ){\circle*{.04}}
\put( 1.256637 , 7.449349 ){\circle*{.04}}
\put( 1.319469 , 7.512916 ){\circle*{.04}}
\put( 1.3823 , 7.562619 ){\circle*{.04}}
\put( 1.445133 , 7.598262 ){\circle*{.04}}
\put( 1.507964 , 7.619704 ){\circle*{.04}}
\put( 1.570796 , 7.62686 ){\circle*{.04}}
\put( 1.633628 , 7.619704 ){\circle*{.04}}
\put( 1.69646 , 7.598262 ){\circle*{.04}}
\put( 1.759292 , 7.562619 ){\circle*{.04}}
\put( 1.822124 , 7.512916 ){\circle*{.04}}
\put( 1.884956 , 7.449349 ){\circle*{.04}}
\put( 1.947787 , 7.372170 ){\circle*{.04}}
\put( 2.010619 , 7.281681 ){\circle*{.04}}
\put( 2.073451 , 7.178242 ){\circle*{.04}}
\put( 2.136283 , 7.062260 ){\circle*{.04}}
\put( 2.199115 , 6.934192 ){\circle*{.04}}
\put( 2.261947 , 6.794544 ){\circle*{.04}}
\put( 2.324779 , 6.643867 ){\circle*{.04}}
\put( 2.38761 , 6.482757 ){\circle*{.04}}
\put( 2.450442 , 6.311848 ){\circle*{.04}}
\put( 2.513274 , 6.131815 ){\circle*{.04}}
\put( 2.576106 , 5.943369 ){\circle*{.04}}
\put( 2.638938 , 5.747253 ){\circle*{.04}}
\put( 2.701770 , 5.544242 ){\circle*{.04}}
\put( 2.764602 , 5.335136 ){\circle*{.04}}
\put( 2.827433 , 5.120762 ){\circle*{.04}}
\put( 2.890265 , 4.901964 ){\circle*{.04}}
\put( 2.953097 , 4.679606 ){\circle*{.04}}
\put( 3.015929 , 4.454566 ){\circle*{.04}}
\put( 3.07876 , 4.227732 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 3.772268 ){\circle*{.04}}
\put( 3.267256 , 3.545434 ){\circle*{.04}}
\put( 3.330088 , 3.320394 ){\circle*{.04}}
\put( 3.39292 , 3.098036 ){\circle*{.04}}
\put( 3.455752 , 2.879238 ){\circle*{.04}}
\put( 3.518584 , 2.664864 ){\circle*{.04}}
\put( 3.581416 , 2.455758 ){\circle*{.04}}
\put( 3.644247 , 2.252747 ){\circle*{.04}}
\put( 3.707079 , 2.056631 ){\circle*{.04}}
\put( 3.769911 , 1.868185 ){\circle*{.04}}
\put( 3.832743 , 1.688152 ){\circle*{.04}}
\put( 3.895575 , 1.517243 ){\circle*{.04}}
\put( 3.958407 , 1.356133 ){\circle*{.04}}
\put( 4.021239 , 1.205456 ){\circle*{.04}}
\put( 4.08407 , 1.065808 ){\circle*{.04}}
\put( 4.146902 , .93774 ){\circle*{.04}}
\put( 4.209734 , .821758 ){\circle*{.04}}
\put( 4.272566 , .718319 ){\circle*{.04}}
\put( 4.335398 , .62783 ){\circle*{.04}}
\put( 4.398230 , .55065 ){\circle*{.04}}
\put( 4.461062 , .48708408 ){\circle*{.04}}
\put( 4.523893 , .43738126 ){\circle*{.04}}
\put( 4.586725 , .40173847 ){\circle*{.04}}
\put( 4.649557 , .38029637 ){\circle*{.04}}
\put( 4.712389 , .37313959 ){\circle*{.04}}
\put( 4.77522 , .38029637 ){\circle*{.04}}
\put( 4.838053 , .40173847 ){\circle*{.04}}
\put( 4.900885 , .43738126 ){\circle*{.04}}
\put( 4.963716 , .48708408 ){\circle*{.04}}
\put( 5.026548 , .55065 ){\circle*{.04}}
\put( 5.08938 , .62783 ){\circle*{.04}}
\put( 5.152212 , .718319 ){\circle*{.04}}
\put( 5.215044 , .821758 ){\circle*{.04}}
\put( 5.277876 , .93774 ){\circle*{.04}}
\put( 5.340708 , 1.065808 ){\circle*{.04}}
\put( 5.403539 , 1.205456 ){\circle*{.04}}
\put( 5.466371 , 1.356133 ){\circle*{.04}}
\put( 5.529203 , 1.517243 ){\circle*{.04}}
\put( 5.592035 , 1.688152 ){\circle*{.04}}
\put( 5.654867 , 1.868185 ){\circle*{.04}}
\put( 5.717699 , 2.056631 ){\circle*{.04}}
\put( 5.78053 , 2.252747 ){\circle*{.04}}
\put( 5.843362 , 2.455758 ){\circle*{.04}}
\put( 5.906194 , 2.664864 ){\circle*{.04}}
\put( 5.969026 , 2.879238 ){\circle*{.04}}
\put( 6.031858 , 3.098036 ){\circle*{.04}}
\put( 6.094690 , 3.320394 ){\circle*{.04}}
\put( 6.157522 , 3.545434 ){\circle*{.04}}
\put( 6.220353 , 3.772268 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>2 graph -1,100,4,(O2),11
\put( 1.570796 , 2.669799 ){n\#-1}
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 3.926209 ){\circle*{.04}}
\put( .1256637 , 3.852708 ){\circle*{.04}}
\put( .18849556 , 3.779789 ){\circle*{.04}}
\put( .25132741 , 3.707739 ){\circle*{.04}}
\put( .31415927 , 3.636843 ){\circle*{.04}}
\put( .37699112 , 3.567380 ){\circle*{.04}}
\put( .43982297 , 3.499624 ){\circle*{.04}}
\put( .502655 , 3.433843 ){\circle*{.04}}
\put( .565487 , 3.370296 ){\circle*{.04}}
\put( .628319 , 3.309234 ){\circle*{.04}}
\put( .69115 , 3.250899 ){\circle*{.04}}
\put( .753982 , 3.195519 ){\circle*{.04}}
\put( .816814 , 3.143315 ){\circle*{.04}}
\put( .879646 , 3.094492 ){\circle*{.04}}
\put( .942478 , 3.049242 ){\circle*{.04}}
\put( 1.005310 , 3.007745 ){\circle*{.04}}
\put( 1.068142 , 2.970163 ){\circle*{.04}}
\put( 1.130973 , 2.936646 ){\circle*{.04}}
\put( 1.193805 , 2.907326 ){\circle*{.04}}
\put( 1.256637 , 2.882317 ){\circle*{.04}}
\put( 1.319469 , 2.86172 ){\circle*{.04}}
\put( 1.3823 , 2.845615 ){\circle*{.04}}
\put( 1.445133 , 2.834066 ){\circle*{.04}}
\put( 1.507964 , 2.827118 ){\circle*{.04}}
\put( 1.570796 , 2.824799 ){\circle*{.04}}
\put( 1.633628 , 2.827118 ){\circle*{.04}}
\put( 1.69646 , 2.834066 ){\circle*{.04}}
\put( 1.759292 , 2.845615 ){\circle*{.04}}
\put( 1.822124 , 2.86172 ){\circle*{.04}}
\put( 1.884956 , 2.882317 ){\circle*{.04}}
\put( 1.947787 , 2.907326 ){\circle*{.04}}
\put( 2.010619 , 2.936646 ){\circle*{.04}}
\put( 2.073451 , 2.970163 ){\circle*{.04}}
\put( 2.136283 , 3.007745 ){\circle*{.04}}
\put( 2.199115 , 3.049242 ){\circle*{.04}}
\put( 2.261947 , 3.094492 ){\circle*{.04}}
\put( 2.324779 , 3.143315 ){\circle*{.04}}
\put( 2.38761 , 3.195519 ){\circle*{.04}}
\put( 2.450442 , 3.250899 ){\circle*{.04}}
\put( 2.513274 , 3.309234 ){\circle*{.04}}
\put( 2.576106 , 3.370296 ){\circle*{.04}}
\put( 2.638938 , 3.433843 ){\circle*{.04}}
\put( 2.701770 , 3.499624 ){\circle*{.04}}
\put( 2.764602 , 3.567380 ){\circle*{.04}}
\put( 2.827433 , 3.636843 ){\circle*{.04}}
\put( 2.890265 , 3.707739 ){\circle*{.04}}
\put( 2.953097 , 3.779789 ){\circle*{.04}}
\put( 3.015929 , 3.852708 ){\circle*{.04}}
\put( 3.07876 , 3.926209 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 4.073791 ){\circle*{.04}}
\put( 3.267256 , 4.147292 ){\circle*{.04}}
\put( 3.330088 , 4.22021 ){\circle*{.04}}
\put( 3.39292 , 4.29226 ){\circle*{.04}}
\put( 3.455752 , 4.363157 ){\circle*{.04}}
\put( 3.518584 , 4.43262 ){\circle*{.04}}
\put( 3.581416 , 4.500376 ){\circle*{.04}}
\put( 3.644247 , 4.566157 ){\circle*{.04}}
\put( 3.707079 , 4.629704 ){\circle*{.04}}
\put( 3.769911 , 4.690766 ){\circle*{.04}}
\put( 3.832743 , 4.749101 ){\circle*{.04}}
\put( 3.895575 , 4.80448 ){\circle*{.04}}
\put( 3.958407 , 4.856685 ){\circle*{.04}}
\put( 4.021239 , 4.905508 ){\circle*{.04}}
\put( 4.08407 , 4.950758 ){\circle*{.04}}
\put( 4.146902 , 4.992255 ){\circle*{.04}}
\put( 4.209734 , 5.029837 ){\circle*{.04}}
\put( 4.272566 , 5.063354 ){\circle*{.04}}
\put( 4.335398 , 5.092674 ){\circle*{.04}}
\put( 4.398230 , 5.117683 ){\circle*{.04}}
\put( 4.461062 , 5.13828 ){\circle*{.04}}
\put( 4.523893 , 5.154385 ){\circle*{.04}}
\put( 4.586725 , 5.165934 ){\circle*{.04}}
\put( 4.649557 , 5.172882 ){\circle*{.04}}
\put( 4.712389 , 5.175201 ){\circle*{.04}}
\put( 4.77522 , 5.172882 ){\circle*{.04}}
\put( 4.838053 , 5.165934 ){\circle*{.04}}
\put( 4.900885 , 5.154385 ){\circle*{.04}}
\put( 4.963716 , 5.13828 ){\circle*{.04}}
\put( 5.026548 , 5.117683 ){\circle*{.04}}
\put( 5.08938 , 5.092674 ){\circle*{.04}}
\put( 5.152212 , 5.063354 ){\circle*{.04}}
\put( 5.215044 , 5.029837 ){\circle*{.04}}
\put( 5.277876 , 4.992255 ){\circle*{.04}}
\put( 5.340708 , 4.950758 ){\circle*{.04}}
\put( 5.403539 , 4.905508 ){\circle*{.04}}
\put( 5.466371 , 4.856685 ){\circle*{.04}}
\put( 5.529203 , 4.80448 ){\circle*{.04}}
\put( 5.592035 , 4.749101 ){\circle*{.04}}
\put( 5.654867 , 4.690766 ){\circle*{.04}}
\put( 5.717699 , 4.629704 ){\circle*{.04}}
\put( 5.78053 , 4.566157 ){\circle*{.04}}
\put( 5.843362 , 4.500376 ){\circle*{.04}}
\put( 5.906194 , 4.43262 ){\circle*{.04}}
\put( 5.969026 , 4.363157 ){\circle*{.04}}
\put( 6.031858 , 4.29226 ){\circle*{.04}}
\put( 6.094690 , 4.22021 ){\circle*{.04}}
\put( 6.157522 , 4.147292 ){\circle*{.04}}
\put( 6.220353 , 4.073791 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>2 graph -2,100,4,(O2),11
\put( 1.570796 , .21813959 ){n\#-2}
\put( 0 , 4 ){\circle*{.04}}
\put( .06283185 , 3.772268 ){\circle*{.04}}
\put( .1256637 , 3.545434 ){\circle*{.04}}
\put( .18849556 , 3.320394 ){\circle*{.04}}
\put( .25132741 , 3.098036 ){\circle*{.04}}
\put( .31415927 , 2.879238 ){\circle*{.04}}
\put( .37699112 , 2.664864 ){\circle*{.04}}
\put( .43982297 , 2.455758 ){\circle*{.04}}
\put( .502655 , 2.252747 ){\circle*{.04}}
\put( .565487 , 2.056631 ){\circle*{.04}}
\put( .628319 , 1.868185 ){\circle*{.04}}
\put( .69115 , 1.688152 ){\circle*{.04}}
\put( .753982 , 1.517243 ){\circle*{.04}}
\put( .816814 , 1.356133 ){\circle*{.04}}
\put( .879646 , 1.205456 ){\circle*{.04}}
\put( .942478 , 1.065808 ){\circle*{.04}}
\put( 1.005310 , .93774 ){\circle*{.04}}
\put( 1.068142 , .821758 ){\circle*{.04}}
\put( 1.130973 , .718319 ){\circle*{.04}}
\put( 1.193805 , .62783 ){\circle*{.04}}
\put( 1.256637 , .55065 ){\circle*{.04}}
\put( 1.319469 , .48708408 ){\circle*{.04}}
\put( 1.3823 , .43738126 ){\circle*{.04}}
\put( 1.445133 , .40173847 ){\circle*{.04}}
\put( 1.507964 , .38029637 ){\circle*{.04}}
\put( 1.570796 , .37313959 ){\circle*{.04}}
\put( 1.633628 , .38029637 ){\circle*{.04}}
\put( 1.69646 , .40173847 ){\circle*{.04}}
\put( 1.759292 , .43738126 ){\circle*{.04}}
\put( 1.822124 , .48708408 ){\circle*{.04}}
\put( 1.884956 , .55065 ){\circle*{.04}}
\put( 1.947787 , .62783 ){\circle*{.04}}
\put( 2.010619 , .718319 ){\circle*{.04}}
\put( 2.073451 , .821758 ){\circle*{.04}}
\put( 2.136283 , .93774 ){\circle*{.04}}
\put( 2.199115 , 1.065808 ){\circle*{.04}}
\put( 2.261947 , 1.205456 ){\circle*{.04}}
\put( 2.324779 , 1.356133 ){\circle*{.04}}
\put( 2.38761 , 1.517243 ){\circle*{.04}}
\put( 2.450442 , 1.688152 ){\circle*{.04}}
\put( 2.513274 , 1.868185 ){\circle*{.04}}
\put( 2.576106 , 2.056631 ){\circle*{.04}}
\put( 2.638938 , 2.252747 ){\circle*{.04}}
\put( 2.701770 , 2.455758 ){\circle*{.04}}
\put( 2.764602 , 2.664864 ){\circle*{.04}}
\put( 2.827433 , 2.879238 ){\circle*{.04}}
\put( 2.890265 , 3.098036 ){\circle*{.04}}
\put( 2.953097 , 3.320394 ){\circle*{.04}}
\put( 3.015929 , 3.545434 ){\circle*{.04}}
\put( 3.07876 , 3.772268 ){\circle*{.04}}
\put( 3.141593 , 4 ){\circle*{.04}}
\put( 3.204425 , 4.227732 ){\circle*{.04}}
\put( 3.267256 , 4.454566 ){\circle*{.04}}
\put( 3.330088 , 4.679606 ){\circle*{.04}}
\put( 3.39292 , 4.901964 ){\circle*{.04}}
\put( 3.455752 , 5.120762 ){\circle*{.04}}
\put( 3.518584 , 5.335136 ){\circle*{.04}}
\put( 3.581416 , 5.544242 ){\circle*{.04}}
\put( 3.644247 , 5.747253 ){\circle*{.04}}
\put( 3.707079 , 5.943369 ){\circle*{.04}}
\put( 3.769911 , 6.131815 ){\circle*{.04}}
\put( 3.832743 , 6.311848 ){\circle*{.04}}
\put( 3.895575 , 6.482757 ){\circle*{.04}}
\put( 3.958407 , 6.643867 ){\circle*{.04}}
\put( 4.021239 , 6.794544 ){\circle*{.04}}
\put( 4.08407 , 6.934192 ){\circle*{.04}}
\put( 4.146902 , 7.062260 ){\circle*{.04}}
\put( 4.209734 , 7.178242 ){\circle*{.04}}
\put( 4.272566 , 7.281681 ){\circle*{.04}}
\put( 4.335398 , 7.372170 ){\circle*{.04}}
\put( 4.398230 , 7.449349 ){\circle*{.04}}
\put( 4.461062 , 7.512916 ){\circle*{.04}}
\put( 4.523893 , 7.562619 ){\circle*{.04}}
\put( 4.586725 , 7.598262 ){\circle*{.04}}
\put( 4.649557 , 7.619704 ){\circle*{.04}}
\put( 4.712389 , 7.62686 ){\circle*{.04}}
\put( 4.77522 , 7.619704 ){\circle*{.04}}
\put( 4.838053 , 7.598262 ){\circle*{.04}}
\put( 4.900885 , 7.562619 ){\circle*{.04}}
\put( 4.963716 , 7.512916 ){\circle*{.04}}
\put( 5.026548 , 7.449349 ){\circle*{.04}}
\put( 5.08938 , 7.372170 ){\circle*{.04}}
\put( 5.152212 , 7.281681 ){\circle*{.04}}
\put( 5.215044 , 7.178242 ){\circle*{.04}}
\put( 5.277876 , 7.062260 ){\circle*{.04}}
\put( 5.340708 , 6.934192 ){\circle*{.04}}
\put( 5.403539 , 6.794544 ){\circle*{.04}}
\put( 5.466371 , 6.643867 ){\circle*{.04}}
\put( 5.529203 , 6.482757 ){\circle*{.04}}
\put( 5.592035 , 6.311848 ){\circle*{.04}}
\put( 5.654867 , 6.131815 ){\circle*{.04}}
\put( 5.717699 , 5.943369 ){\circle*{.04}}
\put( 5.78053 , 5.747253 ){\circle*{.04}}
\put( 5.843362 , 5.544242 ){\circle*{.04}}
\put( 5.906194 , 5.335136 ){\circle*{.04}}
\put( 5.969026 , 5.120762 ){\circle*{.04}}
\put( 6.031858 , 4.901964 ){\circle*{.04}}
\put( 6.094690 , 4.679606 ){\circle*{.04}}
\put( 6.157522 , 4.454566 ){\circle*{.04}}
\put( 6.220353 , 4.227732 ){\circle*{.04}}
\put( 6.283185 , 4 ){\circle*{.04}}
apl>" <----------------------------------------------------------------->
apl>)off
