(************** Content-type: application/mathematica ************** 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: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 38072, 1377]*) (*NotebookOutlinePosition[ 39086, 1409]*) (* CellTagsIndexPosition[ 39042, 1405]*) (*WindowFrame->Normal*) Notebook[{ Cell[TextData[StyleBox["Problem 11. Using thin-walled assumption", FontFamily->"Times New Roman"]], "Title", CellFrame->{{0, 0}, {0, 3}}, FontFamily->"Courier"], Cell[BoxData[ \(Off[General::spell1, General::spell, Solve::"\"]\)], "Input"], Cell[CellGroupData[{ Cell["Section 1: Web", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Area: ", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(A\_1\ = \ h\ t\ ;\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Horizontal distance from the origin to centroid of web", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(x\&_\_1 = \ 0;\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Vertical distance from the origin to centroid of web", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(y\&_\_1 = \ 0;\)\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 2: Upper Flange", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Area: ", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(A\_2\ = \ h\/2\ t;\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Horizontal distance from the origin to centroid of upper \ flange\ \>", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(x\&_\_2 = \ \(h\/4\) Cos[\[Alpha]]\ ;\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Vertical distance from the origin to centroid of upper flange\ \>", \ "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(y\&_\_2 = h\/2 + \ \(h\/4\) Sin[\[Alpha]]\ ;\)\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 3: Lower Flange", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Area: ", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(A\_3\ = \ h\/2\ t;\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Horizontal distance from the origin to centroid of upper \ flange\ \>", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(x\&_\_3 = \ \(h\/4\) Cos[\[Alpha]]\ ;\)\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Vertical distance from the origin to centroid of upper flange\ \>", \ "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(y\&_\_3 = \(-\(h\/2\)\) - \ \(h\/4\) Sin[\[Alpha]]\ ;\)\)], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringers", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Stringer 1", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[{ \(\(xs\&_\_1 = h\/2\ Cos[\[Alpha]]\ ;\)\), "\[IndentingNewLine]", \(\(ys\&_\_1 = h\/2 + \ h\/2\ Sin[\[Alpha]]\ ;\)\), "\[IndentingNewLine]", \(\(As\_1\ = \ \(h\ t\)\/2\ ;\)\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 2", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[{ \(\(xs\&_\_2 = \ 0\ ;\)\), "\[IndentingNewLine]", \(\(ys\&_\_2 = \ h\/2\ ;\)\), "\[IndentingNewLine]", \(\(As\_2\ = \ \(h\ t\)\/2\ ;\)\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 3", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[{ \(\(xs\&_\_3 = \ 0\ ;\)\), "\[IndentingNewLine]", \(\(ys\&_\_3 = \ \(-\(h\/2\)\)\ ;\)\), "\[IndentingNewLine]", \(\(As\_3\ = \ \(h\ t\)\/2\ ;\)\)}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 4", "Subsection", FontFamily->"Times New Roman"], Cell[BoxData[{ \(\(xs\&_\_4 = \ h\/2\ Cos[\[Alpha]]\ ;\)\), "\[IndentingNewLine]", \(\(ys\&_\_4 = \(-\(h\/2\)\)\ - h\/2\ Sin[\[Alpha]]\ ;\)\), "\[IndentingNewLine]", \(\(As\_4\ = \ \(h\ t\)\/2\ ;\)\)}], "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Total Cross sectional Area of the beam", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Total area", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(A\_\(\(T\)\(\ \)\) = \ ExpandAll[\[Sum]\+\(j = 1\)\%3 A\_j\ + \ \[Sum]\+\(j = 1\)\%4 \ As\_j];\)\), "\[IndentingNewLine]", \(Print[\*"\"\\"", \ A\_\(\(T\)\(\ \)\)]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("The total area is \!\(A\_\(\(T\)\(\\ \)\)\) = "\ \[InvisibleSpace]\(4\ h\ t\)\), SequenceForm[ "The total area is \!\(A\_\(\(T\)\(\\ \)\)\) = ", Times[ 4, h, t]], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Centroid: ", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[\(x\&_\), "TraditionalForm"], "G"], TraditionalForm]]], " (let's place the origin at the middle of the web)" }], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[TextData[{ "Sum ", Cell[BoxData[ \(Ax\ = \[Sum]\+\(j = 1\)\%2\( A\_j\) x\&_\_j\)]] }], "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(Print["\"]\), "\ \[IndentingNewLine]", \(\(Qx = ExpandAll[\ \((\[Sum]\+\(j = 1\)\%3\( A\_j\) x\&_\_j\ )\)\ + \ \((\[Sum]\+\(j = 1\)\%4\( As\_j\) xs\&_\_j\ )\)\ ];\)\), "\[IndentingNewLine]", \(Print["\< Qx = \>", Qx]\)}], "Input"], Cell[BoxData[ \("The first moment of area about the ED is:"\)], "Print"], Cell[BoxData[ InterpretationBox[\(" Qx = "\[InvisibleSpace]\(3\/4\ h\^2\ t\ \ Cos[\[Alpha]]\)\), SequenceForm[ " Qx = ", Times[ Rational[ 3, 4], Power[ h, 2], t, Cos[ \[Alpha]]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Centroid: ", Cell[BoxData[ \(\(\(x\&_\_G\)\(=\)\(\(Sum\ of\ all\ \(A\_j\) x\&_\_j\)\/\(Total\ Area\)\)\(\ \)\)\)]] }], "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(Print["\"]\), "\[IndentingNewLine]", \(\(x\&_\_G = ExpandAll[\ FullSimplify[\((Qx\/A\_T\ )\)\ ]];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(x\&_\_G\) =\>\"", x\&_\_G]\)}], "Input"], Cell[BoxData[ \("The centroid is located at "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(x\&_\_G\) ="\[InvisibleSpace]\(3\/16\ h\ Cos[\ \[Alpha]]\)\), SequenceForm[ "\!\(x\&_\_G\) =", Times[ Rational[ 3, 16], h, Cos[ \[Alpha]]]], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Centroid: ", Cell[BoxData[ FormBox[ SubscriptBox[ FormBox[\(y\&_\), "TraditionalForm"], "G"], TraditionalForm]]], " (let's place the origin at point B)" }], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[TextData[{ "Sum ", Cell[BoxData[ \(Ay\ = \[Sum]\+\(j = 1\)\%2\( A\_j\) y\&_\_j\)]] }], "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Qy = ExpandAll[\ \((\[Sum]\+\(j = 1\)\%3\( A\_j\) y\&_\_j\ )\)\ + \ \((\[Sum]\+\(j = 1\)\%4\( As\_j\) ys\&_\_j\ )\)];\)\), "\[IndentingNewLine]", \(Print["\"]\), "\ \[IndentingNewLine]", \(Print["\< Qy = \>", Expand[Qy], "\< = \>", \ Qy\ ]\)}], "Input"], Cell[BoxData[ \("The first moment of area about the EF is:"\)], "Print"], Cell[BoxData[ InterpretationBox[\(" Qy = "\[InvisibleSpace]0\[InvisibleSpace]" = "\ \[InvisibleSpace]0\), SequenceForm[ " Qy = ", 0, " = ", 0], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Centroid: ", Cell[BoxData[ \(\(\(y\&_\_G\)\(=\)\(\(Sum\ of\ all\ \(A\_j\) y\&_\_j\)\/\(Total\ Area\)\)\(\ \)\)\)]] }], "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(Print["\"]\), "\[IndentingNewLine]", \(\(y\&_\_G = ExpandAll[\ FullSimplify[\((Qy\/A\_T\ )\)]];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(y\&_\_G\) =\>\"", y\&_\_G]\)}], "Input"], Cell[BoxData[ \("The centroid is located at "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(y\&_\_G\) ="\[InvisibleSpace]0\), SequenceForm[ "\!\(y\&_\_G\) =", 0], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Second Moment of Area ", Cell[BoxData[ \(\[CapitalIota]\_xx\)]], " about the neutral axis ( which is located at centroid C)" }], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Section 1: Web", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dy\_1 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xc1 = \(\((t)\) \((h)\)\^3\)\/12;\)\), "\ \[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xx1 = \ ExpandAll[\ \[CapitalIota]\_xc1\ + \ \(A\_1\) dy\_1\^2];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_xx1\) =\>\"", \ \[CapitalIota]\_xx1]\)}], "Input"], Cell[BoxData[ \("The second moment of area about the neutral axis for the web is: "\)], \ "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_xx1\) ="\[InvisibleSpace]\(h\^3\ \ t\)\/12\), SequenceForm[ "\!\(\[CapitalIota]\_xx1\) =", Times[ Rational[ 1, 12], Power[ h, 3], t]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 2: Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dy\_2 = 1\/2\ h\ + 1\/4\ h\ Sin[\[Alpha]];\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xc2 = \(\(\((t)\) \((h/2)\)\^3\)\/12\) Sin[\[Alpha]]\^2;\)\), "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xx2 = \ ExpandAll[\ \[CapitalIota]\_xc2\ + \ \(A\_2\) dy\_2\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_xx2\) =\>\"", \ \[CapitalIota]\_xx2]\)}], "Input"], Cell[BoxData[ \("The second moment of area about the neutral axis for the flange is: \ "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_xx2\) \ ="\[InvisibleSpace]\(\(h\^3\ t\)\/8 + 1\/8\ h\^3\ t\ Sin[\[Alpha]] + 1\/24\ h\^3\ t\ Sin[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]\_xx2\) =", Plus[ Times[ Rational[ 1, 8], Power[ h, 3], t], Times[ Rational[ 1, 8], Power[ h, 3], t, Sin[ \[Alpha]]], Times[ Rational[ 1, 24], Power[ h, 3], t, Power[ Sin[ \[Alpha]], 2]]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 3: Lower Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dy\_3 = \(-\(1\/2\)\)\ h\ - 1\/4\ h\ Sin[\[Alpha]];\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xc3 = \(\(\((t)\) \((h/2)\)\^3\)\/12\) Sin[\[Alpha]]\^2;\)\), "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xx3 = \ ExpandAll[\ \[CapitalIota]\_xc3\ + \ \(A\_3\) dy\_3\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_xx3\) =\>\"", \ \[CapitalIota]\_xx3]\)}], "Input"], Cell[BoxData[ \("The second moment of area about the neutral axis for the flange is: \ "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_xx3\) \ ="\[InvisibleSpace]\(\(h\^3\ t\)\/8 + 1\/8\ h\^3\ t\ Sin[\[Alpha]] + 1\/24\ h\^3\ t\ Sin[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]\_xx3\) =", Plus[ Times[ Rational[ 1, 8], Power[ h, 3], t], Times[ Rational[ 1, 8], Power[ h, 3], t, Sin[ \[Alpha]]], Times[ Rational[ 1, 24], Power[ h, 3], t, Power[ Sin[ \[Alpha]], 2]]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 1: Upper Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dys\_1 = 1\/2\ h\ + 1\/2\ h\ Sin[\[Alpha]];\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xc1 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xx1 = \ ExpandAll[\ \[CapitalIota]s\_xc1\ + \ \(As\_1\) dys\_1\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_xx1\) =\>\"", \ \[CapitalIota]s\_xx1]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_xx1\) \ ="\[InvisibleSpace]\(\(h\^3\ t\)\/8 + 1\/4\ h\^3\ t\ Sin[\[Alpha]] + 1\/8\ h\^3\ t\ Sin[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]s\_xx1\) =", Plus[ Times[ Rational[ 1, 8], Power[ h, 3], t], Times[ Rational[ 1, 4], Power[ h, 3], t, Sin[ \[Alpha]]], Times[ Rational[ 1, 8], Power[ h, 3], t, Power[ Sin[ \[Alpha]], 2]]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 2: Upper Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dys\_2 = 1\/2\ h\ ;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xc2 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xx2 = \ ExpandAll[\ \[CapitalIota]s\_xc2\ + \ \(As\_2\) dys\_2\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_xx2\) =\>\"", \ \[CapitalIota]s\_xx2]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_xx2\) ="\[InvisibleSpace]\(h\^3\ \ t\)\/8\), SequenceForm[ "\!\(\[CapitalIota]s\_xx2\) =", Times[ Rational[ 1, 8], Power[ h, 3], t]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 3: Lower Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dys\_3 = \(-\(1\/2\)\)\ h\ ;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xc3 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xx3 = \ ExpandAll[\ \[CapitalIota]s\_xc3\ + \ \(As\_3\) dys\_3\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_xx3\) =\>\"", \ \[CapitalIota]s\_xx3]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_xx3\) ="\[InvisibleSpace]\(h\^3\ \ t\)\/8\), SequenceForm[ "\!\(\[CapitalIota]s\_xx3\) =", Times[ Rational[ 1, 8], Power[ h, 3], t]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 4: Lower Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dys\_4 = \(-\(1\/2\)\)\ h\ - 1\/2\ h\ Sin[\[Alpha]];\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xc4 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_xx4 = \ ExpandAll[\ \[CapitalIota]s\_xc4\ + \ \(As\_4\) dys\_4\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_xx4\) =\>\"", \ \[CapitalIota]s\_xx4]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_xx4\) \ ="\[InvisibleSpace]\(\(h\^3\ t\)\/8 + 1\/4\ h\^3\ t\ Sin[\[Alpha]] + 1\/8\ h\^3\ t\ Sin[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]s\_xx4\) =", Plus[ Times[ Rational[ 1, 8], Power[ h, 3], t], Times[ Rational[ 1, 4], Power[ h, 3], t, Sin[ \[Alpha]]], Times[ Rational[ 1, 8], Power[ h, 3], t, Power[ Sin[ \[Alpha]], 2]]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Total", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xx = ExpandAll[ FullSimplify[\ \[CapitalIota]\_xx1 + \[CapitalIota]\_xx2 + \ \[CapitalIota]\_xx3 + \[CapitalIota]s\_xx1 + \[CapitalIota]s\_xx2 + \ \[CapitalIota]s\_xx3 + \[CapitalIota]s\_xx4]];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_xx\) =\>\"", \[CapitalIota]\_xx]\)}], \ "Input"], Cell[BoxData[ \("The second moment of area, using thin-wall assumption, about the \ neutral axis is: "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_xx\) ="\[InvisibleSpace]\(\(5\ h\ \^3\ t\)\/6 + 3\/4\ h\^3\ t\ Sin[\[Alpha]] + 1\/3\ h\^3\ t\ Sin[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]\_xx\) =", Plus[ Times[ Rational[ 5, 6], Power[ h, 3], t], Times[ Rational[ 3, 4], Power[ h, 3], t, Sin[ \[Alpha]]], Times[ Rational[ 1, 3], Power[ h, 3], t, Power[ Sin[ \[Alpha]], 2]]]], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Second Moment of Area ", Cell[BoxData[ \(\[CapitalIota]\_yy\)]], " about the neutral axis ( which is located at centroid C)" }], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Section 1: Web", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dx\_1 = \(-x\&_\_G\);\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yc1 = 0;\)\), "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yy1 = \ ExpandAll[\[CapitalIota]\_yc1\ + \ \(A\_1\) dx\_1\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_yy1\) =\>\"", \ \[CapitalIota]\_yy1]\)}], "Input"], Cell[BoxData[ \("The second moment of area about the neutral axis for the web is: "\)], \ "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_yy1\) \ ="\[InvisibleSpace]\(9\/256\ h\^3\ t\ Cos[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]\_yy1\) =", Times[ Rational[ 9, 256], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 2: Upper Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dx\_2 = \(h\/4\) Cos[\[Alpha]] - x\&_\_G;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yc2 = \(\(\((t)\) \((h/2)\)\^3\)\/12\) Cos[\[Alpha]]\^2;\)\), "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yy2 = \ ExpandAll[\[CapitalIota]\_yc2\ + \ \(A\_2\) dx\_2\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_yy2\) =\>\"", \ \[CapitalIota]\_yy2]\)}], "Input"], Cell[BoxData[ \("The second moment of area about the neutral axis for the flange is: \ "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_yy2\) ="\[InvisibleSpace]\(19\ h\ \^3\ t\ Cos[\[Alpha]]\^2\)\/1536\), SequenceForm[ "\!\(\[CapitalIota]\_yy2\) =", Times[ Rational[ 19, 1536], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Section 3: Lower Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dx\_3 = \(h\/4\) Cos[\[Alpha]] - x\&_\_G;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yc3 = \(\(\((t)\) \((h/2)\)\^3\)\/12\) Cos[\[Alpha]]\^2;\)\), "\[IndentingNewLine]", \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yy3 = \ ExpandAll[\[CapitalIota]\_yc3\ + \ \(A\_3\) dx\_3\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_yy3\) =\>\"", \ \[CapitalIota]\_yy3]\)}], "Input"], Cell[BoxData[ \("The second moment of area about the neutral axis for the flange is: \ "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_yy3\) ="\[InvisibleSpace]\(19\ h\ \^3\ t\ Cos[\[Alpha]]\^2\)\/1536\), SequenceForm[ "\!\(\[CapitalIota]\_yy3\) =", Times[ Rational[ 19, 1536], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 1: Upper Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dxs\_1 = 1\/2\ h\ Cos[\[Alpha]] - x\&_\_G;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yc1 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yy1 = \ ExpandAll[\ \[CapitalIota]s\_yc1\ + \ \(As\_1\) dxs\_1\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_yy1\) =\>\"", \ \[CapitalIota]s\_yy1]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_yy1\) \ ="\[InvisibleSpace]\(25\/512\ h\^3\ t\ Cos[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]s\_yy1\) =", Times[ Rational[ 25, 512], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 2: Upper Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dxs\_2 = \(-x\&_\_G\);\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yc2 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yy2 = \ ExpandAll[\ \[CapitalIota]s\_yc2\ + \ \(As\_2\) dxs\_2\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_yy2\) =\>\"", \ \[CapitalIota]s\_yy2]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_yy2\) \ ="\[InvisibleSpace]\(9\/512\ h\^3\ t\ Cos[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]s\_yy2\) =", Times[ Rational[ 9, 512], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 3: Lower Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dxs\_3 = \(-x\&_\_G\);\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yc3 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yy3 = \ ExpandAll[\ \[CapitalIota]s\_yc3\ + \ \(As\_3\) dxs\_3\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_yy3\) =\>\"", \ \[CapitalIota]s\_yy3]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_yy3\) \ ="\[InvisibleSpace]\(9\/512\ h\^3\ t\ Cos[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]s\_yy3\) =", Times[ Rational[ 9, 512], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Stringer 4: Lower Flange", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(dxs\_4 = 1\/2\ h\ Cos[\[Alpha]] - x\&_\_G;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yc4 = 0;\)\), "\[IndentingNewLine]", \(\(\[CapitalIota]s\_yy4 = \ ExpandAll[\ \[CapitalIota]s\_yc4\ + \ \(As\_4\) dxs\_4\^2\ ];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]s\_yy4\) =\>\"", \ \[CapitalIota]s\_yy4]\)}], "Input"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]s\_yy4\) \ ="\[InvisibleSpace]\(25\/512\ h\^3\ t\ Cos[\[Alpha]]\^2\)\), SequenceForm[ "\!\(\[CapitalIota]s\_yy4\) =", Times[ Rational[ 25, 512], Power[ h, 3], t, Power[ Cos[ \[Alpha]], 2]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Total", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_yy = ExpandAll[ FullSimplify[\ \[CapitalIota]\_yy1 + \[CapitalIota]\_yy2 + \ \[CapitalIota]\_yy3 + \[CapitalIota]s\_yy1 + \[CapitalIota]s\_yy2 + \ \[CapitalIota]s\_yy3 + \[CapitalIota]s\_yy4]];\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_yy\) =\>\"", \[CapitalIota]\_yy\ /. \ \ \[Alpha]\ \[Rule] \ \[Pi]\/4\ ]\)}], "Input"], Cell[BoxData[ \("The second moment of area, using thin-wall assumption, about the \ neutral axis is: "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_yy\) ="\[InvisibleSpace]\(37\ \ h\^3\ t\)\/384\), SequenceForm[ "\!\(\[CapitalIota]\_yy\) =", Times[ Rational[ 37, 384], Power[ h, 3], t]], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Second Moment of Area ", Cell[BoxData[ \(\[CapitalIota]\_xy\)]], " about the neutral axis ( which is located at centroid C)" }], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Total", "Subsection", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[{ \(Print["\"]\), "\[IndentingNewLine]", \(\(\[CapitalIota]\_xy = 0;\)\), "\[IndentingNewLine]", \(Print[\*"\"\<\!\(\[CapitalIota]\_xy\) =\>\"", \[CapitalIota]\_xy]\)}], \ "Input"], Cell[BoxData[ \("Because of symmetry: "\)], "Print"], Cell[BoxData[ InterpretationBox[\("\!\(\[CapitalIota]\_xy\) ="\[InvisibleSpace]0\), SequenceForm[ "\!\(\[CapitalIota]\_xy\) =", 0], Editable->False]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(FullSimplify[\(\[CapitalIota]\_xx\) \[CapitalIota]\_yy - \(\ \[CapitalIota]\_xy\) \[CapitalIota]\_xy\ /. \ \ \[Alpha]\ \[Rule] \ \ \[Pi]\/4. ]\)], "Input"], Cell[BoxData[ \(0.14745368015085078`\ h\^6\ t\^2\)], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Contours", "Section", FontFamily->"Times New Roman"], Cell[BoxData[ \(\(yy\_\(i_, j_\) = \(\(y\_j - y\_i\)\/\(s\_j - s\_i\)\) s\_\(i, j\) + b\_\(i, j\);\)\)], "Input"], Cell[CellGroupData[{ Cell["Branch 43", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(y\_4 = \(-h\)/2\ - \ h\ Sin[45 \[Degree]]/2;\)\), "\[IndentingNewLine]", \(\(s\_4 = \ 0;\)\), "\[IndentingNewLine]", \(\(y\_3 = \ \(-h\)/2;\)\), "\[IndentingNewLine]", \(\(s\_3 = h/2;\)\), "\[IndentingNewLine]", \(\(ans43 = Flatten[Solve[ yy\_\(4, 3\) \[Equal] y\_4\ /. \ s\_\(4, 3\) \[Rule] 0, \ b\_\(4, 3\)]];\)\), "\[IndentingNewLine]", \(\(yy\_43\ \ = \ \(yy\_\(4, 3\)\ \ /. \ ans43\)\ /. \ {s\_\(4, 3\) \[Rule] \ s\_43};\)\), "\[IndentingNewLine]", \(Print[\*"\"\< \!\(y\_43\)(\!\(s\_43\)) = \>\"", \ yy\_43]\), "\[IndentingNewLine]", \(\(t\_43\ = t;\)\)}], "Input"], Cell[BoxData[ InterpretationBox[\(" \!\(y\_43\)(\!\(s\_43\)) = \ "\[InvisibleSpace]\(\(-\(h\/2\)\) - h\/\(2\ \@2\) + s\_43\/\@2\)\), SequenceForm[ " \!\(y\_43\)(\!\(s\_43\)) = ", Plus[ Times[ Rational[ -1, 2], h], Times[ Rational[ -1, 2], Power[ 2, Rational[ -1, 2]], h], Times[ Power[ 2, Rational[ -1, 2]], Subscript[ s, 43]]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Branch 32", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(y\_2 = h/2\ ;\)\), "\[IndentingNewLine]", \(\(s\_2 = h;\)\), "\[IndentingNewLine]", \(\(y\_3 = \ \(-h\)/2;\)\), "\[IndentingNewLine]", \(\(s\_3 = 0;\)\), "\[IndentingNewLine]", \(\(ans32 = Flatten[Solve[ yy\_\(3, 2\) \[Equal] y\_3\ /. \ s\_\(3, 2\) \[Rule] 0, \ b\_\(3, 2\)]];\)\), "\[IndentingNewLine]", \(\(yy\_32\ \ = \ \(yy\_\(3, 2\)\ \ /. \ ans32\)\ /. \ {s\_\(3, 2\) \[Rule] \ s\_32};\)\), "\[IndentingNewLine]", \(Print[\*"\"\< \!\(y\_32\)(\!\(s\_32\)) = \>\"", \ yy\_32]\), "\[IndentingNewLine]", \(\(t\_32\ = t;\)\)}], "Input"], Cell[BoxData[ InterpretationBox[\(" \!\(y\_32\)(\!\(s\_32\)) = \ "\[InvisibleSpace]\(\(-\(h\/2\)\) + s\_32\)\), SequenceForm[ " \!\(y\_32\)(\!\(s\_32\)) = ", Plus[ Times[ Rational[ -1, 2], h], Subscript[ s, 32]]], Editable->False]], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Branch 21", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ \(\(y\_2 = h/2\ ;\)\), "\[IndentingNewLine]", \(\(s\_2 = \ 0;\)\), "\[IndentingNewLine]", \(\(y\_1 = \ h/2\ + \ h\ Sin[45 \[Degree]]/2;\)\), "\[IndentingNewLine]", \(\(s\_1 = \ h/2;\)\), "\[IndentingNewLine]", \(\(ans21 = Flatten[Solve[ yy\_\(2, 1\) \[Equal] y\_2\ /. \ s\_\(2, \ 1\) \[Rule] 0, \ b\_\(2, \ 1\)]];\)\), "\[IndentingNewLine]", \(\(\(yy\_21\ \ = \ \(yy\_\(2, 1\)\ \ /. \ ans21\)\ /. \ {s\_\(2, 1\) \[Rule] \ s\_21};\);\)\), "\[IndentingNewLine]", \(Print[\*"\"\< \!\(y\_21\)(\!\(s\_21\)) = \>\"", \ yy\_21]\), "\[IndentingNewLine]", \(\(t\_21\ = t;\)\)}], "Input"], Cell[BoxData[ InterpretationBox[\(" \!\(y\_21\)(\!\(s\_21\)) = "\[InvisibleSpace]\(h\/2 \ + s\_21\/\@2\)\), SequenceForm[ " \!\(y\_21\)(\!\(s\_21\)) = ", Plus[ Times[ Rational[ 1, 2], h], Times[ Power[ 2, Rational[ -1, 2]], Subscript[ s, 21]]]], Editable->False]], "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Shear Flow", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell["Across stringer 4:", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(\(\(q\_40\)\(=\)\(0\)\(\ \ \)\( (*\ because\ it\ is\ free\ edge\ \ *) \)\)\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(q\_4 = FullSimplify[ q\_40\ - \ \(S\_y\/\[CapitalIota]\_xx\) As\_4\ ys\&_\_4\ /. {\[Alpha] \[Rule] \ 45 \[Degree]}]\)], "Input"], Cell[BoxData[ \(\(\((5 + \@2)\)\ S\_y\)\/\(23\ h\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Across branch 43:", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(q\_43 = ExpandAll[ FullSimplify[ q\_4\ - \ \(S\_y\/\[CapitalIota]\_xx\) \(\[Integral]\_0\%s\( yy\_43\) \(t\_43\) \[DifferentialD]s\_43\)\ /. {\ \[Alpha] \[Rule] \ 45 \[Degree]}]]\)], "Input"], Cell[BoxData[ \(\(2\ h\^2\ S\_y\)\/\(8\ h\^3 + 3\ \@2\ h\^3\) + \(\@2\ h\^2\ \ S\_y\)\/\(8\ h\^3 + 3\ \@2\ h\^3\) + \(4\ h\ s\ S\_y\)\/\(8\ h\^3 + 3\ \@2\ h\ \^3\) + \(2\ \@2\ h\ s\ S\_y\)\/\(8\ h\^3 + 3\ \@2\ h\^3\) - \(2\ \@2\ s\^2\ \ S\_y\)\/\(8\ h\^3 + 3\ \@2\ h\^3\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Across stringer 3: ", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(q\_30 = FullSimplify[q\_43\ /. \ s \[Rule] \ h/2]\)], "Input"], Cell[BoxData[ \(S\_y\/\(2\ h\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(q\_3 = FullSimplify[ q\_30\ - \ \(S\_y\/\[CapitalIota]\_xx\) As\_3\ ys\&_\_3\ /. {\ \[Alpha] \[Rule] \ 45 \[Degree]}]\)], "Input"], Cell[BoxData[ \(\(3\ \((13 - 2\ \@2)\)\ S\_y\)\/\(46\ h\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Across branch 32:", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(q\_32 = ExpandAll[ FullSimplify[ q\_3\ - \ \(S\_y\/\[CapitalIota]\_xx\) \(\[Integral]\_0\%s\( yy\_32\) \(t\_32\) \[DifferentialD]s\_32\)\ /. {\ \[Alpha] \[Rule] \ 45 \[Degree]}]]\)], "Input"], Cell[BoxData[ \(\(12\ h\^2\ S\_y\)\/\(16\ h\^3 + 6\ \@2\ h\^3\) + \(3\ \@2\ h\^2\ \ S\_y\)\/\(16\ h\^3 + 6\ \@2\ h\^3\) + \(8\ h\ s\ S\_y\)\/\(16\ h\^3 + 6\ \@2\ \ h\^3\) - \(8\ s\^2\ S\_y\)\/\(16\ h\^3 + 6\ \@2\ h\^3\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Across stringer 2: ", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(q\_20 = FullSimplify[q\_32\ /. \ s \[Rule] \ h]\)], "Input"], Cell[BoxData[ \(\(3\ \((13 - 2\ \@2)\)\ S\_y\)\/\(46\ h\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(q\_2 = FullSimplify[ q\_20\ - \ \(S\_y\/\[CapitalIota]\_xx\) As\_2\ ys\&_\_2\ /. {\ \[Alpha] \[Rule] \ 45 \[Degree]}]\)], "Input"], Cell[BoxData[ \(S\_y\/\(2\ h\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Across branch 21:", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(q\_21 = FullSimplify[ q\_2\ - \ \(S\_y\/\[CapitalIota]\_xx\) \(\[Integral]\_0\%s\( yy\_21\) \(t\_21\) \[DifferentialD]s\_21\)\ /. {\ \[Alpha] \[Rule] \ 45 \[Degree]}]\)], "Input"], Cell[BoxData[ \(\(\((8\ h\ \((h - s)\) + \@2\ \((3\ h\^2 - 4\ s\^2)\))\)\ S\_y\)\/\(2\ \ \((8 + 3\ \@2)\)\ h\^3\)\)], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Across stringer 1: ", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ \(q\_10 = FullSimplify[q\_21\ /. \ s \[Rule] \ h/2]\)], "Input"], Cell[BoxData[ \(\(\((5 + \@2)\)\ S\_y\)\/\(23\ h\)\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(q\_1 = FullSimplify[ q\_10\ - \ \(S\_y\/\[CapitalIota]\_xx\) As\_1\ ys\&_\_1\ /. {\ \[Alpha] \[Rule] \ 45 \[Degree]}]\)], "Input"], Cell[BoxData[ \(0\)], "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Shear Center", "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[BoxData[ \(T = \(-S\_y\) \[Xi]\_s\)], "Input"], Cell[BoxData[ \(\(-S\_y\)\ \[Xi]\_s\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(T\_d = \(-FullSimplify[\[Integral]\_0\%\(h/2\)h\ Cos[ 45 \[Degree]] \(q\_43\) \[DifferentialD]s]\)\)], "Input"], Cell[BoxData[ \(\(-\(1\/276\)\)\ \((5 + 24\ \@2)\)\ h\ S\_y\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(\(Ans = FullSimplify[ Flatten[Solve[T == T\_d, \[Xi]\_s]]];\)\), "\[IndentingNewLine]", \(Ans\), "\[IndentingNewLine]", \(Ans\ // N\)}], "Input"], Cell[BoxData[ \({\[Xi]\_s \[Rule] 1\/276\ \((5 + 24\ \@2)\)\ h}\)], "Output"], Cell[BoxData[ \({\[Xi]\_s \[Rule] 0.14109103440925466`\ h}\)], "Output"] }, Open ]] }, Open ]] }, FrontEndVersion->"4.1 for Microsoft Windows", ScreenRectangle->{{0, 1400}, {0, 1005}}, WindowToolbars->{"RulerBar", "EditBar"}, WindowSize->{829, 833}, WindowMargins->{{4, Automatic}, {Automatic, 34}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PageHeaders->{{Inherited, Inherited, Inherited}, {Cell[ TextData[ {"Soln to Homework 11"}], "Header"], Inherited, Inherited}}, ShowCellLabel->False, PrivateFontOptions->{"FontType"->"Outline"}, Magnification->1.5, StyleDefinitions -> "Classroom.nb" ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1705, 50, 166, 3, 174, "Title"], Cell[1874, 55, 88, 1, 71, "Input"], Cell[CellGroupData[{ Cell[1987, 60, 66, 1, 90, "Section"], Cell[CellGroupData[{ Cell[2078, 65, 61, 1, 74, "Subsection"], Cell[2142, 68, 55, 1, 71, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2234, 74, 109, 1, 74, "Subsection"], Cell[2346, 77, 51, 1, 71, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2434, 83, 107, 1, 74, "Subsection"], Cell[2544, 86, 51, 1, 71, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2644, 93, 75, 1, 90, "Section"], Cell[CellGroupData[{ Cell[2744, 98, 61, 1, 74, "Subsection"], Cell[2808, 101, 56, 1, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2901, 107, 128, 4, 74, "Subsection"], Cell[3032, 113, 74, 1, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3143, 119, 126, 4, 74, "Subsection"], Cell[3272, 125, 81, 1, 90, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3402, 132, 75, 1, 90, "Section"], Cell[CellGroupData[{ Cell[3502, 137, 61, 1, 74, "Subsection"], Cell[3566, 140, 56, 1, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3659, 146, 128, 4, 74, "Subsection"], Cell[3790, 152, 74, 1, 90, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3901, 158, 126, 4, 74, "Subsection"], Cell[4030, 164, 90, 1, 90, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4169, 171, 61, 1, 90, "Section"], Cell[CellGroupData[{ Cell[4255, 176, 65, 1, 74, "Subsection"], Cell[4323, 179, 225, 4, 187, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4585, 188, 65, 1, 74, "Subsection"], Cell[4653, 191, 178, 3, 166, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4868, 199, 65, 1, 74, "Subsection"], Cell[4936, 202, 187, 3, 166, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5160, 210, 65, 1, 74, "Subsection"], Cell[5228, 213, 238, 4, 187, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5515, 223, 90, 1, 90, "Section"], Cell[CellGroupData[{ Cell[5630, 228, 65, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[5720, 233, 272, 5, 137, "Input"], Cell[5995, 240, 250, 5, 34, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6306, 252, 273, 9, 90, "Section"], Cell[CellGroupData[{ Cell[6604, 265, 150, 5, 74, "Subsection"], Cell[CellGroupData[{ Cell[6779, 274, 353, 7, 167, "Input"], Cell[7135, 283, 76, 1, 34, "Print"], Cell[7214, 286, 265, 8, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7528, 300, 207, 6, 75, "Subsection"], Cell[CellGroupData[{ Cell[7760, 310, 266, 5, 148, "Input"], Cell[8029, 317, 62, 1, 34, "Print"], Cell[8094, 320, 254, 7, 47, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8409, 334, 259, 9, 90, "Section"], Cell[CellGroupData[{ Cell[8693, 347, 150, 5, 74, "Subsection"], Cell[CellGroupData[{ Cell[8868, 356, 378, 7, 163, "Input"], Cell[9249, 365, 76, 1, 34, "Print"], Cell[9328, 368, 187, 4, 34, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9564, 378, 207, 6, 75, "Subsection"], Cell[CellGroupData[{ Cell[9796, 388, 264, 5, 148, "Input"], Cell[10063, 395, 62, 1, 34, "Print"], Cell[10128, 398, 153, 3, 34, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10342, 408, 201, 6, 127, "Section"], Cell[CellGroupData[{ Cell[10568, 418, 69, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[10662, 423, 498, 10, 252, "Input"], Cell[11163, 435, 102, 2, 57, "Print"], Cell[11268, 439, 264, 7, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11581, 452, 72, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[11678, 457, 577, 11, 273, "Input"], Cell[12258, 470, 105, 2, 57, "Print"], Cell[12366, 474, 608, 18, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13023, 498, 78, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[13126, 503, 588, 11, 273, "Input"], Cell[13717, 516, 105, 2, 57, "Print"], Cell[13825, 520, 608, 18, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14482, 544, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[14586, 549, 409, 8, 169, "Input"], Cell[14998, 559, 608, 18, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[15655, 583, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[15759, 588, 375, 7, 169, "Input"], Cell[16137, 597, 264, 7, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16450, 610, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[16554, 615, 384, 7, 169, "Input"], Cell[16941, 624, 264, 7, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[17254, 637, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[17358, 642, 420, 8, 169, "Input"], Cell[17781, 652, 608, 18, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18438, 676, 60, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[18523, 681, 499, 9, 224, "Input"], Cell[19025, 692, 119, 2, 57, "Print"], Cell[19147, 696, 607, 18, 51, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[19815, 721, 201, 6, 127, "Section"], Cell[CellGroupData[{ Cell[20041, 731, 69, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[20135, 736, 482, 9, 224, "Input"], Cell[20620, 747, 102, 2, 57, "Print"], Cell[20725, 751, 338, 9, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21112, 766, 78, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[21215, 771, 575, 11, 273, "Input"], Cell[21793, 784, 105, 2, 57, "Print"], Cell[21901, 788, 342, 9, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22292, 803, 78, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[22395, 808, 575, 11, 273, "Input"], Cell[22973, 821, 105, 2, 57, "Print"], Cell[23081, 825, 342, 9, 51, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[23472, 840, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[23576, 845, 407, 8, 169, "Input"], Cell[23986, 855, 342, 9, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[24377, 870, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[24481, 875, 378, 7, 148, "Input"], Cell[24862, 884, 340, 9, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25251, 899, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[25355, 904, 378, 7, 148, "Input"], Cell[25736, 913, 340, 9, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26125, 928, 79, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[26229, 933, 407, 8, 169, "Input"], Cell[26639, 943, 342, 9, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27030, 958, 60, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[27115, 963, 539, 9, 241, "Input"], Cell[27657, 974, 120, 2, 57, "Print"], Cell[27780, 978, 269, 7, 51, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28110, 992, 201, 6, 127, "Section"], Cell[CellGroupData[{ Cell[28336, 1002, 60, 1, 74, "Subsection"], Cell[CellGroupData[{ Cell[28421, 1007, 231, 4, 122, "Input"], Cell[28655, 1013, 56, 1, 34, "Print"], Cell[28714, 1016, 175, 3, 34, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[28926, 1024, 177, 3, 87, "Input"], Cell[29106, 1029, 66, 1, 71, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[29233, 1037, 60, 1, 90, "Section"], Cell[29296, 1040, 128, 2, 93, "Input"], Cell[CellGroupData[{ Cell[29449, 1046, 31, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[29505, 1050, 716, 15, 251, "Input"], Cell[30224, 1067, 510, 15, 54, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30783, 1088, 31, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[30839, 1092, 668, 14, 251, "Input"], Cell[31510, 1108, 301, 8, 47, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[31860, 1122, 31, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[31916, 1126, 721, 15, 251, "Input"], Cell[32640, 1143, 374, 11, 54, "Print"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33075, 1161, 62, 1, 90, "Section"], Cell[CellGroupData[{ Cell[33162, 1166, 40, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[33227, 1170, 116, 2, 71, "Input"], Cell[33346, 1174, 35, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33418, 1180, 196, 5, 93, "Input"], Cell[33617, 1187, 68, 1, 92, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33734, 1194, 39, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[33798, 1198, 264, 6, 122, "Input"], Cell[34065, 1206, 289, 4, 155, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34403, 1216, 41, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[34469, 1220, 83, 1, 71, "Input"], Cell[34555, 1223, 48, 1, 84, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34640, 1229, 198, 5, 93, "Input"], Cell[34841, 1236, 75, 1, 92, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[34965, 1243, 39, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[35029, 1247, 264, 6, 122, "Input"], Cell[35296, 1255, 237, 3, 97, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[35582, 1264, 41, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[35648, 1268, 81, 1, 71, "Input"], Cell[35732, 1271, 75, 1, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35844, 1277, 198, 5, 93, "Input"], Cell[36045, 1284, 48, 1, 84, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36142, 1291, 39, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[36206, 1295, 240, 5, 93, "Input"], Cell[36449, 1302, 131, 2, 103, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36629, 1310, 41, 0, 74, "Subsection"], Cell[CellGroupData[{ Cell[36695, 1314, 83, 1, 71, "Input"], Cell[36781, 1317, 68, 1, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36886, 1323, 198, 5, 93, "Input"], Cell[37087, 1330, 35, 1, 70, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37183, 1338, 64, 1, 90, "Section"], Cell[CellGroupData[{ Cell[37272, 1343, 55, 1, 71, "Input"], Cell[37330, 1346, 53, 1, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37420, 1352, 148, 2, 93, "Input"], Cell[37571, 1356, 77, 1, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37685, 1362, 196, 5, 122, "Input"], Cell[37884, 1369, 81, 1, 83, "Output"], Cell[37968, 1372, 76, 1, 70, "Output"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)