Mathematica und Grafiken
This commit is contained in:
File diff suppressed because one or more lines are too long
200
Mengen.nb
Normal file
200
Mengen.nb
Normal file
@@ -0,0 +1,200 @@
|
||||
(* Content-type: application/vnd.wolfram.mathematica *)
|
||||
|
||||
(*** Wolfram Notebook File ***)
|
||||
(* http://www.wolfram.com/nb *)
|
||||
|
||||
(* CreatedBy='Wolfram 14.2' *)
|
||||
|
||||
(*CacheID: 234*)
|
||||
(* Internal cache information:
|
||||
NotebookFileLineBreakTest
|
||||
NotebookFileLineBreakTest
|
||||
NotebookDataPosition[ 154, 7]
|
||||
NotebookDataLength[ 6520, 192]
|
||||
NotebookOptionsPosition[ 5407, 165]
|
||||
NotebookOutlinePosition[ 5804, 181]
|
||||
CellTagsIndexPosition[ 5761, 178]
|
||||
WindowFrame->Normal*)
|
||||
|
||||
(* Beginning of Notebook Content *)
|
||||
Notebook[{
|
||||
|
||||
Cell[CellGroupData[{
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Mengenangabe", " ", "als", " ", "Region", " ", "definieren"}],
|
||||
"*)"}],
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"region", "=",
|
||||
RowBox[{"ImplicitRegion", "[",
|
||||
RowBox[{
|
||||
RowBox[{"2", "<=", "x", "<", "5"}], ",", "x"}], "]"}]}], ";"}], "\n",
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Grenzen", " ", "abfragen"}], "*)"}], "\[IndentingNewLine]",
|
||||
RowBox[{"intervallGrenzen", "=",
|
||||
RowBox[{"RegionBounds", "[", "region", "]"}]}], "\n",
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Ergebnis", ":",
|
||||
RowBox[{"{",
|
||||
RowBox[{"{",
|
||||
RowBox[{"2", ",", "5"}], "}"}], "}"}]}], "*)"}],
|
||||
"\[IndentingNewLine]"}]}]], "Input",
|
||||
CellChangeTimes->{{3.982508277606831*^9, 3.9825082776090403`*^9}},
|
||||
CellLabel->"In[1]:=",ExpressionUUID->"9a8fab58-04da-4ca5-9515-e23554a2c878"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"{",
|
||||
RowBox[{"{",
|
||||
RowBox[{"2", ",", "5"}], "}"}], "}"}]], "Output",
|
||||
CellChangeTimes->{3.9825082877887573`*^9, 3.982508322540017*^9,
|
||||
3.9825084245550117`*^9},
|
||||
CellLabel->"Out[2]=",ExpressionUUID->"50d665fa-6b52-41ff-90cc-44e620d2dcfc"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Intervall", " ",
|
||||
RowBox[{"definieren", ":",
|
||||
RowBox[{"[",
|
||||
RowBox[{"2", ",", "5"}], "]"}]}]}], "*)"}],
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"meinIntervall", "=",
|
||||
RowBox[{"Interval", "[",
|
||||
RowBox[{"{",
|
||||
RowBox[{"2", ",", "5"}], "}"}], "]"}]}], ";"}], "\n",
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Umwandlung", " ", "in", " ",
|
||||
RowBox[{"Mengenangabe", "/", "Ungleichung"}], " ", "f\[UDoubleDot]r", " ",
|
||||
"x"}], "*)"}], "\[IndentingNewLine]",
|
||||
RowBox[{"mengenAngabe", "=",
|
||||
RowBox[{"Reduce", "[",
|
||||
RowBox[{
|
||||
RowBox[{"x", "\[Element]", "meinIntervall"}], ",", "x"}], "]"}]}], "\n",
|
||||
"\[IndentingNewLine]",
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Ergebnis", ":",
|
||||
RowBox[{"2", "<=", "x", "<=", "5"}]}], "*)"}],
|
||||
"\[IndentingNewLine]"}]}]], "Input",
|
||||
CellChangeTimes->{{3.982508316939692*^9, 3.982508316942091*^9}},
|
||||
CellLabel->"In[3]:=",ExpressionUUID->"e59a3eff-73c6-4c29-a181-7b533ce49dbe"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"2", "\[LessEqual]",
|
||||
TemplateBox[{"x", "1"},
|
||||
"IndexedDefault"], "\[LessEqual]", "5"}]], "Output",
|
||||
CellChangeTimes->{3.982508322625778*^9, 3.982508424820752*^9},
|
||||
CellLabel->"Out[4]=",ExpressionUUID->"9b37444a-fb42-4fbd-b457-e3d2807a6180"]
|
||||
}, Open ]],
|
||||
|
||||
Cell[CellGroupData[{
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{
|
||||
RowBox[{"(*",
|
||||
RowBox[{"Ungleichung", " ", "l\[ODoubleDot]sen"}], "*)"}],
|
||||
RowBox[{
|
||||
RowBox[{"loesung", "=",
|
||||
RowBox[{"Solve", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"x", "^", "2"}], "<=", "4"}], ",", "x", ",", "Reals"}],
|
||||
"]"}]}], "\[IndentingNewLine]", "\n",
|
||||
RowBox[{"(*",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
"Ergebnis", " ", "wird", " ", "oft", " ", "als", " ", "Liste", " ",
|
||||
"von", " ", "Regeln", " ",
|
||||
RowBox[{"ausgegeben", ".", "Um"}], " ", "es", " ", "als", " ",
|
||||
"Intervall", " ", "zu", " ", "visualisieren"}], ",",
|
||||
RowBox[{"nutzt", " ", "man", " ",
|
||||
RowBox[{"NumberLinePlot", ":"}]}]}], "*)"}], "\[IndentingNewLine]",
|
||||
RowBox[{"NumberLinePlot", "[",
|
||||
RowBox[{
|
||||
RowBox[{
|
||||
RowBox[{"x", "^", "2"}], "<=", "4"}], ",", "x"}], "]"}],
|
||||
"\n"}]}]], "Input",
|
||||
CellChangeTimes->{{3.982508418759099*^9, 3.982508418760973*^9}},
|
||||
CellLabel->"In[5]:=",ExpressionUUID->"d9d77027-de38-442c-b5e1-8f36952c3100"],
|
||||
|
||||
Cell[BoxData[
|
||||
TemplateBox[{
|
||||
"Solve", "fulldim",
|
||||
"\"The solution set contains a full-dimensional component; use Reduce for \
|
||||
complete solution information.\"", 2, 5, 1, 27883807468560101399, "Local"},
|
||||
"MessageTemplate",
|
||||
BaseStyle->"MSG"]], "Message",
|
||||
CellChangeTimes->{3.982508424855733*^9},
|
||||
CellLabel->
|
||||
"During evaluation of \
|
||||
In[5]:=",ExpressionUUID->"48420c88-8052-44ba-8751-58bf4e12bdcc"],
|
||||
|
||||
Cell[BoxData[
|
||||
RowBox[{"{",
|
||||
RowBox[{"{", "}"}], "}"}]], "Output",
|
||||
CellChangeTimes->{3.9825084248636217`*^9},
|
||||
CellLabel->"Out[5]=",ExpressionUUID->"e62d1126-8512-4546-9b47-4310a223e19f"],
|
||||
|
||||
Cell[BoxData[
|
||||
GraphicsBox[
|
||||
{RGBColor[0.24, 0.6, 0.8], PointSize[Medium], AbsoluteThickness[
|
||||
1.6], {PointBox[{-2., 1}], PointBox[{2., 1}], LineBox[{{-2, 1}, {2, 1}}]}},
|
||||
|
||||
AspectRatio->NCache[Rational[1, 10]/GoldenRatio, 0.06180339887498948],
|
||||
Axes->{True, False},
|
||||
AxesLabel->{None},
|
||||
AxesOrigin->{Automatic, Automatic},
|
||||
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
|
||||
ImagePadding->All,
|
||||
PlotRange->{{-2., 2.}, {0, 1}},
|
||||
PlotRangePadding->{{
|
||||
Scaled[0.1],
|
||||
Scaled[0.1]}, {0, 1}},
|
||||
Ticks->{Automatic, Automatic}]], "Output",
|
||||
CellChangeTimes->{3.982508424959312*^9},
|
||||
CellLabel->"Out[6]=",ExpressionUUID->"195e5e72-ca21-4b99-b898-04285df47ebe"]
|
||||
}, Open ]]
|
||||
},
|
||||
WindowSize->{808, 911},
|
||||
WindowMargins->{{12, Automatic}, {Automatic, 24}},
|
||||
FrontEndVersion->"14.2 for Mac OS X ARM (64-bit) (December 26, 2024)",
|
||||
StyleDefinitions->"Default.nb",
|
||||
ExpressionUUID->"3ef154fa-489c-49c8-845f-9df8e1588687"
|
||||
]
|
||||
(* End of Notebook Content *)
|
||||
|
||||
(* Internal cache information *)
|
||||
(*CellTagsOutline
|
||||
CellTagsIndex->{}
|
||||
*)
|
||||
(*CellTagsIndex
|
||||
CellTagsIndex->{}
|
||||
*)
|
||||
(*NotebookFileOutline
|
||||
Notebook[{
|
||||
Cell[CellGroupData[{
|
||||
Cell[576, 22, 881, 24, 181, "Input",ExpressionUUID->"9a8fab58-04da-4ca5-9515-e23554a2c878"],
|
||||
Cell[1460, 48, 268, 6, 33, "Output",ExpressionUUID->"50d665fa-6b52-41ff-90cc-44e620d2dcfc"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[1765, 59, 1023, 28, 181, "Input",ExpressionUUID->"e59a3eff-73c6-4c29-a181-7b533ce49dbe"],
|
||||
Cell[2791, 89, 268, 5, 33, "Output",ExpressionUUID->"9b37444a-fb42-4fbd-b457-e3d2807a6180"]
|
||||
}, Open ]],
|
||||
Cell[CellGroupData[{
|
||||
Cell[3096, 99, 1005, 26, 161, "Input",ExpressionUUID->"d9d77027-de38-442c-b5e1-8f36952c3100"],
|
||||
Cell[4104, 127, 406, 10, 26, "Message",ExpressionUUID->"48420c88-8052-44ba-8751-58bf4e12bdcc"],
|
||||
Cell[4513, 139, 190, 4, 33, "Output",ExpressionUUID->"e62d1126-8512-4546-9b47-4310a223e19f"],
|
||||
Cell[4706, 145, 685, 17, 73, "Output",ExpressionUUID->"195e5e72-ca21-4b99-b898-04285df47ebe"]
|
||||
}, Open ]]
|
||||
}
|
||||
]
|
||||
*)
|
||||
|
||||
Reference in New Issue
Block a user