apl>" <-APL2-------------------- sam306.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> '*x' graph 0,0,1,r,1e6,-5,5,1,0,10,0
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#*xå
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .03773422inå
Öbeginäpictureå(119.2552,159.0069)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä119.2552åå% bottom
Öput(0,0)äÖline(0,1)ä159.0069åå% left
Öput(0,159.0069)äÖline(1,0)ä119.2552åå% top
Öput(119.2552,0)äÖline(0,1)ä159.0069åå% right
%Draw the x axis
Öput(0,0)äÖline(1,0)ä119.2552åå%x axis
Öput( 11.92552 , 0 )äÖcircle*ä .543274åå
Öput( 23.85103 , 0 )äÖcircle*ä .543274åå
Öput( 35.77655 , 0 )äÖcircle*ä .543274åå
Öput( 47.70206 , 0 )äÖcircle*ä .543274åå
Öput( 59.62758 , 0 )äÖcircle*ä .543274åå
Öput( 71.55310 , 0 )äÖcircle*ä .543274åå
Öput( 83.47861 , 0 )äÖcircle*ä .543274åå
Öput( 95.40413 , 0 )äÖcircle*ä .543274åå
Öput( 107.3296 , 0 )äÖcircle*ä .543274åå
%Draw the x axis marker values
Öput( 11.91713 , 0 )ä$ -4 $å
Öput( 23.84265 , 0 )ä$ -3 $å
Öput( 35.76816 , 0 )ä$ -2 $å
Öput( 47.69368 , 0 )ä$ -1 $å
Öput( 59.62758 , 0 )ä$ 0 $å
Öput( 71.55310 , 0 )ä$ 1 $å
Öput( 83.47861 , 0 )ä$ 2 $å
Öput( 95.40413 , 0 )ä$ 3 $å
Öput( 107.3296 , 0 )ä$ 4 $å
%Draw the y axis
Öput(59.62758,0)äÖline(0,1)ä159.0069åå%y axis
%Draw the y axis markers
Öput( 59.62758 , 15.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 25.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 35.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 45.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 55.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 65.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 75.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 85.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 95.29349 )äÖcircle*ä .543274åå
Öput( 59.62758 , 105.2935 )äÖcircle*ä .543274åå
Öput( 59.62758 , 115.2935 )äÖcircle*ä .543274åå
Öput( 59.62758 , 125.2935 )äÖcircle*ä .543274åå
Öput( 59.62758 , 135.2935 )äÖcircle*ä .543274åå
Öput( 59.62758 , 145.2935 )äÖcircle*ä .543274åå
%Draw the y axis marker values
Öput( 60.95264 , 15.29349 )ä$ 10 $å
Öput( 60.95264 , 25.29349 )ä$ 20 $å
Öput( 60.95264 , 35.29349 )ä$ 30 $å
Öput( 60.95264 , 45.29349 )ä$ 40 $å
Öput( 60.95264 , 55.29349 )ä$ 50 $å
Öput( 60.95264 , 65.29349 )ä$ 60 $å
Öput( 60.95264 , 75.29349 )ä$ 70 $å
Öput( 60.95264 , 85.29349 )ä$ 80 $å
Öput( 60.95264 , 95.29349 )ä$ 90 $å
Öput( 60.95264 , 105.2935 )ä$ 100 $å
Öput( 60.95264 , 115.2935 )ä$ 110 $å
Öput( 60.95264 , 125.2935 )ä$ 120 $å
Öput( 60.95264 , 135.2935 )ä$ 130 $å
Öput( 60.95264 , 145.2935 )ä$ 140 $å
%Draw the data points
Öput( .596276 , 5.300575 )äÖcircle*ä .543274åå
Öput( 1.192552 , 5.300938 )äÖcircle*ä .543274åå
Öput( 1.788827 , 5.301320 )äÖcircle*ä .543274åå
Öput( 2.385103 , 5.301721 )äÖcircle*ä .543274åå
Öput( 2.981379 , 5.302143 )äÖcircle*ä .543274åå
Öput( 3.577655 , 5.302587 )äÖcircle*ä .543274åå
Öput( 4.17393 , 5.303053 )äÖcircle*ä .543274åå
Öput( 4.770206 , 5.303543 )äÖcircle*ä .543274åå
Öput( 5.366482 , 5.304059 )äÖcircle*ä .543274åå
Öput( 5.962758 , 5.3046 )äÖcircle*ä .543274åå
Öput( 6.559034 , 5.30517 )äÖcircle*ä .543274åå
Öput( 7.155310 , 5.305769 )äÖcircle*ä .543274åå
Öput( 7.751585 , 5.306398 )äÖcircle*ä .543274åå
Öput( 8.347861 , 5.30706 )äÖcircle*ä .543274åå
Öput( 8.944137 , 5.307756 )äÖcircle*ä .543274åå
Öput( 9.54041 , 5.308487 )äÖcircle*ä .543274åå
Öput( 10.13669 , 5.309256 )äÖcircle*ä .543274åå
Öput( 10.73296 , 5.310064 )äÖcircle*ä .543274åå
Öput( 11.32924 , 5.310914 )äÖcircle*ä .543274åå
Öput( 11.92552 , 5.311807 )äÖcircle*ä .543274åå
Öput( 12.52179 , 5.312746 )äÖcircle*ä .543274åå
Öput( 13.11807 , 5.313733 )äÖcircle*ä .543274åå
Öput( 13.71434 , 5.314771 )äÖcircle*ä .543274åå
Öput( 14.31062 , 5.315862 )äÖcircle*ä .543274åå
Öput( 14.90689 , 5.317009 )äÖcircle*ä .543274åå
Öput( 15.50317 , 5.318215 )äÖcircle*ä .543274åå
Öput( 16.09945 , 5.319483 )äÖcircle*ä .543274åå
Öput( 16.69572 , 5.320815 )äÖcircle*ä .543274åå
Öput( 17.29200 , 5.322216 )äÖcircle*ä .543274åå
Öput( 17.88827 , 5.323689 )äÖcircle*ä .543274åå
Öput( 18.48455 , 5.325237 )äÖcircle*ä .543274åå
Öput( 19.08083 , 5.326865 )äÖcircle*ä .543274åå
Öput( 19.6771 , 5.328576 )äÖcircle*ä .543274åå
Öput( 20.27338 , 5.330375 )äÖcircle*ä .543274åå
Öput( 20.86965 , 5.332266 )äÖcircle*ä .543274åå
Öput( 21.46593 , 5.334254 )äÖcircle*ä .543274åå
Öput( 22.0622 , 5.336344 )äÖcircle*ä .543274åå
Öput( 22.65848 , 5.33854 )äÖcircle*ä .543274åå
Öput( 23.25476 , 5.34085 )äÖcircle*ä .543274åå
Öput( 23.85103 , 5.343278 )äÖcircle*ä .543274åå
Öput( 24.4473 , 5.345831 )äÖcircle*ä .543274åå
Öput( 25.04358 , 5.348515 )äÖcircle*ä .543274åå
Öput( 25.63986 , 5.351336 )äÖcircle*ä .543274åå
Öput( 26.23614 , 5.354301 )äÖcircle*ä .543274åå
Öput( 26.83241 , 5.357419 )äÖcircle*ä .543274åå
Öput( 27.42869 , 5.360697 )äÖcircle*ä .543274åå
Öput( 28.02496 , 5.364143 )äÖcircle*ä .543274åå
Öput( 28.62124 , 5.367765 )äÖcircle*ä .543274åå
Öput( 29.21751 , 5.371573 )äÖcircle*ä .543274åå
Öput( 29.81379 , 5.375576 )äÖcircle*ä .543274åå
Öput( 30.41007 , 5.379785 )äÖcircle*ä .543274åå
Öput( 31.00634 , 5.384209 )äÖcircle*ä .543274åå
Öput( 31.60262 , 5.38886 )äÖcircle*ä .543274åå
Öput( 32.19889 , 5.39375 )äÖcircle*ä .543274åå
Öput( 32.79517 , 5.39889 )äÖcircle*ä .543274åå
Öput( 33.39144 , 5.404295 )äÖcircle*ä .543274åå
Öput( 33.98772 , 5.409976 )äÖcircle*ä .543274åå
Öput( 34.58400 , 5.415948 )äÖcircle*ä .543274åå
Öput( 35.18027 , 5.422226 )äÖcircle*ä .543274åå
Öput( 35.77655 , 5.428827 )äÖcircle*ä .543274åå
Öput( 36.37282 , 5.435765 )äÖcircle*ä .543274åå
Öput( 36.9691 , 5.44306 )äÖcircle*ä .543274åå
Öput( 37.56538 , 5.450729 )äÖcircle*ä .543274åå
Öput( 38.16165 , 5.45879 )äÖcircle*ä .543274åå
Öput( 38.75793 , 5.467265 )äÖcircle*ä .543274åå
Öput( 39.3542 , 5.476175 )äÖcircle*ä .543274åå
Öput( 39.95048 , 5.485541 )äÖcircle*ä .543274åå
Öput( 40.54675 , 5.495388 )äÖcircle*ä .543274åå
Öput( 41.14303 , 5.505739 )äÖcircle*ä .543274åå
Öput( 41.7393 , 5.516622 )äÖcircle*ä .543274åå
Öput( 42.33558 , 5.528062 )äÖcircle*ä .543274åå
Öput( 42.93186 , 5.540088 )äÖcircle*ä .543274åå
Öput( 43.52813 , 5.552732 )äÖcircle*ä .543274åå
Öput( 44.12441 , 5.566023 )äÖcircle*ä .543274åå
Öput( 44.72068 , 5.579996 )äÖcircle*ä .543274åå
Öput( 45.31696 , 5.594686 )äÖcircle*ä .543274åå
Öput( 45.91324 , 5.610128 )äÖcircle*ä .543274åå
Öput( 46.50951 , 5.626362 )äÖcircle*ä .543274åå
Öput( 47.10579 , 5.643429 )äÖcircle*ä .543274åå
Öput( 47.70206 , 5.66137 )äÖcircle*ä .543274åå
Öput( 48.29834 , 5.680232 )äÖcircle*ä .543274åå
Öput( 48.89462 , 5.700061 )äÖcircle*ä .543274åå
Öput( 49.49089 , 5.720906 )äÖcircle*ä .543274åå
Öput( 50.08717 , 5.74282 )äÖcircle*ä .543274åå
Öput( 50.68344 , 5.765858 )äÖcircle*ä .543274åå
Öput( 51.27972 , 5.790077 )äÖcircle*ä .543274åå
Öput( 51.87599 , 5.815537 )äÖcircle*ä .543274åå
Öput( 52.47227 , 5.842303 )äÖcircle*ä .543274åå
Öput( 53.06855 , 5.870441 )äÖcircle*ä .543274åå
Öput( 53.66482 , 5.900022 )äÖcircle*ä .543274åå
Öput( 54.26110 , 5.931120 )äÖcircle*ä .543274åå
Öput( 54.85737 , 5.963811 )äÖcircle*ä .543274åå
Öput( 55.45365 , 5.998179 )äÖcircle*ä .543274åå
Öput( 56.04993 , 6.034310 )äÖcircle*ä .543274åå
Öput( 56.6462 , 6.072292 )äÖcircle*ä .543274åå
Öput( 57.24248 , 6.112222 )äÖcircle*ä .543274åå
Öput( 57.83875 , 6.154199 )äÖcircle*ä .543274åå
Öput( 58.43503 , 6.198329 )äÖcircle*ä .543274åå
Öput( 59.0313 , 6.24472 )äÖcircle*ä .543274åå
Öput( 59.62758 , 6.293491 )äÖcircle*ä .543274åå
Öput( 60.22386 , 6.344762 )äÖcircle*ä .543274åå
Öput( 60.82013 , 6.398662 )äÖcircle*ä .543274åå
Öput( 61.4164 , 6.455326 )äÖcircle*ä .543274åå
Öput( 62.01268 , 6.514894 )äÖcircle*ä .543274åå
Öput( 62.60896 , 6.577517 )äÖcircle*ä .543274åå
Öput( 63.20523 , 6.64335 )äÖcircle*ä .543274åå
Öput( 63.80151 , 6.712559 )äÖcircle*ä .543274åå
Öput( 64.39779 , 6.785316 )äÖcircle*ä .543274åå
Öput( 64.99406 , 6.861804 )äÖcircle*ä .543274åå
Öput( 65.59034 , 6.942213 )äÖcircle*ä .543274åå
Öput( 66.18661 , 7.026744 )äÖcircle*ä .543274åå
Öput( 66.78289 , 7.11561 )äÖcircle*ä .543274åå
Öput( 67.37917 , 7.209032 )äÖcircle*ä .543274åå
Öput( 67.97544 , 7.307244 )äÖcircle*ä .543274åå
Öput( 68.57172 , 7.410491 )äÖcircle*ä .543274åå
Öput( 69.16799 , 7.519032 )äÖcircle*ä .543274åå
Öput( 69.76427 , 7.633138 )äÖcircle*ä .543274åå
Öput( 70.36054 , 7.753094 )äÖcircle*ä .543274åå
Öput( 70.95682 , 7.879201 )äÖcircle*ä .543274åå
Öput( 71.55310 , 8.011773 )äÖcircle*ä .543274åå
Öput( 72.14937 , 8.151142 )äÖcircle*ä .543274åå
Öput( 72.74565 , 8.297657 )äÖcircle*ä .543274åå
Öput( 73.34192 , 8.451684 )äÖcircle*ä .543274åå
Öput( 73.9382 , 8.613608 )äÖcircle*ä .543274åå
Öput( 74.53447 , 8.783834 )äÖcircle*ä .543274åå
Öput( 75.13075 , 8.962788 )äÖcircle*ä .543274åå
Öput( 75.72703 , 9.150917 )äÖcircle*ä .543274åå
Öput( 76.3233 , 9.348691 )äÖcircle*ä .543274åå
Öput( 76.91958 , 9.5566 )äÖcircle*ä .543274åå
Öput( 77.51585 , 9.77518 )äÖcircle*ä .543274åå
Öput( 78.11213 , 10.00496 )äÖcircle*ä .543274åå
Öput( 78.7084 , 10.24652 )äÖcircle*ä .543274åå
Öput( 79.30468 , 10.50047 )äÖcircle*ä .543274åå
Öput( 79.90096 , 10.76744 )äÖcircle*ä .543274åå
Öput( 80.49723 , 11.04809 )äÖcircle*ä .543274åå
Öput( 81.0935 , 11.34314 )äÖcircle*ä .543274åå
Öput( 81.68978 , 11.65331 )äÖcircle*ä .543274åå
Öput( 82.28606 , 11.97939 )äÖcircle*ä .543274åå
Öput( 82.88234 , 12.32218 )äÖcircle*ä .543274åå
Öput( 83.47861 , 12.68255 )äÖcircle*ä .543274åå
Öput( 84.07489 , 13.06139 )äÖcircle*ä .543274åå
Öput( 84.67116 , 13.45966 )äÖcircle*ä .543274åå
Öput( 85.26744 , 13.87835 )äÖcircle*ä .543274åå
Öput( 85.86372 , 14.3185 )äÖcircle*ä .543274åå
Öput( 86.45999 , 14.78123 )äÖcircle*ä .543274åå
Öput( 87.05627 , 15.26767 )äÖcircle*ä .543274åå
Öput( 87.65254 , 15.77906 )äÖcircle*ä .543274åå
Öput( 88.24882 , 16.31667 )äÖcircle*ä .543274åå
Öput( 88.84509 , 16.88184 )äÖcircle*ä .543274åå
Öput( 89.44137 , 17.47599 )äÖcircle*ä .543274åå
Öput( 90.03765 , 18.10060 )äÖcircle*ä .543274åå
Öput( 90.63392 , 18.75723 )äÖcircle*ä .543274åå
Öput( 91.23020 , 19.44753 )äÖcircle*ä .543274åå
Öput( 91.82647 , 20.17322 )äÖcircle*ä .543274åå
Öput( 92.42275 , 20.93612 )äÖcircle*ä .543274åå
Öput( 93.01902 , 21.73814 )äÖcircle*ä .543274åå
Öput( 93.6153 , 22.58127 )äÖcircle*ä .543274åå
Öput( 94.21158 , 23.46764 )äÖcircle*ä .543274åå
Öput( 94.80785 , 24.39945 )äÖcircle*ä .543274åå
Öput( 95.40413 , 25.37903 )äÖcircle*ä .543274åå
Öput( 96.0004 , 26.40884 )äÖcircle*ä .543274åå
Öput( 96.59668 , 27.49144 )äÖcircle*ä .543274åå
Öput( 97.19296 , 28.62956 )äÖcircle*ä .543274åå
Öput( 97.78923 , 29.82602 )äÖcircle*ä .543274åå
Öput( 98.3855 , 31.08383 )äÖcircle*ä .543274åå
Öput( 98.98178 , 32.40613 )äÖcircle*ä .543274åå
Öput( 99.578 , 33.79623 )äÖcircle*ä .543274åå
Öput( 100.1743 , 35.25759 )äÖcircle*ä .543274åå
Öput( 100.7706 , 36.79388 )äÖcircle*ä .543274åå
Öput( 101.3669 , 38.40894 )äÖcircle*ä .543274åå
Öput( 101.9632 , 40.1068 )äÖcircle*ä .543274åå
Öput( 102.5594 , 41.89173 )äÖcircle*ä .543274åå
Öput( 103.1557 , 43.76816 )äÖcircle*ä .543274åå
Öput( 103.7520 , 45.74080 )äÖcircle*ä .543274åå
Öput( 104.3483 , 47.81457 )äÖcircle*ä .543274åå
Öput( 104.9445 , 49.99468 )äÖcircle*ä .543274åå
Öput( 105.5408 , 52.28655 )äÖcircle*ä .543274åå
Öput( 106.1371 , 54.69594 )äÖcircle*ä .543274åå
Öput( 106.7334 , 57.22886 )äÖcircle*ä .543274åå
Öput( 107.3296 , 59.89164 )äÖcircle*ä .543274åå
Öput( 107.9259 , 62.69095 )äÖcircle*ä .543274åå
Öput( 108.5222 , 65.63378 )äÖcircle*ä .543274åå
Öput( 109.1185 , 68.72749 )äÖcircle*ä .543274åå
Öput( 109.7147 , 71.97982 )äÖcircle*ä .543274åå
Öput( 110.311 , 75.3989 )äÖcircle*ä .543274åå
Öput( 110.9073 , 78.99329 )äÖcircle*ä .543274åå
Öput( 111.5036 , 82.77195 )äÖcircle*ä .543274åå
Öput( 112.0999 , 86.74436 )äÖcircle*ä .543274åå
Öput( 112.6961 , 90.92044 )äÖcircle*ä .543274åå
Öput( 113.2924 , 95.31062 )äÖcircle*ä .543274åå
Öput( 113.8887 , 99.9259 )äÖcircle*ä .543274åå
Öput( 114.4850 , 104.7778 )äÖcircle*ä .543274åå
Öput( 115.0812 , 109.8785 )äÖcircle*ä .543274åå
Öput( 115.6775 , 115.2407 )äÖcircle*ä .543274åå
Öput( 116.2738 , 120.8778 )äÖcircle*ä .543274åå
Öput( 116.87 , 126.8039 )äÖcircle*ä .543274åå
Öput( 117.4663 , 133.0339 )äÖcircle*ä .543274åå
Öput( 118.0626 , 139.5833 )äÖcircle*ä .543274åå
Öput( 118.6589 , 146.4685 )äÖcircle*ä .543274åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
