Antworte auf:  Grafik erstellen 6-Eck mit beschrifteten Ecken von Slash
Forum:  Textsatz mit LaTeX, moderiert von: Stefan_K

[Zur Forum-Gliederung] [Wie man Fragen beantwortet] [Themenstart einblenden]

  Alle registrierten Mitglieder können Mitteilungen schreiben.
Benutzername:
Passwort:
Nachricht-Icon:                   
                  
              
Nachricht:


 
 


Input assistance tools (JavaScript): [Link extern intern] [MathML?] [$$?]
[fed-area] [LaTeX-inline] [LaTeX-display] [Tikz] [hide-area][show-area] [Source code [num.]][?]
 Show Preview      Write using fedgeo formula editor or Latex.

Smilies for your message:
😃 😄 😁 🙂 🙃 😉 🤗 🤫 🤔 🙄 😴 🤒 😎 😮 😲 😂
🙁 😖 😒 😐 😡 👌 👍 👎 🤢 🤧 🥵 🥶 😵 🤯 😛 😷
Optionen: Deaktiviere HTML in dieser Nachricht
Deaktiviere MATHML in dieser Nachricht. Wenn Dein Text $-Zeichen enthält, die nicht LaTeX-Formeln begrenzen.
Deaktiviere Smilies in dieser Nachricht
Zeige die Signatur (Kann in 'Mein Profil' editiert werden.)
    [Abbrechen]
 
Beachte bitte die [Forumregeln]


