apl>" <-APL2-------------------- sam304.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,1,10,0 " expdatx.tex
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#9O*x+(nÖ#1)X0j1å
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .06983908inå
Öbeginäpictureå(64.43384,85.91178)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä64.43384åå% bottom
Öput(0,0)äÖline(0,1)ä85.91178åå% left
Öput(0,85.91178)äÖline(1,0)ä64.43384åå% top
Öput(64.43384,0)äÖline(0,1)ä85.91178åå% right
%Draw the x axis
Öput(0,0)äÖline(1,0)ä64.43384åå%x axis
Öput( 6.443384 , 0 )äÖcircle*ä .29353193åå
Öput( 12.88677 , 0 )äÖcircle*ä .29353193åå
Öput( 19.33015 , 0 )äÖcircle*ä .29353193åå
Öput( 25.77354 , 0 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 0 )äÖcircle*ä .29353193åå
Öput( 38.6603 , 0 )äÖcircle*ä .29353193åå
Öput( 45.10369 , 0 )äÖcircle*ä .29353193åå
Öput( 51.54707 , 0 )äÖcircle*ä .29353193åå
Öput( 57.99045 , 0 )äÖcircle*ä .29353193åå
%Draw the x axis marker values
Öput( 6.427864 , 0 )ä$ -4 $å
Öput( 12.87125 , 0 )ä$ -3 $å
Öput( 19.31463 , 0 )ä$ -2 $å
Öput( 25.75802 , 0 )ä$ -1 $å
Öput( 32.21692 , 0 )ä$ 0 $å
Öput( 38.6603 , 0 )ä$ 1 $å
Öput( 45.10369 , 0 )ä$ 2 $å
Öput( 51.54707 , 0 )ä$ 3 $å
Öput( 57.99045 , 0 )ä$ 4 $å
%Draw the y axis
Öput(32.21692,0)äÖline(0,1)ä85.91178åå%y axis
%Draw the y axis markers
Öput( 32.21692 , 12.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 22.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 32.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 42.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 52.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 62.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 72.86009 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 82.86009 )äÖcircle*ä .29353193åå
%Draw the y axis marker values
Öput( 32.93285 , 12.86009 )ä$ 10 $å
Öput( 32.93285 , 22.86009 )ä$ 20 $å
Öput( 32.93285 , 32.86009 )ä$ 30 $å
Öput( 32.93285 , 42.86009 )ä$ 40 $å
Öput( 32.93285 , 52.86009 )ä$ 50 $å
Öput( 32.93285 , 62.86009 )ä$ 60 $å
Öput( 32.93285 , 72.86009 )ä$ 70 $å
Öput( 32.93285 , 82.86009 )ä$ 80 $å
%Draw the data points
Öput( .32216919 , 2.863913 )äÖcircle*ä .29353193åå
Öput( .644338 , 2.864109 )äÖcircle*ä .29353193åå
Öput( .966508 , 2.864315 )äÖcircle*ä .29353193åå
Öput( 1.288677 , 2.864532 )äÖcircle*ä .29353193åå
Öput( 1.610846 , 2.86476 )äÖcircle*ä .29353193åå
Öput( 1.933015 , 2.865000 )äÖcircle*ä .29353193åå
Öput( 2.255184 , 2.865252 )äÖcircle*ä .29353193åå
Öput( 2.577354 , 2.865517 )äÖcircle*ä .29353193åå
Öput( 2.899523 , 2.865795 )äÖcircle*ä .29353193åå
Öput( 3.221692 , 2.866088 )äÖcircle*ä .29353193åå
Öput( 3.543861 , 2.866396 )äÖcircle*ä .29353193åå
Öput( 3.86603 , 2.866719 )äÖcircle*ä .29353193åå
Öput( 4.188199 , 2.867059 )äÖcircle*ä .29353193åå
Öput( 4.510369 , 2.867417 )äÖcircle*ä .29353193åå
Öput( 4.832538 , 2.867793 )äÖcircle*ä .29353193åå
Öput( 5.154707 , 2.868188 )äÖcircle*ä .29353193åå
Öput( 5.476876 , 2.868603 )äÖcircle*ä .29353193åå
Öput( 5.799045 , 2.869040 )äÖcircle*ä .29353193åå
Öput( 6.121215 , 2.869499 )äÖcircle*ä .29353193åå
Öput( 6.443384 , 2.869982 )äÖcircle*ä .29353193åå
Öput( 6.765553 , 2.870489 )äÖcircle*ä .29353193åå
Öput( 7.087722 , 2.871022 )äÖcircle*ä .29353193åå
Öput( 7.409891 , 2.871583 )äÖcircle*ä .29353193åå
Öput( 7.73206 , 2.872173 )äÖcircle*ä .29353193åå
Öput( 8.054230 , 2.872792 )äÖcircle*ä .29353193åå
Öput( 8.376399 , 2.873444 )äÖcircle*ä .29353193åå
Öput( 8.698568 , 2.874129 )äÖcircle*ä .29353193åå
Öput( 9.020737 , 2.874849 )äÖcircle*ä .29353193åå
Öput( 9.342906 , 2.875606 )äÖcircle*ä .29353193åå
Öput( 9.66508 , 2.876401 )äÖcircle*ä .29353193åå
Öput( 9.98724 , 2.877238 )äÖcircle*ä .29353193åå
Öput( 10.30941 , 2.878117 )äÖcircle*ä .29353193åå
Öput( 10.63158 , 2.879042 )äÖcircle*ä .29353193åå
Öput( 10.95375 , 2.880014 )äÖcircle*ä .29353193åå
Öput( 11.27592 , 2.881035 )äÖcircle*ä .29353193åå
Öput( 11.59809 , 2.882110 )äÖcircle*ä .29353193åå
Öput( 11.92026 , 2.883239 )äÖcircle*ä .29353193åå
Öput( 12.24243 , 2.884426 )äÖcircle*ä .29353193åå
Öput( 12.56460 , 2.885674 )äÖcircle*ä .29353193åå
Öput( 12.88677 , 2.886986 )äÖcircle*ä .29353193åå
Öput( 13.20894 , 2.888365 )äÖcircle*ä .29353193åå
Öput( 13.5311 , 2.889815 )äÖcircle*ä .29353193åå
Öput( 13.85328 , 2.891339 )äÖcircle*ä .29353193åå
Öput( 14.17544 , 2.892941 )äÖcircle*ä .29353193åå
Öput( 14.49761 , 2.894626 )äÖcircle*ä .29353193åå
Öput( 14.81978 , 2.896397 )äÖcircle*ä .29353193åå
Öput( 15.14195 , 2.898259 )äÖcircle*ä .29353193åå
Öput( 15.46412 , 2.900216 )äÖcircle*ä .29353193åå
Öput( 15.78629 , 2.902273 )äÖcircle*ä .29353193åå
Öput( 16.10846 , 2.904436 )äÖcircle*ä .29353193åå
Öput( 16.43063 , 2.90671 )äÖcircle*ä .29353193åå
Öput( 16.75280 , 2.9091 )äÖcircle*ä .29353193åå
Öput( 17.07497 , 2.911614 )äÖcircle*ä .29353193åå
Öput( 17.39714 , 2.914256 )äÖcircle*ä .29353193åå
Öput( 17.7193 , 2.917033 )äÖcircle*ä .29353193åå
Öput( 18.04147 , 2.919953 )äÖcircle*ä .29353193åå
Öput( 18.36364 , 2.923022 )äÖcircle*ä .29353193åå
Öput( 18.68581 , 2.926249 )äÖcircle*ä .29353193åå
Öput( 19.00798 , 2.929641 )äÖcircle*ä .29353193åå
Öput( 19.33015 , 2.933208 )äÖcircle*ä .29353193åå
Öput( 19.65232 , 2.936957 )äÖcircle*ä .29353193åå
Öput( 19.97449 , 2.940898 )äÖcircle*ä .29353193åå
Öput( 20.29666 , 2.945041 )äÖcircle*ä .29353193åå
Öput( 20.61883 , 2.949397 )äÖcircle*ä .29353193åå
Öput( 20.94100 , 2.953976 )äÖcircle*ä .29353193åå
Öput( 21.26317 , 2.95879 )äÖcircle*ä .29353193åå
Öput( 21.58534 , 2.96385 )äÖcircle*ä .29353193åå
Öput( 21.9075 , 2.96917 )äÖcircle*ä .29353193åå
Öput( 22.22967 , 2.974764 )äÖcircle*ä .29353193åå
Öput( 22.55184 , 2.980643 )äÖcircle*ä .29353193åå
Öput( 22.87401 , 2.986824 )äÖcircle*ä .29353193åå
Öput( 23.19618 , 2.993323 )äÖcircle*ä .29353193åå
Öput( 23.51835 , 3.000154 )äÖcircle*ä .29353193åå
Öput( 23.84052 , 3.007335 )äÖcircle*ä .29353193åå
Öput( 24.16269 , 3.014885 )äÖcircle*ä .29353193åå
Öput( 24.48486 , 3.022822 )äÖcircle*ä .29353193åå
Öput( 24.80703 , 3.031165 )äÖcircle*ä .29353193åå
Öput( 25.12920 , 3.039937 )äÖcircle*ä .29353193åå
Öput( 25.45137 , 3.049158 )äÖcircle*ä .29353193åå
Öput( 25.77354 , 3.058852 )äÖcircle*ä .29353193åå
Öput( 26.0957 , 3.069043 )äÖcircle*ä .29353193åå
Öput( 26.41787 , 3.079756 )äÖcircle*ä .29353193åå
Öput( 26.74004 , 3.091019 )äÖcircle*ä .29353193åå
Öput( 27.06221 , 3.102859 )äÖcircle*ä .29353193åå
Öput( 27.38438 , 3.115306 )äÖcircle*ä .29353193åå
Öput( 27.70655 , 3.128392 )äÖcircle*ä .29353193åå
Öput( 28.02872 , 3.142148 )äÖcircle*ä .29353193åå
Öput( 28.35089 , 3.156610 )äÖcircle*ä .29353193åå
Öput( 28.67306 , 3.171813 )äÖcircle*ä .29353193åå
Öput( 28.99523 , 3.187796 )äÖcircle*ä .29353193åå
Öput( 29.31740 , 3.204598 )äÖcircle*ä .29353193åå
Öput( 29.63957 , 3.222261 )äÖcircle*ä .29353193åå
Öput( 29.96173 , 3.24083 )äÖcircle*ä .29353193åå
Öput( 30.2839 , 3.260351 )äÖcircle*ä .29353193åå
Öput( 30.60607 , 3.280873 )äÖcircle*ä .29353193åå
Öput( 30.92824 , 3.302448 )äÖcircle*ä .29353193åå
Öput( 31.25041 , 3.325128 )äÖcircle*ä .29353193åå
Öput( 31.57258 , 3.348971 )äÖcircle*ä .29353193åå
Öput( 31.89475 , 3.374037 )äÖcircle*ä .29353193åå
Öput( 32.21692 , 3.400388 )äÖcircle*ä .29353193åå
Öput( 32.53909 , 3.428090 )äÖcircle*ä .29353193åå
Öput( 32.86126 , 3.457212 )äÖcircle*ä .29353193åå
Öput( 33.18343 , 3.487827 )äÖcircle*ä .29353193åå
Öput( 33.50560 , 3.520012 )äÖcircle*ä .29353193åå
Öput( 33.82776 , 3.553847 )äÖcircle*ä .29353193åå
Öput( 34.14993 , 3.589417 )äÖcircle*ä .29353193åå
Öput( 34.4721 , 3.626811 )äÖcircle*ä .29353193åå
Öput( 34.79427 , 3.666122 )äÖcircle*ä .29353193åå
Öput( 35.11644 , 3.707448 )äÖcircle*ä .29353193åå
Öput( 35.43861 , 3.750894 )äÖcircle*ä .29353193åå
Öput( 35.76078 , 3.796566 )äÖcircle*ä .29353193åå
Öput( 36.08295 , 3.84458 )äÖcircle*ä .29353193åå
Öput( 36.40512 , 3.895057 )äÖcircle*ä .29353193åå
Öput( 36.72729 , 3.94812 )äÖcircle*ä .29353193åå
Öput( 37.04946 , 4.003906 )äÖcircle*ä .29353193åå
Öput( 37.37163 , 4.06255 )äÖcircle*ä .29353193åå
Öput( 37.69380 , 4.124202 )äÖcircle*ä .29353193åå
Öput( 38.01596 , 4.189015 )äÖcircle*ä .29353193åå
Öput( 38.33813 , 4.25715 )äÖcircle*ä .29353193åå
Öput( 38.6603 , 4.328780 )äÖcircle*ä .29353193åå
Öput( 38.98247 , 4.404081 )äÖcircle*ä .29353193åå
Öput( 39.30464 , 4.483243 )äÖcircle*ä .29353193åå
Öput( 39.62681 , 4.566465 )äÖcircle*ä .29353193åå
Öput( 39.94898 , 4.653952 )äÖcircle*ä .29353193åå
Öput( 40.27115 , 4.745926 )äÖcircle*ä .29353193åå
Öput( 40.59332 , 4.842615 )äÖcircle*ä .29353193åå
Öput( 40.91549 , 4.944262 )äÖcircle*ä .29353193åå
Öput( 41.23766 , 5.051119 )äÖcircle*ä .29353193åå
Öput( 41.55983 , 5.163456 )äÖcircle*ä .29353193åå
Öput( 41.88199 , 5.281553 )äÖcircle*ä .29353193åå
Öput( 42.20416 , 5.405704 )äÖcircle*ä .29353193åå
Öput( 42.52633 , 5.53622 )äÖcircle*ä .29353193åå
Öput( 42.8485 , 5.673429 )äÖcircle*ä .29353193åå
Öput( 43.17067 , 5.817672 )äÖcircle*ä .29353193åå
Öput( 43.49284 , 5.96931 )äÖcircle*ä .29353193åå
Öput( 43.81501 , 6.128724 )äÖcircle*ä .29353193åå
Öput( 44.13718 , 6.29631 )äÖcircle*ä .29353193åå
Öput( 44.45935 , 6.472490 )äÖcircle*ä .29353193åå
Öput( 44.78152 , 6.657702 )äÖcircle*ä .29353193åå
Öput( 45.10369 , 6.852410 )äÖcircle*ä .29353193åå
Öput( 45.42586 , 7.0571 )äÖcircle*ä .29353193åå
Öput( 45.74802 , 7.272286 )äÖcircle*ä .29353193åå
Öput( 46.07019 , 7.498504 )äÖcircle*ä .29353193åå
Öput( 46.39236 , 7.736321 )äÖcircle*ä .29353193åå
Öput( 46.71453 , 7.986331 )äÖcircle*ä .29353193åå
Öput( 47.0367 , 8.249159 )äÖcircle*ä .29353193åå
Öput( 47.35887 , 8.525463 )äÖcircle*ä .29353193åå
Öput( 47.68104 , 8.815933 )äÖcircle*ä .29353193åå
Öput( 48.00321 , 9.121296 )äÖcircle*ä .29353193åå
Öput( 48.32538 , 9.442315 )äÖcircle*ä .29353193åå
Öput( 48.64755 , 9.77979 )äÖcircle*ä .29353193åå
Öput( 48.96972 , 10.13457 )äÖcircle*ä .29353193åå
Öput( 49.29189 , 10.50755 )äÖcircle*ä .29353193åå
Öput( 49.61406 , 10.89964 )äÖcircle*ä .29353193åå
Öput( 49.93622 , 11.31184 )äÖcircle*ä .29353193åå
Öput( 50.25839 , 11.74517 )äÖcircle*ä .29353193åå
Öput( 50.58056 , 12.20071 )äÖcircle*ä .29353193åå
Öput( 50.90273 , 12.67962 )äÖcircle*ä .29353193åå
Öput( 51.2249 , 13.18308 )äÖcircle*ä .29353193åå
Öput( 51.54707 , 13.71235 )äÖcircle*ä .29353193åå
Öput( 51.86924 , 14.26875 )äÖcircle*ä .29353193åå
Öput( 52.1914 , 14.85369 )äÖcircle*ä .29353193åå
Öput( 52.51358 , 15.46862 )äÖcircle*ä .29353193åå
Öput( 52.83575 , 16.11507 )äÖcircle*ä .29353193åå
Öput( 53.15792 , 16.79467 )äÖcircle*ä .29353193åå
Öput( 53.48009 , 17.5091 )äÖcircle*ä .29353193åå
Öput( 53.80225 , 18.26018 )äÖcircle*ä .29353193åå
Öput( 54.12442 , 19.04976 )äÖcircle*ä .29353193åå
Öput( 54.44659 , 19.87982 )äÖcircle*ä .29353193åå
Öput( 54.76876 , 20.75244 )äÖcircle*ä .29353193åå
Öput( 55.09093 , 21.6698 )äÖcircle*ä .29353193åå
Öput( 55.4131 , 22.63420 )äÖcircle*ä .29353193åå
Öput( 55.73527 , 23.64804 )äÖcircle*ä .29353193åå
Öput( 56.05744 , 24.71386 )äÖcircle*ä .29353193åå
Öput( 56.3796 , 25.83432 )äÖcircle*ä .29353193åå
Öput( 56.70178 , 27.01224 )äÖcircle*ä .29353193åå
Öput( 57.02395 , 28.25055 )äÖcircle*ä .29353193åå
Öput( 57.34612 , 29.55234 )äÖcircle*ä .29353193åå
Öput( 57.66828 , 30.92088 )äÖcircle*ä .29353193åå
Öput( 57.99045 , 32.35959 )äÖcircle*ä .29353193åå
Öput( 58.31262 , 33.87206 )äÖcircle*ä .29353193åå
Öput( 58.63479 , 35.46208 )äÖcircle*ä .29353193åå
Öput( 58.95696 , 37.13362 )äÖcircle*ä .29353193åå
Öput( 59.27913 , 38.89086 )äÖcircle*ä .29353193åå
Öput( 59.6013 , 40.7382 )äÖcircle*ä .29353193åå
Öput( 59.92347 , 42.68025 )äÖcircle*ä .29353193åå
Öput( 60.24564 , 44.72188 )äÖcircle*ä .29353193åå
Öput( 60.5678 , 46.86818 )äÖcircle*ä .29353193åå
Öput( 60.88998 , 49.12452 )äÖcircle*ä .29353193åå
Öput( 61.21215 , 51.49655 )äÖcircle*ä .29353193åå
Öput( 61.53432 , 53.99019 )äÖcircle*ä .29353193åå
Öput( 61.85648 , 56.61169 )äÖcircle*ä .29353193åå
Öput( 62.17865 , 59.36759 )äÖcircle*ä .29353193åå
Öput( 62.50082 , 62.26480 )äÖcircle*ä .29353193åå
Öput( 62.82299 , 65.31054 )äÖcircle*ä .29353193åå
Öput( 63.14516 , 68.51244 )äÖcircle*ä .29353193åå
Öput( 63.46733 , 71.87851 )äÖcircle*ä .29353193åå
Öput( 63.7895 , 75.41716 )äÖcircle*ä .29353193åå
Öput( 64.11167 , 79.13724 )äÖcircle*ä .29353193åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
