apl>" <-APL2-------------------- sam305.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,i,1e6,-5,5,1,1,10,0
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#11O*x+(nÖ#1)X0j1å
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .04484316inå
Öbeginäpictureå(100.3498,133.7997)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä100.3498åå% bottom
Öput(0,0)äÖline(0,1)ä133.7997åå% left
Öput(0,133.7997)äÖline(1,0)ä100.3498åå% top
Öput(100.3498,0)äÖline(0,1)ä133.7997åå% right
%Draw the x axis
Öput(0,0)äÖline(1,0)ä100.3498åå%x axis
Öput( 10.03498 , 0 )äÖcircle*ä .45714889åå
Öput( 20.06995 , 0 )äÖcircle*ä .45714889åå
Öput( 30.10493 , 0 )äÖcircle*ä .45714889åå
Öput( 40.1399 , 0 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 0 )äÖcircle*ä .45714889åå
Öput( 60.20985 , 0 )äÖcircle*ä .45714889åå
Öput( 70.24483 , 0 )äÖcircle*ä .45714889åå
Öput( 80.2798 , 0 )äÖcircle*ä .45714889åå
Öput( 90.31478 , 0 )äÖcircle*ä .45714889åå
%Draw the x axis marker values
Öput( 10.02501 , 0 )ä$ -4 $å
Öput( 20.05999 , 0 )ä$ -3 $å
Öput( 30.09496 , 0 )ä$ -2 $å
Öput( 40.12994 , 0 )ä$ -1 $å
Öput( 50.17488 , 0 )ä$ 0 $å
Öput( 60.20985 , 0 )ä$ 1 $å
Öput( 70.24483 , 0 )ä$ 2 $å
Öput( 80.2798 , 0 )ä$ 3 $å
Öput( 90.31478 , 0 )ä$ 4 $å
%Draw the y axis
Öput(50.17488,0)äÖline(0,1)ä133.7997åå%y axis
%Draw the y axis markers
Öput( 50.17488 , 14.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 24.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 34.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 44.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 54.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 64.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 74.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 84.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 94.45432 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 104.4543 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 114.4543 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 124.4543 )äÖcircle*ä .45714889åå
%Draw the y axis marker values
Öput( 51.28988 , 14.45432 )ä$ 10 $å
Öput( 51.28988 , 24.45432 )ä$ 20 $å
Öput( 51.28988 , 34.45432 )ä$ 30 $å
Öput( 51.28988 , 44.45432 )ä$ 40 $å
Öput( 51.28988 , 54.45432 )ä$ 50 $å
Öput( 51.28988 , 64.45432 )ä$ 60 $å
Öput( 51.28988 , 74.45432 )ä$ 70 $å
Öput( 51.28988 , 84.45432 )ä$ 80 $å
Öput( 51.28988 , 94.45432 )ä$ 90 $å
Öput( 51.28988 , 104.4543 )ä$ 100 $å
Öput( 51.28988 , 114.4543 )ä$ 110 $å
Öput( 51.28988 , 124.4543 )ä$ 120 $å
%Draw the data points
Öput( .501749 , 4.460280 )äÖcircle*ä .45714889åå
Öput( 1.003498 , 4.460585 )äÖcircle*ä .45714889åå
Öput( 1.505246 , 4.460907 )äÖcircle*ä .45714889åå
Öput( 2.006995 , 4.461244 )äÖcircle*ä .45714889åå
Öput( 2.508744 , 4.461600 )äÖcircle*ä .45714889åå
Öput( 3.010493 , 4.461973 )äÖcircle*ä .45714889åå
Öput( 3.512241 , 4.462365 )äÖcircle*ä .45714889åå
Öput( 4.01399 , 4.462778 )äÖcircle*ä .45714889åå
Öput( 4.515739 , 4.463211 )äÖcircle*ä .45714889åå
Öput( 5.017488 , 4.463667 )äÖcircle*ä .45714889åå
Öput( 5.519237 , 4.464147 )äÖcircle*ä .45714889åå
Öput( 6.020985 , 4.46465 )äÖcircle*ä .45714889åå
Öput( 6.522734 , 4.46518 )äÖcircle*ä .45714889åå
Öput( 7.024483 , 4.465737 )äÖcircle*ä .45714889åå
Öput( 7.526232 , 4.466322 )äÖcircle*ä .45714889åå
Öput( 8.02798 , 4.466938 )äÖcircle*ä .45714889åå
Öput( 8.529729 , 4.467585 )äÖcircle*ä .45714889åå
Öput( 9.031478 , 4.468265 )äÖcircle*ä .45714889åå
Öput( 9.53323 , 4.468980 )äÖcircle*ä .45714889åå
Öput( 10.03498 , 4.469731 )äÖcircle*ä .45714889åå
Öput( 10.53672 , 4.470522 )äÖcircle*ä .45714889åå
Öput( 11.03847 , 4.471352 )äÖcircle*ä .45714889åå
Öput( 11.54022 , 4.472226 )äÖcircle*ä .45714889åå
Öput( 12.04197 , 4.473144 )äÖcircle*ä .45714889åå
Öput( 12.54372 , 4.474109 )äÖcircle*ä .45714889åå
Öput( 13.04547 , 4.475124 )äÖcircle*ä .45714889åå
Öput( 13.54722 , 4.47619 )äÖcircle*ä .45714889åå
Öput( 14.04897 , 4.477312 )äÖcircle*ä .45714889åå
Öput( 14.55071 , 4.47849 )äÖcircle*ä .45714889åå
Öput( 15.05246 , 4.479730 )äÖcircle*ä .45714889åå
Öput( 15.55421 , 4.481032 )äÖcircle*ä .45714889åå
Öput( 16.05596 , 4.482402 )äÖcircle*ä .45714889åå
Öput( 16.55771 , 4.483842 )äÖcircle*ä .45714889åå
Öput( 17.05946 , 4.485356 )äÖcircle*ä .45714889åå
Öput( 17.5612 , 4.486947 )äÖcircle*ä .45714889åå
Öput( 18.06296 , 4.488620 )äÖcircle*ä .45714889åå
Öput( 18.5647 , 4.490378 )äÖcircle*ä .45714889åå
Öput( 19.06645 , 4.492227 )äÖcircle*ä .45714889åå
Öput( 19.5682 , 4.49417 )äÖcircle*ä .45714889åå
Öput( 20.06995 , 4.496214 )äÖcircle*ä .45714889åå
Öput( 20.5717 , 4.498362 )äÖcircle*ä .45714889åå
Öput( 21.07345 , 4.500620 )äÖcircle*ä .45714889åå
Öput( 21.57520 , 4.502994 )äÖcircle*ä .45714889åå
Öput( 22.07695 , 4.505489 )äÖcircle*ä .45714889åå
Öput( 22.57870 , 4.508113 )äÖcircle*ä .45714889åå
Öput( 23.08044 , 4.51087 )äÖcircle*ä .45714889åå
Öput( 23.58219 , 4.51377 )äÖcircle*ä .45714889åå
Öput( 24.08394 , 4.516818 )äÖcircle*ä .45714889åå
Öput( 24.58569 , 4.520023 )äÖcircle*ä .45714889åå
Öput( 25.08744 , 4.523392 )äÖcircle*ä .45714889åå
Öput( 25.58919 , 4.526933 )äÖcircle*ä .45714889åå
Öput( 26.09094 , 4.530656 )äÖcircle*ä .45714889åå
Öput( 26.59269 , 4.534570 )äÖcircle*ä .45714889åå
Öput( 27.09443 , 4.538684 )äÖcircle*ä .45714889åå
Öput( 27.59618 , 4.543010 )äÖcircle*ä .45714889åå
Öput( 28.09793 , 4.547557 )äÖcircle*ä .45714889åå
Öput( 28.59968 , 4.552337 )äÖcircle*ä .45714889åå
Öput( 29.10143 , 4.557363 )äÖcircle*ä .45714889åå
Öput( 29.60318 , 4.562646 )äÖcircle*ä .45714889åå
Öput( 30.10493 , 4.5682 )äÖcircle*ä .45714889åå
Öput( 30.60668 , 4.574039 )äÖcircle*ä .45714889åå
Öput( 31.10842 , 4.580177 )äÖcircle*ä .45714889åå
Öput( 31.61017 , 4.58663 )äÖcircle*ä .45714889åå
Öput( 32.11192 , 4.593414 )äÖcircle*ä .45714889åå
Öput( 32.61367 , 4.600545 )äÖcircle*ä .45714889åå
Öput( 33.11542 , 4.608042 )äÖcircle*ä .45714889åå
Öput( 33.61717 , 4.615924 )äÖcircle*ä .45714889åå
Öput( 34.11892 , 4.624209 )äÖcircle*ä .45714889åå
Öput( 34.62067 , 4.63292 )äÖcircle*ä .45714889åå
Öput( 35.12241 , 4.642077 )äÖcircle*ä .45714889åå
Öput( 35.62416 , 4.651703 )äÖcircle*ä .45714889åå
Öput( 36.12591 , 4.661824 )äÖcircle*ä .45714889åå
Öput( 36.62766 , 4.672463 )äÖcircle*ä .45714889åå
Öput( 37.12941 , 4.683647 )äÖcircle*ä .45714889åå
Öput( 37.63116 , 4.695405 )äÖcircle*ä .45714889åå
Öput( 38.1329 , 4.707766 )äÖcircle*ä .45714889åå
Öput( 38.63466 , 4.72076 )äÖcircle*ä .45714889åå
Öput( 39.1364 , 4.73442 )äÖcircle*ä .45714889åå
Öput( 39.63815 , 4.748782 )äÖcircle*ä .45714889åå
Öput( 40.1399 , 4.763879 )äÖcircle*ä .45714889åå
Öput( 40.64165 , 4.77975 )äÖcircle*ä .45714889åå
Öput( 41.1434 , 4.796436 )äÖcircle*ä .45714889åå
Öput( 41.64515 , 4.813977 )äÖcircle*ä .45714889åå
Öput( 42.14690 , 4.832417 )äÖcircle*ä .45714889åå
Öput( 42.64865 , 4.851802 )äÖcircle*ä .45714889åå
Öput( 43.15040 , 4.872182 )äÖcircle*ä .45714889åå
Öput( 43.65214 , 4.893606 )äÖcircle*ä .45714889åå
Öput( 44.15389 , 4.916128 )äÖcircle*ä .45714889åå
Öput( 44.65564 , 4.939806 )äÖcircle*ä .45714889åå
Öput( 45.15739 , 4.964697 )äÖcircle*ä .45714889åå
Öput( 45.65914 , 4.990865 )äÖcircle*ä .45714889åå
Öput( 46.16089 , 5.018374 )äÖcircle*ä .45714889åå
Öput( 46.66264 , 5.047294 )äÖcircle*ä .45714889åå
Öput( 47.16439 , 5.077696 )äÖcircle*ä .45714889åå
Öput( 47.66613 , 5.109658 )äÖcircle*ä .45714889åå
Öput( 48.16788 , 5.143258 )äÖcircle*ä .45714889åå
Öput( 48.66963 , 5.17858 )äÖcircle*ä .45714889åå
Öput( 49.17138 , 5.215714 )äÖcircle*ä .45714889åå
Öput( 49.67313 , 5.254751 )äÖcircle*ä .45714889åå
Öput( 50.17488 , 5.29579 )äÖcircle*ä .45714889åå
Öput( 50.67663 , 5.338934 )äÖcircle*ä .45714889åå
Öput( 51.17838 , 5.384289 )äÖcircle*ä .45714889åå
Öput( 51.68012 , 5.431969 )äÖcircle*ä .45714889åå
Öput( 52.18187 , 5.482094 )äÖcircle*ä .45714889åå
Öput( 52.68362 , 5.534790 )äÖcircle*ä .45714889åå
Öput( 53.18537 , 5.590186 )äÖcircle*ä .45714889åå
Öput( 53.68712 , 5.648424 )äÖcircle*ä .45714889åå
Öput( 54.18887 , 5.709647 )äÖcircle*ä .45714889åå
Öput( 54.69062 , 5.774009 )äÖcircle*ä .45714889åå
Öput( 55.19237 , 5.84167 )äÖcircle*ä .45714889åå
Öput( 55.69412 , 5.912802 )äÖcircle*ä .45714889åå
Öput( 56.19586 , 5.987580 )äÖcircle*ä .45714889åå
Öput( 56.69761 , 6.066191 )äÖcircle*ä .45714889åå
Öput( 57.19936 , 6.148834 )äÖcircle*ä .45714889åå
Öput( 57.70111 , 6.235713 )äÖcircle*ä .45714889åå
Öput( 58.20286 , 6.327048 )äÖcircle*ä .45714889åå
Öput( 58.7046 , 6.423064 )äÖcircle*ä .45714889åå
Öput( 59.20636 , 6.524004 )äÖcircle*ä .45714889åå
Öput( 59.7081 , 6.630119 )äÖcircle*ä .45714889åå
Öput( 60.20985 , 6.741675 )äÖcircle*ä .45714889åå
Öput( 60.7116 , 6.85895 )äÖcircle*ä .45714889åå
Öput( 61.21335 , 6.982238 )äÖcircle*ä .45714889åå
Öput( 61.7151 , 7.111847 )äÖcircle*ä .45714889åå
Öput( 62.21685 , 7.248101 )äÖcircle*ä .45714889åå
Öput( 62.71860 , 7.391342 )äÖcircle*ä .45714889åå
Öput( 63.22035 , 7.541926 )äÖcircle*ä .45714889åå
Öput( 63.72210 , 7.700231 )äÖcircle*ä .45714889åå
Öput( 64.22384 , 7.866653 )äÖcircle*ä .45714889åå
Öput( 64.72559 , 8.041607 )äÖcircle*ä .45714889åå
Öput( 65.22734 , 8.22553 )äÖcircle*ä .45714889åå
Öput( 65.72909 , 8.418885 )äÖcircle*ä .45714889åå
Öput( 66.23084 , 8.622152 )äÖcircle*ä .45714889åå
Öput( 66.73259 , 8.835842 )äÖcircle*ä .45714889åå
Öput( 67.23434 , 9.060487 )äÖcircle*ä .45714889åå
Öput( 67.73609 , 9.29665 )äÖcircle*ä .45714889åå
Öput( 68.23783 , 9.54492 )äÖcircle*ä .45714889åå
Öput( 68.73958 , 9.80592 )äÖcircle*ä .45714889åå
Öput( 69.24133 , 10.0803 )äÖcircle*ä .45714889åå
Öput( 69.74308 , 10.36876 )äÖcircle*ä .45714889åå
Öput( 70.24483 , 10.67200 )äÖcircle*ä .45714889åå
Öput( 70.74658 , 10.99078 )äÖcircle*ä .45714889åå
Öput( 71.24833 , 11.32591 )äÖcircle*ä .45714889åå
Öput( 71.75008 , 11.67823 )äÖcircle*ä .45714889åå
Öput( 72.25182 , 12.0486 )äÖcircle*ä .45714889åå
Öput( 72.75357 , 12.43797 )äÖcircle*ä .45714889åå
Öput( 73.25532 , 12.8473 )äÖcircle*ä .45714889åå
Öput( 73.75707 , 13.27762 )äÖcircle*ä .45714889åå
Öput( 74.25882 , 13.73 )äÖcircle*ä .45714889åå
Öput( 74.76057 , 14.20558 )äÖcircle*ä .45714889åå
Öput( 75.26232 , 14.70553 )äÖcircle*ä .45714889åå
Öput( 75.76407 , 15.23113 )äÖcircle*ä .45714889åå
Öput( 76.26582 , 15.78366 )äÖcircle*ä .45714889åå
Öput( 76.76756 , 16.36453 )äÖcircle*ä .45714889åå
Öput( 77.26931 , 16.97518 )äÖcircle*ä .45714889åå
Öput( 77.77106 , 17.61714 )äÖcircle*ä .45714889åå
Öput( 78.27281 , 18.29201 )äÖcircle*ä .45714889åå
Öput( 78.77456 , 19.00149 )äÖcircle*ä .45714889åå
Öput( 79.2763 , 19.74734 )äÖcircle*ä .45714889åå
Öput( 79.77806 , 20.53143 )äÖcircle*ä .45714889åå
Öput( 80.2798 , 21.35572 )äÖcircle*ä .45714889åå
Öput( 80.78155 , 22.22227 )äÖcircle*ä .45714889åå
Öput( 81.2833 , 23.13325 )äÖcircle*ä .45714889åå
Öput( 81.78505 , 24.09094 )äÖcircle*ä .45714889åå
Öput( 82.2868 , 25.09773 )äÖcircle*ä .45714889åå
Öput( 82.78855 , 26.15614 )äÖcircle*ä .45714889åå
Öput( 83.29030 , 27.26882 )äÖcircle*ä .45714889åå
Öput( 83.79205 , 28.43854 )äÖcircle*ä .45714889åå
Öput( 84.29380 , 29.66824 )äÖcircle*ä .45714889åå
Öput( 84.79554 , 30.96099 )äÖcircle*ä .45714889åå
Öput( 85.29729 , 32.32001 )äÖcircle*ä .45714889åå
Öput( 85.79904 , 33.74872 )äÖcircle*ä .45714889åå
Öput( 86.30079 , 35.25067 )äÖcircle*ä .45714889åå
Öput( 86.80254 , 36.82963 )äÖcircle*ä .45714889åå
Öput( 87.30429 , 38.48955 )äÖcircle*ä .45714889åå
Öput( 87.80604 , 40.23458 )äÖcircle*ä .45714889åå
Öput( 88.30779 , 42.06907 )äÖcircle*ä .45714889åå
Öput( 88.80953 , 43.99762 )äÖcircle*ä .45714889åå
Öput( 89.31128 , 46.02505 )äÖcircle*ä .45714889åå
Öput( 89.81303 , 48.15642 )äÖcircle*ä .45714889åå
Öput( 90.31478 , 50.39708 )äÖcircle*ä .45714889åå
Öput( 90.81653 , 52.75261 )äÖcircle*ä .45714889åå
Öput( 91.31828 , 55.22892 )äÖcircle*ä .45714889åå
Öput( 91.82003 , 57.83219 )äÖcircle*ä .45714889åå
Öput( 92.32178 , 60.56893 )äÖcircle*ä .45714889åå
Öput( 92.82353 , 63.44599 )äÖcircle*ä .45714889åå
Öput( 93.32527 , 66.47056 )äÖcircle*ä .45714889åå
Öput( 93.82702 , 69.65020 )äÖcircle*ä .45714889åå
Öput( 94.32877 , 72.99286 )äÖcircle*ä .45714889åå
Öput( 94.83052 , 76.5069 )äÖcircle*ä .45714889åå
Öput( 95.33227 , 80.20112 )äÖcircle*ä .45714889åå
Öput( 95.83402 , 84.08475 )äÖcircle*ä .45714889åå
Öput( 96.33577 , 88.16748 )äÖcircle*ä .45714889åå
Öput( 96.83752 , 92.45955 )äÖcircle*ä .45714889åå
Öput( 97.33926 , 96.97167 )äÖcircle*ä .45714889åå
Öput( 97.84101 , 101.7151 )äÖcircle*ä .45714889åå
Öput( 98.34276 , 106.7018 )äÖcircle*ä .45714889åå
Öput( 98.84451 , 111.9442 )äÖcircle*ä .45714889åå
Öput( 99.34626 , 117.4553 )äÖcircle*ä .45714889åå
Öput( 99.848 , 123.2490 )äÖcircle*ä .45714889åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
