| |
| Autor |
 Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5 |
|
Slash
Aktiv 
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
 |  Beitrag No.1760, vom Themenstarter, eingetragen 2019-06-09
|
@ Stefan
In der neuen Version funktioniert .dxf nicht mehr. Es wird im CAD kein Graph dargestellt.
|
 Profil
|
Slash
Aktiv 
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1761, vom Themenstarter, eingetragen 2019-06-09
|
4/4 mit 116 Versuch. Die zwei zu kurzen Kanten sind in der Mitte.
58 Knoten, 58×Grad 4, 0 Überschneidungen
116 Kanten, minimal 0.76144572942379518121, maximal 1.00000000000001687539
$
%Eingabe war:
%
%Fast 4/4 Versuch
%
%
%
%
%
%
%P[1]=[-58.17515696478699,21.91616964099309];
%P[2]=[17.408388657497426,-36.468463589261944]; D=ab(1,2); A(2,1); N(3,1,2); N(4,3,2); N(5,4,2);
%M(6,1,3,blauerWinkel,2,gruenerWinkel,2,orange_angle,3,fourth_angle,1);
%
%N(22,20,18); N(23,12,10); N(24,3,4); N(25,8,6); N(26,14,23); RA(23,25); N(27,26,25); N(28,27,24);
%
%A(5,21,ab(21,5,[1,28]));
%
%N(55,47,24); RA(48,55); RA(48,52); N(56,55,53); RA(56,54);
%
%A(22,26); N(57,20,50); A(22,57); N(58,57,27); A(58,28);
%
%RA(56,28); A(54,58);
%
%
%
%Ende der Eingabe.
\begin{tikzpicture}[draw=grey,font=\sffamily\scriptsize]
\definecolor{LightCyan}{rgb}{0.88,1.00,1.00}
\definecolor{MintCream}{rgb}{0.96,1.00,0.98}
\definecolor{Snow}{rgb}{1.00,0.98,0.98}
\definecolor{WhiteSmoke}{rgb}{0.96,0.96,0.96}
%Koordinaten als \coordinate (p-1) at (0,0);
\foreach \i/\x/\y in {
1/0.00000000000000000000/3.01415293284119867323,
2/1.18708579730939822738/2.09718657041217815262,
3/1.38765906293403973315/3.58371620856833272839,
4/2.57474486024343773849/2.66674984613931176369,
5/2.37417159461879645477/1.18022020798315785406,
6/1.34189866534699109302/3.68445732036970419188,
7/0.09044870480564128068/4.51142346010037886828,
8/1.43234737015263258186/5.18172784762888305465,
9/0.18089740961128281116/6.00869398735955773105,
10/1.67626938596675634230/5.89095422206878982507,
11/1.03054902556644223388/7.24485422434535575320,
12/2.52592100192191537644/7.12711445905458784722,
13/1.88020064152160171211/8.48101446133115466353,
14/2.63020064152160326643/7.18197635565449754580,
15/3.38020064152160193416/8.48101446133115821624,
16/4.13020064152160326643/7.18197635565449843398,
17/4.88020064152160237825/8.48101446133115821624,
18/5.63020064152160415460/7.18197635565450021033,
19/6.38020064152160326643/8.48101446133116176895,
20/5.82099310594605778846/7.08914990895707042284,
21/7.30598693471684867973/7.30079425334800191649,
22/5.07099310594606489389/5.79011180328040797605,
23/3.17164136232222926282/5.77321445677802103091,
24/2.77531812586807857812/4.15327948429546633946,
25/2.68379733069398218603/4.35476170789820837825,
26/4.11098847817758450418/6.94267031141052015641,
27/3.62314444654933742740/5.52421756253070661558,
28/4.27518385180190740869/4.17334946608387991063,
29/9.68015852933564424632/5.46686152848996087528,
30/8.49307273202624379849/6.38382789091898406042,
31/8.29249946640160473521/4.89729825276282682012,
32/7.10541366909220517556/5.81426461519185000526,
33/8.33825986398865381943/4.79655714096145580072,
34/9.58970982453000431178/3.96959100123078245659,
35/8.24781115918301388490/3.29928661370227516159,
36/9.49926111972436260089/2.47232047397160314972,
37/8.00388914336888923629/2.59006023926237149979,
38/8.64960950376920223448/1.23616023698580468348,
39/7.15423752741372886987/1.35390000227657325560,
40/7.79995788781404453260/0.00000000000000714209,
41/7.04995788781404009171/1.29903810567666333498,
42/6.29995788781404275625/0.00000000000000267828,
43/5.54995788781404009171/1.29903810567666200271,
44/4.79995788781404275625/0.00000000000000357104,
45/4.04995788781403920353/1.29903810567665956022,
46/3.29995788781404142398/0.00000000000000000000,
47/3.85916542338958645786/1.39186455237408979180,
48/4.60916542338957935243/2.69090265805075157246,
49/6.50851716701341320714/2.70780000455313896168,
50/6.90484040346756611228/4.32773497703569454131,
51/6.99636119864165983984/4.12625275343295250252,
52/5.56917005115806240667/1.53834414992064050232,
53/6.05701408278630726301/2.95679689880045293293,
54/5.40497467753373772581/4.30766499524728008197,
55/3.10916542338957579972/2.69090265805074180250,
56/4.56110829147514085236/3.06754825780661777301,
57/6.57099310594606933478/5.79011180328041863419,
58/5.11905023786050428214/5.41346620352454532821}
\coordinate (p-\i) at (\x,\y);
%Innenflächen als \filldraw[yellow,shift={+(0.1,0.1)}] (p-1) -- (p-2) -- (p-3) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-1) -- (p-2) -- (p-3) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-2) -- (p-4) -- (p-3) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-2) -- (p-5) -- (p-4) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-46) -- (p-47) -- (p-5) -- cycle;
\filldraw[fill=LightCyan,line width=0] (p-1) -- (p-3) -- (p-24) -- (p-28) -- (p-27) -- (p-25) -- (p-6) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-1) -- (p-6) -- (p-7) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-6) -- (p-8) -- (p-7) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-7) -- (p-8) -- (p-9) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-10) -- (p-11) -- (p-9) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-10) -- (p-12) -- (p-11) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-10) -- (p-23) -- (p-12) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-11) -- (p-12) -- (p-13) -- cycle;
\filldraw[fill=Snow,line width=0] (p-12) -- (p-23) -- (p-26) -- (p-14) -- (p-13) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-13) -- (p-14) -- (p-15) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-14) -- (p-16) -- (p-15) -- cycle;
\filldraw[fill=Snow,line width=0] (p-14) -- (p-26) -- (p-22) -- (p-18) -- (p-16) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-15) -- (p-16) -- (p-17) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-16) -- (p-18) -- (p-17) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-17) -- (p-18) -- (p-19) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-18) -- (p-22) -- (p-20) -- (p-19) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-19) -- (p-20) -- (p-21) -- cycle;
\filldraw[fill=Snow,line width=0] (p-20) -- (p-57) -- (p-50) -- (p-32) -- (p-21) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-21) -- (p-32) -- (p-30) -- cycle;
\filldraw[fill=Snow,line width=0] (p-22) -- (p-26) -- (p-27) -- (p-58) -- (p-57) -- cycle;
\filldraw[fill=Snow,line width=0] (p-10) -- (p-9) -- (p-8) -- (p-25) -- (p-23) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-24) -- (p-3) -- (p-4) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-25) -- (p-8) -- (p-6) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-23) -- (p-25) -- (p-27) -- (p-26) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-24) -- (p-55) -- (p-56) -- (p-28) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-29) -- (p-30) -- (p-31) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-30) -- (p-32) -- (p-31) -- cycle;
\filldraw[fill=LightCyan,line width=0] (p-29) -- (p-31) -- (p-50) -- (p-54) -- (p-53) -- (p-51) -- (p-33) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-29) -- (p-33) -- (p-34) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-33) -- (p-35) -- (p-34) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-33) -- (p-51) -- (p-35) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-34) -- (p-35) -- (p-36) -- cycle;
\filldraw[fill=Snow,line width=0] (p-35) -- (p-51) -- (p-49) -- (p-37) -- (p-36) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-36) -- (p-37) -- (p-38) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-37) -- (p-39) -- (p-38) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-37) -- (p-49) -- (p-39) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-38) -- (p-39) -- (p-40) -- cycle;
\filldraw[fill=Snow,line width=0] (p-39) -- (p-49) -- (p-52) -- (p-41) -- (p-40) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-40) -- (p-41) -- (p-42) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-41) -- (p-43) -- (p-42) -- cycle;
\filldraw[fill=Snow,line width=0] (p-41) -- (p-52) -- (p-48) -- (p-45) -- (p-43) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-42) -- (p-43) -- (p-44) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-43) -- (p-45) -- (p-44) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-44) -- (p-45) -- (p-46) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-45) -- (p-48) -- (p-47) -- (p-46) -- cycle;
\filldraw[fill=Snow,line width=0] (p-48) -- (p-52) -- (p-53) -- (p-56) -- (p-55) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-31) -- (p-32) -- (p-50) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-49) -- (p-51) -- (p-53) -- (p-52) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-50) -- (p-57) -- (p-58) -- (p-54) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-47) -- (p-48) -- (p-55) -- cycle;
\filldraw[fill=Snow,line width=0] (p-24) -- (p-4) -- (p-5) -- (p-47) -- (p-55) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-53) -- (p-54) -- (p-56) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-20) -- (p-22) -- (p-57) -- cycle;
\filldraw[fill=WhiteSmoke,line width=0] (p-27) -- (p-28) -- (p-58) -- cycle;
\filldraw[fill=MintCream,line width=0] (p-28) -- (p-56) -- (p-54) -- (p-58) -- cycle;
%gefüllte Winkel als \fill[red!20] (p-1) -- +(0:0.3 cm) arc (0:60:0.3 cm) -- cycle;
%Kanten als \draw[gray,thick] (p-1) -- (p-2);
\foreach \i/\j in {
2/1,
3/1, 3/2,
4/3, 4/2,
5/4, 5/2, 5/46, 5/47,
6/1,
7/1, 7/6,
8/7, 8/6,
9/7, 9/8,
10/9,
11/9, 11/10,
12/11, 12/10,
13/11, 13/12,
14/13,
15/13, 15/14,
16/15, 16/14,
17/15, 17/16,
18/17, 18/16,
19/17, 19/18,
20/19,
21/19, 21/20, 21/30, 21/32,
22/20, 22/18, 22/26, 22/57,
23/12, 23/10, 23/25,
24/3, 24/4,
25/8, 25/6,
26/14, 26/23,
27/26, 27/25,
28/27, 28/24,
30/29,
31/29, 31/30,
32/30, 32/31,
33/29,
34/29, 34/33,
35/33, 35/34,
36/34, 36/35,
37/36,
38/36, 38/37,
39/37, 39/38,
40/38, 40/39,
41/40,
42/40, 42/41,
43/41, 43/42,
44/42, 44/43,
45/43, 45/44,
46/44, 46/45,
47/46,
48/45, 48/47, 48/55, 48/52,
49/37, 49/39, 49/51,
50/31, 50/32,
51/33, 51/35,
52/41, 52/49,
53/51, 53/52,
54/50, 54/53, 54/58,
55/47, 55/24,
56/55, 56/53, 56/54, 56/28,
57/20, 57/50,
58/57, 58/27, 58/28}
\draw[gray,thick] (p-\i) -- (p-\j);
%Punkte als \fill[red] (p-1) circle (1.125pt)
%einzustellende Kanten als \draw[green] (p-1) -- (p-2);
%nicht passende Kanten als \draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-1) -- (p-2);
%Winkel als \draw[->,red] (p-1) +(0:0.3 cm) arc (0:60:0.3 cm);
%Punktnummern als \node[anchor=30] (P1) at (p-1) {1};
\end{tikzpicture}
$
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
 | Beitrag No.1762, eingetragen 2019-06-09
