mathematica_plotting

mathematica_plotting - Content-type application/mathematica...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 171291, 3056] NotebookOptionsPosition[ 169506, 2987] NotebookOutlinePosition[ 169842, 3002] CellTagsIndexPosition[ 169799, 2999] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Plotting Real functions of one variable", "Title", CellChangeTimes->{{3.4628291681062202`*^9, 3.462829177428357*^9}}], Cell[CellGroupData[{ Cell["Define the function", "Subsection", CellChangeTimes->{{3.462829183342502*^9, 3.462829185580127*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"r", ",", "fonevar"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fonevar", "[", "r_", "]"}], ":=", " ", RowBox[{"2", "*", "r", "*", RowBox[{"Exp", "[", RowBox[{"-", "r"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.462829191278863*^9, 3.4628292224360113`*^9}, { 3.462829300268141*^9, 3.462829304709646*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Make the plot -- simplest use of the command, with simplest axes labels\ \>", "Subsection", CellChangeTimes->{{3.46282923003547*^9, 3.462829231899308*^9}, { 3.4628293838093977`*^9, 3.462829407590621*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"fonevar", "[", "rho", "]"}], ",", RowBox[{"{",
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{"rho", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<r\>\"", ",", "\"\<R1s\>\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.4628292359797497`*^9, 3.462829251601872*^9}, { 3.462829323866541*^9, 3.462829361741638*^9}, {3.462829753556781*^9, 3.462829773676608*^9}, {3.462829833808824*^9, 3.462829835750152*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k4VdsbB3AUiTJkyEGU5ggpNH9PpjJkFkpCycWNrkSFDFEK0U2lKKQB ZYikEpXpiDKFkvlwzjafg7ih+K3fX/v5PPt59rPWu9b7XWuvcvG2dOXj4eFZ x8vD8/+nkWt/w4eBs3tVfVn5HwYi9i7UlT3dRbNG6aZ87TiJE9ianJCUTzuB 2ZCSo8uX+sL4y7e8+zRfNO8zsjnFEw7bE/8V/0sLh7Web7UFdRMdald0Y2jx EFDM1r5akIYUKbPL12iPYFVXaO5rlY9Qwfz1V2kv4c89rfAnvhSb9t+IzDv9 End3pd1b3VWKxgjvgTbGS/xMv3VBamMZ1ixQeabqV4Dw+OjGI+/KUPnnkWpT 4yscc2W0nu0ux5KJ25qK0W+QsVC6eUqBgYSOC7oFcyXY+l/XBfbZGtjZp+Zw x8rxuiHm+r9VDeC0WQs9lK2AAM+EsBerAZcdBV2tdCtQ7xfrpsnXiPzj3rKv 4iuw58Fo95VdjRDx2hMRoF0JGek2zu6sRlSEtR4WCGLg1Wcs5UZ/hcZzcQF5 wWrEF0f0FO9phvB8qMN+hTrs/s1jv8jtOxLcbR1VDOpQtcDi/vOL37GmScVJ 3KsOA+8vVtFvf8fejG/H24rr0NPb8VOz4jveZNwuKFStR5pT7XVrpVaMWA2/ M66tx5YHC/g9Wlthk36n5szSRnj8qFdT29WGtRaj/WVRTXihcnCwu7YDssH7 d7qlNsFU/Xb4hr4OiGWlRAkVNoEmcPeQ43QHZgStVC2YTbCrX1kVv7oT9R8K z3Rub0YwI254s38nLqiHzv1iNeOp4tYrNLku1IpKSqrSvyHWduEHYeVu+Nfu QMLPVih6tCkfOtgDEdUC1ifBH1DQlLGysunBoxj16Fn5Hxh3Xvba8GgPGkzW tzrq/4BWg7yh0qkeKNdInll7+wdqOg36w6J70MXgPMnTboOXBFuOv7oH+z8+ FvlyoR2TZR/F19KZ6Fy5qmDuejuiwrqjzPcz4RuSdEQ9rR1v3ZtyzpoykYqb
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 12/02/2009 for the course CHE 110A taught by Professor Mccurdy during the Spring '09 term at UC Davis.

Page1 / 52

mathematica_plotting - Content-type application/mathematica...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online