Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Change the mathematica code into a mathematica notebook

  • Loading branch information...
commit 965e3e39033e35921685c129c524313d0513511b 1 parent 0573931
@apauley authored
Showing with 79 additions and 11 deletions.
  1. +0 −11 Chapter0/ladder.mathematica
  2. +79 −0 Chapter0/ladder.nb
View
11 Chapter0/ladder.mathematica
@@ -1,11 +0,0 @@
-(*
-The ladder example on page 7
-Language: Mathematica
-
-Evaluate this code in a Mathematica notebook.
-*)
-
-a = 123 Degree;
-l[c_] := 9/Sin[Pi - a - c] + 7/Sin[c];
-Plot[l[c], {c, 0.4, 0.5}]
-FindMinimum[l, {0.4, 0.5}]
View
79 Chapter0/ladder.nb
@@ -0,0 +1,79 @@
+(* 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[ 1989, 69]
+NotebookOptionsPosition[ 1740, 56]
+NotebookOutlinePosition[ 2078, 71]
+CellTagsIndexPosition[ 2035, 68]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"(*", "\n",
+ RowBox[{
+ "The", " ", "ladder", " ", "example", " ", "on", " ", "page", " ", "7",
+ "\n",
+ RowBox[{"Language", ":", " ",
+ RowBox[{
+ "Mathematica", "\n", "\n", "Evaluate", " ", "this", " ", "code", " ",
+ "in", " ", "a", " ", "Mathematica", " ",
+ RowBox[{"notebook", "."}]}]}]}], "\n", "*)"}], "\n", "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", " ", "=", " ",
+ RowBox[{"123", " ", "Degree"}]}], ";"}], "\n",
+ RowBox[{
+ RowBox[{
+ RowBox[{"l", "[", "c_", "]"}], " ", ":=", " ",
+ RowBox[{
+ RowBox[{"9", "/",
+ RowBox[{"Sin", "[",
+ RowBox[{"Pi", " ", "-", " ", "a", " ", "-", " ", "c"}], "]"}]}], " ",
+ "+", " ",
+ RowBox[{"7", "/",
+ RowBox[{"Sin", "[", "c", "]"}]}]}]}], ";"}], "\n",
+ RowBox[{"Plot", "[",
+ RowBox[{
+ RowBox[{"l", "[", "c", "]"}], ",", " ",
+ RowBox[{"{",
+ RowBox[{"c", ",", " ", "0.4", ",", " ", "0.5"}], "}"}]}], "]"}], "\n",
+ RowBox[{"FindMinimum", "[",
+ RowBox[{"l", ",", " ",
+ RowBox[{"{",
+ RowBox[{"0.4", ",", " ", "0.5"}], "}"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{3.492155719825078*^9}]
+},
+WindowSize->{640, 656},
+WindowMargins->{{4, Automatic}, {Automatic, 4}},
+FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[545, 20, 1191, 34, 178, "Input"]
+}
+]
+*)
+
+(* End of internal cache information *)
+
Please sign in to comment.
Something went wrong with that request. Please try again.