apl>" <-APL2-------------------- sam310.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> '5Ox' graph 1,1,1,r,1e6,xpi ,0.5 , 0 ,0 " sinhdatx.tex
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#9O5Ox+nX0j1å
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .2762711inå
Öbeginäpictureå(16.28835,21.71780)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä16.28835åå% bottom
Öput(0,0)äÖline(0,1)ä21.71780åå% left
Öput(0,21.71780)äÖline(1,0)ä16.28835åå% top
Öput(16.28835,0)äÖline(0,1)ä21.71780åå% right
%Draw the x axis
Öput(0,10.85890)äÖline(1,0)ä16.28835åå%x axis
Öput( 2.036044 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 4.072087 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 6.10813 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 8.144174 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 10.18022 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 12.21626 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 14.2523 , 10.85890 )äÖcircle*ä .07420248åå
%Draw the x axis marker values in pi
Öput( 1.997469 , 10.35215 )ä$ -Öfracä3Öpiåä4å $å
Öput( 4.033512 , 10.35215 )ä$ -ÖfracäÖpiåä2å $å
Öput( 6.069556 , 10.35215 )ä$ -ÖfracäÖpiåä4å $å
Öput( 8.144174 , 10.35215 )ä$ 0 $å
Öput( 10.18022 , 10.35215 )ä$ ÖfracäÖpiåä4å $å
Öput( 12.21626 , 10.35215 )ä$ ÖfracäÖpiåä2å $å
Öput( 14.2523 , 10.35215 )ä$ Öfracä3Öpiåä4å $å
%Draw the y axis
Öput(8.144174,0)äÖline(0,1)ä21.71780åå%y axis
%Draw the y axis markers
Öput( 8.144174 , .858899 )äÖcircle*ä .07420248åå
Öput( 8.144174 , 20.85890 )äÖcircle*ä .07420248åå
%Draw the y axis marker values
Öput( 8.325156 , .758899 )ä$ -10 $å
Öput( 8.325156 , 20.85890 )ä$ 10 $å
%Label the curve
Öput( 0 , .21717798 )änÖ# .5å
%Draw the data points
Öput( .08144174 , 1.038568 )äÖcircle*ä .07420248åå
Öput( .16288348 , 1.343517 )äÖcircle*ä .07420248åå
Öput( .24432522 , 1.639073 )äÖcircle*ä .07420248åå
Öput( .32576697 , 1.925530 )äÖcircle*ä .07420248åå
Öput( .4072087 , 2.203168 )äÖcircle*ä .07420248åå
Öput( .48865045 , 2.472263 )äÖcircle*ä .07420248åå
Öput( .570092 , 2.73308 )äÖcircle*ä .07420248åå
Öput( .651534 , 2.985877 )äÖcircle*ä .07420248åå
Öput( .732976 , 3.230902 )äÖcircle*ä .07420248åå
Öput( .814417 , 3.468399 )äÖcircle*ä .07420248åå
Öput( .895859 , 3.6986 )äÖcircle*ä .07420248åå
Öput( .9773 , 3.921735 )äÖcircle*ä .07420248åå
Öput( 1.058743 , 4.138022 )äÖcircle*ä .07420248åå
Öput( 1.140184 , 4.347675 )äÖcircle*ä .07420248åå
Öput( 1.221626 , 4.550901 )äÖcircle*ä .07420248åå
Öput( 1.303068 , 4.747901 )äÖcircle*ä .07420248åå
Öput( 1.384510 , 4.938869 )äÖcircle*ä .07420248åå
Öput( 1.465951 , 5.123994 )äÖcircle*ä .07420248åå
Öput( 1.547393 , 5.303458 )äÖcircle*ä .07420248åå
Öput( 1.628835 , 5.477439 )äÖcircle*ä .07420248åå
Öput( 1.710277 , 5.646108 )äÖcircle*ä .07420248åå
Öput( 1.791718 , 5.809632 )äÖcircle*ä .07420248åå
Öput( 1.87316 , 5.968172 )äÖcircle*ä .07420248åå
Öput( 1.954602 , 6.121885 )äÖcircle*ä .07420248åå
Öput( 2.036044 , 6.270922 )äÖcircle*ä .07420248åå
Öput( 2.117485 , 6.41543 )äÖcircle*ä .07420248åå
Öput( 2.198927 , 6.555553 )äÖcircle*ä .07420248åå
Öput( 2.280369 , 6.691428 )äÖcircle*ä .07420248åå
Öput( 2.36181 , 6.823190 )äÖcircle*ä .07420248åå
Öput( 2.443252 , 6.950968 )äÖcircle*ä .07420248åå
Öput( 2.524694 , 7.074889 )äÖcircle*ä .07420248åå
Öput( 2.606136 , 7.195075 )äÖcircle*ä .07420248åå
Öput( 2.687577 , 7.311644 )äÖcircle*ä .07420248åå
Öput( 2.769019 , 7.424712 )äÖcircle*ä .07420248åå
Öput( 2.850461 , 7.534391 )äÖcircle*ä .07420248åå
Öput( 2.931903 , 7.640788 )äÖcircle*ä .07420248åå
Öput( 3.013344 , 7.744009 )äÖcircle*ä .07420248åå
Öput( 3.094786 , 7.844155 )äÖcircle*ä .07420248åå
Öput( 3.176228 , 7.941326 )äÖcircle*ä .07420248åå
Öput( 3.257670 , 8.035617 )äÖcircle*ä .07420248åå
Öput( 3.339111 , 8.12712 )äÖcircle*ä .07420248åå
Öput( 3.420553 , 8.215928 )äÖcircle*ä .07420248åå
Öput( 3.501995 , 8.302127 )äÖcircle*ä .07420248åå
Öput( 3.583437 , 8.385803 )äÖcircle*ä .07420248åå
Öput( 3.664878 , 8.467037 )äÖcircle*ä .07420248åå
Öput( 3.74632 , 8.54591 )äÖcircle*ä .07420248åå
Öput( 3.827762 , 8.6225 )äÖcircle*ä .07420248åå
Öput( 3.909204 , 8.696884 )äÖcircle*ä .07420248åå
Öput( 3.990645 , 8.769133 )äÖcircle*ä .07420248åå
Öput( 4.072087 , 8.839319 )äÖcircle*ä .07420248åå
Öput( 4.153529 , 8.907512 )äÖcircle*ä .07420248åå
Öput( 4.23497 , 8.973779 )äÖcircle*ä .07420248åå
Öput( 4.316412 , 9.038185 )äÖcircle*ä .07420248åå
Öput( 4.397854 , 9.100794 )äÖcircle*ä .07420248åå
Öput( 4.479296 , 9.161668 )äÖcircle*ä .07420248åå
Öput( 4.560738 , 9.220866 )äÖcircle*ä .07420248åå
Öput( 4.642179 , 9.278448 )äÖcircle*ä .07420248åå
Öput( 4.723621 , 9.334469 )äÖcircle*ä .07420248åå
Öput( 4.805063 , 9.388986 )äÖcircle*ä .07420248åå
Öput( 4.886504 , 9.442052 )äÖcircle*ä .07420248åå
Öput( 4.967946 , 9.49372 )äÖcircle*ä .07420248åå
Öput( 5.049388 , 9.54404 )äÖcircle*ä .07420248åå
Öput( 5.130830 , 9.59306 )äÖcircle*ä .07420248åå
Öput( 5.212271 , 9.64084 )äÖcircle*ä .07420248åå
Öput( 5.293713 , 9.6874 )äÖcircle*ä .07420248åå
Öput( 5.375155 , 9.73282 )äÖcircle*ä .07420248åå
Öput( 5.456597 , 9.77712 )äÖcircle*ä .07420248åå
Öput( 5.538038 , 9.82036 )äÖcircle*ä .07420248åå
Öput( 5.61948 , 9.86257 )äÖcircle*ä .07420248åå
Öput( 5.700922 , 9.90379 )äÖcircle*ä .07420248åå
Öput( 5.782364 , 9.94408 )äÖcircle*ä .07420248åå
Öput( 5.863805 , 9.98346 )äÖcircle*ä .07420248åå
Öput( 5.945247 , 10.02198 )äÖcircle*ä .07420248åå
Öput( 6.026689 , 10.05967 )äÖcircle*ä .07420248åå
Öput( 6.10813 , 10.09657 )äÖcircle*ä .07420248åå
Öput( 6.189572 , 10.13272 )äÖcircle*ä .07420248åå
Öput( 6.271014 , 10.16815 )äÖcircle*ä .07420248åå
Öput( 6.352456 , 10.2029 )äÖcircle*ä .07420248åå
Öput( 6.433898 , 10.237 )äÖcircle*ä .07420248åå
Öput( 6.515339 , 10.27049 )äÖcircle*ä .07420248åå
Öput( 6.596781 , 10.3034 )äÖcircle*ä .07420248åå
Öput( 6.678223 , 10.33576 )äÖcircle*ä .07420248åå
Öput( 6.759665 , 10.3676 )äÖcircle*ä .07420248åå
Öput( 6.841106 , 10.39897 )äÖcircle*ä .07420248åå
Öput( 6.922548 , 10.42987 )äÖcircle*ä .07420248åå
Öput( 7.003990 , 10.46035 )äÖcircle*ä .07420248åå
Öput( 7.085432 , 10.49044 )äÖcircle*ä .07420248åå
Öput( 7.166873 , 10.52017 )äÖcircle*ä .07420248åå
Öput( 7.248315 , 10.54956 )äÖcircle*ä .07420248åå
Öput( 7.329757 , 10.57864 )äÖcircle*ä .07420248åå
Öput( 7.411198 , 10.60745 )äÖcircle*ä .07420248åå
Öput( 7.49264 , 10.636 )äÖcircle*ä .07420248åå
Öput( 7.574082 , 10.66435 )äÖcircle*ä .07420248åå
Öput( 7.655524 , 10.69250 )äÖcircle*ä .07420248åå
Öput( 7.736965 , 10.72048 )äÖcircle*ä .07420248åå
Öput( 7.818407 , 10.74833 )äÖcircle*ä .07420248åå
Öput( 7.899849 , 10.77607 )äÖcircle*ä .07420248åå
Öput( 7.98129 , 10.80372 )äÖcircle*ä .07420248åå
Öput( 8.062732 , 10.83132 )äÖcircle*ä .07420248åå
Öput( 8.144174 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 8.225616 , 10.88647 )äÖcircle*ä .07420248åå
Öput( 8.307058 , 10.91408 )äÖcircle*ä .07420248åå
Öput( 8.388499 , 10.94173 )äÖcircle*ä .07420248åå
Öput( 8.469941 , 10.96947 )äÖcircle*ä .07420248åå
Öput( 8.551383 , 10.99732 )äÖcircle*ä .07420248åå
Öput( 8.632825 , 11.0253 )äÖcircle*ä .07420248åå
Öput( 8.714266 , 11.05345 )äÖcircle*ä .07420248åå
Öput( 8.795708 , 11.08179 )äÖcircle*ä .07420248åå
Öput( 8.877150 , 11.11035 )äÖcircle*ä .07420248åå
Öput( 8.958592 , 11.13916 )äÖcircle*ä .07420248åå
Öput( 9.040033 , 11.16824 )äÖcircle*ä .07420248åå
Öput( 9.121475 , 11.19763 )äÖcircle*ä .07420248åå
Öput( 9.202917 , 11.22736 )äÖcircle*ä .07420248åå
Öput( 9.284359 , 11.25745 )äÖcircle*ä .07420248åå
Öput( 9.3658 , 11.28793 )äÖcircle*ä .07420248åå
Öput( 9.447242 , 11.31883 )äÖcircle*ä .07420248åå
Öput( 9.52868 , 11.35019 )äÖcircle*ä .07420248åå
Öput( 9.61013 , 11.38203 )äÖcircle*ä .07420248åå
Öput( 9.69157 , 11.41440 )äÖcircle*ä .07420248åå
Öput( 9.773 , 11.4473 )äÖcircle*ä .07420248åå
Öput( 9.85445 , 11.48079 )äÖcircle*ä .07420248åå
Öput( 9.93589 , 11.51490 )äÖcircle*ä .07420248åå
Öput( 10.01733 , 11.54965 )äÖcircle*ä .07420248åå
Öput( 10.09878 , 11.58508 )äÖcircle*ä .07420248åå
Öput( 10.18022 , 11.62123 )äÖcircle*ä .07420248åå
Öput( 10.26166 , 11.65813 )äÖcircle*ä .07420248åå
Öput( 10.3431 , 11.69582 )äÖcircle*ä .07420248åå
Öput( 10.42454 , 11.73434 )äÖcircle*ä .07420248åå
Öput( 10.50598 , 11.77372 )äÖcircle*ä .07420248åå
Öput( 10.58743 , 11.814 )äÖcircle*ä .07420248åå
Öput( 10.66887 , 11.85523 )äÖcircle*ä .07420248åå
Öput( 10.75031 , 11.89744 )äÖcircle*ä .07420248åå
Öput( 10.83175 , 11.94067 )äÖcircle*ä .07420248åå
Öput( 10.91319 , 11.98498 )äÖcircle*ä .07420248åå
Öput( 10.99464 , 12.03039 )äÖcircle*ä .07420248åå
Öput( 11.07608 , 12.07696 )äÖcircle*ä .07420248åå
Öput( 11.15752 , 12.12474 )äÖcircle*ä .07420248åå
Öput( 11.23896 , 12.17376 )äÖcircle*ä .07420248åå
Öput( 11.3204 , 12.22408 )äÖcircle*ä .07420248åå
Öput( 11.40184 , 12.27575 )äÖcircle*ä .07420248åå
Öput( 11.48329 , 12.32881 )äÖcircle*ä .07420248åå
Öput( 11.56473 , 12.38333 )äÖcircle*ä .07420248åå
Öput( 11.64617 , 12.43935 )äÖcircle*ä .07420248åå
Öput( 11.72761 , 12.49693 )äÖcircle*ä .07420248åå
Öput( 11.80905 , 12.55613 )äÖcircle*ä .07420248åå
Öput( 11.89049 , 12.617 )äÖcircle*ä .07420248åå
Öput( 11.97194 , 12.67961 )äÖcircle*ä .07420248åå
Öput( 12.05338 , 12.74402 )äÖcircle*ä .07420248åå
Öput( 12.13482 , 12.81029 )äÖcircle*ä .07420248åå
Öput( 12.21626 , 12.87848 )äÖcircle*ä .07420248åå
Öput( 12.2977 , 12.94866 )äÖcircle*ä .07420248åå
Öput( 12.37914 , 13.02091 )äÖcircle*ä .07420248åå
Öput( 12.46059 , 13.09530 )äÖcircle*ä .07420248åå
Öput( 12.54203 , 13.17189 )äÖcircle*ä .07420248åå
Öput( 12.62347 , 13.25076 )äÖcircle*ä .07420248åå
Öput( 12.70491 , 13.33200 )äÖcircle*ä .07420248åå
Öput( 12.78635 , 13.41567 )äÖcircle*ä .07420248åå
Öput( 12.86780 , 13.50187 )äÖcircle*ä .07420248åå
Öput( 12.94924 , 13.59068 )äÖcircle*ä .07420248åå
Öput( 13.03068 , 13.68218 )äÖcircle*ä .07420248åå
Öput( 13.11212 , 13.77647 )äÖcircle*ä .07420248åå
Öput( 13.19356 , 13.87364 )äÖcircle*ä .07420248åå
Öput( 13.275 , 13.97379 )äÖcircle*ä .07420248åå
Öput( 13.35645 , 14.07701 )äÖcircle*ä .07420248åå
Öput( 13.43789 , 14.1834 )äÖcircle*ä .07420248åå
Öput( 13.51933 , 14.29309 )äÖcircle*ä .07420248åå
Öput( 13.60077 , 14.40615 )äÖcircle*ä .07420248åå
Öput( 13.68221 , 14.52272 )äÖcircle*ä .07420248åå
Öput( 13.76365 , 14.6429 )äÖcircle*ä .07420248åå
Öput( 13.84510 , 14.76683 )äÖcircle*ä .07420248åå
Öput( 13.92654 , 14.8946 )äÖcircle*ä .07420248åå
Öput( 14.00798 , 15.02637 )äÖcircle*ä .07420248åå
Öput( 14.08942 , 15.16224 )äÖcircle*ä .07420248åå
Öput( 14.17086 , 15.30237 )äÖcircle*ä .07420248åå
Öput( 14.2523 , 15.44688 )äÖcircle*ä .07420248åå
Öput( 14.33375 , 15.59591 )äÖcircle*ä .07420248åå
Öput( 14.41519 , 15.74963 )äÖcircle*ä .07420248åå
Öput( 14.49663 , 15.90817 )äÖcircle*ä .07420248åå
Öput( 14.57807 , 16.07169 )äÖcircle*ä .07420248åå
Öput( 14.65951 , 16.24036 )äÖcircle*ä .07420248åå
Öput( 14.74096 , 16.41434 )äÖcircle*ä .07420248åå
Öput( 14.82240 , 16.5938 )äÖcircle*ä .07420248åå
Öput( 14.90384 , 16.77893 )äÖcircle*ä .07420248åå
Öput( 14.98528 , 16.96990 )äÖcircle*ä .07420248åå
Öput( 15.06672 , 17.16690 )äÖcircle*ä .07420248åå
Öput( 15.14816 , 17.37012 )äÖcircle*ä .07420248åå
Öput( 15.2296 , 17.57978 )äÖcircle*ä .07420248åå
Öput( 15.31105 , 17.79606 )äÖcircle*ä .07420248åå
Öput( 15.39249 , 18.01920 )äÖcircle*ä .07420248åå
Öput( 15.47393 , 18.24940 )äÖcircle*ä .07420248åå
Öput( 15.55537 , 18.48690 )äÖcircle*ä .07420248åå
Öput( 15.63681 , 18.73192 )äÖcircle*ä .07420248åå
Öput( 15.71826 , 18.98472 )äÖcircle*ä .07420248åå
Öput( 15.79970 , 19.24553 )äÖcircle*ä .07420248åå
Öput( 15.88114 , 19.51463 )äÖcircle*ä .07420248åå
Öput( 15.96258 , 19.79227 )äÖcircle*ä .07420248åå
Öput( 16.04402 , 20.07872 )äÖcircle*ä .07420248åå
Öput( 16.12546 , 20.37428 )äÖcircle*ä .07420248åå
Öput( 16.2069 , 20.67923 )äÖcircle*ä .07420248åå
%Finis.
apl> '5Ox' graph 3,1,1,r,1e6,xpi ,1 , 0 ,0 " sinhdatx.tex
%Label the curve
Öput( 0 , 4.112340 )änÖ#1å
%Draw the data points
Öput( .08144174 , 4.812804 )äÖcircle*ä .07420248åå
Öput( .16288348 , 5.000552 )äÖcircle*ä .07420248åå
Öput( .24432522 , 5.182518 )äÖcircle*ä .07420248åå
Öput( .32576697 , 5.35888 )äÖcircle*ä .07420248åå
Öput( .4072087 , 5.529815 )äÖcircle*ä .07420248åå
Öput( .48865045 , 5.695489 )äÖcircle*ä .07420248åå
Öput( .570092 , 5.856066 )äÖcircle*ä .07420248åå
Öput( .651534 , 6.011706 )äÖcircle*ä .07420248åå
Öput( .732976 , 6.162561 )äÖcircle*ä .07420248åå
Öput( .814417 , 6.308781 )äÖcircle*ä .07420248åå
Öput( .895859 , 6.450509 )äÖcircle*ä .07420248åå
Öput( .9773 , 6.587887 )äÖcircle*ä .07420248åå
Öput( 1.058743 , 6.721048 )äÖcircle*ä .07420248åå
Öput( 1.140184 , 6.850126 )äÖcircle*ä .07420248åå
Öput( 1.221626 , 6.975246 )äÖcircle*ä .07420248åå
Öput( 1.303068 , 7.096533 )äÖcircle*ä .07420248åå
Öput( 1.384510 , 7.214107 )äÖcircle*ä .07420248åå
Öput( 1.465951 , 7.328083 )äÖcircle*ä .07420248åå
Öput( 1.547393 , 7.438574 )äÖcircle*ä .07420248åå
Öput( 1.628835 , 7.545689 )äÖcircle*ä .07420248åå
Öput( 1.710277 , 7.649534 )äÖcircle*ä .07420248åå
Öput( 1.791718 , 7.75021 )äÖcircle*ä .07420248åå
Öput( 1.87316 , 7.847819 )äÖcircle*ä .07420248åå
Öput( 1.954602 , 7.942456 )äÖcircle*ä .07420248åå
Öput( 2.036044 , 8.034214 )äÖcircle*ä .07420248åå
Öput( 2.117485 , 8.123183 )äÖcircle*ä .07420248åå
Öput( 2.198927 , 8.209453 )äÖcircle*ä .07420248åå
Öput( 2.280369 , 8.293107 )äÖcircle*ä .07420248åå
Öput( 2.36181 , 8.374229 )äÖcircle*ä .07420248åå
Öput( 2.443252 , 8.452898 )äÖcircle*ä .07420248åå
Öput( 2.524694 , 8.529193 )äÖcircle*ä .07420248åå
Öput( 2.606136 , 8.603188 )äÖcircle*ä .07420248åå
Öput( 2.687577 , 8.674956 )äÖcircle*ä .07420248åå
Öput( 2.769019 , 8.744569 )äÖcircle*ä .07420248åå
Öput( 2.850461 , 8.812095 )äÖcircle*ä .07420248åå
Öput( 2.931903 , 8.8776 )äÖcircle*ä .07420248åå
Öput( 3.013344 , 8.94115 )äÖcircle*ä .07420248åå
Öput( 3.094786 , 9.002808 )äÖcircle*ä .07420248åå
Öput( 3.176228 , 9.062633 )äÖcircle*ä .07420248åå
Öput( 3.257670 , 9.120685 )äÖcircle*ä .07420248åå
Öput( 3.339111 , 9.177022 )äÖcircle*ä .07420248åå
Öput( 3.420553 , 9.231698 )äÖcircle*ä .07420248åå
Öput( 3.501995 , 9.284768 )äÖcircle*ä .07420248åå
Öput( 3.583437 , 9.336285 )äÖcircle*ä .07420248åå
Öput( 3.664878 , 9.386298 )äÖcircle*ä .07420248åå
Öput( 3.74632 , 9.434858 )äÖcircle*ä .07420248åå
Öput( 3.827762 , 9.482013 )äÖcircle*ä .07420248åå
Öput( 3.909204 , 9.5278 )äÖcircle*ä .07420248åå
Öput( 3.990645 , 9.57229 )äÖcircle*ä .07420248åå
Öput( 4.072087 , 9.6155 )äÖcircle*ä .07420248åå
Öput( 4.153529 , 9.65749 )äÖcircle*ä .07420248åå
Öput( 4.23497 , 9.69828 )äÖcircle*ä .07420248åå
Öput( 4.316412 , 9.73794 )äÖcircle*ä .07420248åå
Öput( 4.397854 , 9.77648 )äÖcircle*ä .07420248åå
Öput( 4.479296 , 9.81396 )äÖcircle*ä .07420248åå
Öput( 4.560738 , 9.85041 )äÖcircle*ä .07420248åå
Öput( 4.642179 , 9.88586 )äÖcircle*ä .07420248åå
Öput( 4.723621 , 9.92035 )äÖcircle*ä .07420248åå
Öput( 4.805063 , 9.95392 )äÖcircle*ä .07420248åå
Öput( 4.886504 , 9.98659 )äÖcircle*ä .07420248åå
Öput( 4.967946 , 10.01840 )äÖcircle*ä .07420248åå
Öput( 5.049388 , 10.04938 )äÖcircle*ä .07420248åå
Öput( 5.130830 , 10.07956 )äÖcircle*ä .07420248åå
Öput( 5.212271 , 10.10897 )äÖcircle*ä .07420248åå
Öput( 5.293713 , 10.13764 )äÖcircle*ä .07420248åå
Öput( 5.375155 , 10.1656 )äÖcircle*ä .07420248åå
Öput( 5.456597 , 10.19288 )äÖcircle*ä .07420248åå
Öput( 5.538038 , 10.2195 )äÖcircle*ä .07420248åå
Öput( 5.61948 , 10.24549 )äÖcircle*ä .07420248åå
Öput( 5.700922 , 10.27087 )äÖcircle*ä .07420248åå
Öput( 5.782364 , 10.29567 )äÖcircle*ä .07420248åå
Öput( 5.863805 , 10.31992 )äÖcircle*ä .07420248åå
Öput( 5.945247 , 10.34363 )äÖcircle*ä .07420248åå
Öput( 6.026689 , 10.36683 )äÖcircle*ä .07420248åå
Öput( 6.10813 , 10.38955 )äÖcircle*ä .07420248åå
Öput( 6.189572 , 10.41181 )äÖcircle*ä .07420248åå
Öput( 6.271014 , 10.43362 )äÖcircle*ä .07420248åå
Öput( 6.352456 , 10.45502 )äÖcircle*ä .07420248åå
Öput( 6.433898 , 10.47602 )äÖcircle*ä .07420248åå
Öput( 6.515339 , 10.49663 )äÖcircle*ä .07420248åå
Öput( 6.596781 , 10.51690 )äÖcircle*ä .07420248åå
Öput( 6.678223 , 10.53682 )äÖcircle*ä .07420248åå
Öput( 6.759665 , 10.55642 )äÖcircle*ä .07420248åå
Öput( 6.841106 , 10.57573 )äÖcircle*ä .07420248åå
Öput( 6.922548 , 10.59476 )äÖcircle*ä .07420248åå
Öput( 7.003990 , 10.61353 )äÖcircle*ä .07420248åå
Öput( 7.085432 , 10.63205 )äÖcircle*ä .07420248åå
Öput( 7.166873 , 10.65035 )äÖcircle*ä .07420248åå
Öput( 7.248315 , 10.66845 )äÖcircle*ä .07420248åå
Öput( 7.329757 , 10.68635 )äÖcircle*ä .07420248åå
Öput( 7.411198 , 10.70409 )äÖcircle*ä .07420248åå
Öput( 7.49264 , 10.72167 )äÖcircle*ä .07420248åå
Öput( 7.574082 , 10.73912 )äÖcircle*ä .07420248åå
Öput( 7.655524 , 10.75645 )äÖcircle*ä .07420248åå
Öput( 7.736965 , 10.77368 )äÖcircle*ä .07420248åå
Öput( 7.818407 , 10.79082 )äÖcircle*ä .07420248åå
Öput( 7.899849 , 10.8079 )äÖcircle*ä .07420248åå
Öput( 7.98129 , 10.82493 )äÖcircle*ä .07420248åå
Öput( 8.062732 , 10.84192 )äÖcircle*ä .07420248åå
Öput( 8.144174 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 8.225616 , 10.87588 )äÖcircle*ä .07420248åå
Öput( 8.307058 , 10.89287 )äÖcircle*ä .07420248åå
Öput( 8.388499 , 10.90990 )äÖcircle*ä .07420248åå
Öput( 8.469941 , 10.92697 )äÖcircle*ä .07420248åå
Öput( 8.551383 , 10.94412 )äÖcircle*ä .07420248åå
Öput( 8.632825 , 10.96135 )äÖcircle*ä .07420248åå
Öput( 8.714266 , 10.97868 )äÖcircle*ä .07420248åå
Öput( 8.795708 , 10.99613 )äÖcircle*ä .07420248åå
Öput( 8.877150 , 11.01371 )äÖcircle*ä .07420248åå
Öput( 8.958592 , 11.03145 )äÖcircle*ä .07420248åå
Öput( 9.040033 , 11.04935 )äÖcircle*ä .07420248åå
Öput( 9.121475 , 11.06745 )äÖcircle*ä .07420248åå
Öput( 9.202917 , 11.08575 )äÖcircle*ä .07420248åå
Öput( 9.284359 , 11.10427 )äÖcircle*ä .07420248åå
Öput( 9.3658 , 11.12304 )äÖcircle*ä .07420248åå
Öput( 9.447242 , 11.14207 )äÖcircle*ä .07420248åå
Öput( 9.52868 , 11.16137 )äÖcircle*ä .07420248åå
Öput( 9.61013 , 11.18098 )äÖcircle*ä .07420248åå
Öput( 9.69157 , 11.2009 )äÖcircle*ä .07420248åå
Öput( 9.773 , 11.22116 )äÖcircle*ä .07420248åå
Öput( 9.85445 , 11.24178 )äÖcircle*ä .07420248åå
Öput( 9.93589 , 11.26278 )äÖcircle*ä .07420248åå
Öput( 10.01733 , 11.28417 )äÖcircle*ä .07420248åå
Öput( 10.09878 , 11.30599 )äÖcircle*ä .07420248åå
Öput( 10.18022 , 11.32824 )äÖcircle*ä .07420248åå
Öput( 10.26166 , 11.35096 )äÖcircle*ä .07420248åå
Öput( 10.3431 , 11.37417 )äÖcircle*ä .07420248åå
Öput( 10.42454 , 11.39788 )äÖcircle*ä .07420248åå
Öput( 10.50598 , 11.42213 )äÖcircle*ä .07420248åå
Öput( 10.58743 , 11.44693 )äÖcircle*ä .07420248åå
Öput( 10.66887 , 11.47231 )äÖcircle*ä .07420248åå
Öput( 10.75031 , 11.49830 )äÖcircle*ä .07420248åå
Öput( 10.83175 , 11.52492 )äÖcircle*ä .07420248åå
Öput( 10.91319 , 11.55219 )äÖcircle*ä .07420248åå
Öput( 10.99464 , 11.58015 )äÖcircle*ä .07420248åå
Öput( 11.07608 , 11.60883 )äÖcircle*ä .07420248åå
Öput( 11.15752 , 11.63824 )äÖcircle*ä .07420248åå
Öput( 11.23896 , 11.66842 )äÖcircle*ä .07420248åå
Öput( 11.3204 , 11.6994 )äÖcircle*ä .07420248åå
Öput( 11.40184 , 11.73121 )äÖcircle*ä .07420248åå
Öput( 11.48329 , 11.76388 )äÖcircle*ä .07420248åå
Öput( 11.56473 , 11.79745 )äÖcircle*ä .07420248åå
Öput( 11.64617 , 11.83194 )äÖcircle*ä .07420248åå
Öput( 11.72761 , 11.86739 )äÖcircle*ä .07420248åå
Öput( 11.80905 , 11.90384 )äÖcircle*ä .07420248åå
Öput( 11.89049 , 11.94131 )äÖcircle*ä .07420248åå
Öput( 11.97194 , 11.97986 )äÖcircle*ä .07420248åå
Öput( 12.05338 , 12.01951 )äÖcircle*ä .07420248åå
Öput( 12.13482 , 12.06031 )äÖcircle*ä .07420248åå
Öput( 12.21626 , 12.10230 )äÖcircle*ä .07420248åå
Öput( 12.2977 , 12.1455 )äÖcircle*ä .07420248åå
Öput( 12.37914 , 12.18999 )äÖcircle*ä .07420248åå
Öput( 12.46059 , 12.23578 )äÖcircle*ä .07420248åå
Öput( 12.54203 , 12.28294 )äÖcircle*ä .07420248åå
Öput( 12.62347 , 12.3315 )äÖcircle*ä .07420248åå
Öput( 12.70491 , 12.38151 )äÖcircle*ä .07420248åå
Öput( 12.78635 , 12.43303 )äÖcircle*ä .07420248åå
Öput( 12.86780 , 12.4861 )äÖcircle*ä .07420248åå
Öput( 12.94924 , 12.54078 )äÖcircle*ä .07420248åå
Öput( 13.03068 , 12.59711 )äÖcircle*ä .07420248åå
Öput( 13.11212 , 12.65516 )äÖcircle*ä .07420248åå
Öput( 13.19356 , 12.71499 )äÖcircle*ä .07420248åå
Öput( 13.275 , 12.77665 )äÖcircle*ä .07420248åå
Öput( 13.35645 , 12.84020 )äÖcircle*ä .07420248åå
Öput( 13.43789 , 12.9057 )äÖcircle*ä .07420248åå
Öput( 13.51933 , 12.97323 )äÖcircle*ä .07420248åå
Öput( 13.60077 , 13.04284 )äÖcircle*ä .07420248åå
Öput( 13.68221 , 13.11461 )äÖcircle*ä .07420248åå
Öput( 13.76365 , 13.1886 )äÖcircle*ä .07420248åå
Öput( 13.84510 , 13.2649 )äÖcircle*ä .07420248åå
Öput( 13.92654 , 13.34357 )äÖcircle*ä .07420248åå
Öput( 14.00798 , 13.42469 )äÖcircle*ä .07420248åå
Öput( 14.08942 , 13.50834 )äÖcircle*ä .07420248åå
Öput( 14.17086 , 13.59461 )äÖcircle*ä .07420248åå
Öput( 14.2523 , 13.68358 )äÖcircle*ä .07420248åå
Öput( 14.33375 , 13.77534 )äÖcircle*ä .07420248åå
Öput( 14.41519 , 13.86998 )äÖcircle*ä .07420248åå
Öput( 14.49663 , 13.96759 )äÖcircle*ä .07420248åå
Öput( 14.57807 , 14.06826 )äÖcircle*ä .07420248åå
Öput( 14.65951 , 14.1721 )äÖcircle*ä .07420248åå
Öput( 14.74096 , 14.27922 )äÖcircle*ä .07420248åå
Öput( 14.82240 , 14.38971 )äÖcircle*ä .07420248åå
Öput( 14.90384 , 14.50369 )äÖcircle*ä .07420248åå
Öput( 14.98528 , 14.62126 )äÖcircle*ä .07420248åå
Öput( 15.06672 , 14.74255 )äÖcircle*ä .07420248åå
Öput( 15.14816 , 14.86767 )äÖcircle*ä .07420248åå
Öput( 15.2296 , 14.99675 )äÖcircle*ä .07420248åå
Öput( 15.31105 , 15.12991 )äÖcircle*ä .07420248åå
Öput( 15.39249 , 15.26729 )äÖcircle*ä .07420248åå
Öput( 15.47393 , 15.40902 )äÖcircle*ä .07420248åå
Öput( 15.55537 , 15.55524 )äÖcircle*ä .07420248åå
Öput( 15.63681 , 15.70609 )äÖcircle*ä .07420248åå
Öput( 15.71826 , 15.86173 )äÖcircle*ä .07420248åå
Öput( 15.79970 , 16.0223 )äÖcircle*ä .07420248åå
Öput( 15.88114 , 16.18798 )äÖcircle*ä .07420248åå
Öput( 15.96258 , 16.35892 )äÖcircle*ä .07420248åå
Öput( 16.04402 , 16.53528 )äÖcircle*ä .07420248åå
Öput( 16.12546 , 16.71725 )äÖcircle*ä .07420248åå
Öput( 16.2069 , 16.90499 )äÖcircle*ä .07420248åå
%Finis.
apl> '5Ox' graph 2,1,1,r,1e6,xpi ,2 , 0 ,0 " sinhdatx.tex
%Label the curve
Öput( 0 , 15.66487 )änÖ#2å
%Draw the data points
Öput( .08144174 , 15.51567 )äÖcircle*ä .07420248åå
Öput( .16288348 , 15.37106 )äÖcircle*ä .07420248åå
Öput( .24432522 , 15.23091 )äÖcircle*ä .07420248åå
Öput( .32576697 , 15.09507 )äÖcircle*ä .07420248åå
Öput( .4072087 , 14.96342 )äÖcircle*ä .07420248åå
Öput( .48865045 , 14.83581 )äÖcircle*ä .07420248åå
Öput( .570092 , 14.71214 )äÖcircle*ä .07420248åå
Öput( .651534 , 14.59226 )äÖcircle*ä .07420248åå
Öput( .732976 , 14.47607 )äÖcircle*ä .07420248åå
Öput( .814417 , 14.36345 )äÖcircle*ä .07420248åå
Öput( .895859 , 14.25429 )äÖcircle*ä .07420248åå
Öput( .9773 , 14.14848 )äÖcircle*ä .07420248åå
Öput( 1.058743 , 14.04592 )äÖcircle*ä .07420248åå
Öput( 1.140184 , 13.9465 )äÖcircle*ä .07420248åå
Öput( 1.221626 , 13.85013 )äÖcircle*ä .07420248åå
Öput( 1.303068 , 13.75671 )äÖcircle*ä .07420248åå
Öput( 1.384510 , 13.66616 )äÖcircle*ä .07420248åå
Öput( 1.465951 , 13.57837 )äÖcircle*ä .07420248åå
Öput( 1.547393 , 13.49327 )äÖcircle*ä .07420248åå
Öput( 1.628835 , 13.41077 )äÖcircle*ä .07420248åå
Öput( 1.710277 , 13.33079 )äÖcircle*ä .07420248åå
Öput( 1.791718 , 13.25324 )äÖcircle*ä .07420248åå
Öput( 1.87316 , 13.17807 )äÖcircle*ä .07420248åå
Öput( 1.954602 , 13.10518 )äÖcircle*ä .07420248åå
Öput( 2.036044 , 13.0345 )äÖcircle*ä .07420248åå
Öput( 2.117485 , 12.96598 )äÖcircle*ä .07420248åå
Öput( 2.198927 , 12.89953 )äÖcircle*ä .07420248åå
Öput( 2.280369 , 12.8351 )äÖcircle*ä .07420248åå
Öput( 2.36181 , 12.77262 )äÖcircle*ä .07420248åå
Öput( 2.443252 , 12.71203 )äÖcircle*ä .07420248åå
Öput( 2.524694 , 12.65326 )äÖcircle*ä .07420248åå
Öput( 2.606136 , 12.59627 )äÖcircle*ä .07420248åå
Öput( 2.687577 , 12.54100 )äÖcircle*ä .07420248åå
Öput( 2.769019 , 12.48738 )äÖcircle*ä .07420248åå
Öput( 2.850461 , 12.43537 )äÖcircle*ä .07420248åå
Öput( 2.931903 , 12.38492 )äÖcircle*ä .07420248åå
Öput( 3.013344 , 12.33597 )äÖcircle*ä .07420248åå
Öput( 3.094786 , 12.28848 )äÖcircle*ä .07420248åå
Öput( 3.176228 , 12.2424 )äÖcircle*ä .07420248åå
Öput( 3.257670 , 12.19769 )äÖcircle*ä .07420248åå
Öput( 3.339111 , 12.1543 )äÖcircle*ä .07420248åå
Öput( 3.420553 , 12.11219 )äÖcircle*ä .07420248åå
Öput( 3.501995 , 12.07131 )äÖcircle*ä .07420248åå
Öput( 3.583437 , 12.03163 )äÖcircle*ä .07420248åå
Öput( 3.664878 , 11.99311 )äÖcircle*ä .07420248åå
Öput( 3.74632 , 11.95571 )äÖcircle*ä .07420248åå
Öput( 3.827762 , 11.91939 )äÖcircle*ä .07420248åå
Öput( 3.909204 , 11.88412 )äÖcircle*ä .07420248åå
Öput( 3.990645 , 11.84986 )äÖcircle*ä .07420248åå
Öput( 4.072087 , 11.81658 )äÖcircle*ä .07420248åå
Öput( 4.153529 , 11.78424 )äÖcircle*ä .07420248åå
Öput( 4.23497 , 11.75282 )äÖcircle*ä .07420248åå
Öput( 4.316412 , 11.72228 )äÖcircle*ä .07420248åå
Öput( 4.397854 , 11.69259 )äÖcircle*ä .07420248åå
Öput( 4.479296 , 11.66372 )äÖcircle*ä .07420248åå
Öput( 4.560738 , 11.63565 )äÖcircle*ä .07420248åå
Öput( 4.642179 , 11.60834 )äÖcircle*ä .07420248åå
Öput( 4.723621 , 11.58178 )äÖcircle*ä .07420248åå
Öput( 4.805063 , 11.55593 )äÖcircle*ä .07420248åå
Öput( 4.886504 , 11.53076 )äÖcircle*ä .07420248åå
Öput( 4.967946 , 11.50626 )äÖcircle*ä .07420248åå
Öput( 5.049388 , 11.4824 )äÖcircle*ä .07420248åå
Öput( 5.130830 , 11.45915 )äÖcircle*ä .07420248åå
Öput( 5.212271 , 11.4365 )äÖcircle*ä .07420248åå
Öput( 5.293713 , 11.41442 )äÖcircle*ä .07420248åå
Öput( 5.375155 , 11.39288 )äÖcircle*ä .07420248åå
Öput( 5.456597 , 11.37187 )äÖcircle*ä .07420248åå
Öput( 5.538038 , 11.35137 )äÖcircle*ä .07420248åå
Öput( 5.61948 , 11.33136 )äÖcircle*ä .07420248åå
Öput( 5.700922 , 11.3118 )äÖcircle*ä .07420248åå
Öput( 5.782364 , 11.2927 )äÖcircle*ä .07420248åå
Öput( 5.863805 , 11.27403 )äÖcircle*ä .07420248åå
Öput( 5.945247 , 11.25577 )äÖcircle*ä .07420248åå
Öput( 6.026689 , 11.23789 )äÖcircle*ä .07420248åå
Öput( 6.10813 , 11.22039 )äÖcircle*ä .07420248åå
Öput( 6.189572 , 11.20325 )äÖcircle*ä .07420248åå
Öput( 6.271014 , 11.18645 )äÖcircle*ä .07420248åå
Öput( 6.352456 , 11.16997 )äÖcircle*ä .07420248åå
Öput( 6.433898 , 11.1538 )äÖcircle*ä .07420248åå
Öput( 6.515339 , 11.13792 )äÖcircle*ä .07420248åå
Öput( 6.596781 , 11.12231 )äÖcircle*ä .07420248åå
Öput( 6.678223 , 11.10697 )äÖcircle*ä .07420248åå
Öput( 6.759665 , 11.09187 )äÖcircle*ä .07420248åå
Öput( 6.841106 , 11.07700 )äÖcircle*ä .07420248åå
Öput( 6.922548 , 11.06234 )äÖcircle*ä .07420248åå
Öput( 7.003990 , 11.04789 )äÖcircle*ä .07420248åå
Öput( 7.085432 , 11.03362 )äÖcircle*ä .07420248åå
Öput( 7.166873 , 11.01953 )äÖcircle*ä .07420248åå
Öput( 7.248315 , 11.00559 )äÖcircle*ä .07420248åå
Öput( 7.329757 , 10.99180 )äÖcircle*ä .07420248åå
Öput( 7.411198 , 10.97814 )äÖcircle*ä .07420248åå
Öput( 7.49264 , 10.96459 )äÖcircle*ä .07420248åå
Öput( 7.574082 , 10.95115 )äÖcircle*ä .07420248åå
Öput( 7.655524 , 10.9378 )äÖcircle*ä .07420248åå
Öput( 7.736965 , 10.92454 )äÖcircle*ä .07420248åå
Öput( 7.818407 , 10.91133 )äÖcircle*ä .07420248åå
Öput( 7.899849 , 10.89818 )äÖcircle*ä .07420248åå
Öput( 7.98129 , 10.88506 )äÖcircle*ä .07420248åå
Öput( 8.062732 , 10.87197 )äÖcircle*ä .07420248åå
Öput( 8.144174 , 10.85890 )äÖcircle*ä .07420248åå
Öput( 8.225616 , 10.84582 )äÖcircle*ä .07420248åå
Öput( 8.307058 , 10.83273 )äÖcircle*ä .07420248åå
Öput( 8.388499 , 10.81962 )äÖcircle*ä .07420248åå
Öput( 8.469941 , 10.80647 )äÖcircle*ä .07420248åå
Öput( 8.551383 , 10.79326 )äÖcircle*ä .07420248åå
Öput( 8.632825 , 10.77999 )äÖcircle*ä .07420248åå
Öput( 8.714266 , 10.76664 )äÖcircle*ä .07420248åå
Öput( 8.795708 , 10.7532 )äÖcircle*ä .07420248åå
Öput( 8.877150 , 10.73966 )äÖcircle*ä .07420248åå
Öput( 8.958592 , 10.726 )äÖcircle*ä .07420248åå
Öput( 9.040033 , 10.71221 )äÖcircle*ä .07420248åå
Öput( 9.121475 , 10.69827 )äÖcircle*ä .07420248åå
Öput( 9.202917 , 10.68418 )äÖcircle*ä .07420248åå
Öput( 9.284359 , 10.66991 )äÖcircle*ä .07420248åå
Öput( 9.3658 , 10.65546 )äÖcircle*ä .07420248åå
Öput( 9.447242 , 10.6408 )äÖcircle*ä .07420248åå
Öput( 9.52868 , 10.62593 )äÖcircle*ä .07420248åå
Öput( 9.61013 , 10.61083 )äÖcircle*ä .07420248åå
Öput( 9.69157 , 10.59548 )äÖcircle*ä .07420248åå
Öput( 9.773 , 10.57988 )äÖcircle*ä .07420248åå
Öput( 9.85445 , 10.56400 )äÖcircle*ä .07420248åå
Öput( 9.93589 , 10.54783 )äÖcircle*ä .07420248åå
Öput( 10.01733 , 10.53135 )äÖcircle*ä .07420248åå
Öput( 10.09878 , 10.51455 )äÖcircle*ä .07420248åå
Öput( 10.18022 , 10.4974 )äÖcircle*ä .07420248åå
Öput( 10.26166 , 10.4799 )äÖcircle*ä .07420248åå
Öput( 10.3431 , 10.46203 )äÖcircle*ä .07420248åå
Öput( 10.42454 , 10.44377 )äÖcircle*ä .07420248åå
Öput( 10.50598 , 10.42509 )äÖcircle*ä .07420248åå
Öput( 10.58743 , 10.40599 )äÖcircle*ä .07420248åå
Öput( 10.66887 , 10.38644 )äÖcircle*ä .07420248åå
Öput( 10.75031 , 10.36643 )äÖcircle*ä .07420248åå
Öput( 10.83175 , 10.34592 )äÖcircle*ä .07420248åå
Öput( 10.91319 , 10.32492 )äÖcircle*ä .07420248åå
Öput( 10.99464 , 10.30338 )äÖcircle*ä .07420248åå
Öput( 11.07608 , 10.28130 )äÖcircle*ä .07420248åå
Öput( 11.15752 , 10.25864 )äÖcircle*ä .07420248åå
Öput( 11.23896 , 10.23540 )äÖcircle*ä .07420248åå
Öput( 11.3204 , 10.21154 )äÖcircle*ä .07420248åå
Öput( 11.40184 , 10.18703 )äÖcircle*ä .07420248åå
Öput( 11.48329 , 10.16187 )äÖcircle*ä .07420248åå
Öput( 11.56473 , 10.13602 )äÖcircle*ä .07420248åå
Öput( 11.64617 , 10.10945 )äÖcircle*ä .07420248åå
Öput( 11.72761 , 10.08215 )äÖcircle*ä .07420248åå
Öput( 11.80905 , 10.05408 )äÖcircle*ä .07420248åå
Öput( 11.89049 , 10.02521 )äÖcircle*ä .07420248åå
Öput( 11.97194 , 9.99552 )äÖcircle*ä .07420248åå
Öput( 12.05338 , 9.96498 )äÖcircle*ä .07420248åå
Öput( 12.13482 , 9.93356 )äÖcircle*ä .07420248åå
Öput( 12.21626 , 9.90122 )äÖcircle*ä .07420248åå
Öput( 12.2977 , 9.86794 )äÖcircle*ä .07420248åå
Öput( 12.37914 , 9.83368 )äÖcircle*ä .07420248åå
Öput( 12.46059 , 9.7984 )äÖcircle*ä .07420248åå
Öput( 12.54203 , 9.76209 )äÖcircle*ä .07420248åå
Öput( 12.62347 , 9.72469 )äÖcircle*ä .07420248åå
Öput( 12.70491 , 9.68616 )äÖcircle*ä .07420248åå
Öput( 12.78635 , 9.64649 )äÖcircle*ä .07420248åå
Öput( 12.86780 , 9.60561 )äÖcircle*ä .07420248åå
Öput( 12.94924 , 9.56350 )äÖcircle*ä .07420248åå
Öput( 13.03068 , 9.5201 )äÖcircle*ä .07420248åå
Öput( 13.11212 , 9.475395 )äÖcircle*ä .07420248åå
Öput( 13.19356 , 9.429317 )äÖcircle*ä .07420248åå
Öput( 13.275 , 9.381828 )äÖcircle*ä .07420248åå
Öput( 13.35645 , 9.332881 )äÖcircle*ä .07420248åå
Öput( 13.43789 , 9.282428 )äÖcircle*ä .07420248åå
Öput( 13.51933 , 9.230419 )äÖcircle*ä .07420248åå
Öput( 13.60077 , 9.176802 )äÖcircle*ä .07420248åå
Öput( 13.68221 , 9.121525 )äÖcircle*ä .07420248åå
Öput( 13.76365 , 9.064533 )äÖcircle*ä .07420248åå
Öput( 13.84510 , 9.00577 )äÖcircle*ä .07420248åå
Öput( 13.92654 , 8.945179 )äÖcircle*ä .07420248åå
Öput( 14.00798 , 8.882698 )äÖcircle*ä .07420248åå
Öput( 14.08942 , 8.818266 )äÖcircle*ä .07420248åå
Öput( 14.17086 , 8.75182 )äÖcircle*ä .07420248åå
Öput( 14.2523 , 8.683295 )äÖcircle*ä .07420248åå
Öput( 14.33375 , 8.612622 )äÖcircle*ä .07420248åå
Öput( 14.41519 , 8.539732 )äÖcircle*ä .07420248åå
Öput( 14.49663 , 8.464553 )äÖcircle*ä .07420248åå
Öput( 14.57807 , 8.38701 )äÖcircle*ä .07420248åå
Öput( 14.65951 , 8.307028 )äÖcircle*ä .07420248åå
Öput( 14.74096 , 8.224527 )äÖcircle*ä .07420248åå
Öput( 14.82240 , 8.139425 )äÖcircle*ä .07420248åå
Öput( 14.90384 , 8.051640 )äÖcircle*ä .07420248åå
Öput( 14.98528 , 7.961083 )äÖcircle*ä .07420248åå
Öput( 15.06672 , 7.867666 )äÖcircle*ä .07420248åå
Öput( 15.14816 , 7.771297 )äÖcircle*ä .07420248åå
Öput( 15.2296 , 7.67188 )äÖcircle*ä .07420248åå
Öput( 15.31105 , 7.569318 )äÖcircle*ä .07420248åå
Öput( 15.39249 , 7.463508 )äÖcircle*ä .07420248åå
Öput( 15.47393 , 7.354347 )äÖcircle*ä .07420248åå
Öput( 15.55537 , 7.241727 )äÖcircle*ä .07420248åå
Öput( 15.63681 , 7.125537 )äÖcircle*ä .07420248åå
Öput( 15.71826 , 7.005662 )äÖcircle*ä .07420248åå
Öput( 15.79970 , 6.881983 )äÖcircle*ä .07420248åå
Öput( 15.88114 , 6.754379 )äÖcircle*ä .07420248åå
Öput( 15.96258 , 6.622724 )äÖcircle*ä .07420248åå
Öput( 16.04402 , 6.486887 )äÖcircle*ä .07420248åå
Öput( 16.12546 , 6.346735 )äÖcircle*ä .07420248åå
Öput( 16.2069 , 6.202130 )äÖcircle*ä .07420248åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
