Matroids Matheplanet Forum Index
Moderiert von matroid
Kombinatorik & Graphentheorie » Graphentheorie » Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5
Thema eröffnet 2016-02-17 22:35 von Slash
Seite 5   [1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61]   61 Seiten
Autor
Kein bestimmter Bereich Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.160, vom Themenstarter, eingetragen 2016-04-05

\quoteon(2016-04-05 20:16 - haribo in Beitrag No. 159) http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-harborth-winkels.pnggezeichnet mit viertels winkel aus #35 4,4915° \quoteoff Danke haribo! Das Winkel-Bild könntest du Wikipedia zur Verfügung stellen. Genau so etwas fehlt noch auf der Seite zum Harborth-Graphen. Und hier ist nochmal das gute Stück. :-) http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_harborth_heiko_4_4_graph.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.161, vom Themenstarter, eingetragen 2016-04-06

Hier vier 4/4er. Alle > 126. http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_4_matchstickgraphs.png


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.162, eingetragen 2016-04-08

den infiniten kann man auch unendlich-infinit darstellen hier als 4/26 http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st26unendlich.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.163, vom Themenstarter, eingetragen 2016-04-08

Eine interessante und sehr gute Erkenntnis, haribo! Es muss also korrekterweise heißen: Für alle n > 11 existieren nur unendlich große 4/n-reguläre Streichholzgraphen mit einer unendlichen Anzahl an Knoten und Kanten.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.164, eingetragen 2016-04-08

http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-versuch_4-10.png ansatz für nen symetrischen 4/10er es ist aber noch zu wenig beweglichkeit im inneren, die roten striche sind zu lang ca. 1.06 evtl hast du ne idee dazu grus haribo


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 4074
Wohnort: Raun
  Beitrag No.165, eingetragen 2016-04-09

Hier meine Ergebnisse zu Beitrag No. 149 (das waren die Urlaubsgrafen). Die roten Kanten habe ich wieder entfernt, um statische Bestimmtheit zu erreichen. Danach auch die grüne Kante, um mit dem blauen Winkel den grünen Abstand zu 1 zu machen. P11=P16 und P39=P42 sind die übereinandergeschobenen Punkte b2=c2, a2=d2. Nun will ich keinesfalls Rekordverderber sein und plädiere sehr dafür, dass Näherungslösungen, die zum Beispiel mit einem bestimmten Lagerspiel auskommen, auch anerkannt werden. \geo #Rechenweg: #P[1]:=[0,0];P[2]:=[D,0];A(2,1);L(3,1,2);L(4,3,2);L(5,4,2);L(6,3,4);M(7,1,6,blauerWinkel); #L(8,1,7);L(9,8,7);L(10,8,9);L(11,10,9);L(12,10,11);N(13,7,6);L(14,13,6);N(15,11,13); #N(16,12,15);L(17,12,16);L(18,17,16);L(19,17,18);L(20,19,18);L(21,19,20);N(22,20,15); #Q(23,21,22,2*D,D);L(24,21,23);H(25,24,21,2);H(26,24,23,2);A(25,26);H(27,23,21,2); #A(25,27);A(26,27);L(28,23,22);Q(29,24,28,2*D,D);L(30,24,29);H(31,30,24,2);H(32,29,24,2); #A(31,32);H(33,30,29,2);A(31,33);A(32,33);L(34,29,28);N(35,34,30);L(36,30,35);L(37,36,35); #L(38,36,37);L(39,38,37);L(40,38,39);N(41,39,34);N(42,41,40);L(43,40,42);L(44,43,42); #L(45,43,44);L(46,45,44);L(47,45,46);N(48,46,41);Q(49,47,48,2*D,D);H(50,49,47,2); #L(51,50,49);L(52,50,51);A(52,47); #Erläuterungen: D ist die (einstellbare) Länge 1. #Der Punkt Pi ist immer der neu hinzukommende Punkt. #Pi,Pj,Pk sind immer so angeordnet, dass der Weg von Pi über Pj nach Pk eine Linkskurve ist. #L(i,j,k) erzeugt Pi so, dass Pi, Pj, Pk ein gleichseitiges Dreieck bilden. #N(i,j,k) erzeugt Pi so, dass die Strecken Pi,Pj und Pi,Pk beide Länge 1 haben. #Q(i,j,k,a*D,b*D) erzeugt Pi so, dass Strecke Pi,Pj Länge a hat und Pi,Pk Länge b. #H(i,j,k,a) erzeugt Pi so, dass Pi auf 1/a der Strecke von Pk nach Pj liegt. #M(i,j,k,w) erzeugt Pi so, dass Strecken Pi,Pj und Pj,Pk einen Winkel w einschließen. #A(j,k) verbindet schon vorhandene Pj,Pk durch eine Strecke ebene(500,500) xy(0,8.4) print(Beitrag\_No.149\_oben,1,8.2) form(.) p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(5,1.732050807568877,P6) p(4.050588721428384,0.9987195708827585,P7) p(3.16037784107303,0.5431709033433344,P8) p(3.210966562501414,1.541890474226093,P9) p(2.320755682146061,1.086341806686668,P10) p(2.371344403574445,2.085061377569427,P11) p(1.481133523219091,1.629512710030002,P12) p(4.036183055380667,1.998615803891825,P13) p(4.748943586265712,2.700023264368594,P14) p(3.232411129873186,2.593553356720689,P15) p(2.342200249517827,2.138004689181274, P16) p(1.471299914802831,2.629464358933846,P17) p(2.332366641101567,3.137956338085118,P18) p(1.461466306386571,3.629416007837689,P19) p(2.322533032685307,4.137907986988961,P20) p(1.451632697970311,4.629367656741532,P21) p(3.159662830120719,3.590903688792186,P22) p(3.449970200717429,4.547837140280441,P23) p(2.52140894778284,6.319213441225146,P24) p(1.986520822876575,5.474290548983339,P25) p(2.985689574250134,5.433525290752794,P26) p(2.45080144934387,4.588602398510987,P27) p(4.133545194139026,3.817956856693699,P28) p(3.751145712938027,4.741953954512304,P29) p(4.502224114213758,6.595566976460815,P30) p(3.511816530998299,6.45739020884298,P31) p(3.136277330360433,5.530583697868725,P32) p(4.126684913575893,5.668760465486559,P33) p(4.742550413272534,4.611123070717057,P34) p(4.590120502947094,5.599437353947942,P35) p(5.408845867138778,6.173622670748359,P36) p(5.496742255872113,5.177493048235487,P37) p(6.315467620063797,5.751678365035905,P38) p(6.403364008797134,4.755548742523032,P39) p(7.222089372988815,5.32973405932345,P40) p(5.620818771455096,4.132955013424115,P41) p(6.403364008797134,4.755548742523032,P39P42) p(7.309985761722153,4.333604436810578,P43) p(6.49126039753047,3.759419120010159,P44) p(7.39788215045549,3.337474814297706,P45) p(6.579156786263809,2.763289497497287,P46) p(7.485778539188827,2.341345191784833,P47) p(5.650163335219734,3.1333856578627,P48) p(5.495396910474786,2.145434569107965,P49) p(6.490587724831807,2.243389880446399,P50) p(6.077824105707995,1.332551697931079,P51) p(7.073014920065015,1.430507009269513,P52) nolabel() s(P2,P1) s(P3,P1) s(P3,P2) s(P4,P3) s(P4,P2) s(P5,P4) s(P5,P2) s(P6,P3) s(P6,P4) s(P7,P1) s(P8,P1) s(P8,P7) s(P9,P8) s(P9,P7) s(P10,P8) s(P10,P9) s(P11,P10) s(P11,P9) s(P12,P10) s(P12,P11) s(P13,P7) s(P13,P6) s(P14,P13) s(P14,P6) s(P15,P11) s(P15,P13) s(P16,P12) s(P16,P15) s(P17,P12) s(P17,P16) s(P18,P17) s(P18,P16) s(P19,P17) s(P19,P18) s(P20,P19) s(P20,P18) s(P21,P19) s(P21,P20) s(P22,P20) s(P22,P15) s(P23,P21) s(P23,P22) s(P24,P21) s(P24,P23) s(P25,P26) s(P25,P27) s(P26,P27) s(P28,P23) s(P28,P22) s(P29,P24) s(P29,P28) s(P30,P24) s(P30,P29) s(P31,P32) s(P31,P33) s(P32,P33) s(P34,P29) s(P34,P28) s(P35,P34) s(P35,P30) s(P36,P30) s(P36,P35) s(P37,P36) s(P37,P35) s(P38,P36) s(P38,P37) s(P39,P38) s(P39,P37) s(P40,P38) s(P40,P39) s(P41,P39) s(P41,P34) s(P39P42,P41) s(P39P42,P40) s(P43,P40) s(P43,P39P42) s(P44,P43) s(P44,P39P42) s(P45,P43) s(P45,P44) s(P46,P45) s(P46,P44) s(P47,P45) s(P47,P46) s(P48,P46) s(P48,P41) s(P49,P47) s(P49,P48) s(P51,P50) s(P51,P49) s(P52,P50) s(P52,P51) s(P52,P47) color(blue) pen(2) s(P1,P7) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(green) s(P14,P48) color(red) pen(1) s(P14,P49) abstand(P14,P49,A1) print(abs(P14-P49):,1,7.9) print(A1,2.3,7.9) s(P5,P51) abstand(P5,P51,A2) print(abs(P5-P51):,1,7.6) print(A2,2.3,7.6) s(P5,P52) abstand(P5,P52,A3) print(abs(P5-P52):,1,7.3) print(A3,2.3,7.3) \geooff \geoprint() \geo #Beitrag\_No.149\_unten #P[1]:=[0.0,0.0];P[2]:=[D,0.0];A(2,1);L(3,1,2);L(4,3,2); #L(5,4,2);L(6,3,4);M(7,1,6,x);L(8,1,7);L(9,8,7);L(10,8,9);L(11,10,9);L(12,10,11); #N(13,7,6);L(14,13,6);N(15,11,13);N(16,12,15);L(17,12,16);L(18,17,16);L(19,17,18); #L(20,19,18);L(21,19,20);N(22,20,15);Q(23,21,22,2*D,D);L(24,21,23);H(25,24,21,2); #H(26,24,23,2);A(25,26);H(27,23,21,2);A(25,27);A(26,27);L(28,23,22);Q(29,24,28,2*D,D); #L(30,24,29);H(31,30,24,2);H(32,29,24,2);A(K31,32);H(33,30,29,2);A(K31,33);A(32,33); #L(34,29,28);N(35,30,34);L(36,30,35);L(37,36,35);L(38,36,37);L(39,38,37);L(40,38,39); #N(41,39,34);N(42,40,41);L(43,40,42);L(44,43,42);L(45,43,44);L(46,45,44);L(47,45,46); #N(48,46,41);Q(49,47,48,2*D,D);H(50,49,47,2);L(51,50,49);L(52,50,51);A(52,47); #Erläuterung unter dem ersten Bild ebene(500,500) xy(0,8.4) print(Beitrag\_No.149\_unten,1,8.2) form(.) p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(5,1.732050807568877,P6) p(3.954395679400971,0.9989595817362688,P7) p(3.112073464563,0.4599852907070455,P8) p(3.066469143963971,1.458944872443314,P9) p(2.224146929125999,0.9199705814140908,P10) p(2.178542608526971,1.918930163150359,P11) p(1.336220393689,1.379955872121136,P12) p(4.035374643585621,1.99567539246648,P13) p(4.745992909376262,2.699253163807149,P14) p(3.091697458344142,2.32654299446873,P15) p(2.178542608526969,1.918930163150362,P11P16) p(1.290616073089968,2.378915453857405,P17) p(2.132938287927938,2.91788974488663,P18) p(1.245011752490937,3.377875035593673,P19) p(2.087333967328906,3.916849326622899,P20) p(1.199407431891904,4.376834617329942,P21) p(2.876916773321483,3.303205299127407,P22) p(3.195452243493585,4.251116241274524,P23) p(2.306305145079261,6.042600943241411,P24) p(1.752856288485583,5.209717780285676,P25) p(2.750878694286423,5.146858592257968,P26) p(2.197429837692744,4.313975429302233,P27) p(3.857099464832179,3.501300961025505,P28) p(3.49286429778084,4.432607968989626,P29) p(4.293879537046562,6.265194825448025,P30) p(3.300092341062911,6.153897884344718,P31) p(2.89958472143005,5.237604456115519,P32) p(3.893371917413701,5.348901397218826,P33) p(4.481517408925915,4.282391372625694,P34) p(4.478510209867737,5.282386850992383,P35) p(5.237331546377663,5.933685691201156,P36) p(5.421962219198839,4.950877716745513,P37) p(6.180783555708766,5.602176556954285,P38) p(6.365414228529941,4.619368582498644,P39) p(7.124235565039866,5.270667422707415,P40) p(5.474602632047969,4.164995718461584,P41) p(6.36541422852994,4.619368582498646,P39P42) p(7.308866237861039,4.287859448251774,P43) p(6.550044901351113,3.636560608043005,P44) p(7.493496910682213,3.305051473796133,P45) p(6.734675574172286,2.653752633587365,P46) p(7.678127583503384,2.322243499340493,P47) p(5.967053621587464,3.294655541920497,P48) p(5.678184161385602,2.337287047054134,P49) p(6.678155872444492,2.329765273197313,P50) p(6.171655969673518,1.467525255282931,P51) p(7.17162768073241,1.46000348142611,P52) nolabel() s(P2,P1) s(P3,P1) s(P3,P2) s(P4,P3) s(P4,P2) s(P5,P4) s(P5,P2) s(P6,P3) s(P6,P4) s(P7,P1) s(P8,P1) s(P8,P7) s(P9,P8) s(P9,P7) s(P10,P8) s(P10,P9) s(P11,P10) s(P11,P9) s(P12,P10) s(P12,P11) s(P13,P7) s(P13,P6) s(P14,P13) s(P14,P6) s(P15,P11) s(P15,P13) s(P11P16,P12) s(P11P16,P15) s(P17,P12) s(P17,P11P16) s(P18,P17) s(P18,P11P16) s(P19,P17) s(P19,P18) s(P20,P19) s(P20,P18) s(P21,P19) s(P21,P20) s(P22,P20) s(P22,P15) s(P23,P21) s(P23,P22) s(P24,P21) s(P24,P23) s(P25,P26) s(P25,P27) s(P26,P27) s(P28,P23) s(P28,P22) s(P29,P24) s(P29,P28) s(P30,P24) s(P30,P29) s(P31,P32) s(P31,P33) s(P32,P33) s(P34,P29) s(P34,P28) s(P35,P30) s(P35,P34) s(P36,P30) s(P36,P35) s(P37,P36) s(P37,P35) s(P38,P36) s(P38,P37) s(P39,P38) s(P39,P37) s(P40,P38) s(P40,P39) s(P41,P39) s(P41,P34) s(P39P42,P40) s(P39P42,P41) s(P43,P40) s(P43,P39P42) s(P44,P43) s(P44,P39P42) s(P45,P43) s(P45,P44) s(P46,P45) s(P46,P44) s(P47,P45) s(P47,P46) s(P48,P46) s(P48,P41) s(P49,P47) s(P49,P48) s(P51,P50) s(P51,P49) s(P52,P50) s(P52,P51) s(P52,P47) color(blue) pen(2) s(P1,P7) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(green) s(P14,P49) color(red) pen(1) s(P14,P48) abstand(P14,P48,A1) print(abs(P14-P48):,1,7.9) print(A1,2.3,7.9) s(P5,P51) abstand(P5,P51,A2) print(abs(P5-P51):,1,7.6) print(A2,2.3,7.6) s(P5,P52) abstand(P5,P52,A3) print(abs(P5-P52):,1,7.3) print(A3,2.3,7.3) \geooff \geoprint()


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.166, vom Themenstarter, eingetragen 2016-04-09

\quoteon(2016-04-09 07:04 - StefanVogel in Beitrag No. 165) (das waren die Urlaubsgrafen). \quoteoff Die beiden Urlaubsgrafen mit den beiden Urlaubsgraphen. :-D Schön, dass du wieder dabei bist, Stefan! :-)


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.167, eingetragen 2016-04-09

\quoteon(2016-04-09 07:04 - StefanVogel in Beitrag No. 165) Hier meine Ergebnisse zu Beitrag No. 149 (das waren die Urlaubsgrafen). \quoteoff hallo stefan, ja es ist sehr spannend die beiden java graphen mit irgend einer anderen methode zu kontrollieren, derzeit ist die diskrepanz ja noch erheblich hier müssen wir wohl mal wieder geometrische varianten suchen... also, dein blauer winkel bei p1 in 149-oben ist 27,1° im urlaubsgraph beträgt er nur ca. 12,5° ich weiss nicht genau wie du rechnest, aber nimm mal den als startwinkel, wenn möglich(?) trotz möglicher (also in einer relativen umgebung gültiger) statischer bestimmtheit, gibt es ja eine kette von jeweils mehreren lösungen für jeweils zwei striche... dein winkel bei p13 (richtung p7;p15) beträgt ca 123°, im urlaubsgraph jedoch ca. 189°, er ist also über 180° durchgedrückt, keine ahnung wie du p13 dahingehend hingetrixt bekommst... fals du die punkte setzen kannst also als startwerte: p7(4.2998/0.954) p13(4.0165/1.913) p15(3.8308/2.8904) -------------------------- bei 149 unten liegt der hauptunterschied zum urlauber im winkel bei p22(richtung p15;p20), welcher viel gestreckter ausschaut, der startwinkel bei p1 könnte also mal probehalber vergrössert werden 34.5 ----- 34.7 so in der gegend ansonsten sehe ich dort bisher keinen grundsetzlichen unterschied...


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 4074
Wohnort: Raun
  Beitrag No.168, eingetragen 2016-04-09

