apl>" <-APL2-------------------- sam319.txt ---------------------------->
apl>)run cap2/sample/graph.inc
apl>" <-APL2-------------------- graph.txt ----------------------------->
apl>" Legend describing various global values:
apl>"
apl>" World coordinates(wc) are those of the real data.
apl>" Graph coordinates(gc) are those of the graph.
apl>"
apl>" caption - Override to text for graph caption. If null, a caption
apl>" will be generated. The graph function resets the global
apl>" caption variable to null at the end of its processing.
apl>"
apl>" hk ------ Constant coefficient of input. If xr=1 (see below) then
apl>" hk becomes the constant imaginary coefficient for all
apl>" values of x on the graph. If xr=0, hk will be the constant
apl>" real coefficient.
apl>"
apl>" htl ----- 0 = both, 1 = headers, 2 = trailers, 3 = neither.
apl>"
apl>" maxx ---- Maximum x axis value in world coordinates.
apl>"
apl>" maxy ---- Maximum y axis value in world coordinates.
apl>"
apl>" minx ---- Minimum x axis value in world coordinates.
apl>"
apl>" miny ---- Minimum y axis value in world coordinates.
apl>"
apl>" mgc ----- Vertical margin in graphic coordinates.
apl>"
apl>" n ------- Synonymous with hk (see above). The x values to which
apl>" the function is applied to obtain y values are derived
apl>" by first creating xwc as a vector of integers uniformly
apl>" distributed between minx and maxx inclusive. Then, either
apl>" 'x#(nX0j1)+xwc' or 'x#n+0j1Xxwc' is evaluated.
apl>"
apl>" nlb ----- 1 = Label the curve with the n value.
apl>"
apl>" points -- Number of points to generate.
apl>"
apl>" xgc ----- Array of x values for data points in graph coordinates.
apl>"
apl>" xiv ----- x axis marker interval in world coordinates.
apl>"
apl>" xlin ---- Width of graph in inches.
apl>"
apl>" xpg ----- Divide xwc by xpg to get xgc.
apl>"
apl>" xpi ----- Array of three values for minx, maxx, and xiv, used when
apl>" invoking the graph function and the array of x values
apl>" spans -pi to +pi.
apl>"
apl>" xr ------ 1=vary real x coefficient, 0=vary imaginary coefficient,
apl>" holding the other coefficient to the constant hk (see above.).
apl>"
apl>" xt ------ Used in a variety of places to temporarily generate
apl>" graphics coordinates.
apl>"
apl>" xwc ----- Array of x values in world coordinates.
apl>"
apl>" yadj ---- Adjustment down to print text below a line.
apl>"
apl>" yabm ---- Maximum absolute value (öy) to appear on graph.
apl>"
apl>" ygc ----- Array of y values for data points in graph coordinates.
apl>"
apl>" ylin ---- Height of graph in inches.
apl>"
apl>" ymgn ---- Margin in inches at top and bottom of y axis.
apl>"
apl>" ypg ----- Divide ywc by ypg to get ygc.
apl>"
apl>" yt ------ Used in a variety of places to temporarily generate
apl>" graphics coordinates.
apl>"
apl>" ywc ----- Array of y values for data points in world coordinates.
apl>"
apl>" Set global values. -------------------------------------------->
apl>"
apl>caption#'' " Empty caption causes one to be generated.
apl>i#11 " Circle function code to extract imag. coef. of complex number.
apl>points#200 " Number of data points to generate on graph.
apl>r#9 " Circle function code to extract real coef. of complex number.
apl>xlin#4.5 " Width of graph in inches.
apl>" minx = -3.14159....
apl>" ö maxx = 3.14159....
apl>" ö ö xiv
apl>" ö ö ö
apl>" V V V
apl>xpi#(O-1),(O1),O.25
apl>ylin#6 " Height of graph in inches.
apl>ymgn#.2 " Margin in inches at top and bottom of y axis.
apl>"
apl>" <----------------------------------------------------------------->
apl>" Generates the LaTeX Öput statements for the data points to appear
apl>" on the graph.
apl>"
apl>Lex 'dodata'
1
apl>Gdodata
Ä1Å xgc#(xwc_minx)%xpg " xgc=x graphic coordinates for data points.
Ä2Å ygc#mgc+(ywc_miny)%ypg " ygc=y graphic coordinates for data points.
Ä3Å $bylabXI0=nlb " Branch if the curve is not to be labelled.
Ä4Å '%Label the curve'
Ä5Å xt#1Y(u=S/u#öywc)/xgc " x coord where maximum/mininum occurs
Ä6Å yt#(_yadjX0>vs/ywc)+(vs#xt=xgc)/ygc " y coord of maximum/minimum
Ä7Å " Note: Calculation for yt works only if all minima occur below
Ä8Å " y axis, and all maxima occur above.
Ä9Å pcon,(xt,',',Ä1.5Åyt),`Z')änÖ#',(Fhk),'å'
Ä10Å bylab:'%Draw the data points'
Ä11Å pcon,((xgc#-1U1Uxgc),',',Ä1.5Å(ygc#-1U1Uygc)),circon
Ä12Å G
apl>" <----------------------------------------------------------------->
apl>" Generate xwc and ywc, the arrays of x/y coordinates for the data
apl>" points to appear on the graph.
apl>"
apl>Lex 'genxy'
1
apl>Ggenxy
Ä1Å xwc#minx+(xlwc#maxx_minx)X(-1+Ipoints+1)%points
Ä2Å $varyrealXIxr
Ä3Å x#hk+0j1Xxwc " real part is constant, imaginary varies.
Ä4Å $calcy " Branch to compute values of y for data points.
Ä5Å varyreal:x#(hkX0j1)+xwc " Imaginary is constant, real varies.
Ä6Å calcy:ywc#eOCfun " Compute values of y for data points
Ä7Å ywcm#yabm>öywc " Mask of keepers, magnitudes of y < yabm.
Ä8Å xwc#ywcm/xwc " Pick the keepers.
Ä9Å ywc#ywcm/ywc " Pick the keepers.
Ä10Å G
apl>"
apl>" <----------------------------------------------------------------->
apl>" Main graph routine.
apl>"
apl>Lex 'graph'
1
apl>Gfun graph a
Ä1Å "Graphs the imaginary or real coefficient of result of fun.
Ä2Å " fun = expression to evaluate.
Ä3Å (htl nlb xr e yabm minx maxx xiv hk yiv yca)#a
Ä4Å genxy " Generate the data points.
Ä5Å $dataXIhtl>1 " Branch if htl greater than 1.
Ä6Å scale " Calculate global scaling values.
Ä7Å headers " Generate LaTeX figure headers.
Ä8Å data:dodata " Process and graph data points.
Ä9Å trailers " Generate Latex figure trailers, maybe.
Ä10Å G
apl>"
apl>" <----------------------------------------------------------------->
apl>" Generates the LaTeX statements to begin the graph.
apl>"
apl>Lex 'headers'
1
apl>Gheaders
Ä1Å 'ÖbeginäfigureåÄtbhÅ'
Ä2Å $gencapXI0=Rcaption " Branch if no caption override.
Ä3Å 'Öcaptionä',caption,'å'
Ä4Å $begin
Ä5Å gencap:$realcapXI(xr=1)&hk=0 " Branch if x data are not complex.
Ä6Å $ncaptionXInlb=0 " Branch if curves are not labelled with n value.
Ä7Å 'ÖcaptionäGraph of yÖ#',(Fe),'O',fun,'+nX0j1å'
Ä8Å $begin
Ä9Å ncaption:$cplxcapXIxr " Branch if varying real coefficient.
Ä10Å 'ÖcaptionäGraph of yÖ#',(Fe),'O',(-1Ufun),(Fhk),'+xX0j1å'
Ä11Å $begin
Ä12Å cplxcap:'ÖcaptionäGraph of yÖ#',(Fe),'O',fun,'+(nÖ#',(Fhk),')X0j1å'
Ä13Å $begin
Ä14Å realcap:'ÖcaptionäGraph of yÖ#',fun,'å'
Ä15Å begin:'Öbeginäcenterå'
Ä16Å 'ÖsetlengthäÖunitlengthåä',(Flin),'inå'
Ä17Å 'Öbeginäpictureå(',(Fxlin%lin),',',(Fylin%lin),')'
Ä18Å '%Draw a frame around the picture'
Ä19Å ' Öput(0,0)äÖline(1,0)ä',(Fxlgc),'åå% bottom'
Ä20Å ' Öput(0,0)äÖline(0,1)ä',(Fylgc),'åå% left'
Ä21Å ' Öput(0,',(Fylgc),')äÖline(1,0)ä',(Fxlgc),'åå% top'
Ä22Å ' Öput(',(Fxlgc),',0)äÖline(0,1)ä',(Fylgc),'åå% right'
Ä23Å '%Draw the x axis'
Ä24Å ' Öput(0,',(Fxax),')äÖline(1,0)ä',(Fxlgc),'åå%x axis'
Ä25Å xt#xoff%xpg
Ä26Å pcon,((xt,Ä1.5Å','),xax),circon " Draw the x axis markers.
Ä27Å xt#xt_xpgX.1Xxmk<0
Ä28Å yt#xax+((.05%lin)Xxax=mgc)_yadjXxax>mgc
Ä29Å $dopaxXIpix
Ä30Å '%Draw the x axis marker values'
Ä31Å pcon,xt,',',yt,econ,xmk,Ä1.5Åscon
Ä32Å $doyax
Ä33Å dopax:'%Draw the x axis marker values in pi'
Ä34Å picon#(`Z'Öfracä') ,`1 'Öpiåä4å' 'Öpiåä2å' '3Öpiåä4å'
Ä35Å picon#('-',`1`Rpicon),'0',picon
Ä36Å pcon,xt,',',yt,econ,picon,Ä1.5Åscon
Ä37Å doyax:'%Draw the y axis'
Ä38Å $putymkXI(yax=0)
Ä39Å ' Öput(',(Fyax),',0)äÖline(0,1)ä',(Fylgc),'åå%y axis'
Ä40Å putymk:'%Draw the y axis markers'
Ä41Å ymask#ymk^=0
Ä42Å yt#ymask/mgc+(ymk_miny)%ypg
Ä43Å pcon,yax,',',yt,Ä1.5Åcircon
Ä44Å '%Draw the y axis marker values'
Ä45Å xt#yax+.05%lin
Ä46Å yt#yt_ypgX.1X(ymask/ymk)<0
Ä47Å pcon,xt,',',yt,econ,(ymask/ymk),Ä1.5Åscon
Ä48Å G
apl>"
apl>" <----------------------------------------------------------------->
apl>" Calculates a variety of values needed to produce the graph.
apl>"
apl>Lex 'scale'
1
apl>Gscale
Ä1Å $byyXIyca " Branch if ylwc, maxy, miny are precalculated.
Ä2Å ylwc#(maxy#S/ywc)_miny#D/ywc
Ä3Å byy:ylap#ylin_2Xymgn " ylap=height allowed for data points.
Ä4Å lin#(xlin%xlwc)Dylap%ylwc " unitlength in inches.
Ä5Å yadj#.14%lin " y graphic coordinate adjustment to print text below line.
Ä6Å mgc#ymgn%lin " Margin in graph coordinates.
Ä7Å xpg#xlwc%xlgc#xlin%lin " Divide xwc by xpg to get gc.
Ä8Å ypg#ylwc%(_2Xymgn%lin)+ylgc#ylin%lin " Divide ywc by ypg to get gc.
Ä9Å xax#(yz#(minyK0)&maxyZ0)Xmgc+(öminy)%ypg " xaxis in graph coordinates.
Ä10Å yax#(xz#(minx<0)&maxx>0)X(öminx)%xpg " yaxis in graph coordinates.
Ä11Å $piaxisXIpix#(minx=O-1)&maxx=O1 " branch if pi units on x axis.
Ä12Å xic#(yax=0)+Dxlwc%xiv
Ä13Å $doyiv
Ä14Å piaxis:xic#Dxlwc%xiv#O.25
Ä15Å doyiv:$doyicXIyiv^=0
Ä16Å yiv#10*D10@ylwc
Ä17Å doyic:yic#yic+0=2öyic#Dylwc%yiv
Ä18Å xoff#(I-1+xic)Xxiv " Offset from minx in world coord. of x markers.
Ä19Å yoff#(_yiv)+(Iyic)Xyiv " Offset from miny in world coord. of y markers.
Ä20Å $yoffplusXIminy>0
Ä21Å ymk#yoff+miny+yivööminy
Ä22Å $yoffdone
Ä23Å yoffplus:ymk#yoff+miny_yivöminy " y for y axis markers in world coord.
Ä24Å yoffdone:xmk#minx+xoff " x for x axis markers in world coord.
Ä25Å circon#`Z')äÖcircle*ä',(F.0205%lin),'åå'
Ä26Å scon#`Z'$å'
Ä27Å econ#`Z')ä$'
Ä28Å pcon#`Z' Öput('
Ä29Å G
apl>"
apl>" <----------------------------------------------------------------->
apl>" Generates the LaTeX statements to finish the graph.
apl>"
apl>Lex 'trailers'
1
apl>Gtrailers
Ä1Å $epicXIhtl=0 " Branch if both headers and trailers.
Ä2Å $eojckXInlb " Branch if graph already labelled.
Ä3Å pcon,(1Yxgc+xpgX.1),',',(1Yygc),')ä',fun,'å' " Label the graph.
Ä4Å eojck:$eojXI(htl=1)+htl=3 " br if headers only, or neither.
Ä5Å epic:'Öendäpictureå'
Ä6Å 'Öendäcenterå'
Ä7Å eoj:'%Finis.'
Ä8Å caption#'' " Reset global caption
Ä9Å G
apl>" htl: 0=both, 1=headers, 2=trailers, 3=neither.
apl>" ö nlb 1 = Label the curve.
apl>" ö ö xr = 1=vary real x coeff, 0=vary imaginary coeff.
apl>" ö ö ö e = i(11) or r(9) to select coefficient to graph.
apl>" ö ö ö ö yabm = maximum öy printed on graph.
apl>" ö ö ö ö ö minx = minimum value of x.
apl>" ö ö ö ö ö ö maxx = maximum value of x.
apl>" ö ö ö ö ö ö ö xiv = x axis marker interval.
apl>" ö ö ö ö ö ö ö ö hk = Constant coefficient of input.
apl>" ö ö ö ö ö ö ö ö ö yiv = y axis marker interval, or 0.
apl>" ö ö ö ö ö ö ö ö ö ö yca = ylwc, maxy, miny are precalculated.
apl>" ö ö ö ö ö ö ö ö ö ö ö
apl>" V V V V V V V V V V V
apl> '7Ox' graph 0,0,1,r,1 ,xpi ,0 , 0.1,0 " tanhdata.tex
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#7Oxå
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .716197inå
Öbeginäpictureå(6.283185,8.37758)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä6.283185åå% bottom
Öput(0,0)äÖline(0,1)ä8.37758åå% left
Öput(0,8.37758)äÖline(1,0)ä6.283185åå% top
Öput(6.283185,0)äÖline(0,1)ä8.37758åå% right
%Draw the x axis
Öput(0,4.18879)äÖline(1,0)ä6.283185åå%x axis
Öput( .785398 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 1.570796 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 2.356194 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 3.92699 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 4.712389 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 5.497787 , 4.18879 )äÖcircle*ä .0286234åå
%Draw the x axis marker values in pi
Öput( .685398 , 3.993313 )ä$ -Öfracä3Öpiåä4å $å
Öput( 1.470796 , 3.993313 )ä$ -ÖfracäÖpiåä2å $å
Öput( 2.256194 , 3.993313 )ä$ -ÖfracäÖpiåä4å $å
Öput( 3.141593 , 3.993313 )ä$ 0 $å
Öput( 3.92699 , 3.993313 )ä$ ÖfracäÖpiåä4å $å
Öput( 4.712389 , 3.993313 )ä$ ÖfracäÖpiåä2å $å
Öput( 5.497787 , 3.993313 )ä$ Öfracä3Öpiåä4å $å
%Draw the y axis
Öput(3.141593,0)äÖline(0,1)ä8.37758åå%y axis
%Draw the y axis markers
Öput( 3.141593 , .65704 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 1.049457 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 1.441874 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 1.83429 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 2.226707 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 2.619124 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 3.01154 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 3.403957 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 3.796374 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 4.581207 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 4.973624 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 5.36604 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 5.758457 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 6.150873 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 6.54329 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 6.935707 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 7.328123 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 7.72054 )äÖcircle*ä .0286234åå
%Draw the y axis marker values
Öput( 3.211406 , .631557 )ä$ -0.9 $å
Öput( 3.211406 , 1.023974 )ä$ -0.8 $å
Öput( 3.211406 , 1.41639 )ä$ -0.7 $å
Öput( 3.211406 , 1.808807 )ä$ -0.6 $å
Öput( 3.211406 , 2.201224 )ä$ -0.5 $å
Öput( 3.211406 , 2.59364 )ä$ -0.4 $å
Öput( 3.211406 , 2.986057 )ä$ -0.3 $å
Öput( 3.211406 , 3.378474 )ä$ -0.2 $å
Öput( 3.211406 , 3.77089 )ä$ -0.1 $å
Öput( 3.211406 , 4.581207 )ä$ .1 $å
Öput( 3.211406 , 4.973624 )ä$ .2 $å
Öput( 3.211406 , 5.36604 )ä$ .3 $å
Öput( 3.211406 , 5.758457 )ä$ .4 $å
Öput( 3.211406 , 6.150873 )ä$ .5 $å
Öput( 3.211406 , 6.54329 )ä$ .6 $å
Öput( 3.211406 , 6.935707 )ä$ .7 $å
Öput( 3.211406 , 7.328123 )ä$ .8 $å
Öput( 3.211406 , 7.72054 )ä$ .9 $å
%Draw the data points
Öput( .03141593 , .28019946 )äÖcircle*ä .0286234åå
Öput( .06283185 , .28120737 )äÖcircle*ä .0286234åå
Öput( .09424778 , .28228037 )äÖcircle*ä .0286234åå
Öput( .1256637 , .28342262 )äÖcircle*ä .0286234åå
Öput( .15707963 , .28463859 )äÖcircle*ä .0286234åå
Öput( .18849556 , .28593298 )äÖcircle*ä .0286234åå
Öput( .21991149 , .28731085 )äÖcircle*ä .0286234åå
Öput( .25132741 , .28877753 )äÖcircle*ä .0286234åå
Öput( .28274334 , .29033872 )äÖcircle*ä .0286234åå
Öput( .31415927 , .29200047 )äÖcircle*ä .0286234åå
Öput( .34557519 , .2937692 )äÖcircle*ä .0286234åå
Öput( .37699112 , .29565175 )äÖcircle*ä .0286234åå
Öput( .40840704 , .29765538 )äÖcircle*ä .0286234åå
Öput( .43982297 , .29978782 )äÖcircle*ä .0286234åå
Öput( .47123890 , .30205726 )äÖcircle*ä .0286234åå
Öput( .502655 , .30447242 )äÖcircle*ä .0286234åå
Öput( .53407 , .30704255 )äÖcircle*ä .0286234åå
Öput( .565487 , .30977749 )äÖcircle*ä .0286234åå
Öput( .596903 , .31268768 )äÖcircle*ä .0286234åå
Öput( .628319 , .31578421 )äÖcircle*ä .0286234åå
Öput( .659734 , .31907884 )äÖcircle*ä .0286234åå
Öput( .69115 , .32258405 )äÖcircle*ä .0286234åå
Öput( .722566 , .32631311 )äÖcircle*ä .0286234åå
Öput( .753982 , .33028007 )äÖcircle*ä .0286234åå
Öput( .785398 , .33449983 )äÖcircle*ä .0286234åå
Öput( .816814 , .3389882 )äÖcircle*ä .0286234åå
Öput( .84823 , .34376195 )äÖcircle*ä .0286234åå
Öput( .879646 , .34883883 )äÖcircle*ä .0286234åå
Öput( .911062 , .35423763 )äÖcircle*ä .0286234åå
Öput( .942478 , .35997829 )äÖcircle*ä .0286234åå
Öput( .973894 , .36608189 )äÖcircle*ä .0286234åå
Öput( 1.005310 , .37257074 )äÖcircle*ä .0286234åå
Öput( 1.036726 , .37946843 )äÖcircle*ä .0286234åå
Öput( 1.068142 , .38679992 )äÖcircle*ä .0286234åå
Öput( 1.099557 , .39459157 )äÖcircle*ä .0286234åå
Öput( 1.130973 , .40287124 )äÖcircle*ä .0286234åå
Öput( 1.162389 , .41166832 )äÖcircle*ä .0286234åå
Öput( 1.193805 , .42101383 )äÖcircle*ä .0286234åå
Öput( 1.225221 , .43094047 )äÖcircle*ä .0286234åå
Öput( 1.256637 , .44148270 )äÖcircle*ä .0286234åå
Öput( 1.288053 , .4526768 )äÖcircle*ä .0286234åå
Öput( 1.319469 , .46456097 )äÖcircle*ä .0286234åå
Öput( 1.350885 , .47717532 )äÖcircle*ä .0286234åå
Öput( 1.3823 , .49056202 )äÖcircle*ä .0286234åå
Öput( 1.413717 , .504765 )äÖcircle*ä .0286234åå
Öput( 1.445133 , .519832 )äÖcircle*ä .0286234åå
Öput( 1.476549 , .535809 )äÖcircle*ä .0286234åå
Öput( 1.507964 , .552750 )äÖcircle*ä .0286234åå
Öput( 1.53938 , .570705 )äÖcircle*ä .0286234åå
Öput( 1.570796 , .589732 )äÖcircle*ä .0286234åå
Öput( 1.602212 , .609887 )äÖcircle*ä .0286234åå
Öput( 1.633628 , .63123 )äÖcircle*ä .0286234åå
Öput( 1.665044 , .653825 )äÖcircle*ä .0286234åå
Öput( 1.69646 , .677736 )äÖcircle*ä .0286234åå
Öput( 1.727876 , .703028 )äÖcircle*ä .0286234åå
Öput( 1.759292 , .729773 )äÖcircle*ä .0286234åå
Öput( 1.790708 , .75804 )äÖcircle*ä .0286234åå
Öput( 1.822124 , .787904 )äÖcircle*ä .0286234åå
Öput( 1.853540 , .819439 )äÖcircle*ä .0286234åå
Öput( 1.884956 , .852722 )äÖcircle*ä .0286234åå
Öput( 1.916372 , .88783 )äÖcircle*ä .0286234åå
Öput( 1.947787 , .924844 )äÖcircle*ä .0286234åå
Öput( 1.979203 , .963843 )äÖcircle*ä .0286234åå
Öput( 2.010619 , 1.004909 )äÖcircle*ä .0286234åå
Öput( 2.042035 , 1.048123 )äÖcircle*ä .0286234åå
Öput( 2.073451 , 1.093565 )äÖcircle*ä .0286234åå
Öput( 2.104867 , 1.141315 )äÖcircle*ä .0286234åå
Öput( 2.136283 , 1.191453 )äÖcircle*ä .0286234åå
Öput( 2.167699 , 1.244055 )äÖcircle*ä .0286234åå
Öput( 2.199115 , 1.299196 )äÖcircle*ä .0286234åå
Öput( 2.23053 , 1.356949 )äÖcircle*ä .0286234åå
Öput( 2.261947 , 1.417379 )äÖcircle*ä .0286234åå
Öput( 2.293363 , 1.480552 )äÖcircle*ä .0286234åå
Öput( 2.324779 , 1.546523 )äÖcircle*ä .0286234åå
Öput( 2.356194 , 1.615345 )äÖcircle*ä .0286234åå
Öput( 2.38761 , 1.68706 )äÖcircle*ä .0286234åå
Öput( 2.419026 , 1.761707 )äÖcircle*ä .0286234åå
Öput( 2.450442 , 1.839311 )äÖcircle*ä .0286234åå
Öput( 2.481858 , 1.919889 )äÖcircle*ä .0286234åå
Öput( 2.513274 , 2.003448 )äÖcircle*ä .0286234åå
Öput( 2.54469 , 2.089982 )äÖcircle*ä .0286234åå
Öput( 2.576106 , 2.179472 )äÖcircle*ä .0286234åå
Öput( 2.607522 , 2.271887 )äÖcircle*ä .0286234åå
Öput( 2.638938 , 2.367182 )äÖcircle*ä .0286234åå
Öput( 2.670354 , 2.465297 )äÖcircle*ä .0286234åå
Öput( 2.701770 , 2.566156 )äÖcircle*ä .0286234åå
Öput( 2.733186 , 2.669670 )äÖcircle*ä .0286234åå
Öput( 2.764602 , 2.77573 )äÖcircle*ä .0286234åå
Öput( 2.796017 , 2.884218 )äÖcircle*ä .0286234åå
Öput( 2.827433 , 2.994995 )äÖcircle*ä .0286234åå
Öput( 2.858849 , 3.107909 )äÖcircle*ä .0286234åå
Öput( 2.890265 , 3.222794 )äÖcircle*ä .0286234åå
Öput( 2.921681 , 3.339468 )äÖcircle*ä .0286234åå
Öput( 2.953097 , 3.45774 )äÖcircle*ä .0286234åå
Öput( 2.984513 , 3.577404 )äÖcircle*ä .0286234åå
Öput( 3.015929 , 3.698244 )äÖcircle*ä .0286234åå
Öput( 3.047345 , 3.820037 )äÖcircle*ä .0286234åå
Öput( 3.07876 , 3.942552 )äÖcircle*ä .0286234åå
Öput( 3.110177 , 4.065549 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 4.18879 )äÖcircle*ä .0286234åå
Öput( 3.173009 , 4.312031 )äÖcircle*ä .0286234åå
Öput( 3.204425 , 4.435029 )äÖcircle*ä .0286234åå
Öput( 3.23584 , 4.557543 )äÖcircle*ä .0286234åå
Öput( 3.267256 , 4.679336 )äÖcircle*ä .0286234åå
Öput( 3.298672 , 4.800177 )äÖcircle*ä .0286234åå
Öput( 3.330088 , 4.91984 )äÖcircle*ä .0286234åå
Öput( 3.361504 , 5.038112 )äÖcircle*ä .0286234åå
Öput( 3.39292 , 5.154787 )äÖcircle*ä .0286234åå
Öput( 3.424336 , 5.269671 )äÖcircle*ä .0286234åå
Öput( 3.455752 , 5.382585 )äÖcircle*ä .0286234åå
Öput( 3.487168 , 5.493362 )äÖcircle*ä .0286234åå
Öput( 3.518584 , 5.601850 )äÖcircle*ä .0286234åå
Öput( 3.550000 , 5.70791 )äÖcircle*ä .0286234åå
Öput( 3.581416 , 5.811424 )äÖcircle*ä .0286234åå
Öput( 3.612832 , 5.912283 )äÖcircle*ä .0286234åå
Öput( 3.644247 , 6.010398 )äÖcircle*ä .0286234åå
Öput( 3.675663 , 6.105693 )äÖcircle*ä .0286234åå
Öput( 3.707079 , 6.198109 )äÖcircle*ä .0286234åå
Öput( 3.738495 , 6.287599 )äÖcircle*ä .0286234åå
Öput( 3.769911 , 6.374132 )äÖcircle*ä .0286234åå
Öput( 3.801327 , 6.457691 )äÖcircle*ä .0286234åå
Öput( 3.832743 , 6.538269 )äÖcircle*ä .0286234åå
Öput( 3.864159 , 6.615873 )äÖcircle*ä .0286234åå
Öput( 3.895575 , 6.690520 )äÖcircle*ä .0286234åå
Öput( 3.92699 , 6.762236 )äÖcircle*ä .0286234åå
Öput( 3.958407 , 6.831058 )äÖcircle*ä .0286234åå
Öput( 3.989823 , 6.897029 )äÖcircle*ä .0286234åå
Öput( 4.021239 , 6.960201 )äÖcircle*ä .0286234åå
Öput( 4.052655 , 7.020632 )äÖcircle*ä .0286234åå
Öput( 4.08407 , 7.078384 )äÖcircle*ä .0286234åå
Öput( 4.115486 , 7.133525 )äÖcircle*ä .0286234åå
Öput( 4.146902 , 7.186128 )äÖcircle*ä .0286234åå
Öput( 4.178318 , 7.236265 )äÖcircle*ä .0286234åå
Öput( 4.209734 , 7.284016 )äÖcircle*ä .0286234åå
Öput( 4.24115 , 7.329458 )äÖcircle*ä .0286234åå
Öput( 4.272566 , 7.372671 )äÖcircle*ä .0286234åå
Öput( 4.303982 , 7.413737 )äÖcircle*ä .0286234åå
Öput( 4.335398 , 7.452736 )äÖcircle*ä .0286234åå
Öput( 4.366814 , 7.48975 )äÖcircle*ä .0286234åå
Öput( 4.398230 , 7.524859 )äÖcircle*ä .0286234åå
Öput( 4.429646 , 7.558141 )äÖcircle*ä .0286234åå
Öput( 4.461062 , 7.589676 )äÖcircle*ä .0286234åå
Öput( 4.492477 , 7.619540 )äÖcircle*ä .0286234åå
Öput( 4.523893 , 7.647807 )äÖcircle*ä .0286234åå
Öput( 4.555309 , 7.674552 )äÖcircle*ä .0286234åå
Öput( 4.586725 , 7.699845 )äÖcircle*ä .0286234åå
Öput( 4.618141 , 7.723755 )äÖcircle*ä .0286234åå
Öput( 4.649557 , 7.74635 )äÖcircle*ä .0286234åå
Öput( 4.680973 , 7.767694 )äÖcircle*ä .0286234åå
Öput( 4.712389 , 7.787849 )äÖcircle*ä .0286234åå
Öput( 4.743805 , 7.806875 )äÖcircle*ä .0286234åå
Öput( 4.77522 , 7.82483 )äÖcircle*ä .0286234åå
Öput( 4.806637 , 7.841771 )äÖcircle*ä .0286234åå
Öput( 4.838053 , 7.857749 )äÖcircle*ä .0286234åå
Öput( 4.869469 , 7.872815 )äÖcircle*ä .0286234åå
Öput( 4.900885 , 7.887018 )äÖcircle*ä .0286234åå
Öput( 4.9323 , 7.900405 )äÖcircle*ä .0286234åå
Öput( 4.963716 , 7.913019 )äÖcircle*ä .0286234åå
Öput( 4.995132 , 7.924904 )äÖcircle*ä .0286234åå
Öput( 5.026548 , 7.936098 )äÖcircle*ä .0286234åå
Öput( 5.057964 , 7.94664 )äÖcircle*ä .0286234åå
Öput( 5.08938 , 7.956567 )äÖcircle*ä .0286234åå
Öput( 5.120796 , 7.965912 )äÖcircle*ä .0286234åå
Öput( 5.152212 , 7.974709 )äÖcircle*ä .0286234åå
Öput( 5.183628 , 7.982989 )äÖcircle*ä .0286234åå
Öput( 5.215044 , 7.99078 )äÖcircle*ä .0286234åå
Öput( 5.246460 , 7.998112 )äÖcircle*ä .0286234åå
Öput( 5.277876 , 8.005010 )äÖcircle*ä .0286234åå
Öput( 5.309292 , 8.011499 )äÖcircle*ä .0286234åå
Öput( 5.340708 , 8.017602 )äÖcircle*ä .0286234åå
Öput( 5.372123 , 8.023343 )äÖcircle*ä .0286234åå
Öput( 5.403539 , 8.028742 )äÖcircle*ä .0286234åå
Öput( 5.434955 , 8.033818 )äÖcircle*ä .0286234åå
Öput( 5.466371 , 8.038592 )äÖcircle*ä .0286234åå
Öput( 5.497787 , 8.04308 )äÖcircle*ä .0286234åå
Öput( 5.529203 , 8.0473 )äÖcircle*ä .0286234åå
Öput( 5.560619 , 8.051267 )äÖcircle*ä .0286234åå
Öput( 5.592035 , 8.054996 )äÖcircle*ä .0286234åå
Öput( 5.62345 , 8.058502 )äÖcircle*ä .0286234åå
Öput( 5.654867 , 8.061796 )äÖcircle*ä .0286234åå
Öput( 5.686283 , 8.064893 )äÖcircle*ä .0286234åå
Öput( 5.717699 , 8.067803 )äÖcircle*ä .0286234åå
Öput( 5.749115 , 8.070538 )äÖcircle*ä .0286234åå
Öput( 5.78053 , 8.073108 )äÖcircle*ä .0286234åå
Öput( 5.811946 , 8.075523 )äÖcircle*ä .0286234åå
Öput( 5.843362 , 8.077793 )äÖcircle*ä .0286234åå
Öput( 5.874778 , 8.079925 )äÖcircle*ä .0286234åå
Öput( 5.906194 , 8.081929 )äÖcircle*ä .0286234åå
Öput( 5.93761 , 8.083811 )äÖcircle*ä .0286234åå
Öput( 5.969026 , 8.08558 )äÖcircle*ä .0286234åå
Öput( 6.000442 , 8.087242 )äÖcircle*ä .0286234åå
Öput( 6.031858 , 8.088803 )äÖcircle*ä .0286234åå
Öput( 6.063274 , 8.090270 )äÖcircle*ä .0286234åå
Öput( 6.094690 , 8.091647 )äÖcircle*ä .0286234åå
Öput( 6.126106 , 8.092942 )äÖcircle*ä .0286234åå
Öput( 6.157522 , 8.094158 )äÖcircle*ä .0286234åå
Öput( 6.188938 , 8.0953 )äÖcircle*ä .0286234åå
Öput( 6.220353 , 8.096373 )äÖcircle*ä .0286234åå
Öput( 6.251769 , 8.097381 )äÖcircle*ä .0286234åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
