apl>" <-APL2-------------------- sam320.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>ylwc#(maxy#1.5)_miny#-1.5
apl> '7Ox' graph 1,1,1,r,1.5,-4,4,1,0.5,.5 ,1 " tanhdatx.tex
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#9O7Ox+nX0j1å
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .5625inå
Öbeginäpictureå(8,10.66667)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä8åå% bottom
Öput(0,0)äÖline(0,1)ä10.66667åå% left
Öput(0,10.66667)äÖline(1,0)ä8åå% top
Öput(8,0)äÖline(0,1)ä10.66667åå% right
%Draw the x axis
Öput(0,5.333333)äÖline(1,0)ä8åå%x axis
Öput( 1 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 2 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 3 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 4 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 5 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 6 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 7 , 5.333333 )äÖcircle*ä .03644444åå
%Draw the x axis marker values
Öput( .9 , 5.084444 )ä$ -3 $å
Öput( 1.9 , 5.084444 )ä$ -2 $å
Öput( 2.9 , 5.084444 )ä$ -1 $å
Öput( 4 , 5.084444 )ä$ 0 $å
Öput( 5 , 5.084444 )ä$ 1 $å
Öput( 6 , 5.084444 )ä$ 2 $å
Öput( 7 , 5.084444 )ä$ 3 $å
%Draw the y axis
Öput(4,0)äÖline(0,1)ä10.66667åå%y axis
%Draw the y axis markers
Öput( 4 , .35555556 )äÖcircle*ä .03644444åå
Öput( 4 , 2.014815 )äÖcircle*ä .03644444åå
Öput( 4 , 3.674074 )äÖcircle*ä .03644444åå
Öput( 4 , 6.992593 )äÖcircle*ä .03644444åå
Öput( 4 , 8.651852 )äÖcircle*ä .03644444åå
Öput( 4 , 10.31111 )äÖcircle*ä .03644444åå
%Draw the y axis marker values
Öput( 4.088889 , .32542163 )ä$ -1.5 $å
Öput( 4.088889 , 1.98468 )ä$ -1 $å
Öput( 4.088889 , 3.64394 )ä$ -0.5 $å
Öput( 4.088889 , 6.992593 )ä$ .5 $å
Öput( 4.088889 , 8.651852 )ä$ 1 $å
Öput( 4.088889 , 10.31111 )ä$ 1.5 $å
%Label the curve
Öput( 0 , 1.767129 )änÖ# .5å
%Draw the data points
Öput( .04 , 2.016118 )äÖcircle*ä .03644444åå
Öput( .08 , 2.016227 )äÖcircle*ä .03644444åå
Öput( .12 , 2.016345 )äÖcircle*ä .03644444åå
Öput( .16 , 2.016472 )äÖcircle*ä .03644444åå
Öput( .2 , 2.01661 )äÖcircle*ä .03644444åå
Öput( .24 , 2.016760 )äÖcircle*ä .03644444åå
Öput( .28 , 2.016922 )äÖcircle*ä .03644444åå
Öput( .32 , 2.017097 )äÖcircle*ä .03644444åå
Öput( .36 , 2.017288 )äÖcircle*ä .03644444åå
Öput( .4 , 2.017494 )äÖcircle*ä .03644444åå
Öput( .44 , 2.017717 )äÖcircle*ä .03644444åå
Öput( .48 , 2.017959 )äÖcircle*ä .03644444åå
Öput( .52 , 2.01822 )äÖcircle*ä .03644444åå
Öput( .56 , 2.018505 )äÖcircle*ä .03644444åå
Öput( .6 , 2.018812 )äÖcircle*ä .03644444åå
Öput( .64 , 2.019145 )äÖcircle*ä .03644444åå
Öput( .68 , 2.019507 )äÖcircle*ä .03644444åå
Öput( .72 , 2.019898 )äÖcircle*ä .03644444åå
Öput( .76 , 2.020322 )äÖcircle*ä .03644444åå
Öput( .8 , 2.02078 )äÖcircle*ä .03644444åå
Öput( .84 , 2.021278 )äÖcircle*ä .03644444åå
Öput( .88 , 2.021817 )äÖcircle*ä .03644444åå
Öput( .92 , 2.022402 )äÖcircle*ä .03644444åå
Öput( .96 , 2.023035 )äÖcircle*ä .03644444åå
Öput( 1 , 2.02372 )äÖcircle*ä .03644444åå
Öput( 1.04 , 2.024464 )äÖcircle*ä .03644444åå
Öput( 1.08 , 2.025269 )äÖcircle*ä .03644444åå
Öput( 1.12 , 2.026142 )äÖcircle*ä .03644444åå
Öput( 1.16 , 2.027088 )äÖcircle*ä .03644444åå
Öput( 1.2 , 2.028113 )äÖcircle*ä .03644444åå
Öput( 1.24 , 2.029224 )äÖcircle*ä .03644444åå
Öput( 1.28 , 2.030428 )äÖcircle*ä .03644444åå
Öput( 1.32 , 2.031733 )äÖcircle*ä .03644444åå
Öput( 1.36 , 2.033147 )äÖcircle*ä .03644444åå
Öput( 1.4 , 2.03468 )äÖcircle*ä .03644444åå
Öput( 1.44 , 2.036342 )äÖcircle*ä .03644444åå
Öput( 1.48 , 2.038144 )äÖcircle*ä .03644444åå
Öput( 1.52 , 2.040097 )äÖcircle*ä .03644444åå
Öput( 1.56 , 2.042214 )äÖcircle*ä .03644444åå
Öput( 1.6 , 2.04451 )äÖcircle*ä .03644444åå
Öput( 1.64 , 2.047000 )äÖcircle*ä .03644444åå
Öput( 1.68 , 2.049699 )äÖcircle*ä .03644444åå
Öput( 1.72 , 2.052627 )äÖcircle*ä .03644444åå
Öput( 1.76 , 2.055802 )äÖcircle*ä .03644444åå
Öput( 1.8 , 2.059246 )äÖcircle*ä .03644444åå
Öput( 1.84 , 2.062982 )äÖcircle*ä .03644444åå
Öput( 1.88 , 2.067034 )äÖcircle*ä .03644444åå
Öput( 1.92 , 2.071432 )äÖcircle*ä .03644444åå
Öput( 1.96 , 2.076203 )äÖcircle*ä .03644444åå
Öput( 2 , 2.081381 )äÖcircle*ä .03644444åå
Öput( 2.04 , 2.087002 )äÖcircle*ä .03644444åå
Öput( 2.08 , 2.093103 )äÖcircle*ä .03644444åå
Öput( 2.12 , 2.099726 )äÖcircle*ä .03644444åå
Öput( 2.16 , 2.106918 )äÖcircle*ä .03644444åå
Öput( 2.2 , 2.114728 )äÖcircle*ä .03644444åå
Öput( 2.24 , 2.123211 )äÖcircle*ä .03644444åå
Öput( 2.28 , 2.132427 )äÖcircle*ä .03644444åå
Öput( 2.32 , 2.142439 )äÖcircle*ä .03644444åå
Öput( 2.36 , 2.153319 )äÖcircle*ä .03644444åå
Öput( 2.4 , 2.165145 )äÖcircle*ä .03644444åå
Öput( 2.44 , 2.177999 )äÖcircle*ä .03644444åå
Öput( 2.48 , 2.191975 )äÖcircle*ä .03644444åå
Öput( 2.52 , 2.207172 )äÖcircle*ä .03644444åå
Öput( 2.56 , 2.223699 )äÖcircle*ä .03644444åå
Öput( 2.6 , 2.241677 )äÖcircle*ä .03644444åå
Öput( 2.64 , 2.261233 )äÖcircle*ä .03644444åå
Öput( 2.68 , 2.282509 )äÖcircle*ä .03644444åå
Öput( 2.72 , 2.305659 )äÖcircle*ä .03644444åå
Öput( 2.76 , 2.330848 )äÖcircle*ä .03644444åå
Öput( 2.8 , 2.358257 )äÖcircle*ä .03644444åå
Öput( 2.84 , 2.388079 )äÖcircle*ä .03644444åå
Öput( 2.88 , 2.420525 )äÖcircle*ä .03644444åå
Öput( 2.92 , 2.455820 )äÖcircle*ä .03644444åå
Öput( 2.96 , 2.494204 )äÖcircle*ä .03644444åå
Öput( 3 , 2.535934 )äÖcircle*ä .03644444åå
Öput( 3.04 , 2.581284 )äÖcircle*ä .03644444åå
Öput( 3.08 , 2.63054 )äÖcircle*ä .03644444åå
Öput( 3.12 , 2.684003 )äÖcircle*ä .03644444åå
Öput( 3.16 , 2.741984 )äÖcircle*ä .03644444åå
Öput( 3.2 , 2.804804 )äÖcircle*ä .03644444åå
Öput( 3.24 , 2.872785 )äÖcircle*ä .03644444åå
Öput( 3.28 , 2.94625 )äÖcircle*ä .03644444åå
Öput( 3.32 , 3.025518 )äÖcircle*ä .03644444åå
Öput( 3.36 , 3.110888 )äÖcircle*ä .03644444åå
Öput( 3.4 , 3.202638 )äÖcircle*ä .03644444åå
Öput( 3.44 , 3.301012 )äÖcircle*ä .03644444åå
Öput( 3.48 , 3.406209 )äÖcircle*ä .03644444åå
Öput( 3.52 , 3.51837 )äÖcircle*ä .03644444åå
Öput( 3.56 , 3.637567 )äÖcircle*ä .03644444åå
Öput( 3.6 , 3.763787 )äÖcircle*ä .03644444åå
Öput( 3.64 , 3.896923 )äÖcircle*ä .03644444åå
Öput( 3.68 , 4.036762 )äÖcircle*ä .03644444åå
Öput( 3.72 , 4.182977 )äÖcircle*ä .03644444åå
Öput( 3.76 , 4.335123 )äÖcircle*ä .03644444åå
Öput( 3.8 , 4.492634 )äÖcircle*ä .03644444åå
Öput( 3.84 , 4.654827 )äÖcircle*ä .03644444åå
Öput( 3.88 , 4.820912 )äÖcircle*ä .03644444åå
Öput( 3.92 , 4.990006 )äÖcircle*ä .03644444åå
Öput( 3.96 , 5.16115 )äÖcircle*ä .03644444åå
Öput( 4 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 4.04 , 5.505516 )äÖcircle*ä .03644444åå
Öput( 4.08 , 5.67666 )äÖcircle*ä .03644444åå
Öput( 4.12 , 5.845755 )äÖcircle*ä .03644444åå
Öput( 4.16 , 6.01184 )äÖcircle*ä .03644444åå
Öput( 4.2 , 6.174033 )äÖcircle*ä .03644444åå
Öput( 4.24 , 6.331544 )äÖcircle*ä .03644444åå
Öput( 4.28 , 6.483690 )äÖcircle*ä .03644444åå
Öput( 4.32 , 6.629905 )äÖcircle*ä .03644444åå
Öput( 4.36 , 6.769744 )äÖcircle*ä .03644444åå
Öput( 4.4 , 6.90288 )äÖcircle*ä .03644444åå
Öput( 4.44 , 7.029100 )äÖcircle*ä .03644444åå
Öput( 4.48 , 7.148296 )äÖcircle*ä .03644444åå
Öput( 4.52 , 7.260458 )äÖcircle*ä .03644444åå
Öput( 4.56 , 7.365655 )äÖcircle*ä .03644444åå
Öput( 4.6 , 7.464029 )äÖcircle*ä .03644444åå
Öput( 4.64 , 7.555779 )äÖcircle*ä .03644444åå
Öput( 4.68 , 7.641149 )äÖcircle*ä .03644444åå
Öput( 4.72 , 7.720416 )äÖcircle*ä .03644444åå
Öput( 4.76 , 7.793882 )äÖcircle*ä .03644444åå
Öput( 4.8 , 7.861863 )äÖcircle*ä .03644444åå
Öput( 4.84 , 7.924682 )äÖcircle*ä .03644444åå
Öput( 4.88 , 7.982663 )äÖcircle*ä .03644444åå
Öput( 4.92 , 8.036126 )äÖcircle*ä .03644444åå
Öput( 4.96 , 8.085382 )äÖcircle*ä .03644444åå
Öput( 5 , 8.130732 )äÖcircle*ä .03644444åå
Öput( 5.04 , 8.172463 )äÖcircle*ä .03644444åå
Öput( 5.08 , 8.210847 )äÖcircle*ä .03644444åå
Öput( 5.12 , 8.246142 )äÖcircle*ä .03644444åå
Öput( 5.16 , 8.278587 )äÖcircle*ä .03644444åå
Öput( 5.2 , 8.308410 )äÖcircle*ä .03644444åå
Öput( 5.24 , 8.335818 )äÖcircle*ä .03644444åå
Öput( 5.28 , 8.361007 )äÖcircle*ä .03644444åå
Öput( 5.32 , 8.384157 )äÖcircle*ä .03644444åå
Öput( 5.36 , 8.405434 )äÖcircle*ä .03644444åå
Öput( 5.4 , 8.42499 )äÖcircle*ä .03644444åå
Öput( 5.44 , 8.442967 )äÖcircle*ä .03644444åå
Öput( 5.48 , 8.459495 )äÖcircle*ä .03644444åå
Öput( 5.52 , 8.474692 )äÖcircle*ä .03644444åå
Öput( 5.56 , 8.488667 )äÖcircle*ä .03644444åå
Öput( 5.6 , 8.501522 )äÖcircle*ä .03644444åå
Öput( 5.64 , 8.513347 )äÖcircle*ä .03644444åå
Öput( 5.68 , 8.524228 )äÖcircle*ä .03644444åå
Öput( 5.72 , 8.53424 )äÖcircle*ä .03644444åå
Öput( 5.76 , 8.543455 )äÖcircle*ä .03644444åå
Öput( 5.8 , 8.551938 )äÖcircle*ä .03644444åå
Öput( 5.84 , 8.559749 )äÖcircle*ä .03644444åå
Öput( 5.88 , 8.56694 )äÖcircle*ä .03644444åå
Öput( 5.92 , 8.573564 )äÖcircle*ä .03644444åå
Öput( 5.96 , 8.579665 )äÖcircle*ä .03644444åå
Öput( 6 , 8.585285 )äÖcircle*ä .03644444åå
Öput( 6.04 , 8.590463 )äÖcircle*ä .03644444åå
Öput( 6.08 , 8.595235 )äÖcircle*ä .03644444åå
Öput( 6.12 , 8.599632 )äÖcircle*ä .03644444åå
Öput( 6.16 , 8.603685 )äÖcircle*ä .03644444åå
Öput( 6.2 , 8.607421 )äÖcircle*ä .03644444åå
Öput( 6.24 , 8.610865 )äÖcircle*ä .03644444åå
Öput( 6.28 , 8.61404 )äÖcircle*ä .03644444åå
Öput( 6.32 , 8.616968 )äÖcircle*ä .03644444åå
Öput( 6.36 , 8.619667 )äÖcircle*ä .03644444åå
Öput( 6.4 , 8.622157 )äÖcircle*ä .03644444åå
Öput( 6.44 , 8.624452 )äÖcircle*ä .03644444åå
Öput( 6.48 , 8.626570 )äÖcircle*ä .03644444åå
Öput( 6.52 , 8.628523 )äÖcircle*ä .03644444åå
Öput( 6.56 , 8.630325 )äÖcircle*ä .03644444åå
Öput( 6.6 , 8.631986 )äÖcircle*ä .03644444åå
Öput( 6.64 , 8.633520 )äÖcircle*ä .03644444åå
Öput( 6.68 , 8.634934 )äÖcircle*ä .03644444åå
Öput( 6.72 , 8.636239 )äÖcircle*ä .03644444åå
Öput( 6.76 , 8.637443 )äÖcircle*ä .03644444åå
Öput( 6.8 , 8.638554 )äÖcircle*ä .03644444åå
Öput( 6.84 , 8.639579 )äÖcircle*ä .03644444åå
Öput( 6.88 , 8.640525 )äÖcircle*ä .03644444åå
Öput( 6.92 , 8.641398 )äÖcircle*ä .03644444åå
Öput( 6.96 , 8.642203 )äÖcircle*ä .03644444åå
Öput( 7 , 8.642946 )äÖcircle*ä .03644444åå
Öput( 7.04 , 8.643632 )äÖcircle*ä .03644444åå
Öput( 7.08 , 8.644265 )äÖcircle*ä .03644444åå
Öput( 7.12 , 8.644849 )äÖcircle*ä .03644444åå
Öput( 7.16 , 8.645388 )äÖcircle*ä .03644444åå
Öput( 7.2 , 8.645886 )äÖcircle*ä .03644444åå
Öput( 7.24 , 8.646345 )äÖcircle*ä .03644444åå
Öput( 7.28 , 8.646769 )äÖcircle*ä .03644444åå
Öput( 7.32 , 8.64716 )äÖcircle*ä .03644444åå
Öput( 7.36 , 8.647521 )äÖcircle*ä .03644444åå
Öput( 7.4 , 8.647854 )äÖcircle*ä .03644444åå
Öput( 7.44 , 8.648162 )äÖcircle*ä .03644444åå
Öput( 7.48 , 8.648446 )äÖcircle*ä .03644444åå
Öput( 7.52 , 8.648708 )äÖcircle*ä .03644444åå
Öput( 7.56 , 8.648950 )äÖcircle*ä .03644444åå
Öput( 7.6 , 8.649173 )äÖcircle*ä .03644444åå
Öput( 7.64 , 8.649379 )äÖcircle*ä .03644444åå
Öput( 7.68 , 8.649569 )äÖcircle*ä .03644444åå
Öput( 7.72 , 8.649745 )äÖcircle*ä .03644444åå
Öput( 7.76 , 8.649907 )äÖcircle*ä .03644444åå
Öput( 7.8 , 8.650057 )äÖcircle*ä .03644444åå
Öput( 7.84 , 8.650195 )äÖcircle*ä .03644444åå
Öput( 7.88 , 8.650322 )äÖcircle*ä .03644444åå
Öput( 7.92 , 8.650440 )äÖcircle*ä .03644444åå
Öput( 7.96 , 8.650548 )äÖcircle*ä .03644444åå
%Finis.
apl> '7Ox' graph 3,1,1,r,1.5,-4,4,1,2 ,.5 ,1 " tanhdatx.tex
%Label the curve
Öput( 3.52 , .700922 )änÖ#2å
%Draw the data points
Öput( .04 , 2.013238 )äÖcircle*ä .03644444åå
Öput( .08 , 2.013107 )äÖcircle*ä .03644444åå
Öput( .12 , 2.012965 )äÖcircle*ä .03644444åå
Öput( .16 , 2.01281 )äÖcircle*ä .03644444åå
Öput( .2 , 2.012644 )äÖcircle*ä .03644444åå
Öput( .24 , 2.012463 )äÖcircle*ä .03644444åå
Öput( .28 , 2.012267 )äÖcircle*ä .03644444åå
Öput( .32 , 2.012055 )äÖcircle*ä .03644444åå
Öput( .36 , 2.011825 )äÖcircle*ä .03644444åå
Öput( .4 , 2.011576 )äÖcircle*ä .03644444åå
Öput( .44 , 2.011307 )äÖcircle*ä .03644444åå
Öput( .48 , 2.011015 )äÖcircle*ä .03644444åå
Öput( .52 , 2.010698 )äÖcircle*ä .03644444åå
Öput( .56 , 2.010355 )äÖcircle*ä .03644444åå
Öput( .6 , 2.009984 )äÖcircle*ä .03644444åå
Öput( .64 , 2.009582 )äÖcircle*ä .03644444åå
Öput( .68 , 2.009146 )äÖcircle*ä .03644444åå
Öput( .72 , 2.008674 )äÖcircle*ä .03644444åå
Öput( .76 , 2.008163 )äÖcircle*ä .03644444åå
Öput( .8 , 2.007609 )äÖcircle*ä .03644444åå
Öput( .84 , 2.007009 )äÖcircle*ä .03644444åå
Öput( .88 , 2.006360 )äÖcircle*ä .03644444åå
Öput( .92 , 2.005656 )äÖcircle*ä .03644444åå
Öput( .96 , 2.004893 )äÖcircle*ä .03644444åå
Öput( 1 , 2.004067 )äÖcircle*ä .03644444åå
Öput( 1.04 , 2.003173 )äÖcircle*ä .03644444åå
Öput( 1.08 , 2.002204 )äÖcircle*ä .03644444åå
Öput( 1.12 , 2.001154 )äÖcircle*ä .03644444åå
Öput( 1.16 , 2.000017 )äÖcircle*ä .03644444åå
Öput( 1.2 , 1.998786 )äÖcircle*ä .03644444åå
Öput( 1.24 , 1.997452 )äÖcircle*ä .03644444åå
Öput( 1.28 , 1.996008 )äÖcircle*ä .03644444åå
Öput( 1.32 , 1.994443 )äÖcircle*ä .03644444åå
Öput( 1.36 , 1.992748 )äÖcircle*ä .03644444åå
Öput( 1.4 , 1.990913 )äÖcircle*ä .03644444åå
Öput( 1.44 , 1.988925 )äÖcircle*ä .03644444åå
Öput( 1.48 , 1.986772 )äÖcircle*ä .03644444åå
Öput( 1.52 , 1.98444 )äÖcircle*ä .03644444åå
Öput( 1.56 , 1.981915 )äÖcircle*ä .03644444åå
Öput( 1.6 , 1.97918 )äÖcircle*ä .03644444åå
Öput( 1.64 , 1.976219 )äÖcircle*ä .03644444åå
Öput( 1.68 , 1.973012 )äÖcircle*ä .03644444åå
Öput( 1.72 , 1.96954 )äÖcircle*ä .03644444åå
Öput( 1.76 , 1.965780 )äÖcircle*ä .03644444åå
Öput( 1.8 , 1.961709 )äÖcircle*ä .03644444åå
Öput( 1.84 , 1.9573 )äÖcircle*ä .03644444åå
Öput( 1.88 , 1.952528 )äÖcircle*ä .03644444åå
Öput( 1.92 , 1.947362 )äÖcircle*ä .03644444åå
Öput( 1.96 , 1.941770 )äÖcircle*ä .03644444åå
Öput( 2 , 1.935716 )äÖcircle*ä .03644444åå
Öput( 2.04 , 1.929164 )äÖcircle*ä .03644444åå
Öput( 2.08 , 1.922073 )äÖcircle*ä .03644444åå
Öput( 2.12 , 1.9144 )äÖcircle*ä .03644444åå
Öput( 2.16 , 1.906098 )äÖcircle*ä .03644444åå
Öput( 2.2 , 1.897116 )äÖcircle*ä .03644444åå
Öput( 2.24 , 1.887401 )äÖcircle*ä .03644444åå
Öput( 2.28 , 1.876894 )äÖcircle*ä .03644444åå
Öput( 2.32 , 1.865534 )äÖcircle*ä .03644444åå
Öput( 2.36 , 1.853252 )äÖcircle*ä .03644444åå
Öput( 2.4 , 1.839980 )äÖcircle*ä .03644444åå
Öput( 2.44 , 1.825639 )äÖcircle*ä .03644444åå
Öput( 2.48 , 1.810151 )äÖcircle*ä .03644444åå
Öput( 2.52 , 1.79343 )äÖcircle*ä .03644444åå
Öput( 2.56 , 1.775386 )äÖcircle*ä .03644444åå
Öput( 2.6 , 1.755925 )äÖcircle*ä .03644444åå
Öput( 2.64 , 1.734948 )äÖcircle*ä .03644444åå
Öput( 2.68 , 1.712354 )äÖcircle*ä .03644444åå
Öput( 2.72 , 1.688039 )äÖcircle*ä .03644444åå
Öput( 2.76 , 1.661899 )äÖcircle*ä .03644444åå
Öput( 2.8 , 1.633831 )äÖcircle*ä .03644444åå
Öput( 2.84 , 1.603735 )äÖcircle*ä .03644444åå
Öput( 2.88 , 1.57152 )äÖcircle*ä .03644444åå
Öput( 2.92 , 1.537110 )äÖcircle*ä .03644444åå
Öput( 2.96 , 1.500445 )äÖcircle*ä .03644444åå
Öput( 3 , 1.461497 )äÖcircle*ä .03644444åå
Öput( 3.04 , 1.420282 )äÖcircle*ä .03644444åå
Öput( 3.08 , 1.37687 )äÖcircle*ä .03644444åå
Öput( 3.12 , 1.331416 )äÖcircle*ä .03644444åå
Öput( 3.16 , 1.284179 )äÖcircle*ä .03644444åå
Öput( 3.2 , 1.235568 )äÖcircle*ä .03644444åå
Öput( 3.24 , 1.186184 )äÖcircle*ä .03644444åå
Öput( 3.28 , 1.13689 )äÖcircle*ä .03644444åå
Öput( 3.32 , 1.088887 )äÖcircle*ä .03644444åå
Öput( 3.36 , 1.043824 )äÖcircle*ä .03644444åå
Öput( 3.4 , 1.003926 )äÖcircle*ä .03644444åå
Öput( 3.44 , .972163 )äÖcircle*ä .03644444åå
Öput( 3.48 , .952438 )äÖcircle*ä .03644444åå
Öput( 3.52 , .949811 )äÖcircle*ä .03644444åå
Öput( 3.56 , .970734 )äÖcircle*ä .03644444åå
Öput( 3.6 , 1.023252 )äÖcircle*ä .03644444åå
Öput( 3.64 , 1.117120 )äÖcircle*ä .03644444åå
Öput( 3.68 , 1.26371 )äÖcircle*ä .03644444åå
Öput( 3.72 , 1.475564 )äÖcircle*ä .03644444åå
Öput( 3.76 , 1.765380 )äÖcircle*ä .03644444åå
Öput( 3.8 , 2.144289 )äÖcircle*ä .03644444åå
Öput( 3.84 , 2.619372 )äÖcircle*ä .03644444åå
Öput( 3.88 , 3.190719 )äÖcircle*ä .03644444åå
Öput( 3.92 , 3.848769 )äÖcircle*ä .03644444åå
Öput( 3.96 , 4.573046 )äÖcircle*ä .03644444åå
Öput( 4 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 4.04 , 6.093621 )äÖcircle*ä .03644444åå
Öput( 4.08 , 6.817898 )äÖcircle*ä .03644444åå
Öput( 4.12 , 7.475948 )äÖcircle*ä .03644444åå
Öput( 4.16 , 8.047295 )äÖcircle*ä .03644444åå
Öput( 4.2 , 8.522378 )äÖcircle*ä .03644444åå
Öput( 4.24 , 8.901287 )äÖcircle*ä .03644444åå
Öput( 4.28 , 9.191103 )äÖcircle*ä .03644444åå
Öput( 4.32 , 9.402956 )äÖcircle*ä .03644444åå
Öput( 4.36 , 9.54955 )äÖcircle*ä .03644444åå
Öput( 4.4 , 9.64341 )äÖcircle*ä .03644444åå
Öput( 4.44 , 9.69593 )äÖcircle*ä .03644444åå
Öput( 4.48 , 9.71686 )äÖcircle*ä .03644444åå
Öput( 4.52 , 9.71423 )äÖcircle*ä .03644444åå
Öput( 4.56 , 9.6945 )äÖcircle*ä .03644444åå
Öput( 4.6 , 9.66274 )äÖcircle*ä .03644444åå
Öput( 4.64 , 9.62284 )äÖcircle*ä .03644444åå
Öput( 4.68 , 9.57778 )äÖcircle*ä .03644444åå
Öput( 4.72 , 9.52978 )äÖcircle*ä .03644444åå
Öput( 4.76 , 9.480482 )äÖcircle*ä .03644444åå
Öput( 4.8 , 9.431099 )äÖcircle*ä .03644444åå
Öput( 4.84 , 9.382487 )äÖcircle*ä .03644444åå
Öput( 4.88 , 9.33525 )äÖcircle*ä .03644444åå
Öput( 4.92 , 9.289796 )äÖcircle*ä .03644444åå
Öput( 4.96 , 9.246385 )äÖcircle*ä .03644444åå
Öput( 5 , 9.205169 )äÖcircle*ä .03644444åå
Öput( 5.04 , 9.166222 )äÖcircle*ä .03644444åå
Öput( 5.08 , 9.129557 )äÖcircle*ä .03644444åå
Öput( 5.12 , 9.095146 )äÖcircle*ä .03644444åå
Öput( 5.16 , 9.062931 )äÖcircle*ä .03644444åå
Öput( 5.2 , 9.032836 )äÖcircle*ä .03644444åå
Öput( 5.24 , 9.004767 )äÖcircle*ä .03644444åå
Öput( 5.28 , 8.978628 )äÖcircle*ä .03644444åå
Öput( 5.32 , 8.954313 )äÖcircle*ä .03644444åå
Öput( 5.36 , 8.931719 )äÖcircle*ä .03644444åå
Öput( 5.4 , 8.910742 )äÖcircle*ä .03644444åå
Öput( 5.44 , 8.89128 )äÖcircle*ä .03644444åå
Öput( 5.48 , 8.873236 )äÖcircle*ä .03644444åå
Öput( 5.52 , 8.856515 )äÖcircle*ä .03644444åå
Öput( 5.56 , 8.841027 )äÖcircle*ä .03644444åå
Öput( 5.6 , 8.826687 )äÖcircle*ä .03644444åå
Öput( 5.64 , 8.813414 )äÖcircle*ä .03644444åå
Öput( 5.68 , 8.801133 )äÖcircle*ä .03644444åå
Öput( 5.72 , 8.789772 )äÖcircle*ä .03644444åå
Öput( 5.76 , 8.779266 )äÖcircle*ä .03644444åå
Öput( 5.8 , 8.76955 )äÖcircle*ä .03644444åå
Öput( 5.84 , 8.760569 )äÖcircle*ä .03644444åå
Öput( 5.88 , 8.752267 )äÖcircle*ä .03644444åå
Öput( 5.92 , 8.744594 )äÖcircle*ä .03644444åå
Öput( 5.96 , 8.737503 )äÖcircle*ä .03644444åå
Öput( 6 , 8.73095 )äÖcircle*ä .03644444åå
Öput( 6.04 , 8.724897 )äÖcircle*ä .03644444åå
Öput( 6.08 , 8.719305 )äÖcircle*ä .03644444åå
Öput( 6.12 , 8.714138 )äÖcircle*ä .03644444åå
Öput( 6.16 , 8.709366 )äÖcircle*ä .03644444åå
Öput( 6.2 , 8.704958 )äÖcircle*ä .03644444åå
Öput( 6.24 , 8.700887 )äÖcircle*ä .03644444åå
Öput( 6.28 , 8.697127 )äÖcircle*ä .03644444åå
Öput( 6.32 , 8.693654 )äÖcircle*ä .03644444åå
Öput( 6.36 , 8.690447 )äÖcircle*ä .03644444åå
Öput( 6.4 , 8.687486 )äÖcircle*ä .03644444åå
Öput( 6.44 , 8.684751 )äÖcircle*ä .03644444åå
Öput( 6.48 , 8.682226 )äÖcircle*ä .03644444åå
Öput( 6.52 , 8.679895 )äÖcircle*ä .03644444åå
Öput( 6.56 , 8.677742 )äÖcircle*ä .03644444åå
Öput( 6.6 , 8.675754 )äÖcircle*ä .03644444åå
Öput( 6.64 , 8.673918 )äÖcircle*ä .03644444åå
Öput( 6.68 , 8.672224 )äÖcircle*ä .03644444åå
Öput( 6.72 , 8.670659 )äÖcircle*ä .03644444åå
Öput( 6.76 , 8.669214 )äÖcircle*ä .03644444åå
Öput( 6.8 , 8.66788 )äÖcircle*ä .03644444åå
Öput( 6.84 , 8.666649 )äÖcircle*ä .03644444åå
Öput( 6.88 , 8.665512 )äÖcircle*ä .03644444åå
Öput( 6.92 , 8.664463 )äÖcircle*ä .03644444åå
Öput( 6.96 , 8.663494 )äÖcircle*ä .03644444åå
Öput( 7 , 8.662599 )äÖcircle*ä .03644444åå
Öput( 7.04 , 8.661773 )äÖcircle*ä .03644444åå
Öput( 7.08 , 8.661011 )äÖcircle*ä .03644444åå
Öput( 7.12 , 8.660307 )äÖcircle*ä .03644444åå
Öput( 7.16 , 8.659657 )äÖcircle*ä .03644444åå
Öput( 7.2 , 8.659057 )äÖcircle*ä .03644444åå
Öput( 7.24 , 8.658504 )äÖcircle*ä .03644444åå
Öput( 7.28 , 8.657992 )äÖcircle*ä .03644444åå
Öput( 7.32 , 8.65752 )äÖcircle*ä .03644444åå
Öput( 7.36 , 8.657085 )äÖcircle*ä .03644444åå
Öput( 7.4 , 8.656682 )äÖcircle*ä .03644444åå
Öput( 7.44 , 8.656311 )äÖcircle*ä .03644444åå
Öput( 7.48 , 8.655968 )äÖcircle*ä .03644444åå
Öput( 7.52 , 8.655652 )äÖcircle*ä .03644444åå
Öput( 7.56 , 8.655360 )äÖcircle*ä .03644444åå
Öput( 7.6 , 8.65509 )äÖcircle*ä .03644444åå
Öput( 7.64 , 8.654841 )äÖcircle*ä .03644444åå
Öput( 7.68 , 8.654611 )äÖcircle*ä .03644444åå
Öput( 7.72 , 8.654399 )äÖcircle*ä .03644444åå
Öput( 7.76 , 8.654203 )äÖcircle*ä .03644444åå
Öput( 7.8 , 8.654023 )äÖcircle*ä .03644444åå
Öput( 7.84 , 8.653856 )äÖcircle*ä .03644444åå
Öput( 7.88 , 8.653702 )äÖcircle*ä .03644444åå
Öput( 7.92 , 8.653560 )äÖcircle*ä .03644444åå
Öput( 7.96 , 8.653428 )äÖcircle*ä .03644444åå
%Finis.
apl> '7Ox' graph 2,1,1,r,1.5,-4,4,1,4 ,.5 ,1 " tanhdatx.tex
%Label the curve
Öput( 2.68 , 1.730253 )änÖ#4å
%Draw the data points
Öput( .04 , 2.014465 )äÖcircle*ä .03644444åå
Öput( .08 , 2.014436 )äÖcircle*ä .03644444åå
Öput( .12 , 2.014404 )äÖcircle*ä .03644444åå
Öput( .16 , 2.01437 )äÖcircle*ä .03644444åå
Öput( .2 , 2.014333 )äÖcircle*ä .03644444åå
Öput( .24 , 2.014293 )äÖcircle*ä .03644444åå
Öput( .28 , 2.014250 )äÖcircle*ä .03644444åå
Öput( .32 , 2.014203 )äÖcircle*ä .03644444åå
Öput( .36 , 2.014152 )äÖcircle*ä .03644444åå
Öput( .4 , 2.014097 )äÖcircle*ä .03644444åå
Öput( .44 , 2.014038 )äÖcircle*ä .03644444åå
Öput( .48 , 2.013974 )äÖcircle*ä .03644444åå
Öput( .52 , 2.013904 )äÖcircle*ä .03644444åå
Öput( .56 , 2.013829 )äÖcircle*ä .03644444åå
Öput( .6 , 2.013747 )äÖcircle*ä .03644444åå
Öput( .64 , 2.013659 )äÖcircle*ä .03644444åå
Öput( .68 , 2.013563 )äÖcircle*ä .03644444åå
Öput( .72 , 2.01346 )äÖcircle*ä .03644444åå
Öput( .76 , 2.013349 )äÖcircle*ä .03644444åå
Öput( .8 , 2.013228 )äÖcircle*ä .03644444åå
Öput( .84 , 2.013097 )äÖcircle*ä .03644444åå
Öput( .88 , 2.012956 )äÖcircle*ä .03644444åå
Öput( .92 , 2.012803 )äÖcircle*ä .03644444åå
Öput( .96 , 2.012638 )äÖcircle*ä .03644444åå
Öput( 1 , 2.01246 )äÖcircle*ä .03644444åå
Öput( 1.04 , 2.012268 )äÖcircle*ä .03644444åå
Öput( 1.08 , 2.012060 )äÖcircle*ä .03644444åå
Öput( 1.12 , 2.011835 )äÖcircle*ä .03644444åå
Öput( 1.16 , 2.011593 )äÖcircle*ä .03644444åå
Öput( 1.2 , 2.01133 )äÖcircle*ä .03644444åå
Öput( 1.24 , 2.011049 )äÖcircle*ä .03644444åå
Öput( 1.28 , 2.010744 )äÖcircle*ä .03644444åå
Öput( 1.32 , 2.010416 )äÖcircle*ä .03644444åå
Öput( 1.36 , 2.010062 )äÖcircle*ä .03644444åå
Öput( 1.4 , 2.009681 )äÖcircle*ä .03644444åå
Öput( 1.44 , 2.009271 )äÖcircle*ä .03644444åå
Öput( 1.48 , 2.00883 )äÖcircle*ä .03644444åå
Öput( 1.52 , 2.008356 )äÖcircle*ä .03644444åå
Öput( 1.56 , 2.007847 )äÖcircle*ä .03644444åå
Öput( 1.6 , 2.007299 )äÖcircle*ä .03644444åå
Öput( 1.64 , 2.006713 )äÖcircle*ä .03644444åå
Öput( 1.68 , 2.006084 )äÖcircle*ä .03644444åå
Öput( 1.72 , 2.00541 )äÖcircle*ä .03644444åå
Öput( 1.76 , 2.00469 )äÖcircle*ä .03644444åå
Öput( 1.8 , 2.003922 )äÖcircle*ä .03644444åå
Öput( 1.84 , 2.003102 )äÖcircle*ä .03644444åå
Öput( 1.88 , 2.002229 )äÖcircle*ä .03644444åå
Öput( 1.92 , 2.001301 )äÖcircle*ä .03644444åå
Öput( 1.96 , 2.000318 )äÖcircle*ä .03644444åå
Öput( 2 , 1.999276 )äÖcircle*ä .03644444åå
Öput( 2.04 , 1.998178 )äÖcircle*ä .03644444åå
Öput( 2.08 , 1.997022 )äÖcircle*ä .03644444åå
Öput( 2.12 , 1.995810 )äÖcircle*ä .03644444åå
Öput( 2.16 , 1.994544 )äÖcircle*ä .03644444åå
Öput( 2.2 , 1.993228 )äÖcircle*ä .03644444åå
Öput( 2.24 , 1.991868 )äÖcircle*ä .03644444åå
Öput( 2.28 , 1.990472 )äÖcircle*ä .03644444åå
Öput( 2.32 , 1.989050 )äÖcircle*ä .03644444åå
Öput( 2.36 , 1.987616 )äÖcircle*ä .03644444åå
Öput( 2.4 , 1.986187 )äÖcircle*ä .03644444åå
Öput( 2.44 , 1.984787 )äÖcircle*ä .03644444åå
Öput( 2.48 , 1.983443 )äÖcircle*ä .03644444åå
Öput( 2.52 , 1.982191 )äÖcircle*ä .03644444åå
Öput( 2.56 , 1.981075 )äÖcircle*ä .03644444åå
Öput( 2.6 , 1.980149 )äÖcircle*ä .03644444åå
Öput( 2.64 , 1.979478 )äÖcircle*ä .03644444åå
Öput( 2.68 , 1.979142 )äÖcircle*ä .03644444åå
Öput( 2.72 , 1.979238 )äÖcircle*ä .03644444åå
Öput( 2.76 , 1.979884 )äÖcircle*ä .03644444åå
Öput( 2.8 , 1.98122 )äÖcircle*ä .03644444åå
Öput( 2.84 , 1.983417 )äÖcircle*ä .03644444åå
Öput( 2.88 , 1.986676 )äÖcircle*ä .03644444åå
Öput( 2.92 , 1.99124 )äÖcircle*ä .03644444åå
Öput( 2.96 , 1.997398 )äÖcircle*ä .03644444åå
Öput( 3 , 2.005488 )äÖcircle*ä .03644444åå
Öput( 3.04 , 2.015915 )äÖcircle*ä .03644444åå
Öput( 3.08 , 2.029153 )äÖcircle*ä .03644444åå
Öput( 3.12 , 2.045759 )äÖcircle*ä .03644444åå
Öput( 3.16 , 2.06638 )äÖcircle*ä .03644444åå
Öput( 3.2 , 2.09177 )äÖcircle*ä .03644444åå
Öput( 3.24 , 2.122796 )äÖcircle*ä .03644444åå
Öput( 3.28 , 2.16045 )äÖcircle*ä .03644444åå
Öput( 3.32 , 2.205857 )äÖcircle*ä .03644444åå
Öput( 3.36 , 2.260276 )äÖcircle*ä .03644444åå
Öput( 3.4 , 2.3251 )äÖcircle*ä .03644444åå
Öput( 3.44 , 2.401844 )äÖcircle*ä .03644444åå
Öput( 3.48 , 2.492118 )äÖcircle*ä .03644444åå
Öput( 3.52 , 2.59759 )äÖcircle*ä .03644444åå
Öput( 3.56 , 2.719929 )äÖcircle*ä .03644444åå
Öput( 3.6 , 2.860718 )äÖcircle*ä .03644444åå
Öput( 3.64 , 3.021356 )äÖcircle*ä .03644444åå
Öput( 3.68 , 3.202925 )äÖcircle*ä .03644444åå
Öput( 3.72 , 3.406056 )äÖcircle*ä .03644444åå
Öput( 3.76 , 3.630776 )äÖcircle*ä .03644444åå
Öput( 3.8 , 3.876376 )äÖcircle*ä .03644444åå
Öput( 3.84 , 4.141305 )äÖcircle*ä .03644444åå
Öput( 3.88 , 4.423126 )äÖcircle*ä .03644444åå
Öput( 3.92 , 4.718535 )äÖcircle*ä .03644444åå
Öput( 3.96 , 5.023476 )äÖcircle*ä .03644444åå
Öput( 4 , 5.333333 )äÖcircle*ä .03644444åå
Öput( 4.04 , 5.64319 )äÖcircle*ä .03644444åå
Öput( 4.08 , 5.948132 )äÖcircle*ä .03644444åå
Öput( 4.12 , 6.24354 )äÖcircle*ä .03644444åå
Öput( 4.16 , 6.525362 )äÖcircle*ä .03644444åå
Öput( 4.2 , 6.790291 )äÖcircle*ä .03644444åå
Öput( 4.24 , 7.03589 )äÖcircle*ä .03644444åå
Öput( 4.28 , 7.26061 )äÖcircle*ä .03644444åå
Öput( 4.32 , 7.463741 )äÖcircle*ä .03644444åå
Öput( 4.36 , 7.645311 )äÖcircle*ä .03644444åå
Öput( 4.4 , 7.805948 )äÖcircle*ä .03644444åå
Öput( 4.44 , 7.946738 )äÖcircle*ä .03644444åå
Öput( 4.48 , 8.069077 )äÖcircle*ä .03644444åå
Öput( 4.52 , 8.174549 )äÖcircle*ä .03644444åå
Öput( 4.56 , 8.264823 )äÖcircle*ä .03644444åå
Öput( 4.6 , 8.341566 )äÖcircle*ä .03644444åå
Öput( 4.64 , 8.40639 )äÖcircle*ä .03644444åå
Öput( 4.68 , 8.460809 )äÖcircle*ä .03644444åå
Öput( 4.72 , 8.506216 )äÖcircle*ä .03644444åå
Öput( 4.76 , 8.54387 )äÖcircle*ä .03644444åå
Öput( 4.8 , 8.574896 )äÖcircle*ä .03644444åå
Öput( 4.84 , 8.600286 )äÖcircle*ä .03644444åå
Öput( 4.88 , 8.620908 )äÖcircle*ä .03644444åå
Öput( 4.92 , 8.637513 )äÖcircle*ä .03644444åå
Öput( 4.96 , 8.650751 )äÖcircle*ä .03644444åå
Öput( 5 , 8.661179 )äÖcircle*ä .03644444åå
Öput( 5.04 , 8.669269 )äÖcircle*ä .03644444åå
Öput( 5.08 , 8.675426 )äÖcircle*ä .03644444åå
Öput( 5.12 , 8.67999 )äÖcircle*ä .03644444åå
Öput( 5.16 , 8.683250 )äÖcircle*ä .03644444åå
Öput( 5.2 , 8.685446 )äÖcircle*ä .03644444åå
Öput( 5.24 , 8.686783 )äÖcircle*ä .03644444åå
Öput( 5.28 , 8.687429 )äÖcircle*ä .03644444åå
Öput( 5.32 , 8.687525 )äÖcircle*ä .03644444åå
Öput( 5.36 , 8.687189 )äÖcircle*ä .03644444åå
Öput( 5.4 , 8.686518 )äÖcircle*ä .03644444åå
Öput( 5.44 , 8.685591 )äÖcircle*ä .03644444åå
Öput( 5.48 , 8.684475 )äÖcircle*ä .03644444åå
Öput( 5.52 , 8.683224 )äÖcircle*ä .03644444åå
Öput( 5.56 , 8.68188 )äÖcircle*ä .03644444åå
Öput( 5.6 , 8.680480 )äÖcircle*ä .03644444åå
Öput( 5.64 , 8.679051 )äÖcircle*ä .03644444åå
Öput( 5.68 , 8.677617 )äÖcircle*ä .03644444åå
Öput( 5.72 , 8.676195 )äÖcircle*ä .03644444åå
Öput( 5.76 , 8.674798 )äÖcircle*ä .03644444åå
Öput( 5.8 , 8.673438 )äÖcircle*ä .03644444åå
Öput( 5.84 , 8.672123 )äÖcircle*ä .03644444åå
Öput( 5.88 , 8.670857 )äÖcircle*ä .03644444åå
Öput( 5.92 , 8.669645 )äÖcircle*ä .03644444åå
Öput( 5.96 , 8.668489 )äÖcircle*ä .03644444åå
Öput( 6 , 8.66739 )äÖcircle*ä .03644444åå
Öput( 6.04 , 8.666349 )äÖcircle*ä .03644444åå
Öput( 6.08 , 8.665365 )äÖcircle*ä .03644444åå
Öput( 6.12 , 8.664438 )äÖcircle*ä .03644444åå
Öput( 6.16 , 8.663565 )äÖcircle*ä .03644444åå
Öput( 6.2 , 8.662745 )äÖcircle*ä .03644444åå
Öput( 6.24 , 8.661976 )äÖcircle*ä .03644444åå
Öput( 6.28 , 8.661256 )äÖcircle*ä .03644444åå
Öput( 6.32 , 8.660583 )äÖcircle*ä .03644444åå
Öput( 6.36 , 8.659954 )äÖcircle*ä .03644444åå
Öput( 6.4 , 8.659367 )äÖcircle*ä .03644444åå
Öput( 6.44 , 8.65882 )äÖcircle*ä .03644444åå
Öput( 6.48 , 8.65831 )äÖcircle*ä .03644444åå
Öput( 6.52 , 8.657836 )äÖcircle*ä .03644444åå
Öput( 6.56 , 8.657395 )äÖcircle*ä .03644444åå
Öput( 6.6 , 8.656985 )äÖcircle*ä .03644444åå
Öput( 6.64 , 8.656604 )äÖcircle*ä .03644444åå
Öput( 6.68 , 8.65625 )äÖcircle*ä .03644444åå
Öput( 6.72 , 8.655923 )äÖcircle*ä .03644444åå
Öput( 6.76 , 8.655618 )äÖcircle*ä .03644444åå
Öput( 6.8 , 8.655336 )äÖcircle*ä .03644444åå
Öput( 6.84 , 8.655074 )äÖcircle*ä .03644444åå
Öput( 6.88 , 8.654832 )äÖcircle*ä .03644444åå
Öput( 6.92 , 8.654607 )äÖcircle*ä .03644444åå
Öput( 6.96 , 8.654399 )äÖcircle*ä .03644444åå
Öput( 7 , 8.654206 )äÖcircle*ä .03644444åå
Öput( 7.04 , 8.654028 )äÖcircle*ä .03644444åå
Öput( 7.08 , 8.653863 )äÖcircle*ä .03644444åå
Öput( 7.12 , 8.65371 )äÖcircle*ä .03644444åå
Öput( 7.16 , 8.653569 )äÖcircle*ä .03644444åå
Öput( 7.2 , 8.653439 )äÖcircle*ä .03644444åå
Öput( 7.24 , 8.653318 )äÖcircle*ä .03644444åå
Öput( 7.28 , 8.653206 )äÖcircle*ä .03644444åå
Öput( 7.32 , 8.653103 )äÖcircle*ä .03644444åå
Öput( 7.36 , 8.653008 )äÖcircle*ä .03644444åå
Öput( 7.4 , 8.652920 )äÖcircle*ä .03644444åå
Öput( 7.44 , 8.652838 )äÖcircle*ä .03644444åå
Öput( 7.48 , 8.652763 )äÖcircle*ä .03644444åå
Öput( 7.52 , 8.652693 )äÖcircle*ä .03644444åå
Öput( 7.56 , 8.652629 )äÖcircle*ä .03644444åå
Öput( 7.6 , 8.652569 )äÖcircle*ä .03644444åå
Öput( 7.64 , 8.652514 )äÖcircle*ä .03644444åå
Öput( 7.68 , 8.652464 )äÖcircle*ä .03644444åå
Öput( 7.72 , 8.652417 )äÖcircle*ä .03644444åå
Öput( 7.76 , 8.652374 )äÖcircle*ä .03644444åå
Öput( 7.8 , 8.652334 )äÖcircle*ä .03644444åå
Öput( 7.84 , 8.652297 )äÖcircle*ä .03644444åå
Öput( 7.88 , 8.652263 )äÖcircle*ä .03644444åå
Öput( 7.92 , 8.652231 )äÖcircle*ä .03644444åå
Öput( 7.96 , 8.652202 )äÖcircle*ä .03644444åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