Der blaue Winkel ist deshalb etwas groß geraten, weil sich sonst gar keine grüne Kante finden der Länge 1 finden lässt. Ich zeiche das gleich nochmal etwas deutlicher. Den Rechenweg verheimlichen will ich nicht, ich weiß bloß nicht, wie ich das am besten knapp und trotzdem verständlich darstelle. Ich versuche, in meinem vorherigen Beitrag den Rechenweg am Anfang des Zeichnungsquelltextes unterzubringen, so dass man beim Klick auf das + unter der Zeichnung gleich den Rechenweg zusammen mit der Zeichnung sieht. Auf den Winkel P13 Richtung P7;P15 habe ich keinen Einfluss, wenn ich den Rechenweg mit dem blauen Winkel beginne. Allerdings kann ich auch P13 Richtung P7;P15 als Ausgangspunkt nehmen und dann ergibt sich der blaue Winkel automatisch. Das mache ich auch gleich mal. Bei dem 149-unten variiere ich den Startwinkel auch nochmal. Doch zuerst 149-oben. Der blaue Winkel varriiert von 22° bis 28° in 2°-Schritten, die zugehörigen Farbnamen sind purple-pink-aqua-teal-black. Es ist nicht erkennbar, wie die Verbindung zur rechten unteren Ecke hergestellt werden könnte. \geo ebene(500,500) xy(0,8.4) print(Beitrag\_No.149\_oben,1,8.2) form(.) ********** Szene 1 color(purple) nolabel() p(4,0,S1P1) p(5,0,S1P2) p(4.5,0.8660254037844386,S1P3) p(5.5,0.8660254037844386,S1P4) p(6,0,S1P5) p(5,1.732050807568877,S1P6) p(4.139173100960066,0.9902680687415704,S1P7) p(3.211989246393278,0.6156614753256583,S1P8) p(3.351162347353344,1.605929544067229,S1P9) p(2.423978492786556,1.231322950651317,S1P10) p(2.563151593746622,2.221591019392887,S1P11) p(1.635967739179834,1.846984425976975,S1P12) p(4.032403376105155,1.984551844056448,S1P13) p(4.734874000132716,2.696264582721656,S1P14) p(3.404178776582492,2.762583882313608,S1P15) p(2.476994922015706,2.387977288897695,S1P16) p(1.587967768042354,2.84583176304646,S1P17) p(2.428994950878226,3.38682462596718,S1P18) p(1.539967796904874,3.844679100115944,S1P19) p(2.380994979740745,4.385671963036665,S1P20) p(1.491967825767393,4.843526437185429,S1P21) p(3.131361250434006,3.724649679141569,S1P22) p(3.483581682320705,4.660566752050033,S1P23) p(2.646222489239705,6.476834788921995,S1P24) p(2.069095157503548,5.660180613053712,S1P25) p(3.064902085780205,5.568700770486014,S1P26) p(2.487774754044048,4.752046594617731,S1P27) p(4.117999427351657,3.887576373849993,S1P28) p(3.778401049601113,4.828146914441818,S1P29) p(4.640117351631613,6.632986246574981,S1P30) p(3.643169920435659,6.554910517748487,S1P31) p(3.212311769420409,5.652490851681907,S1P32) p(4.209259200616363,5.730566580508399,S1P33) p(4.762758220680168,4.65196246636186,S1P34) p(4.578684987338505,5.634874997957192,S1P35) p(5.473790866591069,6.080728634173715,S1P36) p(5.412358502297962,5.082617385555928,S1P37) p(6.307464381550526,5.52847102177245,S1P38) p(6.246032017257418,4.530359773154662,S1P39) p(7.141137896509981,4.976213409371185,S1P40) p(5.449810539825691,3.925354517907703,S1P41) p(6.24603201725742,4.53035977315466,S1P42) p(7.079705532216877,3.978102160753397,S1P43) p(6.184599652964314,3.532248524536872,S1P44) p(7.018273167923772,2.97999091213561,S1P45) p(6.12316728867121,2.534137275919085,S1P46) p(6.956840803630667,1.981879663517822,S1P47) p(5.215236024912022,2.953256376281552,S1P48) p(4.956847920584778,1.987215182779859,S1P49) p(5.956844362107722,1.984547423148841,S1P50) p(5.454535793734597,1.119858980911441,S1P51) p(6.454532235257542,1.117191221280422,S1P52) s(S1P2,S1P1) s(S1P3,S1P1) s(S1P3,S1P2) s(S1P4,S1P3) s(S1P4,S1P2) s(S1P5,S1P4) s(S1P5,S1P2) s(S1P6,S1P3) s(S1P6,S1P4) s(S1P7,S1P1) s(S1P8,S1P1) s(S1P8,S1P7) s(S1P9,S1P8) s(S1P9,S1P7) s(S1P10,S1P8) s(S1P10,S1P9) s(S1P11,S1P10) s(S1P11,S1P9) s(S1P12,S1P10) s(S1P12,S1P11) s(S1P13,S1P7) s(S1P13,S1P6) s(S1P14,S1P13) s(S1P14,S1P6) s(S1P15,S1P11) s(S1P15,S1P13) s(S1P16,S1P12) s(S1P16,S1P15) s(S1P17,S1P12) s(S1P17,S1P16) s(S1P18,S1P17) s(S1P18,S1P16) s(S1P19,S1P17) s(S1P19,S1P18) s(S1P20,S1P19) s(S1P20,S1P18) s(S1P21,S1P19) s(S1P21,S1P20) s(S1P22,S1P20) s(S1P22,S1P15) s(S1P23,S1P21) s(S1P23,S1P22) s(S1P24,S1P21) s(S1P24,S1P23) s(S1P25,S1P26) s(S1P25,S1P27) s(S1P26,S1P27) s(S1P28,S1P23) s(S1P28,S1P22) s(S1P29,S1P24) s(S1P29,S1P28) s(S1P30,S1P24) s(S1P30,S1P29) s(S1P31,S1P32) s(S1P31,S1P33) s(S1P32,S1P33) s(S1P34,S1P29) s(S1P34,S1P28) s(S1P35,S1P34) s(S1P35,S1P30) s(S1P36,S1P30) s(S1P36,S1P35) s(S1P37,S1P36) s(S1P37,S1P35) s(S1P38,S1P36) s(S1P38,S1P37) s(S1P39,S1P38) s(S1P39,S1P37) s(S1P40,S1P38) s(S1P40,S1P39) s(S1P41,S1P39) s(S1P41,S1P34) s(S1P42,S1P41) s(S1P42,S1P40) s(S1P43,S1P40) s(S1P43,S1P42) s(S1P44,S1P43) s(S1P44,S1P42) s(S1P45,S1P43) s(S1P45,S1P44) s(S1P46,S1P45) s(S1P46,S1P44) s(S1P47,S1P45) s(S1P47,S1P46) s(S1P48,S1P46) s(S1P48,S1P41) s(S1P49,S1P47) s(S1P49,S1P48) s(S1P51,S1P50) s(S1P51,S1P49) s(S1P52,S1P50) s(S1P52,S1P51) s(S1P52,S1P47) ********** Szene 2 color(pink) nolabel() p(4,0,S2P1) p(5,0,S2P2) p(4.5,0.8660254037844386,S2P3) p(5.5,0.8660254037844386,S2P4) p(6,0,S2P5) p(5,1.732050807568877,S2P6) p(4.121869343405147,0.9925461516413221,S2P7) p(3.201364489952707,0.6018150231520483,S2P8) p(3.323233833357855,1.59436117479337,S2P9) p(2.402728979905414,1.203630046304097,S2P10) p(2.524598323310562,2.196176197945419,S2P11) p(1.604093469858122,1.805445069456145,S2P12) p(4.03347729680541,1.988631914062365,S2P13) p(4.738944404757185,2.697374575116543,S2P14) p(3.367353556003704,2.734473158524175,S2P15) p(2.446848702551264,2.343742030034901,S2P16) p(1.559292243563539,2.80444099043005,S2P17) p(2.402047476256681,3.342737951008807,S2P18) p(1.514491017268957,3.803436911403956,S2P19) p(2.357246249962099,4.341733871982712,S2P20) p(1.469689790974374,4.802432832377861,S2P21) p(3.128833876950133,3.705610822660513,S2P22) p(3.463708696774963,4.64787344796584,S2P23) p(2.600551597168763,6.45202416822161,S2P24) p(2.035120694071568,5.627228500299736,S2P25) p(3.032130146971863,5.549948808093725,S2P26) p(2.466699243874668,4.725153140171851,S2P27) p(4.112294657413579,3.886732034257138,S2P28) p(3.760662792152827,4.822870395469434,S2P29) p(4.591495748535439,6.642133047916444,S2P30) p(3.596023672852101,6.547078608069028,S2P31) p(3.180607194660795,5.637447281845523,S2P32) p(4.176079270344133,5.732501721692939,S2P33) p(4.747198327050184,4.659323342959204,S2P34) p(4.564524138760746,5.6424968479586,S2P35) p(5.443720287354127,6.118956848691677,S2P36) p(5.416748677579434,5.119320648733832,S2P37) p(6.295944826172814,5.595780649466909,S2P38) p(6.268973216398122,4.596144449509064,S2P39) p(7.148169364991503,5.072604450242141,S2P40) p(5.481201431675464,3.980177230255574,S2P41) p(6.268973216398118,4.59614444950907,S2P42) p(7.121197755216802,4.072968250284297,S2P43) p(6.242001606623418,3.596508249551225,S2P44) p(7.094226145442103,3.073332050326452,S2P45) p(6.215029996848719,2.59687204959338,S2P46) p(7.067254535667404,2.073695850368607,S2P47) p(5.298568953896707,2.996995976335224,S2P48) p(5.067872792835351,2.023970138409245,S2P49) p(6.067563664251377,2.048832994388926,S2P50) p(5.589250093432401,1.170643875821404,S2P51) p(6.588940964848428,1.195506731801085,S2P52) s(S2P2,S2P1) s(S2P3,S2P1) s(S2P3,S2P2) s(S2P4,S2P3) s(S2P4,S2P2) s(S2P5,S2P4) s(S2P5,S2P2) s(S2P6,S2P3) s(S2P6,S2P4) s(S2P7,S2P1) s(S2P8,S2P1) s(S2P8,S2P7) s(S2P9,S2P8) s(S2P9,S2P7) s(S2P10,S2P8) s(S2P10,S2P9) s(S2P11,S2P10) s(S2P11,S2P9) s(S2P12,S2P10) s(S2P12,S2P11) s(S2P13,S2P7) s(S2P13,S2P6) s(S2P14,S2P13) s(S2P14,S2P6) s(S2P15,S2P11) s(S2P15,S2P13) s(S2P16,S2P12) s(S2P16,S2P15) s(S2P17,S2P12) s(S2P17,S2P16) s(S2P18,S2P17) s(S2P18,S2P16) s(S2P19,S2P17) s(S2P19,S2P18) s(S2P20,S2P19) s(S2P20,S2P18) s(S2P21,S2P19) s(S2P21,S2P20) s(S2P22,S2P20) s(S2P22,S2P15) s(S2P23,S2P21) s(S2P23,S2P22) s(S2P24,S2P21) s(S2P24,S2P23) s(S2P25,S2P26) s(S2P25,S2P27) s(S2P26,S2P27) s(S2P28,S2P23) s(S2P28,S2P22) s(S2P29,S2P24) s(S2P29,S2P28) s(S2P30,S2P24) s(S2P30,S2P29) s(S2P31,S2P32) s(S2P31,S2P33) s(S2P32,S2P33) s(S2P34,S2P29) s(S2P34,S2P28) s(S2P35,S2P34) s(S2P35,S2P30) s(S2P36,S2P30) s(S2P36,S2P35) s(S2P37,S2P36) s(S2P37,S2P35) s(S2P38,S2P36) s(S2P38,S2P37) s(S2P39,S2P38) s(S2P39,S2P37) s(S2P40,S2P38) s(S2P40,S2P39) s(S2P41,S2P39) s(S2P41,S2P34) s(S2P42,S2P41) s(S2P42,S2P40) s(S2P43,S2P40) s(S2P43,S2P42) s(S2P44,S2P43) s(S2P44,S2P42) s(S2P45,S2P43) s(S2P45,S2P44) s(S2P46,S2P45) s(S2P46,S2P44) s(S2P47,S2P45) s(S2P47,S2P46) s(S2P48,S2P46) s(S2P48,S2P41) s(S2P49,S2P47) s(S2P49,S2P48) s(S2P51,S2P50) s(S2P51,S2P49) s(S2P52,S2P50) s(S2P52,S2P51) s(S2P52,S2P47) ********** Szene 3 color(aqua) nolabel() p(4,0,S3P1) p(5,0,S3P2) p(4.5,0.8660254037844386,S3P3) p(5.5,0.8660254037844386,S3P4) p(6,0,S3P5) p(5,1.732050807568877,S3P6) p(4.104528463267654,0.9945218953682733,S3P7) p(3.190983005625053,0.587785252292473,S3P8) p(3.295511468892706,1.582307147660746,S3P9) p(2.381966011250106,1.175570504584946,S3P10) p(2.486494474517759,2.170092399953219,S3P11) p(1.572949016875158,1.763355756877419,S3P12) p(4.034393702977796,1.992059421178247,S3P13) p(4.742370916077384,2.698294697649013,S3P14) p(3.332082087534848,2.703929068525229,S3P15) p(2.418536629892245,2.297192425449432,S3P16) p(1.533426706928684,2.762574445161667,S3P17) p(2.379014319945771,3.296411113733681,S3P18) p(1.49390439698221,3.761793133445916,S3P19) p(2.339492009999296,4.295629802017929,S3P20) p(1.454382087035736,4.761011821730165,S3P21) p(3.130110244505721,3.683320397169412,S3P22) p(3.450134227202423,4.630729839015407,S3P23) p(2.565085663805466,6.424242883414299,S3P24) p(2.009733875420601,5.592627352572232,S3P25) p(3.007609945503944,5.527486361214853,S3P26) p(2.45225815711908,4.695870830372786,S3P27) p(4.11060288027794,3.879876219256793,S3P28) p(3.748723940433798,4.812101317018745,S3P29) p(4.553060353115018,6.643232916668292,S3P30) p(3.559073008460242,6.533737900041295,S3P31) p(3.156904802119632,5.618172100216523,S3P32) p(4.150892146774408,5.727667116843517,S3P33) p(4.736994027063151,4.659385123137376,S3P34) p(4.558055574940023,5.643245392866659,S3P35) p(5.42157256310723,6.147565143765467,S3P36) p(5.426567784932233,5.147577619963836,S3P37) p(6.290084773099441,5.651897370862644,S3P38) p(6.295079994924444,4.651909847061011,S3P39) p(7.158596983091652,5.156229597959819,S3P40) p(5.513029063690009,4.02869532464088,S3P41) p(6.295079994924444,4.651909847061013,S3P42) p(7.163592204916656,4.156242074158188,S3P43) p(6.300075216749446,3.651922323259381,S3P44) p(7.168587426741658,3.156254550356556,S3P45) p(6.305070438574449,2.651934799457749,S3P46) p(7.173582648566661,2.156267026554923,S3P47) p(5.382296940431464,3.03727759636066,S3P48) p(5.175959173219063,2.058796770885883,S3P49) p(6.174770910892862,2.107531898720403,S3P50) p(5.717570900817339,1.218167996379555,S3P51) p(6.716382638491138,1.266903124214076,S3P52) s(S3P2,S3P1) s(S3P3,S3P1) s(S3P3,S3P2) s(S3P4,S3P3) s(S3P4,S3P2) s(S3P5,S3P4) s(S3P5,S3P2) s(S3P6,S3P3) s(S3P6,S3P4) s(S3P7,S3P1) s(S3P8,S3P1) s(S3P8,S3P7) s(S3P9,S3P8) s(S3P9,S3P7) s(S3P10,S3P8) s(S3P10,S3P9) s(S3P11,S3P10) s(S3P11,S3P9) s(S3P12,S3P10) s(S3P12,S3P11) s(S3P13,S3P7) s(S3P13,S3P6) s(S3P14,S3P13) s(S3P14,S3P6) s(S3P15,S3P11) s(S3P15,S3P13) s(S3P16,S3P12) s(S3P16,S3P15) s(S3P17,S3P12) s(S3P17,S3P16) s(S3P18,S3P17) s(S3P18,S3P16) s(S3P19,S3P17) s(S3P19,S3P18) s(S3P20,S3P19) s(S3P20,S3P18) s(S3P21,S3P19) s(S3P21,S3P20) s(S3P22,S3P20) s(S3P22,S3P15) s(S3P23,S3P21) s(S3P23,S3P22) s(S3P24,S3P21) s(S3P24,S3P23) s(S3P25,S3P26) s(S3P25,S3P27) s(S3P26,S3P27) s(S3P28,S3P23) s(S3P28,S3P22) s(S3P29,S3P24) s(S3P29,S3P28) s(S3P30,S3P24) s(S3P30,S3P29) s(S3P31,S3P32) s(S3P31,S3P33) s(S3P32,S3P33) s(S3P34,S3P29) s(S3P34,S3P28) s(S3P35,S3P34) s(S3P35,S3P30) s(S3P36,S3P30) s(S3P36,S3P35) s(S3P37,S3P36) s(S3P37,S3P35) s(S3P38,S3P36) s(S3P38,S3P37) s(S3P39,S3P38) s(S3P39,S3P37) s(S3P40,S3P38) s(S3P40,S3P39) s(S3P41,S3P39) s(S3P41,S3P34) s(S3P42,S3P41) s(S3P42,S3P40) s(S3P43,S3P40) s(S3P43,S3P42) s(S3P44,S3P43) s(S3P44,S3P42) s(S3P45,S3P43) s(S3P45,S3P44) s(S3P46,S3P45) s(S3P46,S3P44) s(S3P47,S3P45) s(S3P47,S3P46) s(S3P48,S3P46) s(S3P48,S3P41) s(S3P49,S3P47) s(S3P49,S3P48) s(S3P51,S3P50) s(S3P51,S3P49) s(S3P52,S3P50) s(S3P52,S3P51) s(S3P52,S3P47) ********** Szene 4 color(teal) nolabel() p(4,0,S4P1) p(5,0,S4P2) p(4.5,0.8660254037844386,S4P3) p(5.5,0.8660254037844386,S4P4) p(6,0,S4P5) p(5,1.732050807568877,S4P6) p(4.087155742747658,0.9961946980917457,S4P7) p(3.180847955711008,0.5735764363510463,S4P8) p(3.268003698458667,1.569771134442792,S4P9) p(2.361695911422017,1.147152872702093,S4P10) p(2.448851654169675,2.143347570793838,S4P11) p(1.542543867133025,1.720729309053139,S4P12) p(4.03514708885941,1.994841332252564,S4P13) p(4.745156814679619,2.699033201873842,S4P14) p(3.298343921062648,2.670948640247869,S4P15) p(2.392036134025998,2.248330378507169,S4P16) p(1.510374071368483,2.7202117272279,S4P17) p(2.359866338261457,3.24781279668193,S4P18) p(1.478204275603942,3.719694145402661,S4P19) p(2.327696542496915,4.247295214856691,S4P20) p(1.446034479839401,4.719176563577421,S4P21) p(3.135298465954547,3.657567198541089,S4P22) p(3.443000216370427,4.609050058497591,S4P23) p(2.539889699134044,6.393536369360477,S4P24) p(1.992962089486722,5.556356466468949,S4P25) p(2.991444957752235,5.501293213929034,S4P26) p(2.444517348104914,4.664113311037506,S4P27) p(4.113157669150288,3.866831095870249,S4P28) p(3.742791774176219,4.795717043573225,S4P29) p(4.525092863444615,6.636370461718389,S4P30) p(3.532491281289329,6.514953415539432,S4P31) p(3.141340736655131,5.594626706466851,S4P32) p(4.133942318810417,5.716043752645808,S4P33) p(4.732413549592414,4.652020343464641,S4P34) p(4.559536952960781,5.636963835415861,S4P35) p(5.407826435291189,6.166496605098351,S4P36) p(5.442270524807356,5.167089978795823,S4P37) p(6.290560007137763,5.696622748478314,S4P38) p(6.325004096653931,4.697216122175785,S4P39) p(7.173293578984337,5.226748891858275,S4P40) p(5.54585649192126,4.070375624090873,S4P41) p(6.325004096653924,4.697216122175794,S4P42) p(7.207737668500493,4.227342265555746,S4P43) p(6.35944818617008,3.697809495873265,S4P44) p(7.242181758016649,3.227935639253217,S4P45) p(6.393892275686236,2.698402869570736,S4P46) p(7.276625847532804,2.228529012950688,S4P47) p(5.466905595724332,3.073497117958003,S4P48) p(5.281369688087255,2.090859632932479,S4P49) p(6.27899776781003,2.159694322941584,S4P50) p(5.839796318158154,1.261305717368422,S4P51) p(6.837424397880929,1.330140407377526,S4P52) s(S4P2,S4P1) s(S4P3,S4P1) s(S4P3,S4P2) s(S4P4,S4P3) s(S4P4,S4P2) s(S4P5,S4P4) s(S4P5,S4P2) s(S4P6,S4P3) s(S4P6,S4P4) s(S4P7,S4P1) s(S4P8,S4P1) s(S4P8,S4P7) s(S4P9,S4P8) s(S4P9,S4P7) s(S4P10,S4P8) s(S4P10,S4P9) s(S4P11,S4P10) s(S4P11,S4P9) s(S4P12,S4P10) s(S4P12,S4P11) s(S4P13,S4P7) s(S4P13,S4P6) s(S4P14,S4P13) s(S4P14,S4P6) s(S4P15,S4P11) s(S4P15,S4P13) s(S4P16,S4P12) s(S4P16,S4P15) s(S4P17,S4P12) s(S4P17,S4P16) s(S4P18,S4P17) s(S4P18,S4P16) s(S4P19,S4P17) s(S4P19,S4P18) s(S4P20,S4P19) s(S4P20,S4P18) s(S4P21,S4P19) s(S4P21,S4P20) s(S4P22,S4P20) s(S4P22,S4P15) s(S4P23,S4P21) s(S4P23,S4P22) s(S4P24,S4P21) s(S4P24,S4P23) s(S4P25,S4P26) s(S4P25,S4P27) s(S4P26,S4P27) s(S4P28,S4P23) s(S4P28,S4P22) s(S4P29,S4P24) s(S4P29,S4P28) s(S4P30,S4P24) s(S4P30,S4P29) s(S4P31,S4P32) s(S4P31,S4P33) s(S4P32,S4P33) s(S4P34,S4P29) s(S4P34,S4P28) s(S4P35,S4P34) s(S4P35,S4P30) s(S4P36,S4P30) s(S4P36,S4P35) s(S4P37,S4P36) s(S4P37,S4P35) s(S4P38,S4P36) s(S4P38,S4P37) s(S4P39,S4P38) s(S4P39,S4P37) s(S4P40,S4P38) s(S4P40,S4P39) s(S4P41,S4P39) s(S4P41,S4P34) s(S4P42,S4P41) s(S4P42,S4P40) s(S4P43,S4P40) s(S4P43,S4P42) s(S4P44,S4P43) s(S4P44,S4P42) s(S4P45,S4P43) s(S4P45,S4P44) s(S4P46,S4P45) s(S4P46,S4P44) s(S4P47,S4P45) s(S4P47,S4P46) s(S4P48,S4P46) s(S4P48,S4P41) s(S4P49,S4P47) s(S4P49,S4P48) s(S4P51,S4P50) s(S4P51,S4P49) s(S4P52,S4P50) s(S4P52,S4P51) s(S4P52,S4P47) ********** Szene 5 color(black) nolabel() p(4,0,S5P1) p(5,0,S5P2) p(4.5,0.8660254037844386,S5P3) p(5.5,0.8660254037844386,S5P4) p(6,0,S5P5) p(5,1.732050807568877,S5P6) p(4.069756473744126,0.9975640502598242,S5P7) p(3.170962427444958,0.5591929034707467,S5P8) p(3.240718901189084,1.556756953730571,S5P9) p(2.341924854889917,1.118385806941493,S5P10) p(2.411681328634042,2.115949857201317,S5P11) p(1.512887282334876,1.677578710412239,S5P12) p(4.035733532984035,1.996985102420541,S5P13) p(4.747306596167276,2.699597211448005,S5P14) p(3.266122466258319,2.635498067029174,S5P15) p(2.367328419959148,2.197126920240105,S5P16) p(1.490165902945352,2.677320546547268,S5P17) p(2.344607040569625,3.196868756375133,S5P18) p(1.467444523555829,3.677062382682296,S5P19) p(2.321885661180101,4.196610592510162,S5P20) p(1.444723144166306,4.676804218817325,S5P21) p(3.144548049399696,3.628080386620595,S5P22) p(3.44250610131404,4.582659351033393,S5P23) p(2.525146469876985,6.359862577062895,S5P24) p(1.984934807021645,5.518333397940109,S5P25) p(2.983826285595512,5.471260964048144,S5P26) p(2.443614622740173,4.629731784925359,S5P27) p(4.120216708456593,3.847330626607049,S5P28) p(3.743127499190941,4.773507568802979,S5P29) p(4.507960721107723,6.621487585646341,S5P30) p(3.516553595492354,6.490675081354619,S5P31) p(3.134136984533963,5.566685072932938,S5P32) p(4.125544110149332,5.69749757722466,S5P33) p(4.733764864164834,4.636987932422056,S5P34) p(4.569297507585798,5.62337045893999,S5P35) p(5.403023902026792,6.17554823756968,S5P36) p(5.464360688504867,5.177431110863329,S5P37) p(6.298087082945862,5.729608889493019,S5P38) p(6.359423869423937,4.731491762786668,S5P39) p(7.193150263864932,5.283669541416359,S5P40) p(5.58028823959222,4.104636380480085,S5P41) p(6.359423869423938,4.731491762786668,S5P42) p(7.254487050343007,4.285552414710008,S5P43) p(6.420760655902013,3.733374636080316,S5P44) p(7.315823836821084,3.287435288003655,S5P45) p(6.482097442380089,2.735257509373964,S5P46) p(7.37716062329916,2.289318161297304,S5P47) p(5.552967022947362,3.10500967459381,S5P48) p(5.384398587671424,2.119319722007998,S5P49) p(6.380779605485292,2.204318941652651,S5P50) p(5.956200580092481,1.298928058554919,S5P51) p(6.952581597906349,1.383927278199572,S5P52) s(S5P2,S5P1) s(S5P3,S5P1) s(S5P3,S5P2) s(S5P4,S5P3) s(S5P4,S5P2) s(S5P5,S5P4) s(S5P5,S5P2) s(S5P6,S5P3) s(S5P6,S5P4) s(S5P7,S5P1) s(S5P8,S5P1) s(S5P8,S5P7) s(S5P9,S5P8) s(S5P9,S5P7) s(S5P10,S5P8) s(S5P10,S5P9) s(S5P11,S5P10) s(S5P11,S5P9) s(S5P12,S5P10) s(S5P12,S5P11) s(S5P13,S5P7) s(S5P13,S5P6) s(S5P14,S5P13) s(S5P14,S5P6) s(S5P15,S5P11) s(S5P15,S5P13) s(S5P16,S5P12) s(S5P16,S5P15) s(S5P17,S5P12) s(S5P17,S5P16) s(S5P18,S5P17) s(S5P18,S5P16) s(S5P19,S5P17) s(S5P19,S5P18) s(S5P20,S5P19) s(S5P20,S5P18) s(S5P21,S5P19) s(S5P21,S5P20) s(S5P22,S5P20) s(S5P22,S5P15) s(S5P23,S5P21) s(S5P23,S5P22) s(S5P24,S5P21) s(S5P24,S5P23) s(S5P25,S5P26) s(S5P25,S5P27) s(S5P26,S5P27) s(S5P28,S5P23) s(S5P28,S5P22) s(S5P29,S5P24) s(S5P29,S5P28) s(S5P30,S5P24) s(S5P30,S5P29) s(S5P31,S5P32) s(S5P31,S5P33) s(S5P32,S5P33) s(S5P34,S5P29) s(S5P34,S5P28) s(S5P35,S5P34) s(S5P35,S5P30) s(S5P36,S5P30) s(S5P36,S5P35) s(S5P37,S5P36) s(S5P37,S5P35) s(S5P38,S5P36) s(S5P38,S5P37) s(S5P39,S5P38) s(S5P39,S5P37) s(S5P40,S5P38) s(S5P40,S5P39) s(S5P41,S5P39) s(S5P41,S5P34) s(S5P42,S5P41) s(S5P42,S5P40) s(S5P43,S5P40) s(S5P43,S5P42) s(S5P44,S5P43) s(S5P44,S5P42) s(S5P45,S5P43) s(S5P45,S5P44) s(S5P46,S5P45) s(S5P46,S5P44) s(S5P47,S5P45) s(S5P47,S5P46) s(S5P48,S5P46) s(S5P48,S5P41) s(S5P49,S5P47) s(S5P49,S5P48) s(S5P51,S5P50) s(S5P51,S5P49) s(S5P52,S5P50) s(S5P52,S5P51) s(S5P52,S5P47) \geooff \geoprint() Bei Start mit Winkel P15,P13,P7 geht es bei Strecke P34,P39 nicht weiter, weil deren Länge größer 2 ist: \geo #P[7]:=[D*4.2998,D*0.954];P[13]:=[D*4.0165,D*1.913];P[15]:=[D*3.8308,D*2.8904]; #A(7,13);A(13,15);Q(11,7,15,2*D,D);H(9,11,7,2);L(10,9,11);L(12,10,11);L(8,9,10); #L(7,9,8);L(1,7,8);N(16,12,15);L(17,12,16);L(18,17,16);L(19,17,18);L(20,19,18); #L(21,19,20);N(22,20,15);Q(23,21,22,2*D,D);L(24,21,23);H(25,24,21,2);H(26,24,23,2); #A(25,26);H(27,23,21,2);A(25,27);A(26,27);L(28,23,22);Q(29,24,28,2*D,D);L(30,24,29); #H(31,30,24,2);H(32,29,24,2);A(31,32);H(33,30,29,2);A(31,33);A(32,33);L(34,29,28); #N(35,30,34);L(36,30,35);L(37,36,35);L(38,36,37);L(39,38,37); #Erläuterung siehe Beitrag No.165 im Quelltext des Graphen. ebene(500,500) x(4,12.4) y(-1,7.4) print(StartwinkelP15P13P7 ,1,8.2) form(.) p(8.001185781752373,-0.0003739040126565385,P1) p(8.299800000000001,0.9539999999999996,P7) p(7.323980845292295,0.7354205469273474,P8) p(7.622595063539922,1.689794450940003,P9) p(6.646775908832216,1.471214997867351,P10) p(6.945390127079844,2.425588901880007,P11) p(5.969570972372139,2.207009448807355,P12) p(8.016500000000001,1.913,P13) p(7.8308,2.8904,P15) p(6.854980845292294,2.671820546927347,P16) p(6.009737689899362,3.206202440577757,P17) p(6.895147562819519,3.671013538697749,P18) p(6.049904407426586,4.205395432348159,P19) p(6.935314280346741,4.670206530468151,P20) p(6.090071124953809,5.204588424118562,P21) p(7.460925910427978,3.819481889750989,P22) p(8.012650323667449,4.653508371246367,P23) p(7.52861004961682,6.594050824556007,P24) p(6.809340587285314,5.899319624337283,P25) p(7.770630186642135,5.623779597901187,P26) p(7.051360724310628,4.929048397682465,P27) p(8.459076237451663,3.758687772745232,P28) p(8.288498354052027,4.744031969305449,P29) p(9.510717527961614,6.327123972610301,P30) p(8.519663788789217,6.460587398583154,P31) p(7.908554201834423,5.669041396930728,P32) p(8.899607941006821,5.535577970957875,P33) p(9.22712040144456,4.399084651373204,P34) p(9.591379163185003,5.330382431084571,P35) p(10.41425184154185,5.898608227061686,P36) p(10.49491347676524,4.901866685535956,P37) p(11.31778615512209,5.470092481513071,P38) p(11.39844779034548,4.473350939987341,P39) nolabel() s(P1,P7) s(P1,P8) s(P7,P13) s(P7,P9) s(P7,P8) s(P8,P9) s(P8,P10) s(P10,P9) s(P10,P11) s(P11,P7) s(P11,P15) s(P12,P10) s(P12,P11) s(P13,P15) s(P16,P12) s(P16,P15) s(P17,P12) s(P17,P16) s(P18,P17) s(P18,P16) s(P19,P17) s(P19,P18) s(P20,P19) s(P20,P18) s(P21,P19) s(P21,P20) s(P22,P20) s(P22,P15) s(P23,P21) s(P23,P22) s(P24,P21) s(P24,P23) s(P25,P26) s(P25,P27) s(P26,P27) s(P28,P23) s(P28,P22) s(P29,P24) s(P29,P28) s(P30,P24) s(P30,P29) s(P31,P32) s(P31,P33) s(P32,P33) s(P34,P29) s(P34,P28) s(P35,P30) s(P35,P34) s(P36,P30) s(P36,P35) s(P37,P36) s(P37,P35) s(P38,P36) s(P38,P37) s(P39,P38) s(P39,P37) color(blue) pen(2) color(green) color(red) pen(1) \geooff \geoprint() Schließlich 149-unten nochmal, wenn ich da den blauen Winkel bis 34,7° vergrößere, wird tatsächlich der Winkel bei P22 Richtung P15,P20 gestreckt, doch bereits bei 32,844° wird Strecke P41,P46 größer als 2. \geo ebene(500,500) xy(0,8.4) print(Beitrag\_No.149\_unten,1,8.2) form(.) ********** Szene 1 color(purple) nolabel() p(4,0,S1P1) p(5,0,S1P2) p(4.5,0.8660254037844386,S1P3) p(5.5,0.8660254037844386,S1P4) p(6,0,S1P5) p(5,1.732050807568877,S1P6) p(3.957357087441324,0.9990903772975261,S1P7) p(3.113440896304425,0.4626153430815909,S1P8) p(3.070797983745748,1.461705720379117,S1P9) p(2.226881792608849,0.9252306861631818,S1P10) p(2.184238880050173,1.924321063460708,S1P11) p(1.340322688913274,1.387846029244773,S1P12) p(4.0354729027833,1.996034668315564,S1P13) p(4.746353180987374,2.699347706770346,S1P14) p(3.095271833134816,2.336654615811077,S1P15) p(2.184238880050172,1.924321063460709,S1P16) p(1.297679776354597,2.386936406542299,S1P17) p(2.141595967491495,2.923411440758235,S1P18) p(1.25503686379592,3.386026783839825,S1P19) p(2.098953054932818,3.92250181805576,S1P20) p(1.212393951237242,4.385117161137351,S1P21) p(2.89421351425862,3.316233888974142,S1P22) p(3.208811222442717,4.265458984515401,S1P23) p(2.314229607565113,6.054236146244324,S1P24) p(1.763311779401178,5.219676653690837,S1P25) p(2.761520415003915,5.159847565379863,S1P26) p(2.210602586839979,4.325288072826377,S1P27) p(3.87356541499911,3.518396829484981,S1P28) p(3.506855901844943,4.448732324326619,S1P29) p(4.300949850358768,6.2843289033531,S1P30) p(3.30758972896194,6.169282524798712,S1P31) p(2.910542754705028,5.251484235285472,S1P32) p(3.903902876101855,5.366530613839859,S1P33) p(4.495904830997251,4.301144331106732,S1P34) p(4.483124176944636,5.30106265521225,S1P35) p(5.243570563225493,5.950463374023359,S1P36) p(5.42574488981136,4.967197125882508,S1P37) p(6.186191276092217,5.616597844693618,S1P38) p(6.368365602678084,4.633331596552766,S1P39) p(7.128811988958941,5.282732315363876,S1P40) p(5.486225332502931,4.162344819949316,S1P41) p(6.368365602678084,4.633331596552765,S1P42) p(7.31098631554481,4.299466067223025,S1P43) p(6.550539929263953,3.650065348411915,S1P44) p(7.493160642130677,3.316199819082174,S1P45) p(6.73271425584982,2.666799100271064,S1P46) p(7.675334968716544,2.332933570941323,S1P47) p(5.933624010099628,3.268010193936922,S1P48) p(5.675576094223995,2.301878074031864,S1P49) p(6.67545553147027,2.317405822486593,S1P50) p(6.188963237472502,1.443720954882267,S1P51) p(7.188842674718777,1.459248703336996,S1P52) s(S1P2,S1P1) s(S1P3,S1P1) s(S1P3,S1P2) s(S1P4,S1P3) s(S1P4,S1P2) s(S1P5,S1P4) s(S1P5,S1P2) s(S1P6,S1P3) s(S1P6,S1P4) s(S1P7,S1P1) s(S1P8,S1P1) s(S1P8,S1P7) s(S1P9,S1P8) s(S1P9,S1P7) s(S1P10,S1P8) s(S1P10,S1P9) s(S1P11,S1P10) s(S1P11,S1P9) s(S1P12,S1P10) s(S1P12,S1P11) s(S1P13,S1P7) s(S1P13,S1P6) s(S1P14,S1P13) s(S1P14,S1P6) s(S1P15,S1P11) s(S1P15,S1P13) s(S1P16,S1P12) s(S1P16,S1P15) s(S1P17,S1P12) s(S1P17,S1P16) s(S1P18,S1P17) s(S1P18,S1P16) s(S1P19,S1P17) s(S1P19,S1P18) s(S1P20,S1P19) s(S1P20,S1P18) s(S1P21,S1P19) s(S1P21,S1P20) s(S1P22,S1P20) s(S1P22,S1P15) s(S1P23,S1P21) s(S1P23,S1P22) s(S1P24,S1P21) s(S1P24,S1P23) s(S1P25,S1P26) s(S1P25,S1P27) s(S1P26,S1P27) s(S1P28,S1P23) s(S1P28,S1P22) s(S1P29,S1P24) s(S1P29,S1P28) s(S1P30,S1P24) s(S1P30,S1P29) s(S1P31,S1P32) s(S1P31,S1P33) s(S1P32,S1P33) s(S1P34,S1P29) s(S1P34,S1P28) s(S1P35,S1P30) s(S1P35,S1P34) s(S1P36,S1P30) s(S1P36,S1P35) s(S1P37,S1P36) s(S1P37,S1P35) s(S1P38,S1P36) s(S1P38,S1P37) s(S1P39,S1P38) s(S1P39,S1P37) s(S1P40,S1P38) s(S1P40,S1P39) s(S1P41,S1P39) s(S1P41,S1P34) s(S1P42,S1P40) s(S1P42,S1P41) s(S1P43,S1P40) s(S1P43,S1P42) s(S1P44,S1P43) s(S1P44,S1P42) s(S1P45,S1P43) s(S1P45,S1P44) s(S1P46,S1P45) s(S1P46,S1P44) s(S1P47,S1P45) s(S1P47,S1P46) s(S1P48,S1P46) s(S1P48,S1P41) s(S1P49,S1P47) s(S1P49,S1P48) s(S1P51,S1P50) s(S1P51,S1P49) s(S1P52,S1P50) s(S1P52,S1P51) s(S1P52,S1P47) ********** Szene 2 color(pink) nolabel() p(4,0,S2P1) p(5,0,S2P2) p(4.5,0.8660254037844386,S2P3) p(5.5,0.8660254037844386,S2P4) p(6,0,S2P5) p(5,1.732050807568877,S2P6) p(3.955613411614584,0.9990144297113549,S2P7) p(3.112634830930035,0.4610673017265837,S2P8) p(3.068248242544619,1.460081731437938,S2P9) p(2.22526966186007,0.9221346034531674,S2P10) p(2.180883073474654,1.921149033164522,S2P11) p(1.337904492790106,1.383201905179751,S2P12) p(4.035415583813649,1.995825150616939,S2P13) p(4.746143073852997,2.699292587604869,S2P14) p(3.093160632130063,2.330721561508072,S2P15) p(2.180883073474654,1.921149033164523,S2P16) p(1.293517904404689,2.382216334891106,S2P17) p(2.136496485089237,2.920163462875878,S2P18) p(1.249131316019271,3.381230764602461,S2P19) p(2.092109896703819,3.919177892587232,S2P20) p(1.204744727633855,4.380245194313814,S2P21) p(2.884081794305213,3.308620349509064,S2P22) p(3.200949335119703,4.25709014954393,S2P23) p(2.309502428751709,6.04743157316316,S2P24) p(1.757123578192782,5.213838383738487,S2P25) p(2.755225881935706,5.152260861353545,S2P26) p(2.202847031376779,4.318667671928872,S2P27) p(3.863914506264998,3.508439909546446,S2P28) p(3.498633337689144,4.43933714763659,S2P29) p(4.296718507410579,6.273201935964974,S2P30) p(3.303110468081144,6.160316754564067,S2P31) p(2.904067883220427,5.243384360399875,S2P32) p(3.897675922549862,5.356269541800782,S2P33) p(4.487454578475907,4.290231300102274,S2P34) p(4.480346001044711,5.290206033846534,S2P35) p(5.239831677278216,5.940730059226179,S2P36) p(5.423459170912349,4.957734157107739,S2P37) p(6.182944847145853,5.608258182487383,S2P38) p(6.366572340779985,4.625262280368943,S2P39) p(7.12605801701349,5.275786305748588,S2P40) p(5.479426513072706,4.163773081815428,S2P41) p(6.366572340779987,4.625262280368941,S2P42) p(7.309685510647626,4.292790403630148,S2P43) p(6.550199834414123,3.642266378250501,S2P44) p(7.493313004281761,3.309794501511709,S2P45) p(6.733827328048259,2.659270476132061,S2P46) p(7.676940497915896,2.326798599393269,S2P47) p(5.951605360491467,3.282270310378894,S2P48) p(5.676949712023292,2.320727656741247,S2P49) p(6.676945104969594,2.323763128067258,S2P50) p(6.179576203777229,1.456223978445353,S2P51) p(7.17957159672353,1.459259449771364,S2P52) s(S2P2,S2P1) s(S2P3,S2P1) s(S2P3,S2P2) s(S2P4,S2P3) s(S2P4,S2P2) s(S2P5,S2P4) s(S2P5,S2P2) s(S2P6,S2P3) s(S2P6,S2P4) s(S2P7,S2P1) s(S2P8,S2P1) s(S2P8,S2P7) s(S2P9,S2P8) s(S2P9,S2P7) s(S2P10,S2P8) s(S2P10,S2P9) s(S2P11,S2P10) s(S2P11,S2P9) s(S2P12,S2P10) s(S2P12,S2P11) s(S2P13,S2P7) s(S2P13,S2P6) s(S2P14,S2P13) s(S2P14,S2P6) s(S2P15,S2P11) s(S2P15,S2P13) s(S2P16,S2P12) s(S2P16,S2P15) s(S2P17,S2P12) s(S2P17,S2P16) s(S2P18,S2P17) s(S2P18,S2P16) s(S2P19,S2P17) s(S2P19,S2P18) s(S2P20,S2P19) s(S2P20,S2P18) s(S2P21,S2P19) s(S2P21,S2P20) s(S2P22,S2P20) s(S2P22,S2P15) s(S2P23,S2P21) s(S2P23,S2P22) s(S2P24,S2P21) s(S2P24,S2P23) s(S2P25,S2P26) s(S2P25,S2P27) s(S2P26,S2P27) s(S2P28,S2P23) s(S2P28,S2P22) s(S2P29,S2P24) s(S2P29,S2P28) s(S2P30,S2P24) s(S2P30,S2P29) s(S2P31,S2P32) s(S2P31,S2P33) s(S2P32,S2P33) s(S2P34,S2P29) s(S2P34,S2P28) s(S2P35,S2P30) s(S2P35,S2P34) s(S2P36,S2P30) s(S2P36,S2P35) s(S2P37,S2P36) s(S2P37,S2P35) s(S2P38,S2P36) s(S2P38,S2P37) s(S2P39,S2P38) s(S2P39,S2P37) s(S2P40,S2P38) s(S2P40,S2P39) s(S2P41,S2P39) s(S2P41,S2P34) s(S2P42,S2P40) s(S2P42,S2P41) s(S2P43,S2P40) s(S2P43,S2P42) s(S2P44,S2P43) s(S2P44,S2P42) s(S2P45,S2P43) s(S2P45,S2P44) s(S2P46,S2P45) s(S2P46,S2P44) s(S2P47,S2P45) s(S2P47,S2P46) s(S2P48,S2P46) s(S2P48,S2P41) s(S2P49,S2P47) s(S2P49,S2P48) s(S2P51,S2P50) s(S2P51,S2P49) s(S2P52,S2P50) s(S2P52,S2P51) s(S2P52,S2P47) ********** Szene 3 color(aqua) nolabel() p(4,0,S3P1) p(5,0,S3P2) p(4.5,0.8660254037844386,S3P3) p(5.5,0.8660254037844386,S3P4) p(6,0,S3P5) p(5,1.732050807568877,S3P6) p(3.95386987099709,0.9989354389539771,S3P7) p(3.111831468623842,0.4595178558806151,S3P8) p(3.065701339620931,1.458453294834592,S3P9) p(2.223662937247683,0.9190357117612302,S3P10) p(2.177532808244773,1.917971150715208,S3P11) p(1.335494405871524,1.378553567641845,S3P12) p(4.035356735016472,1.995609854694788,S3P13) p(4.745927197716495,2.699235904197132,S3P14) p(3.091068547981009,2.324729619864367,S3P15) p(2.177532808244774,1.917971150715204,S3P16) p(1.289364276868617,2.377489006595823,S3P17) p(2.131402679241867,2.916906589669182,S3P18) p(1.24323414786571,3.3764244455498,S3P19) p(2.08527255023896,3.91584202862316,S3P20) p(1.197104018862802,4.375359884503777,S3P21) p(2.873799075665871,3.300841281714536,S3P22) p(3.193076764260957,4.248502485713824,S3P23) p(2.304952121571993,6.040494287884972,S3P24) p(1.751028070217397,5.207927086194375,S3P25) p(2.749014442916475,5.144498386799398,S3P26) p(2.195090391561879,4.311931185108801,S3P27) p(3.854136596807744,3.498169294529259,S3P28) p(3.490365953793072,4.429657844797426,S3P29) p(4.292684318738113,6.261674559042118,S3P30) p(3.298818220155052,6.151084423463544,S3P31) p(2.897659037682532,5.235076066341199,S3P32) p(3.891525136265592,5.345666201919772,S3P33) p(4.478944023166979,4.278948187665049,S3P34) p(4.477745028352116,5.278947468870508,S3P35) p(5.236281298620889,5.930578289724416,S3P36) p(5.421342008234893,4.947851199552805,S3P37) p(6.179878278503667,5.599482020406713,S3P38) p(6.36493898811767,4.616754930235103,S3P39) p(7.123475258386444,5.268385751089011,S3P40) p(5.472498244373559,4.165590305175183,S3P41) p(6.364938988117672,4.616754930235101,S3P42) p(7.30853596800045,4.285658660917401,S3P43) p(6.549999697731678,3.63402784006349,S3P44) p(7.493596677614457,3.302931570745791,S3P45) p(6.735060407345687,2.651300749891881,S3P46) p(7.678657387228465,2.320204480574181,S3P47) p(5.974763900495461,3.300876936086654,S3P48) p(5.67881953933763,2.345671756505385,S3P49) p(6.678738463283048,2.332938118539783,S3P50) p(6.167751347349533,1.473349747661053,S3P51) p(7.16767027129495,1.460616109695451,S3P52) s(S3P2,S3P1) s(S3P3,S3P1) s(S3P3,S3P2) s(S3P4,S3P3) s(S3P4,S3P2) s(S3P5,S3P4) s(S3P5,S3P2) s(S3P6,S3P3) s(S3P6,S3P4) s(S3P7,S3P1) s(S3P8,S3P1) s(S3P8,S3P7) s(S3P9,S3P8) s(S3P9,S3P7) s(S3P10,S3P8) s(S3P10,S3P9) s(S3P11,S3P10) s(S3P11,S3P9) s(S3P12,S3P10) s(S3P12,S3P11) s(S3P13,S3P7) s(S3P13,S3P6) s(S3P14,S3P13) s(S3P14,S3P6) s(S3P15,S3P11) s(S3P15,S3P13) s(S3P16,S3P12) s(S3P16,S3P15) s(S3P17,S3P12) s(S3P17,S3P16) s(S3P18,S3P17) s(S3P18,S3P16) s(S3P19,S3P17) s(S3P19,S3P18) s(S3P20,S3P19) s(S3P20,S3P18) s(S3P21,S3P19) s(S3P21,S3P20) s(S3P22,S3P20) s(S3P22,S3P15) s(S3P23,S3P21) s(S3P23,S3P22) s(S3P24,S3P21) s(S3P24,S3P23) s(S3P25,S3P26) s(S3P25,S3P27) s(S3P26,S3P27) s(S3P28,S3P23) s(S3P28,S3P22) s(S3P29,S3P24) s(S3P29,S3P28) s(S3P30,S3P24) s(S3P30,S3P29) s(S3P31,S3P32) s(S3P31,S3P33) s(S3P32,S3P33) s(S3P34,S3P29) s(S3P34,S3P28) s(S3P35,S3P30) s(S3P35,S3P34) s(S3P36,S3P30) s(S3P36,S3P35) s(S3P37,S3P36) s(S3P37,S3P35) s(S3P38,S3P36) s(S3P38,S3P37) s(S3P39,S3P38) s(S3P39,S3P37) s(S3P40,S3P38) s(S3P40,S3P39) s(S3P41,S3P39) s(S3P41,S3P34) s(S3P42,S3P40) s(S3P42,S3P41) s(S3P43,S3P40) s(S3P43,S3P42) s(S3P44,S3P43) s(S3P44,S3P42) s(S3P45,S3P43) s(S3P45,S3P44) s(S3P46,S3P45) s(S3P46,S3P44) s(S3P47,S3P45) s(S3P47,S3P46) s(S3P48,S3P46) s(S3P48,S3P41) s(S3P49,S3P47) s(S3P49,S3P48) s(S3P51,S3P50) s(S3P51,S3P49) s(S3P52,S3P50) s(S3P52,S3P51) s(S3P52,S3P47) ********** Szene 4 color(teal) nolabel() p(4,0,S4P1) p(5,0,S4P2) p(4.5,0.8660254037844386,S4P3) p(5.5,0.8660254037844386,S4P4) p(6,0,S4P5) p(5,1.732050807568877,S4P6) p(3.952126470899969,0.9988534052660123,S4P7) p(3.111030811833025,0.4579670102635658,S4P8) p(3.063157282732994,1.456820415529578,S4P9) p(2.22206162366605,0.9159340205271315,S4P10) p(2.174188094566019,1.914787425793144,S4P11) p(1.333092435499074,1.373901030790697,S4P12) p(4.035296362584718,1.995388788038318,S4P13) p(4.745705562160185,2.699177654928484,S4P14) p(3.088995824400378,2.318677036250388,S4P15) p(2.174188094566017,1.914787425793147,S4P16) p(1.28521890639904,2.372754436056709,S4P17) p(2.126314565465982,2.913640831059159,S4P18) p(1.237345377299006,3.371607841322722,S4P19) p(2.078441036365948,3.912494236325171,S4P20) p(1.189471848198971,4.370461246588733,S4P21) p(2.863353194013198,3.292887179572636,S4P22) p(3.185191454632023,4.239681842634194,S4P23) p(2.300589937531915,6.033415422613168,S4P24) p(1.745030892865443,5.201938334600951,S4P25) p(2.742890696081969,5.136548632623681,S4P26) p(2.187331651415497,4.305071544611463,S4P27) p(3.844220554701448,3.487564401497716,S4P28) p(3.48204818584296,4.419675540383755,S4P29) p(4.288858794798217,6.24971833804649,S4P30) p(3.294724366165066,6.141566880329829,S4P31) p(2.891319061687438,5.226545481498461,S4P32) p(3.885453490320589,5.334696939215124,S4P33) p(4.470366295697959,4.267270442920974,S4P34) p(4.475331089077784,5.267258118258374,S4P35) p(5.232930450482153,5.919977972100505,S4P36) p(5.41940274476172,4.937517752312389,S4P37) p(6.177002106166087,5.59023760615452,S4P38) p(6.363474400445655,4.607777386366402,S4P39) p(7.121073761850023,5.260497240208533,S4P40) p(5.465416763078442,4.167899585191552,S4P41) p(6.363474400445655,4.607777386366401,S4P42) p(7.307546056129592,4.278037020420417,S4P43) p(6.549946694725224,3.625317166578284,S4P44) p(7.494018350409162,3.2955768006323,S4P45) p(6.736418989004793,2.642856946790167,S4P46) p(7.68049064468873,2.313116580844183,S4P47) p(6.007781353719785,3.327756352868367,S4P48) p(5.681691660287021,2.382417518461927,S4P49) p(6.681091152487876,2.347767049653056,S4P50) p(6.151383220145926,1.499586935282284,S4P51) p(7.15078271234678,1.464936466473412,S4P52) s(S4P2,S4P1) s(S4P3,S4P1) s(S4P3,S4P2) s(S4P4,S4P3) s(S4P4,S4P2) s(S4P5,S4P4) s(S4P5,S4P2) s(S4P6,S4P3) s(S4P6,S4P4) s(S4P7,S4P1) s(S4P8,S4P1) s(S4P8,S4P7) s(S4P9,S4P8) s(S4P9,S4P7) s(S4P10,S4P8) s(S4P10,S4P9) s(S4P11,S4P10) s(S4P11,S4P9) s(S4P12,S4P10) s(S4P12,S4P11) s(S4P13,S4P7) s(S4P13,S4P6) s(S4P14,S4P13) s(S4P14,S4P6) s(S4P15,S4P11) s(S4P15,S4P13) s(S4P16,S4P12) s(S4P16,S4P15) s(S4P17,S4P12) s(S4P17,S4P16) s(S4P18,S4P17) s(S4P18,S4P16) s(S4P19,S4P17) s(S4P19,S4P18) s(S4P20,S4P19) s(S4P20,S4P18) s(S4P21,S4P19) s(S4P21,S4P20) s(S4P22,S4P20) s(S4P22,S4P15) s(S4P23,S4P21) s(S4P23,S4P22) s(S4P24,S4P21) s(S4P24,S4P23) s(S4P25,S4P26) s(S4P25,S4P27) s(S4P26,S4P27) s(S4P28,S4P23) s(S4P28,S4P22) s(S4P29,S4P24) s(S4P29,S4P28) s(S4P30,S4P24) s(S4P30,S4P29) s(S4P31,S4P32) s(S4P31,S4P33) s(S4P32,S4P33) s(S4P34,S4P29) s(S4P34,S4P28) s(S4P35,S4P30) s(S4P35,S4P34) s(S4P36,S4P30) s(S4P36,S4P35) s(S4P37,S4P36) s(S4P37,S4P35) s(S4P38,S4P36) s(S4P38,S4P37) s(S4P39,S4P38) s(S4P39,S4P37) s(S4P40,S4P38) s(S4P40,S4P39) s(S4P41,S4P39) s(S4P41,S4P34) s(S4P42,S4P40) s(S4P42,S4P41) s(S4P43,S4P40) s(S4P43,S4P42) s(S4P44,S4P43) s(S4P44,S4P42) s(S4P45,S4P43) s(S4P45,S4P44) s(S4P46,S4P45) s(S4P46,S4P44) s(S4P47,S4P45) s(S4P47,S4P46) s(S4P48,S4P46) s(S4P48,S4P41) s(S4P49,S4P47) s(S4P49,S4P48) s(S4P51,S4P50) s(S4P51,S4P49) s(S4P52,S4P50) s(S4P52,S4P51) s(S4P52,S4P47) ********** Szene 5 color(black) nolabel() p(4,0,S5P1) p(5,0,S5P2) p(4.5,0.8660254037844386,S5P3) p(5.5,0.8660254037844386,S5P4) p(6,0,S5P5) p(5,1.732050807568877,S5P6) p(3.95038321663392,0.9987683288973492,S5P7) p(3.110232862996524,0.4564147695995803,S5P8) p(3.060616079630444,1.455183098496929,S5P9) p(2.220465725993049,0.9128295391991607,S5P10) p(2.170848942626969,1.91159786809651,S5P11) p(1.330698588989573,1.369244308798741,S5P12) p(4.035234472805226,1.99516195810528,S5P13) p(4.745478176786089,2.69911783808324,S5P14) p(3.086942720057211,2.312561944983192,P15,label) p(2.170848942626968,1.911597868096512,S5P16) p(1.281081805623491,2.36801263769609,S5P17) p(2.121232159260885,2.910366196993861,S5P18) p(1.231465022257409,3.36678096659344,S5P19) p(2.071615375894804,3.90913452589121,P20,label) p(1.181848238891327,4.365549295490789,S5P21) p(2.852730444020064,3.284747426130436,P22,label) p(3.177291050603487,4.230612328034614,S5P23) p(2.296428486474088,6.026184978504481,S5P24) p(1.739138362682707,5.195867136997635,S5P25) p(2.736859768538788,5.128398653269548,S5P26) p(2.179569644747407,4.298080811762702,S5P27) p(3.83415378090887,3.476602146713594,S5P28) p(3.473673688469203,4.409369053799543,S5P29) p(4.285254751509349,6.237301267563124,S5P30) p(3.290841618991719,6.131743123033803,S5P31) p(2.885051087471646,5.217777016152012,S5P32) p(3.879464219989276,5.323335160681333,S5P33) p(4.461713572034908,4.255170517867882,S5P34) p(4.473115099156149,5.255105518345066,S5P35) p(5.229791395644677,5.908895226379999,S5P36) p(5.417651743291476,4.926699477161941,S5P37) p(6.174328039780004,5.580489185196874,S5P38) p(6.362188387426802,4.598293435978817,S5P39) p(7.118864683915331,5.252083144013749,S5P40) p(5.458151350429284,4.170839303074774,P41,label) p(6.362188387426805,4.598293435978812,S5P42) p(7.306725031562134,4.269887394795691,S5P43) p(6.550048735073608,3.616097686760754,S5P44) p(7.494585379208937,3.287691645577633,S5P45) p(6.737909082720411,2.633901937542697,P46,label) p(7.68244572685574,2.305495896359576,S5P47) p(6.095490734245968,3.400256076008308,P48,label) p(5.690598019236707,2.48589187650549,S5P49) p(6.686521873046223,2.395693886432533,S5P50) p(6.110446195367988,1.57829752383507,S5P51) p(7.106370049177505,1.488099533762113,S5P52) s(S5P2,S5P1) s(S5P3,S5P1) s(S5P3,S5P2) s(S5P4,S5P3) s(S5P4,S5P2) s(S5P5,S5P4) s(S5P5,S5P2) s(S5P6,S5P3) s(S5P6,S5P4) s(S5P7,S5P1) s(S5P8,S5P1) s(S5P8,S5P7) s(S5P9,S5P8) s(S5P9,S5P7) s(S5P10,S5P8) s(S5P10,S5P9) s(S5P11,S5P10) s(S5P11,S5P9) s(S5P12,S5P10) s(S5P12,S5P11) s(S5P13,S5P7) s(S5P13,S5P6) s(S5P14,S5P13) s(S5P14,S5P6) s(P15,S5P11) s(P15,S5P13) s(S5P16,S5P12) s(S5P16,P15) s(S5P17,S5P12) s(S5P17,S5P16) s(S5P18,S5P17) s(S5P18,S5P16) s(S5P19,S5P17) s(S5P19,S5P18) s(P20,S5P19) s(P20,S5P18) s(S5P21,S5P19) s(S5P21,P20) s(P22,P20) s(P22,P15) s(S5P23,S5P21) s(S5P23,P22) s(S5P24,S5P21) s(S5P24,S5P23) s(S5P25,S5P26) s(S5P25,S5P27) s(S5P26,S5P27) s(S5P28,S5P23) s(S5P28,P22) s(S5P29,S5P24) s(S5P29,S5P28) s(S5P30,S5P24) s(S5P30,S5P29) s(S5P31,S5P32) s(S5P31,S5P33) s(S5P32,S5P33) s(S5P34,S5P29) s(S5P34,S5P28) s(S5P35,S5P30) s(S5P35,S5P34) s(S5P36,S5P30) s(S5P36,S5P35) s(S5P37,S5P36) s(S5P37,S5P35) s(S5P38,S5P36) s(S5P38,S5P37) s(S5P39,S5P38) s(S5P39,S5P37) s(S5P40,S5P38) s(S5P40,S5P39) s(P41,S5P39) s(P41,S5P34) s(S5P42,S5P40) s(S5P42,P41) s(S5P43,S5P40) s(S5P43,S5P42) s(S5P44,S5P43) s(S5P44,S5P42) s(S5P45,S5P43) s(S5P45,S5P44) s(P46,S5P45) s(P46,S5P44) s(S5P47,S5P45) s(S5P47,P46) s(P48,P46) s(P48,P41) s(S5P49,S5P47) s(S5P49,P48) s(S5P51,S5P50) s(S5P51,S5P49) s(S5P52,S5P50) s(S5P52,S5P51) s(S5P52,S5P47) \geooff \geoprint()


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.169, eingetragen 2016-04-09

