MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

RectangleWave[ ] Notebook containing the definitions for who ever will need it

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118323] RectangleWave[ ] Notebook containing the definitions for who ever will need it
  • From: roby <roby.nowak at gmail.com>
  • Date: Thu, 21 Apr 2011 03:13:34 -0400 (EDT)

Notebook[{

Cell[CellGroupData[{
Cell["RectangleWave", "Section",
 CellChangeTimes->{{3.512286263806546*^9, 3.5122862689933825`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"RectangleWave", "::", "usage"}], "=",
   RowBox[{"\"\<RectangleWave[{\!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\),\!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\)},\!\(\*
StyleBox[\"x\", \"TI\"]\)] gives a rectangele wave that alternates \
between +1 and -1 with semiperiods \!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\) and \!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\).\\n\>\"", "<>", "\n",
    "\"\<RectangleWave[{\!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\),\!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\)},{\!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\),\!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\)},\!\(\*
StyleBox[\"x\", \"TI\"]\)] gives a rectangele wave that alternates \
between \!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\) and \!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\) with semiperiods \!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\) and \!\(\*SubscriptBox[
StyleBox[\"x\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\).\\n\>\"", "<>", "\n",
    "\"\<RectangleWave[\!\(\*
StyleBox[\"f\", \"TI\"]\),\!\(\*
StyleBox[\"x\", \"TI\"]\)] gives a rectangele wave that alternates \
between +1 and -1 with semiperiods \!\(\*
StyleBox[\"f\", \"TI\"]\) and 1-\!\(\*
StyleBox[\"f\", \"TI\"]\), 0<=\!\(\*
StyleBox[\"f\", \"TI\"]\)<=1\\n\>\"", "<>", "\n",
    "\"\<RectangleWave[{\!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\),\!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\)},\!\(\*
StyleBox[\"f\", \"TI\"]\),\!\(\*
StyleBox[\"x\", \"TI\"]\)] gives a rectangele wave that alternates \
between \!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"1\", \"TR\"]]\) and \!\(\*SubscriptBox[
StyleBox[\"y\", \"TI\"],
StyleBox[\"2\", \"TR\"]]\) with semiperiods \!\(\*
StyleBox[\"f\", \"TI\"]\) and 1-\!\(\*
StyleBox[\"f\", \"TI\"]\), 0<=\!\(\*
StyleBox[\"f\", \"TI\"]\)<=1\\n\>\""}]}], ";"}], "\n",
 RowBox[{
  RowBox[{
   RowBox[{"RectangleWave", "[",
    RowBox[{
     RowBox[{"xp", ":",
      RowBox[{"{",
       RowBox[{"x1_", ",", "x2_"}], "}"}]}], ",",
     RowBox[{"yr", ":",
      RowBox[{
       RowBox[{"{",
        RowBox[{"y1_", ",", "y2_"}], "}"}], ":",
       RowBox[{"{",
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], ",", "x_"}],
    "]"}], ":=",
   RowBox[{"Piecewise", "[",
    RowBox[{
     RowBox[{"{",
      RowBox[{"{",
       RowBox[{"y1", ",",
        RowBox[{
         RowBox[{"Mod", "[",
          RowBox[{"x", ",",
           RowBox[{"x2", "+", "x1"}]}], "]"}], ">", "x1"}]}], "}"}],
      "}"}], ",", "y2"}], "]"}]}], ";"}], "\n",
 RowBox[{
  RowBox[{
   RowBox[{"RectangleWave", "[",
    RowBox[{"f_", ",",
     RowBox[{"yr_:",
      RowBox[{"{",
       RowBox[{
        RowBox[{"-", "1"}], ",", "1"}], "}"}]}], ",", "x_"}], "]"}],
":=",
   RowBox[{
    RowBox[{"RectangleWave", "[",
     RowBox[{
      RowBox[{"{",
       RowBox[{"f", ",",
        RowBox[{"1", "-", "f"}]}], "}"}], ",", "yr", ",", "x"}],
     "]"}], "/;",
    RowBox[{"0", "<=", "f", "\[LessEqual]", "1"}]}]}],
  ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.512291663024753*^9, 3.5122916720079207`*^9}, {
   3.5122917784623613`*^9, 3.512292146469103*^9}, {
   3.512292189758774*^9, 3.5122923224705973`*^9}, {
   3.5122923947706013`*^9, 3.51229246403988*^9}, {
   3.5122925019083347`*^9, 3.5122925416358433`*^9},
   3.5122926177472544`*^9, {3.512292663629656*^9,
   3.512292664551366*^9}, {3.512292747739581*^9,
   3.5122927659863105`*^9}, {3.5122928683117204`*^9,
   3.512292877731907*^9}, {3.5122929320502963`*^9,
   3.5122929956326504`*^9}, {3.5122931369198275`*^9,
   3.5122931515265837`*^9}, {3.5122931865671787`*^9,
   3.5122931895978856`*^9}, 3.512293229075185*^9, {
   3.512294165894277*^9, 3.5122941923961563`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "RectangleWave"}]], "Input",
 CellChangeTimes->{3.5122940192047358`*^9}],

Cell[BoxData[
 StyleBox["\<\"RectangleWave[{\\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"x\\\", \\\"TI\\\"], \\n StyleBox[\\\"1\\\", \\\"TR\\\"]]\
\\),\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\", \\\"TI\\\"], \\n \
StyleBox[\\\"2\\\", \\\"TR\\\"]]\\)},\\!\\(\\*\\nStyleBox[\\\"x\\\", \
\\\"TI\\\"]\\)] gives a rectangele wave that alternates between +1 \
and -1 with semiperiods \\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\",
\
\\\"TI\\\"], \\n StyleBox[\\\"1\\\", \\\"TR\\\"]]\\) and \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\", \\\"TI\\\"], \\n \
StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\\).\\nRectangleWave[{\\!\\(\\*SubscriptBox[\\n StyleBox[\
\\\"y\\\", \\\"TI\\\"], \\n StyleBox[\\\"1\\\", \
\\\"TR\\\"]]\\),\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"y\\\", \
\\\"TI\\\"], \\n StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\\)},{\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\", \
\\\"TI\\\"], \\n StyleBox[\\\"1\\\", \
\\\"TR\\\"]]\\),\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\", \
\\\"TI\\\"], \\n StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\\)},\\!\\(\\*\\nStyleBox[\\\"x\\\", \\\"TI\\\"]\\)] \
gives a rectangele wave that alternates between \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"y\\\", \\\"TI\\\"], \\n \
StyleBox[\\\"1\\\", \\\"TR\\\"]]\\) and \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"y\\\", \\\"TI\\\"], \\n StyleBox[\\\"2\\\", \\\"TR\\\"]]\
\\) with semiperiods \\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\", \\\
\"TI\\\"], \\n StyleBox[\\\"1\\\", \\\"TR\\\"]]\\) and \
\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"x\\\", \\\"TI\\\"], \\n \
StyleBox[\\\"2\\\", \
\\\"TR\\\"]]\\).\\nRectangleWave[\\!\\(\\*\\nStyleBox[\\\"f\\\", \
\\\"TI\\\"]\\),\\!\\(\\*\\nStyleBox[\\\"x\\\", \\\"TI\\\"]\\)] gives \
a rectangele wave that alternates between +1 and -1 with semiperiods \
\\!\\(\\*\\nStyleBox[\\\"f\\\", \\\"TI\\\"]\\) and \
1-\\!\\(\\*\\nStyleBox[\\\"f\\\", \\\"TI\\\"]\\), \
0<=\\!\\(\\*\\nStyleBox[\\\"f\\\", \
\\\"TI\\\"]\\)<=1\\nRectangleWave[{\\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"y\\\", \\\"TI\\\"], \\n StyleBox[\\\"1\\\", \\\"TR\\\"]]\
\\),\\!\\(\\*SubscriptBox[\\n StyleBox[\\\"y\\\", \\\"TI\\\"], \\n \
StyleBox[\\\"2\\\", \\\"TR\\\"]]\\)},\\!\\(\\*\\nStyleBox[\\\"f\\\", \
\\\"TI\\\"]\\),\\!\\(\\*\\nStyleBox[\\\"x\\\", \\\"TI\\\"]\\)] gives \
a rectangele wave that alternates between \\!\\(\\*SubscriptBox[\\n \
StyleBox[\\\"y\\\", \\\"TI\\\"], \\n StyleBox[\\\"1\\\", \\\"TR\\\"]]\
\\) and \\!\\(\\*SubscriptBox[\\n StyleBox[\\\"y\\\", \\\"TI\\\"], \
\\n StyleBox[\\\"2\\\", \\\"TR\\\"]]\\) with semiperiods \
\\!\\(\\*\\nStyleBox[\\\"f\\\", \\\"TI\\\"]\\) and \
1-\\!\\(\\*\\nStyleBox[\\\"f\\\", \\\"TI\\\"]\\), \
0<=\\!\\(\\*\\nStyleBox[\\\"f\\\", \\\"TI\\\"]\\)<=1\\n\"\>",
  "MSG"]], "Print", "PrintUsage",
 CellChangeTimes->{3.51229420532695*^9},
 CellTags->"Info3512301405-1927562"]
}, {2}]]
}, Open  ]]
},
WindowSize->{1434, 764},
WindowMargins->{{166, Automatic}, {Automatic, 59}},
ShowSelection->True,
Magnification->1.8000000715255737`,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, \
2008)",
StyleDefinitions->"Default.nb"
]


  • Prev by Date: Re: Coloring a ListSurfacePlot3D with a n x 4 matrix
  • Next by Date: Re: trouble printing to PDF
  • Previous by thread: Points getting moved by BezierFunction? Moving an array of
  • Next by thread: problem of numerical error while using NDsolve