(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5453,        162]
NotebookOptionsPosition[      3762,        124]
NotebookOutlinePosition[      4180,        140]
CellTagsIndexPosition[      4137,        137]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["StringReplace", "Subsubsection",ExpressionUUID->"a6039225-b067-47ce-a462-563ff33b5992"],

Cell["\<\
StringReplace durchsucht den String von vorne nach hinten nach \
Teilzeichenketten. Bei jeder Teilzeichenkette versucht es, nacheinander jede \
der von Ihnen angegebenen Transformationsregeln anzuwenden. Ist eine Regel \
anwendbar, so ersetzt es die Teilzeichenkette und setzt danach an der \
Zeichenposition nach der Teilzeichenkette mit der Durchsuchung der \
Zeichenkette fort.\
\>", "Text",ExpressionUUID->"32031b1a-754c-4419-b85b-ec5c57db883c"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "myrep", "]"}], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"myrep", " ", ":=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"z", ",", "x", ",", "y"}], "}"}], ",", " ", 
     RowBox[{"ToExpression", "[", 
      RowBox[{"StringReplace", "[", 
       RowBox[{
        RowBox[{"ToString", "[", "z", "]"}], ",", " ", 
        RowBox[{"x", " ", "->", " ", "y"}]}], "]"}], "]"}]}], "]"}], " "}],
  FormatType->StandardForm]}], "Input",ExpressionUUID->"96b545bc-3690-4208-\
816d-d8aaf18f17b1"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"y", " ", "=", " ", 
   RowBox[{
    RowBox[{"ad", "[", "t", "]"}], " ", "+", " ", 
    RowBox[{"b", "[", "t", "]"}], " ", "-", " ", 
    RowBox[{"s", "[", "t", "]"}], " "}]}],
  FormatType->StandardForm]], "Input",ExpressionUUID->"57cc0e0d-4d8f-4ab2-\
b36a-ddef9aec0eef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ad", "[", "t", "]"}], "+", 
  RowBox[{"b", "[", "t", "]"}], "-", 
  RowBox[{"s", "[", "t", "]"}]}]], "Output",ExpressionUUID->"c8ff8bef-d2ae-\
4a10-85f5-15ad69bfe9ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"myrep", "[", 
    RowBox[{"y", ",", "\"\<[t]\>\"", ",", "\"\<[z]\>\""}], "]"}], " "}],
  FormatType->StandardForm]], "Input",ExpressionUUID->"a661ad30-4c25-4bf5-\
bb65-5de83fcc75ba"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ad", "[", "z", "]"}], "+", 
  RowBox[{"b", "[", "z", "]"}], "-", 
  RowBox[{"s", "[", "z", "]"}]}]], "Output",ExpressionUUID->"8c7d024a-8ab4-\
4df7-b320-fede35df726e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"myrep", "[", 
   RowBox[{"y", ",", "\"\<[t]\>\"", ",", "\"\<\>\""}], "]"}], " "}]], "Input",\
ExpressionUUID->"c5a68c3a-55b8-4026-9f19-7c719e977b11"],

Cell[BoxData[
 RowBox[{"ad", "+", "b", "-", "s"}]], "Output",ExpressionUUID->"58edc2a2-3320-4b1b-8aa6-ebadd54511e6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["ReplacePart", "Subsubsection",ExpressionUUID->"1cd32bdd-c8d4-4f20-9551-04cacf03e410"],

Cell["\<\
ReplacePart ersetzt einen Ausdruck an einer bestimmten Stelle.\
\>", "Text",ExpressionUUID->"b1913ee6-a97e-4a3d-9e8a-d948fe0a7d8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ReplacePart", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "x", ",", "3"}], 
  "]"}]], "Input",ExpressionUUID->"dabd96f4-c527-4ed6-aaab-eba15a3c81a3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"a", ",", "b", ",", "x", ",", "d"}], "}"}]], "Output",ExpressionUUID\
->"3d6241d0-5d40-48d1-ab57-2e6c26bb9fec"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{616, 614},
WindowMargins->{{3, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 93, 0, 44, "Subsubsection",ExpressionUUID->"a6039225-b067-47ce-a462-563ff33b5992"],
Cell[676, 24, 459, 7, 144, "Text",ExpressionUUID->"32031b1a-754c-4419-b85b-ec5c57db883c"],
Cell[1138, 33, 561, 14, 67, "Input",ExpressionUUID->"96b545bc-3690-4208-816d-d8aaf18f17b1"],
Cell[CellGroupData[{
Cell[1724, 51, 307, 8, 28, "Input",ExpressionUUID->"57cc0e0d-4d8f-4ab2-b36a-ddef9aec0eef"],
Cell[2034, 61, 202, 5, 32, "Output",ExpressionUUID->"c8ff8bef-d2ae-4a10-85f5-15ad69bfe9ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2273, 71, 230, 6, 28, "Input",ExpressionUUID->"a661ad30-4c25-4bf5-bb65-5de83fcc75ba"],
Cell[2506, 79, 202, 5, 32, "Output",ExpressionUUID->"8c7d024a-8ab4-4df7-b320-fede35df726e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2745, 89, 184, 4, 28, "Input",ExpressionUUID->"c5a68c3a-55b8-4026-9f19-7c719e977b11"],
Cell[2932, 95, 116, 1, 32, "Output",ExpressionUUID->"58edc2a2-3320-4b1b-8aa6-ebadd54511e6"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3097, 102, 91, 0, 44, "Subsubsection",ExpressionUUID->"1cd32bdd-c8d4-4f20-9551-04cacf03e410"],
Cell[3191, 104, 141, 2, 34, "Text",ExpressionUUID->"b1913ee6-a97e-4a3d-9e8a-d948fe0a7d8b"],
Cell[CellGroupData[{
Cell[3357, 110, 224, 5, 28, "Input",ExpressionUUID->"dabd96f4-c527-4ed6-aaab-eba15a3c81a3"],
Cell[3584, 117, 150, 3, 32, "Output",ExpressionUUID->"3d6241d0-5d40-48d1-ab57-2e6c26bb9fec"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)