stefan, die bilder sehen super aus, es dauert aber wohl einige zeit sich hineinzudenken, zeit die ich gerade nicht habe.... solange gibts hier nur das spinn off "graf dracular als sternzeichen" grrrrrrrrrrrrrrrrr http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_stdracular.png nachtrag:(Bei Start mit Winkel P15,P13,P7 geht es bei Strecke P34,P39 nicht weiter, weil deren Länge größer 2 ist: ) kann p35 nicht auch weit innen liegen, also der andere schnittpunkt der einheitskreise um p30 und p34 ???


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 4074
Wohnort: Raun
  Beitrag No.170, eingetragen 2016-04-10

Dazu gebe ich den Punkt P35 nicht mehr als N(35,30,34) ein, sondern als N(35,34,30). Jetzt beschreibt der gedachte Weg von P35 über P34 nach P30 eine Linkskurve statt vorher von P35 über P30 nach P34. \geo #P[7]:=[D*4.2998,D*0.954];P[13]:=[D*4.0165,D*1.913];P[15]:=[D*3.8308,D*2.8904]; #A(7,13);A(13,15);Q(11,7,15,2*D,D);H(9,11,7,2);L(10,9,11);L(12,10,11);L(8,9,10); #L(7,9,8);L(1,7,8);N(16,12,15);L(17,12,16);L(18,17,16);L(19,17,18);L(20,19,18); #L(21,19,20);N(22,20,15);Q(23,21,22,2*D,D);L(24,21,23);H(25,24,21,2);H(26,24,23,2); #A(25,26);H(27,23,21,2);A(25,27);A(26,27);L(28,23,22);Q(29,24,28,2*D,D);L(30,24,29); #H(31,30,24,2);H(32,29,24,2);A(31,32);H(33,30,29,2);A(31,33);A(32,33);L(34,29,28); #N(35,34,30);L(36,30,35);L(37,36,35);L(38,36,37);L(39,38,37); #Erläuterung siehe Beitrag No.165 im Quelltext des oberen Graphen. ebene(500,500) x(4,12.4) y(-1,7.4) form(.) p(8.001185781752373,-0.0003739040126565385,P1) p(8.835330630902117,-0.1814492738614825,P5) p(8.299800000000001,0.9539999999999996,P7) p(7.323980845292295,0.7354205469273474,P8) p(7.622595063539922,1.689794450940003,P9) p(6.646775908832216,1.471214997867351,P10) p(6.945390127079844,2.425588901880007,P11) p(5.969570972372139,2.207009448807355,P12) p(8.016500000000001,1.913,P13) p(7.8308,2.8904,P15) p(6.854980845292294,2.671820546927347,P16) p(6.009737689899362,3.206202440577757,P17) p(6.895147562819519,3.671013538697749,P18) p(6.049904407426586,4.205395432348159,P19) p(6.935314280346741,4.670206530468151,P20) p(6.090071124953809,5.204588424118562,P21) p(7.460925910427978,3.819481889750989,P22) p(8.012650323667449,4.653508371246367,P23) p(7.52861004961682,6.594050824556007,P24) p(6.809340587285314,5.899319624337283,P25) p(7.770630186642135,5.623779597901187,P26) p(7.051360724310628,4.929048397682465,P27) p(8.459076237451663,3.758687772745232,P28) p(8.288498354052027,4.744031969305449,P29) p(9.510717527961614,6.327123972610301,P30) p(8.519663788789217,6.460587398583154,P31) p(7.908554201834423,5.669041396930728,P32) p(8.899607941006821,5.535577970957875,P33) p(9.22712040144456,4.399084651373204,P34) p(9.146458766221169,5.395826192898936,P35) p(10.13511568280948,5.546017741536333,P36) p(9.770856921069036,4.614719961824968,P37) p(10.75951383765734,4.764911510462365,P38) p(10.3952550759169,3.833613730751,P39) p(11.38391199250521,3.983805279388398,P40) p(9.479665551200847,3.431499540215238,P41) p(10.3952550759169,3.833613730751005,P42) p(11.01965323076476,3.052507499677033,P43) p(10.03099631417645,2.902315951039641,P44) p(10.65539446902432,2.121209719965669,P45) p(9.666737552436006,1.971018171328277,P46) p(10.29113570728387,1.189911940254305,P47) p(8.901929237409579,2.615276070982164,P48) p(8.37559951990405,1.764995512301353,P49) p(9.33336761359396,1.477453726277829,P50) p(8.605465075403083,0.7917731192199355,P51) p(9.563233169092992,0.5042313331964108,P52) nolabel() s(P1,P7) s(P1,P8) s(P5,P52) s(P5,P51) s(P7,P13) s(P7,P9) s(P7,P8) s(P8,P9) s(P8,P10) s(P10,P9) s(P10,P11) s(P11,P7) s(P11,P15) s(P12,P10) s(P12,P11) s(P13,P15) s(P16,P12) s(P16,P15) s(P17,P12) s(P17,P16) s(P18,P17) s(P18,P16) s(P19,P17) s(P19,P18) s(P20,P19) s(P20,P18) s(P21,P19) s(P21,P20) s(P22,P20) s(P22,P15) s(P23,P21) s(P23,P22) s(P24,P21) s(P24,P23) s(P25,P26) s(P25,P27) s(P26,P27) s(P28,P23) s(P28,P22) s(P29,P24) s(P29,P28) s(P30,P24) s(P30,P29) s(P31,P32) s(P31,P33) s(P32,P33) s(P34,P29) s(P34,P28) s(P35,P34) s(P35,P30) s(P36,P30) s(P36,P35) s(P37,P36) s(P37,P35) s(P38,P36) s(P38,P37) s(P39,P38) s(P39,P37) s(P40,P38) s(P40,P39) s(P41,P39) s(P41,P34) s(P42,P41) s(P42,P40) s(P43,P40) s(P43,P42) s(P44,P43) s(P44,P42) s(P45,P43) s(P45,P44) s(P46,P45) s(P46,P44) s(P47,P45) s(P47,P46) s(P48,P46) s(P48,P41) s(P49,P47) s(P49,P48) s(P51,P50) s(P51,P49) s(P52,P50) s(P52,P51) s(P52,P47) color(blue) pen(2) color(green) color(red) pen(1) \geooff \geoprint() Weiter ist nicht mehr genug Platz für P2, P3, P4...


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.171, eingetragen 2016-04-13

