autotests/input/highlight.nb

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 *)