(* Content-type: application/vnd.wolfram.cdf.text *)
(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)
(* CreatedBy='Mathematica 8.0' *)
(*************************************************************************)
(* *)
(* The Mathematica License under which this file was created prohibits *)
(* restricting third parties in receipt of this file from republishing *)
(* or redistributing it by any means, including but not limited to *)
(* rights management or terms of use, without the express consent of *)
(* Wolfram Research, Inc. *)
(* *)
(*************************************************************************)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 835, 17]
NotebookDataLength[ 26166, 566]
NotebookOptionsPosition[ 26422, 558]
NotebookOutlinePosition[ 26867, 575]
CellTagsIndexPosition[ 26824, 572]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Manipulate", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"inF", "[",
RowBox[{"fs_", ",", "x_"}], "]"}], ":=",
RowBox[{"Switch", "[",
RowBox[{"fs", ",", "\[IndentingNewLine]", "fsin", ",",
RowBox[{"Sin", "[", "x", "]"}], ",", "\[IndentingNewLine]", "ftria",
",",
RowBox[{"Piecewise", "[",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"2", " ",
RowBox[{"x", " ", "/", "\[Pi]"}]}], ",",
RowBox[{"0", "\[LessEqual]", "x", "<",
RowBox[{"\[Pi]", "/", "2"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"2", "-",
RowBox[{"2", " ",
RowBox[{"x", "/", "\[Pi]"}]}]}], ",",
RowBox[{
RowBox[{"\[Pi]", "/", "2"}], "\[LessEqual]", "x", "<",
RowBox[{"3",
RowBox[{"\[Pi]", "/", "2"}]}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-", "4"}], "+",
RowBox[{"2",
RowBox[{"x", "/", "\[Pi]"}]}]}], ",",
RowBox[{
RowBox[{"3",
RowBox[{"\[Pi]", "/", "2"}]}], "\[LessEqual]", "x", "<",
RowBox[{"2", "\[Pi]"}]}]}], "}"}]}], "}"}], "]"}], ",",
"\[IndentingNewLine]", "ffour", ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Sin", "[", "x", "]"}], "+",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"3", " ", "x"}], "]"}], "/", "3"}], " ", "+",
RowBox[{
RowBox[{"Sin", "[",
RowBox[{"5", " ", "x"}], "]"}], "/", "5"}]}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"rngCh", "[", "fs_", "]"}], ":=",
RowBox[{"Switch", "[",
RowBox[{"fs", ",", "\[IndentingNewLine]", "chDweeb", ",",
RowBox[{"{",
RowBox[{"0", ",", "8"}], "}"}], ",", "\[IndentingNewLine]", "chLin",
",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "\[IndentingNewLine]",
"chDio", ",",
RowBox[{"{",
RowBox[{
RowBox[{"-",
SuperscriptBox["10",
RowBox[{"-", "10"}]]}], ",",
SuperscriptBox["10",
RowBox[{"-", "6"}]]}], "}"}]}], "]"}]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"chF", "[",
RowBox[{"fs_", ",", "x_"}], "]"}], ":=",
RowBox[{"Switch", "[",
RowBox[{"fs", ",", "\[IndentingNewLine]", "chDweeb", ",", " ",
RowBox[{"Exp", "[", "x", "]"}], ",", "\[IndentingNewLine]", "chLin",
",", "x", ",", "\[IndentingNewLine]", "chDio", ",",
RowBox[{
SuperscriptBox["10",
RowBox[{"-", "12"}]],
RowBox[{"(", " ",
RowBox[{
SuperscriptBox["\[ExponentialE]",
FractionBox[
RowBox[{"0.2", "x"}], "0.025"]], "-", "1"}], ")"}]}]}], "]"}]}],
";", "\[IndentingNewLine]",
RowBox[{"GraphicsGrid", "[",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"chF", "[",
RowBox[{"chS", ",",
RowBox[{"shift", " ", "+", " ",
RowBox[{"shrink", " ",
RowBox[{"inF", "[",
RowBox[{"inS", ",", "x"}], "]"}]}]}]}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}], ",",
RowBox[{"If", "[",
RowBox[{"zoom", ",", "Automatic", ",",
RowBox[{"rngCh", "[", "chS", "]"}]}], "]"}]}], "}"}]}], ",",
RowBox[{"Ticks", "\[Rule]", "None"}], ",", "\[IndentingNewLine]",
RowBox[{"Epilog", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"PointSize", "[", "Medium", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"chF", "[",
RowBox[{"chS", ",",
RowBox[{"shift", " ", "+", " ",
RowBox[{"shrink", " ",
RowBox[{"inF", "[",
RowBox[{"inS", ",", "t"}], "]"}]}]}]}], "]"}]}], "}"}],
"]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"Show", "[", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"chF", "[",
RowBox[{"chS", ",", "i"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"rngCh", "[", "chS", "]"}]}], "}"}]}], ",",
"\[IndentingNewLine]",
RowBox[{"Ticks", "\[Rule]", "None"}], ",",
RowBox[{"Epilog", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{
RowBox[{"shift", "+",
RowBox[{"shrink", " ",
RowBox[{"inF", "[",
RowBox[{"inS", ",", "t"}], "]"}]}]}], ",",
RowBox[{"chF", "[",
RowBox[{"chS", ",",
RowBox[{"shift", "+",
RowBox[{"shrink", " ",
RowBox[{"inF", "[",
RowBox[{"inS", ",", "t"}], "]"}]}]}]}], "]"}]}], "}"}],
"]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"chF", "[",
RowBox[{"chS", ",", "i"}], "]"}], "]"}], ",",
RowBox[{"{",
RowBox[{"i", ",",
RowBox[{"shift", "-", "shrink"}], ",",
RowBox[{"shift", "+", "shrink"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",",
RowBox[{"rngCh", "[", "chS", "]"}]}], "}"}]}], ",",
RowBox[{"Ticks", "\[Rule]", "None"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Thick"}], "}"}]}]}], "]"}]}],
"\[IndentingNewLine]", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"Graphics", " ", "[", "]"}], ",",
RowBox[{"ImageRotate", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"Evaluate", "[",
RowBox[{"shift", "+",
RowBox[{"shrink", " ",
RowBox[{"inF", "[",
RowBox[{"inS", ",", "x"}], "]"}]}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",",
RowBox[{"2", "\[Pi]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",",
RowBox[{"Ticks", "\[Rule]", "None"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "1.5"}], ",",
RowBox[{"Epilog", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"t", ",",
RowBox[{"shift", " ", "+", " ",
RowBox[{"shrink", " ",
RowBox[{"inF", "[",
RowBox[{"inS", ",", "t"}], "]"}]}]}]}], "}"}], "]"}]}],
"}"}]}]}], "]"}], ",",
RowBox[{
RowBox[{"-", "\[Pi]"}], "/", "2"}]}], "]"}]}], "}"}]}], "}"}],
"]"}]}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"inS", ",", "fsin", ",", "\"\\""}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"fsin", "\[Rule]", "\"\\""}], ",",
"\[IndentingNewLine]",
RowBox[{"ftria", "\[Rule]", "\"\\""}], ",",
"\[IndentingNewLine]",
RowBox[{"ffour", "\[Rule]", "\"\\""}]}], "}"}]}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"chS", ",", "chDweeb", ",", "\"\\""}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"chDweeb", "\[Rule]", "\"\\""}], ",",
"\[IndentingNewLine]",
RowBox[{"chLin", "\[Rule]", "\"\\""}], ",",
"\[IndentingNewLine]",
RowBox[{"chDio", "\[Rule]", "\"\\""}]}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"shift", ",", "0", ",", "\"\\""}],
"}"}], ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"shrink", ",", "1", ",", "\"\\""}],
"}"}], ",", "0.01", ",", "1"}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"t", ",", "0", ",", "\"\