moin stefan, nun hab ich nochmal über deine tests gegrübelt sie scheinen alle correkt zu sein, was bedeutet dass unsere beiden urlaubsgraphen keine streichholzgraphen sind, für den oberen graph aus #149 hab ich auch noch ne direkte argumentation gefunden die selbiges bestätigt: http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_Harboth4symtest.png würde dieser graph als einheitsgraph funktionieren dann wäre die rote linie in der nahen umgebung eine symetrielinie und die beiden blauen winkel (c7-c8-c6) und (d7-d8-d6) müssten im betrag gleich sein, also den gleichen knick haben, was ja ganz offensichtlich nicht der fall ist... das gleiche gilt wohl genauso für den unteren graphen aus#149, auch dort sind die entsprechenden winkel bei c6;d6 unterschiedlich, nicht so ausgeprägt wie beim oberen graphen, aber doch ausreichend um nicht als einheitsgraph funktionieren zu können auch die zwischenzeitlich angedachte variante, dass die beiden punkte (a2;d2) eben nicht ganz übereinander liegen scheidet bei etwas nachdenken aus, denn dann würden ja auch x1;x2 unterschiedliche positionen brauchen dann bleibt fast nur noch die lösung: unser java-programierung ist in eine art stabile sackgasse gemündet, bei welcher sich die längeren und kürzeren feder-strecken sehr gut ausgeglichen haben, (was als solches auch ziemlich erstaunlich wäre), denn als kontrolle hatten wir nur die summe aller längen beobachtet, und die entsprach sehr genau der anzahl der striche also stefan, nochmal herzlichen dank für deine kontrollbemühungen und wir haken dies thema erstmal ab grus haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.172, vom Themenstarter, eingetragen 2016-04-14

