Warning, /frameworks/syntax-highlighting/autotests/input/highlight.nb is written in an unsupported language. File is not indexed.
0001 (* Content-type: application/vnd.wolfram.mathematica *) 0002 0003 (*** Wolfram Notebook File ***) 0004 (* http://www.wolfram.com/nb *) 0005 0006 (* CreatedBy='Mathematica 9.0' *) 0007 0008 (*CacheID: 234*) 0009 (* Internal cache information: 0010 NotebookFileLineBreakTest 0011 NotebookFileLineBreakTest 0012 NotebookDataPosition[ 157, 7] 0013 NotebookDataLength[ 6793, 195] 0014 NotebookOptionsPosition[ 6557, 182] 0015 NotebookOutlinePosition[ 6893, 197] 0016 CellTagsIndexPosition[ 6850, 194] 0017 WindowFrame->Normal*) 0018 0019 (* Beginning of Notebook Content *) 0020 Notebook[{ 0021 Cell[BoxData[{ 0022 RowBox[{"\"\<Problema 5\>\"", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 0023 RowBox[{"\"\<=== 1. S\[OAcute]lido D ===\>\"", 0024 "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<1.1. Gr\[AAcute]fico \ 0025 de D en el plano X-Y:\>\"", "\[IndentingNewLine]", 0026 RowBox[{ 0027 RowBox[{"ContourPlot", "[", 0028 RowBox[{ 0029 RowBox[{"{", 0030 RowBox[{ 0031 RowBox[{ 0032 RowBox[{ 0033 SuperscriptBox["x", "2"], "-", 0034 SuperscriptBox["y", "2"]}], "\[Equal]", "1"}], ",", 0035 RowBox[{ 0036 RowBox[{ 0037 SuperscriptBox["x", "2"], "-", 0038 SuperscriptBox["y", "2"]}], "\[Equal]", "5"}], ",", 0039 RowBox[{ 0040 RowBox[{"x", " ", "y"}], "\[Equal]", "4"}], ",", 0041 RowBox[{ 0042 RowBox[{"x", " ", "y"}], "\[Equal]", "1"}]}], "}"}], ",", 0043 RowBox[{"{", 0044 RowBox[{"x", ",", "0", ",", "15"}], "}"}], ",", 0045 RowBox[{"{", 0046 RowBox[{"y", ",", 0047 RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "]"}], 0048 "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<1.2. Gr\[AAcute]fico \ 0049 de D en Z (suponiendo m=1):\>\"", "\[IndentingNewLine]", 0050 RowBox[{ 0051 RowBox[{"ContourPlot3D", "[", 0052 RowBox[{ 0053 RowBox[{"{", 0054 RowBox[{ 0055 RowBox[{ 0056 RowBox[{"x", "+", "y", "+", 0057 RowBox[{"3", " ", "z"}]}], "\[Equal]", "2"}], ",", 0058 RowBox[{ 0059 RowBox[{"x", "+", "y", "+", 0060 RowBox[{"3", " ", "z"}]}], "\[Equal]", "4"}]}], "}"}], ",", 0061 RowBox[{"{", 0062 RowBox[{"x", ",", "0", ",", "15"}], "}"}], ",", 0063 RowBox[{"{", 0064 RowBox[{"y", ",", 0065 RowBox[{"-", "5"}], ",", "10"}], "}"}], ",", 0066 RowBox[{"{", 0067 RowBox[{"z", ",", 0068 RowBox[{"-", "9"}], ",", "5"}], "}"}], ",", 0069 RowBox[{"AxesLabel", "\[Rule]", 0070 RowBox[{"{", 0071 RowBox[{"\"\<X\>\"", ",", "\"\<Y\>\"", ",", "\"\<Z\>\""}], "}"}]}], ",", 0072 RowBox[{"Mesh", "\[Rule]", "None"}], ",", 0073 RowBox[{"FaceGrids", "\[Rule]", 0074 RowBox[{"{", 0075 RowBox[{ 0076 RowBox[{"{", 0077 RowBox[{"0", ",", "0", ",", 0078 RowBox[{"-", "1"}]}], "}"}], ",", 0079 RowBox[{"{", 0080 RowBox[{ 0081 RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", 0082 RowBox[{"{", 0083 RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}]}], ",", 0084 RowBox[{"FaceGridsStyle", "\[Rule]", 0085 RowBox[{"Directive", "[", "Dashed", "]"}]}]}], "]"}], 0086 "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<1.3. Momento de \ 0087 inercia en Z:\>\"", "\[IndentingNewLine]", 0088 RowBox[{ 0089 RowBox[{ 0090 RowBox[{"J1", "=", 0091 FractionBox["1", 0092 RowBox[{"6", " ", 0093 RowBox[{"(", 0094 RowBox[{ 0095 SuperscriptBox["x", "2"], "+", 0096 SuperscriptBox["y", "2"]}], ")"}]}]]}], ";"}], " ", 0097 RowBox[{"(*", " ", "Jacobiano", " ", "*)"}]}], "\[IndentingNewLine]", 0098 RowBox[{ 0099 RowBox[{ 0100 RowBox[{"d1", "=", 0101 RowBox[{"g", "[", "u", "]"}]}], ";"}], " ", 0102 RowBox[{"(*", " ", "Densidad", " ", "*)"}]}], "\[IndentingNewLine]", 0103 RowBox[{ 0104 RowBox[{"Izd", "=", 0105 RowBox[{"Integrate", "[", 0106 RowBox[{ 0107 RowBox[{"J1", " ", "d1", " ", 0108 RowBox[{"(", 0109 RowBox[{ 0110 SuperscriptBox["x", "2"], "+", 0111 SuperscriptBox["y", "2"]}], ")"}]}], ",", 0112 RowBox[{"{", 0113 RowBox[{"u", ",", "1", ",", "5"}], "}"}], ",", 0114 RowBox[{"{", 0115 RowBox[{"v", ",", "1", ",", "4"}], "}"}], ",", 0116 RowBox[{"{", 0117 RowBox[{"w", ",", "2", ",", 0118 RowBox[{"4", "m"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 0119 "\[IndentingNewLine]"}], "\[IndentingNewLine]", 0120 RowBox[{"\"\<=== 2. S\[OAcute]lido E ===\>\"", 0121 "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<2.1. Gr\[AAcute]fico \ 0122 de E en el plano X-Y:\>\"", "\[IndentingNewLine]", 0123 RowBox[{ 0124 RowBox[{"ContourPlot", "[", 0125 RowBox[{ 0126 RowBox[{"{", 0127 RowBox[{ 0128 RowBox[{"y", "\[Equal]", 0129 RowBox[{"-", "x"}]}], ",", 0130 RowBox[{"y", "\[Equal]", 0131 RowBox[{"5", "-", "x"}]}], ",", 0132 RowBox[{"x", "==", "1"}], ",", 0133 RowBox[{"x", "\[Equal]", "5"}]}], "}"}], ",", 0134 RowBox[{"{", 0135 RowBox[{"x", ",", 0136 RowBox[{"-", "2"}], ",", "8"}], "}"}], ",", 0137 RowBox[{"{", 0138 RowBox[{"y", ",", 0139 RowBox[{"-", "8"}], ",", "8"}], "}"}]}], "]"}], 0140 "\[IndentingNewLine]"}], "\[IndentingNewLine]", "\"\<2.2. Momento de \ 0141 inercia en Z:\>\"", "\[IndentingNewLine]", 0142 RowBox[{ 0143 RowBox[{ 0144 RowBox[{"J2", "=", "1"}], ";"}], " ", 0145 RowBox[{"(*", " ", "Jacobiano", " ", "*)"}]}], "\[IndentingNewLine]", 0146 RowBox[{ 0147 RowBox[{ 0148 RowBox[{"d2", "=", 0149 FractionBox["k", 0150 RowBox[{ 0151 SuperscriptBox["x", "2"], "+", 0152 SuperscriptBox["y", "2"]}]]}], ";"}], " ", 0153 RowBox[{"(*", " ", "Densidad", " ", "*)"}]}], "\[IndentingNewLine]", 0154 RowBox[{"Ize", "=", 0155 RowBox[{"Integrate", "[", 0156 RowBox[{ 0157 RowBox[{"J2", " ", "d2", " ", 0158 RowBox[{"(", 0159 RowBox[{ 0160 SuperscriptBox["x", "2"], "+", 0161 SuperscriptBox["y", "2"]}], ")"}]}], ",", 0162 RowBox[{"{", 0163 RowBox[{"u", ",", "1", ",", "5"}], "}"}], ",", 0164 RowBox[{"{", 0165 RowBox[{"v", ",", "0", ",", "5"}], "}"}], ",", 0166 RowBox[{"{", 0167 RowBox[{"w", ",", "0", ",", 0168 RowBox[{"g", "[", "u", "]"}]}], "}"}]}], 0169 "]"}]}], "\[IndentingNewLine]"}], "Input", 0170 CellChangeTimes->{{3.6387327992168093`*^9, 3.638732804068037*^9}, { 0171 3.63873298460928*^9, 3.638733092957738*^9}, {3.638733145216991*^9, 0172 3.6387332491198397`*^9}, {3.638761195961063*^9, 3.6387613413249397`*^9}, 0173 3.638761556864925*^9, {3.638761593831718*^9, 3.638761676596403*^9}, { 0174 3.638761709430225*^9, 3.638761851342112*^9}, {3.638761884041648*^9, 0175 3.638761976945223*^9}, {3.63876201800246*^9, 3.6387620804237022`*^9}, { 0176 3.638762117698328*^9, 3.6387621303918667`*^9}, {3.63876217592058*^9, 0177 3.6387623303211107`*^9}, {3.6387624793598013`*^9, 3.638762539318665*^9}, { 0178 3.638762581458088*^9, 3.638762823232787*^9}, {3.6387629631127234`*^9, 0179 3.638762997769565*^9}, {3.638763047419931*^9, 3.6387630492115097`*^9}, { 0180 3.638763089505518*^9, 3.6387632836807756`*^9}, 3.638763336766321*^9, { 0181 3.638764435293357*^9, 3.638764448553895*^9}}] 0182 }, 0183 WindowSize->{1027, 664}, 0184 WindowMargins->{{Automatic, 62}, {Automatic, 0}}, 0185 FrontEndVersion->"9.0 for Linux x86 (64-bit) (February 7, 2013)", 0186 StyleDefinitions->"Default.nb" 0187 ] 0188 (* End of Notebook Content *) 0189 0190 (* Internal cache information *) 0191 (*CellTagsOutline 0192 CellTagsIndex->{} 0193 *) 0194 (*CellTagsIndex 0195 CellTagsIndex->{} 0196 *) 0197 (*NotebookFileOutline 0198 Notebook[{ 0199 Cell[557, 20, 5996, 160, 702, "Input"] 0200 } 0201 ] 0202 *) 0203 0204 (* End of internal cache information *)