apl>" <-APL2-------------------- sam312.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,i,5 ,xpi ,0.5 , 0 ,0 " sinhdatx.tex
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraph of yÖ#11O5Ox+nX0j1å
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .716197inå
Öbeginäpictureå(6.283185,8.37758)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä6.283185åå% bottom
Öput(0,0)äÖline(0,1)ä8.37758åå% left
Öput(0,8.37758)äÖline(1,0)ä6.283185åå% top
Öput(6.283185,0)äÖline(0,1)ä8.37758åå% right
%Draw the x axis
Öput(0,0)äÖline(1,0)ä6.283185åå%x axis
Öput( .785398 , 0 )äÖcircle*ä .0286234åå
Öput( 1.570796 , 0 )äÖcircle*ä .0286234åå
Öput( 2.356194 , 0 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 0 )äÖcircle*ä .0286234åå
Öput( 3.92699 , 0 )äÖcircle*ä .0286234åå
Öput( 4.712389 , 0 )äÖcircle*ä .0286234åå
Öput( 5.497787 , 0 )äÖcircle*ä .0286234åå
%Draw the x axis marker values in pi
Öput( .685398 , 0 )ä$ -Öfracä3Öpiåä4å $å
Öput( 1.470796 , 0 )ä$ -ÖfracäÖpiåä2å $å
Öput( 2.256194 , 0 )ä$ -ÖfracäÖpiåä4å $å
Öput( 3.141593 , 0 )ä$ 0 $å
Öput( 3.92699 , 0 )ä$ ÖfracäÖpiåä4å $å
Öput( 4.712389 , 0 )ä$ ÖfracäÖpiåä2å $å
Öput( 5.497787 , 0 )ä$ Öfracä3Öpiåä4å $å
%Draw the y axis
Öput(3.141593,0)äÖline(0,1)ä8.37758åå%y axis
%Draw the y axis markers
Öput( 3.141593 , 1.199247 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 2.966514 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 4.73378 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 6.501047 )äÖcircle*ä .0286234åå
%Draw the y axis marker values
Öput( 3.211406 , 1.199247 )ä$ 1 $å
Öput( 3.211406 , 2.966514 )ä$ 2 $å
Öput( 3.211406 , 4.73378 )ä$ 3 $å
Öput( 3.211406 , 6.501047 )ä$ 4 $å
%Label the curve
Öput( .1256637 , 8.098328 )änÖ# .5å
%Draw the data points
Öput( .15707963 , 7.831603 )äÖcircle*ä .0286234åå
Öput( .18849556 , 7.573169 )äÖcircle*ä .0286234åå
Öput( .21991149 , 7.322771 )äÖcircle*ä .0286234åå
Öput( .25132741 , 7.080162 )äÖcircle*ä .0286234åå
Öput( .28274334 , 6.845101 )äÖcircle*ä .0286234åå
Öput( .31415927 , 6.617358 )äÖcircle*ä .0286234åå
Öput( .34557519 , 6.396706 )äÖcircle*ä .0286234åå
Öput( .37699112 , 6.182930 )äÖcircle*ä .0286234åå
Öput( .40840704 , 5.975816 )äÖcircle*ä .0286234åå
Öput( .43982297 , 5.775162 )äÖcircle*ä .0286234åå
Öput( .47123890 , 5.580769 )äÖcircle*ä .0286234åå
Öput( .502655 , 5.392445 )äÖcircle*ä .0286234åå
Öput( .53407 , 5.210004 )äÖcircle*ä .0286234åå
Öput( .565487 , 5.033266 )äÖcircle*ä .0286234åå
Öput( .596903 , 4.862057 )äÖcircle*ä .0286234åå
Öput( .628319 , 4.696208 )äÖcircle*ä .0286234åå
Öput( .659734 , 4.535554 )äÖcircle*ä .0286234åå
Öput( .69115 , 4.379938 )äÖcircle*ä .0286234åå
Öput( .722566 , 4.229206 )äÖcircle*ä .0286234åå
Öput( .753982 , 4.083209 )äÖcircle*ä .0286234åå
Öput( .785398 , 3.941803 )äÖcircle*ä .0286234åå
Öput( .816814 , 3.804849 )äÖcircle*ä .0286234åå
Öput( .84823 , 3.67221 )äÖcircle*ä .0286234åå
Öput( .879646 , 3.543757 )äÖcircle*ä .0286234åå
Öput( .911062 , 3.419363 )äÖcircle*ä .0286234åå
Öput( .942478 , 3.298904 )äÖcircle*ä .0286234åå
Öput( .973894 , 3.182261 )äÖcircle*ä .0286234åå
Öput( 1.005310 , 3.069321 )äÖcircle*ä .0286234åå
Öput( 1.036726 , 2.95997 )äÖcircle*ä .0286234åå
Öput( 1.068142 , 2.854103 )äÖcircle*ä .0286234åå
Öput( 1.099557 , 2.751613 )äÖcircle*ä .0286234åå
Öput( 1.130973 , 2.652399 )äÖcircle*ä .0286234åå
Öput( 1.162389 , 2.556364 )äÖcircle*ä .0286234åå
Öput( 1.193805 , 2.463413 )äÖcircle*ä .0286234åå
Öput( 1.225221 , 2.373454 )äÖcircle*ä .0286234åå
Öput( 1.256637 , 2.286399 )äÖcircle*ä .0286234åå
Öput( 1.288053 , 2.20216 )äÖcircle*ä .0286234åå
Öput( 1.319469 , 2.120657 )äÖcircle*ä .0286234åå
Öput( 1.350885 , 2.041807 )äÖcircle*ä .0286234åå
Öput( 1.3823 , 1.965533 )äÖcircle*ä .0286234åå
Öput( 1.413717 , 1.89176 )äÖcircle*ä .0286234åå
Öput( 1.445133 , 1.820415 )äÖcircle*ä .0286234åå
Öput( 1.476549 , 1.751427 )äÖcircle*ä .0286234åå
Öput( 1.507964 , 1.684728 )äÖcircle*ä .0286234åå
Öput( 1.53938 , 1.620254 )äÖcircle*ä .0286234åå
Öput( 1.570796 , 1.557939 )äÖcircle*ä .0286234åå
Öput( 1.602212 , 1.497722 )äÖcircle*ä .0286234åå
Öput( 1.633628 , 1.439545 )äÖcircle*ä .0286234åå
Öput( 1.665044 , 1.383349 )äÖcircle*ä .0286234åå
Öput( 1.69646 , 1.329079 )äÖcircle*ä .0286234åå
Öput( 1.727876 , 1.276681 )äÖcircle*ä .0286234åå
Öput( 1.759292 , 1.226105 )äÖcircle*ä .0286234åå
Öput( 1.790708 , 1.177299 )äÖcircle*ä .0286234åå
Öput( 1.822124 , 1.130216 )äÖcircle*ä .0286234åå
Öput( 1.853540 , 1.084809 )äÖcircle*ä .0286234åå
Öput( 1.884956 , 1.041034 )äÖcircle*ä .0286234åå
Öput( 1.916372 , .998847 )äÖcircle*ä .0286234åå
Öput( 1.947787 , .958206 )äÖcircle*ä .0286234åå
Öput( 1.979203 , .919072 )äÖcircle*ä .0286234åå
Öput( 2.010619 , .881405 )äÖcircle*ä .0286234åå
Öput( 2.042035 , .845170 )äÖcircle*ä .0286234åå
Öput( 2.073451 , .810329 )äÖcircle*ä .0286234åå
Öput( 2.104867 , .776848 )äÖcircle*ä .0286234åå
Öput( 2.136283 , .744696 )äÖcircle*ä .0286234åå
Öput( 2.167699 , .713838 )äÖcircle*ä .0286234åå
Öput( 2.199115 , .684246 )äÖcircle*ä .0286234åå
Öput( 2.23053 , .65589 )äÖcircle*ä .0286234åå
Öput( 2.261947 , .628743 )äÖcircle*ä .0286234åå
Öput( 2.293363 , .602776 )äÖcircle*ä .0286234åå
Öput( 2.324779 , .577965 )äÖcircle*ä .0286234åå
Öput( 2.356194 , .554285 )äÖcircle*ä .0286234åå
Öput( 2.38761 , .531713 )äÖcircle*ä .0286234åå
Öput( 2.419026 , .510226 )äÖcircle*ä .0286234åå
Öput( 2.450442 , .48980414 )äÖcircle*ä .0286234åå
Öput( 2.481858 , .47042593 )äÖcircle*ä .0286234åå
Öput( 2.513274 , .4520727 )äÖcircle*ä .0286234åå
Öput( 2.54469 , .43472635 )äÖcircle*ä .0286234åå
Öput( 2.576106 , .41836976 )äÖcircle*ä .0286234åå
Öput( 2.607522 , .40298677 )äÖcircle*ä .0286234åå
Öput( 2.638938 , .3885622 )äÖcircle*ä .0286234åå
Öput( 2.670354 , .37508182 )äÖcircle*ä .0286234åå
Öput( 2.701770 , .36253233 )äÖcircle*ä .0286234åå
Öput( 2.733186 , .35090132 )äÖcircle*ä .0286234åå
Öput( 2.764602 , .34017733 )äÖcircle*ä .0286234åå
Öput( 2.796017 , .33034977 )äÖcircle*ä .0286234åå
Öput( 2.827433 , .32140894 )äÖcircle*ä .0286234åå
Öput( 2.858849 , .31334601 )äÖcircle*ä .0286234åå
Öput( 2.890265 , .30615303 )äÖcircle*ä .0286234åå
Öput( 2.921681 , .29982289 )äÖcircle*ä .0286234åå
Öput( 2.953097 , .29434935 )äÖcircle*ä .0286234åå
Öput( 2.984513 , .289727 )äÖcircle*ä .0286234åå
Öput( 3.015929 , .28595129 )äÖcircle*ä .0286234åå
Öput( 3.047345 , .28301848 )äÖcircle*ä .0286234åå
Öput( 3.07876 , .28092568 )äÖcircle*ä .0286234åå
Öput( 3.110177 , .27967083 )äÖcircle*ä .0286234åå
Öput( 3.141593 , .27925268 )äÖcircle*ä .0286234åå
Öput( 3.173009 , .27967083 )äÖcircle*ä .0286234åå
Öput( 3.204425 , .28092568 )äÖcircle*ä .0286234åå
Öput( 3.23584 , .28301848 )äÖcircle*ä .0286234åå
Öput( 3.267256 , .28595129 )äÖcircle*ä .0286234åå
Öput( 3.298672 , .289727 )äÖcircle*ä .0286234åå
Öput( 3.330088 , .29434935 )äÖcircle*ä .0286234åå
Öput( 3.361504 , .29982289 )äÖcircle*ä .0286234åå
Öput( 3.39292 , .30615303 )äÖcircle*ä .0286234åå
Öput( 3.424336 , .31334601 )äÖcircle*ä .0286234åå
Öput( 3.455752 , .32140894 )äÖcircle*ä .0286234åå
Öput( 3.487168 , .33034977 )äÖcircle*ä .0286234åå
Öput( 3.518584 , .34017733 )äÖcircle*ä .0286234åå
Öput( 3.550000 , .35090132 )äÖcircle*ä .0286234åå
Öput( 3.581416 , .36253233 )äÖcircle*ä .0286234åå
Öput( 3.612832 , .37508182 )äÖcircle*ä .0286234åå
Öput( 3.644247 , .3885622 )äÖcircle*ä .0286234åå
Öput( 3.675663 , .40298677 )äÖcircle*ä .0286234åå
Öput( 3.707079 , .41836976 )äÖcircle*ä .0286234åå
Öput( 3.738495 , .43472635 )äÖcircle*ä .0286234åå
Öput( 3.769911 , .4520727 )äÖcircle*ä .0286234åå
Öput( 3.801327 , .47042593 )äÖcircle*ä .0286234åå
Öput( 3.832743 , .48980414 )äÖcircle*ä .0286234åå
Öput( 3.864159 , .510226 )äÖcircle*ä .0286234åå
Öput( 3.895575 , .531713 )äÖcircle*ä .0286234åå
Öput( 3.92699 , .554285 )äÖcircle*ä .0286234åå
Öput( 3.958407 , .577965 )äÖcircle*ä .0286234åå
Öput( 3.989823 , .602776 )äÖcircle*ä .0286234åå
Öput( 4.021239 , .628743 )äÖcircle*ä .0286234åå
Öput( 4.052655 , .65589 )äÖcircle*ä .0286234åå
Öput( 4.08407 , .684246 )äÖcircle*ä .0286234åå
Öput( 4.115486 , .713838 )äÖcircle*ä .0286234åå
Öput( 4.146902 , .744696 )äÖcircle*ä .0286234åå
Öput( 4.178318 , .776848 )äÖcircle*ä .0286234åå
Öput( 4.209734 , .810329 )äÖcircle*ä .0286234åå
Öput( 4.24115 , .845170 )äÖcircle*ä .0286234åå
Öput( 4.272566 , .881405 )äÖcircle*ä .0286234åå
Öput( 4.303982 , .919072 )äÖcircle*ä .0286234åå
Öput( 4.335398 , .958206 )äÖcircle*ä .0286234åå
Öput( 4.366814 , .998847 )äÖcircle*ä .0286234åå
Öput( 4.398230 , 1.041034 )äÖcircle*ä .0286234åå
Öput( 4.429646 , 1.084809 )äÖcircle*ä .0286234åå
Öput( 4.461062 , 1.130216 )äÖcircle*ä .0286234åå
Öput( 4.492477 , 1.177299 )äÖcircle*ä .0286234åå
Öput( 4.523893 , 1.226105 )äÖcircle*ä .0286234åå
Öput( 4.555309 , 1.276681 )äÖcircle*ä .0286234åå
Öput( 4.586725 , 1.329079 )äÖcircle*ä .0286234åå
Öput( 4.618141 , 1.383349 )äÖcircle*ä .0286234åå
Öput( 4.649557 , 1.439545 )äÖcircle*ä .0286234åå
Öput( 4.680973 , 1.497722 )äÖcircle*ä .0286234åå
Öput( 4.712389 , 1.557939 )äÖcircle*ä .0286234åå
Öput( 4.743805 , 1.620254 )äÖcircle*ä .0286234åå
Öput( 4.77522 , 1.684728 )äÖcircle*ä .0286234åå
Öput( 4.806637 , 1.751427 )äÖcircle*ä .0286234åå
Öput( 4.838053 , 1.820415 )äÖcircle*ä .0286234åå
Öput( 4.869469 , 1.89176 )äÖcircle*ä .0286234åå
Öput( 4.900885 , 1.965533 )äÖcircle*ä .0286234åå
Öput( 4.9323 , 2.041807 )äÖcircle*ä .0286234åå
Öput( 4.963716 , 2.120657 )äÖcircle*ä .0286234åå
Öput( 4.995132 , 2.20216 )äÖcircle*ä .0286234åå
Öput( 5.026548 , 2.286399 )äÖcircle*ä .0286234åå
Öput( 5.057964 , 2.373454 )äÖcircle*ä .0286234åå
Öput( 5.08938 , 2.463413 )äÖcircle*ä .0286234åå
Öput( 5.120796 , 2.556364 )äÖcircle*ä .0286234åå
Öput( 5.152212 , 2.652399 )äÖcircle*ä .0286234åå
Öput( 5.183628 , 2.751613 )äÖcircle*ä .0286234åå
Öput( 5.215044 , 2.854103 )äÖcircle*ä .0286234åå
Öput( 5.246460 , 2.95997 )äÖcircle*ä .0286234åå
Öput( 5.277876 , 3.069321 )äÖcircle*ä .0286234åå
Öput( 5.309292 , 3.182261 )äÖcircle*ä .0286234åå
Öput( 5.340708 , 3.298904 )äÖcircle*ä .0286234åå
Öput( 5.372123 , 3.419363 )äÖcircle*ä .0286234åå
Öput( 5.403539 , 3.543757 )äÖcircle*ä .0286234åå
Öput( 5.434955 , 3.67221 )äÖcircle*ä .0286234åå
Öput( 5.466371 , 3.804849 )äÖcircle*ä .0286234åå
Öput( 5.497787 , 3.941803 )äÖcircle*ä .0286234åå
Öput( 5.529203 , 4.083209 )äÖcircle*ä .0286234åå
Öput( 5.560619 , 4.229206 )äÖcircle*ä .0286234åå
Öput( 5.592035 , 4.379938 )äÖcircle*ä .0286234åå
Öput( 5.62345 , 4.535554 )äÖcircle*ä .0286234åå
Öput( 5.654867 , 4.696208 )äÖcircle*ä .0286234åå
Öput( 5.686283 , 4.862057 )äÖcircle*ä .0286234åå
Öput( 5.717699 , 5.033266 )äÖcircle*ä .0286234åå
Öput( 5.749115 , 5.210004 )äÖcircle*ä .0286234åå
Öput( 5.78053 , 5.392445 )äÖcircle*ä .0286234åå
Öput( 5.811946 , 5.580769 )äÖcircle*ä .0286234åå
Öput( 5.843362 , 5.775162 )äÖcircle*ä .0286234åå
Öput( 5.874778 , 5.975816 )äÖcircle*ä .0286234åå
Öput( 5.906194 , 6.182930 )äÖcircle*ä .0286234åå
Öput( 5.93761 , 6.396706 )äÖcircle*ä .0286234åå
Öput( 5.969026 , 6.617358 )äÖcircle*ä .0286234åå
Öput( 6.000442 , 6.845101 )äÖcircle*ä .0286234åå
Öput( 6.031858 , 7.080162 )äÖcircle*ä .0286234åå
Öput( 6.063274 , 7.322771 )äÖcircle*ä .0286234åå
Öput( 6.094690 , 7.573169 )äÖcircle*ä .0286234åå
Öput( 6.126106 , 7.831603 )äÖcircle*ä .0286234åå
%Finis.
apl> '5Ox' graph 2,1,1,i,5 ,xpi ,2 , 0 ,0 " sinhdatx.tex
%Label the curve
Öput( .753982 , 8.253686 )änÖ#2å
%Draw the data points
Öput( .785398 , 7.985490 )äÖcircle*ä .0286234åå
Öput( .816814 , 7.725736 )äÖcircle*ä .0286234åå
Öput( .84823 , 7.474169 )äÖcircle*ä .0286234åå
Öput( .879646 , 7.230539 )äÖcircle*ä .0286234åå
Öput( .911062 , 6.994608 )äÖcircle*ä .0286234åå
Öput( .942478 , 6.76614 )äÖcircle*ä .0286234åå
Öput( .973894 , 6.544912 )äÖcircle*ä .0286234åå
Öput( 1.005310 , 6.330705 )äÖcircle*ä .0286234åå
Öput( 1.036726 , 6.123307 )äÖcircle*ä .0286234åå
Öput( 1.068142 , 5.922514 )äÖcircle*ä .0286234åå
Öput( 1.099557 , 5.728127 )äÖcircle*ä .0286234åå
Öput( 1.130973 , 5.539954 )äÖcircle*ä .0286234åå
Öput( 1.162389 , 5.35781 )äÖcircle*ä .0286234åå
Öput( 1.193805 , 5.181516 )äÖcircle*ä .0286234åå
Öput( 1.225221 , 5.010897 )äÖcircle*ä .0286234åå
Öput( 1.256637 , 4.845784 )äÖcircle*ä .0286234åå
Öput( 1.288053 , 4.686015 )äÖcircle*ä .0286234åå
Öput( 1.319469 , 4.531431 )äÖcircle*ä .0286234åå
Öput( 1.350885 , 4.381881 )äÖcircle*ä .0286234åå
Öput( 1.3823 , 4.237217 )äÖcircle*ä .0286234åå
Öput( 1.413717 , 4.097296 )äÖcircle*ä .0286234åå
Öput( 1.445133 , 3.961980 )äÖcircle*ä .0286234åå
Öput( 1.476549 , 3.831135 )äÖcircle*ä .0286234åå
Öput( 1.507964 , 3.704632 )äÖcircle*ä .0286234åå
Öput( 1.53938 , 3.582346 )äÖcircle*ä .0286234åå
Öput( 1.570796 , 3.464157 )äÖcircle*ä .0286234åå
Öput( 1.602212 , 3.349948 )äÖcircle*ä .0286234åå
Öput( 1.633628 , 3.239607 )äÖcircle*ä .0286234åå
Öput( 1.665044 , 3.133023 )äÖcircle*ä .0286234åå
Öput( 1.69646 , 3.030093 )äÖcircle*ä .0286234åå
Öput( 1.727876 , 2.930714 )äÖcircle*ä .0286234åå
Öput( 1.759292 , 2.834788 )äÖcircle*ä .0286234åå
Öput( 1.790708 , 2.742221 )äÖcircle*ä .0286234åå
Öput( 1.822124 , 2.652922 )äÖcircle*ä .0286234åå
Öput( 1.853540 , 2.566801 )äÖcircle*ä .0286234åå
Öput( 1.884956 , 2.483775 )äÖcircle*ä .0286234åå
Öput( 1.916372 , 2.403761 )äÖcircle*ä .0286234åå
Öput( 1.947787 , 2.32668 )äÖcircle*ä .0286234åå
Öput( 1.979203 , 2.252457 )äÖcircle*ä .0286234åå
Öput( 2.010619 , 2.181018 )äÖcircle*ä .0286234åå
Öput( 2.042035 , 2.112292 )äÖcircle*ä .0286234åå
Öput( 2.073451 , 2.046211 )äÖcircle*ä .0286234åå
Öput( 2.104867 , 1.98271 )äÖcircle*ä .0286234åå
Öput( 2.136283 , 1.921728 )äÖcircle*ä .0286234åå
Öput( 2.167699 , 1.863203 )äÖcircle*ä .0286234åå
Öput( 2.199115 , 1.807078 )äÖcircle*ä .0286234åå
Öput( 2.23053 , 1.753297 )äÖcircle*ä .0286234åå
Öput( 2.261947 , 1.701807 )äÖcircle*ä .0286234åå
Öput( 2.293363 , 1.652558 )äÖcircle*ä .0286234åå
Öput( 2.324779 , 1.6055 )äÖcircle*ä .0286234åå
Öput( 2.356194 , 1.560589 )äÖcircle*ä .0286234åå
Öput( 2.38761 , 1.517777 )äÖcircle*ä .0286234åå
Öput( 2.419026 , 1.477025 )äÖcircle*ä .0286234åå
Öput( 2.450442 , 1.438291 )äÖcircle*ä .0286234åå
Öput( 2.481858 , 1.401538 )äÖcircle*ä .0286234åå
Öput( 2.513274 , 1.366728 )äÖcircle*ä .0286234åå
Öput( 2.54469 , 1.333829 )äÖcircle*ä .0286234åå
Öput( 2.576106 , 1.302806 )äÖcircle*ä .0286234åå
Öput( 2.607522 , 1.27363 )äÖcircle*ä .0286234åå
Öput( 2.638938 , 1.246272 )äÖcircle*ä .0286234åå
Öput( 2.670354 , 1.220704 )äÖcircle*ä .0286234åå
Öput( 2.701770 , 1.196903 )äÖcircle*ä .0286234åå
Öput( 2.733186 , 1.174843 )äÖcircle*ä .0286234åå
Öput( 2.764602 , 1.154503 )äÖcircle*ä .0286234åå
Öput( 2.796017 , 1.135864 )äÖcircle*ä .0286234åå
Öput( 2.827433 , 1.118906 )äÖcircle*ä .0286234åå
Öput( 2.858849 , 1.103614 )äÖcircle*ä .0286234åå
Öput( 2.890265 , 1.089971 )äÖcircle*ä .0286234åå
Öput( 2.921681 , 1.077965 )äÖcircle*ä .0286234åå
Öput( 2.953097 , 1.067584 )äÖcircle*ä .0286234åå
Öput( 2.984513 , 1.058817 )äÖcircle*ä .0286234åå
Öput( 3.015929 , 1.051656 )äÖcircle*ä .0286234åå
Öput( 3.047345 , 1.046093 )äÖcircle*ä .0286234åå
Öput( 3.07876 , 1.042124 )äÖcircle*ä .0286234åå
Öput( 3.110177 , 1.039744 )äÖcircle*ä .0286234åå
Öput( 3.141593 , 1.038951 )äÖcircle*ä .0286234åå
Öput( 3.173009 , 1.039744 )äÖcircle*ä .0286234åå
Öput( 3.204425 , 1.042124 )äÖcircle*ä .0286234åå
Öput( 3.23584 , 1.046093 )äÖcircle*ä .0286234åå
Öput( 3.267256 , 1.051656 )äÖcircle*ä .0286234åå
Öput( 3.298672 , 1.058817 )äÖcircle*ä .0286234åå
Öput( 3.330088 , 1.067584 )äÖcircle*ä .0286234åå
Öput( 3.361504 , 1.077965 )äÖcircle*ä .0286234åå
Öput( 3.39292 , 1.089971 )äÖcircle*ä .0286234åå
Öput( 3.424336 , 1.103614 )äÖcircle*ä .0286234åå
Öput( 3.455752 , 1.118906 )äÖcircle*ä .0286234åå
Öput( 3.487168 , 1.135864 )äÖcircle*ä .0286234åå
Öput( 3.518584 , 1.154503 )äÖcircle*ä .0286234åå
Öput( 3.550000 , 1.174843 )äÖcircle*ä .0286234åå
Öput( 3.581416 , 1.196903 )äÖcircle*ä .0286234åå
Öput( 3.612832 , 1.220704 )äÖcircle*ä .0286234åå
Öput( 3.644247 , 1.246272 )äÖcircle*ä .0286234åå
Öput( 3.675663 , 1.27363 )äÖcircle*ä .0286234åå
Öput( 3.707079 , 1.302806 )äÖcircle*ä .0286234åå
Öput( 3.738495 , 1.333829 )äÖcircle*ä .0286234åå
Öput( 3.769911 , 1.366728 )äÖcircle*ä .0286234åå
Öput( 3.801327 , 1.401538 )äÖcircle*ä .0286234åå
Öput( 3.832743 , 1.438291 )äÖcircle*ä .0286234åå
Öput( 3.864159 , 1.477025 )äÖcircle*ä .0286234åå
Öput( 3.895575 , 1.517777 )äÖcircle*ä .0286234åå
Öput( 3.92699 , 1.560589 )äÖcircle*ä .0286234åå
Öput( 3.958407 , 1.6055 )äÖcircle*ä .0286234åå
Öput( 3.989823 , 1.652558 )äÖcircle*ä .0286234åå
Öput( 4.021239 , 1.701807 )äÖcircle*ä .0286234åå
Öput( 4.052655 , 1.753297 )äÖcircle*ä .0286234åå
Öput( 4.08407 , 1.807078 )äÖcircle*ä .0286234åå
Öput( 4.115486 , 1.863203 )äÖcircle*ä .0286234åå
Öput( 4.146902 , 1.921728 )äÖcircle*ä .0286234åå
Öput( 4.178318 , 1.98271 )äÖcircle*ä .0286234åå
Öput( 4.209734 , 2.046211 )äÖcircle*ä .0286234åå
Öput( 4.24115 , 2.112292 )äÖcircle*ä .0286234åå
Öput( 4.272566 , 2.181018 )äÖcircle*ä .0286234åå
Öput( 4.303982 , 2.252457 )äÖcircle*ä .0286234åå
Öput( 4.335398 , 2.32668 )äÖcircle*ä .0286234åå
Öput( 4.366814 , 2.403761 )äÖcircle*ä .0286234åå
Öput( 4.398230 , 2.483775 )äÖcircle*ä .0286234åå
Öput( 4.429646 , 2.566801 )äÖcircle*ä .0286234åå
Öput( 4.461062 , 2.652922 )äÖcircle*ä .0286234åå
Öput( 4.492477 , 2.742221 )äÖcircle*ä .0286234åå
Öput( 4.523893 , 2.834788 )äÖcircle*ä .0286234åå
Öput( 4.555309 , 2.930714 )äÖcircle*ä .0286234åå
Öput( 4.586725 , 3.030093 )äÖcircle*ä .0286234åå
Öput( 4.618141 , 3.133023 )äÖcircle*ä .0286234åå
Öput( 4.649557 , 3.239607 )äÖcircle*ä .0286234åå
Öput( 4.680973 , 3.349948 )äÖcircle*ä .0286234åå
Öput( 4.712389 , 3.464157 )äÖcircle*ä .0286234åå
Öput( 4.743805 , 3.582346 )äÖcircle*ä .0286234åå
Öput( 4.77522 , 3.704632 )äÖcircle*ä .0286234åå
Öput( 4.806637 , 3.831135 )äÖcircle*ä .0286234åå
Öput( 4.838053 , 3.961980 )äÖcircle*ä .0286234åå
Öput( 4.869469 , 4.097296 )äÖcircle*ä .0286234åå
Öput( 4.900885 , 4.237217 )äÖcircle*ä .0286234åå
Öput( 4.9323 , 4.381881 )äÖcircle*ä .0286234åå
Öput( 4.963716 , 4.531431 )äÖcircle*ä .0286234åå
Öput( 4.995132 , 4.686015 )äÖcircle*ä .0286234åå
Öput( 5.026548 , 4.845784 )äÖcircle*ä .0286234åå
Öput( 5.057964 , 5.010897 )äÖcircle*ä .0286234åå
Öput( 5.08938 , 5.181516 )äÖcircle*ä .0286234åå
Öput( 5.120796 , 5.35781 )äÖcircle*ä .0286234åå
Öput( 5.152212 , 5.539954 )äÖcircle*ä .0286234åå
Öput( 5.183628 , 5.728127 )äÖcircle*ä .0286234åå
Öput( 5.215044 , 5.922514 )äÖcircle*ä .0286234åå
Öput( 5.246460 , 6.123307 )äÖcircle*ä .0286234åå
Öput( 5.277876 , 6.330705 )äÖcircle*ä .0286234åå
Öput( 5.309292 , 6.544912 )äÖcircle*ä .0286234åå
Öput( 5.340708 , 6.76614 )äÖcircle*ä .0286234åå
Öput( 5.372123 , 6.994608 )äÖcircle*ä .0286234åå
Öput( 5.403539 , 7.230539 )äÖcircle*ä .0286234åå
Öput( 5.434955 , 7.474169 )äÖcircle*ä .0286234åå
Öput( 5.466371 , 7.725736 )äÖcircle*ä .0286234åå
Öput( 5.497787 , 7.985490 )äÖcircle*ä .0286234åå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