8 Neue Minimalitäts-Rekorde für 4/5er und 4/6er! :-) Dank einer neuen Symmetrie/Hülle konnte ich die alten Rekorde um ein paar Kanten unterbieten. Dazu ist die Frage nach einem 4/6er mit nur einem 6er Knoten beantwortet. Die Graphen sind punktsymmetrisch oder unsymmetrisch. Die punktsymmetrische Hülle ist immer die gleiche. Wegen der unkomplizierten Winkel sind noch viele andere Füllungen mit dieser Hülle möglich, z.B. ein 4/6er mit zwei 6er Knoten und 122 Kanten. Aber ich habe hier nur die neuen minimalsten aufgelistet. Sechs 4/5er mit 121 Kanten und 60 Knoten. (entdeckt am 13.04.2016) http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_5_121_v1_v2.png http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_5_121_v3_v4.png http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_5_121_v5_v6.png Zwei 4/6er mit 121 Kanten und 60 Knoten. (entdeckt am 14.04.2016) http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_6_121_v1_v2.png Gruß, Slash


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.173, eingetragen 2016-04-14

slash, ich gratuliere dir zu den neuen rekorden!!! auch im namen dieses kegelbruders der mir gerade unter kam http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-kegel1-9.png auch der muss sich sofort wieder geschlagen geben http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-kegel-31.PNG


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.174, eingetragen 2016-04-14

die hülle geht auch mit seitlicher symetrie 4/6 121 sym http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st4-6-sym.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.175, vom Themenstarter, eingetragen 2016-04-14

Sehr gut! Wie schon beim 4/7er findest du eine Symmetrieachse. :-) Mit der neuen Hülle geht bestimmt noch einiges. Vielleicht kann man sie noch weiter reduzieren und/oder Segmente mit 5 gls. Dreiecken einbauen wie beim Harborth.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.176, eingetragen 2016-04-14

4/5 kann man natürlich auch sym zeichnen ist dir schon mal aufgefallen das man ein harborth-viertel zu einer raute zusammenfalten kann: http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-harborth-viertel.png verbreitern führt zu nem regular 4 mit 132 hölzern http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-regular4-132.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.177, vom Themenstarter, eingetragen 2016-04-14

Nett, aber das 4/4er Kantenziel muss < 120 sein. Das wäre mal was. Ich habe auch noch eine Harborth-Besonderheit. Wenn man zwei Teilgraphen (Viertel-Harborths) wie beim Double-Reverse-Kite zusammenfügt, bekommen zwei Knoten Einheitsabstand (rote Kante). Mir war das jedenfalls neu. Oder erhält man so immer eine Einheitskante? http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_harborth_reverse.png Edit: Klar, ist keine Besonderheit, sondern Geometrie. 8-)


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.178, vom Themenstarter, eingetragen 2016-04-14

Hier mal der 4/5 mit vertikaler Symmetrieachse und eine andere 4/6 Version. http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_5_4_6_121_sym.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.179, vom Themenstarter, eingetragen 2016-04-15

Neue Rekorde für 4/4, 4/5 und 4/6 mit 114, 115 und 117 Kanten und je 57 Knoten. :-) http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_4_4_5_4_6_114_115_117_graphen.png Der 4/4 ist natürlich nur ein Rekord nach dem Harborth-Graphen. Er löst den alten Zweitplatzierten mit 120 Kanten ab.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.180, eingetragen 2016-04-15

gestern abend hatte ich noch diese medaille geprägt, extra für den fall das du, slash der streichholz genialist, dreiseitige rekorde zerbrichst, ich überreiche sie dir mit einem dreifachen "kratulationkratulationkratulation!!!" http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-medaille-fuer-slash.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.181, vom Themenstarter, eingetragen 2016-04-15

Danke haribo, für die Glückwünsche und auch für die schöne Medaille! :-) Die Erkenntnis, dass man diesen einen Teilgraph (Drittelgraph oder New Kite ;-) ) so aneinanderfügen kann, kam mir aber auch erst nach vielen Versuchen in denen ich zwei dieser Rand-Dreiecke mit nur einer weiteren Kante an der Innenspitze gezeichnet hatte. Es sind aber immer noch genug Rekorde da, die gebrochen werden möchten/sollen. Und wer mal einen 4/4 mit 104 oder weniger Kanten findet, der erhält nicht nur den absoluten Ritterschlag, sondern stößt sogar den König vom Thron. P.S.: Meine Legos haben leider absolut nichts zu den 4/n Rekorden beigetragen und verstauben langsam.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.182, eingetragen 2016-04-15

die medaille zeigt wie nahe man am 8er ist... aber untersteh dich, die ungeraden sind viiiieel leichter zu knacken


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.183, vom Themenstarter, eingetragen 2016-04-16

Just for fun - ein 4/5/6/7/8 Graph 8-) http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_5_6_7_8_graph.png Mit vier 5er, zwei 6er, zwei 7er und einem 8er Knoten.


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 4074
Wohnort: Raun
  Beitrag No.184, eingetragen 2016-04-16

Hier im Notizbuch habe ich jetzt erstmal das Programm hochgeladen.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.185, eingetragen 2016-04-17

hallo stefan, danke für den programcode versteh ich das richtig, da könnte man jetzt selber andere graphen eingeben? und irgendwie dann als SVG ausgeben? das würde mich genauer interessieren wie das geht bisher kann ich nur den blauen winkel verändern... 32.4 sieht evtl interessant als grundlage für eine 4/5er hülle aus, oder? http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-stefan1.png lg haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.186, vom Themenstarter, eingetragen 2016-04-18

