Problem10

# Problem10 - (* Content-type: application/mathematica *...

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

(************** 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. f To get the notebook into a Mathematica-compatible application, do one of the following: o * 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). C 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. t 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[ 10510, 279]*) (*NotebookOutlinePosition[ 11240, 304]*) (* CellTagsIndexPosition[ 11196, 300]*) (*WindowFrame->Normal*) ( Notebook[{ N Cell[CellGroupData[{ Cell[BoxData[{ \(\(Apply[Clear, Names["\<Global`*\>"]];\)\), "\n", \(\(Off[General::spell];\)\), "\n", \(\(Off[General::spell1];\)\), "\n", \(\(m = 24;\)\), "\n", \(N1 = 22; N2 = 20; N2p = 35; N4 = 15;

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

View Full Document
N5 = 16;\), "\[IndentingNewLine]", \(\(r1 = m*N1/2;\)\), "\[IndentingNewLine]", \(\(r2 = m*N2/2;\)\), "\[IndentingNewLine]", \(\(r2p = m*N2p/2;\)\), "\[IndentingNewLine]", \(\(r3 = r1 + r2 + r2p;\)\), "\[IndentingNewLine]", \(\(r4 = m*N4/2;\)\), "\[IndentingNewLine]", \(\(r5 = m*N5/2;\)\), "\[IndentingNewLine]", \(\(r6 = r4 + 2\ r5;\)\), "\[IndentingNewLine]", \(\(rA = {0, 0, 0};\)\), "\n", \(\(rB = {0, r1, 0};\)\), "\[IndentingNewLine]", \(\(rC = {xC, r1 + r2, 0};\)\), "\n", \(\(rD = {xD, r1 + \ r2\ + r2p, 0};\)\), "\[IndentingNewLine]", \(\(rE = {xE, 0, 0};\)\), "\n", \(\(rF = {xF, r4, 0};\)\), "\[IndentingNewLine]", \(\(rG = {xG, r4 + r5, 0};\)\), "\n", \(\(rH = {xH, r4 + 2\ r5, 0};\)\), "\[IndentingNewLine]", \(\(rJ = {xJ, 0, 0};\)\), "\[IndentingNewLine]", \(\(n3 = 200;\) (*rpm*) \), "\[IndentingNewLine]", \(n6 = 150; (*rpm*) \[IndentingNewLine]n03 = \(-n3\);\), "\n", \(\(n60 =
This is the end of the preview. Sign up to access the rest of the document.

## This note was uploaded on 08/29/2011 for the course MECH 3230 taught by Professor Staff during the Spring '08 term at Auburn University.

### Page1 / 6

Problem10 - (* Content-type: application/mathematica *...

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

View Full Document
Ask a homework question - tutors are online