apl>" <-APL2-------------------- sam297.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> caption#'Graphs of 5Ox and 6Ox'
apl> '5Ox' graph 1,0,1,r,5 ,xpi ,0 , 1 ,0 " sinhdata.tex
ÖbeginäfigureåÄtbhÅ
ÖcaptionäGraphs of 5Ox and 6Oxå
Öbeginäcenterå
ÖsetlengthäÖunitlengthåä .571005inå
Öbeginäpictureå(7.880844,10.50779)
%Draw a frame around the picture
Öput(0,0)äÖline(1,0)ä7.880844åå% bottom
Öput(0,0)äÖline(0,1)ä10.50779åå% left
Öput(0,10.50779)äÖline(1,0)ä7.880844åå% top
Öput(7.880844,0)äÖline(0,1)ä10.50779åå% right
%Draw the x axis
Öput(0,5.253896)äÖline(1,0)ä7.880844åå%x axis
Öput( .985106 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 1.970211 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 2.955317 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 4.925528 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 5.910633 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 6.895739 , 5.253896 )äÖcircle*ä .03590162åå
%Draw the x axis marker values in pi
Öput( .905378 , 5.008714 )ä$ -Öfracä3Öpiåä4å $å
Öput( 1.890484 , 5.008714 )ä$ -ÖfracäÖpiåä2å $å
Öput( 2.875589 , 5.008714 )ä$ -ÖfracäÖpiåä4å $å
Öput( 3.940422 , 5.008714 )ä$ 0 $å
Öput( 4.925528 , 5.008714 )ä$ ÖfracäÖpiåä4å $å
Öput( 5.910633 , 5.008714 )ä$ ÖfracäÖpiåä2å $å
Öput( 6.895739 , 5.008714 )ä$ Öfracä3Öpiåä4å $å
%Draw the y axis
Öput(3.940422,0)äÖline(0,1)ä10.50779åå%y axis
%Draw the y axis markers
Öput( 3.940422 , 1.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 2.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 3.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 4.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 6.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 7.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 8.253896 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 9.253896 )äÖcircle*ä .03590162åå
%Draw the y axis marker values
Öput( 4.027987 , 1.153896 )ä$ -4 $å
Öput( 4.027987 , 2.153896 )ä$ -3 $å
Öput( 4.027987 , 3.153896 )ä$ -2 $å
Öput( 4.027987 , 4.153896 )ä$ -1 $å
Öput( 4.027987 , 6.253896 )ä$ 1 $å
Öput( 4.027987 , 7.253896 )ä$ 2 $å
Öput( 4.027987 , 8.253896 )ä$ 3 $å
Öput( 4.027987 , 9.253896 )ä$ 4 $å
%Draw the data points
Öput( 1.103318 , .505089 )äÖcircle*ä .03590162åå
Öput( 1.142722 , .65523 )äÖcircle*ä .03590162åå
Öput( 1.182127 , .800833 )äÖcircle*ä .03590162åå
Öput( 1.22153 , .942040 )äÖcircle*ä .03590162åå
Öput( 1.260935 , 1.07899 )äÖcircle*ä .03590162åå
Öput( 1.300339 , 1.211821 )äÖcircle*ä .03590162åå
Öput( 1.339744 , 1.340662 )äÖcircle*ä .03590162åå
Öput( 1.379148 , 1.465640 )äÖcircle*ä .03590162åå
Öput( 1.418552 , 1.586879 )äÖcircle*ä .03590162åå
Öput( 1.457956 , 1.704498 )äÖcircle*ä .03590162åå
Öput( 1.49736 , 1.818614 )äÖcircle*ä .03590162åå
Öput( 1.536765 , 1.929339 )äÖcircle*ä .03590162åå
Öput( 1.576169 , 2.036783 )äÖcircle*ä .03590162åå
Öput( 1.615573 , 2.141051 )äÖcircle*ä .03590162åå
Öput( 1.654977 , 2.242247 )äÖcircle*ä .03590162åå
Öput( 1.694382 , 2.34047 )äÖcircle*ä .03590162åå
Öput( 1.733786 , 2.435818 )äÖcircle*ä .03590162åå
Öput( 1.77319 , 2.528384 )äÖcircle*ä .03590162åå
Öput( 1.812594 , 2.618260 )äÖcircle*ä .03590162åå
Öput( 1.851998 , 2.705534 )äÖcircle*ä .03590162åå
Öput( 1.891403 , 2.790293 )äÖcircle*ä .03590162åå
Öput( 1.930807 , 2.87262 )äÖcircle*ä .03590162åå
Öput( 1.970211 , 2.952597 )äÖcircle*ä .03590162åå
Öput( 2.009615 , 3.030303 )äÖcircle*ä .03590162åå
Öput( 2.049020 , 3.105813 )äÖcircle*ä .03590162åå
Öput( 2.088424 , 3.179204 )äÖcircle*ä .03590162åå
Öput( 2.127828 , 3.250546 )äÖcircle*ä .03590162åå
Öput( 2.167232 , 3.319911 )äÖcircle*ä .03590162åå
Öput( 2.206636 , 3.387368 )äÖcircle*ä .03590162åå
Öput( 2.24604 , 3.452982 )äÖcircle*ä .03590162åå
Öput( 2.285445 , 3.516818 )äÖcircle*ä .03590162åå
Öput( 2.324849 , 3.578940 )äÖcircle*ä .03590162åå
Öput( 2.364253 , 3.639408 )äÖcircle*ä .03590162åå
Öput( 2.403658 , 3.698283 )äÖcircle*ä .03590162åå
Öput( 2.443062 , 3.755623 )äÖcircle*ä .03590162åå
Öput( 2.482466 , 3.811483 )äÖcircle*ä .03590162åå
Öput( 2.52187 , 3.86592 )äÖcircle*ä .03590162åå
Öput( 2.561274 , 3.918987 )äÖcircle*ä .03590162åå
Öput( 2.600679 , 3.970736 )äÖcircle*ä .03590162åå
Öput( 2.640083 , 4.021219 )äÖcircle*ä .03590162åå
Öput( 2.679487 , 4.070485 )äÖcircle*ä .03590162åå
Öput( 2.718891 , 4.118583 )äÖcircle*ä .03590162åå
Öput( 2.758296 , 4.16556 )äÖcircle*ä .03590162åå
Öput( 2.797700 , 4.211464 )äÖcircle*ä .03590162åå
Öput( 2.837104 , 4.256338 )äÖcircle*ä .03590162åå
Öput( 2.876508 , 4.300228 )äÖcircle*ä .03590162åå
Öput( 2.915912 , 4.343176 )äÖcircle*ä .03590162åå
Öput( 2.955317 , 4.385225 )äÖcircle*ä .03590162åå
Öput( 2.99472 , 4.426417 )äÖcircle*ä .03590162åå
Öput( 3.034125 , 4.466792 )äÖcircle*ä .03590162åå
Öput( 3.073529 , 4.50639 )äÖcircle*ä .03590162åå
Öput( 3.112933 , 4.545251 )äÖcircle*ä .03590162åå
Öput( 3.152338 , 4.583412 )äÖcircle*ä .03590162åå
Öput( 3.191742 , 4.620911 )äÖcircle*ä .03590162åå
Öput( 3.231146 , 4.657786 )äÖcircle*ä .03590162åå
Öput( 3.27055 , 4.694072 )äÖcircle*ä .03590162åå
Öput( 3.309955 , 4.729805 )äÖcircle*ä .03590162åå
Öput( 3.349359 , 4.765022 )äÖcircle*ä .03590162åå
Öput( 3.388763 , 4.799755 )äÖcircle*ä .03590162åå
Öput( 3.428167 , 4.83404 )äÖcircle*ä .03590162åå
Öput( 3.467571 , 4.867912 )äÖcircle*ä .03590162åå
Öput( 3.506976 , 4.901402 )äÖcircle*ä .03590162åå
Öput( 3.54638 , 4.934544 )äÖcircle*ä .03590162åå
Öput( 3.585784 , 4.96737 )äÖcircle*ä .03590162åå
Öput( 3.625188 , 4.999915 )äÖcircle*ä .03590162åå
Öput( 3.664593 , 5.032208 )äÖcircle*ä .03590162åå
Öput( 3.703997 , 5.064282 )äÖcircle*ä .03590162åå
Öput( 3.743401 , 5.096170 )äÖcircle*ä .03590162åå
Öput( 3.782805 , 5.127901 )äÖcircle*ä .03590162åå
Öput( 3.822209 , 5.159509 )äÖcircle*ä .03590162åå
Öput( 3.861614 , 5.191023 )äÖcircle*ä .03590162åå
Öput( 3.901018 , 5.222475 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 5.253896 )äÖcircle*ä .03590162åå
Öput( 3.979826 , 5.285317 )äÖcircle*ä .03590162åå
Öput( 4.01923 , 5.316769 )äÖcircle*ä .03590162åå
Öput( 4.058635 , 5.348284 )äÖcircle*ä .03590162åå
Öput( 4.098039 , 5.37989 )äÖcircle*ä .03590162åå
Öput( 4.137443 , 5.411623 )äÖcircle*ä .03590162åå
Öput( 4.176847 , 5.44351 )äÖcircle*ä .03590162åå
Öput( 4.216252 , 5.475584 )äÖcircle*ä .03590162åå
Öput( 4.255656 , 5.507878 )äÖcircle*ä .03590162åå
Öput( 4.29506 , 5.540422 )äÖcircle*ä .03590162åå
Öput( 4.334464 , 5.573249 )äÖcircle*ä .03590162åå
Öput( 4.373869 , 5.60639 )äÖcircle*ä .03590162åå
Öput( 4.413273 , 5.63988 )äÖcircle*ä .03590162åå
Öput( 4.452677 , 5.673752 )äÖcircle*ä .03590162åå
Öput( 4.492081 , 5.708037 )äÖcircle*ä .03590162åå
Öput( 4.531485 , 5.74277 )äÖcircle*ä .03590162åå
Öput( 4.570890 , 5.777987 )äÖcircle*ä .03590162åå
Öput( 4.610294 , 5.81372 )äÖcircle*ä .03590162åå
Öput( 4.649698 , 5.850007 )äÖcircle*ä .03590162åå
Öput( 4.689102 , 5.886881 )äÖcircle*ä .03590162åå
Öput( 4.728507 , 5.92438 )äÖcircle*ä .03590162åå
Öput( 4.76791 , 5.962541 )äÖcircle*ä .03590162åå
Öput( 4.807315 , 6.001402 )äÖcircle*ä .03590162åå
Öput( 4.846719 , 6.041 )äÖcircle*ä .03590162åå
Öput( 4.886123 , 6.081375 )äÖcircle*ä .03590162åå
Öput( 4.925528 , 6.122567 )äÖcircle*ä .03590162åå
Öput( 4.964932 , 6.164617 )äÖcircle*ä .03590162åå
Öput( 5.004336 , 6.207565 )äÖcircle*ä .03590162åå
Öput( 5.04374 , 6.251454 )äÖcircle*ä .03590162åå
Öput( 5.083145 , 6.296329 )äÖcircle*ä .03590162åå
Öput( 5.122549 , 6.342232 )äÖcircle*ä .03590162åå
Öput( 5.161953 , 6.389209 )äÖcircle*ä .03590162åå
Öput( 5.201357 , 6.437307 )äÖcircle*ä .03590162åå
Öput( 5.240761 , 6.486573 )äÖcircle*ä .03590162åå
Öput( 5.280166 , 6.537056 )äÖcircle*ä .03590162åå
Öput( 5.319570 , 6.588805 )äÖcircle*ä .03590162åå
Öput( 5.358974 , 6.641872 )äÖcircle*ä .03590162åå
Öput( 5.398378 , 6.696309 )äÖcircle*ä .03590162åå
Öput( 5.437783 , 6.752170 )äÖcircle*ä .03590162åå
Öput( 5.477187 , 6.809509 )äÖcircle*ä .03590162åå
Öput( 5.516591 , 6.868384 )äÖcircle*ä .03590162åå
Öput( 5.555995 , 6.928853 )äÖcircle*ä .03590162åå
Öput( 5.595399 , 6.990975 )äÖcircle*ä .03590162åå
Öput( 5.634804 , 7.05481 )äÖcircle*ä .03590162åå
Öput( 5.674208 , 7.120425 )äÖcircle*ä .03590162åå
Öput( 5.713612 , 7.187881 )äÖcircle*ä .03590162åå
Öput( 5.753016 , 7.257246 )äÖcircle*ä .03590162åå
Öput( 5.79242 , 7.328589 )äÖcircle*ä .03590162åå
Öput( 5.831825 , 7.401979 )äÖcircle*ä .03590162åå
Öput( 5.871229 , 7.477490 )äÖcircle*ä .03590162åå
Öput( 5.910633 , 7.555195 )äÖcircle*ä .03590162åå
Öput( 5.950037 , 7.635172 )äÖcircle*ä .03590162åå
Öput( 5.989442 , 7.717499 )äÖcircle*ä .03590162åå
Öput( 6.028846 , 7.802258 )äÖcircle*ä .03590162åå
Öput( 6.06825 , 7.889533 )äÖcircle*ä .03590162åå
Öput( 6.107654 , 7.979408 )äÖcircle*ä .03590162åå
Öput( 6.147059 , 8.071974 )äÖcircle*ä .03590162åå
Öput( 6.186463 , 8.167322 )äÖcircle*ä .03590162åå
Öput( 6.225867 , 8.265545 )äÖcircle*ä .03590162åå
Öput( 6.265271 , 8.366741 )äÖcircle*ä .03590162åå
Öput( 6.304675 , 8.471009 )äÖcircle*ä .03590162åå
Öput( 6.344080 , 8.578453 )äÖcircle*ä .03590162åå
Öput( 6.383484 , 8.689178 )äÖcircle*ä .03590162åå
Öput( 6.422888 , 8.803294 )äÖcircle*ä .03590162åå
Öput( 6.462292 , 8.920914 )äÖcircle*ä .03590162åå
Öput( 6.501697 , 9.042153 )äÖcircle*ä .03590162åå
Öput( 6.5411 , 9.16713 )äÖcircle*ä .03590162åå
Öput( 6.580505 , 9.295971 )äÖcircle*ä .03590162åå
Öput( 6.619909 , 9.428802 )äÖcircle*ä .03590162åå
Öput( 6.659313 , 9.56575 )äÖcircle*ä .03590162åå
Öput( 6.698718 , 9.70696 )äÖcircle*ä .03590162åå
Öput( 6.738122 , 9.85256 )äÖcircle*ä .03590162åå
Öput( 6.777526 , 10.0027 )äÖcircle*ä .03590162åå
Öput( 1.183046 , .505089 )ä5Oxå
%Finis.
apl> '6Ox' graph 2,0,1,r,5 ,xpi ,0 , 0.1,0 " coshdata.tex
%Draw the data points
Öput( 1.142722 , 9.96003 )äÖcircle*ä .03590162åå
Öput( 1.182127 , 9.81786 )äÖcircle*ä .03590162åå
Öput( 1.22153 , 9.68019 )äÖcircle*ä .03590162åå
Öput( 1.260935 , 9.54689 )äÖcircle*ä .03590162åå
Öput( 1.300339 , 9.417833 )äÖcircle*ä .03590162åå
Öput( 1.339744 , 9.292882 )äÖcircle*ä .03590162åå
Öput( 1.379148 , 9.171917 )äÖcircle*ä .03590162åå
Öput( 1.418552 , 9.054819 )äÖcircle*ä .03590162åå
Öput( 1.457956 , 8.941474 )äÖcircle*ä .03590162åå
Öput( 1.49736 , 8.831768 )äÖcircle*ä .03590162åå
Öput( 1.536765 , 8.725593 )äÖcircle*ä .03590162åå
Öput( 1.576169 , 8.622845 )äÖcircle*ä .03590162åå
Öput( 1.615573 , 8.523423 )äÖcircle*ä .03590162åå
Öput( 1.654977 , 8.427227 )äÖcircle*ä .03590162åå
Öput( 1.694382 , 8.334164 )äÖcircle*ä .03590162åå
Öput( 1.733786 , 8.244141 )äÖcircle*ä .03590162åå
Öput( 1.77319 , 8.157070 )äÖcircle*ä .03590162åå
Öput( 1.812594 , 8.072864 )äÖcircle*ä .03590162åå
Öput( 1.851998 , 7.99144 )äÖcircle*ä .03590162åå
Öput( 1.891403 , 7.912719 )äÖcircle*ä .03590162åå
Öput( 1.930807 , 7.836622 )äÖcircle*ä .03590162åå
Öput( 1.970211 , 7.763075 )äÖcircle*ä .03590162åå
Öput( 2.009615 , 7.692004 )äÖcircle*ä .03590162åå
Öput( 2.049020 , 7.623339 )äÖcircle*ä .03590162åå
Öput( 2.088424 , 7.557013 )äÖcircle*ä .03590162åå
Öput( 2.127828 , 7.492961 )äÖcircle*ä .03590162åå
Öput( 2.167232 , 7.431119 )äÖcircle*ä .03590162åå
Öput( 2.206636 , 7.371425 )äÖcircle*ä .03590162åå
Öput( 2.24604 , 7.313822 )äÖcircle*ä .03590162åå
Öput( 2.285445 , 7.258252 )äÖcircle*ä .03590162åå
Öput( 2.324849 , 7.20466 )äÖcircle*ä .03590162åå
Öput( 2.364253 , 7.152994 )äÖcircle*ä .03590162åå
Öput( 2.403658 , 7.103202 )äÖcircle*ä .03590162åå
Öput( 2.443062 , 7.055236 )äÖcircle*ä .03590162åå
Öput( 2.482466 , 7.009047 )äÖcircle*ä .03590162åå
Öput( 2.52187 , 6.964591 )äÖcircle*ä .03590162åå
Öput( 2.561274 , 6.921824 )äÖcircle*ä .03590162åå
Öput( 2.600679 , 6.880703 )äÖcircle*ä .03590162åå
Öput( 2.640083 , 6.841187 )äÖcircle*ä .03590162åå
Öput( 2.679487 , 6.803239 )äÖcircle*ä .03590162åå
Öput( 2.718891 , 6.766819 )äÖcircle*ä .03590162åå
Öput( 2.758296 , 6.731893 )äÖcircle*ä .03590162åå
Öput( 2.797700 , 6.698426 )äÖcircle*ä .03590162åå
Öput( 2.837104 , 6.666384 )äÖcircle*ä .03590162åå
Öput( 2.876508 , 6.635737 )äÖcircle*ä .03590162åå
Öput( 2.915912 , 6.606454 )äÖcircle*ä .03590162åå
Öput( 2.955317 , 6.578505 )äÖcircle*ä .03590162åå
Öput( 2.99472 , 6.551864 )äÖcircle*ä .03590162åå
Öput( 3.034125 , 6.526505 )äÖcircle*ä .03590162åå
Öput( 3.073529 , 6.502401 )äÖcircle*ä .03590162åå
Öput( 3.112933 , 6.479530 )äÖcircle*ä .03590162åå
Öput( 3.152338 , 6.457868 )äÖcircle*ä .03590162åå
Öput( 3.191742 , 6.437395 )äÖcircle*ä .03590162åå
Öput( 3.231146 , 6.41809 )äÖcircle*ä .03590162åå
Öput( 3.27055 , 6.399934 )äÖcircle*ä .03590162åå
Öput( 3.309955 , 6.382910 )äÖcircle*ä .03590162åå
Öput( 3.349359 , 6.366999 )äÖcircle*ä .03590162åå
Öput( 3.388763 , 6.352188 )äÖcircle*ä .03590162åå
Öput( 3.428167 , 6.33846 )äÖcircle*ä .03590162åå
Öput( 3.467571 , 6.325803 )äÖcircle*ä .03590162åå
Öput( 3.506976 , 6.314204 )äÖcircle*ä .03590162åå
Öput( 3.54638 , 6.303651 )äÖcircle*ä .03590162åå
Öput( 3.585784 , 6.294135 )äÖcircle*ä .03590162åå
Öput( 3.625188 , 6.285646 )äÖcircle*ä .03590162åå
Öput( 3.664593 , 6.278174 )äÖcircle*ä .03590162åå
Öput( 3.703997 , 6.271714 )äÖcircle*ä .03590162åå
Öput( 3.743401 , 6.266259 )äÖcircle*ä .03590162åå
Öput( 3.782805 , 6.261802 )äÖcircle*ä .03590162åå
Öput( 3.822209 , 6.25834 )äÖcircle*ä .03590162åå
Öput( 3.861614 , 6.25587 )äÖcircle*ä .03590162åå
Öput( 3.901018 , 6.254390 )äÖcircle*ä .03590162åå
Öput( 3.940422 , 6.253896 )äÖcircle*ä .03590162åå
Öput( 3.979826 , 6.254390 )äÖcircle*ä .03590162åå
Öput( 4.01923 , 6.25587 )äÖcircle*ä .03590162åå
Öput( 4.058635 , 6.25834 )äÖcircle*ä .03590162åå
Öput( 4.098039 , 6.261802 )äÖcircle*ä .03590162åå
Öput( 4.137443 , 6.266259 )äÖcircle*ä .03590162åå
Öput( 4.176847 , 6.271714 )äÖcircle*ä .03590162åå
Öput( 4.216252 , 6.278174 )äÖcircle*ä .03590162åå
Öput( 4.255656 , 6.285646 )äÖcircle*ä .03590162åå
Öput( 4.29506 , 6.294135 )äÖcircle*ä .03590162åå
Öput( 4.334464 , 6.303651 )äÖcircle*ä .03590162åå
Öput( 4.373869 , 6.314204 )äÖcircle*ä .03590162åå
Öput( 4.413273 , 6.325803 )äÖcircle*ä .03590162åå
Öput( 4.452677 , 6.33846 )äÖcircle*ä .03590162åå
Öput( 4.492081 , 6.352188 )äÖcircle*ä .03590162åå
Öput( 4.531485 , 6.366999 )äÖcircle*ä .03590162åå
Öput( 4.570890 , 6.382910 )äÖcircle*ä .03590162åå
Öput( 4.610294 , 6.399934 )äÖcircle*ä .03590162åå
Öput( 4.649698 , 6.41809 )äÖcircle*ä .03590162åå
Öput( 4.689102 , 6.437395 )äÖcircle*ä .03590162åå
Öput( 4.728507 , 6.457868 )äÖcircle*ä .03590162åå
Öput( 4.76791 , 6.479530 )äÖcircle*ä .03590162åå
Öput( 4.807315 , 6.502401 )äÖcircle*ä .03590162åå
Öput( 4.846719 , 6.526505 )äÖcircle*ä .03590162åå
Öput( 4.886123 , 6.551864 )äÖcircle*ä .03590162åå
Öput( 4.925528 , 6.578505 )äÖcircle*ä .03590162åå
Öput( 4.964932 , 6.606454 )äÖcircle*ä .03590162åå
Öput( 5.004336 , 6.635737 )äÖcircle*ä .03590162åå
Öput( 5.04374 , 6.666384 )äÖcircle*ä .03590162åå
Öput( 5.083145 , 6.698426 )äÖcircle*ä .03590162åå
Öput( 5.122549 , 6.731893 )äÖcircle*ä .03590162åå
Öput( 5.161953 , 6.766819 )äÖcircle*ä .03590162åå
Öput( 5.201357 , 6.803239 )äÖcircle*ä .03590162åå
Öput( 5.240761 , 6.841187 )äÖcircle*ä .03590162åå
Öput( 5.280166 , 6.880703 )äÖcircle*ä .03590162åå
Öput( 5.319570 , 6.921824 )äÖcircle*ä .03590162åå
Öput( 5.358974 , 6.964591 )äÖcircle*ä .03590162åå
Öput( 5.398378 , 7.009047 )äÖcircle*ä .03590162åå
Öput( 5.437783 , 7.055236 )äÖcircle*ä .03590162åå
Öput( 5.477187 , 7.103202 )äÖcircle*ä .03590162åå
Öput( 5.516591 , 7.152994 )äÖcircle*ä .03590162åå
Öput( 5.555995 , 7.20466 )äÖcircle*ä .03590162åå
Öput( 5.595399 , 7.258252 )äÖcircle*ä .03590162åå
Öput( 5.634804 , 7.313822 )äÖcircle*ä .03590162åå
Öput( 5.674208 , 7.371425 )äÖcircle*ä .03590162åå
Öput( 5.713612 , 7.431119 )äÖcircle*ä .03590162åå
Öput( 5.753016 , 7.492961 )äÖcircle*ä .03590162åå
Öput( 5.79242 , 7.557013 )äÖcircle*ä .03590162åå
Öput( 5.831825 , 7.623339 )äÖcircle*ä .03590162åå
Öput( 5.871229 , 7.692004 )äÖcircle*ä .03590162åå
Öput( 5.910633 , 7.763075 )äÖcircle*ä .03590162åå
Öput( 5.950037 , 7.836622 )äÖcircle*ä .03590162åå
Öput( 5.989442 , 7.912719 )äÖcircle*ä .03590162åå
Öput( 6.028846 , 7.99144 )äÖcircle*ä .03590162åå
Öput( 6.06825 , 8.072864 )äÖcircle*ä .03590162åå
Öput( 6.107654 , 8.157070 )äÖcircle*ä .03590162åå
Öput( 6.147059 , 8.244141 )äÖcircle*ä .03590162åå
Öput( 6.186463 , 8.334164 )äÖcircle*ä .03590162åå
Öput( 6.225867 , 8.427227 )äÖcircle*ä .03590162åå
Öput( 6.265271 , 8.523423 )äÖcircle*ä .03590162åå
Öput( 6.304675 , 8.622845 )äÖcircle*ä .03590162åå
Öput( 6.344080 , 8.725593 )äÖcircle*ä .03590162åå
Öput( 6.383484 , 8.831768 )äÖcircle*ä .03590162åå
Öput( 6.422888 , 8.941474 )äÖcircle*ä .03590162åå
Öput( 6.462292 , 9.054819 )äÖcircle*ä .03590162åå
Öput( 6.501697 , 9.171917 )äÖcircle*ä .03590162åå
Öput( 6.5411 , 9.292882 )äÖcircle*ä .03590162åå
Öput( 6.580505 , 9.417833 )äÖcircle*ä .03590162åå
Öput( 6.619909 , 9.54689 )äÖcircle*ä .03590162åå
Öput( 6.659313 , 9.68019 )äÖcircle*ä .03590162åå
Öput( 6.698718 , 9.81786 )äÖcircle*ä .03590162åå
Öput( 6.738122 , 9.96003 )äÖcircle*ä .03590162åå
Öput( 1.222450 , 9.96003 )ä6Oxå
Öendäpictureå
Öendäcenterå
%Finis.
apl>)off