Hier mal ein fast Harborth Zwilling mit 104 Kanten der auf den Teilgraphen der letzten Rekordler basiert. Die beiden roten Kanten sind leider zu kurz. http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkler_mike_4_4_104_falsch_graph.png


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.187, eingetragen 2016-04-18

das wäre evtl mal wieder einer fürs lego? weil die beweglichkeit nicht sofort erkennbar ist haribo


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.188, eingetragen 2016-04-20

frage: meine nichte hat bei mir den 4/10 gesehen, und danach behauptet sie könnte auch sonen graphen erfinden und kam kurz später mit diesem cleveren 9/1er vorbei.... http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-clara-9-1.png im ersten moment dachte ich den gibts natürlich schon... inzwischen bin ich nicht mehr so sicher, math-magic hört beim 8/1er auf und ich wüsste nicht wo der 9/1er veröffentlicht sein könnte, hat den schonmal jemand gesehen?


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.189, vom Themenstarter, eingetragen 2016-04-20

Ich freue mich über das rege Interesse, das du bei deiner Nichte mit den Streichholzgraphen geweckt hast, wo diese doch an anderen fachlichen Stellen oft eher auf Gleichgültigkeit stoßen. :-) P.S.: Die "Minimal Equal m/n Matchstick Graphs" auf Math Magic für 4/5 und 4/6 scheinen mir noch etwas groß. Vielleicht könnte man die auch weiter reduzieren.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.190, eingetragen 2016-04-20

dann nehmen wir den 9/1er mal bis auf weiteres auf in unsere rekordliste, würde ich vorschlagen in diesen teil deiner letzten hülle (4/6 mit 117) passt der doppelvogel aus #147 4,8541 ist als abstand also mehrmals herstellbar... http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_stdoppelterdoppelvogel.png [Die Antwort wurde nach Beitrag No.188 begonnen.]


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.191, vom Themenstarter, eingetragen 2016-04-20

\quoteon(2016-04-20 17:27 - haribo in Beitrag No. 190) dann nehmen wir den 9/1er mal bis auf weiteres auf in unsere rekordliste, würde ich vorschlagen \quoteoff Aufgrund fehlender Emoticons weiß ich leider immer noch nicht, wie ernst dieser Vorschlag gemeint ist, muss ihn aber trotz Verwandtschaftsbonus ablehnen. In meinem Thread geht es um m/n-reguläre Streichholzgraphen mit m=4. Demnach hat der Nichtengraph, der natürlich eine Trivialität darstellt, hier nichts verloren. Nach Math Magic-Regeln mit m


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.192, eingetragen 2016-04-21

Oh Vorschlag abgelehnt 😪 Verschließt du etwa die Augen für die graphenschönheiten am Wegesrand? 1-9 (kegelrunde) und die Nachwuchsarbeit 1/9, die Ironie der Trivialität besteht natürlich voll+ganz Aber die Frage wie und wo man neues abgleicht, d.h. Feststellt ob es neu ist, das hat einen echten kern s.u. m/n als Bezeichnung, ist das eigendlich ne Erfindung von Prof Friedman oder ist das eine übliche graphen-bezeichnung, hast du das auch schon mal bei jemand anderem gesehen im zusammenhang mit streichhölzern? "minimal equal" erscheint mir ziemlich schwer zu knacken aber "infinite equal" kann man, jedenfals mir unbekannte, also neue(?) darstellen: http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-infinite-equal4-5_4-6.png Grus haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.193, vom Themenstarter, eingetragen 2016-04-21

Mein Beitrag 191 war natürlich (wie der Smilie es schon andeutet) mit einem Augenzwinkern geschrieben. :-) \quoteon(2016-04-21 06:22 - haribo in Beitrag No. 192) Aber die Frage wie und wo man neues abgleicht, d.h. Feststellt ob es neu ist, das hat einen echten kern s.u. \quoteoff Das ist eine grundsätzliche Frage bzw. Problem vor dem jeder steht der vermeintlich Neues präsentiert. Erst recht, wenn es um Themen geht, die nicht viele Anhänger haben. Ich denke, das banales und triviales selten bis nie in all seinen Facetten präsentiert wird, sondern höchstens mit einem Hinweis darauf und einer Anleitung falls möglich. So würde ich es auch handhaben. Dann gibt es ja immer die Möglichkeit, dass irgendwo ein komischer Kautz schon seit vielen Jahren in seiner Schublade, verborgen vor den Augen der Öffentlichkeit, Dinge hortet, die dann später von jemand anderem "offiziell" als neu und erstmalig der Welt präsentiert werden. Streitigkeiten (teils sehr heftig und über Jahrzehnte) unter Fachleuten wegen der Erstveröffenltichung bzw. Erstentdeckung gibt es seit es Veröffentlichungen gibt. So sind eben die Menschen. Es gibt auch noch einige andere unendliche 4/5er und 4/6er mit völlig anderer Geometrie. Manche findet man auch im Web. Was die m/n Sache betrifft. Ich denke hier muss man einfach definieren, wie man selbst damit umgeht, da es keine allgemeine Definition gibt. Der Grund dafür liegt wohl im dem stiefmütterlichen Dasein, das die SHG in der Graphentheorie fristen, begründet. Ich hoffe, wir können das etwas ändern. ;-) Gruß, Slash


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.194, eingetragen 2016-04-21

jep, but "unendlich" is ungleich "infinite equal"


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.195, vom Themenstarter, eingetragen 2016-04-21

\quoteon(2016-04-21 20:43 - haribo in Beitrag No. 194) but "unendlich" is ungleich "infinite equal" \quoteoff Danke für den Hinweis, das habe ich verwechselt. Hier mal eine Harborth-Variante. Vielleicht kann Stefan mit seinem Programm (oder haribo - ich kann es leider nicht bedienen) probieren den Graphen so zu verschieben, dass man einen 4/4, 4/5 oder 4/6 erhält. Die vier inneren Dreiecke müssen dabei nicht geschlossen bleiben. http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_Harborth-Winkler-Variante.png Hier ein paar Ideen. Die bunten Kanten sind ungleich eins und gleiche Farben haben gleiche Länge. http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_viervarianten_h-w.png


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3731
  Beitrag No.196, eingetragen 2016-04-22

gute ideen, ich kann stefans program auch nur ein klein wenig verändern ungefähr so: den link in #184 öffnen, und seinen "streichholzgraphen" runterladen/öffnen -dann kann man den "blauer winkel" neu eingeben, z.B auf 18.5 damits ungefähr ein harborth wird, -jetzt noch in der 9.zeile bei N(42,41,40) die 41 und 40 austauschen also N(42,40,41) hinschreiben, damit sich die entsprechenden anteile öffnen -neuzeichnen viel weiter bin ich noch nicht gekommen grus haribo


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 4074
Wohnort: Raun
  Beitrag No.197, eingetragen 2016-04-23

