class1

class1 - 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 ************** CreatedBy='Mathematica 5.0' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: [email protected] phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 136248, 4499]*) (*NotebookOutlinePosition[ 136876, 4521]*) (* CellTagsIndexPosition[ 136832, 4517]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Computational Lab, Jan. 21, 2005", "Title", FontColor->RGBColor[0, 0, 1]], Cell[CellGroupData[{ Cell["Defining functions and variables", "Section", FontColor->RGBColor[1, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[{
Background image of page 1

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

View Full DocumentRight Arrow Icon
\(f[x_] := 1/Sqrt[2 Pi] Exp[\(-x^2\)/2]\), "\[IndentingNewLine]", \(f[1]\)}], "Input"], Cell[BoxData[ \(1\/\@\(2\ \[ExponentialE]\ \[Pi]\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(a = 5. ;\)\), "\[IndentingNewLine]", \(g[x_] = Sin[a\ x]\ + \ 5*x\), "\[IndentingNewLine]", \(r[x_] := Log[5*x]\ + \ 0.01\ Sin[x]\), "\[IndentingNewLine]", \(a\), "\[IndentingNewLine]", \(5 a\), "\[IndentingNewLine]", \(a\ \ a\), "\[IndentingNewLine]", \(aa\), "\[IndentingNewLine]", \(Clear[a]\), "\[IndentingNewLine]", \(a\)}], "Input"], Cell[BoxData[ \(5\ x + Sin[5.`\ x]\)], "Output"], Cell[BoxData[ \(5.`\)], "Output"], Cell[BoxData[ \(25.`\)], "Output"], Cell[BoxData[ \(25.`\)], "Output"], Cell[BoxData[ \(aa\)], "Output"], Cell[BoxData[ \(a\)], "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Numbers and Numerical Calculations", "Section", FontColor->RGBColor[1, 0, 1]], Cell[CellGroupData[{ Cell[BoxData[{ \(N[Pi, 30]\), "\[IndentingNewLine]", \(N[Sqrt[7], 30]\), "\[IndentingNewLine]", \(4.5*^10\), "\[IndentingNewLine]", \(2.5\ 10^10\), "\[IndentingNewLine]",
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 document was uploaded on 01/07/2012.

Page1 / 73

class1 - 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