Lösungen/Solutions/E1S1AlUe/Ex1

L = Lektion/ Leçon   -- Sprechstunde / heures de consultation
W = Work / Arbeit / Travail
A=Anhang/Annexe/Appendice

Ueb/Ex 1

a L

Utilitarismus,Philosophie, Sakrales, Spiel / Utilitarisme, philosophie, réligion, jeux.

b L

q = r / s.     
{r, s}= Punkt in Koordiantensystem, spiralig um Ursprung abzählen.
{r, s}= point dans un syst. de coord., énumeroter d'après une spirale.

Ueb/Ex 2      L / W

Lade das File im Mathematica, fahre mit dem Cursor in die nachfolgenden Zellen mit Mathematica-Code und drücke die Enter-Taste. Dann erscheint der Output.
Charger le fichier dans Mathematica, aller avec le cursor dans les cellules avec du code de Mathematica, presser Entrer. Alors l'output apparait.

a

Show[
        Graphics[{Thickness[
              0.01], 
Line[{{0, 4}, {7, 
                  4}}], 
Line[{{0, 0}, {7, 0}, {4, 4}, {0, 
                  0}}]
}], 
        AspectRatio -> Automatic];

b

Show[
        Graphics[{Thickness[
              0.01], 
Line[{{0, 0}, {7, 0}, {7, 7}, {0, 
                  7}, {0, 0}, {3, 0}, {3, 7}, {0, 7}, {3, 3}, {7, 0}, {7, 
                  3}, {0, 3}}], 
Line[{{10, 0}, {17, 
                  0}, {17, 7}, {10, 7}, {10, 0}, {14, 0}, {17, 4}, {13, 
                  7}, {10, 3}, {14, 0}}]
}], 
        AspectRatio -> Automatic];

c

Show[
        Graphics[{Thickness[0.01], 
            Circle[{0, 0}, 
              1], 
Line[{{-1.2, 0}, {1.2, 0}, {1, 
                  0}, {Cos[Pi/5], Sin[Pi/5]}, {-1, 
                  0}, -{Cos[Pi/5], Sin[Pi/5]}, {1, 0}, {Cos[Pi/5], 
                  Sin[Pi/5]}, -{Cos[Pi/5], 
                    Sin[Pi/5]}}]
}], 
        AspectRatio -> Automatic];

Ueb/Ex 3      W

Ueb/Ex 4      W

Ueb/Ex 5      W

Ueb/Ex 6      W

Ueb/Ex 7      W

===> Konsultiere die Literatur ! 
(Die Symbole werden z.B. im Algebra-Kurs "Script . Mat . Ing" erklärt.)
===> Consulter la littérature ! 
(Les symboles sont expliqués dans le cours d'algèbre "Script . Mat . Ing".)