haribo, ich gratuliere dir zu den ersten erfolgreichen Programmierschritten! Genauso war die Anwendung gedacht. Ausgehend von eineḿ gegebenen Graphen kleine Veränderungen vornehmen, ein Streichholz umlegen, einen Winkel variieren und schauen, ob man so eine neue Lösung erreichen kann. Einen komplett neuen Graphen eingeben - da war es bis jetzt so, dass fast immer etwas nicht ging oder noch eine bestimmte Programmfunktion gefehlt hat, also da ist das Programm noch lange nicht vollständig. Umso mehr freue ich mich natürlich über deine ersten gelungenen Versuche. Ich habe inzwischen den Streichholzgraph-185.htm (Notizbucheintrag) hochgeladen und darin einen Button "Feinjustieren" ergänzt. Beim Anklicken wird der blaue Winkel geringfügig so variiert, dass die zuerst angegebene rote Kante auf einen ganzzahligen Wert gebracht wird. Die Punkte P6 und P49 sollen zur Deckung gebracht werden, deshalb Abstand P6,P49 möglichst Null (in der Längenangabe 2.01...E-14 bedeutet E-14 den Faktor 10-14, also fast Null) \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel); L(8,1,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); N(13,7,6); L(14,13,6); N(15,11,13); N(16,12,15); L(17,12,16); L(18,17,16); L(19,17,18); L(20,19,18); L(21,19,20); N(22,20,15); Q(23,21,22,2*D,D); L(24,21,23); H(25,24,21,2); H(26,24,23,2); A(25,26); H(27,23,21,2); A(25,27); A(26,27); L(28,23,22); Q(29,24,28,2*D,D); L(30,24,29); H(31,30,24,2); H(32,29,24,2); A(31,32); H(33,30,29,2); A(31,33); A(32,33); L(34,29,28); N(35,34,30); L(36,30,35); L(37,36,35); L(38,36,37); L(39,38,37); L(40,38,39); N(41,39,34); N(42,41,40); L(43,40,42); L(44,43,42); L(45,43,44); L(46,45,44); L(47,45,46); N(48,46,41); Q(49,47,48,2*D,D); H(50,49,47,2); L(51,50,49); L(52,50,51); A(52,47); #//das habe ich zur besseren Übersicht aus dem Graph entfernt: R(5,51); R(5,52); R(14,48); R(14,49); #//und das neu hinzugefügt: #R(6,49); R(4,51); # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(5,1.7320508075688772,P6) p(3.9598003680782687,0.9991916680964456,P7) p(3.1145748162178637,0.46478193158121983,P8) p(3.0743751842961324,1.4639735996776653,P9) p(2.2291496324357274,0.9295638631624397,P10) p(2.188950000513996,1.928755531258885,P11) p(1.3437244486535906,1.3943457947436593,P12) p(4.035550627444757,1.9963184896221278,P13) p(4.746637839779722,2.699422305892305,P14) p(3.098261556242196,2.344871494205707,P15) p(2.188950000513996,1.9287555312588853,P16) p(1.3035248167318594,2.3935374628401047,P17) p(2.148750368592265,2.9279471993553305,P18) p(1.2633251848101281,3.39272913093655,P19) p(2.1085507366705336,3.927138867451776,P20) p(1.2231255528883969,4.391920799032996,P21) p(2.908175543062043,3.3266389348927947,P22) p(3.219811931403785,4.276840366938293,P23) p(2.321131319818594,6.0635617101703225,P24) p(1.7721284363534955,5.227741254601659,P25) p(2.7704716256111896,5.170201038554308,P26) p(2.221468742146091,4.334380582985644,P27) p(3.8868923160966684,3.531854621867962,P28) p(3.5183103826106223,4.461449887727082,P29) p(4.307190389153838,6.299293280205445,P30) p(3.3141608544862162,6.181427495187884,P31) p(2.919720851214608,5.262505798948703,P32) p(3.9127503858822306,5.380371583966264,P33) p(4.507654464825392,4.315853572572424,P34) p(4.327546911797278,5.299500495681638,P35) p(5.183214600393557,5.817026153685474,P36) p(5.203571123036997,4.817233369161666,P37) p(6.059238811633277,5.334759027165502,P38) p(6.079595334276716,4.334966242641694,P39) p(6.935263022872995,4.852491900645529,P40) p(5.301140699135941,3.707265373574395,P41) p(6.07959533427672,4.3349662426416895,P42) p(6.955619545516441,3.852699116121724,P43) p(6.099951856920168,3.335173458117883,P44) p(6.975976068159888,2.852906331597918,P45) p(6.120308379563614,2.3353806735940763,P46) p(6.996332590803336,1.8531135470741118,P47) p(5.1943412470089,2.7129847909291516,P48) p(5.000000000000016,1.7320508075688894,P49) p(5.998166295401676,1.7925821773215005,P50) p(5.551504851632476,0.8978791234259558,P51) p(6.549671147034135,0.9584104931785669,P52) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P3,P6) s(P4,P6) s(P1,P7) s(P1,P8) s(P7,P8) s(P8,P9) s(P7,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P7,P13) s(P6,P13) s(P13,P14) s(P6,P14) s(P11,P15) s(P13,P15) s(P12,P16) s(P15,P16) s(P12,P17) s(P16,P17) s(P17,P18) s(P16,P18) s(P17,P19) s(P18,P19) s(P19,P20) s(P18,P20) s(P19,P21) s(P20,P21) s(P20,P22) s(P15,P22) s(P21,P23) s(P22,P23) s(P21,P24) s(P23,P24) s(P26,P25) s(P27,P25) s(P27,P26) s(P23,P28) s(P22,P28) s(P24,P29) s(P28,P29) s(P24,P30) s(P29,P30) s(P32,P31) s(P33,P31) s(P33,P32) s(P29,P34) s(P28,P34) s(P34,P35) s(P30,P35) s(P30,P36) s(P35,P36) s(P36,P37) s(P35,P37) s(P36,P38) s(P37,P38) s(P38,P39) s(P37,P39) s(P38,P40) s(P39,P40) s(P39,P41) s(P34,P41) s(P41,P42) s(P40,P42) s(P40,P43) s(P42,P43) s(P43,P44) s(P42,P44) s(P43,P45) s(P44,P45) s(P45,P46) s(P44,P46) s(P45,P47) s(P46,P47) s(P46,P48) s(P41,P48) s(P47,P49) s(P48,P49) s(P50,P51) s(P49,P51) s(P50,P52) s(P51,P52) s(P47,P52) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(1) s(P6,P49) abstand(P6,P49,A0) print(abs(P6,P49):,1,7.9) print(A0,2.3,7.9) s(P4,P51) abstand(P4,P51,A1) print(abs(P4,P51):,1,7.6) print(A1,2.3,7.6) \geooff \geoprint() Der Abstand P6,P49 wird bei Winkel 32.30389004983005° nahezu Null. Das ist noch kein exakter Beweis, jedoch ist Strecke P24,P28 Symmetrieachse und man kann das geomentrisch begründen. Nicht möglich ist, gleichzeitig auch P4,P51 zur Deckung zu bringen. Also kann das nur ein Näherungsrekord werden oder muss dort noch fortgesetzt werden. Den erzeugten SVG-Code kann man anstelle eines Bildes in html-Dateien einsetzen, wo der Formeleditor fedgeo nicht zur Verfügung steht. @slash: Wo konkret kommst du mit dem Programmieren nicht zurecht? Hier meine Variante von Streichholzgraph-195.htm (Notizbucheintrag) Zuerst nur der Rahmen. Ich habe wieder nur soweit Kanten gesetzt, dass der Graph beweglich bleibt und eine weitere Kante nahezu 1 wird. \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,4,5); M(7,1,3,blauerWinkel); L(8,1,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); N(13,7,3); N(14,13,11); Q(15,12,14,2*D,D); H(16,12,15,2); L(17,12,15); H(18,15,17,2); H(19,12,17,2); A(18,19); A(16,19); A(16,18); Q(20,17,15,2*D,D); L(21,17,20); H(22,17,21,2); H(23,17,20,2); H(24,20,21,2); A(22,23); A(22,24); A(23,24); L(25,6,5); N(26,6,13); Q(27,26,25,D,2*D); L(28,27,25); H(29,25,27,2); H(30,25,28,2); H(31,27,28,2); A(29,30); A(29,31); A(30,31); Q(32,27,28,D,2*D); L(33,32,28); H(34,28,32,2); H(35,28,33,2); H(36,32,33,2); A(34,35); A(34,36); A(35,36); Q(37,21,33,3*D,3*D); H(38,21,37,3); H(39,37,21,3); H(40,33,37,3); H(41,37,33,3); L(42,38,21); L(43,38,42); A(39,43); L(44,39,43); A(37,44); L(45,41,37); L(46,41,45); A(46,40); L(47,40,46); A(47,33); N(48,45,44); N(49,42,48); N(50,48,47); # #//Diese Kante zum Feinjustieren: #R(20,49); # # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(6.5,0.8660254037844386,P6) p(4.286190104747121,0.9581728570278077,P7) p(3.313293016970764,0.7269343295366403,P8) p(3.5994831217178853,1.685107186564448,P9) p(2.6265860339415283,1.4538686590732806,P10) p(2.91277613868865,2.4120415161010884,P11) p(1.9398790509122925,2.1808029886099205,P12) p(4.786190104747121,1.8241982608122465,P13) p(3.79252826369248,1.9366088725528727,P14) p(3.7915696731016757,2.936608413104807,P15) p(2.865724362006984,2.558705700857364,P16) p(2.211177664076331,4.162316819622783,P17) p(3.0013736685890033,3.549462616363795,P18) p(2.075528357494312,3.1715599041163514,P19) p(4.1874142026923264,3.854925955348859,P20) p(3.465504230736801,5.7200924338143,P21) p(2.838340947406566,4.941204626718541,P22) p(3.199295933384329,4.008621387485821,P23) p(3.826459216714564,4.787509194581579,P24) p(7,0,P25) p(5.5502597624475065,1.1790645086479248,P26) p(6.277852028848147,1.8650743437625383,P27) p(8.254127776069023,1.5579356601901657,P28) p(6.638926014424074,0.9325371718812692,P29) p(7.627063888034511,0.7789678300950829,P30) p(7.2659899024585854,1.711505001976352,P31) p(6.6735793730572395,2.7834423903785006,P32) p(8.525173535415032,3.5394840942034618,P33) p(7.463853574563132,2.170689025284333,P34) p(8.389650655742027,2.548709877196814,P35) p(7.599376454236134,3.1614632422909814,P36) p(6.465504166432051,5.7207135847599355,P37) p(4.465504209301884,5.720299484129511,P38) p(5.4655041878669675,5.7205065344447235,P39) p(7.838617079087371,4.26656059105562,P40) p(7.152060622759711,4.993637087907778,P41) p(3.9656835308521776,4.8541705737506495,P42) p(4.9656835094172616,4.854377624065862,P43) p(5.965683487982345,4.854584674381074,P44) p(6.1791156778273155,4.762600004021881,P45) p(6.865672134154975,4.0355235071697235,P46) p(7.552228590482635,3.308447010317565,P47) p(5.679294999377608,3.8964710936430196,P48) p(4.915805142487889,4.542290912498492,P49) p(6.673057412596947,3.7849530858035907,P50) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P4,P6) s(P5,P6) s(P1,P7) s(P1,P8) s(P7,P8) s(P8,P9) s(P7,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P7,P13) s(P3,P13) s(P13,P14) s(P11,P14) s(P12,P15) s(P14,P15) s(P19,P16) s(P18,P16) s(P12,P17) s(P15,P17) s(P19,P18) s(P17,P20) s(P15,P20) s(P17,P21) s(P20,P21) s(P23,P22) s(P24,P22) s(P24,P23) s(P6,P25) s(P5,P25) s(P6,P26) s(P13,P26) s(P26,P27) s(P25,P27) s(P27,P28) s(P25,P28) s(P30,P29) s(P31,P29) s(P31,P30) s(P27,P32) s(P28,P32) s(P32,P33) s(P28,P33) s(P35,P34) s(P36,P34) s(P36,P35) s(P21,P37) s(P33,P37) s(P44,P37) s(P43,P39) s(P38,P42) s(P21,P42) s(P38,P43) s(P42,P43) s(P39,P44) s(P43,P44) s(P41,P45) s(P37,P45) s(P41,P46) s(P45,P46) s(P40,P46) s(P40,P47) s(P46,P47) s(P33,P47) s(P45,P48) s(P44,P48) s(P42,P49) s(P48,P49) s(P48,P50) s(P47,P50) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(1) s(P20,P49) abstand(P20,P49,A0) print(abs(P20,P49):,1,7.9) print(A0,2.3,7.9) \geooff \geoprint() Ausgehend davon kann man nun mit Button "Feinjustieren" die letzte Kante fast zu 1 machen und dann das innere nach Wunsch mit Kanten füllen. Anstelle der roten Kanten kann jetzt auch die Farbe unterschiedlich gewählt werden. \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,4,5); M(7,1,3,blauerWinkel); L(8,1,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); N(13,7,3); N(14,13,11); Q(15,12,14,2*D,D); H(16,12,15,2); L(17,12,15); H(18,15,17,2); H(19,12,17,2); A(18,19); A(16,19); A(16,18); Q(20,17,15,2*D,D); L(21,17,20); H(22,17,21,2); H(23,17,20,2); H(24,20,21,2); A(22,23); A(22,24); A(23,24); L(25,6,5); N(26,6,13); Q(27,26,25,D,2*D); L(28,27,25); H(29,25,27,2); H(30,25,28,2); H(31,27,28,2); A(29,30); A(29,31); A(30,31); Q(32,27,28,D,2*D); L(33,32,28); H(34,28,32,2); H(35,28,33,2); H(36,32,33,2); A(34,35); A(34,36); A(35,36); Q(37,21,33,3*D,3*D); H(38,21,37,3); H(39,37,21,3); H(40,33,37,3); H(41,37,33,3); L(42,38,21); L(43,38,42); A(39,43); L(44,39,43); A(37,44); L(45,41,37); L(46,41,45); A(46,40); L(47,40,46); A(47,33); N(48,45,44); N(49,42,48); N(50,48,47); # #//Diese Kante zum Feinjustieren: #R(20,49,"gray"); # #//und dann die spezielle Fortsetzung: #R(32,50,"gray"); L(51,14,13); L(52,13,26); N(53,51,52); L(54,51,53); L(55,50,48); R(54,15,"blue"); R(55,27,"blue"); R(54,49,"red"); R(53,48,"red"); R(55,52,"red"); # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(6.5,0.8660254037844386,P6) p(4.286153393859213,0.9581838211861302,P7) p(3.313265166287172,0.726908019054278,P8) p(3.5994185601463857,1.6850918402404078,P9) p(2.6265303325743448,1.4538160381085559,P10) p(2.912683726433558,2.411999859294686,P11) p(1.9397954988615167,2.1807240571628337,P12) p(4.786153393859214,1.824209224970569,P13) p(3.792498776428552,1.9366836721073497,P14) p(3.7914234136350116,2.936683093904614,P15) p(2.865609456248264,2.5587035755337237,P16) p(2.2109297262094687,4.162260388083977,P17) p(3.00117656992224,3.5494717409942957,P18) p(2.0753626125354927,3.1714922226234057,P19) p(4.187191758937646,3.855033471950169,P20) p(3.465127056671787,5.720140054894349,P21) p(2.838028391440628,4.941200221489163,P22) p(3.1990607425735575,4.008646930017074,P23) p(3.8261594078047167,4.787586763422259,P24) p(7,0,P25) p(5.550289209890865,1.1791538361413287,P26) p(6.277935297734141,1.8651065829441802,P27) p(8.254197330462318,1.5578796668103718,P28) p(6.63896764886707,0.9325532914720901,P29) p(7.627098665231159,0.7789398334051859,P30) p(7.26606631409823,1.711493124877276,P31) p(6.6737036430367755,2.783456960989736,P32) p(8.52533155781027,3.5394159977315156,P33) p(7.463950486749547,2.1706683139000535,P34) p(8.389764444136294,2.5486478322709436,P35) p(7.599517600423523,3.1614364793606256,P36) p(6.465127056671787,5.720140054894351,P37) p(4.465127056671787,5.72014005489435,P38) p(5.465127056671787,5.72014005489435,P39) p(7.838596724097442,4.266324016785794,P40) p(7.151861890384614,4.993232035840073,P41) p(3.965127056671788,4.854114651109912,P42) p(4.965127056671787,4.854114651109913,P43) p(5.965127056671786,4.854114651109913,P44) p(6.178973662812573,4.761956233708221,P45) p(6.8657084965254,4.035048214653942,P46) p(7.552443330238229,3.308140195599664,P47) p(5.678973662812574,3.895930829923782,P48) p(4.914837846780922,4.540986218753022,P49) p(6.672628280243236,3.783456382787002,P50) p(4.386731813640945,2.7409765898216203,P51) p(5.726855655449211,2.163442559180911,P52) p(5.327434075230942,3.080209924031962,P53) p(4.563298259199291,3.7252653128612025,P54) p(6.078395243030844,2.9791634650727303,P55) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P4,P6) s(P5,P6) s(P1,P7) s(P1,P8) s(P7,P8) s(P8,P9) s(P7,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P7,P13) s(P3,P13) s(P13,P14) s(P11,P14) s(P12,P15) s(P14,P15) s(P19,P16) s(P18,P16) s(P12,P17) s(P15,P17) s(P19,P18) s(P17,P20) s(P15,P20) s(P17,P21) s(P20,P21) s(P23,P22) s(P24,P22) s(P24,P23) s(P6,P25) s(P5,P25) s(P6,P26) s(P13,P26) s(P26,P27) s(P25,P27) s(P27,P28) s(P25,P28) s(P30,P29) s(P31,P29) s(P31,P30) s(P27,P32) s(P28,P32) s(P32,P33) s(P28,P33) s(P35,P34) s(P36,P34) s(P36,P35) s(P21,P37) s(P33,P37) s(P44,P37) s(P43,P39) s(P38,P42) s(P21,P42) s(P38,P43) s(P42,P43) s(P39,P44) s(P43,P44) s(P41,P45) s(P37,P45) s(P41,P46) s(P45,P46) s(P40,P46) s(P40,P47) s(P46,P47) s(P33,P47) s(P45,P48) s(P44,P48) s(P42,P49) s(P48,P49) s(P48,P50) s(P47,P50) s(P14,P51) s(P13,P51) s(P13,P52) s(P26,P52) s(P51,P53) s(P52,P53) s(P51,P54) s(P53,P54) s(P50,P55) s(P48,P55) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(2) color(gray) s(P20,P49) abstand(P20,P49,A0) print(abs(P20,P49):,1,7.9) print(A0,2.3,7.9) color(gray) s(P32,P50) abstand(P32,P50,A1) print(abs(P32,P50):,1,7.6) print(A1,2.3,7.6) color(blue) s(P54,P15) abstand(P54,P15,A2) print(abs(P54,P15):,1,7.3) print(A2,2.3,7.3) color(blue) s(P55,P27) abstand(P55,P27,A3) print(abs(P55,P27):,1,7) print(A3,2.3,7) color(red) s(P54,P49) abstand(P54,P49,A4) print(abs(P54,P49):,1,6.7) print(A4,2.3,6.7) color(red) s(P53,P48) abstand(P53,P48,A5) print(abs(P53,P48):,1,6.4) print(A5,2.3,6.4) color(red) s(P55,P52) abstand(P55,P52,A6) print(abs(P55,P52):,1,6.1) print(A6,2.3,6.1) \geooff \geoprint() \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,4,5); M(7,1,3,blauerWinkel); L(8,1,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); N(13,7,3); N(14,13,11); Q(15,12,14,2*D,D); H(16,12,15,2); L(17,12,15); H(18,15,17,2); H(19,12,17,2); A(18,19); A(16,19); A(16,18); Q(20,17,15,2*D,D); L(21,17,20); H(22,17,21,2); H(23,17,20,2); H(24,20,21,2); A(22,23); A(22,24); A(23,24); L(25,6,5); N(26,6,13); Q(27,26,25,D,2*D); L(28,27,25); H(29,25,27,2); H(30,25,28,2); H(31,27,28,2); A(29,30); A(29,31); A(30,31); Q(32,27,28,D,2*D); L(33,32,28); H(34,28,32,2); H(35,28,33,2); H(36,32,33,2); A(34,35); A(34,36); A(35,36); Q(37,21,33,3*D,3*D); H(38,21,37,3); H(39,37,21,3); H(40,33,37,3); H(41,37,33,3); L(42,38,21); L(43,38,42); A(39,43); L(44,39,43); A(37,44); L(45,41,37); L(46,41,45); A(46,40); L(47,40,46); A(47,33); N(48,45,44); N(49,42,48); N(50,48,47); # #//Diese Kante zum Feinjustieren: #R(20,49,"gray"); # #//und dann die spezielle Fortsetzung: #R(32,50,"gray"); L(51,49,20); L(52,32,50); L(53,15,14); L(54,26,27); R(51,52,"blue"); R(53,54,"blue"); R(51,53,"red"); R(52,54,"red"); # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(6.5,0.8660254037844386,P6) p(4.286153393859213,0.9581838211861302,P7) p(3.313265166287172,0.726908019054278,P8) p(3.5994185601463857,1.6850918402404078,P9) p(2.6265303325743448,1.4538160381085559,P10) p(2.912683726433558,2.411999859294686,P11) p(1.9397954988615167,2.1807240571628337,P12) p(4.786153393859214,1.824209224970569,P13) p(3.792498776428552,1.9366836721073497,P14) p(3.7914234136350116,2.936683093904614,P15) p(2.865609456248264,2.5587035755337237,P16) p(2.2109297262094687,4.162260388083977,P17) p(3.00117656992224,3.5494717409942957,P18) p(2.0753626125354927,3.1714922226234057,P19) p(4.187191758937646,3.855033471950169,P20) p(3.465127056671787,5.720140054894349,P21) p(2.838028391440628,4.941200221489163,P22) p(3.1990607425735575,4.008646930017074,P23) p(3.8261594078047167,4.787586763422259,P24) p(7,0,P25) p(5.550289209890865,1.1791538361413287,P26) p(6.277935297734141,1.8651065829441802,P27) p(8.254197330462318,1.5578796668103718,P28) p(6.63896764886707,0.9325532914720901,P29) p(7.627098665231159,0.7789398334051859,P30) p(7.26606631409823,1.711493124877276,P31) p(6.6737036430367755,2.783456960989736,P32) p(8.52533155781027,3.5394159977315156,P33) p(7.463950486749547,2.1706683139000535,P34) p(8.389764444136294,2.5486478322709436,P35) p(7.599517600423523,3.1614364793606256,P36) p(6.465127056671787,5.720140054894351,P37) p(4.465127056671787,5.72014005489435,P38) p(5.465127056671787,5.72014005489435,P39) p(7.838596724097442,4.266324016785794,P40) p(7.151861890384614,4.993232035840073,P41) p(3.965127056671788,4.854114651109912,P42) p(4.965127056671787,4.854114651109913,P43) p(5.965127056671786,4.854114651109913,P44) p(6.178973662812573,4.761956233708221,P45) p(6.8657084965254,4.035048214653942,P46) p(7.552443330238229,3.308140195599664,P47) p(5.678973662812574,3.895930829923782,P48) p(4.914837846780922,4.540986218753022,P49) p(6.672628280243236,3.783456382787002,P50) p(5.145067307386269,3.5678498483149554,P51) p(5.807141058593823,3.282525380390879,P52) p(4.6579859980779625,2.437614674503472,P53) p(5.320059749285519,2.152290206579394,P54) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P4,P6) s(P5,P6) s(P1,P7) s(P1,P8) s(P7,P8) s(P8,P9) s(P7,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P7,P13) s(P3,P13) s(P13,P14) s(P11,P14) s(P12,P15) s(P14,P15) s(P19,P16) s(P18,P16) s(P12,P17) s(P15,P17) s(P19,P18) s(P17,P20) s(P15,P20) s(P17,P21) s(P20,P21) s(P23,P22) s(P24,P22) s(P24,P23) s(P6,P25) s(P5,P25) s(P6,P26) s(P13,P26) s(P26,P27) s(P25,P27) s(P27,P28) s(P25,P28) s(P30,P29) s(P31,P29) s(P31,P30) s(P27,P32) s(P28,P32) s(P32,P33) s(P28,P33) s(P35,P34) s(P36,P34) s(P36,P35) s(P21,P37) s(P33,P37) s(P44,P37) s(P43,P39) s(P38,P42) s(P21,P42) s(P38,P43) s(P42,P43) s(P39,P44) s(P43,P44) s(P41,P45) s(P37,P45) s(P41,P46) s(P45,P46) s(P40,P46) s(P40,P47) s(P46,P47) s(P33,P47) s(P45,P48) s(P44,P48) s(P42,P49) s(P48,P49) s(P48,P50) s(P47,P50) s(P49,P51) s(P20,P51) s(P32,P52) s(P50,P52) s(P15,P53) s(P14,P53) s(P26,P54) s(P27,P54) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(2) color(gray) s(P20,P49) abstand(P20,P49,A0) print(abs(P20,P49):,1,7.9) print(A0,2.3,7.9) color(gray) s(P32,P50) abstand(P32,P50,A1) print(abs(P32,P50):,1,7.6) print(A1,2.3,7.6) color(blue) s(P51,P52) abstand(P51,P52,A2) print(abs(P51,P52):,1,7.3) print(A2,2.3,7.3) color(blue) s(P53,P54) abstand(P53,P54,A3) print(abs(P53,P54):,1,7) print(A3,2.3,7) color(red) s(P51,P53) abstand(P51,P53,A4) print(abs(P51,P53):,1,6.7) print(A4,2.3,6.7) color(red) s(P52,P54) abstand(P52,P54,A5) print(abs(P52,P54):,1,6.4) print(A5,2.3,6.4) \geooff \geoprint() \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,4,5); M(7,1,3,blauerWinkel); L(8,1,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); N(13,7,3); N(14,13,11); Q(15,12,14,2*D,D); H(16,12,15,2); L(17,12,15); H(18,15,17,2); H(19,12,17,2); A(18,19); A(16,19); A(16,18); Q(20,17,15,2*D,D); L(21,17,20); H(22,17,21,2); H(23,17,20,2); H(24,20,21,2); A(22,23); A(22,24); A(23,24); L(25,6,5); N(26,6,13); Q(27,26,25,D,2*D); L(28,27,25); H(29,25,27,2); H(30,25,28,2); H(31,27,28,2); A(29,30); A(29,31); A(30,31); Q(32,27,28,D,2*D); L(33,32,28); H(34,28,32,2); H(35,28,33,2); H(36,32,33,2); A(34,35); A(34,36); A(35,36); Q(37,21,33,3*D,3*D); H(38,21,37,3); H(39,37,21,3); H(40,33,37,3); H(41,37,33,3); L(42,38,21); L(43,38,42); A(39,43); L(44,39,43); A(37,44); L(45,41,37); L(46,41,45); A(46,40); L(47,40,46); A(47,33); N(48,45,44); N(49,42,48); N(50,48,47); # #//Diese Kante zum Feinjustieren: #R(20,49,"gray"); # #//und dann die spezielle Fortsetzung: #R(32,50,"gray"); N(51,49,15); L(52,50,48); N(53,51,52); L(54,14,13); N(55,52,54); N(56,27,50); N(57,54,56); N(58,51,54); R(53,57,"blue"); R(52,56,"blue"); R(58,48,"red"); R(53,49,"green"); # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(6.5,0.8660254037844386,P6) p(4.286153393859213,0.9581838211861302,P7) p(3.313265166287172,0.726908019054278,P8) p(3.5994185601463857,1.6850918402404078,P9) p(2.6265303325743448,1.4538160381085559,P10) p(2.912683726433558,2.411999859294686,P11) p(1.9397954988615167,2.1807240571628337,P12) p(4.786153393859214,1.824209224970569,P13) p(3.792498776428552,1.9366836721073497,P14) p(3.7914234136350116,2.936683093904614,P15) p(2.865609456248264,2.5587035755337237,P16) p(2.2109297262094687,4.162260388083977,P17) p(3.00117656992224,3.5494717409942957,P18) p(2.0753626125354927,3.1714922226234057,P19) p(4.187191758937646,3.855033471950169,P20) p(3.465127056671787,5.720140054894349,P21) p(2.838028391440628,4.941200221489163,P22) p(3.1990607425735575,4.008646930017074,P23) p(3.8261594078047167,4.787586763422259,P24) p(7,0,P25) p(5.550289209890865,1.1791538361413287,P26) p(6.277935297734141,1.8651065829441802,P27) p(8.254197330462318,1.5578796668103718,P28) p(6.63896764886707,0.9325532914720901,P29) p(7.627098665231159,0.7789398334051859,P30) p(7.26606631409823,1.711493124877276,P31) p(6.6737036430367755,2.783456960989736,P32) p(8.52533155781027,3.5394159977315156,P33) p(7.463950486749547,2.1706683139000535,P34) p(8.389764444136294,2.5486478322709436,P35) p(7.599517600423523,3.1614364793606256,P36) p(6.465127056671787,5.720140054894351,P37) p(4.465127056671787,5.72014005489435,P38) p(5.465127056671787,5.72014005489435,P39) p(7.838596724097442,4.266324016785794,P40) p(7.151861890384614,4.993232035840073,P41) p(3.965127056671788,4.854114651109912,P42) p(4.965127056671787,4.854114651109913,P43) p(5.965127056671786,4.854114651109913,P44) p(6.178973662812573,4.761956233708221,P45) p(6.8657084965254,4.035048214653942,P46) p(7.552443330238229,3.308140195599664,P47) p(5.678973662812574,3.895930829923782,P48) p(4.914837846780922,4.540986218753022,P49) p(6.672628280243236,3.783456382787002,P50) p(4.519069501478285,3.6226358407074675,P51) p(6.078395243030844,2.9791634650727303,P52) p(5.503661385347541,3.7975038544172066,P53) p(4.386731813640945,2.7409765898216203,P54) p(5.305062652820435,2.3451629091435873,P55) p(6.276859934940606,2.8651060047414445,P56) p(5.310764311089015,3.1232905232060606,P57) p(5.338132515235444,3.0489322765778386,P58) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P4,P6) s(P5,P6) s(P1,P7) s(P1,P8) s(P7,P8) s(P8,P9) s(P7,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P7,P13) s(P3,P13) s(P13,P14) s(P11,P14) s(P12,P15) s(P14,P15) s(P19,P16) s(P18,P16) s(P12,P17) s(P15,P17) s(P19,P18) s(P17,P20) s(P15,P20) s(P17,P21) s(P20,P21) s(P23,P22) s(P24,P22) s(P24,P23) s(P6,P25) s(P5,P25) s(P6,P26) s(P13,P26) s(P26,P27) s(P25,P27) s(P27,P28) s(P25,P28) s(P30,P29) s(P31,P29) s(P31,P30) s(P27,P32) s(P28,P32) s(P32,P33) s(P28,P33) s(P35,P34) s(P36,P34) s(P36,P35) s(P21,P37) s(P33,P37) s(P44,P37) s(P43,P39) s(P38,P42) s(P21,P42) s(P38,P43) s(P42,P43) s(P39,P44) s(P43,P44) s(P41,P45) s(P37,P45) s(P41,P46) s(P45,P46) s(P40,P46) s(P40,P47) s(P46,P47) s(P33,P47) s(P45,P48) s(P44,P48) s(P42,P49) s(P48,P49) s(P48,P50) s(P47,P50) s(P49,P51) s(P15,P51) s(P50,P52) s(P48,P52) s(P51,P53) s(P52,P53) s(P14,P54) s(P13,P54) s(P52,P55) s(P54,P55) s(P27,P56) s(P50,P56) s(P54,P57) s(P56,P57) s(P51,P58) s(P54,P58) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(2) color(gray) s(P20,P49) abstand(P20,P49,A0) print(abs(P20,P49):,1,7.9) print(A0,2.3,7.9) color(gray) s(P32,P50) abstand(P32,P50,A1) print(abs(P32,P50):,1,7.6) print(A1,2.3,7.6) color(blue) s(P53,P57) abstand(P53,P57,A2) print(abs(P53,P57):,1,7.3) print(A2,2.3,7.3) color(blue) s(P52,P56) abstand(P52,P56,A3) print(abs(P52,P56):,1,7) print(A3,2.3,7) color(red) s(P58,P48) abstand(P58,P48,A4) print(abs(P58,P48):,1,6.7) print(A4,2.3,6.7) color(green) s(P53,P49) abstand(P53,P49,A5) print(abs(P53,P49):,1,6.4) print(A5,2.3,6.4) \geooff \geoprint() \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,4,5); M(7,1,3,blauerWinkel); L(8,1,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); N(13,7,3); N(14,13,11); Q(15,12,14,2*D,D); H(16,12,15,2); L(17,12,15); H(18,15,17,2); H(19,12,17,2); A(18,19); A(16,19); A(16,18); Q(20,17,15,2*D,D); L(21,17,20); H(22,17,21,2); H(23,17,20,2); H(24,20,21,2); A(22,23); A(22,24); A(23,24); L(25,6,5); N(26,6,13); Q(27,26,25,D,2*D); L(28,27,25); H(29,25,27,2); H(30,25,28,2); H(31,27,28,2); A(29,30); A(29,31); A(30,31); Q(32,27,28,D,2*D); L(33,32,28); H(34,28,32,2); H(35,28,33,2); H(36,32,33,2); A(34,35); A(34,36); A(35,36); Q(37,21,33,3*D,3*D); H(38,21,37,3); H(39,37,21,3); H(40,33,37,3); H(41,37,33,3); L(42,38,21); L(43,38,42); A(39,43); L(44,39,43); A(37,44); L(45,41,37); L(46,41,45); A(46,40); L(47,40,46); A(47,33); N(48,45,44); N(49,42,48); N(50,48,47); # #//Diese Kante zum Feinjustieren: #R(20,49,"gray"); # #//und dann die spezielle Fortsetzung: #R(32,50,"gray"); N(51,49,15); N(52,27,50); N(53,51,52); N(54,52,51); N(55,51,14); N(56,26,52); N(57,55,56); R(55,56,"red"); R(53,49,"green"); R(53,50,"green"); R(57,51,"green"); R(57,52,"green"); # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(6.5,0.8660254037844386,P6) p(4.286153393859213,0.9581838211861302,P7) p(3.313265166287172,0.726908019054278,P8) p(3.5994185601463857,1.6850918402404078,P9) p(2.6265303325743448,1.4538160381085559,P10) p(2.912683726433558,2.411999859294686,P11) p(1.9397954988615167,2.1807240571628337,P12) p(4.786153393859214,1.824209224970569,P13) p(3.792498776428552,1.9366836721073497,P14) p(3.7914234136350116,2.936683093904614,P15) p(2.865609456248264,2.5587035755337237,P16) p(2.2109297262094687,4.162260388083977,P17) p(3.00117656992224,3.5494717409942957,P18) p(2.0753626125354927,3.1714922226234057,P19) p(4.187191758937646,3.855033471950169,P20) p(3.465127056671787,5.720140054894349,P21) p(2.838028391440628,4.941200221489163,P22) p(3.1990607425735575,4.008646930017074,P23) p(3.8261594078047167,4.787586763422259,P24) p(7,0,P25) p(5.550289209890865,1.1791538361413287,P26) p(6.277935297734141,1.8651065829441802,P27) p(8.254197330462318,1.5578796668103718,P28) p(6.63896764886707,0.9325532914720901,P29) p(7.627098665231159,0.7789398334051859,P30) p(7.26606631409823,1.711493124877276,P31) p(6.6737036430367755,2.783456960989736,P32) p(8.52533155781027,3.5394159977315156,P33) p(7.463950486749547,2.1706683139000535,P34) p(8.389764444136294,2.5486478322709436,P35) p(7.599517600423523,3.1614364793606256,P36) p(6.465127056671787,5.720140054894351,P37) p(4.465127056671787,5.72014005489435,P38) p(5.465127056671787,5.72014005489435,P39) p(7.838596724097442,4.266324016785794,P40) p(7.151861890384614,4.993232035840073,P41) p(3.965127056671788,4.854114651109912,P42) p(4.965127056671787,4.854114651109913,P43) p(5.965127056671786,4.854114651109913,P44) p(6.178973662812573,4.761956233708221,P45) p(6.8657084965254,4.035048214653942,P46) p(7.552443330238229,3.308140195599664,P47) p(5.678973662812574,3.895930829923782,P48) p(4.914837846780922,4.540986218753022,P49) p(6.672628280243236,3.783456382787002,P50) p(4.519069501478285,3.6226358407074675,P51) p(6.276859934940606,2.8651060047414445,P52) p(5.512724118908945,3.5101613935706735,P53) p(5.283205317509945,2.9775804518782376,P54) p(4.520144864271825,2.622636418910203,P55) p(5.549213847097331,2.179153257938593,P56) p(5.362495240942207,3.161566695405471,P57) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P4,P6) s(P5,P6) s(P1,P7) s(P1,P8) s(P7,P8) s(P8,P9) s(P7,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P7,P13) s(P3,P13) s(P13,P14) s(P11,P14) s(P12,P15) s(P14,P15) s(P19,P16) s(P18,P16) s(P12,P17) s(P15,P17) s(P19,P18) s(P17,P20) s(P15,P20) s(P17,P21) s(P20,P21) s(P23,P22) s(P24,P22) s(P24,P23) s(P6,P25) s(P5,P25) s(P6,P26) s(P13,P26) s(P26,P27) s(P25,P27) s(P27,P28) s(P25,P28) s(P30,P29) s(P31,P29) s(P31,P30) s(P27,P32) s(P28,P32) s(P32,P33) s(P28,P33) s(P35,P34) s(P36,P34) s(P36,P35) s(P21,P37) s(P33,P37) s(P44,P37) s(P43,P39) s(P38,P42) s(P21,P42) s(P38,P43) s(P42,P43) s(P39,P44) s(P43,P44) s(P41,P45) s(P37,P45) s(P41,P46) s(P45,P46) s(P40,P46) s(P40,P47) s(P46,P47) s(P33,P47) s(P45,P48) s(P44,P48) s(P42,P49) s(P48,P49) s(P48,P50) s(P47,P50) s(P49,P51) s(P15,P51) s(P27,P52) s(P50,P52) s(P51,P53) s(P52,P53) s(P52,P54) s(P51,P54) s(P51,P55) s(P14,P55) s(P26,P56) s(P52,P56) s(P55,P57) s(P56,P57) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(2) color(gray) s(P20,P49) abstand(P20,P49,A0) print(abs(P20,P49):,1,7.9) print(A0,2.3,7.9) color(gray) s(P32,P50) abstand(P32,P50,A1) print(abs(P32,P50):,1,7.6) print(A1,2.3,7.6) color(red) s(P55,P56) abstand(P55,P56,A2) print(abs(P55,P56):,1,7.3) print(A2,2.3,7.3) color(green) s(P53,P49) abstand(P53,P49,A3) print(abs(P53,P49):,1,7) print(A3,2.3,7) color(green) s(P53,P50) abstand(P53,P50,A4) print(abs(P53,P50):,1,6.7) print(A4,2.3,6.7) color(green) s(P57,P51) abstand(P57,P51,A5) print(abs(P57,P51):,1,6.4) print(A5,2.3,6.4) color(green) s(P57,P52) abstand(P57,P52,A6) print(abs(P57,P52):,1,6.1) print(A6,2.3,6.1) \geooff \geoprint() Im Quelltext dieser Zeichnungen steht auch wieder, wie ich die zusätzlichen Kanten eingegeben habe, zum Vergleichen mit eigenen Versuchen.


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8894
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.198, vom Themenstarter, eingetragen 2016-04-23

