(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      9505,        333]
NotebookOptionsPosition[      7522,        259]
NotebookOutlinePosition[      7885,        275]
CellTagsIndexPosition[      7842,        272]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[",
  RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "pp"}], "]"}]], "Input",
 CellChangeTimes->{{3.46216254390625*^9, 3.462162552453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pp", "=",
  RowBox[{"{",
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.46216162934375*^9, 3.46216163834375*^9},
   3.462162134890625*^9}],

Cell[BoxData[
 RowBox[{"{",
  RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]], "Output",
 CellChangeTimes->{3.46216213559375*^9, 3.462162219359375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pp", "\[Equal]",
  RowBox[{"{",
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.462162144375*^9, 3.462162152640625*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.462162153609375*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"pp", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=",
   "1"}], ";",
  RowBox[{
   RowBox[{"pp", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "=",
   "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.462162159625*^9, 3.462162209859375*^9}}],

Cell["\<\
Das erste und dritte Element von pp werden 1 gesetzt, a und c bleiben frei.\
\>", "Text",
 CellChangeTimes->{{3.4621626250625*^9, 3.46216270521875*^9}}],

Cell[CellGroupData[{

Cell[BoxData["pp"], "Input",
 CellChangeTimes->{{3.46216218853125*^9, 3.462162188703125*^9}}],

Cell[BoxData[
 RowBox[{"{",
  RowBox[{"1", ",", "b", ",", "1", ",", "d"}], "}"}]], "Output",
 CellChangeTimes->{{3.462162189546875*^9, 3.462162226*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{",
  RowBox[{"a", ",", "c"}], "}"}]], "Input",
 CellChangeTimes->{{3.462162716359375*^9, 3.46216271859375*^9}}],

Cell[BoxData[
 RowBox[{"{",
  RowBox[{"a", ",", "c"}], "}"}]], "Output",
 CellChangeTimes->{3.462162719546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FreeQ", "[",
  RowBox[{"pp", ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.462162228875*^9, 3.46216225096875*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.46216223090625*^9, 3.462162251828125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pp", "=",
  RowBox[{"{",
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.46216162934375*^9, 3.46216163834375*^9},
   3.462162134890625*^9}],

Cell[BoxData[
 RowBox[{"{",
  RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]], "Output",
 CellChangeTimes->{3.46216245059375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{",
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "\[LeftDoubleBracket]",
   "1", "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.462162313*^9, 3.462162328484375*^9}}],

Cell[BoxData["a"], "Output",
 CellChangeTimes->{3.4621623295625*^9, 3.462162469640625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{",
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], "\[LeftDoubleBracket]",
   "3", "\[RightDoubleBracket]"}]], "Input",
 CellChangeTimes->{{3.462162313*^9, 3.462162342625*^9}}],

Cell[BoxData["c"], "Output",
 CellChangeTimes->{3.46216234296875*^9, 3.46216247321875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{",
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}],
   "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "=",
  "1"}]], "Input",
 CellChangeTimes->{{3.462162313*^9, 3.462162328484375*^9}, {
  3.462162372890625*^9, 3.462162373609375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Set", "::", "\<\"setps\"\>"}],
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\*StyleBox[\\!\\({a, b, c, d}\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in the part assignment \
is not a symbol.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \
\\\"Set::setps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.462162373984375*^9, 3.462162476203125*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.462162374*^9, 3.462162476203125*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pp", "=",
   RowBox[{"{",
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.46216162934375*^9, 3.46216163834375*^9},
   3.462162134890625*^9, 3.462163211671875*^9}],

Cell["\<\
Die Funktion \"Part\" verlangt bei einer Zuweisung ein Symbol, d.h. man kann \
ein Elment von pp so nicht ver\[ADoubleDot]ndern. Es ist zwar\
\>", "Text",
 CellChangeTimes->{{3.462162852390625*^9, 3.462162919890625*^9}, {
  3.462162975796875*^9, 3.4621629971875*^9}, {3.46216312075*^9,
  3.462163160296875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pp", "\[Equal]",
  RowBox[{"{",
   RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.462163165546875*^9, 3.462163171015625*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.462163173390625*^9, 3.46216323546875*^9}]
}, Open  ]],

Cell["Aber: folgende Zuweisung funktioniert:", "Text",
 CellChangeTimes->{{3.4621632406875*^9, 3.462163241546875*^9}, {
  3.4621633634375*^9, 3.46216338234375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Part", "[",
   RowBox[{"pp", ",", "1"}], "]"}], "=", "1"}]], "Input",
 CellChangeTimes->{{3.462163245890625*^9, 3.462163261796875*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{3.46216326215625*^9}]
}, Open  ]],

Cell["\<\
W\[ADoubleDot]hrend die folgende Zuweisung nicht m\[ODoubleDot]glich ist.\
\>", "Text",
 CellChangeTimes->{{3.462163385546875*^9, 3.462163410734375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Part", "[",
   RowBox[{
    RowBox[{"{",
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", "1"}], "]"}],
  "=", "1"}]], "Input",
 CellChangeTimes->{{3.462163277421875*^9, 3.46216330653125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Set", "::", "\<\"setps\"\>"}],
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\*StyleBox[\\!\\({a, b, c, d}\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" in the part assignment \
is not a symbol.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Set\\\", ButtonNote -> \
\\\"Set::setps\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.462163306890625*^9}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.4621632995625*^9, 3.46216330690625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FreeQ", "[",
  RowBox[{"pp", ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{
  3.46216343609375*^9, {3.462163475734375*^9, 3.4621634779375*^9}}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.462163436390625*^9, 3.462163479828125*^9}]
}, Open  ]]
},
WindowSize->{615, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.5,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 177, 3, 43, "Input"],
Cell[CellGroupData[{
Cell[747, 27, 207, 5, 43, "Input"],
Cell[957, 34, 156, 3, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1150, 42, 187, 4, 43, "Input"],
Cell[1340, 48, 73, 1, 42, "Output"]
}, Open  ]],
Cell[1428, 52, 309, 8, 43, "Input"],
Cell[1740, 62, 162, 3, 66, "Text"],
Cell[CellGroupData[{
Cell[1927, 69, 93, 1, 43, "Input"],
Cell[2023, 72, 153, 3, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2213, 80, 137, 3, 43, "Input"],
Cell[2353, 85, 115, 3, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2505, 93, 144, 3, 43, "Input"],
Cell[2652, 98, 96, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2785, 104, 207, 5, 43, "Input"],
Cell[2995, 111, 134, 3, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3166, 119, 223, 5, 43, "Input"],
Cell[3392, 126, 90, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3519, 132, 220, 5, 43, "Input"],
Cell[3742, 139, 90, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3869, 145, 301, 8, 43, "Input"],
Cell[4173, 155, 535, 10, 61, "Message"],
Cell[4711, 167, 86, 1, 42, "Output"]
}, Open  ]],
Cell[4812, 171, 249, 6, 43, "Input"],
Cell[5064, 179, 322, 6, 66, "Text"],
Cell[CellGroupData[{
Cell[5411, 189, 190, 4, 43, "Input"],
Cell[5604, 195, 94, 1, 42, "Output"]
}, Open  ]],
Cell[5713, 199, 164, 2, 41, "Text"],
Cell[CellGroupData[{
Cell[5902, 205, 171, 4, 43, "Input"],
Cell[6076, 211, 69, 1, 42, "Output"]
}, Open  ]],
Cell[6160, 215, 163, 3, 41, "Text"],
Cell[CellGroupData[{
Cell[6348, 222, 243, 7, 43, "Input"],
Cell[6594, 231, 513, 10, 61, "Message"],
Cell[7110, 243, 91, 1, 42, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7238, 249, 170, 4, 43, "Input"],
Cell[7411, 255, 95, 1, 42, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)