|
In meinem Inkscape zum Testen funktioniert alles und Button ".dxf" ist eigentlich unverändert geblieben. Zum Vergleichen habe ich nochmal die Version aus Beitrag No.1738 im Notizbuch gespeichert als Streichholzgraph-1738.htm. Theoretisch dürfte diese vorherige Version auch nicht mehr funktionieren weil sich an dem .dxf nichts geändert hat. Gehen andere Graphen noch?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1763, vom Themenstarter, eingetragen 2019-06-09
|
Nein, auch andere Graphen gehen nicht. Es wird kein Fehler angezeigt, aber ich sehe den Graphen nicht, als wäre er unsichtbar bzw. die Kantenlänge/Kantenbreite unendlich klein. Dieses Problem habe ich das erste Mal. Vorher kannte ich es nur so (eine Eigenart meines CAD vermutlich), dass der Graph nur dann korrekt als DXF gespeichert und geladen wird, wenn ich ihn neu zeichnen lasse und dann nichts mehr verändere vor dem speichern.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
| Beitrag No.1764, eingetragen 2019-06-10
|
Wenn beim Laden kein Fehler angezeigt wird, vielleicht liegt der Graph dann nur außerhalb des sichtbaren Bildschirmbereiches? Das passiert mir gelegentlich und da muss ich den Zoom etwas veränden um den Graph wiederzufinden. Ansonsten, Linienstärke 0 oder so etwas kann schon sein, doch da weiß ich nicht, wie und was da alles eingestellt werden muss.
Eine Möglichkeit zur Fehlersuche wäre der umgekehrte Weg: Du zeichnest mit deinem Programm ein Polygon (5 Eck beispielsweise), speicherst es als .dxf und schickst mir dieses File über Email, PN oder Notizbuch. Dann setze ich anstelle des einen Polygons den Streichholzgraph ein und lasse den Rahmen darum mit den Einstellungen unverändert, so dass es die passenden Einstellungen für dein Programm bleiben. Andere Alternative ist Abspeichern als .svg mit Button "SVG", das wird in meinem Inkscape auch angezeigt und die Teilflächen lassen sich einzeln verschieben.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1765, vom Themenstarter, eingetragen 2019-06-10
|
Hier zum Test ein Dreieck.
\sourceon MGC
Feinjustieren(w,b)
P[1]=[49,377.26744890508024]; P[2]=[51,377.26744890508024]; D=ab(1,2); A(2,1,Bew(1)); N(3,1,2);
\sourceoff
Die englische Version liefer als Code:
\showon
0
SECTION
2
ENTITIES
999
Streichholzgraph
0
LINE
8
0
10
51
20
377.26744890508024
11
49
21
377.26744890508024
0
LINE
8
0
10
50
20
378.99949971264914
11
49
21
377.26744890508024
0
LINE
8
0
10
50
20
378.99949971264914
11
51
21
377.26744890508024
0
ENDSEC
0
EOF
\showoff
Und die neue deutsche Version:
\showon
0
SECTION
2
HEADER
9
$ACADVER
1
AC1014
9
$HANDSEED
5
FFFF
9
$MEASUREMENT
70
1
0
ENDSEC
0
SECTION
2
TABLES
0
TABLE
2
VPORT
5
8
330
0
100
AcDbSymbolTable
70
4
0
VPORT
5
2E
330
8
100
AcDbSymbolTableRecord
100
AcDbViewportTableRecord
2
*ACTIVE
70
0
10
0.0
20
0.0
11
1.0
21
1.0
12
210.0
22
148.5
13
0.0
23
0.0
14
10.0
24
10.0
15
10.0
25
10.0
16
0.0
26
0.0
36
1.0
17
0.0
27
0.0
37
0.0
40
341.0
41
1.24
42
50.0
43
0.0
44
0.0
50
0.0
51
0.0
71
0
72
100
73
1
74
3
75
0
76
0
77
0
78
0
0
ENDTAB
0
TABLE
2
LTYPE
5
5
330
0
100
AcDbSymbolTable
70
1
0
LTYPE
5
14
330
5
100
AcDbSymbolTableRecord
100
AcDbLinetypeTableRecord
2
BYBLOCK
70
0
3
72
65
73
0
40
0.0
0
LTYPE
5
15
330
5
100
AcDbSymbolTableRecord
100
AcDbLinetypeTableRecord
2
BYLAYER
70
0
3
72
65
73
0
40
0.0
0
LTYPE
5
16
330
5
100
AcDbSymbolTableRecord
100
AcDbLinetypeTableRecord
2
CONTINUOUS
70
0
3
Solid line
72
65
73
0
40
0.0
0
ENDTAB
0
TABLE
2
LAYER
5
2
100
AcDbSymbolTable
70
2
0
LAYER
5
50
100
AcDbSymbolTableRecord
100
AcDbLayerTableRecord
2
0
70
0
6
CONTINUOUS
0
LAYER
5
51
100
AcDbSymbolTableRecord
100
AcDbLayerTableRecord
2
Ebene_1
70
0
6
CONTINUOUS
0
ENDTAB
0
TABLE
2
STYLE
5
3
330
0
100
AcDbSymbolTable
70
1
0
STYLE
5
11
330
3
100
AcDbSymbolTableRecord
100
AcDbTextStyleTableRecord
2
STANDARD
70
0
40
0.0
41
1.0
50
0.0
71
0
42
2.5
3
txt
4
0
ENDTAB
0
TABLE
2
VIEW
5
6
330
0
100
AcDbSymbolTable
70
0
0
ENDTAB
0
TABLE
2
UCS
5
7
330
0
100
AcDbSymbolTable
70
0
0
ENDTAB
0
TABLE
2
APPID
5
9
330
0
100
AcDbSymbolTable
70
2
0
APPID
5
12
330
9
100
AcDbSymbolTableRecord
100
AcDbRegAppTableRecord
2
ACAD
70
0
0
ENDTAB
0
TABLE
2
DIMSTYLE
5
A
330
0
100
AcDbSymbolTable
70
1
0
DIMSTYLE
105
27
330
A
100
AcDbSymbolTableRecord
100
AcDbDimStyleTableRecord
2
ISO-25
70
0
3
4
5
6
7
40
1.0
41
2.5
42
0.625
43
3.75
44
1.25
45
0.0
46
0.0
47
0.0
48
0.0
140
2.5
141
2.5
142
0.0
143
0.03937007874016
144
1.0
145
0.0
146
1.0
147
0.625
71
0
72
0
73
0
74
0
75
0
76
0
77
1
78
8
170
0
171
3
172
1
173
0
174
0
175
0
176
0
177
0
178
0
270
2
271
2
272
2
273
2
274
3
340
11
275
0
280
0
281
0
282
0
283
0
284
8
285
0
286
0
287
3
288
0
0
ENDTAB
0
TABLE
2
BLOCK_RECORD
5
1
330
0
100
AcDbSymbolTable
70
1
0
BLOCK_RECORD
5
1F
330
1
100
AcDbSymbolTableRecord
100
AcDbBlockTableRecord
2
*MODEL_SPACE
0
BLOCK_RECORD
5
1B
330
1
100
AcDbSymbolTableRecord
100
AcDbBlockTableRecord
2
*PAPER_SPACE
0
ENDTAB
0
ENDSEC
0
SECTION
2
BLOCKS
0
BLOCK
5
20
330
1F
100
AcDbEntity
8
0
100
AcDbBlockBegin
2
*MODEL_SPACE
70
0
10
0.0
20
0.0
30
0.0
3
*MODEL_SPACE
1
0
ENDBLK
5
21
330
1F
100
AcDbEntity
8
0
100
AcDbBlockEnd
0
BLOCK
5
1C
330
1B
100
AcDbEntity
67
1
8
0
100
AcDbBlockBegin
2
*PAPER_SPACE
1
0
ENDBLK
5
1D
330
1B
100
AcDbEntity
67
1
8
0
100
AcDbBlockEnd
0
ENDSEC
0
SECTION
2
ENTITIES
999
Streichholzgraph
0
LINE
8
0
10
51
20
-377.26744890508024
11
49
21
-377.26744890508024
0
LINE
8
0
10
50
20
-378.99949971264914
11
49
21
-377.26744890508024
0
LINE
8
0
10
50
20
-378.99949971264914
11
51
21
-377.26744890508024
0
ENDSEC
0
SECTION
2
OBJECTS
0
DICTIONARY
5
C
330
0
100
AcDbDictionary
3
ACAD_GROUP
350
D
3
ACAD_MLINESTYLE
350
17
0
DICTIONARY
5
D
330
C
100
AcDbDictionary
0
DICTIONARY
5
1A
330
C
100
AcDbDictionary
0
DICTIONARY
5
17
330
C
100
AcDbDictionary
3
STANDARD
350
18
0
DICTIONARY
5
19
330
C
100
AcDbDictionary
0
ENDSEC
0
EOF
0
EOF
\showoff
Allein schon der Umfang des neuen Codes macht mich skeptisch.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1766, eingetragen 2019-06-11
|
andere möglichkeit wäre dass die graphenfarbe gleich der hintergrundfarbe ist.... sehr schwer diesen fehler selber zu erkennen ;)
haribo
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
| Beitrag No.1767, eingetragen 2019-06-15
|
Ein Missverständnis, mit
\quoteon(2019-06-10 05:58 - StefanVogel in Beitrag No. 1764)
Eine Möglichkeit zur Fehlersuche wäre der umgekehrte Weg: Du zeichnest mit deinem Programm ein Polygon (5 Eck beispielsweise), speicherst es als .dxf und schickst mir dieses File über Email, PN oder Notizbuch. Dann setze ich anstelle des einen Polygons den Streichholzgraph ein und lasse den Rahmen darum mit den Einstellungen unverändert, so dass es die passenden Einstellungen für dein Programm bleiben.
\quoteoff
meinte ich dein
\quoteon(2019-06-09 03:10 - Slash in Beitrag No. 1760)
CAD
\quoteoff
-Programm. Dann enthält das .dxf alle nötigen Einstellungen wie Linienfarbe, Linienstärke, Zoom, Hintergrundfarbe und ich brauche nur den Graph selbst austauschen.
Das Testbeispiel #1765 mit dem umfangreichen .dxf ist in meinem Inkscape auch nicht gleich sichtbar, erst dann, wenn ich "Zeichnung in das Fenster einpassen" drücke.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1768, vom Themenstarter, eingetragen 2019-06-16
|
Hier mal ein Bespiel dafür, wie man mit einer anderen Eingabe einen Graphen verbessern kann. Ich habe mich schon immer darüber geärgert, dass wie im ersten Graphen zwei Kanten an einem Knoten (P45) auseinandergezogen werden, obwohl ja eine genau 1 sein könnte. Mit einem zusätzlichen Winkel werden so aus 5 falschen Kanten nur drei.
53 Knoten, 53×Grad 4, 0 Überschneidungen
106 Kanten, minimal 0.75387197739114608641, maximal 1.29820714399754333357
nicht passende Kanten:
|P45-P16|=1.09098505332603301632
|P45-P41|=1.09098505332603301632
|P45-P47|=0.75387197739114608641
|P48-P52|=1.07729806003889105881
|P52-P53|=1.29820714399754333357
$
%Eingabe war:
%
%Fast 4/4 mit 106
%
%
%
%
%
%
%
%P[1]=[68.84938704223966,-128.8285071941672];
%P[2]=[110.73065906660622,-77.10944345920569]; D=ab(1,2); A(2,1,Bew(1));
%N(3,1,2); N(4,3,2); N(5,4,2); N(6,4,5); N(7,6,5);
%M(8,1,3,blue_angle,2,green_angle,3,orange_angle,2,fourth_angle,3,fifth_angle,3,
%"zumachen",7,2,2);
%N(41,12,10); N(42,8,3); N(43,28,26); N(44,36,34); N(45,16,41); N(46,42,6);
%N(47,20,18); N(48,40,38);
%N(49,41,42); N(50,22,43); N(51,44,32); N(52,44,51); N(53,50,45);
%RA(47,50); RA(49,53); RA(43,51); RA(46,48);
%RA(46,49); RA(48,52);RA(52,53); RA(45,47);
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{8,16}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{3.00317418042964501268,3.42959744665192234336}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 4 \\
6 5 \\
7 6 \\
7 5 \\
7 39 \\
8 1 \\
9 1 \\
9 8 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
12 11 \\
13 11 \\
13 12 \\
14 13 \\
14 12 \\
15 13 \\
15 14 \\
16 15 \\
16 14 \\
17 15 \\
17 16 \\
18 17 \\
19 17 \\
19 18 \\
20 19 \\
20 18 \\
21 19 \\
21 20 \\
22 21 \\
23 21 \\
23 22 \\
24 23 \\
24 22 \\
25 23 \\
25 24 \\
26 25 \\
26 24 \\
27 25 \\
27 26 \\
28 27 \\
29 27 \\
29 28 \\
30 29 \\
30 28 \\
31 29 \\
31 30 \\
32 31 \\
32 30 \\
33 31 \\
33 32 \\
33 35 \\
34 35 \\
34 33 \\
35 37 \\
36 37 \\
36 35 \\
36 34 \\
37 37 \\
38 39 \\
38 37 \\
38 40 \\
39 37 \\
40 7 \\
40 39 \\
41 12 \\
41 10 \\
42 8 \\
42 3 \\
43 28 \\
43 26 \\
43 51 \\
44 36 \\
44 34 \\
45 16 \\
45 41 \\
45 47 \\
46 42 \\
46 6 \\
46 48 \\
46 49 \\
47 20 \\
47 18 \\
47 50 \\
48 40 \\
48 38 \\
48 52 \\
49 41 \\
49 42 \\
49 53 \\
50 22 \\
50 43 \\
51 44 \\
51 32 \\
52 44 \\
52 51 \\
52 53 \\
53 50 \\
53 45 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 5.45068211171329419784 0.00000000000000000000 \\
2 6.20586658097309751270 0.93257515374836674749 \\
3 5.02064057225893112246 1.12029651179664124783 \\
4 5.77582504151873443732 2.05287166554500766225 \\
5 6.96105105023290082755 1.86515030749673349497 \\
6 6.53100951077853686400 2.98544681929337407666 \\
7 7.71623551949270414241 2.79772546124510057552 \\
8 4.85112651701605113175 1.03948693539997671920 \\
9 4.25068222140625984196 0.00051309171108959142 \\
10 3.65112662670901721995 1.04000002711106565023 \\
11 3.05068233109922548607 0.00102618342217867045 \\
12 3.12289643560582153015 1.19885134725465980488 \\
13 2.04944236218133779559 0.66247801435267639203 \\
14 2.12165646668793428375 1.86030317818515755768 \\
15 1.04820239326345010511 1.32392984528317403381 \\
16 1.12041649777004659327 2.52175500911565464435 \\
17 0.04696242434556295586 1.98538167621367134252 \\
18 1.07425332620595859190 2.60560212327653184516 \\
19 0.02348121217278173467 3.18515191783283091453 \\
20 1.05077211403317694050 3.80537236489569163922 \\
21 0.00000000000000000000 4.38492215945198982041 \\
22 1.15738347300383592753 4.06796238847532531935 \\
23 0.85318695014540713029 5.22876576350524047143 \\
24 2.01057042314924316884 4.91180599252857597037 \\
25 1.70637390029081426057 6.07260936755849112245 \\
26 2.86375737329464996606 5.75564959658182573321 \\
27 2.55956085043622127984 6.91645297161174088529 \\
28 3.16313960599687460373 5.87929691496652484517 \\
29 3.75955372096019679873 6.92058947878925678765 \\
30 4.36313247652084967854 5.88343342214404074753 \\
31 4.95954659148417142944 6.92472598596677180183 \\
32 5.56312534704482430925 5.88756992932155664988 \\
33 6.15953946200814694834 6.92886249314428681600 \\
34 5.82396255032268150842 5.77673917667870906456 \\
35 6.98951906651698262607 6.06218270446835560961 \\
36 6.65394215483151629797 4.91005938800277785816 \\
37 7.81949867102581919198 5.19550291579242529139 \\
38 6.75541478901275649349 4.64077280840685446606 \\
39 7.76786709525926077902 3.99661418851876382163 \\
40 6.70378321324619719235 3.44188408113319166404 \\
41 3.72334073121561504038 2.23782519094354670486 \\
42 4.42108497756168716819 2.15978344719661707884 \\
43 3.46733612885530151360 4.71849353993660969309 \\
44 5.48838563863721162761 4.62461586021312953676 \\
45 2.42187861449283081683 2.37979010002960089665 \\
46 5.33182701580925133555 2.94115975843766808140 \\
47 2.10154422806635432508 3.22582257033939345803 \\
48 5.69133090699969024229 4.08604270102128364073 \\
49 4.19976426123534096746 3.33919734423395198064 \\
50 2.30823100107237877410 4.40788880277483841041 \\
51 4.50781082820608602901 5.31633331781266260663 \\
52 4.39905334289926841507 4.12127189286843087501 \\
53 3.00317418042964501268 3.42959744665192234336 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 8 0.5 Blue {} 1.5 \\
10 11 12 0.5 Green {} 1.5 \\
16 17 18 0.5 Orange {} 1.5 \\
20 21 22 0.5 Violet {} 1.5 \\
26 27 28 0.5 Aqua {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,very thick] (P47) -- (P50);
\draw[green,very thick] (P49) -- (P53);
\draw[green,very thick] (P43) -- (P51);
\draw[green,very thick] (P46) -- (P48);
\draw[green,very thick] (P46) -- (P49);
\draw[green,very thick] (P48) -- (P52);
\draw[green,very thick] (P52) -- (P53);
\draw[green,very thick] (P45) -- (P47);
%nicht passende Kanten:
\draw[magenta,dash pattern=on 1pt off 9pt] (P45) -- (P16);
\draw[magenta,dash pattern=on 1pt off 9pt] (P45) -- (P41);
\draw[cyan,dash pattern=on 1pt off 9pt] (P45) -- (P47);
\draw[magenta,dash pattern=on 1pt off 9pt] (P48) -- (P52);
\draw[magenta,dash pattern=on 1pt off 9pt] (P52) -- (P53);
\end{tikzpicture}
\end{document}
$
53 Knoten, 53×Grad 4, 0 Überschneidungen, Gesamtfläche=29.84, 37·3+5·4+11·5+1·6+1*20 Drei-, Vier-, Fünfecke…
106 Kanten, minimal 0.99999999999999411582, maximal 1.37566326014040374304
nicht passende Kanten:
|P16-P53|=1.09027181562939867732
|P48-P52|=1.37566326014040374304
|P50-P49|=1.12584076313148151449
$
%Eingabe war:
%
%Fast 4/4 mit 106
%
%
%
%
%
%
%
%
%P[1]=[346.0437723534551,-169.97833579008284];
%P[2]=[401.79724381772166,-103.63861705930523]; D=ab(1,2); A(2,1,Bew(1));
%N(3,1,2); N(4,3,2); N(5,4,2); N(6,4,5); N(7,6,5);
%M(8,1,3,blue_angle,2,green_angle,3,orange_angle,2,fourth_angle,3,fifth_angle,3,
%"zumachen",7,2,2);
%N(41,12,10); N(42,8,3); N(43,28,26); N(44,36,34); N(45,41,42); N(46,42,6);
%N(47,20,18); N(48,40,38);
%M(49,45,41,sixth_angle);
%N(50,22,43); N(51,44,32); N(52,44,51); N(53,41,49);
%RA(47,50); RA(47,53); RA(43,51); RA(46,48); RA(46,45); RA(52,49);
%RA(48,52); RA(50,49); RA(16,53);
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{8,20,34}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{2.70688049222901216950,2.94488081427917691713}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 4 \\
6 5 \\
7 6 \\
7 5 \\
7 39 \\
8 1 \\
9 1 \\
9 8 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
12 11 \\
13 11 \\
13 12 \\
14 13 \\
14 12 \\
15 13 \\
15 14 \\
16 15 \\
16 14 \\
16 53 \\
17 15 \\
17 16 \\
18 17 \\
19 17 \\
19 18 \\
20 19 \\
20 18 \\
21 19 \\
21 20 \\
22 21 \\
23 21 \\
23 22 \\
24 23 \\
24 22 \\
25 23 \\
25 24 \\
26 25 \\
26 24 \\
27 25 \\
27 26 \\
28 27 \\
29 27 \\
29 28 \\
30 29 \\
30 28 \\
31 29 \\
31 30 \\
32 31 \\
32 30 \\
33 31 \\
33 32 \\
33 35 \\
34 35 \\
34 33 \\
35 37 \\
36 37 \\
36 35 \\
36 34 \\
37 37 \\
38 39 \\
38 37 \\
38 40 \\
39 37 \\
40 7 \\
40 39 \\
41 12 \\
41 10 \\
42 8 \\
42 3 \\
43 28 \\
43 26 \\
43 51 \\
44 36 \\
44 34 \\
45 41 \\
45 42 \\
46 42 \\
46 6 \\
46 48 \\
46 45 \\
47 20 \\
47 18 \\
47 50 \\
47 53 \\
48 40 \\
48 38 \\
48 52 \\
49 45 \\
50 22 \\
50 43 \\
50 49 \\
51 44 \\
51 32 \\
52 44 \\
52 51 \\
52 49 \\
53 41 \\
53 49 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 5.08727121427091422134 0.00000000000000000000 \\
2 5.85932990013903598481 0.91865411639832517121 \\
3 4.67772275511287904948 1.12794949337338623607 \\
4 5.44978144098100170112 2.04660360977171151831 \\
5 6.63138858600715863645 1.83730823279665056447 \\
6 6.22184012684912346458 2.96525772617003724463 \\
7 7.40344727187528039991 2.75596234919497584670 \\
8 4.48727121427091457662 1.03923048454132693763 \\
9 3.88727121427091404371 0.00000000000000118073 \\
10 3.28727121427091484307 1.03923048454132804785 \\
11 2.68727121427091342198 0.00000000000000275503 \\
12 3.03730238141936847995 1.14781452422623431175 \\
13 1.86825026103247582299 0.87704314497999746880 \\
14 2.21828142818093043687 2.02485766920622900500 \\
15 1.04922930779403755785 1.75408628995999182898 \\
16 1.39926047494249194969 2.90190081418622325415 \\
17 0.23020835455559940375 2.63112943493998674427 \\
18 1.20709489207095388430 3.32804599581457383195 \\
19 0.11510417727779974351 3.82559627348059638763 \\
20 1.09199071479315379385 4.52251283435518391940 \\
21 0.00000000000000000000 5.02006311202120780735 \\
22 1.14782051037479781996 4.67005157512143753706 \\
23 0.87702913776023372350 5.83909906454071681026 \\
24 2.02484964813503154346 5.48908752764094742815 \\
25 1.75405827552046811313 6.65813501706022758952 \\
26 2.90187878589526571105 6.30812348016045731924 \\
27 2.63108741328070161458 7.47717096957973748061 \\
28 3.14118598918821279042 6.39098523829013398512 \\
29 3.82680113775943064880 7.37583642910510395296 \\
30 4.33689971366694138055 6.28965069781550223382 \\
31 5.02251486223815923893 7.27450188863047220167 \\
32 5.53261343814567041477 6.18831615734087048253 \\
33 6.21822858671688827314 7.17316734815584133855 \\
34 5.66772334511972619708 6.10689159631017020047 \\
35 6.86639785445601003033 6.16327794809337259352 \\
36 6.31589261285884795427 5.09700219624770234361 \\
37 7.51456712219513001116 5.15338854803090473666 \\
38 6.44867116367003045951 4.60214830494278004380 \\
39 7.45900719703520564963 3.95467544861294051373 \\
40 6.39311123851010520980 3.40343520552481537678 \\
41 3.63730238141937212148 2.18704500876755902894 \\
42 4.07772275511288118111 2.16717997791471361779 \\
43 3.41197736180277777507 5.22193774887085471192 \\
44 5.11721810352256323284 5.04061584446450083874 \\
45 3.91066313449832136939 3.35549436525508326667 \\
46 5.02330339192489816469 2.90601504698370405322 \\
47 2.18398142958630758770 4.02496255668916091963 \\
48 5.38277520514492913151 4.05090806185465446276 \\
49 2.98024124530796097332 4.11333017076670071077 \\
50 2.21198039507993016173 5.22463586969202697929 \\
51 4.35336686962197028095 5.96610560262962597022 \\
52 3.93379484505895105073 4.84184615027706044543 \\
53 2.70688049222901216950 2.94488081427917691713 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 8 0.5 Blue {} 1.5 \\
10 11 12 0.5 Green {} 1.5 \\
16 17 18 0.5 Orange {} 1.5 \\
20 21 22 0.5 Violet {} 1.5 \\
26 27 28 0.5 Aqua {} 1.5 \\
41 45 49 0.45 Lime {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,very thick] (P47) -- (P50);
\draw[green,very thick] (P47) -- (P53);
\draw[green,very thick] (P43) -- (P51);
\draw[green,very thick] (P46) -- (P48);
\draw[green,very thick] (P46) -- (P45);
\draw[green,very thick] (P52) -- (P49);
\draw[green,very thick] (P48) -- (P52);
\draw[green,very thick] (P50) -- (P49);
\draw[green,very thick] (P16) -- (P53);
%nicht passende Kanten:
\draw[magenta,dash pattern=on 1pt off 9pt] (P16) -- (P53);
\draw[magenta,dash pattern=on 1pt off 9pt] (P48) -- (P52);
\draw[magenta,dash pattern=on 1pt off 9pt] (P50) -- (P49);
\end{tikzpicture}
\end{document}
$
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1769, vom Themenstarter, eingetragen 2019-06-22
|
Fast 4/4 mit 112. Neu, alt, ...keine Ahnung.
56 Knoten, 56×Grad 4, 0 Überschneidungen
112 Kanten, minimal 0.99999999999999655831, maximal 1.00799922497235061591
nicht passende Kanten:
|P28-P56|=1.00799922497234240026
|P54-P55|=1.00799922497235061591
$
%Eingabe war:
%
%Fig.0 4-regular planar graph with 56 vertices. This graph is rigid and has a point symmetry.
%
%
%
%
%
%
%
%
%P[1]=[459.7397148604661,-169.99949999995368];
%P[2]=[525.4466710793984,-91.76362227317412]; D=ab(1,2);
%A(2,1); L(3,1,2); L(4,3,2); L(5,4,2);
%M(6,1,3,blauerWinkel,3,gruenerWinkel,2,orange_angle,3);
%N(22,3,4); N(23,14,12); N(24,23,10); N(25,16,23); N(26,25,24); N(27,20,25); N(28,6,22);
%RA(24,28); RA(26,27);
%A(5,21,ab(21,5,[1,28]));
%N(55,48,27); N(56,22,53);
%RA(26,55); A(52,56);
%RA(54,55); RA(28,56);
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{4,6,14,18,20,22,27,31,43,51}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{5.64742737993890919768,3.31492936956133510407}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
5 46 \\
5 47 \\
6 1 \\
7 1 \\
7 6 \\
8 7 \\
8 6 \\
9 7 \\
9 8 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
12 11 \\
13 11 \\
13 12 \\
14 13 \\
14 12 \\
15 13 \\
15 14 \\
16 15 \\
17 15 \\
17 16 \\
18 17 \\
18 16 \\
19 17 \\
19 18 \\
20 19 \\
20 18 \\
21 19 \\
21 20 \\
21 30 \\
21 32 \\
22 3 \\
22 4 \\
23 14 \\
23 12 \\
24 23 \\
24 10 \\
24 28 \\
25 16 \\
25 23 \\
26 25 \\
26 24 \\
26 27 \\
26 55 \\
27 20 \\
27 25 \\
28 6 \\
28 22 \\
28 56 \\
29 29 \\
30 29 \\
31 29 \\
31 30 \\
32 30 \\
32 31 \\
33 29 \\
34 29 \\
34 33 \\
35 33 \\
35 34 \\
36 34 \\
36 35 \\
37 35 \\
37 36 \\
38 36 \\
38 37 \\
39 38 \\
40 38 \\
40 39 \\
41 39 \\
41 40 \\
42 40 \\
42 41 \\
43 42 \\
44 42 \\
44 43 \\
45 43 \\
45 44 \\
46 44 \\
46 45 \\
47 45 \\
47 46 \\
48 31 \\
48 32 \\
49 39 \\
49 41 \\
50 37 \\
50 49 \\
50 54 \\
51 43 \\
51 49 \\
52 50 \\
52 51 \\
52 53 \\
52 56 \\
53 47 \\
53 51 \\
54 33 \\
54 48 \\
54 55 \\
55 48 \\
55 27 \\
56 22 \\
56 53 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 8.08806806073436668214 0.00000000000000000000 \\
2 9.05275994079928736369 1.14863813994521768436 \\
3 7.57566419181856343101 1.40976674493340059513 \\
4 8.54035607188348322438 2.55840488487861783540 \\
5 10.01745182086420804524 2.29727627989043536871 \\
6 7.33806806073436757032 1.29903810567665800590 \\
7 6.58806806073436757032 0.00000000000000000000 \\
8 5.83806806073436757032 1.29903810567665778386 \\
9 5.08806806073436757032 0.00000000000000000000 \\
10 4.33806806073436757032 1.29903810567665778386 \\
11 3.58806806073436801441 0.00000000000000000000 \\
12 3.42601584047633478392 1.49122066707427336496 \\
13 2.21560697027065378606 0.60526899405400869103 \\
14 2.05355475001262055557 2.09648966112828194497 \\
15 0.84314587980693989078 1.21053798810801693797 \\
16 1.97865399247062345722 2.19065090306983911717 \\
17 0.56209725320462655684 2.68397331735900035454 \\
18 1.69760536586830990124 3.66408623232082231169 \\
19 0.28104862660231338944 4.15740864660998266089 \\
20 1.41655673926599634527 5.13752156157180461804 \\
21 0.00000000000000000000 5.63084397586096674360 \\
22 7.06326032290276106806 2.81953348986680119026 \\
23 3.26396362021830110933 2.98244133414854761810 \\
24 4.74470818276221351084 2.74286767011879728528 \\
25 1.94143071798194166711 3.69018897455596794899 \\
26 3.42217528052585340248 3.45061531052621806026 \\
27 2.88927987838138067289 4.85276455021979558069 \\
28 5.93541670146586675116 1.83061045667154087546 \\
29 1.92938376012983381358 7.92812025575139944777 \\
30 0.96469188006491746190 6.77948211580618487204 \\
31 2.44178762904564683467 6.51835351081800062900 \\
32 1.47709574898072726334 5.36971537087278427691 \\
33 2.67938376012983736629 6.62908215007474144187 \\
34 3.42938376012984003083 7.92812025575139944777 \\
35 4.17938376012983603403 6.62908215007474144187 \\
36 4.92938376012983692220 7.92812025575139944777 \\
37 5.67938376012983958674 6.62908215007474321823 \\
38 6.42938376012983958674 7.92812025575139944777 \\
39 6.59143598038787192905 6.43689958867712785917 \\
40 7.80184485059355115055 7.32285126169739442048 \\
41 7.96389707085158704558 5.83163059462312016734 \\
42 9.17430594105726626708 6.71758226764338406412 \\
43 8.03879782839358547619 5.73746935268156210697 \\
44 9.45535456765957960101 5.24414693839240086959 \\
45 8.31984645499589703377 4.26403402343057980062 \\
46 9.73640319426189293495 3.77071160914141811915 \\
47 8.60089508159821036770 2.79059869417959705018 \\
48 2.95419149796144830944 5.10858676588460181023 \\
49 6.75348820064590960044 4.94567892160285538239 \\
50 5.27274363810199453440 5.18525258563260305067 \\
51 8.07602110288226704427 4.23793128119543283105 \\
52 6.59527654033835286640 4.47750494522518405205 \\
53 7.12817194248282515190 3.07535570553160608753 \\
54 4.08203511939834307043 6.09750979907986145889 \\
55 4.37002444092529351849 4.61319088619005324148 \\
56 5.64742737993890919768 3.31492936956133510407 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 6 0.5 Blue {} 1.5 \\
10 11 12 0.5 Green {} 1.5 \\
14 15 16 0.5 Orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,thick] (P24) -- (P28);
\draw[green,thick] (P26) -- (P27);
\draw[green,thick] (P26) -- (P55);
\draw[orange,thick] (P54) -- (P55);
\draw[orange,thick] (P28) -- (P56);
\end{tikzpicture}
\end{document}
$
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1770, vom Themenstarter, eingetragen 2019-06-22
|
Ich habe einen 122er (hier) von 4 auf 3 falsche Kanten verbessert. Keine zusätzlichen Winkel, nur neue Eingabe. Der alte war noch eine "unfaire" Version, daher die geringeren Abweichungen der vier Kanten.
61 Knoten, 61×Grad 4, 0 Überschneidungen
122 Kanten, minimal 0.98052715272318557993, maximal 1.03960249854527697622
nicht passende Kanten:
|P27-P29|=1.03960249854527697622
|P56-P58|=1.03960249854527542190
|P60-P61|=0.98052715272318557993
$
%Eingabe war:
%
%4/4 fast mit 122
%
%
%
%
%
%
%P[1]=[-66.46804152995713,268.37490611877456];
%P[2]=[-96.14740903579792,182.07224436167024]; D=ab(1,2); A(2,1); L(3,1,2);
%L(4,3,2); L(5,4,2); L(6,3,4);
%M(7,1,3,blauerWinkel,3); N(13,7,6); M(14,5,4,gruenerWinkel);
%L(15,14,5); L(16,14,15); L(17,16,15); N(18,6,14); N(19,16,17); N(20,19,17);
%M(21,12,11,orange_angle);
%N(22,12,21); N(23,22,21); N(24,22,23); N(25,24,23); N(26,24,25); N(27,13,18);
%N(28,11,13); N(29,18,19); N(30,21,28); N(31,28,27);
%A(20,26,ab(26,20,[1,31]));
%N(61,31,59);
%RA(30,61);
%RA(31,59); A(30,60);
%RA(55,29); A(25,58);
%RA(60,61);
%RA(27,29); A(56,58);
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{3,14,16,35,38,49,55}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{4.95458502724057492372,3.25062404159975804063}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
7 1 \\
8 1 \\
8 7 \\
9 8 \\
9 7 \\
10 8 \\
10 9 \\
11 10 \\
11 9 \\
12 10 \\
12 11 \\
13 7 \\
13 6 \\
14 5 \\
15 14 \\
15 5 \\
16 14 \\
16 15 \\
17 16 \\
17 15 \\
18 6 \\
18 14 \\
19 16 \\
19 17 \\
20 19 \\
20 17 \\
20 54 \\
20 55 \\
21 12 \\
22 12 \\
22 21 \\
23 22 \\
23 21 \\
24 22 \\
24 23 \\
25 24 \\
25 23 \\
25 58 \\
26 24 \\
26 25 \\
26 48 \\
26 50 \\
27 13 \\
27 18 \\
27 29 \\
28 11 \\
28 13 \\
29 18 \\
29 19 \\
30 21 \\
30 28 \\
30 61 \\
30 60 \\
31 28 \\
31 27 \\
31 59 \\
32 32 \\
33 32 \\
34 32 \\
34 33 \\
35 33 \\
35 34 \\
36 33 \\
36 35 \\
37 34 \\
37 35 \\
38 32 \\
39 32 \\
39 38 \\
40 38 \\
40 39 \\
41 39 \\
41 40 \\
42 40 \\
42 41 \\
43 41 \\
43 42 \\
44 37 \\
44 38 \\
45 36 \\
46 36 \\
46 45 \\
47 45 \\
47 46 \\
48 46 \\
48 47 \\
49 37 \\
49 45 \\
50 47 \\
50 48 \\
51 43 \\
52 43 \\
52 51 \\
53 51 \\
53 52 \\
54 52 \\
54 53 \\
55 53 \\
55 54 \\
55 29 \\
56 44 \\
56 49 \\
56 58 \\
57 42 \\
57 44 \\
58 49 \\
58 50 \\
59 51 \\
59 57 \\
60 56 \\
60 57 \\
60 61 \\
61 31 \\
61 59 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.78049312123039427114 5.13950954616336819214 \\
2 0.39024656061519696904 4.00473748890781067189 \\
3 1.56811127001083749910 4.23416008230332518991 \\
4 1.17786470939564003046 3.09938802504776766966 \\
5 0.00000000000000000000 2.86996543165225359573 \\
6 2.35572941879128094911 3.32881061844328129951 \\
7 1.73063658735591952009 4.40655157071117820067 \\
8 1.89032508094116447062 5.59587893734177654892 \\
9 2.84046854706668927548 4.86292096188958744563 \\
10 3.00015704065193444805 6.05224832852018579388 \\
11 3.95030050677745903087 5.31929035306799580241 \\
12 4.10998900036270331526 6.50861771969859415066 \\
13 2.93039077913145851184 4.38226413945499437830 \\
14 1.19070683665752574676 3.01901988189453529543 \\
15 0.72443835878570195241 1.91331028776816958192 \\
16 1.91514519544322725508 2.06236473801045061549 \\
17 1.44887671757140390483 0.95665514388408479096 \\
18 2.03986930972142666008 2.17112655467701332057 \\
19 2.63958355422892942954 1.10570959412636593555 \\
20 2.17331507635710519111 0.00000000000000000000 \\
21 4.70998900036270384817 5.46938723515726721303 \\
22 5.30998900036270349290 6.50861771969859415066 \\
23 5.90998900036270402580 5.46938723515726721303 \\
24 6.50998900036270367053 6.50861771969859415066 \\
25 7.10998900036270420344 5.46938723515726721303 \\
26 7.70998900036270384817 6.50861771969859415066 \\
27 2.61453067006160377872 3.22458007568872728754 \\
28 4.10338057654170018651 4.12909436406409380282 \\
29 3.23958355422893173881 2.14494007866769065274 \\
30 5.27044513631043010093 4.40830810536602335503 \\
31 3.78752046747184589748 2.97141030029782671207 \\
32 9.10281095548941365792 1.36910817353522507034 \\
33 9.49305751610461179268 2.50388023079078037014 \\
34 8.31519280670897131813 2.27445763739526940483 \\
35 8.70543936732416590019 3.40922969465082603691 \\
36 9.88330407671980815110 3.63865228804633966675 \\
37 7.52757465792852897835 3.17980710125531373933 \\
38 8.15266748936389085145 2.10206614898741417363 \\
39 7.99297899577864345844 0.91273878235681604743 \\
40 7.04283552965312065197 1.64569675780900781525 \\
41 6.88314703606787414714 0.45636939117840941149 \\
42 5.93300356994235045249 1.18932736663059701598 \\
43 5.77331507635710394766 0.00000000000000112113 \\
44 6.95291329758835008334 2.12635358024359977236 \\
45 8.69259724006228395865 3.48959783780405574660 \\
46 9.15886571793410908526 4.59530743193042301442 \\
47 7.96815888127658045192 4.44625298168814442334 \\
48 8.43442735914840291400 5.55196257581450858254 \\
49 7.84343476699838149102 4.33749116502158127417 \\
50 7.24372052249087960973 5.40290812557222910328 \\
51 5.17331507635710519111 1.03923048454132627150 \\
52 4.57331507635710465820 0.00000000000000074742 \\
53 3.97331507635710590165 1.03923048454132627150 \\
54 3.37331507635710581283 0.00000000000000037371 \\
55 2.77331507635710572401 1.03923048454132627150 \\
56 7.26877340665820259602 3.28403764400986819538 \\
57 5.77992350017810885277 2.37952335563449945965 \\
58 6.64372052249087818865 4.36367764103090394201 \\
59 4.61285894040937893834 2.10030961433257079563 \\
60 6.09578360924796402998 3.53720741940076877086 \\
61 4.95458502724057492372 3.25062404159975804063 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 7 0.5 Blue {} 1.5 \\
4 5 14 0.45 Green {} 1.5 \\
11 12 21 0.5 Orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,very thick] (P30) -- (P61);
\draw[green,very thick] (P31) -- (P59);
\draw[green,very thick] (P55) -- (P29);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 2pt] (P27) -- (P29);
\draw[red,dash pattern=on 4pt off 2pt] (P56) -- (P58);
\draw[red,dash pattern=on 4pt off 2pt] (P60) -- (P61);
\end{tikzpicture}
\end{document}
$
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
| Beitrag No.1771, eingetragen 2019-06-23
|
Button neue Eingabe "Rahmen zuerst" und dann Button "Feinjustieren(5)" reduziert das noch auf 2 nicht passende Kanten:
61 Knoten, 61×Grad 4, 0 Überschneidungen
122 Kanten, minimal 0.90018974963258402422, maximal 1.13359307121794650186
einzustellende Kanten, Abstände und Winkel:
|P29-P18|=0.99999999999999711342
|P58-P25|=1.00000000000000111022
|P27-P29|=0.99999999999999689138
|P31-P28|=0.99999999999998612221
|P56-P58|=1.00000000000000022204
|P60-P30|=0.99999999999999511502
|P61-P30|=1.13359307121794650186
|P61-P60|=0.90018974963258402422
nicht passende Kanten:
|P61-P30|=1.13359307121794650186
|P61-P60|=0.90018974963258402422
$
%Eingabe war:
%
%4/4 fast mit 122
%
%
%
%
%
%
%
%
%P[20]=[-110.77595930503458,1.0003818181818076]; P[17]=[-152.8489705351675,56.55978466298047]; D=ab(20,17); A(17,20); N(19,17,20); N(16,17,19); N(15,17,16); N(14,15,16); N(5,15,14); M(4,5,15,blauerWinkel); N(2,5,4); N(3,2,4); N(1,2,3); M(8,1,2,gruenerWinkel); N(7,8,1); N(9,8,7); N(10,8,9); N(11,10,9); N(12,10,11); M(22,12,10,orangerWinkel); N(21,22,12); N(23,22,21); N(24,22,23); N(25,24,23); N(26,24,25); M(50,26,24,vierterWinkel); N(48,26,50); N(47,48,50); N(46,48,47); N(45,46,47); N(36,46,45); M(35,36,46,fuenfterWinkel); N(33,36,35); N(34,33,35); N(32,33,34); Q(43,32,20,3*D,3*D); A(43,32); A(43,20); H(54,20,43,3); A(54,20); L(55,20,54); H(39,32,43,3); A(39,32); L(38,39,32); H(41,32,43,3/2); A(39,41); L(40,41,39); A(40,38); A(41,43); L(42,43,41); A(42,40); H(52,20,43,3/2); A(54,52); L(53,54,52); A(55,53); A(52,43); L(51,52,43); A(53,51); N(6,3,4); N(13,7,6); N(18,6,14); N(28,11,13); N(29,19,55); N(30,21,28); N(37,34,35); N(44,38,37); N(49,37,45); N(57,42,44); N(58,49,50); N(59,51,57); N(27,13,18); N(31,27,59); N(56,44,49); N(60,57,56); N(61,31,59);
%A(29,18); R(29,18,"green");
%A(58,25); R(58,25,"green");
%A(27,29); R(27,29,"green",jam(1.0396024985452768)*D);
%A(31,28); R(31,28,"green");
%A(56,58); R(56,58,"green",jam(1.0396024985452768)*D);
%A(60,30); R(60,30,"green");
%A(61,30); R(61,30,"green");
%A(61,60); R(61,60,"green",jam(0.9805271527231855)*D);
%
%
%
%
%
%
%
%
%
%
%
%
%
%
%
%
%
%
%
%Ende der Eingabe.
\begin{tikzpicture}[draw=grey,font=\sffamily\scriptsize]
\definecolor{Blue}{rgb}{0.00,0.00,1.00}
\definecolor{Green}{rgb}{0.00,0.50,0.00}
\definecolor{Orange}{rgb}{1.00,0.64,0.00}
\definecolor{Teal}{rgb}{0.00,0.50,0.50}
\definecolor{Violet}{rgb}{0.93,0.51,0.93}
%Koordinaten als \coordinate (p-1) at (0,0);
\foreach \i/\x/\y in {
1/0.66408453941391909492/4.27816687472996637354,
2/0.33204226970695954746/3.33490236722008992487,
3/1.31495443055221006290/3.51897758027855722673,
4/0.98291216084525057095/2.57571307276868077807,
5/0.00000000000000000000/2.39163785971021347621,
6/1.96582432169050114190/2.75978828582714763584,
7/1.47274334806767281947/3.68988893770811010597,
8/1.57787758168762604072/4.68434697750724815535,
9/2.38653639034138009833/4.09606904048539099961,
10/2.49167062396133331958/5.09052708028452904898,
11/3.30032943261508737720/4.50224914326267278142,
12/3.40546366623504015436/5.49670718306181083079,
13/2.47050990592402897050/3.62309151243229710104,
14/0.99225569721460460393/2.51584990157878030104,
15/0.60369863232141740550/1.59442523980680883611,
16/1.59595432953602212045/1.71863728167537543889,
17/1.20739726464283481100/0.79721261990340441805,
18/1.68926787347150897389/1.79879061103886006556,
19/2.19965296185743941493/0.92142466177197124289,
20/1.81109589696425232752/0.00000000000000000000,
21/3.91579182667505198978/4.63672743407820142636,
22/4.40539205581501747133/5.50867445977763647846,
23/4.91572021625502930675/4.64869471079402618585,
24/5.40532044539499434421/5.52064173649346301431,
25/5.91564860583500706781/4.66066198750985183352,
26/6.40524883497497210527/5.53260901320928866198,
27/2.19395345770503880090/2.66209383764400842054,
28/3.46474374424248576787/3.51585777360654638812,
29/2.68925319099740356421/1.79337168747140829339,
30/4.42955636043673184332/3.77879619915978093303,
31/3.18818729602349693053/2.55486009881827191847,
32/7.55226019252530900161/1.25444213847932406480,
33/7.88430246223226927071/2.19770664598920140165,
34/6.90139030138701947692/2.01363143293073365570,
35/7.23343257109397796967/2.95689594044061099254,
36/8.21634473193922865164/3.14097115349907873849,
37/6.25052041024872728769/2.77282072738214280250,
38/6.74360138387156027306/1.84272007550118477326,
39/6.63846715025160172274/0.84826203570204661286,
40/5.82980834159785032966/1.43653997272390698825,
41/5.72467410797789266752/0.44208193292476904990,
42/4.91601529932414127444/1.03035986994662942529,
43/4.81088106570418361230/0.03590183014749149387,
44/5.74583482601520323385/1.90951750077699089481,
45/7.22408903472462426976/3.01675911163051058139,
46/7.61264609961780980285/3.93818377340248249041,
47/6.62039040240320542097/3.81397173153391433331,
48/7.00894746729639006588/4.73539639330588535415,
49/6.52707685846771834548/3.73381840217043059482,
50/6.01669177008178568400/4.61118435143731542070,
51/4.30055290526416822416/0.89588157913109922603,
52/3.81095267612420718351/0.02393455343166099938,
53/3.30062451568419090719/0.88391430241526880440,
54/2.81102428654422986654/0.01196727671583049969,
55/2.30069612610421359022/0.87194702569943827175,
56/6.02239127423419340346/2.87051517556527935326,
57/4.75160098769674732466/2.01675123960275648471,
58/5.52709154094182153472/3.73923732573787903632,
59/3.78678837150249991694/1.75381281404952593661,
60/5.02815743591573927063/2.97774891439104472113,
61/4.18121513200528038823/2.67274019453140221358}
\coordinate (p-\i) at (\x,\y);
%Innenflächen als \filldraw[yellow,shift={+(0.1,0.1)}] (p-1) -- (p-2) -- (p-3) -- cycle;
%gefüllte Winkel als \fill[red!20] (p-1) -- +(0:0.3 cm) arc (0:60:0.3 cm) -- cycle;
\foreach \i/\a/\b/\r/\c in {
5/307.14/370.61/0.4/Blue,
1/250.61/383.97/0.4/Green,
12/203.97/360.69/0.4/Orange,
26/180.69/247.14/0.4/Violet,
36/127.14/190.61/0.4/Teal}
\fill[\c!20] (p-\i) -- +(\a:\r cm) arc (\a:\b:\r cm) -- cycle;
%Kanten als \draw[gray,thick] (p-1) -- (p-2);
\foreach \i/\j in {
1/2, 1/3,
2/5, 2/4,
3/2, 3/4,
4/5,
5/15, 5/14,
6/3, 6/4,
7/8, 7/1,
8/1,
9/8, 9/7,
10/8, 10/9,
11/10, 11/9,
12/10, 12/11,
13/7, 13/6,
14/15, 14/16,
15/17, 15/16,
16/17, 16/19,
17/20,
18/6, 18/14,
19/17, 19/20,
21/22, 21/12,
22/12,
23/22, 23/21,
24/22, 24/23,
25/24, 25/23,
26/24, 26/25,
27/13, 27/18, 27/29,
28/11, 28/13,
29/19, 29/55, 29/18,
30/21, 30/28,
31/27, 31/59, 31/28,
32/33, 32/34,
33/36, 33/35,
34/33, 34/35,
35/36,
36/46, 36/45,
37/34, 37/35,
38/39, 38/32,
39/32, 39/41,
40/41, 40/39, 40/38,
41/43,
42/43, 42/41, 42/40,
44/38, 44/37,
45/46, 45/47,
46/48, 46/47,
47/48, 47/50,
48/26, 48/50,
49/37, 49/45,
50/26,
51/52, 51/43,
52/43,
53/54, 53/52, 53/51,
54/20, 54/52,
55/20, 55/54, 55/53,
56/44, 56/49, 56/58,
57/42, 57/44,
58/49, 58/50, 58/25,
59/51, 59/57,
60/57, 60/56, 60/30,
61/31, 61/59, 61/30, 61/60}
\draw[gray,thick] (p-\i) -- (p-\j);
%Punkte als \fill[red] (p-1) circle (1.125pt)
\foreach \i in {1,...,61}
\fill[red] (p-\i) circle (1.125pt);
%einzustellende Kanten als \draw[green] (p-1) -- (p-2);
\draw[Green,very thick] (p-29) -- (p-18);
\draw[Green,very thick] (p-58) -- (p-25);
\draw[Green,very thick] (p-27) -- (p-29);
\draw[Green,very thick] (p-31) -- (p-28);
\draw[Green,very thick] (p-56) -- (p-58);
\draw[Green,very thick] (p-60) -- (p-30);
\draw[Green,very thick] (p-61) -- (p-30);
\draw[Green,very thick] (p-61) -- (p-60);
%nicht passende Kanten als \draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-1) -- (p-2);
\draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-61) -- (p-30);
\draw[cyan,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-61) -- (p-60);
%Winkel als \draw[->,red] (p-1) +(0:0.3 cm) arc (0:60:0.3 cm);
\foreach \i/\a/\b/\r/\c in {
5/307.14/370.61/0.4/Blue,
1/250.61/383.97/0.4/Green,
12/203.97/360.69/0.4/Orange,
26/180.69/247.14/0.4/Violet,
36/127.14/190.61/0.4/Teal}
{
\draw[\c,thick] (p-\i) +(\a:\r cm) arc (\a:\b-4:\r cm);
\fill[\c!90!black] (p-\i) -- +(\b:\r cm) coordinate (pfeilspitze-\i) -- ([turn]-24.84:0.08cm) -- ([turn]-31.04:0.08cm) -- ([turn]-120.00:0.08cm) -- ([turn]15.522:0.04cm) -- ([turn]-39.275:0.04cm) -- ([turn]15.522:0.08cm) -- ([turn]-120.00:0.08cm) -- ([turn]-31.04:0.08cm) -- (pfeilspitze-\i);
}
%Punktnummern als \node[anchor=30] (P1) at (p-1) {1};
\foreach \i/\a in {
1/174,
2/161,
3/341,
4/341,
5/221,
6/341,
7/294,
8/174,
9/354,
10/114,
11/354,
12/151,
13/30,
14/97,
15/157,
16/337,
17/217,
18/210,
19/337,
20/211,
21/271,
22/151,
23/331,
24/91,
25/331,
26/97,
27/149,
28/319,
29/330,
30/49,
31/157,
32/281,
33/341,
34/221,
35/101,
36/41,
37/161,
38/54,
39/354,
40/174,
41/354,
42/174,
43/331,
44/210,
45/217,
46/337,
47/157,
48/37,
49/30,
50/217,
51/31,
52/271,
53/31,
54/271,
55/151,
56/329,
57/139,
58/150,
59/277,
60/49,
61/37}
\node[anchor=\a] (P\i) at (p-\i) {\i};
\end{tikzpicture}
$
also bei 4-regulären Graphen sind 3 nicht passende Kanten ein realistisches Ziel und wenn der Graph dann noch aus zwei symmetrischen Teilgraphen besteht, kann man zwei nicht passende Kanten versuchen zu erreichen, siehe die vielen Beispiele in Beitrag No.1279. Ich habe keine Erklärung dafür, ist nur so eine Beobachtung bei diesen Graphen.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1772, vom Themenstarter, eingetragen 2019-06-23
|
Die Falsch-Kantenreduzierung geht wohl immer auf Kosten der Abweichung.
Minimale 4er-Graphen mit ungerader Knotenzahl und einer Punktsymmetrie besitzen ja immer einen Zentrumsknoten. Sonst fällt mir jetzt nur noch der 59er (hier) ein, der auch vier falsche Kanten besitzt. Bei ungerader Knotenzahl und Dreiersymmetrie sind es immer drei gleich falsche Kanten. Bei Spiegelsymmetrie wohl auch. Den 59er konnte ich bis jetzt nicht auf 3 falsche Kanten reduzieren.
Dieser 124er (hier) müsste wohl auch auf zwei falsche Kanten reduzierbar sein.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1773, vom Themenstarter, eingetragen 2019-06-23
|
59er mit 3 falschen Kanten, aber keine schöne Lösung.
59 Knoten, 59×Grad 4, 0 Überschneidungen
118 Kanten, minimal 0.99985513822982330367, maximal 1.46204629297992738657
nicht passende Kanten:
|P27-P13|=0.99985513822982352572
|P54-P42|=0.99985513822982330367
|P56-P59|=1.46204629297992738657
$
%Eingabe war:
%
%Fast 4/4 mit 118
%
%
%
%
%
%
%
%
%P[22]=[356.2077930710677,-169.99949999999893]; P[20]=[238.59507950189453,-169.99949999999893]; D=ab(22,20); A(20,22); N(21,20,22); N(19,20,21); N(17,20,19); N(16,17,19); N(15,17,16); N(14,15,16); N(5,15,14); M(4,5,15,blauerWinkel); N(2,5,4); N(3,2,4); N(1,2,3); M(8,1,2,gruenerWinkel); N(7,8,1); N(9,8,7); N(10,8,9); N(11,10,9); N(12,10,11); M(24,12,10,orangerWinkel); N(23,24,12); N(25,24,23); N(26,24,25); M(50,26,24,vierterWinkel); N(49,26,50); N(48,49,50); N(46,49,48); N(45,46,48); N(44,46,45); N(43,44,45); N(34,44,43); M(33,34,44,fuenfterWinkel); N(31,34,33); N(32,31,33); N(30,31,32); Q(41,30,22,3*D,2*D); A(41,30); A(41,22); H(52,22,41,2); A(52,22); L(53,22,52); H(37,30,41,3); A(37,30); L(36,37,30); H(39,30,41,3/2); A(37,39); L(38,39,37); A(38,36); A(39,41); L(40,41,39); A(40,38); A(52,41); L(51,52,41); A(53,51); N(6,3,4); N(13,7,6); N(18,6,14); N(28,11,13); N(35,32,33); N(42,36,35); N(47,35,43); N(55,40,42); N(57,50,25); N(58,21,53); N(27,18,28); N(29,57,18); N(54,47,55); N(56,58,54); N(59,29,58);
%
%RA(57,59);
%RA(28,23);
%RA(55,51);
%RA(29,27);
%RA(56,47);
%
%RA(54,42);
%RA(56,59);
%RA(27,13);
%
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{3,6,11,13,16,33,36,38,47,51,54}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{4.84438970266552804134,2.45951695385465463062}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 2 \\
1 3 \\
2 5 \\
2 4 \\
3 2 \\
3 4 \\
4 5 \\
5 15 \\
5 14 \\
6 3 \\
6 4 \\
7 8 \\
7 1 \\
8 1 \\
9 8 \\
9 7 \\
10 8 \\
10 9 \\
11 10 \\
11 9 \\
12 10 \\
12 11 \\
13 7 \\
13 6 \\
14 15 \\
14 16 \\
15 17 \\
15 16 \\
16 17 \\
16 19 \\
17 20 \\
17 19 \\
18 6 \\
18 14 \\
19 20 \\
19 21 \\
20 22 \\
21 20 \\
21 22 \\
22 22 \\
23 24 \\
23 12 \\
24 12 \\
25 24 \\
25 23 \\
26 24 \\
26 25 \\
27 18 \\
27 28 \\
27 13 \\
28 11 \\
28 13 \\
28 23 \\
29 57 \\
29 18 \\
29 27 \\
30 31 \\
30 32 \\
31 34 \\
31 33 \\
32 31 \\
32 33 \\
33 34 \\
34 44 \\
34 43 \\
35 32 \\
35 33 \\
36 37 \\
36 30 \\
37 30 \\
37 39 \\
38 39 \\
38 37 \\
38 36 \\
39 41 \\
40 41 \\
40 39 \\
40 38 \\
41 41 \\
42 36 \\
42 35 \\
43 44 \\
43 45 \\
44 46 \\
44 45 \\
45 46 \\
45 48 \\
46 49 \\
46 48 \\
47 35 \\
47 43 \\
48 49 \\
48 50 \\
49 26 \\
49 50 \\
50 26 \\
51 52 \\
51 41 \\
52 22 \\
52 41 \\
53 22 \\
53 52 \\
53 51 \\
54 47 \\
54 55 \\
54 42 \\
55 40 \\
55 42 \\
55 51 \\
56 58 \\
56 54 \\
56 47 \\
56 59 \\
57 50 \\
57 25 \\
57 59 \\
58 21 \\
58 53 \\
59 29 \\
59 58 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.00000000000000000000 2.00671511458712448217 \\
2 0.65823522560092273537 1.00335755729356312926 \\
3 1.19805074649578569002 2.07508476297652366682 \\
4 1.85628597209670886947 1.07172720568296298005 \\
5 1.31647045120184591482 0.00000000000000202990 \\
6 2.39610149299157138003 2.14345441136592373965 \\
7 1.19668169988684702787 2.09589419933196197121 \\
8 0.52110949706814846394 3.08766140930549770616 \\
9 1.71779119695499504772 3.17684049405033652747 \\
10 1.04221899413629648379 4.16860770402387181832 \\
11 2.23890069402314306757 4.25778678876870930736 \\
12 1.56332849120444516977 5.24955399874224681867 \\
13 1.75521982413603749862 3.15798419728891310854 \\
14 1.91647045120184622569 1.03923048454132826990 \\
15 2.51647045120184609246 0.00000000000000144993 \\
16 3.11647045120184618128 1.03923048454132738172 \\
17 3.71647045120184627010 0.00000000000000057997 \\
18 3.10844747124608700162 1.17776128864804041640 \\
19 4.31647045120184635891 1.03923048454132649354 \\
20 4.91647045120184600364 0.00000000000000000000 \\
21 5.51647045120184653655 1.03923048454132627150 \\
22 6.11647045120184618128 0.00000000000000000000 \\
23 2.27239852179801138377 4.28145292358839757441 \\
24 2.75626363101548976786 5.37957612072155999527 \\
25 3.46533366160905620390 4.41147504556770986284 \\
26 3.94919877082653458800 5.50959824270087228371 \\
27 2.46546834542439130544 2.19096306705033283535 \\
28 2.94797072461670595089 3.28968571361485828675 \\
29 3.66441638759119614477 2.24119843491388603951 \\
30 10.06566922202837766065 3.50288312811374424882 \\
31 9.40743399642745714573 4.50624068540730515764 \\
32 8.86761847553259308086 3.43451347972434506417 \\
33 8.20938324993167078958 4.43787103701790641708 \\
34 8.74919877082653485445 5.50959824270086695464 \\
35 7.66956772903680672471 3.36614383133494587952 \\
36 8.86898752214153063278 3.41370404336890542751 \\
37 9.54455972496023186125 2.42193683339536969257 \\
38 8.34787802507338305702 2.33275774865053042717 \\
39 9.02345022789208428549 1.34099053867699558040 \\
40 7.82676852800523636944 1.25181145393215675909 \\
41 8.50234073082393493337 0.26004424395862130170 \\
42 8.31044939789233794158 2.35161404541195606654 \\
43 8.14919877082653343336 4.47036775815954179336 \\
44 7.54919877082653467681 5.50959824270086873099 \\
45 6.94919877082653325573 4.47036775815954445790 \\
46 6.34919877082653538736 5.50959824270087139553 \\
47 6.95722175078229376766 4.33183695405283142321 \\
48 5.74919877082653307809 4.47036775815954534607 \\
49 5.14919877082653432154 5.50959824270087139553 \\
50 4.54919877082653378864 4.47036775815954534607 \\
51 7.79327070023037027369 1.22814531911247160068 \\
52 7.30940559101289100141 0.13002212197931051207 \\
53 6.60033556041932634173 1.09812319713316086656 \\
54 7.60020087660397969387 3.31863517565053323111 \\
55 7.11769849741166993340 2.21991252908600511518 \\
56 6.40125283443717485454 3.26839980778698979691 \\
57 4.06533366160905629272 3.37224456102638381338 \\
58 6.00033556041932847336 2.13735368167448758214 \\
59 4.84438970266552804134 2.45951695385465463062 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
15 5 4 0.5 Blue {} 1.5 \\
2 1 8 0.5 Green {} 1.5 \\
10 12 24 0.5 Orange {} 1.5 \\
24 26 50 0.5 Violet {} 1.5 \\
44 34 33 0.5 Teal {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,thick] (P57) -- (P59);
\draw[green,thick] (P28) -- (P23);
\draw[green,thick] (P55) -- (P51);
\draw[green,thick] (P29) -- (P27);
\draw[green,thick] (P56) -- (P47);
\draw[very thick] (P54) -- (P42);
\draw[very thick] (P56) -- (P59);
\draw[very thick] (P27) -- (P13);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 4pt] (P27) -- (P13);
\draw[red,dash pattern=on 4pt off 4pt] (P54) -- (P42);
\draw[red,dash pattern=on 4pt off 4pt] (P56) -- (P59);
\end{tikzpicture}
\end{document}
$
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
| Beitrag No.1774, eingetragen 2019-06-23
|
\quoteon(2019-06-23 11:56 - Slash in Beitrag No. 1772)
Dieser 124er (hier) müsste wohl auch auf zwei falsche Kanten reduzierbar sein.
\quoteoff
Bei diesem Graph #1330 habe ich die Reihenfolge der Meßkanten etwas verändert, dann bleiben noch zwei falsche Kanten übrig
62 Knoten, 62×Grad 4, 6 Überschneidungen
124 Kanten, minimal 0.99999999999999777955, maximal 1.09140305054044972621
einzustellende Kanten, Abstände und Winkel:
|P29-P61|=1.00000000000019695356
|P30-P60|=1.00000000000006528111
|P30-P62|=1.00000000000007482903
nicht passende Kanten:
|P21-P59|=1.09140305054044972621
|P59-P51|=1.09140305054044972621
$
%Eingabe war:
%
%Fast 4/4 mit 124
%
%
%
%
%
%
%P[1]=[-165.88953224860282,230.26771024964629];
%P[2]=[-158.64441718360496,173.29536823572275]; D=ab(1,2); A(2,1); L(3,1,2);
%L(4,3,2); L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel,3); N(13,7,6);
%M(14,5,4,gruenerWinkel);
%L(15,14,5); L(16,14,15); L(17,16,15); N(18,6,14); N(19,16,17); N(20,19,17);
%N(21,19,20); N(22,21,20);
%M(23,12,11,orange_angle,2); N(27,13,18); N(28,13,27); N(29,27,18); N(30,23,11);
%A(22,26,ab(22,26,[1,30],"gespiegelt"));9
%N(59,57,29); N(60,54,25); N(61,56,28); N(62,28,56);
%
%A(21,59); A(59,51);
%RA(29,61,"",1*D); A(61,57);
%RA(30,60,"",1*D); A(60,58);
%RA(30,62,"",1*D); A(62,58);
%
%
%
%Ende der Eingabe.
\usetikzlibrary{spy}
\tikzset{SpyStyle/.style={spy using outlines={rectangle, magnification=3, width=2cm, height=2cm, connect spies, blue!70!black}}}
\begin{tikzpicture}[SpyStyle,draw=grey,font=\sffamily\tiny]
\definecolor{Blue}{rgb}{0.00,0.00,1.00}
\definecolor{Green}{rgb}{0.00,0.50,0.00}
\definecolor{LimeGreen}{rgb}{0.20,0.80,0.20}
\definecolor{Orange}{rgb}{1.00,0.64,0.00}
%Koordinaten als \coordinate (p-1) at (0,0);
\foreach \i/\x/\y in {
1/0.00000000000000000000/4.16094758785573937132,
2/0.12615300872422879896/3.16893679235509306835,
3/0.92218305409408318774/3.77419390042443847477,
4/1.04833606281831248630/2.78218310492379305998,
5/0.25230601744845859713/2.17692599685444765356,
6/1.84436610818816637547/3.38744021299313757822,
7/0.99170722133326738579/4.03242993476695321675,
8/0.60715316307627820169/4.95553240810243256220,
9/1.59886038440954525441/4.82701475501364729581,
10/1.21430632615255595930/5.75011722834912575308,
11/2.20601354748582245691/5.62159957526034048669,
12/1.82145948922883271770/6.54470204859581894397,
13/1.92788904562083129868/4.38394606792958452246,
14/1.14309186333622703202/2.63134934216805849161,
15/1.09124110150663811147/1.63269449764083551813,
16/1.98202694739440654637/2.08711784295444635617,
17/1.93017618556481740377/1.08846299842722360474,
18/2.12193438619933161249/2.42673430011348933988,
19/2.82096203145258561662/1.54288634374083422074,
20/2.76911126962299691812/0.54423149921361180237,
21/3.65989711551076490892/0.99865484452722264042,
22/3.60804635368117621042/0.00000000000000000000,
23/2.37772561175999408434/5.71369783625742932998,
24/2.81926330903133637307/6.61094053580327667419,
25/3.37552943156249707357/5.77993632346488706020,
26/3.81706712883383936230/6.67717902301073440441,
27/2.20545732363199409320/3.42324015504993717229,
28/2.89866891074610766310/4.14397429153213003872,
29/3.02669524031055692248/2.85265424196632899623,
30/2.76227967001697871652/4.79059536292194731999,
31/7.46927993909403209472/3.92713107981823084103,
32/7.28132740478505979809/2.94495296723027699670,
33/6.52471247539732690512/3.59881369294149022764,
34/6.33675994108835105578/2.61663558035353860376,
35/7.09337487047608572510/1.96277485464232581691,
36/5.58014501170061905100/3.27049630606475227879,
37/6.47147611929153221411/3.86089259261070916196,
38/6.91301381656281854760/4.75813529215658359561,
39/5.91520999676031866699/4.69189680494906102837,
40/6.35674769403160500048/5.58913950449493679429,
41/5.35894387422910423169/5.52290101728741600340,
42/5.80048157150038878882/6.42014371683328999296,
43/5.55911327996632920190/4.27027511473207876946,
44/6.23275558436933074802/2.47202375683171649001,
45/6.22204274127735956768/1.47208114098174336348,
46/5.36142345517060281423/1.98133004317113559090,
47/5.35071061207862985754/0.98138742732116279743,
48/5.24303167087759991460/2.32903223588514940445,
49/4.49009132597187665681/1.49063632951055402565,
50/4.47937848287990370011/0.49069371366058101014,
51/3.61875919677314961120/0.99994261584997312653,
52/5.19332840842416310068/5.62555889658655683405,
53/4.80877435016711363147/6.54866136992201308686,
54/4.20162118709088794333/5.75407654967527992795,
55/5.22199993914331095368/3.32881104455247456286,
56/4.57522480802898900976/4.09149179674965068898,
57/4.36668195853920959593/2.81070762625133818702,
58/4.75179071115288298444/4.72831619704067929177,
59/3.67347037142499077689/2.08997348976924657293,
60/3.76008348981954565460/4.85683385012943169556,
61/3.71990682742478417921/3.57338837844868528748,
62/3.75398689135031293773/4.66207770983309455204}
\coordinate (p-\i) at (\x,\y);
%Innenflächen als \filldraw[yellow,shift={+(0.1,0.1)}] (p-1) -- (p-2) -- (p-3) -- cycle;
%gefüllte Winkel als \fill[red!20] (p-1) -- +(0:0.3 cm) arc (0:60:0.3 cm) -- cycle;
%Punkte als \fill[red] (p-1) circle (1.125pt)
%einzustellende Kanten als \draw[green] (p-1) -- (p-2);
\draw[LimeGreen,very thick] (p-29) -- (p-61);
\draw[LimeGreen,very thick] (p-30) -- (p-60);
\draw[LimeGreen,very thick] (p-30) -- (p-62);
%Kanten als \draw[line width=0] (p-1) -- (p-2);
\foreach \i/\j in {
2/1,
3/1, 3/2,
4/3, 4/2,
5/4, 5/2,
6/3, 6/4,
7/1,
8/1, 8/7,
9/8, 9/7,
10/8, 10/9,
11/10, 11/9,
12/10, 12/11,
13/7, 13/6,
14/5,
15/14, 15/5,
16/14, 16/15,
17/16, 17/15,
18/6, 18/14,
19/16, 19/17,
20/19, 20/17,
21/19, 21/20, 21/59,
22/21, 22/20, 22/50, 22/51,
23/12,
24/12, 24/23,
25/24, 25/23,
26/24, 26/25, 26/53, 26/54,
27/13, 27/18,
28/13, 28/27,
29/27, 29/18, 29/61,
30/23, 30/11, 30/60, 30/62,
32/31,
33/31, 33/32,
34/32, 34/33,
35/32, 35/34,
36/33, 36/34,
37/31,
38/31, 38/37,
39/37, 39/38,
40/38, 40/39,
41/39, 41/40,
42/40, 42/41,
43/36, 43/37,
44/35,
45/35, 45/44,
46/44, 46/45,
47/45, 47/46,
48/36, 48/44,
49/46, 49/47,
50/47, 50/49,
51/49, 51/50,
52/42,
53/42, 53/52,
54/52, 54/53,
55/43, 55/48,
56/43, 56/55,
57/48, 57/55,
58/41, 58/52,
59/57, 59/29, 59/51,
60/54, 60/25, 60/58,
61/56, 61/28, 61/57,
62/28, 62/56, 62/58}
\draw[line width=0] (p-\i) -- (p-\j);
%nicht passende Kanten als \draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-1) -- (p-2);
\draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-21) -- (p-59);
\draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-59) -- (p-51);
%Winkel als \draw[->,red] (p-1) +(0:0.3 cm) arc (0:60:0.3 cm);
\foreach \i/\a/\b/\r/\c in {
1/337.25/352.62/0.4/Blue,
5/37.25/387.03/0.4/Green,
12/292.62/303.80/0.4/Orange}
\draw[\c] (p-\i) +(\a:\r cm) arc (\a:\b:\r cm);
%Punktnummern als \node[anchor=30] (P1) at (p-1) {1};
\foreach \i/\a in {
1/203,
2/127,
3/127,
4/7,
5/177,
6/7,
7/263,
8/203,
9/263,
10/83,
11/23,
12/154,
13/136,
14/117,
15/177,
16/357,
17/177,
18/235,
19/57,
20/177,
21/57,
22/301,
23/214,
24/34,
25/334,
26/34,
27/115,
28/16,
29/355,
30/241,
31/334,
32/349,
33/49,
34/169,
35/359,
36/169,
37/214,
38/34,
39/154,
40/334,
41/154,
42/23,
43/40,
44/119,
45/359,
46/179,
47/359,
48/301,
49/59,
50/239,
51/119,
52/323,
53/143,
54/263,
55/280,
56/160,
57/181,
58/301,
59/271,
60/331,
61/8,
62/91}
\node[anchor=\a] (P\i) at (p-\i) {\i};
%Vergrößerungen als \spy[rectangle, magnification=3, width=2cm, h eight=2cm, blue!70!black] on (p-18) in node at (2.5 cm,-2);
\spy[] on (p-21) in node at (2.5,-2);
\end{tikzpicture}
$
und eine Überschneidung bei P21. Um diese wegzubekommen habe ich dann noch einen vierten Winkel nacheinander an verschiedenen Stellen im Graph eingesetzt, um eine weitere veränderliche Kante zu erhalten. Mit dieser lässt sich die Überschneidung beseitigen:
62 Knoten, 62×Grad 4, 0 Überschneidungen
124 Kanten, minimal 0.76750792990020966222, maximal 1.00000000000000199840
einzustellende Kanten, Abstände und Winkel:
|P21-P59|=0.99999999999999777955
|P29-P61|=0.99999999999999655831
|P30-P60|=0.99999999999999866773
|P30-P62|=0.99999999999999877875
nicht passende Kanten:
|P19-P21|=0.76750792990021010631
|P49-P51|=0.76750792990020966222
$
%Eingabe war:
%
%Fast 4/4 mit 124
%
%
%
%
%
%
%
%P[1]=[-165.88953224860282,230.26771024964629];
%P[2]=[-158.64441718360496,173.29536823572275]; D=ab(1,2); A(2,1); L(3,1,2);
%L(4,3,2); L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel,3); N(13,7,6);
%M(14,5,4,gruenerWinkel);
%L(15,14,5); L(16,14,15); L(17,16,15); N(18,6,14); N(19,16,17); N(20,19,17);
%M(21,20,19,vierterWinkel); A(19,21); N(22,21,20);
%M(23,12,11,orange_angle,2); N(27,13,18); N(28,13,27); N(29,27,18); N(30,23,11);
%A(22,26,ab(22,26,[1,30],"gespiegelt"));
%N(59,57,29); N(60,54,25); N(61,56,28); N(62,28,56);
%
%RA(21,59); A(59,51);
%RA(29,61); A(61,57);
%RA(30,60); A(60,58);
%RA(30,62); A(62,58);
%
%
%
%
%
%
%
%
%Ende der Eingabe.
\begin{tikzpicture}[draw=grey,font=\sffamily\scriptsize]
\definecolor{Blue}{rgb}{0.00,0.00,1.00}
\definecolor{Green}{rgb}{0.00,0.50,0.00}
\definecolor{LightCyan}{rgb}{0.88,1.00,1.00}
\definecolor{LimeGreen}{rgb}{0.20,0.80,0.20}
\definecolor{MintCream}{rgb}{0.96,1.00,0.98}
\definecolor{Orange}{rgb}{1.00,0.64,0.00}
\definecolor{Snow}{rgb}{1.00,0.98,0.98}
\definecolor{Violet}{rgb}{0.93,0.51,0.93}
\definecolor{WhiteSmoke}{rgb}{0.96,0.96,0.96}
%Koordinaten als \coordinate (p-1) at (0,0);
\foreach \i/\x/\y in {
1/0.00000000000000000000/4.02866816247267323092,
2/0.12615300872422879896/3.03665736697202692795,
3/0.92218305409408318774/3.64191447504137233437,
4/1.04833606281831248630/2.64990367954072691958,
5/0.25230601744845859713/2.04464657147138151316,
6/1.84436610818816637547/3.25516078761007143783,
7/0.99315180347071452260/3.91183710811268214869,
8/0.59775456276203009498/4.83034732691264601101,
9/1.59090636623274495065/4.71351627255265448468,
10/1.19550912552406041200/5.63202649135261967928,
11/2.18866092899477537870/5.51519543699262904113,
12/1.79326368828609084005/6.43370565579259334754,
13/1.93382489810082680570/4.25115131211688801471,
14/1.15607874534499188712/2.47265925388915608352,
15/1.07486223751243903379/1.47596277107431017583,
16/1.97863496540897232379/1.90397545349208408005,
17/1.89741845757641924841/0.90727897067723839442,
18/2.14109524054966815498/2.30019910146345418767,
19/2.80119118547295276045/1.33529165309501229864,
20/2.71997467764039946303/0.33859517028016655749,
21/3.48367277163779531790/0.98416873016683470432,
22/3.66090682751250628968/0.00000000000000000000,
23/2.35990563165002154022/5.60974151335631709969,
24/2.79015853912533051684/6.51244990237740228878,
25/3.35680048248926166110/5.68848575994112692911,
26/3.78705338996457063772/6.59119414896221211819,
27/2.23055403046232791908/3.29618962597026987638,
28/2.90921054412536994604/4.03064543571155375901,
29/3.04837773165748870952/2.72072077906068310327,
30/2.75530287235870563478/4.69123129455635190510,
31/7.47328282699778778664/3.88563961293340032199,
32/7.30926460830454871598/2.89918230319481118329,
33/6.53697662766869758144/3.53445490213592306006,
34/6.37295840897545406989/2.54799759239733480953,
35/7.14524638961130698078/1.91272499345622093436,
36/5.60067042833960027082/3.18327019133844668630,
37/6.47638797615854855394/3.80689536634859093667,
38/6.90664088363385797464/4.70960375536967656984,
39/5.90974603279461874195/4.63085950878486585225,
40/6.33999894026992816265/5.53356789780595281769,
41/5.34310408943068715359/5.45482365122114387646,
42/5.77335699690599746248/6.35753204024222817736,
43/5.54938702007794137927/4.18195433161357232876,
44/6.25851267309026226826/2.37500555327328433108,
45/6.30153282287351590440/1.37593134846534037585,
46/5.41479910635247119188/1.83821190828240266235,
47/5.45781925613572660438/0.83913770347445815201,
48/5.26761862087919663367/2.24036166261078806272,
49/4.57108553961468278004/1.30141826329152010544,
50/4.61410568939793730436/0.30234405848357603919,
51/3.87566862312515691968/0.97666645849298538984,
52/5.17560243414396570216/5.55585287580225628545,
53/4.78020519343528160761/6.47436309460221970369,
54/4.18245063067325162365/5.67268393016224781178,
55/5.21633521261753685394/3.23904580288591326109,
56/4.56627837702457739510/3.99893139328677627020,
57/4.37709108091348575442/2.69529099840110353270,
58/4.74534952666865539328/4.65314448678116932001,
59/3.69843456725044550382/1.96083518865981742962,
60/3.75219772319794442339/4.76997554114116173452,
61/3.72703424532052851603/3.45517658880196476545,
62/3.74845467582941926921/4.57440024019636481967}
\coordinate (p-\i) at (\x,\y);
%gefüllte Winkel als \fill[red!20] (p-1) -- +(0:0.3 cm) arc (0:60:0.3 cm) -- cycle;
\foreach \i/\a/\b/\r/\c in {
1/337.25/353.29/0.4/Blue,
5/37.25/385.34/0.4/Green,
20/85.34/400.21/0.4/Violet,
12/293.29/304.52/0.4/Orange}
\fill[\c!20] (p-\i) -- +(\a:\r cm) arc (\a:\b:\r cm) -- cycle;
%Kanten als \draw[gray,thick] (p-1) -- (p-2);
\foreach \i/\j in {
2/1,
3/1, 3/2,
4/3, 4/2,
5/4, 5/2,
6/3, 6/4,
7/1,
8/1, 8/7,
9/8, 9/7,
10/8, 10/9,
11/10, 11/9,
12/10, 12/11,
13/7, 13/6,
14/5,
15/14, 15/5,
16/14, 16/15,
17/16, 17/15,
18/6, 18/14,
19/16, 19/17, 19/21,
20/19, 20/17,
21/20, 21/59,
22/21, 22/20, 22/50, 22/51,
23/12,
24/12, 24/23,
25/24, 25/23,
26/24, 26/25, 26/53, 26/54,
27/13, 27/18,
28/13, 28/27,
29/27, 29/18, 29/61,
30/23, 30/11, 30/60, 30/62,
32/31,
33/31, 33/32,
34/32, 34/33,
35/32, 35/34,
36/33, 36/34,
37/31,
38/31, 38/37,
39/37, 39/38,
40/38, 40/39,
41/39, 41/40,
42/40, 42/41,
43/36, 43/37,
44/35,
45/35, 45/44,
46/44, 46/45,
47/45, 47/46,
48/36, 48/44,
49/46, 49/47, 49/51,
50/47, 50/49,
51/50,
52/42,
53/42, 53/52,
54/52, 54/53,
55/43, 55/48,
56/43, 56/55,
57/48, 57/55,
58/41, 58/52,
59/57, 59/29, 59/51,
60/54, 60/25, 60/58,
61/56, 61/28, 61/57,
62/28, 62/56, 62/58}
\draw[gray,thick] (p-\i) -- (p-\j);
%Punkte als \fill[red] (p-1) circle (1.125pt)
\foreach \i in {1,...,62}
\fill[red] (p-\i) circle (1.125pt);
%einzustellende Kanten als \draw[green] (p-1) -- (p-2);
\draw[LimeGreen,very thick] (p-21) -- (p-59);
\draw[LimeGreen,very thick] (p-29) -- (p-61);
\draw[LimeGreen,very thick] (p-30) -- (p-60);
\draw[LimeGreen,very thick] (p-30) -- (p-62);
%nicht passende Kanten als \draw[magenta,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-1) -- (p-2);
\draw[cyan,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-19) -- (p-21);
\draw[cyan,ultra thick,dash pattern=on 0.01cm off 0.09cm] (p-49) -- (p-51);
%Winkel als \draw[->,red] (p-1) +(0:0.3 cm) arc (0:60:0.3 cm);
\foreach \i/\a/\b/\r/\c in {
1/337.25/353.29/0.4/Blue,
5/37.25/385.34/0.4/Green,
20/85.34/400.21/0.4/Violet,
12/293.29/304.52/0.4/Orange}
{
\draw[\c,thick] (p-\i) +(\a:\r cm) arc (\a:\b-4:\r cm);
\fill[\c!90!black] (p-\i) -- +(\b:\r cm) coordinate (pfeilspitze-\i) -- ([turn]-24.84:0.08cm) -- ([turn]-31.04:0.08cm) -- ([turn]-120.00:0.08cm) -- ([turn]15.522:0.04cm) -- ([turn]-39.275:0.04cm) -- ([turn]15.522:0.08cm) -- ([turn]-120.00:0.08cm) -- ([turn]-31.04:0.08cm) -- (pfeilspitze-\i);
}
%Punktnummern als \node[anchor=30] (P1) at (p-1) {1};
\foreach \i/\a in {
1/127,
2/127,
3/127,
4/7,
5/175,
6/7,
7/323,
8/143,
9/23,
10/83,
11/23,
12/155,
13/137,
14/115,
15/175,
16/355,
17/175,
18/235,
19/355,
20/190,
21/70,
22/228,
23/215,
24/35,
25/275,
26/35,
27/257,
28/17,
29/355,
30/241,
31/51,
32/291,
33/51,
34/231,
35/2,
36/171,
37/215,
38/35,
39/275,
40/95,
41/215,
42/23,
43/41,
44/122,
45/2,
46/122,
47/2,
48/303,
49/182,
50/348,
51/108,
52/323,
53/143,
54/263,
55/281,
56/161,
57/183,
58/301,
59/271,
60/331,
61/174,
62/91}
\node[anchor=\a] (P\i) at (p-\i) {\i};
\end{tikzpicture}
$
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1775, vom Themenstarter, eingetragen 2019-06-23
|
Fast 4/4 mit 106. So einfach, dass ich nicht daran gedacht habe.
53 Knoten, 53×Grad 4, 0 Überschneidungen
106 Kanten, minimal 0.99999999999999455991, maximal 1.08182083594359923495
einzustellende Kanten, Abstände und Winkel:
|P51-P52|=1.00000000000001154632
|P27-P52|=1.08182083594358324774
nicht passende Kanten:
|P27-P52|=1.08182083594358324774
|P27-P53|=1.08182083594359923495
$
%Eingabe war:
%<Streichholzgraph>
%<Bildtext>Fast 4/4 mit 106</Bildtext>
%<Ausrichten von="11" nach="24"/>
%<Winkel size="18" color="blue" id="blue_angle" value="18.574316904267228"/>
%<Feinjustieren Anzahl="1"/>
%<Rechenweg>
%P[1]=[-0.04594952730636237,-63.521018558421474]; P[2]=[83.30270031512904,-99.01384570699449];
%D=ab(1,2); A(2,1,Bew(1)); N(3,1,2); N(4,3,2); N(5,4,2); N(6,4,5); N(7,6,5);
%M(8,1,3,blue_angle,2);
%N(12,10,8); N(13,12,3); N(14,13,6);
%A(7,14,ab(7,14,[1,14],"gespiegelt"));
%N(27,13,26);
%A(11,24,ab(24,11,[1,26]));
%N(52,50,12); N(53,25,38);
%RA(51,52); A(39,53);
%RA(27,52); A(27,53);
%</Rechenweg>
%</Streichholzgraph>
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{10,14,23}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{5.11365011528165780419,3.57650565460880054403}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 4 \\
6 5 \\
7 6 \\
7 5 \\
7 19 \\
7 20 \\
8 1 \\
9 1 \\
9 8 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
11 48 \\
11 49 \\
12 10 \\
12 8 \\
13 12 \\
13 3 \\
14 13 \\
14 6 \\
14 20 \\
14 26 \\
15 15 \\
16 15 \\
17 15 \\
17 16 \\
18 16 \\
18 17 \\
19 16 \\
19 18 \\
20 18 \\
20 19 \\
21 15 \\
22 15 \\
22 21 \\
23 21 \\
23 22 \\
24 22 \\
24 23 \\
24 36 \\
24 37 \\
25 21 \\
25 23 \\
26 17 \\
26 25 \\
27 13 \\
27 26 \\
27 52 \\
27 53 \\
28 28 \\
29 28 \\
30 28 \\
30 29 \\
31 29 \\
31 30 \\
32 29 \\
32 31 \\
33 31 \\
33 32 \\
34 32 \\
34 33 \\
34 45 \\
34 46 \\
35 28 \\
36 28 \\
36 35 \\
37 35 \\
37 36 \\
38 35 \\
38 37 \\
39 30 \\
39 38 \\
39 53 \\
40 33 \\
40 39 \\
40 46 \\
40 51 \\
41 41 \\
42 41 \\
43 41 \\
43 42 \\
44 42 \\
44 43 \\
45 42 \\
45 44 \\
46 44 \\
46 45 \\
47 41 \\
48 41 \\
48 47 \\
49 47 \\
49 48 \\
50 47 \\
50 49 \\
51 43 \\
51 50 \\
51 52 \\
52 50 \\
52 12 \\
53 25 \\
53 38 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 1.03353976445916373450 1.41045035631151671751 \\
2 2.13760446628604450225 0.94030023754101121902 \\
3 1.99273406182013346211 2.13152337613003428629 \\
4 3.09679876364701422986 1.66137325735952856576 \\
5 3.24166916811292571410 0.47015011877050560951 \\
6 4.20086346547389499761 1.19122313858902306727 \\
7 4.34573386993980648185 0.00000000000000000000 \\
8 1.71308428050803307485 2.39950002680734586491 \\
9 0.51676988222958186725 2.49347800546015418988 \\
10 1.19631439827845098556 3.48252767595598333727 \\
11 0.00000000000000000000 3.57650565460879166224 \\
12 2.39262879655690197112 3.38854969730317501231 \\
13 3.14799784439671359593 2.45612404259092054204 \\
14 4.34573386993980648185 2.38244627717804613454 \\
15 7.65792797542044834103 1.41045035631151671751 \\
16 6.55386327359356801736 0.94030023754101121902 \\
17 6.69873367805948127796 2.13152337613003428629 \\
18 5.59466897623260006611 1.66137325735952856576 \\
19 5.44979857176668769370 0.47015011877050560951 \\
20 4.49060427440571885427 1.19122313858902306727 \\
21 6.97838345937157900067 2.39950002680734586491 \\
22 8.17469785765003109645 2.49347800546015374579 \\
23 7.49515334160116353246 3.48252767595598333727 \\
24 8.69146773987961651642 3.57650565460878988588 \\
25 6.29883894332271054850 3.38854969730317456822 \\
26 5.54346989548290114413 2.45612404259092098613 \\
27 4.34573386993980825821 2.52980180800378606776 \\
28 7.65792797542045100556 5.74256095290606527470 \\
29 6.55386327359357245825 6.21271107167656655434 \\
30 6.69873367805948127796 5.02148793308754992637 \\
31 5.59466897623260450700 5.49163805185804676512 \\
32 5.44979857176669302277 6.68286119044707049852 \\
33 4.49060427440572329516 5.96178817062855337383 \\
34 4.34573386993980825821 7.15301130921758243630 \\
35 6.97838345937158255339 4.75351128241023523913 \\
36 8.17469785765003287281 4.65953330375742957870 \\
37 7.49515334160116619699 3.67048363326160265174 \\
38 6.29883894332271321304 3.76446161191440875626 \\
39 5.54346989548290203231 4.69688726662666056200 \\
40 4.34573386993980914639 4.77056503203953408132 \\
41 1.03353976445916706517 5.74256095290606438653 \\
42 2.13760446628604849906 6.21271107167656921888 \\
43 1.99273406182013279597 5.02148793308754992637 \\
44 3.09679876364701600622 5.49163805185805209419 \\
45 3.24166916811293059908 6.68286119044707316306 \\
46 4.20086346547389766215 5.96178817062855603837 \\
47 1.71308428050803618348 4.75351128241023612730 \\
48 0.51676988222958464281 4.65953330375742691416 \\
49 1.19631439827845209578 3.67048363326159776676 \\
50 2.39262879655690552383 3.76446161191440475946 \\
51 3.14799784439671492819 4.69688726662666056200 \\
52 3.57781762459795915632 3.57650565460877789548 \\
53 5.11365011528165780419 3.57650565460880054403 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 8 0.5 Blue {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,thick] (P51) -- (P52);
\draw[green,thick] (P27) -- (P52);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 4pt] (P27) -- (P52);
\draw[red,dash pattern=on 4pt off 4pt] (P27) -- (P53);
\end{tikzpicture}
\end{document}
$
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1776, vom Themenstarter, eingetragen 2019-06-23
|
Falscher Beitrag gelöscht.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1777, vom Themenstarter, eingetragen 2019-06-23
|
Hier ein alter fast 4/4 mit 112 von haribo.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
| Beitrag No.1778, eingetragen 2019-06-24
|
Der Fast 4/5 im vorvorhergehenden Beitrag enthält Knoten vom Grad 3. Zählt das als fast Grad 4? Dann wäre Grad 5 eigentlich auch fast Grad 4.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1779, vom Themenstarter, eingetragen 2019-06-24
|
\quoteon(2019-06-24 04:45 - StefanVogel in Beitrag No. 1778)
Der Fast 4/5 im vorvorhergehenden Beitrag enthält Knoten vom Grad 3. Zählt das als fast Grad 4? Dann wäre Grad 5 eigentlich auch fast Grad 4.
\quoteoff
Die 3er Knoten hatte ich übersehen. Ein 4/5 darf natürlich nur 4er und 5er Knoten enthalten. Beitrag wurde gelöscht.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1780, vom Themenstarter, eingetragen 2019-06-24
|
\quoteon(2019-06-23 23:26 - Slash in Beitrag No. 1777)
Hier ein alter fast 4/4 mit 112 von haribo.
\quoteoff
Neue Eingabe liefert windschiefe Version. Ist daher keine Verbessrung.
56 Knoten, 56×Grad 4, 0 Überschneidungen
112 Kanten, minimal 0.99999999999999522604, maximal 1.02627973011493112132
nicht passende Kanten:
|P25-P55|=1.00677456789881802912
|P49-P56|=1.00677456789881736299
|P26-P54|=1.02627973011493112132
|P50-P53|=1.02627973011493023314
$
%Eingabe war:
%
%Fast 4/4 mit 106
%
%
%
%
%
%
%P[1]=[106.26984095664051,-169.99950000000223];
%P[2]=[198.31473737668279,-169.99950000000223]; D=ab(1,2); A(2,1,Bew(1));
%N(3,1,2); N(4,3,2); N(5,4,2); N(6,4,5); N(7,6,5);
%M(8,1,3,blue_angle,2,green_angle,3,orange_angle,2);
%N(22,20,18); N(23,10,8); N(24,12,23); N(25,24,23); N(26,24,25);
%RA(16,26);
%A(7,21,ab(21,7,[1,26]));
%N(51,6,46); N(52,32,22); N(53,51,46); N(54,52,22); N(55,51,53); N(56,52,54);
%RA(3,55); RA(29,56);
%RA(26,54); RA(50,53);
%RA(49,56); RA(25,55);
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{47,55}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{4.49571407673251410841,4.83935963627885712413}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
3 55 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 4 \\
6 5 \\
7 6 \\
7 5 \\
7 44 \\
7 45 \\
8 1 \\
9 1 \\
9 8 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
12 11 \\
13 11 \\
13 12 \\
14 13 \\
14 12 \\
15 13 \\
15 14 \\
16 15 \\
16 14 \\
16 26 \\
17 15 \\
17 16 \\
18 17 \\
19 17 \\
19 18 \\
20 19 \\
20 18 \\
21 19 \\
21 20 \\
21 31 \\
21 32 \\
22 20 \\
22 18 \\
23 10 \\
23 8 \\
24 12 \\
24 23 \\
25 24 \\
25 23 \\
25 55 \\
26 24 \\
26 25 \\
26 54 \\
27 27 \\
28 27 \\
29 27 \\
29 28 \\
29 56 \\
30 28 \\
30 29 \\
31 28 \\
31 30 \\
32 30 \\
32 31 \\
33 27 \\
34 27 \\
34 33 \\
35 33 \\
35 34 \\
36 34 \\
36 35 \\
37 36 \\
38 36 \\
38 37 \\
39 37 \\
39 38 \\
40 38 \\
40 39 \\
41 39 \\
41 40 \\
41 50 \\
42 40 \\
42 41 \\
43 42 \\
44 42 \\
44 43 \\
45 43 \\
45 44 \\
46 43 \\
46 45 \\
47 33 \\
47 35 \\
48 37 \\
48 47 \\
49 47 \\
49 48 \\
49 56 \\
50 48 \\
50 49 \\
50 53 \\
51 6 \\
51 46 \\
52 32 \\
52 22 \\
53 51 \\
53 46 \\
54 52 \\
54 22 \\
55 51 \\
55 53 \\
56 52 \\
56 54 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 1.64981908190119486157 0.00000000000000000000 \\
2 2.84981908190119481716 0.00000000000000000000 \\
3 2.24981908190119517243 1.03923048454132649354 \\
4 3.44981908190119446189 1.03923048454132649354 \\
5 4.04981908190119455071 0.00000000000000037054 \\
6 4.64981908190119419544 1.03923048454132671559 \\
7 5.24981908190119472835 0.00000000000000000000 \\
8 1.99211141273633218773 1.15014606039904720980 \\
9 0.82490954095059743079 0.87150688422334010586 \\
10 1.16720187178573509001 2.02165294462238742668 \\
11 0.00000000000000000000 1.74301376844668021171 \\
12 1.05578429640296378444 2.31338164926475231553 \\
13 0.03393907391033650078 2.94253373045736221769 \\
14 1.08972337031330024359 3.51290161127543454356 \\
15 0.06787814782067290442 4.14205369246804533390 \\
16 1.12366244422363670274 4.71242157328611632749 \\
17 0.10181722173100948847 5.34157365447872667374 \\
18 1.26118409122413921430 5.03194732820510370885 \\
19 0.94964492071098127735 6.19080165262900372625 \\
20 2.10901179020411078113 5.88117532635538164953 \\
21 1.79747261969095251111 7.04002965077927989057 \\
22 2.42055096071726927320 4.72232100193148074396 \\
23 2.33440374357147018003 2.30029212079809441960 \\
24 1.70548938795247262412 3.32228367325649909247 \\
25 2.90501721264404677569 3.35594370579806877686 \\
26 2.27610285702504988592 4.37793525825647478200 \\
27 5.39747261969095148970 7.04002965077928077875 \\
28 4.19747261969094864753 7.04002965077927989057 \\
29 4.79747261969095184497 6.00079916623795384112 \\
30 3.59747261969094944689 6.00079916623795206476 \\
31 2.99747261969094669354 7.04002965077927811421 \\
32 2.39747261969095148970 6.00079916623795206476 \\
33 5.05518028885581482967 5.88988359038023290282 \\
34 6.22238216064154592289 6.16852276655593989574 \\
35 5.88008982980641103921 5.01837670615689379616 \\
36 7.04729170159214746150 5.29701588233259990091 \\
37 5.99150740518918034638 4.72664800151452801913 \\
38 7.01335262768180989212 4.09749592032191856106 \\
39 5.95756833127884721790 3.52712803950384667928 \\
40 6.97941355377147409911 2.89797595831123500076 \\
41 5.92362925736850964853 2.32760807749316400717 \\
42 6.94547447986113564156 1.69845599630055388296 \\
43 5.78610761036800713697 2.00808232257417618172 \\
44 6.09764678088116518495 0.84922799815027671944 \\
45 4.93827991138803579219 1.15885432442389912921 \\
46 4.62674074087487685603 2.31770864884779914661 \\
47 4.71288795802067639329 4.73973752998118680324 \\
48 5.34180231363967372715 3.71774597752278168628 \\
49 4.14227448894810112989 3.68408594498121111371 \\
50 4.77118884456709491104 2.66209439252280555266 \\
51 3.62294532639027622167 1.66014133985221845613 \\
52 3.42434637520186901938 5.37988831092706121240 \\
53 3.55537303934423265517 2.85823732349600234670 \\
54 3.49191866224791391815 4.18179232728327665569 \\
55 2.55157762485963246490 2.20067001450042276645 \\
56 4.49571407673251410841 4.83935963627885712413 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 8 0.5 Blue {} 1.5 \\
10 11 12 0.5 Green {} 1.5 \\
16 17 18 0.5 Orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,thick] (P16) -- (P26);
\draw[green,thick] (P3) -- (P55);
\draw[green,thick] (P29) -- (P56);
\draw[green,thick] (P26) -- (P54);
\draw[green,thick] (P50) -- (P53);
\draw[green,thick] (P49) -- (P56);
\draw[green,thick] (P25) -- (P55);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 2pt ] (P25) -- (P55);
\draw[red,dash pattern=on 4pt off 2pt ] (P26) -- (P54);
\draw[red,dash pattern=on 4pt off 2pt ] (P49) -- (P56);
\draw[red,dash pattern=on 4pt off 2pt ] (P50) -- (P53);
\end{tikzpicture}
\end{document}
$
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1781, eingetragen 2019-06-24
|
windschief macht nix... ich kann eure eingaben nicht nachbauen... versuch ihn doch noch windschiefer, also bei 55 und 56 überdrücken evtl kann man ihn dann auf zwo falsche drücken?
lg haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1782, vom Themenstarter, eingetragen 2019-06-24
|
Reduktion auf 3 falsche Kanten. Aber wie bei den anderen Graphen zuvor ist es auch hier eine "Verschlimmbesserung".
56 Knoten, 56×Grad 4, 0 Überschneidungen
112 Kanten, minimal 0.58834641218009509078, maximal 1.25853860335794265346
nicht passende Kanten:
|P16-P26|=1.09187613263489491366
|P53-P51|=1.25853860335794265346
|P54-P52|=0.58834641218009509078
$
%Eingabe war:
%<Streichholzgraph>
%<Bildtext>Fast 4/4 mit 106</Bildtext>
%<Ausrichten von="1" nach="2"/>
%<Winkel size="18" color="blue" id="blauerWinkel" value="131.97933665015012"/>
%<Winkel size="18" color="green" id="gruenerWinkel" value="136.46716914507365"/>
%<Winkel size="18" color="orange" id="orangerWinkel" value="133.14612839541888"/>
%<Winkel size="18" color="violet" id="vierterWinkel" value="82.72290576123427"/>
%<Winkel size="18" color="teal" id="fuenfterWinkel" value="126.17312875588951"/>
%<Feinjustieren Anzahl="5" Ziehfaktor="1" Zunehmen="1" Warten="0.5" Wiederholen="0"/>
%<Rechenweg>
%P[7]=[375.55389084100415,-169.9995182720321]; P[5]=[286.1364159975738,-169.9995182720321]; D=ab(7,5); A(5,7); N(6,5,7); N(4,5,6); N(2,5,4); N(3,2,4); N(1,2,3); M(9,1,2,blauerWinkel); N(8,9,1); N(10,9,8); N(11,9,10); M(13,11,9,gruenerWinkel); N(12,13,11); N(14,13,12); N(15,13,14); N(16,15,14); N(17,15,16); M(19,17,15,orangerWinkel); N(18,19,17); N(20,19,18); N(21,19,20); M(32,21,19,vierterWinkel); N(31,21,32); N(30,31,32); N(28,31,30); N(29,28,30); N(27,28,29); M(34,27,28,fuenfterWinkel); N(33,34,27); N(35,34,33); N(36,34,35); Q(42,36,7,3*D,2*D); A(42,36); A(42,7); H(44,7,42,2); A(44,7); L(45,7,44); H(38,36,42,3); A(38,36); L(37,38,36); H(40,36,42,3/2); A(38,40); L(39,40,38); A(39,37); A(40,42); L(41,42,40); A(41,39); A(44,42); L(43,44,42); A(45,43); N(22,20,18); N(23,10,8); N(24,12,23); N(46,45,43); N(47,35,33); N(48,37,47); Q(50,41,48,jam(1.0110854250657155)*D,D); N(51,6,46); N(52,32,22); N(55,3,51); N(56,29,52); N(25,24,23); N(26,24,25); N(49,50,48); N(53,55,46); N(54,56,22);
%RA(25,55);
%RA(49,47);
%RA(49,56);
%RA(53,50);
%RA(54,52);
%RA(53,51);
%RA(16,26);
%RA(54,26);
%</Rechenweg>
%</Streichholzgraph>
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{6,33,47,55}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{3.86328755346093677403,4.17555421257685832614}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 2 \\
1 3 \\
2 5 \\
2 4 \\
3 2 \\
3 4 \\
4 5 \\
4 6 \\
5 7 \\
6 5 \\
6 7 \\
7 7 \\
8 9 \\
8 1 \\
9 1 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
12 13 \\
12 11 \\
13 11 \\
14 13 \\
14 12 \\
15 13 \\
15 14 \\
16 15 \\
16 14 \\
16 26 \\
17 15 \\
17 16 \\
18 19 \\
18 17 \\
19 17 \\
20 19 \\
20 18 \\
21 19 \\
21 20 \\
22 20 \\
22 18 \\
23 10 \\
23 8 \\
24 12 \\
24 23 \\
25 24 \\
25 23 \\
25 55 \\
26 24 \\
26 25 \\
27 28 \\
27 29 \\
28 31 \\
28 30 \\
29 28 \\
29 30 \\
30 31 \\
30 32 \\
31 21 \\
31 32 \\
32 21 \\
33 34 \\
33 27 \\
34 27 \\
35 34 \\
35 33 \\
36 34 \\
36 35 \\
37 38 \\
37 36 \\
38 36 \\
38 40 \\
39 40 \\
39 38 \\
39 37 \\
40 42 \\
41 42 \\
41 40 \\
41 39 \\
42 42 \\
43 44 \\
43 42 \\
44 7 \\
44 42 \\
45 7 \\
45 44 \\
45 43 \\
46 45 \\
46 43 \\
47 35 \\
47 33 \\
48 37 \\
48 47 \\
49 50 \\
49 48 \\
49 47 \\
49 56 \\
50 41 \\
50 48 \\
51 6 \\
51 46 \\
52 32 \\
52 22 \\
53 55 \\
53 46 \\
53 50 \\
53 51 \\
54 56 \\
54 22 \\
54 52 \\
54 26 \\
55 3 \\
55 51 \\
56 29 \\
56 52 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 1.33772510501377861480 0.00000000000000063571 \\
2 2.33772510501377839276 0.00000000000000000000 \\
3 1.83772510501377905889 0.86602540378443904068 \\
4 2.83772510501377928094 0.86602540378443870761 \\
5 3.33772510501377928094 0.00000000000000000000 \\
6 3.83772510501377928094 0.86602540378443870761 \\
7 4.33772510501377883685 0.00000000000000000000 \\
8 1.64708507162596728968 0.95094500948146654107 \\
9 0.66886255250688930740 0.74338609474079475614 \\
10 0.97822251911907809330 1.69433110422226085312 \\
11 0.00000000000000000000 1.48677218948158884615 \\
12 0.87926222884227100973 1.96311023428939313007 \\
13 0.02711026682856666412 2.48640463865102390173 \\
14 0.90637249567083766344 2.96274268345882862974 \\
15 0.05422053365713336986 3.48603708782045940140 \\
16 0.93348276249940431715 3.96237513262826457350 \\
17 0.08133080048569968357 4.48566953698989401289 \\
18 1.03016622519860368001 4.16989851740468608909 \\
19 0.82921423758185619501 5.14949960900926217988 \\
20 1.77804966229476035799 4.83372858942405336791 \\
21 1.57709767467801253993 5.81332968102863034687 \\
22 1.97900164991150839811 3.85412749781947727712 \\
23 1.95644503823815618659 1.90189001896293286009 \\
24 1.46563107320831331748 2.77315441725525646532 \\
25 2.46557515805735016912 2.76257958035710515787 \\
26 1.97476119302750730000 3.63384397864942876311 \\
27 4.56859195728259681601 6.03907723282949682186 \\
28 3.57142719641440198330 5.96382804889587347930 \\
29 4.13517728174906462613 5.13788262619219437966 \\
30 3.13801252088086934933 5.06263344225857103709 \\
31 2.57426243554620715059 5.88857886496225191308 \\
32 2.14084776001267451662 4.98738425832494947088 \\
33 4.23459867991816363286 5.09650177660577163863 \\
34 5.21788960867383355691 5.27854284182681254833 \\
35 4.88389633130940037375 4.33596738560308736510 \\
36 5.86718726006507118598 4.51800845082412916298 \\
37 4.96416207705079948198 4.08842083596303851323 \\
38 5.78770845617880436151 3.52117189464613167260 \\
39 4.88468327316453354570 3.09158427978504102285 \\
40 5.70822965229253931341 2.52433533846813551449 \\
41 4.80520446927826672123 2.09474772360704486474 \\
42 5.62875084840627248894 1.52749878229013846820 \\
43 4.64456803770162185430 1.70465463207639844612 \\
44 4.98323797671002655107 0.76374939114506923410 \\
45 3.99905516600537502825 0.94090524093132965611 \\
46 3.66038522699697033147 1.88181048186265931221 \\
47 3.90060540255373000562 4.15392632038204556721 \\
48 4.38036096327425994446 3.27652413098556882787 \\
49 3.38063059756056150107 3.29974472249298500515 \\
50 3.86038615828108655492 2.42234253309650604535 \\
51 2.90497750141451094308 1.22655544134001170953 \\
52 2.87167825747920657520 4.30482526162735901210 \\
53 2.86231175467843890203 2.48437063054612661261 \\
54 2.97061094589323859694 3.72485644876897614708 \\
55 2.10690402909597995773 1.82911559002347923197 \\
56 3.86328755346093677403 4.17555421257685832614 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
2 1 9 0.5 Blue {} 1.5 \\
9 11 13 0.5 Green {} 1.5 \\
15 17 19 0.5 Orange {} 1.5 \\
19 21 32 0.5 Violet {} 1.5 \\
28 27 34 0.5 Teal {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,thick] (P25) -- (P55);
\draw[green,thick] (P49) -- (P47);
\draw[green,thick] (P49) -- (P56);
\draw[green,thick] (P53) -- (P50);
\draw[green,thick] (P54) -- (P52);
\draw[green,thick] (P53) -- (P51);
\draw[green,thick] (P16) -- (P26);
\draw[green,thick] (P54) -- (P26);
%nicht passende Kanten:
\draw[res,dash pattern=on 4pt off 4pt] (P16) -- (P26);
\draw[res,dash pattern=on 4pt off 4pt] (P53) -- (P51);
\draw[res,dash pattern=on 4pt off 4pt] (P54) -- (P52);
\end{tikzpicture}
\end{document}
$
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1783, eingetragen 2019-06-25
|
hab mir mein original von vor drei jahren nochmal angeschaut
das viertelgebilde ist starr und die abstandsdifferenz von meinetwegen
17-54 und 17-26 ist einfach grösser als 1
da ging also damals schon nichts zu verziehen und heute eben auch noch nicht
haribo
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1784, eingetragen 2019-06-25
|
slash ist dein 4-4 114 eigentlich beweglich?
hast du an dem schonmal in dieser richtung gezogen
fals er ausreichend beweglich wäre, gäbe das ggfls. einen ziemlich schrägen 4/5er oder nen neuen 4/7er???
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-4-114-test.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1785, eingetragen 2019-06-25
|
der geht natürlich gar nicht aber
als inspiration nutzt er evtl. für die 112er suche:
ein sieben-eck 7 x 16 = 112
in winkeltechnik
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st112-7-16.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1786, vom Themenstarter, eingetragen 2019-06-25
|
Der Triplet-Kite ist starr. Man könnte versuchen ihn zu öffnen.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1787, vom Themenstarter, eingetragen 2019-06-26
|
56 Knoten, 56×Grad 4, 0 Überschneidungen
112 Kanten, minimal 0.82445789934105262464, maximal 1.14374756098359675605
nicht passende Kanten:
|P45-P52|=0.84602515000917666299
|P54-P56|=0.82445789934105262464
|P55-P56|=1.14374756098359675605
$
%Eingabe war:
%
%Fast 4/4 mit 102
%
%
%
%
%
%
%
%P[1]=[114.68486494558539,-169.9995001579748];
%P[2]=[196.40004493946512,-169.9995001579748]; D=ab(1,2); A(2,1); L(3,1,2);
%L(4,3,2); L(5,4,2); L(6,4,5); L(7,6,5);
%M(8,1,3,blauerWinkel,3,gruenerWinkel,3,orange_angle,3,fourth_angle,3,"zumachen",7,3,3);
%N(43,8,3); N(44,20,18); N(45,32,30); N(46,6,42);
%N(47,12,43); N(48,14,47); N(49,43,46); N(50,46,38); N(51,48,47); N(52,50,36);
%N(53,50,52); N(54,45,26); N(55,44,24); N(56,51,53);
%RA(48,44);
%RA(54,55);
%RA(49,51);
%RA(49,53);
%RA(45,52);
%RA(54,56);
%RA(55,56);
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{3,12,26,32,38}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{3.42747514404092168405,3.90141323301199571816}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 4 \\
6 5 \\
7 6 \\
7 5 \\
7 41 \\
8 1 \\
9 1 \\
9 8 \\
10 9 \\
10 8 \\
11 9 \\
11 10 \\
12 11 \\
12 10 \\
13 11 \\
13 12 \\
14 13 \\
15 13 \\
15 14 \\
16 15 \\
16 14 \\
17 15 \\
17 16 \\
18 17 \\
18 16 \\
19 17 \\
19 18 \\
20 19 \\
21 19 \\
21 20 \\
22 21 \\
22 20 \\
23 21 \\
23 22 \\
24 23 \\
24 22 \\
25 23 \\
25 24 \\
26 25 \\
27 25 \\
27 26 \\
28 27 \\
28 26 \\
29 27 \\
29 28 \\
30 29 \\
30 28 \\
31 29 \\
31 30 \\
31 33 \\
32 33 \\
32 31 \\
33 35 \\
34 35 \\
34 33 \\
34 32 \\
35 37 \\
36 37 \\
36 35 \\
36 34 \\
37 37 \\
38 39 \\
38 37 \\
38 40 \\
39 37 \\
40 41 \\
40 39 \\
40 42 \\
41 39 \\
42 7 \\
42 41 \\
43 8 \\
43 3 \\
44 20 \\
44 18 \\
45 32 \\
45 30 \\
45 52 \\
46 6 \\
46 42 \\
47 12 \\
47 43 \\
48 14 \\
48 47 \\
48 44 \\
49 43 \\
49 46 \\
49 51 \\
49 53 \\
50 46 \\
50 38 \\
51 48 \\
51 47 \\
52 50 \\
52 36 \\
53 50 \\
53 52 \\
54 45 \\
54 26 \\
54 55 \\
54 56 \\
55 44 \\
55 24 \\
55 56 \\
56 51 \\
56 53 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 1.68635274272972801590 0.00000000000000000000 \\
2 2.68635274272972779386 0.00000000000000000000 \\
3 2.18635274272972779386 0.86602540378443848557 \\
4 3.18635274272972779386 0.86602540378443870761 \\
5 3.68635274272972734977 0.00000000000000069563 \\
6 4.18635274272972601750 0.86602540378443881863 \\
7 4.68635274272972601750 0.00000000000000104344 \\
8 2.12154660945936868188 0.90033676941514717562 \\
9 1.12423516181981852924 0.82705732886662175485 \\
10 1.55942902854945919522 1.72739409828176881945 \\
11 0.56211758090990926462 1.65411465773324328765 \\
12 0.99731144763954981958 2.55445142714839024123 \\
13 0.00000000000000000000 2.48117198659986470943 \\
14 0.98018844175873498514 2.67923919398812282466 \\
15 0.31856298762449514195 3.42907368135294232658 \\
16 1.29875142938323007158 3.62714088874120044181 \\
17 0.63712597524899028389 4.37697537610601905556 \\
18 1.61731441700772515802 4.57504258349427672670 \\
19 0.95568896287348548135 5.32487707085909622862 \\
20 1.77811763083976193123 4.75600882064010566097 \\
21 1.85955765295267250181 5.75268706500899273948 \\
22 2.68198632091894850760 5.18381881479000217183 \\
23 2.76342634303185930023 6.18049705915889013852 \\
24 3.58585501099813575010 5.61162880893989868270 \\
25 3.66729503311104609864 6.60830705330878664938 \\
26 3.70825460825792818653 5.60914624883145584988 \\
27 4.55307345982755151681 6.14419868367553867472 \\
28 4.59403303497443360470 5.14503787919820787522 \\
29 5.43885188654405737907 5.68009031404229070006 \\
30 5.47981146169093857878 4.68092950956495990056 \\
31 6.32463031326056235315 5.21598194440904272540 \\
32 5.52485238701769265646 4.61568596016905630108 \\
33 6.44461292228073823196 4.22320595077668681228 \\
34 5.64483499603786675891 3.62290996653670083205 \\
35 6.56459553130091322259 3.23042995714433089915 \\
36 5.76481760505804174954 2.63013397290434580711 \\
37 6.68457814032108732505 2.23765396351197454194 \\
38 5.70558551496242571943 2.44154962186043844596 \\
39 6.01850300779063474010 1.49176930900798354607 \\
40 5.03951038243197135813 1.69566496735644811622 \\
41 5.35242787526018037880 0.74588465450399232815 \\
42 4.37343524990151699683 0.94978031285245601012 \\
43 2.62154660945937179051 1.76636217319958443994 \\
44 2.43974308497400071971 4.00617433327528527087 \\
45 4.68003353544806799391 4.08063352532497525260 \\
46 3.87343524990151477638 1.81580571663689327444 \\
47 1.99728783775531026912 2.54757980353733870515 \\
48 1.59894956636296314834 3.46481838839089606452 \\
49 3.21672938957766696433 2.56995252795171591487 \\
50 4.70843977606882990727 2.36604879135941770230 \\
51 2.59247061787360610907 3.35117015828947018008 \\
52 5.03319714268856888140 3.31184615487139710766 \\
53 4.05173391574497898660 3.12019560267423790023 \\
54 3.83628763368160230485 4.61737634386314077517 \\
55 2.87848091511476367188 4.90478944354406642958 \\
56 3.42747514404092168405 3.90141323301199571816 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 8 0.5 Blue {} 1.5 \\
12 13 14 0.5 Green {} 1.5 \\
18 19 20 0.5 Orange {} 1.5 \\
24 25 26 0.5 Violet {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green,very thick] (P48) -- (P44);
\draw[green,very thick] (P54) -- (P55);
\draw[green,very thick] (P49) -- (P51);
\draw[green,very thick] (P49) -- (P53);
\draw[green,very thick] (P45) -- (P52);
\draw[green,very thick] (P54) -- (P56);
\draw[green,very thick] (P55) -- (P56);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 4pt] (P45) -- (P52);
\draw[red,dash pattern=on 4pt off 4pt] (P54) -- (P56);
\draw[red,dash pattern=on 4pt off 4pt] (P55) -- (P56);
\end{tikzpicture}
\end{document}
$
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1788, eingetragen 2019-06-26
|
oben eine leiter verkürzen?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1789, vom Themenstarter, eingetragen 2019-06-26
|
Mit vertikaler Spiegelsymmetrie gibt es Überschneidung bei P21,P26. Minimale 4er mit nur einer Symmetrieachse sind eh schwierig, gab es aber schon. Wir hatten zwei bewegliche mit 130 und vier mit 146 Kanten.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1790, eingetragen 2019-06-26
|
dranbleiben und eine unsymetrische füllung erhoffen, dein werkzeug taugt jetzt für sowas, das ist also ne chance
haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1791, vom Themenstarter, eingetragen 2019-06-26
|
Fast 4/4 mit 132. Besonderheit: sehr langes Rahmenelement.
66 Knoten, 66×Grad 4, 0 Überschneidungen
132 Kanten, minimal 0.99999999999999733546, maximal 1.08138059046566148425
nicht passende Kanten:
|P28-P66|=1.04596288753537547400
|P31-P65|=1.08138059046565837562
|P57-P66|=1.04596288753537480787
|P60-P65|=1.08138059046566148425
$
%Eingabe war:
%<Streichholzgraph>
%<Bildtext>Fast 4/4 mit 132</Bildtext>
%<Ausrichten von="1" nach="32"/>
%<Winkel size="18" color="blue" id="blauerWinkel" value="6.17994896692306"/>
%<Winkel size="18" color="green" id="gruenerWinkel" value="-0.9120955736210742"/>
%<Winkel size="18" color="orange" id="orange_angle" value="10.500550627501253"/>
%<Feinjustieren Anzahl="3"/>
%<Rechenweg>
%P[1]=[-153.78706098710444,2.0359929743692504];
%P[2]=[-102.28183528314241,-83.98175351281537]; D=ab(1,2); A(2,1); L(3,1,2);
%L(4,3,2); L(5,4,2); L(6,3,4);
%M(7,1,3,blauerWinkel,3); N(13,7,6); M(14,5,4,gruenerWinkel);
%L(15,14,5); L(16,14,15); L(17,16,15); N(18,6,14); N(19,16,17); N(20,19,17);
%M(21,12,11,orange_angle);
%N(22,12,21); N(23,22,21); N(24,22,23); N(25,24,23); N(26,24,25); N(27,13,18);
%N(28,27,18); N(29,21,11); N(30,27,28); N(31,29,25);
%RA(13,29);
%A(20,26,ab(20,26,[1,31],"gespiegelt"));
%N(61,31,30); N(62,59,60); N(63,61,30); N(64,59,62); N(65,61,62); N(66,64,63);
%RA(19,50);
%RA(63,64);
%RA(31,65); A(60,65);
%RA(28,66);
%RA(57,66);
%</Rechenweg>
%</Streichholzgraph>
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{3,6,11,14,16,34,37,42,45,47}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{4.02744476924632177628,1.23954501971478769917}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
7 1 \\
8 1 \\
8 7 \\
9 8 \\
9 7 \\
10 8 \\
10 9 \\
11 10 \\
11 9 \\
12 10 \\
12 11 \\
13 7 \\
13 6 \\
13 29 \\
14 5 \\
15 14 \\
15 5 \\
16 14 \\
16 15 \\
17 16 \\
17 15 \\
18 6 \\
18 14 \\
19 16 \\
19 17 \\
19 50 \\
20 19 \\
20 17 \\
20 48 \\
20 50 \\
21 12 \\
22 12 \\
22 21 \\
23 22 \\
23 21 \\
24 22 \\
24 23 \\
25 24 \\
25 23 \\
26 24 \\
26 25 \\
26 54 \\
26 55 \\
27 13 \\
27 18 \\
28 27 \\
28 18 \\
28 66 \\
29 21 \\
29 11 \\
30 27 \\
30 28 \\
31 29 \\
31 25 \\
31 65 \\
32 32 \\
33 32 \\
34 32 \\
34 33 \\
35 33 \\
35 34 \\
36 33 \\
36 35 \\
37 34 \\
37 35 \\
38 32 \\
39 32 \\
39 38 \\
40 38 \\
40 39 \\
41 39 \\
41 40 \\
42 40 \\
42 41 \\
43 41 \\
43 42 \\
44 37 \\
44 38 \\
44 58 \\
45 36 \\
46 36 \\
46 45 \\
47 45 \\
47 46 \\
48 46 \\
48 47 \\
49 37 \\
49 45 \\
50 47 \\
50 48 \\
51 43 \\
52 43 \\
52 51 \\
53 51 \\
53 52 \\
54 52 \\
54 53 \\
55 53 \\
55 54 \\
56 44 \\
56 49 \\
57 49 \\
57 56 \\
57 66 \\
58 42 \\
58 51 \\
59 56 \\
59 57 \\
60 55 \\
60 58 \\
60 65 \\
61 31 \\
61 30 \\
62 59 \\
62 60 \\
63 61 \\
63 30 \\
63 64 \\
64 59 \\
64 62 \\
65 61 \\
65 62 \\
66 64 \\
66 63 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.00000000000000000000 1.71591294830139040606 \\
2 0.51372238462316111018 0.85795647415069520303 \\
3 0.99987329426740978455 1.73183134680242067915 \\
4 1.51359567889057111678 0.87387487265172547612 \\
5 1.02744476924632244241 0.00000000000000000000 \\
6 1.99974658853481934706 1.74774974530345095225 \\
7 0.99234909025645812175 1.83937663959231167965 \\
8 0.38925185202529172246 2.63704431553132057076 \\
9 1.38160094228174989972 2.76050800682224162230 \\
10 0.77850370405058333390 3.55817568276125051341 \\
11 1.77085279430704112258 3.68163937405217112087 \\
12 1.16775555607587500084 4.47930704999118045606 \\
13 1.57418806159360391561 2.65268064882461107601 \\
14 1.52744476924632199832 0.86602540378443870761 \\
15 2.02744476924632222037 0.00000000000000028348 \\
16 2.52744476924632177628 0.86602540378443892966 \\
17 3.02744476924632177628 0.00000000000000056697 \\
18 2.52693343971991613017 0.89800035640249808999 \\
19 3.52744476924632222037 0.86602540378443915170 \\
20 4.02744476924632177628 0.00000000000000028348 \\
21 1.90612374457218369805 3.80490923103216260870 \\
22 2.12098529379935696326 4.78155374909577179920 \\
23 2.85935348229566566047 4.10715593013675395184 \\
24 3.07421503152283914773 5.08380044820036314235 \\
25 3.81258322001914784494 4.40940262924134529499 \\
26 4.02744476924632177628 5.38604714730495448549 \\
27 2.10137491277870047668 1.80293125992365799171 \\
28 3.09784732736823809063 1.71901030329125537044 \\
29 2.50922098280334848752 3.00724155509315327350 \\
30 2.67228880042702243713 2.62394120681241460602 \\
31 2.94887637756132159339 3.90540809525160925730 \\
32 8.05488953849264355256 1.71591294830139329264 \\
33 7.54116715386948222033 0.85795647415069697939 \\
34 7.05501624422523310187 1.73183134680242112324 \\
35 6.54129385960207265782 0.87387487265172592021 \\
36 7.02744476924632177628 0.00000000000000113393 \\
37 6.05514294995782531572 1.74774974530345139634 \\
38 7.06254044823618709614 1.83937663959231256783 \\
39 7.66563768646735255174 2.63704431553132279120 \\
40 6.67328859621089431897 2.76050800682224251048 \\
41 7.27638583444205888640 3.55817568276125273385 \\
42 6.28403674418560154180 3.68163937405217112087 \\
43 6.88713398241676877376 4.47930704999118045606 \\
44 6.48070147689903830468 2.65268064882461285237 \\
45 6.52744476924632355264 0.86602540378443970681 \\
46 6.02744476924632266446 0.00000000000000141742 \\
47 5.52744476924632266446 0.86602540378443915170 \\
48 5.02744476924632177628 0.00000000000000085045 \\
49 5.52795609877272653421 0.89800035640249886715 \\
50 4.52744476924632177628 0.86602540378443915170 \\
51 6.14876579392046185291 3.80490923103216260870 \\
52 5.93390424469328703339 4.78155374909577091103 \\
53 5.19553605619697833617 4.10715593013675484002 \\
54 4.98067450696980351665 5.08380044820036314235 \\
55 4.24230631847349481944 4.40940262924134529499 \\
56 5.95351462571394218770 1.80293125992365799171 \\
57 4.95704221112440546193 1.71901030329125559248 \\
58 5.54566855568929373277 3.00724155509315327350 \\
59 5.38260073806562022725 2.62394120681241593829 \\
60 5.10601316093132417961 3.90540809525160881321 \\
61 3.54878905176553249845 3.10534260835122344346 \\
62 4.50610048672711105411 3.10534260835122388755 \\
63 3.52744476924631866765 2.10557042349922385327 \\
64 4.52744476924632532899 2.10557042349922474145 \\
65 4.02744476924632088810 3.98334528723264424954 \\
66 4.02744476924632177628 1.23954501971478769917 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 7 0.5 Blue {} 1.5 \\
4 5 14 0.45 Green {} 1.5 \\
11 12 21 0.5 Orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green, thick] (P13) -- (P29);
\draw[green, thick] (P19) -- (P50);
\draw[green, thick] (P63) -- (P64);
\draw[green, thick] (P31) -- (P65);
\draw[green, thick] (P28) -- (P66);
\draw[green, thick] (P57) -- (P66);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 4pt] (P28) -- (P66);
\draw[red,dash pattern=on 4pt off 4pt] (P31) -- (P65);
\draw[red,dash pattern=on 4pt off 4pt] (P57) -- (P66);
\draw[red,dash pattern=on 4pt off 4pt] (P60) -- (P65);
\end{tikzpicture}
\end{document}
$
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1792, vom Themenstarter, eingetragen 2019-06-27
|
So wird 'n fast 4/5 mit 129 draus.
64 Knoten, 62×Grad 4, 2×Grad 5, 0 Überschneidungen
129 Kanten, minimal 0.99999999999999478195, maximal 1.05842414383679339629
nicht passende Kanten:
|P28-P64|=1.05842414383679339629
|P57-P64|=1.05842414383679339629
|P61-P62|=1.05330855568356618335
$
%Eingabe war:
%<Streichholzgraph>
%<Bildtext>Fast 4/4 mit 132</Bildtext>
%<Ausrichten von="1" nach="32"/>
%<Winkel size="18" color="blue" id="blauerWinkel" value="2.62592653574885"/>
%<Winkel size="18" color="green" id="gruenerWinkel" value="-10.713167314886867"/>
%<Winkel size="18" color="orange" id="orange_angle" value="4.986773934812393"/>
%<Feinjustieren Anzahl="3"/>
%<Rechenweg>
%P[1]=[-163.49489886484145,29.746326183058017];
%P[2]=[-106.74664415570538,-53.34789844813608]; D=ab(1,2); A(2,1); L(3,1,2);
%L(4,3,2); L(5,4,2); L(6,3,4);
%M(7,1,3,blauerWinkel,3); N(13,7,6); M(14,5,4,gruenerWinkel);
%L(15,14,5); L(16,14,15); L(17,16,15); N(18,6,14); N(19,16,17); N(20,19,17);
%M(21,12,11,orange_angle);
%N(22,12,21); N(23,22,21); N(24,22,23); N(25,24,23); N(26,24,25); N(27,13,18);
%N(28,27,18); N(29,21,11); N(30,27,28); N(31,29,25);
%RA(13,29);
%RA(30,31);
%A(20,26,ab(20,26,[1,31],"gespiegelt"));
%N(61,31,30); N(62,59,60); N(63,62,61); N(64,19,50);
%RA(28,63); A(57,63);
%RA(28,64); A(57,64);
%RA(61,62);
%</Rechenweg>
%</Streichholzgraph>
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{3,11,13,30,34,42,44,59}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{4.10934238451810518455,1.83248066903172079911}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
7 1 \\
8 1 \\
8 7 \\
9 8 \\
9 7 \\
10 8 \\
10 9 \\
11 10 \\
11 9 \\
12 10 \\
12 11 \\
13 7 \\
13 6 \\
13 29 \\
14 5 \\
15 14 \\
15 5 \\
16 14 \\
16 15 \\
17 16 \\
17 15 \\
18 6 \\
18 14 \\
19 16 \\
19 17 \\
20 19 \\
20 17 \\
20 48 \\
20 50 \\
21 12 \\
22 12 \\
22 21 \\
23 22 \\
23 21 \\
24 22 \\
24 23 \\
25 24 \\
25 23 \\
26 24 \\
26 25 \\
26 54 \\
26 55 \\
27 13 \\
27 18 \\
28 27 \\
28 18 \\
28 63 \\
28 64 \\
29 21 \\
29 11 \\
30 27 \\
30 28 \\
30 31 \\
31 29 \\
31 25 \\
32 32 \\
33 32 \\
34 32 \\
34 33 \\
35 33 \\
35 34 \\
36 33 \\
36 35 \\
37 34 \\
37 35 \\
38 32 \\
39 32 \\
39 38 \\
40 38 \\
40 39 \\
41 39 \\
41 40 \\
42 40 \\
42 41 \\
43 41 \\
43 42 \\
44 37 \\
44 38 \\
44 58 \\
45 36 \\
46 36 \\
46 45 \\
47 45 \\
47 46 \\
48 46 \\
48 47 \\
49 37 \\
49 45 \\
50 47 \\
50 48 \\
51 43 \\
52 43 \\
52 51 \\
53 51 \\
53 52 \\
54 52 \\
54 53 \\
55 53 \\
55 54 \\
56 44 \\
56 49 \\
57 49 \\
57 56 \\
57 63 \\
57 64 \\
58 42 \\
58 51 \\
59 56 \\
59 57 \\
59 60 \\
60 55 \\
60 58 \\
61 31 \\
61 30 \\
61 62 \\
62 59 \\
62 60 \\
63 62 \\
63 61 \\
64 19 \\
64 50 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.00000000000000000000 1.98508855107520498784 \\
2 0.56396828343922833504 1.15929210201853205575 \\
3 0.99714484495767496952 2.06060118693394311862 \\
4 1.56111312839690352661 1.23480473787726996449 \\
5 1.12793656687845667008 0.33349565296185912366 \\
6 1.99428968991534993904 2.13611382279268102735 \\
7 0.99263817064798320899 2.10620610625456450293 \\
8 0.39142820569440250900 2.90529720121215095929 \\
9 1.38406637634238549595 3.02641475639151069643 \\
10 0.78285641138880490697 3.82550585134909626461 \\
11 1.77549458203678778290 3.94662340652845644584 \\
12 1.17428461708320686085 4.74571450148604245811 \\
13 1.46763541207356373874 2.98619339061615596265 \\
14 1.72110943899061430429 1.13857076982376659302 \\
15 2.12173850609167313763 0.22233043530790624898 \\
16 2.71491137820383032775 1.02740555216981355180 \\
17 3.11554044530488871700 0.11116521765395341592 \\
18 2.68320753048403126684 1.41127438612674938057 \\
19 3.70871331741704723939 0.91624033451586051058 \\
20 4.10934238451810518455 0.00000000000000000000 \\
21 1.84268049341227824200 4.00190877919944121288 \\
22 2.15263720622817267270 4.95265944902847898845 \\
23 2.82103308255724405385 4.20885372674187774322 \\
24 3.13098979537313848454 5.15960439657091551879 \\
25 3.79938567170220942160 4.41579867428431427356 \\
26 4.10934238451810429638 5.36654934411335382549 \\
27 2.15655325264224595472 2.26135395395022564813 \\
28 3.15607089253636585724 2.29241015366122136143 \\
29 2.44389045836585427907 3.20281768424185075972 \\
30 2.62941661469458054512 3.14248972148469762899 \\
31 2.84441311108558503307 4.11910454143142690242 \\
32 8.21868476903620859275 1.98508855107520543193 \\
33 7.65471648559698181202 1.15929210201853249984 \\
34 7.22153992407853362323 2.06060118693394356271 \\
35 6.65757164063930595432 1.23480473787727129675 \\
36 7.09074820215775325494 0.33349565296186023389 \\
37 6.22439507912085865371 2.13611382279268102735 \\
38 7.22604659838822627194 2.10620610625456494702 \\
39 7.82725656334180719398 2.90529720121215140338 \\
40 6.83461839269382576134 3.02641475639151158461 \\
41 7.43582835764740224249 3.82550585134909670870 \\
42 6.44319018699942258621 3.94662340652845644584 \\
43 7.04440015195300173190 4.74571450148604334629 \\
44 6.75104935696264618628 2.98619339061615640674 \\
45 6.49757533004559473255 1.13857076982376703711 \\
46 6.09694626294453811965 0.22233043530790683184 \\
47 5.50377339083237870909 1.02740555216981443998 \\
48 5.10314432373132209619 0.11116521765395397103 \\
49 5.53547723855217821409 1.41127438612674960261 \\
50 4.50997145161916268563 0.91624033451586051058 \\
51 6.37600427562392990666 4.00190877919944210106 \\
52 6.06604756280803592006 4.95265944902847987663 \\
53 5.39765168647896587117 4.20885372674187685504 \\
54 5.08769497366307099639 5.15960439657091551879 \\
55 4.41929909733400005933 4.41579867428431516174 \\
56 6.06213151639396308212 2.26135395395022698040 \\
57 5.06261387649984495596 2.29241015366122136143 \\
58 5.77479431067035431369 3.20281768424185164790 \\
59 5.58926815434162893581 3.14248972148469762899 \\
60 5.37427165795062578013 4.11910454143142690242 \\
61 3.58268810667632164879 3.44460470385880146438 \\
62 4.63599666235988738805 3.44460470385880235256 \\
63 4.10934238451810518455 2.59452513603532519681 \\
64 4.10934238451810518455 1.83248066903172079911 \\
};
% ===================================
% Zeichnung der Dreiecke =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \PunktII},
visualization depends on={value \thisrowno{2} \as \PunktIII},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\fill[black!10] (p-\PunktI) -- (p-\PunktII) -- (p-\PunktIII) ;
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Punkt2 Punkt3
};
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 7 0.5 Blue {} 1.5 \\
4 5 14 0.45 Green {} 1.5 \\
11 12 21 0.5 Orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einzustellende Kanten, Abstände und Winkel:
\draw[green, thick] (P13) -- (P29);
\draw[green, thick] (P30) -- (P31);
\draw[green, thick] (P28) -- (P63);
\draw[green, thick] (P28) -- (P64);
\draw[green, thick] (P61) -- (P62);
%nicht passende Kanten:
\draw[red,dash pattern=on 4pt off 4pt ] (P28) -- (P64);
\draw[red,dash pattern=on 4pt off 4pt ] (P57) -- (P64);
\draw[red,dash pattern=on 4pt off 4pt ] (P61) -- (P62);
\end{tikzpicture}
\end{document}
$
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4165
Wohnort: Raun
| Beitrag No.1793, eingetragen 2019-06-30
|
\quoteon(2019-06-08 07:40 - StefanVogel in Beitrag No. 1758)
\sourceon xml
... https://svgwg.org/svg2-draft/linking.html#XLinkRefAttrs ist diese Variante inzwischen "deprecated" und href soll ohne dem xlink: davor verwendet werden. Diese Aktualisierung können wir mitmachen, die obige Version wird vom aktuellen Streichholzgraph-1554.htm automatisch umgewandelt in
\sourceon xml
... SMIL animate verwendet neben xlink:href auch targetElement, doch ob und wie man das in Gang bringen kann weiß ich nicht.
\sourceon xml
...
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1794, vom Themenstarter, eingetragen 2019-07-04
|
So, neuer Artikel ist fertig und arXiv-iert. Leider unter der Idioten-Kategorie General Mathematics (math.GM):
Approximate Solutions of 4-regular Matchstick Graphs with 51 - 62 Vertices
Da es wieder nur ein Catalog-Paper ist und nicht veröffentlicht werden soll, läuft es nur unter meinem Namen.
Ich war mal so frei und habe ein Preisgeld von 10000 Dollar ausgeschrieben. Das ist zwar noch nicht notariell beglaubigt, aber Team-Mitglieder (also wir drei) und deren Angehörige sind verständlicherweise davon ausgeschlossen.
Gruß, Slash ...derbereits anfängt zu sparen ;-)
...Sascha Kurz wartet noch auf ein Steigen des Preisgeldes. 8-)
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1795, eingetragen 2019-07-04
|
oh maaaaaaan mach kein quatsch. ich finde, wenn, dann solltest du auch preise ausloben für 53, 55, 56, 58, 59, 61, and 62,
dollar, so in höhe eines kugelschreibers,
(ein physiker hat es mal bei einer ähnlichen preisauslobung offen gelassen ob er damit einen dollarstapel in höhe des durchmessers oder der länge eines kulis meinte...)
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1796, vom Themenstarter, eingetragen 2019-07-05
|
\quoteon(2019-07-04 18:19 - haribo in Beitrag No. 1795)
ich finde, wenn, dann solltest du auch preise ausloben für 53, 55, 56, 58, 59, 61, and 62,
\quoteoff
Je eine Packung Streichhölzer mit unseren Autogrammen als Trostpreis. 8-)
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1797, vom Themenstarter, eingetragen 2019-07-16
|
Info
Combinatorics 2020
Combinatorics 2020 is the 21st edition in a cycle of international conferences organized in Italy since 1981. Its aim is to present recent results in pure and applied combinatorics, together with their links to geometry, algebra, graph theory and their applications in coding, cryptography and information theory.
The conference will take place in Mantua (Italy) on June 1-5, 2020 in the rooms of Fondazione UniverMantova located in Via Angelo Scarsellini, 2, Mantua (IT).
The main topics of interest include but are not limited to:
Incidence and Galois Geometries
Design Theory
Graph Theory
Finite Fields and their Applications
Algebraic Combinatorics
Algebraic Curves over Finite Fields
Coding Theory and Cryptography
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8997
Wohnort: Westerburg
| Beitrag No.1798, vom Themenstarter, eingetragen 2019-10-18
|
Hurra!
Wir, das Streichholzteam, sind wieder in Geombinatorics und auch wieder auf dem Cover. :-) ...auch wenn das Coverbild keinen neuen Graphen zeigt.
Zum nachlesen im arXiv: 4-Regular Planar Unit Triangle Graphs without Additional Triangles
Haribo, du bist der eigentliche Held dieses Artikels, da von dir die Idee zur Lösung stammt.
Stefan, deine Programmierung hat die kleinste Lösung möglich gemacht und du hast sie auch gefunden.
...bitte korrigiert mich, wenn ich das nicht mehr richtig in Erinnerung habe.
Nun aber lassen wir die Sektkorken knallen und das Konfetti regnen!
Slash 8-)
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3871
| Beitrag No.1799, eingetragen 2019-10-19
|
Gratulation an uns alle insbesondere auch für all die Transliteration und Mühen der öffentlichen Bemühungen durch theONEandonly slash und mal wieder großen Dank an den ganzen Matheplanet en. haribo
|
Profil
|
|
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2001-2022 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]
|
Home / Seite ohne Frame
Wie unterstütze ich den Matheplaneten mit Geld?
