(* 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  ]]
}
]
*)