T911 - (* 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[ 12834, 352]*) (*NotebookOutlinePosition[ 13464, 374]*) (* CellTagsIndexPosition[ 13420, 370]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ " Problem 9.11 from textbook\n\nThe finite element model corresponds to two \ cubic (hermite) ", Cell[BoxData[ \(TraditionalForm\`C\^1\)]], "interpolation beam elements.\n ", Cell[BoxData[ \(TraditionalForm\`\(\(\ \ \)\(e\_1\)\(\ \ \ \ \ \ \ \ \ \ \)\)\)]], "\t", Cell[BoxData[ \(TraditionalForm\`e\_2\)]],
Background image of page 1

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

View Full DocumentRight Arrow Icon
"\no------------o------------o\n", Cell[BoxData[ \(TraditionalForm\`\(\(U\_1\) \(U\_2\)\(\ \ \ \ \ \ \)\(U\_3\) \ \(U\_\(\(4\)\(\ \ \ \ \ \ \ \)\)\)\(\ \ \ \ \ \ \ \)\(U\_5\)\(\ \)\(U\_6\)\(\ \ \ \)\)\)]], "\nwhere ", Cell[BoxData[ \(TraditionalForm\`U\_2, \ U\_4, \ U\_6\)]], "are rotations. \n\nThe stiffness matrix of a generic element is:\n", Cell[BoxData[ FormBox[ RowBox[{\(K\^e\), "=", RowBox[{\(\(2 \( E\^e\) I\^e\)\/h\^3\), RowBox[{"(", "\[NoBreak]", GridBox[{ {"6", \(\(-3\)\ h\), \(-6\), \(\(-3\)\ h\)}, {\(\(-3\)\ h\), \(2\ h\^2\), \(3\ h\), \(h\^2\)}, {\(-6\), \(3\ h\), "6", \(3\ h\)}, {\(\(-3\)\ h\), \(h\^2\), \(3\ h\), \(2\ h\^2\)} }], ")"}]}]}], TraditionalForm]]], "\nThe variationally-consistent load vector corresponding to a uniformly \ distributed load is:\n\n", Cell[BoxData[ InterpretationBox[ RowBox[{"R", "=", RowBox[{"(", "\[NoBreak]", GridBox[{ {\(-\(\(h\ q\_0\)\/2\)\)}, {\(-\(\(h\^2\ q\_0\)\/12\)\)}, {\(-\(\(h\ q\_0\)\/2\)\)}, {\(\(h\^2\ q\_0\)\/12\)} }], "\[NoBreak]", ")"}]}],
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 11/07/2011 for the course AERO 16.21 taught by Professor Dffs during the Fall '10 term at MIT.

Page1 / 7

T911 - (* 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