(*^
::[ Information =
"This is a Mathematica Notebook file. It contains ASCII text, and can be
transferred by email, ftp, or other text-file transfer utility. It should
be read or edited using a copy of Mathematica or MathReader. If you
received this as email, use your mail application or copy/paste to save
everything from the line containing (*^ down to the line containing ^*)
into a plain text file. On some systems you may have to give the file a
name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
The line below identifies what version of Mathematica created this file,
but it can be opened using any other version as well.";
FrontEndVersion = "X Window System Mathematica Notebook Front End Version 2.2";
X11StandardFontEncoding;
fontset = title, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, fontName, "times";
fontset = subtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, fontName, "times";
fontset = subsubtitle, inactive, noPageBreakBelow, noPageBreakInGroup, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, fontName, "times";
fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, fontName, "times";
fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, fontName, "times";
fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, fontName, "times";
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, fontName, "times";
fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, 12, fontName, "courier";
fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, fontName, "courier";
fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, 12, fontName, "courier";
fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, 12, fontName, "courier";
fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, 12, fontName, "courier";
fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, fontName, "courier";
fontset = name, inactive, noPageBreakInGroup, nohscroll, preserveAspect, M7, italic, B65535, 10, fontName, "times";
fontset = header, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 12, fontName, "times";
fontset = leftheader, 12, fontName, "times";
fontset = footer, inactive, nohscroll, noKeepOnOnePage, preserveAspect, center, M7, italic, 12, fontName, "times";
fontset = leftfooter, 12, fontName, "times";
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "courier";
fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";
fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, fontName, "times";paletteColors = 128; automaticGrouping; currentKernel;
]
:[font = title; inactive; preserveAspect; cellOutline; left; fontColorRed = 65535; fontColorGreen = 65535; fontColorBlue = 65535; backColorRed = 21845; backColorGreen = 21845; backColorBlue = 21845; startGroup]
This notebook discusses Fourier Sine series approximations of odd functions on a symmetric interval.
:[font = subsection; inactive; preserveAspect; plain; bold; italic; startGroup]
These first nine commands are basic to the rest of this notebook. They are automatically executed if you started this session by "initallizing the notebhook".
:[font = text; inactive; preserveAspect]
We begin by defining the periodic function g[x] and the interval [a,b] over which it is periodic.
;[s]
5:0,0;44,1;48,2;66,3;72,4;99,-1;
5:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; initialization; preserveAspect]
*)
g[x_]:= If[ x<0, -((x+1)^2)-1, ((x-1)^2)+1 ]
(*
:[font = text; inactive; preserveAspect]
This function is periodic with period 2 and completes one period in the interval [-1,1]. Thus, we set
;[s]
3:0,0;83,1;89,2;103,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; initialization; preserveAspect]
*)
a:=-1
(*
:[font = input; initialization; preserveAspect]
*)
b:=1
(*
:[font = text; inactive; preserveAspect]
For all of these orthogonal series examples, we will use the function p[n,x] to represent the orthogonal functions We are using Sine functions so we take
;[s]
3:0,0;70,1;76,2;154,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; initialization; preserveAspect]
*)
p[n_,x_]:= Sin[ ( (n+1)*Pi*x*2 )/(b-a) ]
(*
:[font = text; inactive; preserveAspect]
The next line defines a macro that can compute the sum of any number of terms in the Fourier Sin Series.
:[font = input; initialization; preserveAspect]
*)
s[n_,x_]:= Sum[ c[m]*p[m,x], {m,0,n} ]
(*
:[font = text; inactive; preserveAspect]
The standard formula in the Kreyszig text, Page ???, defines the coefficients of the series using the following formula.
;[s]
3:0,0;28,1;51,2;120,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Courier,0,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; initialization; preserveAspect]
*)
c[n_]:= NIntegrate[ p[n,x]*g[x]*h[x], {x,a,b}]/
NIntegrate[ p[n,x]*p[n,x]*h[x], {x,a,b}]
(*
:[font = text; inactive; preserveAspect]
Here, h(x) is the weight function. For the periodic trigonometric functions that we will be approximating in this notebook it truns out that we need
:[font = input; initialization; preserveAspect]
*)
h[x_]:=1
(*
:[font = text; inactive; preserveAspect]
Next, we define a way to make Mathematica plot all of the partial sum approximations
s[M, x], s[M+1, x] , s[M+2, x], ...., s[N, x]
on the same coordinate system.
;[s]
5:0,0;30,1;41,2;116,3;168,4;199,-1;
5:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Clean,0,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; initialization; preserveAspect]
*)
plt440[M_,N_]:=Plot[Release[Table[s[n,x],{n,M,N}]],{x,a,b}]
(*
:[font = text; inactive; preserveAspect]
The next command is quite simmilar to the previous one except that it allows us to specifiy the x range we want to plot the series approximation over. a and b define the end points of the period while a1 and b1 define the end points of the plot. Also, the AspectRatio->Automatic part of the command will make sure that the graph will be scaled correctly.
;[s]
13:0,0;96,1;97,2;152,3;153,4;158,5;159,6;202,7;204,8;209,9;211,10;257,11;281,12;357,-1;
13:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; initialization; preserveAspect]
*)
pl44[ M_, N_, a1_, b1_ ] :=
Plot[ Release[ Table[ s[n,x],{n,M,N} ] ],{x,a1,b1},
AspectRatio->Automatic ]
(*
:[font = text; inactive; preserveAspect; cellOutline; plain; bold; fontColorRed = 65535; fontColorGreen = 65535; fontColorBlue = 65535; backColorRed = 21845; backColorGreen = 21845; backColorBlue = 21845; fontName = "Itc Souvenir"; endGroup]
Note: When you opened this notebook Mathematica asked you if you wanted it initialized. If you clicked "yes" then all of the above definitions are in effect. You can find out if that is true by typeing ?h; Mathematica should tell you that h is defined as h[x_]:=1 ( of course, you can do that for any of the above definitions if you need to look at them. However, you will need to manually execute all of the other commands in this notebook. Also, note we have taken most of the graphs out of this notebook. We are including just a few for your viewing pleasure.
;[s]
6:0,0;36,1;47,2;205,3;206,4;217,5;563,-1;
6:1,0,0 ,Itc Souvenir,1,12,65535,65535,65535;1,0,0 ,Clean,1,14,65535,65535,65535;1,0,0 ,Itc Souvenir,1,12,65535,65535,65535;1,0,0 ,Clean,1,12,65535,65535,65535;1,0,0 ,Clean,1,14,65535,65535,65535;1,0,0 ,Itc Souvenir,1,12,65535,65535,65535;
:[font = section; inactive; preserveAspect; plain; bold; italic; fontName = "Times"; startGroup]
Graphing and Calculations for the above example.
:[font = text; inactive; preserveAspect]
First we will start by graphing g[x] over the interval. To make the machine draw the graph put the cursor on the following line and hit the SHIFT--ENTER key combination as one stroke.
;[s]
8:0,0;32,1;37,2;141,3;153,4;154,5;157,6;158,7;184,-1;
8:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,Clean,1,12,0,0,0;1,0,0 ,Fixed,0,12,0,0,0;1,0,0 ,Charter,0,12,0,0,0;1,0,0 ,Fixed,0,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; preserveAspect; startGroup]
aa=Plot[ g[x], {x,a,b} ]
:[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174]
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
%% Graphics
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.5 0.47619 0.308634 0.147343 [
[(-1)] .02381 .30863 0 2 Msboxa
[(-0.5)] .2619 .30863 0 2 Msboxa
[(0.5)] .7381 .30863 0 2 Msboxa
[(1)] .97619 .30863 0 2 Msboxa
[(-2)] .4875 .01395 1 0 Msboxa
[(-1)] .4875 .16129 1 0 Msboxa
[(1)] .4875 .45598 1 0 Msboxa
[(2)] .4875 .60332 1 0 Msboxa
[ -0.001 -0.001 0 0 ]
[ 1.001 .61903 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
[ ] 0 setdash
0 g
p
p
.002 w
.02381 .30863 m
.02381 .31488 L
s
P
[(-1)] .02381 .30863 0 2 Mshowa
p
.002 w
.2619 .30863 m
.2619 .31488 L
s
P
[(-0.5)] .2619 .30863 0 2 Mshowa
p
.002 w
.7381 .30863 m
.7381 .31488 L
s
P
[(0.5)] .7381 .30863 0 2 Mshowa
p
.002 w
.97619 .30863 m
.97619 .31488 L
s
P
[(1)] .97619 .30863 0 2 Mshowa
p
.001 w
.07143 .30863 m
.07143 .31238 L
s
P
p
.001 w
.11905 .30863 m
.11905 .31238 L
s
P
p
.001 w
.16667 .30863 m
.16667 .31238 L
s
P
p
.001 w
.21429 .30863 m
.21429 .31238 L
s
P
p
.001 w
.30952 .30863 m
.30952 .31238 L
s
P
p
.001 w
.35714 .30863 m
.35714 .31238 L
s
P
p
.001 w
.40476 .30863 m
.40476 .31238 L
s
P
p
.001 w
.45238 .30863 m
.45238 .31238 L
s
P
p
.001 w
.54762 .30863 m
.54762 .31238 L
s
P
p
.001 w
.59524 .30863 m
.59524 .31238 L
s
P
p
.001 w
.64286 .30863 m
.64286 .31238 L
s
P
p
.001 w
.69048 .30863 m
.69048 .31238 L
s
P
p
.001 w
.78571 .30863 m
.78571 .31238 L
s
P
p
.001 w
.83333 .30863 m
.83333 .31238 L
s
P
p
.001 w
.88095 .30863 m
.88095 .31238 L
s
P
p
.001 w
.92857 .30863 m
.92857 .31238 L
s
P
p
.002 w
0 .30863 m
1 .30863 L
s
P
p
.002 w
.5 .01395 m
.50625 .01395 L
s
P
[(-2)] .4875 .01395 1 0 Mshowa
p
.002 w
.5 .16129 m
.50625 .16129 L
s
P
[(-1)] .4875 .16129 1 0 Mshowa
p
.002 w
.5 .45598 m
.50625 .45598 L
s
P
[(1)] .4875 .45598 1 0 Mshowa
p
.002 w
.5 .60332 m
.50625 .60332 L
s
P
[(2)] .4875 .60332 1 0 Mshowa
p
.001 w
.5 .04342 m
.50375 .04342 L
s
P
p
.001 w
.5 .07289 m
.50375 .07289 L
s
P
p
.001 w
.5 .10235 m
.50375 .10235 L
s
P
p
.001 w
.5 .13182 m
.50375 .13182 L
s
P
p
.001 w
.5 .19076 m
.50375 .19076 L
s
P
p
.001 w
.5 .22023 m
.50375 .22023 L
s
P
p
.001 w
.5 .2497 m
.50375 .2497 L
s
P
p
.001 w
.5 .27917 m
.50375 .27917 L
s
P
p
.001 w
.5 .3381 m
.50375 .3381 L
s
P
p
.001 w
.5 .36757 m
.50375 .36757 L
s
P
p
.001 w
.5 .39704 m
.50375 .39704 L
s
P
p
.001 w
.5 .42651 m
.50375 .42651 L
s
P
p
.001 w
.5 .48544 m
.50375 .48544 L
s
P
p
.001 w
.5 .51491 m
.50375 .51491 L
s
P
p
.001 w
.5 .54438 m
.50375 .54438 L
s
P
p
.001 w
.5 .57385 m
.50375 .57385 L
s
P
p
.002 w
.5 0 m
.5 .61803 L
s
P
P
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
p
p
.004 w
.02381 .16129 m
.02505 .16129 L
.02629 .16129 L
.02753 .16128 L
.02877 .16128 L
.03125 .16126 L
.03373 .16123 L
.03621 .16119 L
.03869 .16115 L
.04365 .16104 L
.04861 .16089 L
.05357 .16072 L
.06349 .16027 L
.07341 .15969 L
.08333 .15899 L
.10317 .1572 L
.12302 .1549 L
.14286 .15208 L
.18254 .14492 L
.22222 .13571 L
.2619 .12446 L
.30159 .11115 L
.34127 .09581 L
.38095 .07841 L
.42063 .05897 L
.44048 .04848 L
.46032 .03748 L
.47024 .03179 L
.48016 .02597 L
.48512 .02301 L
.49008 .02002 L
.49256 .01852 L
.49504 .017 L
.49628 .01624 L
.49752 .01548 L
.49876 .01472 L
.5 .60332 L
.50248 .60179 L
.50496 .60027 L
.50992 .59724 L
.51984 .5913 L
.53968 .57979 L
.57937 .5583 L
.61905 .53886 L
.65873 .52146 L
.69841 .50611 L
.7381 .49281 L
.77778 .48156 L
.81746 .47235 L
.85714 .46519 L
Mistroke
.87698 .46237 L
.89683 .46007 L
.91667 .45828 L
.92659 .45758 L
.93651 .457 L
.94643 .45655 L
.95139 .45638 L
.95635 .45623 L
.96131 .45612 L
.96379 .45608 L
.96627 .45604 L
.96875 .45601 L
.96999 .456 L
.97123 .45599 L
.97247 .45599 L
.97371 .45598 L
.97495 .45598 L
.97619 .45598 L
Mfstroke
P
P
% End of Graphics
MathPictureEnd
:[font = output; output; inactive; preserveAspect; endGroup]
Graphics["<<>>"]
;[o]
-Graphics-
:[font = text; inactive; preserveAspect]
Now we will graph it again to use it as a back drop for the approximations and also as an illustration of how to modify existing plots.
:[font = input; preserveAspect]
ab=Plot[ g[x], {x,a,b}, PlotStyle->GrayLevel[.5] ]
:[font = text; inactive; preserveAspect]
Now we will look at the first 10 coefficents of the series (again, posotion the cursor and hit the SHIFT--ENTER combination). After a bit you will see a string of 10 decimal numbers.
;[s]
4:0,0;99,1;111,2;125,3;182,-1;
4:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Clean,1,12,0,0,0;1,0,0 ,Courier,0,12,0,0,0;1,0,0 ,Charter,0,12,0,0,0;
:[font = input; preserveAspect]
Table[ c[m], {m,0,9} ]
:[font = text; inactive; preserveAspect]
The next command generates the 10-th partial sum of the Fourier Sin Series using these coeffecients.
;[s]
2:0,0;101,1;102,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Courier,0,12,0,0,0;
:[font = input; preserveAspect]
s[9,x]
:[font = text; inactive; preserveAspect]
Now, let's take a look at the first approximation to the function.
:[font = input; preserveAspect]
bb=pl44[0,0,-2,2]
:[font = text; inactive; preserveAspect]
Compare that to g(x).
;[s]
2:0,0;16,1;21,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Show[ab,bb]
:[font = text; inactive; preserveAspect]
Not very close, is it? Well, this is the first term in an infinate series. Let's see if we can get
a better approximation.
:[font = text; inactive; preserveAspect]
The next command will generate and plot the 4rd, 5th, and 6th partial sum approximations. This time the plot will be given on the interval [-2,2].
;[s]
3:0,0;90,1;141,2;148,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Charter,0,12,0,0,0;1,0,0 ,Charter,1,12,0,0,0;
:[font = input; preserveAspect]
bc=pl44[ 3, 5 , -2, 2 ]
:[font = text; inactive; preserveAspect]
Now compare it to g[x].
;[s]
2:0,0;18,1;23,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Show[ab,bc]
:[font = text; inactive; preserveAspect]
This approximation is begining to look good. To make it even better we will plot 15 terms in the series. This may take your machine a while to do.
;[s]
4:0,0;104,1;105,2;145,3;146,-1;
4:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,3,12,0,0,0;1,0,0 ,times,2,12,0,0,0;
:[font = input; preserveAspect]
bd=pl44[ 14, 14, -2, 2]
:[font = text; inactive; preserveAspect]
Let's take a look.
:[font = input; preserveAspect]
Show[ab,bd]
:[font = text; inactive; preserveAspect]
This approximation is now getting quite close isn't it?
;[s]
3:0,0;26,1;48,2;55,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Charter,0,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = text; inactive; preserveAspect]
Now we will take a very large number of terms. Warning: if you try this on your machine it may die on you.
;[s]
2:0,0;47,1;106,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,3,12,0,0,0;
:[font = input; preserveAspect; startGroup]
be=pl44[ 30, 30, -2, 2 ]
:[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 249; pictureHeight = 287]
%!
%%Creator: Mathematica
%%AspectRatio: 1.14829
MathPictureStart
%% Graphics
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.5 0.238095 0.574144 0.238095 [
[(-2)] .02381 .57414 0 2 Msboxa
[(-1)] .2619 .57414 0 2 Msboxa
[(1)] .7381 .57414 0 2 Msboxa
[(2)] .97619 .57414 0 2 Msboxa
[(-2)] .4875 .09795 1 0 Msboxa
[(-1)] .4875 .33605 1 0 Msboxa
[(1)] .4875 .81224 1 0 Msboxa
[(2)] .4875 1.05033 1 0 Msboxa
[ -0.001 -0.001 0 0 ]
[ 1.001 1.14929 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
[ ] 0 setdash
0 g
p
p
.002 w
.02381 .57414 m
.02381 .58039 L
s
P
[(-2)] .02381 .57414 0 2 Mshowa
p
.002 w
.2619 .57414 m
.2619 .58039 L
s
P
[(-1)] .2619 .57414 0 2 Mshowa
p
.002 w
.7381 .57414 m
.7381 .58039 L
s
P
[(1)] .7381 .57414 0 2 Mshowa
p
.002 w
.97619 .57414 m
.97619 .58039 L
s
P
[(2)] .97619 .57414 0 2 Mshowa
p
.001 w
.07143 .57414 m
.07143 .57789 L
s
P
p
.001 w
.11905 .57414 m
.11905 .57789 L
s
P
p
.001 w
.16667 .57414 m
.16667 .57789 L
s
P
p
.001 w
.21429 .57414 m
.21429 .57789 L
s
P
p
.001 w
.30952 .57414 m
.30952 .57789 L
s
P
p
.001 w
.35714 .57414 m
.35714 .57789 L
s
P
p
.001 w
.40476 .57414 m
.40476 .57789 L
s
P
p
.001 w
.45238 .57414 m
.45238 .57789 L
s
P
p
.001 w
.54762 .57414 m
.54762 .57789 L
s
P
p
.001 w
.59524 .57414 m
.59524 .57789 L
s
P
p
.001 w
.64286 .57414 m
.64286 .57789 L
s
P
p
.001 w
.69048 .57414 m
.69048 .57789 L
s
P
p
.001 w
.78571 .57414 m
.78571 .57789 L
s
P
p
.001 w
.83333 .57414 m
.83333 .57789 L
s
P
p
.001 w
.88095 .57414 m
.88095 .57789 L
s
P
p
.001 w
.92857 .57414 m
.92857 .57789 L
s
P
p
.002 w
0 .57414 m
1 .57414 L
s
P
p
.002 w
.5 .09795 m
.50625 .09795 L
s
P
[(-2)] .4875 .09795 1 0 Mshowa
p
.002 w
.5 .33605 m
.50625 .33605 L
s
P
[(-1)] .4875 .33605 1 0 Mshowa
p
.002 w
.5 .81224 m
.50625 .81224 L
s
P
[(1)] .4875 .81224 1 0 Mshowa
p
.002 w
.5 1.05033 m
.50625 1.05033 L
s
P
[(2)] .4875 1.05033 1 0 Mshowa
p
.001 w
.5 .14557 m
.50375 .14557 L
s
P
p
.001 w
.5 .19319 m
.50375 .19319 L
s
P
p
.001 w
.5 .24081 m
.50375 .24081 L
s
P
p
.001 w
.5 .28843 m
.50375 .28843 L
s
P
p
.001 w
.5 .38367 m
.50375 .38367 L
s
P
p
.001 w
.5 .43129 m
.50375 .43129 L
s
P
p
.001 w
.5 .47891 m
.50375 .47891 L
s
P
p
.001 w
.5 .52652 m
.50375 .52652 L
s
P
p
.001 w
.5 .62176 m
.50375 .62176 L
s
P
p
.001 w
.5 .66938 m
.50375 .66938 L
s
P
p
.001 w
.5 .717 m
.50375 .717 L
s
P
p
.001 w
.5 .76462 m
.50375 .76462 L
s
P
p
.001 w
.5 .85986 m
.50375 .85986 L
s
P
p
.001 w
.5 .90748 m
.50375 .90748 L
s
P
p
.001 w
.5 .9551 m
.50375 .9551 L
s
P
p
.001 w
.5 1.00272 m
.50375 1.00272 L
s
P
p
.001 w
.5 .05033 m
.50375 .05033 L
s
P
p
.001 w
.5 .00272 m
.50375 .00272 L
s
P
p
.001 w
.5 1.09795 m
.50375 1.09795 L
s
P
p
.001 w
.5 1.14557 m
.50375 1.14557 L
s
P
p
.002 w
.5 0 m
.5 1.14829 L
s
P
P
0 0 m
1 0 L
1 1.14829 L
0 1.14829 L
closepath
clip
newpath
p
p
p
.004 w
.02381 .57414 m
.02505 .72683 L
.02629 .86592 L
.02753 .97996 L
.02877 1.06141 L
.03001 1.10761 L
.03125 1.12095 L
.03249 1.10807 L
.03373 1.07841 L
.04365 1.02448 L
.04489 1.036 L
.04613 1.03942 L
.04737 1.03419 L
.04861 1.02193 L
.04985 1.00585 L
.05109 .98979 L
.05233 .97724 L
.05357 .97053 L
.05481 .97035 L
.05605 .9757 L
.05729 .98425 L
.05853 .99307 L
.05977 .99934 L
.06101 1.00109 L
.06225 .99763 L
.06349 .98963 L
.10317 .92057 L
.10441 .92327 L
.10565 .92408 L
.10689 .92241 L
.10813 .91832 L
.11062 .90616 L
.11186 .9005 L
.1131 .89659 L
.11434 .89501 L
.11558 .89573 L
.11806 .9011 L
.1193 .90351 L
.12054 .90431 L
.12302 .89942 L
.13294 .88369 L
.13418 .88595 L
.13542 .8868 L
.13666 .88569 L
.1379 .88259 L
.14038 .8728 L
.14162 .86805 L
.14286 .86467 L
.1441 .8632 L
.14534 .86369 L
Mistroke
.14782 .86828 L
.14906 .87051 L
.1503 .87145 L
.15278 .86777 L
.1627 .85487 L
.16394 .85716 L
.16518 .85823 L
.16642 .85752 L
.16766 .85494 L
.17014 .84631 L
.17138 .84204 L
.17262 .83902 L
.17386 .83781 L
.1751 .83849 L
.17758 .84345 L
.17882 .84592 L
.18006 .84715 L
.18254 .84412 L
.18502 .83563 L
.18626 .83144 L
.1875 .82854 L
.18874 .82752 L
.18998 .82847 L
.19122 .83094 L
.19246 .83409 L
.1937 .83686 L
.19494 .83831 L
.19618 .83782 L
.19742 .83532 L
.19866 .83127 L
.1999 .82656 L
.20114 .82229 L
.20238 .81946 L
.20362 .8187 L
.20486 .82009 L
.2061 .82315 L
.20734 .8269 L
.20858 .83018 L
.20982 .83192 L
.21106 .83144 L
.2123 .82866 L
.21354 .82414 L
.21478 .81892 L
.21602 .81429 L
.21726 .81141 L
.2185 .81102 L
.21974 .81321 L
.22098 .81734 L
.22222 .82222 L
.2619 .57414 L
Mistroke
.26438 .42266 L
.26563 .36387 L
.26687 .32232 L
.26811 .2992 L
.26935 .29301 L
.27059 .29997 L
.27183 .3149 L
.27307 .33226 L
.27431 .34724 L
.27555 .3565 L
.27679 .35864 L
.27803 .35418 L
.27927 .34515 L
.28051 .33443 L
.28175 .32495 L
.28299 .31897 L
.28423 .31761 L
.28547 .32072 L
.28671 .32699 L
.28795 .33443 L
.28919 .34093 L
.29043 .34476 L
.29167 .34503 L
.29415 .3362 L
.29539 .32964 L
.29663 .32389 L
.29787 .32032 L
.29911 .31967 L
.30159 .32606 L
.30283 .33095 L
.30407 .33508 L
.30531 .33726 L
.30655 .33688 L
.30779 .334 L
.30903 .32936 L
.31027 .32415 L
.31151 .31962 L
.31275 .31685 L
.31399 .31637 L
.31523 .31811 L
.31647 .32139 L
.31771 .32514 L
.31895 .32819 L
.32019 .32959 L
.32143 .32883 L
.32267 .32599 L
.32391 .32172 L
.32515 .31702 L
.32639 .31296 L
.32763 .31047 L
Mistroke
.32887 .30998 L
.33011 .31143 L
.33135 .3142 L
.33259 .31734 L
.33383 .31982 L
.33507 .32076 L
.33631 .31975 L
.33755 .31685 L
.33879 .31266 L
.34003 .3081 L
.34127 .30417 L
.34251 .30171 L
.34375 .30113 L
.34499 .30237 L
.34623 .30484 L
.34747 .30764 L
.34871 .30979 L
.34995 .31048 L
.35119 .30927 L
.35243 .30625 L
.35367 .30198 L
.35491 .29735 L
.35615 .29334 L
.35739 .29077 L
.35863 .29006 L
.35987 .29112 L
.36111 .29342 L
.36235 .29606 L
.36359 .29806 L
.36483 .2986 L
.36607 .29724 L
.36731 .29406 L
.36855 .2896 L
.36979 .28475 L
.37103 .28052 L
.37227 .27773 L
.37351 .27683 L
.37475 .27778 L
.37599 .28001 L
.37723 .28262 L
.37847 .2846 L
.37971 .28509 L
.38095 .28362 L
.38343 .27549 L
.38467 .27029 L
.38591 .2657 L
.38715 .2626 L
.38839 .26149 L
.38963 .26234 L
.39087 .2646 L
Mistroke
.39211 .26732 L
.39335 .26942 L
.39459 .26996 L
.39583 .26842 L
.39831 .25965 L
.39955 .25397 L
.40079 .24887 L
.40203 .24534 L
.40327 .24398 L
.40575 .24718 L
.40699 .25017 L
.40823 .25255 L
.40947 .25328 L
.41071 .2517 L
.41319 .24212 L
.41443 .23576 L
.41567 .22997 L
.41691 .22588 L
.41815 .2242 L
.42063 .22772 L
.42188 .23119 L
.42312 .23409 L
.42436 .23516 L
.4256 .23362 L
.42808 .22297 L
.42932 .21565 L
.43056 .20888 L
.4318 .20401 L
.43304 .20194 L
.43552 .2061 L
.43676 .21041 L
.438 .21419 L
.43924 .21589 L
.44048 .2145 L
.44296 .20233 L
.4442 .19359 L
.44544 .18534 L
.44668 .1793 L
.44792 .1767 L
.44916 .17785 L
.4504 .18211 L
.46032 .15866 L
.46156 .15065 L
.4628 .14719 L
.46404 .14895 L
.46528 .15522 L
.46652 .16404 L
.46776 .17259 L
.469 .17793 L
.47024 .17775 L
Mistroke
.47148 .17105 L
.47272 .1585 L
.47396 .14244 L
.4752 .12635 L
.47644 .1141 L
.47768 .10887 L
.47892 .11229 L
.48016 .12381 L
.5 .57414 L
.50124 .72683 L
.50248 .86592 L
.50372 .97996 L
.50496 1.06141 L
.5062 1.10761 L
.50744 1.12095 L
.50992 1.07841 L
.51116 1.04228 L
.5124 1.00904 L
.51364 .98552 L
.51488 .97515 L
.51612 .97779 L
.51736 .9903 L
.5186 1.00769 L
.51984 1.02448 L
.52108 1.036 L
.52232 1.03942 L
.52356 1.03419 L
.5248 1.02193 L
.52604 1.00585 L
.52728 .98979 L
.52852 .97724 L
.52976 .97053 L
.531 .97035 L
.53224 .9757 L
.53472 .99307 L
.53596 .99934 L
.5372 1.00109 L
.53844 .99763 L
.53968 .98963 L
.54216 .96775 L
.5434 .95861 L
.54464 .95318 L
.5496 .96618 L
.55084 .97043 L
.55208 .97159 L
.55332 .96898 L
.55456 .96295 L
.55704 .94596 L
.55828 .93853 L
.55952 .93379 L
Mistroke
.56076 .93239 L
.562 .9341 L
.56448 .94219 L
.56572 .94544 L
.56696 .94635 L
.5682 .94428 L
.56944 .93941 L
.57192 .92532 L
.57316 .91894 L
.5744 .91467 L
.57564 .91313 L
.57688 .9142 L
.57813 .9171 L
.57937 .92057 L
.58061 .92327 L
.58185 .92408 L
.58309 .92241 L
.58433 .91832 L
.58681 .90616 L
.58805 .9005 L
.58929 .89659 L
.59053 .89501 L
.59177 .89573 L
.59301 .89812 L
.59425 .9011 L
.59549 .90351 L
.59673 .90431 L
.59797 .90294 L
.59921 .89942 L
.60913 .88369 L
.61037 .88595 L
.61161 .8868 L
.61285 .88569 L
.61409 .88259 L
.61657 .8728 L
.61781 .86805 L
.61905 .86467 L
.62029 .8632 L
.62153 .86369 L
.62277 .86567 L
.62401 .86828 L
.62525 .87051 L
.62649 .87145 L
.62773 .87056 L
.62897 .86777 L
.63021 .86354 L
.63145 .85869 L
.63269 .85423 L
.63393 .85105 L
.63517 .84969 L
Mistroke
.63641 .85023 L
.63765 .85223 L
.63889 .85487 L
.65873 .84412 L
.66121 .83563 L
.66245 .83144 L
.66369 .82854 L
.66493 .82752 L
.66617 .82847 L
.66865 .83409 L
.66989 .83686 L
.67113 .83831 L
.67237 .83782 L
.67361 .83532 L
.67609 .82656 L
.67733 .82229 L
.67857 .81946 L
.67981 .8187 L
.68105 .82009 L
.68353 .8269 L
.68477 .83018 L
.68601 .83192 L
.68725 .83144 L
.68849 .82866 L
.69097 .81892 L
.69221 .81429 L
.69345 .81141 L
.69469 .81102 L
.69593 .81321 L
.69841 .82222 L
.69965 .82643 L
.70089 .82862 L
.70213 .82797 L
.70337 .8244 L
.70585 .81209 L
.70709 .80644 L
.70833 .80326 L
.70957 .80353 L
.71081 .80736 L
.71205 .81385 L
.71329 .8213 L
.71453 .82757 L
.71577 .83067 L
.71701 .82932 L
.71825 .82334 L
.7381 .57414 L
.73934 .49477 L
.74058 .42266 L
.74182 .36387 L
.74306 .32232 L
Mistroke
.7443 .2992 L
.74554 .29301 L
.74678 .29997 L
.74802 .3149 L
.74926 .33226 L
.7505 .34724 L
.75174 .3565 L
.75298 .35864 L
.75422 .35418 L
.75546 .34515 L
.7567 .33443 L
.75794 .32495 L
.75918 .31897 L
.76042 .31761 L
.76166 .32072 L
.7629 .32699 L
.76414 .33443 L
.76538 .34093 L
.76662 .34476 L
.76786 .34503 L
.7691 .34185 L
.77034 .3362 L
.77158 .32964 L
.77282 .32389 L
.77406 .32032 L
.7753 .31967 L
.77654 .32186 L
.77778 .32606 L
.81746 .30417 L
.8373 .29342 L
.83854 .29606 L
.83978 .29806 L
.84102 .2986 L
.84226 .29724 L
.84474 .2896 L
.84598 .28475 L
.84722 .28052 L
.84846 .27773 L
.8497 .27683 L
.85094 .27778 L
.85218 .28001 L
.85342 .28262 L
.85466 .2846 L
.8559 .28509 L
.85714 .28362 L
.86706 .2646 L
.8683 .26732 L
.86954 .26942 L
.87078 .26996 L
.87202 .26842 L
Mistroke
.8745 .25965 L
.87574 .25397 L
.87698 .24887 L
.87822 .24534 L
.87946 .24398 L
.88194 .24718 L
.88318 .25017 L
.88442 .25255 L
.88566 .25328 L
.8869 .2517 L
.88938 .24212 L
.89063 .23576 L
.89187 .22997 L
.89311 .22588 L
.89435 .2242 L
.89683 .22772 L
.89807 .23119 L
.89931 .23409 L
.90055 .23516 L
.90179 .23362 L
.90427 .22297 L
.90551 .21565 L
.90675 .20888 L
.90799 .20401 L
.90923 .20194 L
.91171 .2061 L
.91295 .21041 L
.91419 .21419 L
.91543 .21589 L
.91667 .2145 L
.91915 .20233 L
.92039 .19359 L
.92163 .18534 L
.92287 .1793 L
.92411 .1767 L
.92659 .18211 L
.92783 .18793 L
.92907 .19328 L
.93031 .19616 L
.93155 .19511 L
.93279 .18968 L
.93403 .18054 L
.93527 .16942 L
.93651 .15866 L
.93775 .15065 L
.93899 .14719 L
.94023 .14895 L
.94147 .15522 L
.94271 .16404 L
.94395 .17259 L
Mistroke
.94519 .17793 L
.94643 .17775 L
.94767 .17105 L
.94891 .1585 L
.95015 .14244 L
.95139 .12635 L
.95263 .1141 L
.95387 .10887 L
.95511 .11229 L
.95635 .12381 L
.95883 .15799 L
.96007 .1705 L
.96131 .17313 L
.96255 .16276 L
.96379 .13925 L
.96503 .10601 L
.96627 .06988 L
.96751 .04021 L
.96875 .02734 L
.96999 .04068 L
.97123 .08688 L
.97247 .16833 L
.97371 .28237 L
.97619 .57414 L
Mfstroke
P
P
P
% End of Graphics
MathPictureEnd
:[font = output; output; inactive; preserveAspect; endGroup]
Graphics["<<>>"]
;[o]
-Graphics-
:[font = text; inactive; preserveAspect]
Now compare to g[x].
;[s]
2:0,0;15,1;20,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect; startGroup]
Show[ab,be]
:[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 174]
%!
%%Creator: Mathematica
%%AspectRatio: .61803
MathPictureStart
%% Graphics
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.5 0.238095 0.309017 0.128148 [
[(-2)] .02381 .30902 0 2 Msboxa
[(-1)] .2619 .30902 0 2 Msboxa
[(1)] .7381 .30902 0 2 Msboxa
[(2)] .97619 .30902 0 2 Msboxa
[(-2)] .4875 .05272 1 0 Msboxa
[(-1)] .4875 .18087 1 0 Msboxa
[(1)] .4875 .43717 1 0 Msboxa
[(2)] .4875 .56531 1 0 Msboxa
[ -0.001 -0.001 0 0 ]
[ 1.001 .61903 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
[ ] 0 setdash
0 g
p
p
.002 w
.02381 .30902 m
.02381 .31527 L
s
P
[(-2)] .02381 .30902 0 2 Mshowa
p
.002 w
.2619 .30902 m
.2619 .31527 L
s
P
[(-1)] .2619 .30902 0 2 Mshowa
p
.002 w
.7381 .30902 m
.7381 .31527 L
s
P
[(1)] .7381 .30902 0 2 Mshowa
p
.002 w
.97619 .30902 m
.97619 .31527 L
s
P
[(2)] .97619 .30902 0 2 Mshowa
p
.001 w
.07143 .30902 m
.07143 .31277 L
s
P
p
.001 w
.11905 .30902 m
.11905 .31277 L
s
P
p
.001 w
.16667 .30902 m
.16667 .31277 L
s
P
p
.001 w
.21429 .30902 m
.21429 .31277 L
s
P
p
.001 w
.30952 .30902 m
.30952 .31277 L
s
P
p
.001 w
.35714 .30902 m
.35714 .31277 L
s
P
p
.001 w
.40476 .30902 m
.40476 .31277 L
s
P
p
.001 w
.45238 .30902 m
.45238 .31277 L
s
P
p
.001 w
.54762 .30902 m
.54762 .31277 L
s
P
p
.001 w
.59524 .30902 m
.59524 .31277 L
s
P
p
.001 w
.64286 .30902 m
.64286 .31277 L
s
P
p
.001 w
.69048 .30902 m
.69048 .31277 L
s
P
p
.001 w
.78571 .30902 m
.78571 .31277 L
s
P
p
.001 w
.83333 .30902 m
.83333 .31277 L
s
P
p
.001 w
.88095 .30902 m
.88095 .31277 L
s
P
p
.001 w
.92857 .30902 m
.92857 .31277 L
s
P
p
.002 w
0 .30902 m
1 .30902 L
s
P
p
.002 w
.5 .05272 m
.50625 .05272 L
s
P
[(-2)] .4875 .05272 1 0 Mshowa
p
.002 w
.5 .18087 m
.50625 .18087 L
s
P
[(-1)] .4875 .18087 1 0 Mshowa
p
.002 w
.5 .43717 m
.50625 .43717 L
s
P
[(1)] .4875 .43717 1 0 Mshowa
p
.002 w
.5 .56531 m
.50625 .56531 L
s
P
[(2)] .4875 .56531 1 0 Mshowa
p
.001 w
.5 .07835 m
.50375 .07835 L
s
P
p
.001 w
.5 .10398 m
.50375 .10398 L
s
P
p
.001 w
.5 .12961 m
.50375 .12961 L
s
P
p
.001 w
.5 .15524 m
.50375 .15524 L
s
P
p
.001 w
.5 .2065 m
.50375 .2065 L
s
P
p
.001 w
.5 .23213 m
.50375 .23213 L
s
P
p
.001 w
.5 .25776 m
.50375 .25776 L
s
P
p
.001 w
.5 .28339 m
.50375 .28339 L
s
P
p
.001 w
.5 .33465 m
.50375 .33465 L
s
P
p
.001 w
.5 .36028 m
.50375 .36028 L
s
P
p
.001 w
.5 .38591 m
.50375 .38591 L
s
P
p
.001 w
.5 .41154 m
.50375 .41154 L
s
P
p
.001 w
.5 .46279 m
.50375 .46279 L
s
P
p
.001 w
.5 .48842 m
.50375 .48842 L
s
P
p
.001 w
.5 .51405 m
.50375 .51405 L
s
P
p
.001 w
.5 .53968 m
.50375 .53968 L
s
P
p
.001 w
.5 .02709 m
.50375 .02709 L
s
P
p
.001 w
.5 .00146 m
.50375 .00146 L
s
P
p
.001 w
.5 .59094 m
.50375 .59094 L
s
P
p
.001 w
.5 .61657 m
.50375 .61657 L
s
P
p
.002 w
.5 0 m
.5 .61803 L
s
P
P
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
p
p
.5 g
p
.004 w
.2619 .18087 m
.26252 .18087 L
.26314 .18087 L
.26376 .18086 L
.26438 .18085 L
.26563 .18084 L
.26687 .18081 L
.26811 .18078 L
.26935 .18074 L
.27183 .18065 L
.27431 .18052 L
.27679 .18037 L
.28175 .17998 L
.28671 .17948 L
.29167 .17887 L
.30159 .17731 L
.31151 .17531 L
.32143 .17286 L
.34127 .16663 L
.36111 .15862 L
.38095 .14883 L
.40079 .13726 L
.42063 .12391 L
.44048 .10879 L
.46032 .09188 L
.47024 .08276 L
.48016 .07319 L
.48512 .06824 L
.49008 .06318 L
.49256 .0606 L
.49504 .058 L
.49628 .05669 L
.49752 .05538 L
.49814 .05472 L
.49876 .05405 L
.49938 .05339 L
.5 .56531 L
.50124 .56398 L
.50248 .56266 L
.50496 .56003 L
.50992 .55486 L
.51984 .54485 L
.53968 .52616 L
.55952 .50925 L
.57937 .49412 L
.59921 .48077 L
.61905 .4692 L
.63889 .45941 L
.65873 .4514 L
.67857 .44517 L
Mistroke
.68849 .44273 L
.69841 .44072 L
.70833 .43917 L
.71329 .43856 L
.71825 .43806 L
.72321 .43767 L
.72569 .43751 L
.72817 .43739 L
.73065 .43729 L
.73189 .43725 L
.73313 .43722 L
.73438 .4372 L
.735 .43719 L
.73562 .43718 L
.73624 .43717 L
.73686 .43717 L
.73748 .43717 L
.7381 .43717 L
Mfstroke
P
P
p
p
p
.004 w
.02381 .30902 m
.02505 .3912 L
.02629 .46606 L
.02753 .52744 L
.02877 .57127 L
.03001 .59614 L
.03125 .60332 L
.03249 .59639 L
.03373 .58042 L
.04365 .5514 L
.04489 .5576 L
.04613 .55944 L
.04737 .55662 L
.04861 .55003 L
.04985 .54137 L
.05109 .53273 L
.05233 .52597 L
.05357 .52236 L
.05481 .52227 L
.05605 .52514 L
.05729 .52974 L
.05853 .53449 L
.05977 .53787 L
.06101 .53881 L
.06225 .53695 L
.06349 .53264 L
.10317 .49547 L
.10441 .49693 L
.10565 .49736 L
.10689 .49646 L
.10813 .49426 L
.11062 .48772 L
.11186 .48467 L
.1131 .48256 L
.11434 .48172 L
.11558 .4821 L
.11806 .48499 L
.1193 .48629 L
.12054 .48672 L
.12302 .48409 L
.13294 .47562 L
.13418 .47684 L
.13542 .4773 L
.13666 .4767 L
.1379 .47503 L
.14038 .46976 L
.14162 .4672 L
.14286 .46538 L
.1441 .46459 L
.14534 .46486 L
Mistroke
.14782 .46733 L
.14906 .46853 L
.1503 .46904 L
.15278 .46705 L
.1627 .46011 L
.16394 .46134 L
.16518 .46192 L
.16642 .46154 L
.16766 .46015 L
.17014 .4555 L
.17138 .4532 L
.17262 .45158 L
.17386 .45093 L
.1751 .4513 L
.17758 .45396 L
.17882 .45529 L
.18006 .45596 L
.18254 .45432 L
.18502 .44975 L
.18626 .4475 L
.1875 .44594 L
.18874 .44539 L
.18998 .4459 L
.19122 .44723 L
.19246 .44892 L
.1937 .45042 L
.19494 .45119 L
.19618 .45093 L
.19742 .44959 L
.19866 .44741 L
.1999 .44487 L
.20114 .44258 L
.20238 .44105 L
.20362 .44064 L
.20486 .44139 L
.2061 .44304 L
.20734 .44506 L
.20858 .44682 L
.20982 .44776 L
.21106 .4475 L
.2123 .44601 L
.21354 .44357 L
.21478 .44076 L
.21602 .43827 L
.21726 .43672 L
.2185 .43651 L
.21974 .43769 L
.22098 .43991 L
.22222 .44254 L
.2619 .30902 L
Mistroke
.26438 .22749 L
.26563 .19584 L
.26687 .17348 L
.26811 .16104 L
.26935 .15771 L
.27059 .16145 L
.27183 .16948 L
.27307 .17883 L
.27431 .18689 L
.27555 .19188 L
.27679 .19303 L
.27803 .19063 L
.27927 .18577 L
.28051 .18 L
.28175 .1749 L
.28299 .17168 L
.28423 .17095 L
.28547 .17262 L
.28671 .17599 L
.28795 .18 L
.28919 .18349 L
.29043 .18556 L
.29167 .1857 L
.29415 .18095 L
.29539 .17742 L
.29663 .17432 L
.29787 .1724 L
.29911 .17205 L
.30159 .17549 L
.30283 .17813 L
.30407 .18035 L
.30531 .18152 L
.30655 .18131 L
.30779 .17977 L
.30903 .17727 L
.31027 .17446 L
.31151 .17203 L
.31275 .17054 L
.31399 .17028 L
.31523 .17121 L
.31647 .17298 L
.31771 .175 L
.31895 .17664 L
.32019 .17739 L
.32143 .17698 L
.32267 .17546 L
.32391 .17316 L
.32515 .17063 L
.32639 .16844 L
.32763 .1671 L
Mistroke
.32887 .16684 L
.33011 .16762 L
.33135 .16911 L
.33259 .1708 L
.33383 .17213 L
.33507 .17264 L
.33631 .1721 L
.33755 .17054 L
.33879 .16828 L
.34003 .16583 L
.34127 .16371 L
.34251 .16239 L
.34375 .16208 L
.34499 .16274 L
.34623 .16407 L
.34747 .16558 L
.34871 .16674 L
.34995 .1671 L
.35119 .16645 L
.35243 .16483 L
.35367 .16253 L
.35491 .16004 L
.35615 .15788 L
.35739 .1565 L
.35863 .15611 L
.35987 .15669 L
.36111 .15793 L
.36235 .15935 L
.36359 .16042 L
.36483 .16071 L
.36607 .15998 L
.36731 .15827 L
.36855 .15587 L
.36979 .15326 L
.37103 .15098 L
.37227 .14948 L
.37351 .149 L
.37475 .14951 L
.37599 .15071 L
.37723 .15211 L
.37847 .15318 L
.37971 .15344 L
.38095 .15265 L
.38343 .14827 L
.38467 .14548 L
.38591 .14301 L
.38715 .14134 L
.38839 .14074 L
.38963 .1412 L
.39087 .14241 L
Mistroke
.39211 .14388 L
.39335 .14501 L
.39459 .1453 L
.39583 .14447 L
.39831 .13975 L
.39955 .13669 L
.40079 .13395 L
.40203 .13205 L
.40327 .13131 L
.40575 .13304 L
.40699 .13465 L
.40823 .13593 L
.40947 .13632 L
.41071 .13547 L
.41319 .13032 L
.41443 .12689 L
.41567 .12377 L
.41691 .12157 L
.41815 .12067 L
.42063 .12256 L
.42188 .12443 L
.42312 .12599 L
.42436 .12657 L
.4256 .12574 L
.42808 .12001 L
.42932 .11607 L
.43056 .11242 L
.4318 .1098 L
.43304 .10869 L
.43552 .11092 L
.43676 .11325 L
.438 .11528 L
.43924 .1162 L
.44048 .11545 L
.44296 .1089 L
.4442 .10419 L
.44544 .09975 L
.44668 .09651 L
.44792 .0951 L
.44916 .09573 L
.4504 .09801 L
.46032 .08539 L
.46156 .08108 L
.4628 .07922 L
.46404 .08017 L
.46528 .08354 L
.46652 .08829 L
.46776 .09289 L
.469 .09577 L
.47024 .09567 L
Mistroke
.47148 .09206 L
.47272 .08531 L
.47396 .07666 L
.4752 .06801 L
.47644 .06141 L
.47768 .0586 L
.47892 .06044 L
.48016 .06664 L
.5 .30902 L
.50124 .3912 L
.50248 .46606 L
.50372 .52744 L
.50496 .57127 L
.5062 .59614 L
.50744 .60332 L
.50992 .58042 L
.51116 .56098 L
.5124 .54309 L
.51364 .53043 L
.51488 .52485 L
.51612 .52627 L
.51736 .533 L
.5186 .54236 L
.51984 .5514 L
.52108 .5576 L
.52232 .55944 L
.52356 .55662 L
.5248 .55003 L
.52604 .54137 L
.52728 .53273 L
.52852 .52597 L
.52976 .52236 L
.531 .52227 L
.53224 .52514 L
.53472 .53449 L
.53596 .53787 L
.5372 .53881 L
.53844 .53695 L
.53968 .53264 L
.54216 .52086 L
.5434 .51594 L
.54464 .51302 L
.5496 .52002 L
.55084 .52231 L
.55208 .52293 L
.55332 .52153 L
.55456 .51828 L
.55704 .50914 L
.55828 .50514 L
.55952 .50259 L
Mistroke
.56076 .50184 L
.562 .50275 L
.56448 .50711 L
.56572 .50886 L
.56696 .50934 L
.5682 .50823 L
.56944 .50561 L
.57192 .49803 L
.57316 .49459 L
.5744 .4923 L
.57564 .49147 L
.57688 .49204 L
.57813 .4936 L
.57937 .49547 L
.58061 .49693 L
.58185 .49736 L
.58309 .49646 L
.58433 .49426 L
.58681 .48772 L
.58805 .48467 L
.58929 .48256 L
.59053 .48172 L
.59177 .4821 L
.59301 .48339 L
.59425 .48499 L
.59549 .48629 L
.59673 .48672 L
.59797 .48598 L
.59921 .48409 L
.60913 .47562 L
.61037 .47684 L
.61161 .4773 L
.61285 .4767 L
.61409 .47503 L
.61657 .46976 L
.61781 .4672 L
.61905 .46538 L
.62029 .46459 L
.62153 .46486 L
.62277 .46592 L
.62401 .46733 L
.62525 .46853 L
.62649 .46904 L
.62773 .46855 L
.62897 .46705 L
.63021 .46477 L
.63145 .46217 L
.63269 .45977 L
.63393 .45805 L
.63517 .45732 L
Mistroke
.63641 .45761 L
.63765 .45869 L
.63889 .46011 L
.65873 .45432 L
.66121 .44975 L
.66245 .4475 L
.66369 .44594 L
.66493 .44539 L
.66617 .4459 L
.66865 .44892 L
.66989 .45042 L
.67113 .45119 L
.67237 .45093 L
.67361 .44959 L
.67609 .44487 L
.67733 .44258 L
.67857 .44105 L
.67981 .44064 L
.68105 .44139 L
.68353 .44506 L
.68477 .44682 L
.68601 .44776 L
.68725 .4475 L
.68849 .44601 L
.69097 .44076 L
.69221 .43827 L
.69345 .43672 L
.69469 .43651 L
.69593 .43769 L
.69841 .44254 L
.69965 .4448 L
.70089 .44598 L
.70213 .44563 L
.70337 .44371 L
.70585 .43708 L
.70709 .43404 L
.70833 .43233 L
.70957 .43248 L
.71081 .43454 L
.71205 .43803 L
.71329 .44204 L
.71453 .44542 L
.71577 .44709 L
.71701 .44636 L
.71825 .44314 L
.7381 .30902 L
.73934 .2663 L
.74058 .22749 L
.74182 .19584 L
.74306 .17348 L
Mistroke
.7443 .16104 L
.74554 .15771 L
.74678 .16145 L
.74802 .16948 L
.74926 .17883 L
.7505 .18689 L
.75174 .19188 L
.75298 .19303 L
.75422 .19063 L
.75546 .18577 L
.7567 .18 L
.75794 .1749 L
.75918 .17168 L
.76042 .17095 L
.76166 .17262 L
.7629 .17599 L
.76414 .18 L
.76538 .18349 L
.76662 .18556 L
.76786 .1857 L
.7691 .18399 L
.77034 .18095 L
.77158 .17742 L
.77282 .17432 L
.77406 .1724 L
.7753 .17205 L
.77654 .17323 L
.77778 .17549 L
.81746 .16371 L
.8373 .15793 L
.83854 .15935 L
.83978 .16042 L
.84102 .16071 L
.84226 .15998 L
.84474 .15587 L
.84598 .15326 L
.84722 .15098 L
.84846 .14948 L
.8497 .149 L
.85094 .14951 L
.85218 .15071 L
.85342 .15211 L
.85466 .15318 L
.8559 .15344 L
.85714 .15265 L
.86706 .14241 L
.8683 .14388 L
.86954 .14501 L
.87078 .1453 L
.87202 .14447 L
Mistroke
.8745 .13975 L
.87574 .13669 L
.87698 .13395 L
.87822 .13205 L
.87946 .13131 L
.88194 .13304 L
.88318 .13465 L
.88442 .13593 L
.88566 .13632 L
.8869 .13547 L
.88938 .13032 L
.89063 .12689 L
.89187 .12377 L
.89311 .12157 L
.89435 .12067 L
.89683 .12256 L
.89807 .12443 L
.89931 .12599 L
.90055 .12657 L
.90179 .12574 L
.90427 .12001 L
.90551 .11607 L
.90675 .11242 L
.90799 .1098 L
.90923 .10869 L
.91171 .11092 L
.91295 .11325 L
.91419 .11528 L
.91543 .1162 L
.91667 .11545 L
.91915 .1089 L
.92039 .10419 L
.92163 .09975 L
.92287 .09651 L
.92411 .0951 L
.92659 .09801 L
.92783 .10115 L
.92907 .10403 L
.93031 .10558 L
.93155 .10501 L
.93279 .10209 L
.93403 .09717 L
.93527 .09118 L
.93651 .08539 L
.93775 .08108 L
.93899 .07922 L
.94023 .08017 L
.94147 .08354 L
.94271 .08829 L
.94395 .09289 L
Mistroke
.94519 .09577 L
.94643 .09567 L
.94767 .09206 L
.94891 .08531 L
.95015 .07666 L
.95139 .06801 L
.95263 .06141 L
.95387 .0586 L
.95511 .06044 L
.95635 .06664 L
.95883 .08503 L
.96007 .09177 L
.96131 .09318 L
.96255 .0876 L
.96379 .07495 L
.96503 .05706 L
.96627 .03761 L
.96751 .02164 L
.96875 .01472 L
.96999 .0219 L
.97123 .04676 L
.97247 .0906 L
.97371 .15198 L
.97619 .30902 L
Mfstroke
P
P
P
P
% End of Graphics
MathPictureEnd
:[font = output; output; inactive; preserveAspect; endGroup]
Graphics["<<>>"]
;[o]
-Graphics-
:[font = text; inactive; preserveAspect; plain; bold; italic; endGroup]
We have included the last 2 graphs so that you don't have to exicute this command to see
this approximation. You may re-exicute it yourself if you want.
:[font = section; inactive; preserveAspect; plain; bold; italic; startGroup]
Your Own Example.
:[font = text; inactive; preserveAspect; cellOutline; fontColorRed = 65535; fontColorGreen = 65535; fontColorBlue = 65535; backColorRed = 21845; backColorGreen = 21845; backColorBlue = 21845]
Finaly, we give a sequence of commands that will generate a new example using a function that you must input. The next command clears the definition of g[x], a, and b. You are to edit the Mathematica commands to redefine them to your liking. However, remember that the set of commands that were input for this notebook were set up to handle odd functions. Any other choices will result in error messages and lots of garbage. Warning!
Garbage In -> Garbage Out.
;[s]
11:0,0;152,1;160,2;165,3;166,4;187,5;199,6;426,7;435,8;468,9;504,10;505,-1;
11:1,0,0 ,times,0,14,65535,65535,65535;1,0,0 ,times,1,14,65535,65535,65535;1,0,0 ,times,0,14,65535,65535,65535;1,0,0 ,times,1,14,65535,65535,65535;1,0,0 ,times,0,14,65535,65535,65535;1,0,0 ,Clean,0,14,65535,65535,65535;1,0,0 ,times,0,14,65535,65535,65535;1,0,0 ,times,1,14,65535,65535,65535;1,0,0 ,times,0,12,65535,65535,65535;1,0,0 ,times,0,18,65535,65535,65535;1,0,0 ,times,1,12,65535,65535,65535;
:[font = text; inactive; preserveAspect]
First, clear out the old definitions of g[x], a and b.
;[s]
4:0,0;41,1;50,2;54,3;59,-1;
4:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Clear[g,a,b]
:[font = text; inactive; preserveAspect]
You may start over at any time by returning to this command.
;[s]
2:0,0;52,1;60,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,Charter,0,12,0,0,0;
:[font = text; inactive; preserveAspect]
First edit the next 4 lines to replace the ? marks and define your own example. Remember you must pick an odd function g[x] and a symmetric interval.
;[s]
3:0,0;120,1;124,2;150,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; preserveAspect]
g[x_]:= ?
:[font = input; preserveAspect]
b:= ?
:[font = input; preserveAspect]
a:= ?
:[font = text; inactive; preserveAspect]
Now execute the follwoing sequence of commands to generate your example. The new variable Num is the number of terms to be used in the partial sum, initally set to 15.
;[s]
3:0,0;90,1;93,2;167,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; preserveAspect]
Num := ?
:[font = text; inactive; preserveAspect]
Plot the function g[x]
;[s]
2:0,0;18,1;23,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
cb=Plot[ g[x], {x,a,b}, PlotStyle -> GrayLevel[.5] ]
:[font = text; inactive; preserveAspect]
Look at the coefficients c[m] for m= 0, 1, 2 ,..., Num-1
;[s]
4:0,0;25,1;32,2;35,3;63,-1;
4:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Table[ c[m], {m,0,Num-1} ]
:[font = text; inactive; preserveAspect]
Look at the formula for the partial sum
:[font = input; preserveAspect]
s[Num-1,x]
:[font = text; inactive; preserveAspect]
To see a plot of the first term exicute the following.
:[font = input; preserveAspect]
da=pl44[0,0,a,b]
:[font = text; inactive; preserveAspect]
And compare to g[x]
;[s]
2:0,0;15,1;19,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Show[cb,da]
:[font = text; inactive; preserveAspect]
Just to see how things are going, plot the 3-rd, 4-th, and 5-th partial sums
:[font = input; preserveAspect]
db=pl44[3,5, a, b ]
:[font = text; inactive; preserveAspect]
Now compare with g[x]
;[s]
2:0,0;17,1;21,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Show[cb,db]
:[font = text; inactive; preserveAspect]
Look at the Num- th partial sum
;[s]
3:0,0;12,1;15,2;31,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;1,0,0 ,times,0,12,0,0,0;
:[font = input; preserveAspect]
dc=pl44[ Num-1, Num-1, a, b ]
:[font = text; inactive; preserveAspect]
Now compare it to g[x]
;[s]
2:0,0;18,1;22,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Show[cb,dc]
:[font = text; inactive; preserveAspect]
Now look at twice as many terms in the partial sums
:[font = input; preserveAspect]
dd=pl44[ (2*Num)-1, (2*Num)-1, a, b ]
:[font = text; inactive; preserveAspect]
and compare it to g[x]
;[s]
2:0,0;18,1;22,-1;
2:1,0,0 ,times,0,12,0,0,0;1,0,0 ,times,1,12,0,0,0;
:[font = input; preserveAspect]
Show[cb,dd]
:[font = text; inactive; preserveAspect; endGroup]
You may start over at any time by returning to the Clear[g,a,b] command above.
;[s]
3:0,0;51,1;64,2;78,-1;
3:1,0,0 ,times,0,12,0,0,0;1,0,0 ,courier,1,12,0,0,0;1,0,0 ,Charter,0,12,0,0,0;
:[font = section; inactive; preserveAspect; startGroup]
Here are some examples of some functions you may want to try.
:[font = input; preserveAspect]
g[x_]:=If[x<-.5,0,If[x<0,-1,If[x<.5,1,0]]]
a:=-1
b:=1
:[font = input; preserveAspect; endGroup; endGroup]
g[x_]:=x^3
a:=-1
b:=1
^*)