Lecture01-2001 - (* Mathematica-Compatible Notebook This...

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

View Full Document Right Arrow Icon
(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 4.0, MathReader 4.0, or any compatible application. 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[ 97902, 2692]*) (*NotebookOutlinePosition[ 98555, 2715]*) (* CellTagsIndexPosition[ 98511, 2711]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Basic Production Function Results", "Title"], Cell[CellGroupData[{ Cell["Univariate Production Function Results", "Section"], Cell[CellGroupData[{
Background image of page 1

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

View Full DocumentRight Arrow Icon
Cell["Total Physical Product", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(f[ x1_] := .0005433\ x1^3/\((Exp[ .01794\ x1] - 1)\);\)\), "\[IndentingNewLine]", \(\(Plot[{f[x1]}, {x1, 0, 160}];\)\)}], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.00595238 0.0147151 0.00440072 [ [.17262 .00222 -6 -9 ] [.17262 .00222 6 0 ] [.32143 .00222 -6 -9 ] [.32143 .00222 6 0 ] [.47024 .00222 -6 -9 ] [.47024 .00222 6 0 ] [.61905 .00222 -9 -9 ] [.61905 .00222 9 0 ] [.76786 .00222 -9 -9 ] [.76786 .00222 9 0 ] [.91667 .00222 -9 -9 ] [.91667 .00222 9 0 ] [.01131 .10273 -12 -4.5 ] [.01131 .10273 0 4.5 ] [.01131 .19074 -12 -4.5 ] [.01131 .19074 0 4.5 ] [.01131 .27876 -12 -4.5 ] [.01131 .27876 0 4.5 ] [.01131 .36677 -12 -4.5 ] [.01131 .36677 0 4.5 ] [.01131 .45479 -18 -4.5 ] [.01131 .45479 0 4.5 ] [.01131 .5428 -18 -4.5 ] [.01131 .5428 0 4.5 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin
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 08/16/2011 for the course AEB 6184 taught by Professor Staff during the Fall '09 term at University of Florida.

Page1 / 47

Lecture01-2001 - (* Mathematica-Compatible Notebook This...

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