Themenübersicht
Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.40, eingetragen 2021-06-12 15:49    [Diesen Beitrag zitieren]
\quoteon(2021-06-12 15:07 - Slash in Beitrag No. 39) Ich möchte jetzt nur eine Grafik erstellen, allerdings mit 10 Koronen, sprich 330 6ecke. Dafür benötige ich die Eingabe/Lesen bei "\pgfplotstableread" in einer Zeile. Muss ich dafür bei "\pgfplotstablegetelem{0}{#1}\of{\mytable}" nur die geschweiften Kammern vertauschen oder muss der ganze code danach angepasst werden? Gruß, Slash \quoteoff Wie was? Ich hatte gesagt, dass die pgfplotstable-Syntax an einfachen Prinzipbeispielen zu verstehen ist, nicht an 330 Kokronen. So ein Projekt enthält mindestens 5 Einzeldateien, in denen man Teilprobeme gelöst hat. Falls Du das nicht glauben oder wahrhaben willst: So sieht ein Ordner für Einzelprobleme eines Hauptprojektes aus: https://matheplanet.de/matheplanet/nuke/html/uploads/b/52997_32_5555555555555.png Kein normaler Mensch löst Teilprobleme alles auf einmal in seiner Hauptdatei. $ % axis} \pgfplotstableread[col sep=semicolon, header=true]{ Titel0; Titel1; Titel2 r0c0; r0c1; r0c3 r1c0; r1c1; r1c3 r2c0; r2c2; r2c3 r3c0; r3c2; r3c3 }\mytable \pgfplotstablegetrowsof{\mytable} \pgfmathtruncatemacro\LastRowNo{\pgfplotsretval-1} \pgfplotstablegetcolsof{\mytable} \pgfmathtruncatemacro\LastColNo{\pgfplotsretval-1} LastRowNo: \LastRowNo,~ LastColNo: \LastColNo \bigskip \pgfplotstabletypeset[string type]{\mytable} \bigskip Test -- geht nicht, % Geht nicht %\pgfplotstablegetelem{0}{0}\of{\mytable} %\pgfplotsretval aber Test: \pgfplotstablegetelem{0}{Titel0}\of{\mytable} \pgfplotsretval~ geht oder: \pgfplotstablegetelem{0}{[index]0}\of{\mytable} \pgfplotsretval~ Test: \foreach \row in {0,...,\LastRowNo}{ \pgfplotstablegetelem{\row}{[index]1}\of{\mytable} \pgfplotsretval \ifnum\row<\LastRowNo ,~\fi% optional } Test: \foreach \col in {1,...,\LastColNo}{ \pgfplotstablegetelem{2}{[index]\col}\of{\mytable} \pgfplotsretval \ifnum\col<\LastColNo ,~\fi% optional } $ \showon LaTeX \sourceon (latex) \documentclass[]{article} \usepackage{pgfplotstable} \pgfplotsset{compat=newest} \begin{document} \pgfplotstableread[col sep=semicolon, header=true]{ Titel0; Titel1; Titel2 r0c0; r0c1; r0c3 r1c0; r1c1; r1c3 r2c0; r2c2; r2c3 r3c0; r3c2; r3c3 }\mytable \pgfplotstablegetrowsof{\mytable} \pgfmathtruncatemacro\LastRowNo{\pgfplotsretval-1} \pgfplotstablegetcolsof{\mytable} \pgfmathtruncatemacro\LastColNo{\pgfplotsretval-1} LastRowNo: \LastRowNo,~ LastColNo: \LastColNo \bigskip \pgfplotstabletypeset[string type]{\mytable} \bigskip Test -- geht nicht, % Geht nicht %\pgfplotstablegetelem{0}{0}\of{\mytable} %\pgfplotsretval aber Test: \pgfplotstablegetelem{0}{Titel0}\of{\mytable} \pgfplotsretval~ geht oder: \pgfplotstablegetelem{0}{[index]0}\of{\mytable} \pgfplotsretval~ Test: \foreach \row in {0,...,\LastRowNo}{ \pgfplotstablegetelem{\row}{[index]1}\of{\mytable} \pgfplotsretval \ifnum\row<\LastRowNo ,~\fi% optional } Test: \foreach \col in {1,...,\LastColNo}{ \pgfplotstablegetelem{2}{[index]\col}\of{\mytable} \pgfplotsretval \ifnum\col<\LastColNo ,~\fi% optional } \end{document} \sourceoff \showoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.39, eingetragen 2021-06-12 15:07    [Diesen Beitrag zitieren]
Ich möchte jetzt nur eine Grafik erstellen, allerdings mit 10 Koronen, sprich 330 6ecke. Dafür benötige ich die Eingabe/Lesen bei "\pgfplotstableread" in einer Zeile. Muss ich dafür bei "\pgfplotstablegetelem{0}{#1}\of{\mytable}" nur die geschweiften Kammern vertauschen oder muss der ganze code danach angepasst werden? Gruß, Slash

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.38, eingetragen 2021-05-24 18:11    [Diesen Beitrag zitieren]
\quoteon(2021-05-24 13:28 - Slash in Beitrag No. 37) 0) So, ich habe den neuen Code jetzt studiert und konnte ihn hier und da etwas reduzieren, da ich die Spirale und die Nummerierungen für meine jetzigen Zwecke nicht benötige. 2 Veränderungen sind aber offengeblieben: 1) Drehung der Darstellungen um 60 Grad nach Links. 2) Spalten und Zeilen vertauschen bei "pgfplotstableread". Sind 1) und 2) leicht umzusetzen oder wäre das ein Riesending? "shape border rotate=60" funktioniert leider nicht oder ich habe es an der falschen Stelle eingefügt. 3) Die Farben sind blasser als vorher. Das ist aber vermutlich derselbe Bug wie bei den Streiholzgraphen und kann wohl nicht behoben werden. \quoteoff 0) Du reduzierst also um zweimal eine Zeile Code für Hilfswerkzeuge, die der Orientierung und der Übersicht dienen und die mit \sourceon \def\Nummerierung{1}% 1 'ja', 0 'nein' \def\Spirale{0}% 1 'ja', 0 'nein' \sourceoff jederzeit ausblendbar sind. Ja, tolle Leistung... 1) Wozu? Damit die Zuordnungsreihenfolge anders wird? Eine optische Veränderung gibt das nicht (wie z.B. bei \rotatebox{30}{\Korone{K1}}). Dann stimmt die Winkelfolge (die man sich auch im 2. Hilfswerkzeug anzeigen lassen kann) nicht mehr. 2) Die Syntax ist \pgfplotstablegetelem{}{}\of{\mytable}. Je nachdem, wie die Tabelle aussieht, muss.... Die Tabellenarbeit mit pgfplotstable sollte aber in einfachen Beispielen, mit Zuhilfenahme des Handbuches, verstanden werden. 3) \sourceon fill= #1!44 \sourceoff Da steht 44 Prozent! Soll ich das wegmachen oder was?! $ % axis} % Eingabe =============================== \pgfmathsetmacro{\R}{0.875} % Umkreisradius % Default \def\Nummerierung{1}% 1 'ja', 0 'nein' \def\Spirale{0}% 1 'ja', 0 'nein' % Farben \foreach \Letter/\mycolor in { a/brown, b/red, c/orange, d/yellow, e/green!60!black, f/blue, g/violet, h/gray}{ \xglobal\colorlet{color\Letter}{\mycolor} } % Werte \pgfplotstableread[col sep=comma, header=true]{ No, K1, K2 0, a, a 1, b, a 2, c, a 3, d, b 4, e, b 5, f, b 6, g, c 7, h, c 8, a, c 9, a, d 10, b, d 11, b, d 12, c, e 13, c, e 14, d, e 15, d, f 16, e, f 17, e, f 18, f, g %19, f, g %20, f, g %21, f, g }\mytable % =============================== \pgfplotstablegetrowsof{\mytable} \pgfmathtruncatemacro\Rows{\pgfplotsretval-1} \pgfmathsetmacro{\AnzahlSechsecke}{\Rows}% Anzahl Sechsecke um Mittensechseck \tikzset{ Parkett/.style={ shape=regular polygon, regular polygon sides=6, inner sep=0pt, draw=black, thick, % fill= #1!44, % alt fill= #1, % neu minimum width=\R cm, % Umkreisradius font=\bfseries\footnotesize, %shape border rotate=30, % rotate=60, }, Parkett/.default=black, Spirale/.style={red!80!black, very thick, dotted}, } % Abhängige Hilfsgrößen \pgfmathtruncatemacro{\Sechsecke}{\AnzahlSechsecke-1} \pgfmathtruncatemacro{\ArrayNumMax}{\Rows-1} \pgfmathsetmacro{\umlaeufe}{ceil(1/3*(sqrt(3*(\Sechsecke)+1)-1))}% % Winkelliste \foreach \A [evaluate=\A as \B using {int(\A-1)}] in {1,...,\umlaeufe} {\foreach \No in {1,...,\A} {\ifnum\No=1 \ifnum\A=1 \xdef\WinkelListe{45} \else \xdef\WinkelListe{\WinkelListe, 45} \fi \else \xdef\WinkelListe{\WinkelListe, 45} \fi} \ifnum\B>0 \foreach \b in {1,...,\B} {\xdef\WinkelListe{\WinkelListe, 90}} \fi \foreach \X in {135,225,270,315} {\foreach \Y in {1,...,\A} {\xdef\WinkelListe{\WinkelListe, \X}}} } %\typeout{\WinkelListe} % Array anlegen % \ArrayLength{{1,2,3,4}} \xdef\winkelliste{{\WinkelListe}} %\pgfmathsetmacro{\winkel}{\WinkelListe[0]} % Test \newcommand\Korone[1]{%==================== \pgfmathsetmacro{\r}{\R*sqrt(3)/2}% Inkreisradius \begin{tikzpicture}[%scale=0.7, x =0.75*\R cm, y=0.5*\r cm, font=\tiny,%\footnotesize, ] % Start: Mittensechseck \pgfplotstablegetelem{0}{#1}\of{\mytable}% #1 = Spalte \xdef\Letter{\pgfplotsretval} \node[font=\bfseries\footnotesize, Parkett=color\Letter](0) at (0,0){ \Letter \ifnum\Nummerierung=1 {\tiny 0} \fi}; % Rest \foreach[count=\n, evaluate={\N=int(\n-1)}] \ww in {0,...,\ArrayNumMax}{ \pgfmathsetmacro{\w}{{\WinkelListe}[\ww]} \pgfmathsetmacro{\W}{\w}% Winkel \pgfmathsetmacro{\h}{mod(\W,10)==0 ? 2 : sqrt(2)}% Abstand % Text aus Tabelle \pgfplotstablegetelem{\n}{#1}\of{\mytable} \xdef\Letter{\pgfplotsretval} % Sechseck \path[] (\N) --+ (\W:\h) node[Parkett=color\Letter](\n){\Letter \ifnum\Nummerierung=1 {\tiny \n} \fi}; \ifnum\Spirale=1 \draw[Spirale] (\N.center) -- (\n.center) node[near start, above, sloped, fill=yellow!66, inner sep=0pt]{\W}; \fi } \end{tikzpicture} }%===================================== \begin{document} %Arraylaenge \Arraylaenge \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} \subsection{Beispiel} AnzahlSechsecke: \AnzahlSechsecke \\ Nummer maximales Sechseck: \Sechsecke \\ Winkelliste anzeigen: \WinkelListe \\ Rows: \Rows \\ ArrayNumMax: \ArrayNumMax \\ %Arraylaenge: \the\value{arraycard}% % Testwert: %\pgfmathsetmacro{\winkel}{{\WinkelListe}[15]} %\winkel {\pgfmathsetmacro{\R}{1.567} \def\Spirale{1} \rotatebox{0}{\Korone{K1}} } \subsection{Beispiel} \begin{tabular}{c c } \Korone{K1} & \Korone{K2} \end{tabular} $ \showon \sourceon latex \documentclass[]{article} \usepackage{tikz} \usetikzlibrary{shapes} \usepackage{pgfplotstable} \pgfplotsset{compat=newest} % Eingabe =============================== \pgfmathsetmacro{\R}{0.875} % Umkreisradius % Default \def\Nummerierung{1}% 1 'ja', 0 'nein' \def\Spirale{0}% 1 'ja', 0 'nein' % Farben \foreach \Letter/\mycolor in { a/brown, b/red, c/orange, d/yellow, e/green!60!black, f/blue, g/violet, h/gray}{ \xglobal\colorlet{color\Letter}{\mycolor} } % Werte \pgfplotstableread[col sep=comma, header=true]{ No, K1, K2 0, a, a 1, b, a 2, c, a 3, d, b 4, e, b 5, f, b 6, g, c 7, h, c 8, a, c 9, a, d 10, b, d 11, b, d 12, c, e 13, c, e 14, d, e 15, d, f 16, e, f 17, e, f 18, f, g %19, f, g %20, f, g %21, f, g }\mytable % =============================== \pgfplotstablegetrowsof{\mytable} \pgfmathtruncatemacro\Rows{\pgfplotsretval-1} \pgfmathsetmacro{\AnzahlSechsecke}{\Rows}% Anzahl Sechsecke um Mittensechseck \tikzset{ Parkett/.style={ shape=regular polygon, regular polygon sides=6, inner sep=0pt, draw=black, thick, % fill= #1!44, % alt fill= #1, % neu minimum width=\R cm, % Umkreisradius font=\bfseries\footnotesize, %shape border rotate=30, % rotate=60, }, Parkett/.default=black, Spirale/.style={red!80!black, very thick, dotted}, } % Abhängige Hilfsgrößen \pgfmathtruncatemacro{\Sechsecke}{\AnzahlSechsecke-1} \pgfmathtruncatemacro{\ArrayNumMax}{\Rows-1} \pgfmathsetmacro{\umlaeufe}{ceil(1/3*(sqrt(3*(\Sechsecke)+1)-1))}% % Winkelliste \foreach \A [evaluate=\A as \B using {int(\A-1)}] in {1,...,\umlaeufe} {\foreach \No in {1,...,\A} {\ifnum\No=1 \ifnum\A=1 \xdef\WinkelListe{45} \else \xdef\WinkelListe{\WinkelListe, 45} \fi \else \xdef\WinkelListe{\WinkelListe, 45} \fi} \ifnum\B>0 \foreach \b in {1,...,\B} {\xdef\WinkelListe{\WinkelListe, 90}} \fi \foreach \X in {135,225,270,315} {\foreach \Y in {1,...,\A} {\xdef\WinkelListe{\WinkelListe, \X}}} } %\typeout{\WinkelListe} % Array anlegen % \ArrayLength{{1,2,3,4}} \xdef\winkelliste{{\WinkelListe}} %\pgfmathsetmacro{\winkel}{\WinkelListe[0]} % Test \newcommand\Korone[1]{%==================== \pgfmathsetmacro{\r}{\R*sqrt(3)/2}% Inkreisradius \begin{tikzpicture}[%scale=0.7, x =0.75*\R cm, y=0.5*\r cm, font=\tiny,%\footnotesize, ] % Start: Mittensechseck \pgfplotstablegetelem{0}{#1}\of{\mytable}% #1 = Spalte \xdef\Letter{\pgfplotsretval} \node[font=\bfseries\footnotesize, Parkett=color\Letter](0) at (0,0){ \Letter \ifnum\Nummerierung=1 {\tiny 0} \fi}; % Rest \foreach[count=\n, evaluate={\N=int(\n-1)}] \ww in {0,...,\ArrayNumMax}{ \pgfmathsetmacro{\w}{{\WinkelListe}[\ww]} \pgfmathsetmacro{\W}{\w}% Winkel \pgfmathsetmacro{\h}{mod(\W,10)==0 ? 2 : sqrt(2)}% Abstand % Text aus Tabelle \pgfplotstablegetelem{\n}{#1}\of{\mytable} \xdef\Letter{\pgfplotsretval} % Sechseck \path[] (\N) --+ (\W:\h) node[Parkett=color\Letter](\n){\Letter \ifnum\Nummerierung=1 {\tiny \n} \fi}; \ifnum\Spirale=1 \draw[Spirale] (\N.center) -- (\n.center) node[near start, above, sloped, fill=yellow!66, inner sep=0pt]{\W}; \fi } \end{tikzpicture} }%===================================== \begin{document} %Arraylaenge \Arraylaenge \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} \subsection{Beispiel} AnzahlSechsecke: \AnzahlSechsecke \\ Nummer maximales Sechseck: \Sechsecke \\ Winkelliste anzeigen: \WinkelListe \\ Rows: \Rows \\ ArrayNumMax: \ArrayNumMax \\ %Arraylaenge: \the\value{arraycard}% % Testwert: %\pgfmathsetmacro{\winkel}{{\WinkelListe}[15]} %\winkel {\pgfmathsetmacro{\R}{1.567} \def\Spirale{1} \rotatebox{0}{\Korone{K1}} } \subsection{Beispiel} \begin{tabular}{c c } \Korone{K1} & \Korone{K2} \end{tabular} \end{document} \sourceoff \showoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.37, eingetragen 2021-05-24 13:28    [Diesen Beitrag zitieren]
So, ich habe den neuen Code jetzt studiert und konnte ihn hier und da etwas reduzieren, da ich die Spirale und die Nummerierungen für meine jetzigen Zwecke nicht benötige. 2 Veränderungen sind aber offengeblieben: 1) Drehung der Darstellungen um 60 Grad nach Links. 2) Spalten und Zeilen vertauschen bei "pgfplotstableread". Sind 1) und 2) leicht umzusetzen oder wäre das ein Riesending? "shape border rotate=60" funktioniert leider nicht oder ich habe es an der falschen Stelle eingefügt. Die Farben sind blasser als vorher. Das ist aber vermutlich derselbe Bug wie bei den Streiholzgraphen und kann wohl nicht behoben werden.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.36, eingetragen 2021-05-24 02:23    [Diesen Beitrag zitieren]
Hut ab, Wario. Spitzenmäßiger Code! Das goldene 6eck geht an... Wario!

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.35, eingetragen 2021-05-23 22:00    [Diesen Beitrag zitieren]
\quoteon(2021-05-23 19:00 - Wario in Beitrag No. 34) Nein? - Doch! - Ochhh! Ahahaha, Peng Peng Tüdelü! \quoteoff Schön gesagt. Sehr poetisch.😎 Danke! Das schaut doch sehr gut aus, muss ich mir aber noch genauer ansehen, also den Code. Nach drei Stunden selbst rumprobieren mit den alten Codes war ich schon ziemlich frustriert, da nur Fehler produziert wurden.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.34, eingetragen 2021-05-23 19:00    [Diesen Beitrag zitieren]
Der "berühmte" Urcode ist hahnebüchen, weil da nodes nach Augenmaß platziert sind. Die kleinste Änderung kann Neuschreibung bedeuten. In sowas werde ich mich nicht reindenken oder versuchen es zu korrigieren. Nodes sind relativ in Pfadabhängigkeit zu setzen! Ist doch alles längst da, muss man nur noch etwas anpassen. Mir ist aufgefallen, dass ich mir damals die Zahlentheoretische Funktion \pgfmathsetmacro{\umlaeufe}{ceil(1/3*(sqrt(3*(\Sechsecke)+1)-1))}% überlegt hatte, die die Anzahl der Umläufe aus der Anzahl der Sechsecke berechnet. Wohlmöglich bin ich hier der große Parkett-Theoretiker, ohne es zu wissen. Nicht zu fassen! $ % axis} % Eingabe =============================== \pgfmathsetmacro{\R}{0.875} % Umkreisradius % Default \def\Nummerierung{1}% 1 'ja', 0 'nein' \def\Spirale{0}% 1 'ja', 0 'nein' % Farben \foreach \Letter/\mycolor in { a/brown, b/red, c/orange, d/yellow, e/green!60!black, f/blue, g/violet, h/gray}{ \xglobal\colorlet{color\Letter}{\mycolor} } % Werte \pgfplotstableread[col sep=comma, header=true]{ No, K1, K2 0, a, a 1, b, a 2, c, a 3, d, b 4, e, b 5, f, b 6, g, c 7, h, c 8, a, c 9, a, d 10, b, d 11, b, d 12, c, e 13, c, e 14, d, e 15, d, f 16, e, f 17, e, f 18, f, g %19, f, g %20, f, g %21, f, g }\mytable % =============================== \pgfplotstablegetrowsof{\mytable} \pgfmathtruncatemacro\Rows{\pgfplotsretval-1} \pgfmathsetmacro{\AnzahlSechsecke}{\Rows}% Anzahl Sechsecke um Mittensechseck \tikzset{ Parkett/.style={ shape=regular polygon, regular polygon sides=6, inner sep=0pt, draw=black, thick, fill= #1!44, minimum width=\R cm, % Umkreisradius font=\bfseries\footnotesize, }, Parkett/.default=black, Spirale/.style={red!80!black, very thick, dotted}, } % Abhängige Hilfsgrößen \pgfmathtruncatemacro{\Sechsecke}{\AnzahlSechsecke-1} \pgfmathtruncatemacro{\ArrayNumMax}{\Rows-1} \pgfmathsetmacro{\umlaeufe}{ceil(1/3*(sqrt(3*(\Sechsecke)+1)-1))}% % Winkelliste \foreach \A [evaluate=\A as \B using {int(\A-1)}] in {1,...,\umlaeufe} {\foreach \No in {1,...,\A} {\ifnum\No=1 \ifnum\A=1 \xdef\WinkelListe{45} \else \xdef\WinkelListe{\WinkelListe,45} \fi \else \xdef\WinkelListe{\WinkelListe,45} \fi} \ifnum\B>0 \foreach \b in {1,...,\B} {\xdef\WinkelListe{\WinkelListe,90}} \fi \foreach \X in {135,225,270,315} {\foreach \Y in {1,...,\A} {\xdef\WinkelListe{\WinkelListe,\X}}} } %\typeout{\WinkelListe} % Array anlegen % \ArrayLength{{1,2,3,4}} \xdef\winkelliste{{\WinkelListe}} %\pgfmathsetmacro{\winkel}{\WinkelListe[0]} % Test \newcommand\Korone[1]{%==================== \pgfmathsetmacro{\r}{\R*sqrt(3)/2}% Inkreisradius \begin{tikzpicture}[%scale=0.7, x =0.75*\R cm, y=0.5*\r cm, font=\tiny,%\footnotesize, ] % Start: Mittensechseck \pgfplotstablegetelem{0}{#1}\of{\mytable}% #1 = Spalte \xdef\Letter{\pgfplotsretval} \node[font=\bfseries\footnotesize, Parkett=color\Letter](0) at (0,0){ \Letter \ifnum\Nummerierung=1 {\tiny 0} \fi}; % Rest \foreach[count=\n, evaluate={\N=int(\n-1)}] \ww in {0,...,\ArrayNumMax}{ \pgfmathsetmacro{\w}{{\WinkelListe}[\ww]} \pgfmathsetmacro{\W}{\w}% Winkel \pgfmathsetmacro{\h}{mod(\W,10)==0 ? 2 : sqrt(2)}% Abstand % Text aus Tabelle \pgfplotstablegetelem{\n}{#1}\of{\mytable} \xdef\Letter{\pgfplotsretval} % Sechseck \path[] (\N) --+ (\W:\h) node[Parkett=color\Letter](\n){\Letter \ifnum\Nummerierung=1 {\tiny \n} \fi}; \ifnum\Spirale=1 \draw[Spirale] (\N.center) -- (\n.center); \fi } \end{tikzpicture} }%===================================== \begin{document} %Arraylaenge \Arraylaenge \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} \subsection{Beispiel} AnzahlSechsecke: \AnzahlSechsecke \\ Nummer maximales Sechseck: \Sechsecke \\ Winkelliste anzeigen: \WinkelListe \\ Rows: \Rows \\ ArrayNumMax: \ArrayNumMax \\ %Arraylaenge: \the\value{arraycard}% % Testwert: %\pgfmathsetmacro{\winkel}{{\WinkelListe}[15]} %\winkel {\pgfmathsetmacro{\R}{1.567} \def\Spirale{1} \Korone{K1} } \subsection{Beispiel} \begin{tabular}{c c } \Korone{K1} & \Korone{K2} \end{tabular} $ \showon LaTeX \sourceon (latex) \documentclass[]{article} \usepackage{tikz} \usetikzlibrary{shapes} \usepackage{pgfplotstable} \pgfplotsset{compat=newest} % Eingabe =============================== \pgfmathsetmacro{\R}{0.875} % Umkreisradius % Default \def\Nummerierung{1}% 1 'ja', 0 'nein' \def\Spirale{0}% 1 'ja', 0 'nein' % Farben \foreach \Letter/\mycolor in { a/brown, b/red, c/orange, d/yellow, e/green!60!black, f/blue, g/violet, h/gray}{ \xglobal\colorlet{color\Letter}{\mycolor} } % Werte \pgfplotstableread[col sep=comma, header=true]{ No, K1, K2 0, a, a 1, b, a 2, c, a 3, d, b 4, e, b 5, f, b 6, g, c 7, h, c 8, a, c 9, a, d 10, b, d 11, b, d 12, c, e 13, c, e 14, d, e 15, d, f 16, e, f 17, e, f 18, f, g %19, f, g %20, f, g %21, f, g }\mytable % =============================== \pgfplotstablegetrowsof{\mytable} \pgfmathtruncatemacro\Rows{\pgfplotsretval-1} \pgfmathsetmacro{\AnzahlSechsecke}{\Rows}% Anzahl Sechsecke um Mittensechseck \tikzset{ Parkett/.style={ shape=regular polygon, regular polygon sides=6, inner sep=0pt, draw=black, thick, fill= #1!44, minimum width=\R cm, % Umkreisradius font=\bfseries\footnotesize, }, Parkett/.default=black, Spirale/.style={red!80!black, very thick, dotted}, } % Abhängige Hilfsgrößen \pgfmathtruncatemacro{\Sechsecke}{\AnzahlSechsecke-1} \pgfmathtruncatemacro{\ArrayNumMax}{\Rows-1} \pgfmathsetmacro{\umlaeufe}{ceil(1/3*(sqrt(3*(\Sechsecke)+1)-1))}% % Winkelliste \foreach \A [evaluate=\A as \B using {int(\A-1)}] in {1,...,\umlaeufe} {\foreach \No in {1,...,\A} {\ifnum\No=1 \ifnum\A=1 \xdef\WinkelListe{45} \else \xdef\WinkelListe{\WinkelListe,45} \fi \else \xdef\WinkelListe{\WinkelListe,45} \fi} \ifnum\B>0 \foreach \b in {1,...,\B} {\xdef\WinkelListe{\WinkelListe,90}} \fi \foreach \X in {135,225,270,315} {\foreach \Y in {1,...,\A} {\xdef\WinkelListe{\WinkelListe,\X}}} } %\typeout{\WinkelListe} % Array anlegen % \ArrayLength{{1,2,3,4}} \xdef\winkelliste{{\WinkelListe}} %\pgfmathsetmacro{\winkel}{\WinkelListe[0]} % Test \newcommand\Korone[1]{%==================== \pgfmathsetmacro{\r}{\R*sqrt(3)/2}% Inkreisradius \begin{tikzpicture}[%scale=0.7, x =0.75*\R cm, y=0.5*\r cm, font=\tiny,%\footnotesize, ] % Start: Mittensechseck \pgfplotstablegetelem{0}{#1}\of{\mytable}% #1 = Spalte \xdef\Letter{\pgfplotsretval} \node[font=\bfseries\footnotesize, Parkett=color\Letter](0) at (0,0){ \Letter \ifnum\Nummerierung=1 {\tiny 0} \fi}; % Rest \foreach[count=\n, evaluate={\N=int(\n-1)}] \ww in {0,...,\ArrayNumMax}{ \pgfmathsetmacro{\w}{{\WinkelListe}[\ww]} \pgfmathsetmacro{\W}{\w}% Winkel \pgfmathsetmacro{\h}{mod(\W,10)==0 ? 2 : sqrt(2)}% Abstand % Text aus Tabelle \pgfplotstablegetelem{\n}{#1}\of{\mytable} \xdef\Letter{\pgfplotsretval} % Sechseck \path[] (\N) --+ (\W:\h) node[Parkett=color\Letter](\n){\Letter \ifnum\Nummerierung=1 {\tiny \n} \fi}; \ifnum\Spirale=1 \draw[Spirale] (\N.center) -- (\n.center); \fi } \end{tikzpicture} }%===================================== \begin{document} %Arraylaenge \Arraylaenge \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} \subsection{Beispiel} AnzahlSechsecke: \AnzahlSechsecke \\ Nummer maximales Sechseck: \Sechsecke \\ Winkelliste anzeigen: \WinkelListe \\ Rows: \Rows \\ ArrayNumMax: \ArrayNumMax \\ %Arraylaenge: \the\value{arraycard}% % Testwert: %\pgfmathsetmacro{\winkel}{{\WinkelListe}[15]} %\winkel {\pgfmathsetmacro{\R}{1.567} \def\Spirale{1} \Korone{K1} } \subsection{Beispiel} \begin{tabular}{c c } \Korone{K1} & \Korone{K2} \end{tabular} \end{document} \sourceoff \showoff PS: Was passiert jetzt wohl, wenn man die Tabelle um \sourceon 19, f, g 20, f, g 21, f, g \sourceoff erweitert; oder, wenn man eine Anzahl Zeilen auskommentiert? Nein? - Doch! - Ochhh! Ahahaha, Peng Peng Tüdelü!

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.33, eingetragen 2021-05-23 15:42    [Diesen Beitrag zitieren]
$ \begin{tikzpicture} \def\Unit{5mm} \def\Num{2} \pgfmathsetlengthmacro\xdiff{cos(30)*\Unit} \pgfmathsetlengthmacro\ydiff{sin(30)*\Unit} \tikzset{x={(\xdiff, -\ydiff)}, y={(\xdiff, \ydiff)}, z={(0, \Unit)}} \pgfmathsetlengthmacro\radius{\Unit/2/cos(30)} \draw \foreach \x in {-\Num, ..., \Num} { \foreach \z in {\the\numexpr -\Num \ifnum\x>0 +\x \fi \relax, ..., \the\numexpr \Num \ifnum\x<0 +\x \fi \relax} {(\x, 0, \z)+(0:\radius) \foreach \i in {1, ..., 5} {-- +(60*\i:\radius)} -- cycle}}; \node (1) at ( 0, 0) {0}; \node (6) at (-1, 1) {1}; \node (3) at (-1, 0) {2}; \node (4) at ( 0,-1) {3}; \node (7) at ( 1,-1) {4}; \node (5) at ( 1, 0) {5}; \node (2) at ( 0, 1) {6}; \node (6) at (-2, 2) {7}; \node (6) at (-2, 1) {8}; \node (1) at (-2, 0) {9}; \node (1) at (-1,-1) {10}; \node (4) at ( 0,-2) {11}; \node (1) at ( 1,-2) {12}; \node (7) at ( 2,-2) {13}; \node (6) at ( 2,-1) {14}; \node (1) at ( 2, 0) {15}; \node (5) at ( 1, 1) {16}; \node (2) at ( 0, 2) {17}; \node (3) at (-1, 2) {18}; \end{tikzpicture} $ \sourceon LaTeX \begin{tikzpicture} \def\Unit{5mm} \def\Num{2} \pgfmathsetlengthmacro\xdiff{cos(30)*\Unit} \pgfmathsetlengthmacro\ydiff{sin(30)*\Unit} \tikzset{x={(\xdiff, -\ydiff)}, y={(\xdiff, \ydiff)}, z={(0, \Unit)}} \pgfmathsetlengthmacro\radius{\Unit/2/cos(30)} \draw \foreach \x in {-\Num, ..., \Num} { \foreach \z in {\the\numexpr -\Num \ifnum\x>0 +\x \fi \relax, ..., \the\numexpr \Num \ifnum\x<0 +\x \fi \relax} {(\x, 0, \z)+(0:\radius) \foreach \i in {1, ..., 5} {-- +(60*\i:\radius)} -- cycle}}; \node (1) at ( 0, 0) {0}; \node (6) at (-1, 1) {1}; \node (3) at (-1, 0) {2}; \node (4) at ( 0,-1) {3}; \node (7) at ( 1,-1) {4}; \node (5) at ( 1, 0) {5}; \node (2) at ( 0, 1) {6}; \node (6) at (-2, 2) {7}; \node (6) at (-2, 1) {8}; \node (1) at (-2, 0) {9}; \node (1) at (-1,-1) {10}; \node (4) at ( 0,-2) {11}; \node (1) at ( 1,-2) {12}; \node (7) at ( 2,-2) {13}; \node (6) at ( 2,-1) {14}; \node (1) at ( 2, 0) {15}; \node (5) at ( 1, 1) {16}; \node (2) at ( 0, 2) {17}; \node (3) at (-1, 2) {18}; \end{tikzpicture} \sourceoff Mir wäre auch schon geholfen, wenn ich für meinen alten Code die Node-Beschriftungen, hier 1 bis 18, aus einer Tabelle lesen könnte. Hab ich bisher aber auch nicht hinbekommen, da mir diese TikZ-Programmierung völlig fremd ist. In Delphi wäre das alles kein Problem für mich, und meinen Brute-force Algorithmus für die Buchstaben habe ich in PARI/GP programmiert.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.32, eingetragen 2021-05-23 04:56    [Diesen Beitrag zitieren]
\quoteon(2021-05-23 01:41 - Slash in Beitrag No. 31) Also ich ersetze einfach \n in \def\TextParkett{(\n)} durch \pgfplotstablegetelem{\n}{Letter}\of{\mytable} \pgfplotsretval ? \quoteoff Das musst Du testen, ob das geht. Vermutlich nicht. Ansonsten das Ganze in der Schleife, für die nodes. Irgendwie so: \sourceon (latex) \foreach \n in {0,....,123}{%% \pgfplotstablegetelem{\n}{Letter}\of{\mytable} \xdef\TextParkett{\pgfplotsretval} \node[....] at (...) {\TextParkett}; }%% \sourceoff \quoteon(2021-05-22 14:15 - Slash in Beitrag No. 29) *auch wenn deine kostbare Zeit begrenzt ist, bei all deinen ehrenamtlichen Tätigkeiten (Unterrichten von Flüchtlingskindern, Betreuung von alten Leuten im Heim, Leitung des Volkshochschul-Bibelkreises, etc. pp.)👍 \quoteoff Und dann betätige ich mich noch als Streichler für ausgesetzte Hunde und singe blinde Witwen in den Schlaf.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.31, eingetragen 2021-05-23 01:41    [Diesen Beitrag zitieren]
\quoteon(2021-05-22 22:05 - Wario in Beitrag No. 30) Aktuell ist die Beschriftung \def\TextParkett{(\n)}, wobei \n die Nummer des n-ten Sechsecks ist. Dafür kann genausogut \pgfplotstablegetelem{\n}{Letter}\of{\mytable} \pgfplotsretval eingesetzt werden, wobei \pgfplotsretval das Element der n-ten Zeile der Spalte mit dem header Letter ist, aus einer Tabelle \mytable. \quoteoff Also ich ersetze einfach \n in \def\TextParkett{(\n)} durch \pgfplotstablegetelem{\n}{Letter}\of{\mytable} \pgfplotsretval ?

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.30, eingetragen 2021-05-22 22:05    [Diesen Beitrag zitieren]
Aktuell ist die Beschriftung \def\TextParkett{(\n)}, wobei \n die Nummer des n-ten Sechsecks ist. Dafür kann genausogut \pgfplotstablegetelem{\n}{Letter}\of{\mytable} \pgfplotsretval eingesetzt werden, wobei \pgfplotsretval das Element der n-ten Zeile der Spalte mit dem header Letter ist, aus einer Tabelle \mytable.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.29, eingetragen 2021-05-22 14:15    [Diesen Beitrag zitieren]
@ Wario Tja, also ich fürchte, du musst mir nochmal helfen...* Ich habe mir den Code aus dem alten Thread jetzt viele Stunden angeschaut, aber ich habe nicht die geringste Ahnung, wie ich den mit dem neuen Code unter einen Hut bringen kann. Ich würde gerne die Tabelle mit 18 Buchstaben erweitern, also alt: b, a, c, c, b, f neu: b, a, c, c, b, f, b, c, e, c, d, b, a, b, a, f, e, d ...und damit entsprechend die zweite Korona zeichnen lassen. Dank und Gruß, Slash *auch wenn deine kostbare Zeit begrenzt ist, bei all deinen ehrenamtlichen Tätigkeiten (Unterrichten von Flüchtlingskindern, Betreuung von alten Leuten im Heim, Leitung des Volkshochschul-Bibelkreises, etc. pp.)👍

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.28, eingetragen 2021-05-17 21:40    [Diesen Beitrag zitieren]
\quoteon(2021-05-17 17:13 - Wario in Beitrag No. 27) Schon vergessen? Schon vergessen?! \quoteoff Ja, in der Tat. Dann will ich mir das (noch)mal ansehen. 😎

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.27, eingetragen 2021-05-17 17:13    [Diesen Beitrag zitieren]
\quoteon(2021-05-17 13:53 - Slash in Beitrag No. 26) Meinst du in einem anderen Thread? Mein Code in #3 kann das zwar leicht realisieren, aber ich kann das nicht auf deinen letzten Code in #10 übertragen, den ich jetzt verwende. \quoteoff Was war mit diesem Krimskrams hier?! Mit KoSy: https://matheplanet.de/matheplanet/nuke/html/latexrender/pictures/aaaaab44d0809e843868346463c7f99d.png Schon vergessen? Schon vergessen?!

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.26, eingetragen 2021-05-17 13:53    [Diesen Beitrag zitieren]
Meinst du in einem anderen Thread? Mein Code in #3 kann das zwar leicht realisieren, aber ich kann das nicht auf deinen letzten Code in #10 übertragen, den ich jetzt verwende.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.25, eingetragen 2021-05-17 02:25    [Diesen Beitrag zitieren]
\quoteon(2021-05-17 01:39 - Slash in Beitrag No. 24) @ Wario So, weiter geht's. Jetzt 'ne zweite Korona drum rum. Aber dalli! \quoteoff Ja, Du bist ein Spaßgei..., äh -vogel wollte ich sagen. Ich kann mich dunkel erinnern, dass ich Dir (hier) mal ein Koordinatensystem für beliebig viele Koronen geschrieben habe, was nur Koronen oder Sechsecke kennt, wo z.B. (1,3) der erste Koronenmittelpunkt in x-Richtung und der 3. in y-Richtung ist, oder sowas. Das ganze habe ich dann auch noch mit einer Animation aufgeboilert. Wie oft soll ich jetzt hier noch das Rad neu erfinden?! ___________ *) Alleine dafür hätte ich mir mal einen Broiler verdient, den ich nie erhalten habe!

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.24, eingetragen 2021-05-17 01:39    [Diesen Beitrag zitieren]
@ Wario So, weiter geht's. Jetzt 'ne zweite Korona drum rum. Aber dalli!

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.23, eingetragen 2021-05-13 19:37    [Diesen Beitrag zitieren]
Es geht hierbei um eine asymmetrische Kachel, die auf einem 6eck basiert. Die regelmäßigen 6ecke dienen nur der vereinfachten Darstellung. Die Buchstaben geben die 6 verschiedenen Ausrichtungen an, welche die Kachel in einem Parkett annehmen kann. Und die gespiegelte Kachel a ist nun mal in der Mitte. https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_firstcor.jpg

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.22, eingetragen 2021-05-13 14:02    [Diesen Beitrag zitieren]
\quoteon(2021-05-13 13:38 - Slash in Beitrag No. 21) Danke, hab's hinbekommen. ...motiviert durch die Worte "Mann ey" 😎 \quoteoff Es überbleibt natürlich die gewissermaßen moralische Zwickmühle, da das ziemlich bescheuert aussehen muss mit diesen reflektierten a's.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.21, eingetragen 2021-05-13 13:38    [Diesen Beitrag zitieren]
Danke, hab's hinbekommen. ...motiviert durch die Worte "Mann ey" 😎

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.20, eingetragen 2021-05-13 12:35    [Diesen Beitrag zitieren]
\quoteon(2021-05-13 11:31 - Slash in Beitrag No. 19) 1) Genau so. Wie binde ich das jetzt ein ohne das der node-Rahmen erscheint? 2) Ich brauche das gespiegelte a übrigens nur für das 6eck im Zentrum. \quoteoff 1) Mann ey, die Zeile, die Du willst ist \if\Letter a \reflectbox{\Letter} \else \Letter \fi. Der Rest bewirkt allein, dass der Code lauffähig ist. 2) Wenn nur der Letter in der Mitte, sofern er 'a' ist, reflektiert werden soll, dann steht die Abfrage eben innerhalb der Abfrage \ifnum\n=0 ... \else ... \fi.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.19, eingetragen 2021-05-13 11:31    [Diesen Beitrag zitieren]
Genau so. Wie binde ich das jetzt ein ohne das der node-Rahmen erscheint? Ich brauche das gespiegelte a übrigens nur für das 6eck im Zentrum.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.18, eingetragen 2021-05-13 01:40    [Diesen Beitrag zitieren]
\quoteon(2021-05-12 20:46 - Slash in Beitrag No. 15) Jetzt möchte ich "a" als \reflectbox{a} darstellen lassen. \quoteoff Ich weiß zwar nicht was das geben soll, wenn's fertig ist, aber es könnte sowas gesucht sein: $ \begin{tikzpicture}[font=\Huge] \foreach[count=\n] \Letter in {a,f,g,h,a,b,c,a,a,a}{ \node[xshift=1.5*\n cm, draw, minimum size=1cm]{ \if\Letter a \reflectbox{\Letter} \else \Letter \fi}; } \end{tikzpicture} $ \sourceon latex \documentclass[a4paper]{article} \usepackage[margin=2cm]{geometry} \usepackage{tikz} \begin{document} \begin{tikzpicture}[font=\Huge] \foreach[count=\n] \Letter in {a,f,g,h,a,b,c,a,a,a}{ \node[xshift=1.5*\n cm, draw, minimum size=1cm]{ \if\Letter a \reflectbox{\Letter} \else \Letter \fi}; } \end{tikzpicture} \end{document} \sourceoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.17, eingetragen 2021-05-12 22:46    [Diesen Beitrag zitieren]
Das spiegelt ein Zeichen.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.16, eingetragen 2021-05-12 20:53    [Diesen Beitrag zitieren]
\quoteon(2021-05-12 20:46 - Slash in Beitrag No. 15) Jetzt möchte ich "a" als \reflectbox{a} darstellen lassen. \quoteoff Was macht das?

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.15, eingetragen 2021-05-12 20:46    [Diesen Beitrag zitieren]
Danke, funktioniert gut! Jetzt möchte ich "a" als \reflectbox{a} darstellen lassen. Einfach so austauschen funktioniert leider nicht. Gibts da eine andere Möglichkeit für?

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.14, eingetragen 2021-05-12 17:08    [Diesen Beitrag zitieren]
\quoteon(2021-05-12 15:46 - Slash in Beitrag No. 13) Lassen 6-Ecke gezielt färben? Also bezogen auf die beiden letzten Codes? \quoteoff $ % axis} \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \pgfplotstableread[col sep=comma, header=false]{ f, a, a, b, f, a, b g, b, a, f, f, b, a h, a, a, b, f, a, b i, a, a, b, f, a, b j, a, a, b, f, a, b k, a, a, b, f, a, b }\mytable \pgfplotstablegetcolsof{\mytable} \pgfmathtruncatemacro\LastEdge{\pgfplotsretval-1} \foreach \Letter/\mycolor in { a/brown, b/red, f/orange, g/yellow, h/green!60!black, i/blue, j/violet, k/gray}{ \xglobal\colorlet{color\Letter}{\mycolor} } \begin{document} \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} %\LastEdge %\pgfplotstablegetelem{0}{[index]0}\of{\mytable} %\pgfplotsretval \section{Koronen} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[ evaluate={\x=int( mod(\n+1,6)+1 )} ] \n in {0,...,\LastEdge} {%% \pgfplotstablegetelem{#1}{[index]\n}\of{\mytable} \xdef\Letter{\pgfplotsretval} \ifnum\n=0 \node[Sechseck, fill=color\Letter] (A) {\Letter\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, fill=color\Letter, anchor=corner \x] (S\n) at (A.corner \n) {\Letter\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \Korone{1} \bigskip \pgfmathsetmacro\r{0.5} \def\ShowNumbers{0} \begin{tabular}{c c c c c} \Korone{0} & \Korone{1} & \Korone{2} & \Korone{3} & \Korone{4} \\[1em] \end{tabular} $ \showon LaTeX \sourceon (latex) \documentclass[a4paper]{article} \usepackage[margin=2cm]{geometry} \usepackage{tikz} \usetikzlibrary{shapes} \usepackage{pgfplotstable} \pgfplotsset{compat=newest} \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \pgfplotstableread[col sep=comma, header=false]{ f, a, a, b, f, a, b g, b, a, f, f, b, a h, a, a, b, f, a, b i, a, a, b, f, a, b j, a, a, b, f, a, b k, a, a, b, f, a, b }\mytable \pgfplotstablegetcolsof{\mytable} \pgfmathtruncatemacro\LastEdge{\pgfplotsretval-1} \foreach \Letter/\mycolor in { a/brown, b/red, f/orange, g/yellow, h/green!60!black, i/blue, j/violet, k/gray}{ \xglobal\colorlet{color\Letter}{\mycolor} } \begin{document} \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} %\LastEdge %\pgfplotstablegetelem{0}{[index]0}\of{\mytable} %\pgfplotsretval \section{Koronen} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[ evaluate={\x=int( mod(\n+1,6)+1 )} ] \n in {0,...,\LastEdge} {%% \pgfplotstablegetelem{#1}{[index]\n}\of{\mytable} \xdef\Letter{\pgfplotsretval} \ifnum\n=0 \node[Sechseck, fill=color\Letter] (A) {\Letter\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, fill=color\Letter, anchor=corner \x] (S\n) at (A.corner \n) {\Letter\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \Korone{1} \bigskip \pgfmathsetmacro\r{0.5} \def\ShowNumbers{0} \begin{tabular}{c c c c c} \Korone{0} & \Korone{1} & \Korone{2} & \Korone{3} & \Korone{4} \\[1em] \end{tabular} \end{document} \sourceoff \showoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.13, eingetragen 2021-05-12 15:46    [Diesen Beitrag zitieren]
Lassen 6-Ecke gezielt färben? Also bezogen auf die beiden letzten Codes?

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.12, eingetragen 2021-05-08 18:52    [Diesen Beitrag zitieren]
\quoteon(2021-05-08 18:36 - Slash in Beitrag No. 11) Besten Dank Wario! Das sieht doch gut aus. Und der Code ist sehr kurz. Ich kam vorher mit diesem "corner" nicht zurecht. Da kam nur Murks raus. Aber jetzt sind es ja schöne Koronen. \quoteoff Die Syntax ist in #5 erklärt. Da hast ja Du behauptet, dass das nicht primo sei. #9 und #10 sind nur Anwendung / Kundenservice davon. Nimmermehr wirst Du meine wohlfeilen TikZ-Empfehlungen in Frage stellen.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.11, eingetragen 2021-05-08 18:36    [Diesen Beitrag zitieren]
Besten Dank Wario! Das sieht doch gut aus. Und der Code ist sehr kurz. Ich kam vorher mit diesem "corner" nicht zurecht. Da kam nur Murks raus. Aber jetzt sind es ja schöne Koronen.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.10, eingetragen 2021-05-08 15:29    [Diesen Beitrag zitieren]
Das ist eigentlich immer das gleiche und das hatten wir schon öfters und es ist nicht in Frage zu stellen, wenn ich aus der Bibliothek shapes empfehle. $ % axis} \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \pgfplotstableread[col sep=comma, header=false]{ f, a, a, b, f, a, b g, a, a, b, f, a, b h, a, a, b, f, a, b i, a, a, b, f, a, b j, a, a, b, f, a, b k, a, a, b, f, a, b }\mytable \pgfplotstablegetcolsof{\mytable} \pgfmathtruncatemacro\LastColNo{\pgfplotsretval-1} \begin{document} \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} %\pgfplotstablegetelem{0}{3}\of{\mytable} %\pgfplotsretval \section{Koronen} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[ evaluate={\x=int( mod(\n+1,6)+1 )} ] \n in {0,...,\LastColNo} {%% \pgfplotstablegetelem{#1}{\n}\of{\mytable} \xdef\Text{\pgfplotsretval} \ifnum\n=0 \node[Sechseck] (A) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, anchor=corner \x] (S\n) at (A.corner \n) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \Korone{1} \bigskip \pgfmathsetmacro\r{0.5} \def\ShowNumbers{0} \begin{tabular}{c c c c c} \Korone{0} & \Korone{1} & \Korone{2} & \Korone{3} & \Korone{4} \\[1em] \end{tabular} $ \showon LaTeX \sourceon (latex) \documentclass[a4paper]{article} \usepackage[margin=2cm]{geometry} \usepackage{tikz} \usetikzlibrary{shapes} \usepackage{pgfplotstable} \pgfplotsset{compat=newest} \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \pgfplotstableread[col sep=comma, header=false]{ f, a, a, b, f, a, b g, a, a, b, f, a, b h, a, a, b, f, a, b i, a, a, b, f, a, b j, a, a, b, f, a, b k, a, a, b, f, a, b }\mytable \pgfplotstablegetcolsof{\mytable} \pgfmathtruncatemacro\LastColNo{\pgfplotsretval-1} \begin{document} \section{Tabelle} \pgfplotstabletypeset[string type]{\mytable} %\pgfplotstablegetelem{0}{3}\of{\mytable} %\pgfplotsretval \section{Koronen} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[ evaluate={\x=int( mod(\n+1,6)+1 )} ] \n in {0,...,\LastColNo} {%% \pgfplotstablegetelem{#1}{\n}\of{\mytable} \xdef\Text{\pgfplotsretval} \ifnum\n=0 \node[Sechseck] (A) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, anchor=corner \x] (S\n) at (A.corner \n) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \Korone{1} \bigskip \pgfmathsetmacro\r{0.5} \def\ShowNumbers{0} \begin{tabular}{c c c c c} \Korone{0} & \Korone{1} & \Korone{2} & \Korone{3} & \Korone{4} \\[1em] \end{tabular} \end{document} \sourceoff \showoff

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.9, eingetragen 2021-05-08 12:49    [Diesen Beitrag zitieren]
Ja, was weiß ich was Du da wieder machst. Wie immer muss ich Dir die denk- und tatkräftige Arbeit abnehmen, wie schon in der Vergangenheit oft erwiesen... $ \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[count=\n from 0, evaluate={\x=int( mod(\n+1,6)+1 )} ] \Text in {#1} {%% \ifnum\n=0 \node[Sechseck] (A) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, anchor=corner \x] (S\n) at (A.corner \n) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \Korone{f,a,a,b,f,a,b} $ Mit der Einstellung \def\ShowNumbers{0} $ \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[count=\n from 0, evaluate={\x=int( mod(\n+1,6)+1 )} ] \Text in {#1} {%% \ifnum\n=0 \node[Sechseck] (A) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, anchor=corner \x] (S\n) at (A.corner \n) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \pgfmathsetmacro\r{0.5} \def\ShowNumbers{0} \begin{tabular}{c c c c c} \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} \\[1em] \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} \\[1em] \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} \\[1em] \end{tabular} $ \showon LaTeX \sourceon (latex) \documentclass[a4paper]{article} \usepackage[margin=2cm]{geometry} \usepackage{tikz} \usetikzlibrary{shapes} \begin{document} \pgfmathsetmacro\r{0.75} \def\ShowNumbers{1} \newcommand\Korone[1]{% \begin{tikzpicture}[font=\footnotesize, Sechseck/.style={draw, inner sep=0pt, regular polygon, regular polygon sides=6, minimum size=2*\r cm, shape border rotate=30, } ] \foreach[count=\n from 0, evaluate={\x=int( mod(\n+1,6)+1 )} ] \Text in {#1} {%% \ifnum\n=0 \node[Sechseck] (A) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \else \pgfmathsetmacro\w{(2*\n+1)*30} \path[] (0,0) -- (\w:0.678*\r) node[inner sep=0pt]{\ifnum\ShowNumbers=1 E\n \fi}; \node[Sechseck, anchor=corner \x] (S\n) at (A.corner \n) {\Text\ifnum\ShowNumbers=1 (\n)\fi}; \fi}%% \end{tikzpicture} }% \Korone{f,a,a,b,f,a,b} \bigskip \pgfmathsetmacro\r{0.5} \def\ShowNumbers{0} \begin{tabular}{c c c c c} \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} \\[1em] \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} \\[1em] \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} & \Korone{f,a,a,b,f,a,b} \\[1em] \end{tabular} \end{document} \sourceoff \showoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.8, eingetragen 2021-05-08 10:29    [Diesen Beitrag zitieren]
Eine Aufgabe gibt's nicht dazu, ich benötige das für einen Artikel. Die Matrix soll so aussehen: https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_hexagon_matrix.png Eine beliebige Anpassung der Reihen und Spalten wäre aber von Vorteil. Die Buchstaben sollen natürlich auch weiterhin beliebig sein. Der Code aus #3 muss also irgendwie in zwei Schleifen gepackt werden.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.7, eingetragen 2021-05-08 08:49    [Diesen Beitrag zitieren]
Ich kann mir das grad noch nicht vorstellen, wie das am Schluss aussehen soll. Wie lautet die Matrix und wie sieht die Ausgabe dazu aus?

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.6, eingetragen 2021-05-07 21:39    [Diesen Beitrag zitieren]
@ Wario Das hatte ich auch schon gefunden, ist aber für meine Zwecke ungeeignet, da ich eine einfache Darstellung für Koronen brauche, und die liefert der obige Code perfekt. Ich benötige jetzt nur noch einen Algorithmus für die Matrix-Darstellung.

Wario
Aktiv
Dabei seit: 01.05.2020
Mitteilungen: 594
 Beitrag No.5, eingetragen 2021-05-07 20:51    [Diesen Beitrag zitieren]
Gibt's doch alles schon fertig. $ \begin{tikzpicture}[ Sechseck/.style={draw, thick, regular polygon, regular polygon sides=6, minimum size=3 cm, shape border rotate=30, } ] \node[Sechseck, red] (A) {1}; \foreach \n in {1,...,6} { \node[red] at (A.corner \n) [anchor=360/5*(\n-1)+270] {E\n}; } \node[Sechseck, anchor=corner 4, blue] (B) at (A.corner 2) {2}; \node[Sechseck, anchor=corner 2, brown] (C) at (A.corner 6) {3}; \end{tikzpicture} $ \sourceon (latex) \documentclass[border=2mm,tikz]{standalone} \usepackage{tikz} \usetikzlibrary{shapes} \begin{document} \begin{tikzpicture}[ Sechseck/.style={draw, thick, regular polygon, regular polygon sides=6, minimum size=3 cm, shape border rotate=30, } ] \node[Sechseck, red] (A) {1}; \foreach \n in {1,...,6} { \node[red] at (A.corner \n) [anchor=360/5*(\n-1)+270] {E\n}; } \node[Sechseck, anchor=corner 4, blue] (B) at (A.corner 2) {2}; \node[Sechseck, anchor=corner 2, brown] (C) at (A.corner 6) {3}; \end{tikzpicture} \end{document} \sourceoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.4, eingetragen 2021-05-07 18:24    [Diesen Beitrag zitieren]
Ok, ich habe mich jetzt für die letzte Darstellung entschieden. Diese Grafik möchte ich jetzt in einer 4x3 Matrix mit verschieden Node-Beschriftungen darstellen. Das geht doch bestimmt mit einem Unterprogramm/Funktion, also sehr abgekürzt. Das habe ich bisher nicht hinbekommen.

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.3, eingetragen 2021-05-07 17:15    [Diesen Beitrag zitieren]
Habe mir jetzt noch diese etwas andere Lösung programmiert bzw. zusammengegoogelt😉. Das 6-Eck-Parkett lässt sich beliebig erweitern mit Num{Wert}. $ \begin{tikzpicture} \def\Unit{10mm} \def\Num{1} \pgfmathsetlengthmacro\xdiff{cos(30)*\Unit} \pgfmathsetlengthmacro\ydiff{sin(30)*\Unit} \tikzset{x={(\xdiff, -\ydiff)}, y={(\xdiff, \ydiff)}, z={(0, \Unit)}} \pgfmathsetlengthmacro\radius{\Unit/2/cos(30)} \draw \foreach \x in {-\Num, ..., \Num} { \foreach \z in {\the\numexpr -\Num \ifnum\x>0 +\x \fi \relax, ..., \the\numexpr \Num \ifnum\x<0 +\x \fi \relax} {(\x, 0, \z)+(0:\radius) \foreach \i in {1, ..., 5} {-- +(60*\i:\radius)} -- cycle}}; \node (1) at ( 0, 0) {0}; \node (2) at (-1, 1) {1}; \node (3) at (-1, 0) {2}; \node (4) at ( 0,-1) {3}; \node (5) at ( 1,-1) {4}; \node (6) at ( 1, 0) {5}; \node (7) at ( 0, 1) {6}; \end{tikzpicture} $ \sourceon LaTeX TikZ pgf \begin{tikzpicture} \def\Unit{10mm} \def\Num{1} \pgfmathsetlengthmacro\xdiff{cos(30)*\Unit} \pgfmathsetlengthmacro\ydiff{sin(30)*\Unit} \tikzset{x={(\xdiff, -\ydiff)}, y={(\xdiff, \ydiff)}, z={(0, \Unit)}} \pgfmathsetlengthmacro\radius{\Unit/2/cos(30)} \draw \foreach \x in {-\Num, ..., \Num} { \foreach \z in {\the\numexpr -\Num \ifnum\x>0 +\x \fi \relax, ..., \the\numexpr \Num \ifnum\x<0 +\x \fi \relax} {(\x, 0, \z)+(0:\radius) \foreach \i in {1, ..., 5} {-- +(60*\i:\radius)} -- cycle}}; \node (1) at ( 0, 0) {0}; \node (2) at (-1, 1) {1}; \node (3) at (-1, 0) {2}; \node (4) at ( 0,-1) {3}; \node (5) at ( 1,-1) {4}; \node (6) at ( 1, 0) {5}; \node (7) at ( 0, 1) {6}; \end{tikzpicture} \sourceoff

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Beitrag No.2, eingetragen 2021-05-07 15:02    [Diesen Beitrag zitieren]
Habe auf jeden Fall schon wieder was dazugelernt. 😎

markusv
Senior
Dabei seit: 24.01.2017
Mitteilungen: 316
Wohnort: Leipzig

 Beitrag No.1, eingetragen 2021-05-07 13:17    [Diesen Beitrag zitieren]
Mein Vorschlag mit \foreach-Anweisung und geänderten node-Labels. Hier wäre jeweils einmalig nur die Bezeichnungen nach der \foreach-Anweisungen und der Abstand zu ändern. \sourceon LaTeX \documentclass[10pt]{article} \usepackage{tikz} \begin{document} \begin{tikzpicture}[inner sep=1mm] \foreach[count=\i] \x in {A,b,C,d,E,f} \node (\i) at (\i*60:8mm) {\x}; \draw (1) to (2) to (3) to (4) to (5) to (6) to (1); \node (7) at (0,0) {G}; \end{tikzpicture} \end{document} \sourceoff EDIT: sehe gerade, dass die Änderungen auch nicht weniger sind, als in deinem Vorschlag ... aber immerhin weniger Code. :)

Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8454
Wohnort: Sahlenburg (Cuxhaven)

 Themenstart: 2021-05-07 12:53    [Diesen Beitrag zitieren]
Hi, ich habe mit TikZ folgende Grafik erstellt: \sourceon LaTeX TikZ \documentclass[10pt]{article} \usepackage{tikz} \newlength{\R}\setlength{\R}{8mm} \begin{document} \begin{tikzpicture} [inner sep=1mm] \node (a) at ( 60:\R) {a}; \node (b) at (120:\R) {b}; \node (c) at (180:\R) {c}; \node (d) at (240:\R) {d}; \node (e) at (300:\R) {e}; \node (f) at (360:\R) {f}; \draw (a) to (b) to (c) to (d) to (e) to (f) to (a); \node (g) at (0,0) {g}; \end{tikzpicture} \end{document} \sourceoff $ \begin{tikzpicture} \newlength{\R}\setlength{\R}{8mm} [inner sep=1mm] \node (a) at ( 60:\R) {a}; \node (b) at (120:\R) {b}; \node (c) at (180:\R) {c}; \node (d) at (240:\R) {d}; \node (e) at (300:\R) {e}; \node (f) at (360:\R) {f}; \draw (a) to (b) to (c) to (d) to (e) to (f) to (a); \node (g) at (0,0) {g}; \end{tikzpicture} $ Frage 1: Geht das noch einfacher als mit meinem Code? Frage 2: Nun möchte ich das Ganze mittels eines kleinen Programms automatisieren, sodass ich, ähnlich wie bei einer Tabelle, nur die Eck-Beschriftungen angeben muss und mir dann die 6-Ecke in einer Matrix ausgegeben werden. Bin für jeden Tipp dankbar! Gruß, Slash

 
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2001-2021 by Matroids Matheplanet
This web site was originally made with PHP-Nuke, a former web portal system written in PHP that seems no longer to be maintained nor supported. PHP-Nuke is Free Software released under the GNU/GPL license.
Ich distanziere mich von rechtswidrigen oder anstößigen Inhalten, die sich trotz aufmerksamer Prüfung hinter hier verwendeten Links verbergen mögen.
Lesen Sie die Nutzungsbedingungen, die Distanzierung, die Datenschutzerklärung und das Impressum.
[Seitenanfang]