Hi Stefan, danke für deine ausführlichen Erklärungen! Ich werde mich die nächsten Tage mal eingehend mit deinem Programm beschäftgen. Das hatte ich bis jetzt nicht getan. Gruß, Slash Hier noch eine weitere Harborth-Variation mit Anwendungen. http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_Harborth-Winkler-Variante_2.png Die neue Verbindungskante hat nicht exakt Einheitslänge, das geht aber. Oben rechts zwischen den zwei 6er Knoten ergibt sich eine senkrechte Kante von fast genau 2 Einheitslängen. Ob diese exakt 2 ist, wenn die neue Verbindungskante exakt 1 ist, kann ich jetzt nur vermuten.


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 4074
Wohnort: Raun
  Beitrag No.199, eingetragen 2016-04-24

Hallo Slash, als "neue Verbindungskante" habe ich die Strecke P10,P14 (aus Bild unten) angenommen und für die "senkrechte Kante von fast genau 2 Einheitslängen" die Strecke P10,P51. Ohne Programmergänzungen (ich habs ja gesagt) bin ich nicht ausgekommen und habe schon wieder ein neuer Notizbucheintrag angelegt: Streichholzgraph-198.htm. Bei der Eingabe der Punkte P16 und P29 bin ich erst nicht weiter gekommen und habe deshalb ergänzt, dass man auch gezeichnete Kanten entfernen kann und dass man als Entfernungen nicht nur Zahlen sondern auch Abstände anderer veränderlicher Punkte eingeben kann. Konkret, Abstand P16,P10 gebe ich jetzt als "gleich zu Abstand P14,P10 ein", egal wie groß P14,P10 ist, und Abstände P29,P25 und P29,P5 gleich zu P15,P25 und P15,P5, alles wegen der Symmetrie. Danach muss ich die daraufhin gezeichneten Kanten wie P29,P25 wieder entfernen, weil ich allein nur den Punkt P29 benötige. Außerdem wird jetzt mit jeder Leertaste und jedem Enter im Eingabefeld das Bild neu gezeichnet, da muss man nicht immer wieder das Eingabefenster verlassen um "neu zeichnen" zu drücken. Ergebnis nach dem Öffnen des Programms und Klick auf "Feinjustieren" ist der nachfolgende Graph, du kannst auch vorher noch die beiden letzten roten Kanten tauschen, dann wird auf P10,P14 gleich 1 justiert. \geo ebene(500,500) xy(0,8.4) form(.) #Eingabe war: #D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,3,2); L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel); N(8,7,6); L(9,8,6); L(10,8,9); L(11,1,7); L(12,11,7); L(13,11,12); L(14,13,12); L(15,13,14); Q(16,15,10,D,ab(14,10)); A(10,16); L(17,15,16); L(18,17,16); L(19,17,18); L(20,19,18); L(21,19,20); N(22,20,10); L(23,22,10); L(24,22,23); L(25,21,24); H(26,21,25,2); H(27,24,25,2); H(28,21,24,2); A(26,27); A(26,28); A(27,28); A(21,24); Q(29,25,5,ab(25,15),ab(15,5)); A(25,29); A(29,5); Q(30,25,29,2*D,3*D); Q(31,29,5,3*D,2*D); H(32,25,30,2); H(33,30,29,3); H(34,29,30,3); H(35,29,31,3); H(36,31,29,3); H(37,5,31,2); L(38,32,25); L(39,30,32); A(38,39); L(40,33,30); L(41,34,33); A(41,40); L(42,29,34); A(41,42); L(43,35,29); L(44,36,35); A(43,44); L(45,31,36); A(44,45); L(46,37,31); L(47,5,37); A(46,47); L(48,39,38); N(49,40,48); L(50,49,48); L(51,49,50); L(52,47,46); N(53,45,51); N(56,52,53); A(51,56); A(52,53); R(10,51); R(10,14); # # #Ende der Eingabe, weiter mit fedgeo: p(4,0,P1) p(5,0,P2) p(4.5,0.8660254037844386,P3) p(5.5,0.8660254037844386,P4) p(6,0,P5) p(5,1.7320508075688772,P6) p(4.259321836095545,0.9657909635754703,P7) p(4.021234664450791,1.9370347531042382,P8) p(4.6881386364269835,2.682178425265773,P9) p(3.7093733008777745,2.887162370801134,P10) p(3.293261408845964,0.7074747796025016,P11) p(3.552583244941509,1.673265743177972,P12) p(2.586522817691928,1.4149495592050032,P13) p(2.8458446537874726,2.3807405227804734,P14) p(1.8797842265378915,2.122424338807505,P15) p(2.7423149322424822,2.628429063801986,P16) p(1.8728366331100075,3.1224002039890406,P17) p(2.735367338814598,3.628404928983522,P18) p(1.865889039682123,4.122376069170576,P19) p(2.7284197453867134,4.628380794165057,P20) p(1.8589414462542386,5.122351934352111,P21) p(3.2523249851336944,3.776604239095796,P22) p(4.251128396138405,3.727698757139729,P23) p(3.794080080394325,4.617140625434391,P24) p(3.2640365911262155,6.545625496903288,P25) p(2.561489018690227,5.8339887156277,P26) p(3.5290583357602703,5.5813830611688395,P27) p(2.826510763324282,4.869746279893252,P28) p(7.384252364588313,4.423201158095808,P29) p(5.2640365911262155,6.545625496903323,P30) p(7.40509514487198,1.423273562551201,P31) p(4.2640365911262155,6.545625496903305,P32) p(5.970775182280248,5.838150717300818,P33) p(6.67751377343428,5.130675937698313,P34) p(7.391199958016202,3.423225292914272,P35) p(7.398147551444091,2.4232494277327365,P36) p(6.702547572435989,0.7116367812756005,P37) p(3.764036591126231,5.679600093118857,P38) p(4.76403659112623,5.679600093118876,P39) p(5.004714755030665,5.579834533327853,P40) p(5.711453346184699,4.872359753725349,P41) p(6.41819193733873,4.164884974122844,P42) p(6.521721658883724,3.917196433101322,P43) p(6.528669252311614,2.9172205679197867,P44) p(6.5356168457395025,1.9172447027382509,P45) p(6.437525827801925,1.6758792170100565,P46) p(5.7349782553659345,0.9642424357344556,P47) p(4.264036591126247,4.813574689334429,P48) p(5.242801926675462,4.608590743799095,P49) p(4.575897954699289,3.863447071637541,P50) p(5.554663290248504,3.658463126102207,P51) p(5.469956510731869,1.9284848714689113,P52) p(6.011711605992525,2.7690212578075135,P53) p(5.012908194987814,2.8179267397635863,P56) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P3,P6) s(P4,P6) s(P1,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P1,P11) s(P7,P11) s(P11,P12) s(P7,P12) s(P11,P13) s(P12,P13) s(P13,P14) s(P12,P14) s(P13,P15) s(P14,P15) s(P15,P16) s(P15,P17) s(P16,P17) s(P17,P18) s(P16,P18) s(P17,P19) s(P18,P19) s(P19,P20) s(P18,P20) s(P19,P21) s(P20,P21) s(P24,P21) s(P20,P22) s(P10,P22) s(P22,P23) s(P10,P23) s(P22,P24) s(P23,P24) s(P21,P25) s(P24,P25) s(P27,P26) s(P28,P26) s(P28,P27) s(P25,P30) s(P29,P30) s(P29,P31) s(P5,P31) s(P32,P38) s(P25,P38) s(P39,P38) s(P30,P39) s(P32,P39) s(P33,P40) s(P30,P40) s(P34,P41) s(P33,P41) s(P40,P41) s(P42,P41) s(P29,P42) s(P34,P42) s(P35,P43) s(P29,P43) s(P44,P43) s(P36,P44) s(P35,P44) s(P45,P44) s(P31,P45) s(P36,P45) s(P37,P46) s(P31,P46) s(P47,P46) s(P5,P47) s(P37,P47) s(P39,P48) s(P38,P48) s(P40,P49) s(P48,P49) s(P49,P50) s(P48,P50) s(P49,P51) s(P50,P51) s(P56,P51) s(P47,P52) s(P46,P52) s(P53,P52) s(P45,P53) s(P51,P53) s(P52,P56) s(P53,P56) color(blue) pen(2) s(P1,P3) m(P3,P1,MA1) m(P1,P7,MB1) f(P1,MA1,MB1) color(red) pen(2) s(P10,P51) abstand(P10,P51,A0) print(abs(P10,P51):,1,7.9) print(A0,2.3,7.9) s(P10,P14) abstand(P10,P14,A1) print(abs(P10,P14):,1,7.6) print(A1,2.3,7.6) \geooff \geoprint() Bei Abstand P10,P51 gleich 2 ist Abstand P10,P14 nur 0,1% von der 1 entfernt, das ist auf jeden Fall eine Rekordnäherung!!!


   Profil
-->> Fortsetzung auf der nächsten Seite -->>
Seite 5Gehe zur Seite: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61  

Wechsel in ein anderes Forum:
 Suchen    
 
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]