Thermo takehome - (* 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 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 121612, 2427] NotebookOptionsPosition[ 117646, 2286] NotebookOutlinePosition[ 118038, 2303] CellTagsIndexPosition[ 117995, 2300] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Van Der Waals Problem", "Subtitle", CellChangeTimes->{{3.464099041901917*^9, 3.464099047841752*^9}}], Cell["Monica Parrillo", "Subsubtitle", CellChangeTimes->{{3.464099055509622*^9, 3.464099058129036*^9}}], Cell[CellGroupData[{ Cell["a", "Section", CellChangeTimes->{{3.464099050645576*^9, 3.464099059468315*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pr", ":=", " ", RowBox[{ RowBox[{"8", " ", FractionBox["tr", RowBox[{ RowBox[{"3", " ", "vr"}], " ", "-", "1"}]]}], "-", FractionBox["3", SuperscriptBox["vr", "2"]]}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.463944515501933*^9, 3.4639446293285103`*^9}, { 3.463944664412925*^9, 3.463944690071486*^9}, {3.463944849362451*^9, 3.463944852682045*^9}, {3.463945022491179*^9, 3.463945055467243*^9}, 3.463945111269382*^9, {3.463947307911893*^9, 3.463947314292095*^9}, { 3.463947363069449*^9, 3.463947363812406*^9}, {3.463954864830966*^9, 3.463954866277289*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"pr", ",",
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[{"{", RowBox[{"tr", ",", "0.5", ",", "1", ",", "0.1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"pr", ",", RowBox[{"{", RowBox[{"tr", ",", "1.5", ",", "4", ",", ".5"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"vr", ",", "0.34", ",", "5"}], "}"}], ",", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.463944694083787*^9, 3.46394469686344*^9}, { 3.4639447472480087`*^9, 3.463944837833394*^9}, {3.463945066798835*^9, 3.4639450956828823`*^9}, {3.46394519186404*^9, 3.4639453192138968`*^9}, { 3.46394542394564*^9, 3.463945436305091*^9}, {3.463945555686487*^9, 3.463945627163974*^9}, {3.4639473182168694`*^9, 3.463947334693953*^9}, { 3.464091820998309*^9, 3.464091838819415*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13c8VW8YAHDbxR1CNPRLWpIkUlY9L0mIlL2TSoWQEUolq1JZKUJ2Iiop EnGOcW+ohGTvvfeev9M/936+n/c57zrnPM95d1g76l5mYWJiEiV+/v035Fim jOxrAN4b8hYccqIoV5DF7qdCA4hhTgYSvDvQeND67BHdBpDybXN7vXs72sO5 6p1wrQF+mqSLsVoJI/N7Szzk+w0wcbZ0PrdiM6pwnN3R+aEBmLjpSh0iGxHz wFTG6e8NYDy47acyOz+Ss5o4mtPWAE6yMX8LeTYgh4bRYpG5BliwvBly7iIV vT47rP2Y0ggTs9vkxQe5UUvZQMPsrkZoaDPTeZvMifiU+y5aKTWC2DJ1X1so G/I+1Okpa9cIHSWU+1/6VuFLWhtbvE8j8Ibwv6kpXoCxHS3B3FGNEB8b81Rl cBrM+Opft5c1AjKmeeiz9kFYYK2UZgfhl2rC4enNUMZSk/95vhGYtPxxmStl cGT6Z/WjPU3gLb5n4q1mFXbdrsJ85lgTML2/mylq24old3/vtzRoAhQ43eU/ 0oNtqC1elfEjvOZ7+LbMBKauhT+MjW6CzBbqpleNU9jd0gJ+rk9NcNUzlWPY
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.

Page1 / 42

Thermo takehome - (* 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