(*^
::[ 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 = "Macintosh Mathematica Notebook Front End Version 2.2";
MacintoshStandardFontEncoding;
fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times";
fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times";
fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times";
fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times";
fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times";
fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times";
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier";
fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier";
fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier";
fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier";
fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier";
fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier";
fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva";
fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = leftheader, inactive, L2, 12, "Times";
fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times";
fontset = leftfooter, inactive, L2, 12, "Times";
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
paletteColors = 128; automaticGrouping; currentKernel;
]
:[font = input; preserveAspect]
ClearAll;
tcirc1 = 2.35; tcirc2 = tcirc1 + Pi/2; tcirc3 = tcirc1 + Pi; tcirc0 = tcirc1 - Pi/2;
plotsin = Plot[Sin[t],{t,0,6 Pi},PlotPoints->100,
PlotRange->{{0,6 Pi},{-1.01,1.01}},
AxesOrigin->{-0.5,-1.1},
Ticks->{{0,{3Pi,FontForm["3p",{"Symbol",9}]},{6Pi,FontForm["6p",{"Symbol",9}]},{tcirc2,FontForm["q+p/2",{"Symbol",9}]}},{{-1,"-1"},{0,"0"},{1,"1"}}},
AxesLabel->{"t","y"},
PlotLabel->"(a) y = S(t)"];
plotcos = Plot[Cos[t],{t,0,6 Pi},PlotPoints->100,
PlotRange->{{0,6 Pi},{-1.01,1.01}},
AxesOrigin->{-0.5,-1.1},
Ticks->{{0,{3Pi,FontForm["3p",{"Symbol",9}]},{6Pi,FontForm["6p",{"Symbol",9}]},{tcirc1,FontForm["q",{"Symbol",9}]},{tcirc3,FontForm["q+p",{"Symbol",9}]}},{{-1,"-1"},{0,"0"},{1,"1"}}},
AxesLabel->{"t","y"},
PlotLabel->"(b) y = C(t)"];
plotnegcos = Plot[-Cos[t],{t,0,6 Pi},PlotPoints->100,PlotStyle->Dashing[{0.01,0.01}]];
plotnegsin = Plot[-Sin[t],{t,0,6 Pi},PlotPoints->100,PlotStyle->Dashing[{0.01,0.01}]];
zeroline = Graphics[{Dashing[{0.001,0.01}],Line[{{0,0},{6Pi,0}}]}];
circc1 = Graphics[Disk[{tcirc1,Cos[tcirc1]},{0.2,0.04}]];
circc2 = Graphics[Disk[{tcirc3,-Cos[tcirc3]},{0.2,0.04}]];
circs2 = Graphics[Disk[{tcirc2,Sin[tcirc2]},{0.2,0.04}]];
circs1 = Graphics[{{GrayLevel[1.0],Disk[{tcirc1,Sin[tcirc1]},{0.2,0.04}]},Circle[{tcirc1,Sin[tcirc1]},{0.2,0.04}]}];
circs3 = Graphics[{{GrayLevel[1.0],Disk[{tcirc3,-Sin[tcirc3]},{0.2,0.04}]},Circle[{tcirc3,-Sin[tcirc3]},{0.2,0.04}]}];
circc0 = Graphics[{{GrayLevel[1.0],Disk[{tcirc0,Cos[tcirc0]},{0.2,0.04}]},Circle[{tcirc0,Cos[tcirc0]},{0.2,0.04}]}];
Show[GraphicsArray[{{Show[plotsin,plotnegsin,zeroline,circs1,circs2,circs3]},
{Show[plotcos,plotnegcos,zeroline,circc0,circc1,circc2]}},
PlotLabel->"Figure 23.4"]]
^*)