Skip to content

Commit 7df7c57

Browse files
Carl-FirleCarl-Firle
authored
Add files via upload
1 parent 0cd201c commit 7df7c57

4 files changed

+7035
-0
lines changed

‎1_Einführung.nb

+287
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,287 @@
1+
(* Content-type: application/vnd.wolfram.mathematica *)
2+
3+
(*** Wolfram Notebook File ***)
4+
(* http://www.wolfram.com/nb *)
5+
6+
(* CreatedBy='Mathematica 13.1' *)
7+
8+
(*CacheID: 234*)
9+
(* Internal cache information:
10+
NotebookFileLineBreakTest
11+
NotebookFileLineBreakTest
12+
NotebookDataPosition[ 158, 7]
13+
NotebookDataLength[ 9556, 279]
14+
NotebookOptionsPosition[ 7501, 237]
15+
NotebookOutlinePosition[ 7915, 253]
16+
CellTagsIndexPosition[ 7872, 250]
17+
WindowFrame->Normal*)
18+
19+
(* Beginning of Notebook Content *)
20+
Notebook[{
21+
22+
Cell[CellGroupData[{
23+
Cell["Einf\[UDoubleDot]hrung in Mathematika", "Title",
24+
CellChangeTimes->{{3.9189226653918285`*^9,
25+
3.91892268300063*^9}},ExpressionUUID->"868f4c7c-cf5c-4e89-933e-\
26+
e9914e0239a4"],
27+
28+
Cell["f\[UDoubleDot]r Rebekka", "Subtitle",
29+
CellChangeTimes->{{3.9189226653918285`*^9,
30+
3.9189226761618567`*^9}},ExpressionUUID->"73e93705-3a94-4de6-b87c-\
31+
4104fe97f817"],
32+
33+
Cell["\<\
34+
Bitte f\[UDoubleDot]r die Audiospur folgenden Link
35+
https://www.carl-firle.eu/wp-content/uploads/2024/03/Einfuehrung-in-\
36+
Mathematica-1-1.mp3
37+
abrufen (oder das GitHub-Audioverzeichnis nutzen)\
38+
\>", "Text",
39+
CellChangeTimes->{{3.9192711987216854`*^9, 3.919271207921807*^9}, {
40+
3.919271759523346*^9, 3.9192717650482516`*^9}, {3.919271798212779*^9,
41+
3.919271809942553*^9}},ExpressionUUID->"2cbad2ce-f39d-4e2a-9ba2-\
42+
9d97d9404796"],
43+
44+
Cell["\<\
45+
Bitte f\[UDoubleDot]r die Audiospur folgenden Link
46+
https://www.carl-firle.eu/wp-content/uploads/2024/03/Einfuehrung-in-\
47+
Mathematica-1-2.mp3
48+
abrufen (oder das GitHub-Audioverzeichnis nutzen)\
49+
\>", "Text",
50+
CellChangeTimes->{{3.9192712123470707`*^9, 3.919271220313994*^9},
51+
3.919271773718877*^9, {3.919271814856224*^9,
52+
3.919271815145873*^9}},ExpressionUUID->"776fdcfd-7972-44c2-9020-\
53+
b88e554c97f3"],
54+
55+
Cell[CellGroupData[{
56+
57+
Cell[BoxData[
58+
RowBox[{"3", "+", "6"}]], "Input",
59+
CellChangeTimes->{{3.918923795267087*^9, 3.9189237973744607`*^9}},
60+
CellLabel->"In[13]:=",ExpressionUUID->"310164f0-7aed-4371-a856-13733f08b775"],
61+
62+
Cell[BoxData["9"], "Output",
63+
CellChangeTimes->{3.91892403795086*^9},
64+
CellLabel->"Out[13]=",ExpressionUUID->"dc19e5e2-5f31-4e53-8bdb-317b80124f1b"]
65+
}, Open ]],
66+
67+
Cell[CellGroupData[{
68+
69+
Cell[BoxData[
70+
RowBox[{"FullForm", "[",
71+
RowBox[{"a", "+", "3"}], "]"}]], "Input",
72+
CellChangeTimes->{{3.9189229485400066`*^9, 3.9189229534455786`*^9}, {
73+
3.9189230025953503`*^9, 3.918923004577546*^9}, 3.9189230657884054`*^9,
74+
3.918923830361152*^9},
75+
CellLabel->"In[14]:=",ExpressionUUID->"967ed358-80c0-4b9a-8a89-b3e3c916697b"],
76+
77+
Cell[BoxData[
78+
TagBox[
79+
StyleBox[
80+
RowBox[{"Plus", "[",
81+
RowBox[{"3", ",", "a"}], "]"}],
82+
ShowSpecialCharacters->False,
83+
ShowStringCharacters->True,
84+
NumberMarks->True],
85+
FullForm]], "Output",
86+
CellChangeTimes->{3.9189229537979317`*^9, 3.918923005141759*^9,
87+
3.9189230659823737`*^9, 3.91892321988004*^9, 3.91892403797937*^9},
88+
CellLabel->
89+
"Out[14]//FullForm=",ExpressionUUID->"04a5d4f8-8590-4ba3-8528-dc04cbda8bd1"]
90+
}, Open ]],
91+
92+
Cell[CellGroupData[{
93+
94+
Cell[BoxData[
95+
RowBox[{
96+
RowBox[{"(",
97+
RowBox[{"6", "+", "3"}], ")"}], "//", "FullForm"}]], "Input",
98+
CellChangeTimes->{{3.918922964863222*^9, 3.9189229899718*^9}, {
99+
3.91892302694588*^9, 3.918923028747858*^9}},
100+
CellLabel->"In[5]:=",ExpressionUUID->"2918e987-4b63-4b2c-af98-ecc658993482"],
101+
102+
Cell[BoxData[
103+
TagBox[
104+
StyleBox["9",
105+
ShowSpecialCharacters->False,
106+
ShowStringCharacters->True,
107+
NumberMarks->True],
108+
FullForm]], "Output",
109+
CellChangeTimes->{{3.9189229694692116`*^9, 3.918922990419444*^9},
110+
3.918923029186901*^9},
111+
CellLabel->
112+
"Out[5]//FullForm=",ExpressionUUID->"348de2d5-b673-4110-b2bb-96bc6e4cac6c"]
113+
}, Open ]],
114+
115+
Cell[CellGroupData[{
116+
117+
Cell[BoxData[
118+
RowBox[{
119+
RowBox[{"(*",
120+
RowBox[{
121+
"hier", " ", "noch", " ", "ein", " ", "Beispiel", " ", "f\[UDoubleDot]r",
122+
" ", "FullForm"}], "*)"}], "\[IndentingNewLine]",
123+
RowBox[{"FullForm", "[",
124+
RowBox[{
125+
FractionBox["x",
126+
SqrtBox["5"]], "+",
127+
SuperscriptBox["y", "2"], "+",
128+
RowBox[{"1", "/", "z"}]}], "]"}]}]], "Input",
129+
CellChangeTimes->{{3.9189242097539773`*^9, 3.918924219571104*^9}},
130+
CellLabel->"In[15]:=",ExpressionUUID->"188437a5-d934-4e48-a15a-a0aea193bc3e"],
131+
132+
Cell[BoxData[
133+
TagBox[
134+
StyleBox[
135+
RowBox[{"Plus", "[",
136+
RowBox[{
137+
RowBox[{"Times", "[",
138+
RowBox[{
139+
RowBox[{"Power", "[",
140+
RowBox[{"5", ",",
141+
RowBox[{"Rational", "[",
142+
RowBox[{
143+
RowBox[{"-", "1"}], ",", "2"}], "]"}]}], "]"}], ",", "x"}], "]"}],
144+
",",
145+
RowBox[{"Power", "[",
146+
RowBox[{"y", ",", "2"}], "]"}], ",",
147+
RowBox[{"Power", "[",
148+
RowBox[{"z", ",",
149+
RowBox[{"-", "1"}]}], "]"}]}], "]"}],
150+
ShowSpecialCharacters->False,
151+
ShowStringCharacters->True,
152+
NumberMarks->True],
153+
FullForm]], "Output",
154+
CellChangeTimes->{3.9189230608092623`*^9, 3.918924223021577*^9},
155+
CellLabel->
156+
"Out[15]//FullForm=",ExpressionUUID->"6cfbbc75-9c35-48fa-9aa9-d5cc65036924"]
157+
}, Open ]],
158+
159+
Cell["\<\
160+
Es gibt eine hervorrangede Einf\[UDoubleDot]hrung von Wolfram selbst: \
161+
https://www.wolfram.com/language/elementary-introduction/3rd-ed/preface.html\
162+
\>", "Text",
163+
CellChangeTimes->{{3.9189244438065786`*^9,
164+
3.9189244773044877`*^9}},ExpressionUUID->"92c39553-3602-4091-bd53-\
165+
a66b507052e6"],
166+
167+
Cell[CellGroupData[{
168+
169+
Cell["Klammern und Zeichen", "Chapter",
170+
CellChangeTimes->{{3.9189242489120784`*^9,
171+
3.918924255666828*^9}},ExpressionUUID->"4fce5f0e-5a1e-4648-b91d-\
172+
412fa0930118"],
173+
174+
Cell["\<\
175+
Bitte f\[UDoubleDot]r die Audiospur folgenden Link
176+
https://www.carl-firle.eu/wp-content/uploads/2024/03/Einfuehrung-in-\
177+
Mathematica-1-3.mp3
178+
abrufen (oder das GitHub-Audioverzeichnis nutzen)\
179+
\>", "Text",
180+
CellChangeTimes->{{3.9192712305440474`*^9, 3.9192712417929654`*^9},
181+
3.9192717836909494`*^9, {3.919271822121121*^9,
182+
3.919271822316651*^9}},ExpressionUUID->"eeed5322-d627-43e2-bda7-\
183+
48e6bfbfe06a"],
184+
185+
Cell["\<\
186+
187+
188+
[] = @ = //
189+
{} = List[]
190+
&/@ = Map[]
191+
@@ = Apply[] = Function[{}]
192+
@@@ = MapApply[]
193+
\"\\\"\
194+
\>", "Text",
195+
CellChangeTimes->{{3.9189242636884747`*^9, 3.9189243643697524`*^9}, {
196+
3.9189245198511004`*^9, 3.918924520387071*^9}, {3.918924841394623*^9,
197+
3.918924843924078*^9}, {3.918924875558734*^9, 3.9189248783959217`*^9}, {
198+
3.9189249647162237`*^9, 3.918924968635458*^9}, {3.918925042246627*^9,
199+
3.9189250897646694`*^9}, 3.9189251537473097`*^9, {3.918925354970138*^9,
200+
3.9189253557768135`*^9}},ExpressionUUID->"91aae324-ec92-4b7f-93a5-\
201+
e5be2494d68d"],
202+
203+
Cell["\<\
204+
205+
sehr wichtig noch doppelte, eckige Klammern
206+
[[]] = Part[]
207+
208+
die Zeichen
209+
(* *)
210+
erm\[ODoubleDot]glichen Dir das Schreiben von Kommentaren
211+
212+
hier noch weitere Zeichen, die h\[ADoubleDot]ufig vorkommen, erstmal aber \
213+
nicht so relevant sind:
214+
% vorheriger Output
215+
~~ verbindet Strings
216+
<> verbindet Strings/Objekte
217+
# steht f\[UDoubleDot]r eine Variable und muss immer in Verbindung mit einem \
218+
& stehen
219+
=. steht f\[UDoubleDot]r Clear[] damit kann eine Variable oder Funktion zur\
220+
\[UDoubleDot]ckgesetzt werden
221+
_ oder __ oder ___ steht f\[UDoubleDot]r ein Pattern (kommt sp\[ADoubleDot]ter)
222+
/. ReplaceAll
223+
== EqualQ
224+
=== SameQ
225+
!= UnequalQ
226+
=!= UnsameQ
227+
\
228+
\>", "Text",
229+
CellChangeTimes->{{3.918925363160591*^9, 3.9189255152195034`*^9},
230+
3.91892593460176*^9, {3.918926611349599*^9, 3.9189266570493865`*^9}, {
231+
3.9189268699423*^9, 3.9189268858395567`*^9}, {3.9190145317654247`*^9,
232+
3.919014589174241*^9}, {3.9191009575651536`*^9,
233+
3.9191009592640696`*^9}},ExpressionUUID->"5567187c-9e51-444f-bd3f-\
234+
6e1035e1af1b"]
235+
}, Open ]]
236+
}, Open ]]
237+
},
238+
WindowSize->{661.1999999999999, 568.8},
239+
WindowMargins->{{0, Automatic}, {Automatic, 0}},
240+
FrontEndVersion->"13.1 for Microsoft Windows (64-bit) (August 22, 2022)",
241+
StyleDefinitions->"Default.nb",
242+
ExpressionUUID->"320c1a8e-037b-489f-922d-7db75560b087"
243+
]
244+
(* End of Notebook Content *)
245+
246+
(* Internal cache information *)
247+
(*CellTagsOutline
248+
CellTagsIndex->{}
249+
*)
250+
(*CellTagsIndex
251+
CellTagsIndex->{}
252+
*)
253+
(*NotebookFileOutline
254+
Notebook[{
255+
Cell[CellGroupData[{
256+
Cell[580, 22, 181, 3, 98, "Title",ExpressionUUID->"868f4c7c-cf5c-4e89-933e-e9914e0239a4"],
257+
Cell[764, 27, 173, 3, 53, "Subtitle",ExpressionUUID->"73e93705-3a94-4de6-b87c-4104fe97f817"],
258+
Cell[940, 32, 439, 9, 104, "Text",ExpressionUUID->"2cbad2ce-f39d-4e2a-9ba2-9d97d9404796"],
259+
Cell[1382, 43, 415, 9, 104, "Text",ExpressionUUID->"776fdcfd-7972-44c2-9020-b88e554c97f3"],
260+
Cell[CellGroupData[{
261+
Cell[1822, 56, 196, 3, 28, "Input",ExpressionUUID->"310164f0-7aed-4371-a856-13733f08b775"],
262+
Cell[2021, 61, 148, 2, 32, "Output",ExpressionUUID->"dc19e5e2-5f31-4e53-8bdb-317b80124f1b"]
263+
}, Open ]],
264+
Cell[CellGroupData[{
265+
Cell[2206, 68, 335, 6, 28, "Input",ExpressionUUID->"967ed358-80c0-4b9a-8a89-b3e3c916697b"],
266+
Cell[2544, 76, 433, 12, 46, "Output",ExpressionUUID->"04a5d4f8-8590-4ba3-8528-dc04cbda8bd1"]
267+
}, Open ]],
268+
Cell[CellGroupData[{
269+
Cell[3014, 93, 294, 6, 28, "Input",ExpressionUUID->"2918e987-4b63-4b2c-af98-ecc658993482"],
270+
Cell[3311, 101, 334, 10, 46, "Output",ExpressionUUID->"348de2d5-b673-4110-b2bb-96bc6e4cac6c"]
271+
}, Open ]],
272+
Cell[CellGroupData[{
273+
Cell[3682, 116, 506, 13, 70, "Input",ExpressionUUID->"188437a5-d934-4e48-a15a-a0aea193bc3e"],
274+
Cell[4191, 131, 755, 24, 46, "Output",ExpressionUUID->"6cfbbc75-9c35-48fa-9aa9-d5cc65036924"]
275+
}, Open ]],
276+
Cell[4961, 158, 302, 6, 58, "Text",ExpressionUUID->"92c39553-3602-4091-bd53-a66b507052e6"],
277+
Cell[CellGroupData[{
278+
Cell[5288, 168, 167, 3, 69, "Chapter",ExpressionUUID->"4fce5f0e-5a1e-4648-b91d-412fa0930118"],
279+
Cell[5458, 173, 419, 9, 104, "Text",ExpressionUUID->"eeed5322-d627-43e2-bda7-48e6bfbfe06a"],
280+
Cell[5880, 184, 571, 16, 196, "Text",ExpressionUUID->"91aae324-ec92-4b7f-93a5-e5be2494d68d"],
281+
Cell[6454, 202, 1019, 31, 495, "Text",ExpressionUUID->"5567187c-9e51-444f-bd3f-6e1035e1af1b"]
282+
}, Open ]]
283+
}, Open ]]
284+
}
285+
]
286+
*)
287+

0 commit comments

Comments
 (0)