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 17   [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]   54 Seiten
Autor
Kein bestimmter Bereich Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 3936
Wohnort: Raun
  Beitrag No.640, eingetragen 2017-01-07

\quoteon(2016-12-10 08:19 - Slash in Beitrag No. 632) Wäre es nicht besser(?) die Kanten der gleichseitigen Dreiecke des Rahmens immer auf 1 zu lassen? Oder würde das den Sinn/Ablauf des Programms über den Haufen werfen? \quoteoff Das geht jetzt zu machen mit Streichholzgraph-640.htm Button "neue Eingabe, Rahmen zuerst" . Ich zeichne damit den Rahmen aus gleichseitigen Dreiecken zuerst. Dadurch wird gewährleistet, dass am Schluss keine Kanten des Rahmens als zu justierende Kanten übrigbleiben. Auch die inneren Punkte zeichne ich ebenenweise von außen nach innen wie in #221 beschrieben. Als Eingabebeispiel habe ich den 4/4 mit 108 Kanten genommen. Mit dem blauen Winkel wird der Teilgraph P1 bis P14 näherungsweise gezeichnet und daraus zweimal gespiegelt der gesamte Graph erzeugt. \geo ebene(307.64,400.85) x(7.56,13.71) y(10,18.02) form(.) #//Eingabe war: # #4/4 mit 108 # # # #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,3); N(13,7,6); N(14,11,13); A(12,14,ab(12,14,[1,14],"gespiegelt")); A(5,19,ab(5,19,[1,26],"gespiegelt")); N(51,44,20); N(52,6,31); N(53,26,13); N(54,38,50); A(53,51); R(53,51); A(54,51); R(54,51); A(53,52); R(53,52); A(54,52), R(54,52); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,10,P2) p(10.5,10.86602540378444,P3) p(11.5,10.86602540378444,P4) p(12,10,P5) p(11,11.732050807568877,P6) p(10.17364817766693,10.984807753012207,P7) p(9.233955556881021,10.64278760968654,P8) p(9.407603734547953,11.627595362698747,P9) p(8.467911113762044,11.28557521937308,P10) p(8.641559291428974,12.270382972385287,P11) p(7.701866670643066,11.928362829059617,P12) p(10.02981327149185,11.974409450547942,P13) p(9.482578331080155,12.811388494486682,P14) p(7.5578216529374185,14.924902672424658,P15) p(8.163086252228988,15.720927021828881,P16) p(8.549831261198241,14.798740328128861,P17) p(9.155095860489809,15.594764677533085,P18) p(8.768350851520555,16.516951371233105,P19) p(9.541840869459062,14.672577983833065,P20) p(8.446855698490483,14.467061580071041,P21) p(7.605836658839301,13.926056057969644,P22) p(8.494870704392365,13.468214965616026,P23) p(7.653851664741184,12.92720944351463,P24) p(8.542885710294247,12.469368351161014,P25) p(9.14754456909048,13.753594617544184,P26) p(13.210529198583137,11.592048698808448,P27) p(12.60526459929157,10.796024349404224,P28) p(12.218519590322314,11.718211043104242,P29) p(11.613254991030747,10.922186693700018,P30) p(11.226509982061494,11.844373387400038,P31) p(12.321495153030073,12.049889791162064,P32) p(13.162514192681254,12.59089531326346,P33) p(12.27348014712819,13.048736405617078,P34) p(13.114499186779371,13.589741927718473,P35) p(12.225465141226309,14.04758302007209,P36) p(13.06648418087749,14.588588542173486,P37) p(11.620806282430078,12.763356753688921,P38) p(11.285772520440398,13.70556287674642,P39) p(10.76835085152055,16.516951371233105,P40) p(9.76835085152055,16.5169513712331,P41) p(10.268350851520553,15.650925967448666,P42) p(9.26835085152055,15.650925967448664,P43) p(9.76835085152059,14.784900563664245,P44) p(10.594702673853627,15.532143618220896,P45) p(11.534395294639534,15.874163761546566,P46) p(11.3607471169726,14.889356008534355,P47) p(12.30043973775851,15.231376151860026,P48) p(12.126791560091581,14.246568398847819,P49) p(10.738537580028703,14.542541920685162,P50) p(10.095792592800416,13.840029193546789,P51) p(10.672558258720155,12.676922177686325,P52) p(9.694779509502172,12.91661557360544,P53) p(11.073571342018386,13.600335797627665,P54) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P28,P5) s(P30,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(P24,P12) s(P25,P12) s(P7,P13) s(P6,P13) s(P11,P14) s(P13,P14) s(P25,P14) s(P26,P14) s(P15,P16) s(P15,P17) s(P16,P17) s(P16,P18) s(P17,P18) s(P16,P19) s(P18,P19) s(P41,P19) s(P43,P19) s(P17,P20) s(P18,P20) s(P15,P21) s(P15,P22) s(P21,P22) s(P21,P23) s(P22,P23) s(P22,P24) s(P23,P24) s(P23,P25) s(P24,P25) s(P20,P26) s(P21,P26) s(P27,P28) s(P27,P29) s(P28,P29) s(P28,P30) s(P29,P30) s(P29,P31) s(P30,P31) s(P27,P32) s(P27,P33) s(P32,P33) s(P32,P34) s(P33,P34) s(P33,P35) s(P34,P35) s(P34,P36) s(P35,P36) s(P35,P37) s(P36,P37) s(P48,P37) s(P49,P37) s(P31,P38) s(P32,P38) s(P36,P39) s(P38,P39) s(P49,P39) s(P50,P39) s(P40,P41) s(P40,P42) s(P41,P42) s(P41,P43) s(P42,P43) s(P42,P44) s(P43,P44) s(P40,P45) s(P40,P46) s(P45,P46) s(P45,P47) s(P46,P47) s(P46,P48) s(P47,P48) s(P47,P49) s(P48,P49) s(P44,P50) s(P45,P50) s(P44,P51) s(P20,P51) s(P6,P52) s(P31,P52) s(P26,P53) s(P13,P53) s(P51,P53) s(P52,P53) s(P38,P54) s(P50,P54) s(P51,P54) s(P52,P54) pen(2) color(#0000FF) m(P3,P1,MA10) m(P1,P7,MB10) b(P1,MA10,MB10) pen(2) color(red) s(P53,P51) abstand(P53,P51,A0) print(abs(P53,P51):,7.56,18.017) print(A0,8.86,18.017) color(red) s(P54,P51) abstand(P54,P51,A1) print(abs(P54,P51):,7.56,17.717) print(A1,8.86,17.717) color(red) s(P53,P52) abstand(P53,P52,A2) print(abs(P53,P52):,7.56,17.417) print(A2,8.86,17.417) color(red) s(P54,P52) abstand(P54,P52,A3) print(abs(P54,P52):,7.56,17.117) print(A3,8.86,17.117) \geooff \geoprint() Die vier inneren Kanten sind nicht exakt 1 und sollen justiert werden. Die bisherige Eingabe lässt nur symmetrische Lösungen zu, deshalb jetzt den Button "neue Eingabe, Rahmen zuerst" drücken (anschließender Button "Übernehmen" ist nicht mehr erforderlich). Es entsteht folgender Graph, in dem zuerst der Rahmen vollständig gezeichnet wird, mit entsprechend vielen Winkeln. \geo ebene(307.64,460.85) x(7.56,13.71) y(10,19.22) form(.) #//Eingabe war: # #4/4 mit 108 # # # # # # # #D=49.99999999999999; P[1]=[0,0]; P[8]=[-0.7660444431189779*D,0.6427876096865393*D]; A(8,1); N(7,8,1); N(9,8,7); N(10,8,9); N(11,10,9); N(12,10,11); M(25,12,10,blauerWinkel); N(24,12,25); N(23,24,25); N(22,24,23); N(21,22,23); N(15,22,21); M(17,15,22,gruenerWinkel); N(16,15,17); N(18,16,17); N(19,16,18); M(43,19,16,orangerWinkel); N(41,19,43); N(42,41,43); N(40,41,42); M(46,40,41,vierterWinkel); N(45,46,40); N(47,46,45); N(48,46,47); N(49,48,47); N(37,48,49); M(36,37,48,fuenfterWinkel); N(35,37,36); N(34,35,36); N(33,35,34); N(32,33,34); N(27,33,32); Q(5,27,1,2*D,2*D); A(5,27); A(5,1); H(2,1,5,2); A(2,1); L(3,1,2); H(28,27,5,2); A(28,27); L(29,28,27); A(28,5); L(30,5,28); A(30,29); A(2,5); L(4,2,5); A(3,4); N(6,3,4); N(13,7,6); N(14,25,13); N(20,18,17); N(26,20,21); N(31,30,29); N(38,31,32); N(39,38,49); N(44,42,43); N(50,45,44); N(51,44,20); N(52,6,31); N(53,26,13); N(54,38,50); #A(14,11); R(14,11,"green"); #A(26,14); R(26,14,"green"); #A(39,36); R(39,36,"green"); #A(50,39); R(50,39,"green"); #A(53,51); R(53,51,"green",jam(1.0067294604160295)*D); #A(53,52); R(53,52,"green",jam(1.0067294604160149)*D); #A(54,51); R(54,51,"green",jam(1.0067294604160044)*D); #A(54,52); R(54,52,"green",jam(1.006729460416016)*D); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,9.999999999999991,P2) p(10.500000000000007,10.866025403784434,P3) p(11.500000000000007,10.866025403784425,P4) p(12,9.999999999999982,P5) p(11.000000000000016,11.732050807568868,P6) p(10.17364817766693,10.984807753012209,P7) p(9.233955556881021,10.64278760968654,P8) p(9.407603734547953,11.627595362698747,P9) p(8.467911113762044,11.28557521937308,P10) p(8.641559291428974,12.270382972385287,P11) p(7.701866670643065,11.928362829059617,P12) p(10.029813271491868,11.974409450547945,P13) p(9.482578331080159,12.811388494486675,P14) p(7.557821652937417,14.924902672424658,P15) p(8.163086252228984,15.720927021828881,P16) p(8.549831261198237,14.798740328128863,P17) p(9.155095860489807,15.594764677533087,P18) p(8.768350851520553,16.516951371233105,P19) p(9.54184086945906,14.672577983833069,P20) nolabel() p(8.446855698490479,14.467061580071043,P21) p(7.605836658839298,13.926056057969646,P22) p(8.494870704392362,13.468214965616028,P23) p(7.6538516647411825,12.92720944351463,P24) p(8.542885710294247,12.469368351161016,P25) p(9.147544569090478,13.753594617544184,P26) p(13.210529198583128,11.592048698808437,P27) p(12.605264599291564,10.79602434940421,P28) p(12.218519590322305,11.718211043104226,P29) p(11.613254991030741,10.922186693699999,P30) p(11.226509982061481,11.844373387400015,P31) p(12.321495153030064,12.049889791162055,P32) p(13.162514192681247,12.59089531326345,P33) p(12.273480147128184,13.04873640561707,P34) p(13.114499186779367,13.589741927718464,P35) p(12.225465141226305,14.047583020072082,P36) p(13.066484180877488,14.588588542173477,P37) p(11.620806282430056,12.763356753688903,P38) p(11.2857725204404,13.70556287674641,P39) p(10.768350851520553,16.516951371233098,P40) p(9.768350851520553,16.5169513712331,P41) p(10.268350851520548,15.65092596744866,P42) p(9.268350851520548,15.650925967448664,P43) p(9.768350851520545,14.784900563664223,P44) p(10.594702673853622,15.532143618220887,P45) p(11.53439529463953,15.874163761546557,P46) p(11.3607471169726,14.88935600853435,P47) p(12.30043973775851,15.231376151860017,P48) p(12.12679156009158,14.24656839884781,P49) p(10.738537580028693,14.542541920685153,P50) p(10.095792592800393,13.840029193546776,P51) p(10.672558258720157,12.676922177686311,P52) p(9.69477950950215,12.91661557360543,P53) p(11.073571342018383,13.600335797627658,P54) nolabel() s(P1,P2) s(P5,P2) s(P1,P3) s(P2,P3) s(P4,P3) s(P2,P4) s(P5,P4) s(P3,P6) s(P4,P6) s(P8,P7) s(P1,P7) s(P1,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(P25,P14) s(P13,P14) s(P11,P14) s(P22,P15) s(P21,P15) s(P15,P16) s(P17,P16) s(P15,P17) s(P16,P18) s(P17,P18) s(P16,P19) s(P18,P19) s(P18,P20) s(P17,P20) s(P22,P21) s(P23,P21) s(P24,P22) s(P23,P22) s(P24,P23) s(P25,P23) s(P12,P24) s(P25,P24) s(P12,P25) s(P20,P26) s(P21,P26) s(P14,P26) s(P33,P27) s(P32,P27) s(P27,P28) s(P5,P28) s(P28,P29) s(P27,P29) s(P5,P30) s(P28,P30) s(P29,P30) s(P30,P31) s(P29,P31) s(P33,P32) s(P34,P32) s(P35,P33) s(P34,P33) s(P35,P34) s(P36,P34) s(P37,P35) s(P36,P35) s(P37,P36) s(P48,P37) s(P49,P37) s(P31,P38) s(P32,P38) s(P38,P39) s(P49,P39) s(P36,P39) s(P41,P40) s(P42,P40) s(P19,P41) s(P43,P41) s(P41,P42) s(P43,P42) s(P19,P43) s(P42,P44) s(P43,P44) s(P46,P45) s(P40,P45) s(P40,P46) s(P46,P47) s(P45,P47) s(P46,P48) s(P47,P48) s(P48,P49) s(P47,P49) s(P45,P50) s(P44,P50) s(P39,P50) s(P44,P51) s(P20,P51) s(P6,P52) s(P31,P52) s(P26,P53) s(P13,P53) s(P51,P53) s(P52,P53) s(P38,P54) s(P50,P54) s(P51,P54) s(P52,P54) pen(2) color(#0000FF) m(P10,P12,MA10) m(P12,P25,MB10) b(P12,MA10,MB10) color(#008000) m(P22,P15,MA11) m(P15,P17,MB11) b(P15,MA11,MB11) color(#FFA500) m(P16,P19,MA12) m(P19,P43,MB12) b(P19,MA12,MB12) color(#EE82EE) m(P41,P40,MA13) m(P40,P46,MB13) b(P40,MA13,MB13) color(#00FFFF) m(P48,P37,MA14) m(P37,P36,MB14) b(P37,MA14,MB14) pen(2) color(#008000) s(P14,P11) abstand(P14,P11,A18) print(abs(P14,P11):,7.56,19.217) print(A18,8.86,19.217) color(#008000) s(P26,P14) abstand(P26,P14,A18) print(abs(P26,P14):,7.56,18.917) print(A18,8.86,18.917) color(#008000) s(P39,P36) abstand(P39,P36,A18) print(abs(P39,P36):,7.56,18.617) print(A18,8.86,18.617) color(#008000) s(P50,P39) abstand(P50,P39,A18) print(abs(P50,P39):,7.56,18.317) print(A18,8.86,18.317) color(#008000) s(P53,P51) abstand(P53,P51,A18) print(abs(P53,P51):,7.56,18.017) print(A18,8.86,18.017) color(#008000) s(P53,P52) abstand(P53,P52,A18) print(abs(P53,P52):,7.56,17.717) print(A18,8.86,17.717) color(#008000) s(P54,P51) abstand(P54,P51,A18) print(abs(P54,P51):,7.56,17.417) print(A18,8.86,17.417) color(#008000) s(P54,P52) abstand(P54,P52,A18) print(abs(P54,P52):,7.56,17.117) print(A18,8.86,17.117) \geooff \geoprint() Jetzt wäre das Justieren dran. Da passiert aber nicht viel, weil der Graph schon fast stimmt. Deshalb kann man vorher mit Button "innere Punkte zufällig verschieben" die inneren Punkte noch etwas mehr durcheinanderbringen \geo ebene(307.64,460.85) x(7.56,13.71) y(10,19.22) form(.) #//Eingabe war: # #4/4 mit 108 # # # # # # # #D=49.99999999999999; P[5]=[2*D,-1.7905676941154528e-14*D]; P[2]=[D,-8.952838470577264e-15*D]; A(2,5); N(4,2,5); N(3,2,4); N(1,2,3); M(8,1,2,blauerWinkel); N(7,8,1); N(9,8,7); N(10,8,9); N(11,10,9); N(12,10,11); M(25,12,10,gruenerWinkel); N(24,12,25); N(23,24,25); N(22,24,23); N(21,22,23); N(15,22,21); M(17,15,22,orangerWinkel); N(16,15,17); N(18,16,17); N(19,16,18); M(43,19,16,vierterWinkel); N(41,19,43); N(42,41,43); N(40,41,42); M(46,40,41,fuenfterWinkel); N(45,46,40); N(47,46,45); N(48,46,47); N(49,48,47); N(37,48,49); Q(27,37,5,3*D,2*D); A(27,37); A(27,5); H(28,5,27,2); A(28,5); L(30,5,28); H(35,37,27,3); A(35,37); L(36,35,37); H(33,37,27,3/2); A(35,33); L(34,33,35); A(34,36); A(33,27); L(32,27,33); A(32,34); A(28,27); L(29,28,27); A(30,29); Q(6,3,4,jam(0.9128379645288173)*D,jam(0.9169632418187217)*D); Q(13,7,6,jam(1.0453353653628)*D,jam(1.043813915661859)*D); Q(14,25,13,jam(1.054237238642782)*D,jam(1.22764640065006)*D); Q(20,18,17,jam(1.123355353893978)*D,jam(1.0093615255875688)*D); Q(26,20,21,jam(0.781240581635497)*D,jam(0.8616617751711628)*D); Q(31,30,29,jam(1.1577597942023024)*D,jam(1.0572986707320737)*D); Q(38,31,32,jam(0.7392307350692582)*D,jam(0.9985762876213155)*D); Q(39,38,49,jam(0.9034019113724676)*D,jam(1.132733498726069)*D); Q(44,42,43,jam(1.1172627179224037)*D,jam(1.129222920809533)*D); Q(50,45,44,jam(0.7273147694309011)*D,jam(0.9632809070783972)*D); Q(51,44,20,jam(0.7084951705483249)*D,jam(0.7762606677681698)*D); Q(52,6,31,jam(1.3163474506491788)*D,jam(1.059509621602938)*D); Q(53,26,13,jam(1.2701041661124148)*D,jam(0.8240541048409054)*D); Q(54,38,50,jam(1.049788440476683)*D,jam(1.2713346023906054)*D); #A(14,11); R(14,11,"green",jam(1.1103465794888194)*D); #A(26,14); R(26,14,"green",jam(0.8706743175870776)*D); #A(39,36); R(39,36,"green",jam(1.1029452848940486)*D); #A(50,39); R(50,39,"green",jam(1.3970406890834726)*D); #A(53,51); R(53,51,"green",jam(1.2994404827871844)*D); #A(53,52); R(53,52,"green",jam(0.9405851403364318)*D); #A(54,51); R(54,51,"green",jam(1.0195669606177464)*D); #A(54,52); R(54,52,"green",jam(0.7880575805021399)*D); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,9.999999999999991,P2) p(10.500000000000007,10.866025403784434,P3) p(11.500000000000007,10.866025403784425,P4) p(12,9.999999999999982,P5) p(10.996225781319222,11.632206272404403,P6) p(10.173648177666932,10.984807753012207,P7) p(9.233955556881023,10.64278760968654,P8) p(9.407603734547953,11.627595362698747,P9) p(8.467911113762044,11.28557521937308,P10) p(8.641559291428976,12.270382972385287,P11) p(7.701866670643067,11.928362829059619,P12) p(10.027046093870439,12.019812030831726,P13) p(9.403977293846772,13.077593178076333,P14) p(7.557821652937419,14.92490267242466,P15) p(8.163086252228986,15.720927021828883,P16) p(8.549831261198241,14.798740328128865,P17) p(9.155095860489809,15.594764677533089,P18) p(8.768350851520555,16.51695137123311,P19) p(9.523753318519956,14.533624286368465,P20) nolabel() p(8.446855698490484,14.467061580071043,P21) p(7.605836658839302,13.926056057969646,P22) p(8.494870704392365,13.46821496561603,P23) p(7.653851664741184,12.927209443514633,P24) p(8.542885710294248,12.469368351161016,P25) p(9.084526067715327,13.887546683796778,P26) p(13.210529198583117,11.592048698808442,P27) p(12.605264599291559,10.796024349404213,P28) p(12.218519590322295,11.718211043104226,P29) p(11.613254991030736,10.922186693699997,P30) p(11.200546782265494,12.00388890572008,P31) p(12.321495153030057,12.049889791162066,P32) p(13.162514192681243,12.590895313263456,P33) p(12.273480147128183,13.04873640561708,P34) p(13.114499186779367,13.589741927718471,P35) p(12.225465141226305,14.047583020072093,P36) p(13.066484180877492,14.588588542173484,P37) p(11.533855558010751,12.663712624361835,P38) p(11.255219971296073,13.523071235936534,P39) p(10.768350851520555,16.516951371233098,P40) p(9.768350851520555,16.516951371233105,P41) p(10.268350851520552,15.650925967448664,P42) p(9.26835085152055,15.650925967448668,P43) p(9.781785063531675,14.645177631721419,P44) p(10.594702673853625,15.532143618220893,P45) p(11.534395294639534,15.874163761546562,P46) p(11.360747116972604,14.889356008534353,P47) p(12.300439737758513,15.231376151860022,P48) p(12.126791560091583,14.246568398847815,P49) p(10.729538686617843,14.817436668839418,P50) p(10.097771123085993,14.011049713350342,P51) p(10.629785726991976,12.896521224232165,P52) p(9.697093443076293,12.774925542788083,P53) p(11.02180851922103,13.580153347936003,P54) nolabel() s(P2,P1) s(P3,P1) s(P5,P2) s(P2,P3) s(P4,P3) s(P2,P4) s(P5,P4) s(P3,P6) s(P4,P6) s(P8,P7) s(P1,P7) s(P1,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(P25,P14) s(P13,P14) s(P11,P14) s(P22,P15) s(P21,P15) s(P15,P16) s(P17,P16) s(P15,P17) s(P16,P18) s(P17,P18) s(P16,P19) s(P18,P19) s(P18,P20) s(P17,P20) s(P22,P21) s(P23,P21) s(P24,P22) s(P23,P22) s(P24,P23) s(P25,P23) s(P12,P24) s(P25,P24) s(P12,P25) s(P20,P26) s(P21,P26) s(P14,P26) s(P5,P28) s(P27,P28) s(P28,P29) s(P27,P29) s(P5,P30) s(P28,P30) s(P29,P30) s(P30,P31) s(P29,P31) s(P27,P32) s(P33,P32) s(P34,P32) s(P27,P33) s(P33,P34) s(P35,P34) s(P36,P34) s(P37,P35) s(P33,P35) s(P35,P36) s(P37,P36) s(P48,P37) s(P49,P37) s(P31,P38) s(P32,P38) s(P38,P39) s(P49,P39) s(P36,P39) s(P41,P40) s(P42,P40) s(P19,P41) s(P43,P41) s(P41,P42) s(P43,P42) s(P19,P43) s(P42,P44) s(P43,P44) s(P46,P45) s(P40,P45) s(P40,P46) s(P46,P47) s(P45,P47) s(P46,P48) s(P47,P48) s(P48,P49) s(P47,P49) s(P45,P50) s(P44,P50) s(P39,P50) s(P44,P51) s(P20,P51) s(P6,P52) s(P31,P52) s(P26,P53) s(P13,P53) s(P51,P53) s(P52,P53) s(P38,P54) s(P50,P54) s(P51,P54) s(P52,P54) pen(2) color(#0000FF) m(P2,P1,MA10) m(P1,P8,MB10) b(P1,MA10,MB10) color(#008000) m(P10,P12,MA11) m(P12,P25,MB11) b(P12,MA11,MB11) color(#FFA500) m(P22,P15,MA12) m(P15,P17,MB12) b(P15,MA12,MB12) color(#EE82EE) m(P16,P19,MA13) m(P19,P43,MB13) b(P19,MA13,MB13) color(#00FFFF) m(P41,P40,MA14) m(P40,P46,MB14) b(P40,MA14,MB14) pen(2) color(#008000) s(P14,P11) abstand(P14,P11,A18) print(abs(P14,P11):,7.56,19.217) print(A18,8.86,19.217) color(#008000) s(P26,P14) abstand(P26,P14,A18) print(abs(P26,P14):,7.56,18.917) print(A18,8.86,18.917) color(#008000) s(P39,P36) abstand(P39,P36,A18) print(abs(P39,P36):,7.56,18.617) print(A18,8.86,18.617) color(#008000) s(P50,P39) abstand(P50,P39,A18) print(abs(P50,P39):,7.56,18.317) print(A18,8.86,18.317) color(#008000) s(P53,P51) abstand(P53,P51,A18) print(abs(P53,P51):,7.56,18.017) print(A18,8.86,18.017) color(#008000) s(P53,P52) abstand(P53,P52,A18) print(abs(P53,P52):,7.56,17.717) print(A18,8.86,17.717) color(#008000) s(P54,P51) abstand(P54,P51,A18) print(abs(P54,P51):,7.56,17.417) print(A18,8.86,17.417) color(#008000) s(P54,P52) abstand(P54,P52,A18) print(abs(P54,P52):,7.56,17.117) print(A18,8.86,17.117) \geooff \geoprint() und erst dann mit Button "Feinjustieren(5)" den Graph wieder zurechtziehen. \geo ebene(307.69,460.73) x(7.55,13.71) y(10,19.21) form(.) #//Eingabe war: # #4/4 mit 108 # # # # # # # #D=49.99999999999999; P[5]=[2*D,-1.7905676941154528e-14*D]; P[2]=[D,-8.952838470577264e-15*D]; A(2,5); N(4,2,5); N(3,2,4); N(1,2,3); M(8,1,2,blauerWinkel); N(7,8,1); N(9,8,7); N(10,8,9); N(11,10,9); N(12,10,11); M(25,12,10,gruenerWinkel); N(24,12,25); N(23,24,25); N(22,24,23); N(21,22,23); N(15,22,21); M(17,15,22,orangerWinkel); N(16,15,17); N(18,16,17); N(19,16,18); M(43,19,16,vierterWinkel); N(41,19,43); N(42,41,43); N(40,41,42); M(46,40,41,fuenfterWinkel); N(45,46,40); N(47,46,45); N(48,46,47); N(49,48,47); N(37,48,49); Q(27,37,5,3*D,2*D); A(27,37); A(27,5); H(28,5,27,2); A(28,5); L(30,5,28); H(35,37,27,3); A(35,37); L(36,35,37); H(33,37,27,3/2); A(35,33); L(34,33,35); A(34,36); A(33,27); L(32,27,33); A(32,34); A(28,27); L(29,28,27); A(30,29); Q(6,3,4,jam(0.9128379645288173)*D,jam(0.9169632418187217)*D); Q(13,7,6,jam(1.0453353653628)*D,jam(1.043813915661859)*D); Q(14,25,13,jam(1.054237238642782)*D,jam(1.22764640065006)*D); Q(20,18,17,jam(1.123355353893978)*D,jam(1.0093615255875688)*D); Q(26,20,21,jam(0.781240581635497)*D,jam(0.8616617751711628)*D); Q(31,30,29,jam(1.1577597942023024)*D,jam(1.0572986707320737)*D); Q(38,31,32,jam(0.7392307350692582)*D,jam(0.9985762876213155)*D); Q(39,38,49,jam(0.9034019113724676)*D,jam(1.132733498726069)*D); Q(44,42,43,jam(1.1172627179224037)*D,jam(1.129222920809533)*D); Q(50,45,44,jam(0.7273147694309011)*D,jam(0.9632809070783972)*D); Q(51,44,20,jam(0.7084951705483249)*D,jam(0.7762606677681698)*D); Q(52,6,31,jam(1.3163474506491788)*D,jam(1.059509621602938)*D); Q(53,26,13,jam(1.2701041661124148)*D,jam(0.8240541048409054)*D); Q(54,38,50,jam(1.049788440476683)*D,jam(1.2713346023906054)*D); #A(14,11); R(14,11,"green",jam(1.1103465794888194)*D); #A(26,14); R(26,14,"green",jam(0.8706743175870776)*D); #A(39,36); R(39,36,"green",jam(1.1029452848940486)*D); #A(50,39); R(50,39,"green",jam(1.3970406890834726)*D); #A(53,51); R(53,51,"green",jam(1.2994404827871844)*D); #A(53,52); R(53,52,"green",jam(0.9405851403364318)*D); #A(54,51); R(54,51,"green",jam(1.0195669606177464)*D); #A(54,52); R(54,52,"green",jam(0.7880575805021399)*D); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,9.999999999999991,P2) p(10.500000000000007,10.866025403784434,P3) p(11.500000000000007,10.866025403784425,P4) p(12,9.999999999999982,P5) p(11.000000000000014,11.732050807568868,P6) p(10.171353876470501,10.985209545740666,P7) p(9.232460443572906,10.641001582930729,P8) p(9.403814320043407,11.626211128671397,P9) p(8.464920887145812,11.282003165861457,P10) p(8.636274763616314,12.267212711602124,P11) p(7.697381330718718,11.923004748792184,P12) p(10.030003367129146,11.975169157800138,P13) p(9.477147294743858,12.808445920482692,P14) p(7.552525002623014,14.919505482015962,P15) p(8.155717919768772,15.717100808422273,P16) p(8.5448592758035,14.79592275558805,P17) p(9.148052192949258,15.593518081994361,P18) p(8.758910836914529,16.514696134828586,P19) p(9.537193548983986,14.672340029160138,P20) p(8.441682976449128,14.461905113155272,P21) nolabel() p(7.6008104453215815,13.920671904274704,P22) p(8.489968419147695,13.463071535414013,P23) p(7.64909588802015,12.921838326533445,P24) p(8.538253861846263,12.464237957672752,P25) p(9.146008510289109,13.752027981264812,P26) p(13.20638583429151,11.59519065281261,P27) p(12.603192917145755,10.797595326406295,P28) p(12.214051561111022,11.718773379240519,P29) p(11.610858643965267,10.921178052834204,P30) p(11.221717287930536,11.842356105668427,P31) p(12.317227860465396,12.052791021673304,P32) p(13.158100391592942,12.594024230553869,P33) p(12.26894241776683,13.051624599414563,P34) p(13.109814948894376,13.592857808295127,P35) p(12.220656975068264,14.050458177155821,P36) p(13.06152950619581,14.591691386036388,P37) p(11.612902326625406,12.762668153563755,P38) p(11.28176354217067,13.706250214345879,P39) p(10.758910836914529,16.514696134828576,P40) p(9.758910836914529,16.51469613482858,P41) p(10.258910836914524,15.648670731044138,P42) p(9.258910836914524,15.648670731044145,P43) p(9.75891083691452,14.782645327259702,P44) p(10.587556960444026,15.529486589087906,P45) p(11.526450393341623,15.873694551897845,P46) p(11.355096516871122,14.888485006157177,P47) p(12.293989949768715,15.232692968967115,P48) p(12.122636073298214,14.247483423226448,P49) p(10.72890746978539,14.539526977028435,P50) p(10.090049621369271,13.839063266477584,P51) p(10.668861215545256,12.675632868350984,P52) p(9.698864582674391,12.918751218582257,P53) p(11.060046254240126,13.59594491624631,P54) nolabel() s(P2,P1) s(P3,P1) s(P5,P2) s(P2,P3) s(P4,P3) s(P2,P4) s(P5,P4) s(P3,P6) s(P4,P6) s(P8,P7) s(P1,P7) s(P1,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(P25,P14) s(P13,P14) s(P11,P14) s(P22,P15) s(P21,P15) s(P15,P16) s(P17,P16) s(P15,P17) s(P16,P18) s(P17,P18) s(P16,P19) s(P18,P19) s(P18,P20) s(P17,P20) s(P22,P21) s(P23,P21) s(P24,P22) s(P23,P22) s(P24,P23) s(P25,P23) s(P12,P24) s(P25,P24) s(P12,P25) s(P20,P26) s(P21,P26) s(P14,P26) s(P5,P28) s(P27,P28) s(P28,P29) s(P27,P29) s(P5,P30) s(P28,P30) s(P29,P30) s(P30,P31) s(P29,P31) s(P27,P32) s(P33,P32) s(P34,P32) s(P27,P33) s(P33,P34) s(P35,P34) s(P36,P34) s(P37,P35) s(P33,P35) s(P35,P36) s(P37,P36) s(P48,P37) s(P49,P37) s(P31,P38) s(P32,P38) s(P38,P39) s(P49,P39) s(P36,P39) s(P41,P40) s(P42,P40) s(P19,P41) s(P43,P41) s(P41,P42) s(P43,P42) s(P19,P43) s(P42,P44) s(P43,P44) s(P46,P45) s(P40,P45) s(P40,P46) s(P46,P47) s(P45,P47) s(P46,P48) s(P47,P48) s(P48,P49) s(P47,P49) s(P45,P50) s(P44,P50) s(P39,P50) s(P44,P51) s(P20,P51) s(P6,P52) s(P31,P52) s(P26,P53) s(P13,P53) s(P51,P53) s(P52,P53) s(P38,P54) s(P50,P54) s(P51,P54) s(P52,P54) pen(2) color(#0000FF) m(P2,P1,MA10) m(P1,P8,MB10) b(P1,MA10,MB10) color(#008000) m(P10,P12,MA11) m(P12,P25,MB11) b(P12,MA11,MB11) color(#FFA500) m(P22,P15,MA12) m(P15,P17,MB12) b(P15,MA12,MB12) color(#EE82EE) m(P16,P19,MA13) m(P19,P43,MB13) b(P19,MA13,MB13) color(#00FFFF) m(P41,P40,MA14) m(P40,P46,MB14) b(P40,MA14,MB14) pen(2) color(#008000) s(P14,P11) abstand(P14,P11,A18) print(abs(P14,P11):,7.55,19.215) print(A18,8.85,19.215) color(#008000) s(P26,P14) abstand(P26,P14,A18) print(abs(P26,P14):,7.55,18.915) print(A18,8.85,18.915) color(#008000) s(P39,P36) abstand(P39,P36,A18) print(abs(P39,P36):,7.55,18.615) print(A18,8.85,18.615) color(#008000) s(P50,P39) abstand(P50,P39,A18) print(abs(P50,P39):,7.55,18.315) print(A18,8.85,18.315) color(#008000) s(P53,P51) abstand(P53,P51,A18) print(abs(P53,P51):,7.55,18.015) print(A18,8.85,18.015) color(#008000) s(P53,P52) abstand(P53,P52,A18) print(abs(P53,P52):,7.55,17.715) print(A18,8.85,17.715) color(#008000) s(P54,P51) abstand(P54,P51,A18) print(abs(P54,P51):,7.55,17.415) print(A18,8.85,17.415) color(#008000) s(P54,P52) abstand(P54,P52,A18) print(abs(P54,P52):,7.55,17.115) print(A18,8.85,17.115) \geooff \geoprint() Momentan darf der Rahmen nur aus gleichseitigen Dreiecken bestehen und die Kanten des Rahmens sollten möglichst schon nahe 1 sein. Bei Bedarf lässt sich das aber noch erweitern.


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 3936
Wohnort: Raun
  Beitrag No.641, eingetragen 2017-01-14

Der Doppelkite gehört auch mit zu den acos(1/4)-Graphen, bei denen das GAP-Programm mit exakten Koordinaten rechen kann: \ Für den spitzen Winkel \phi=10,32200...° in Punkt P11 gilt cos(\phi)=(79+27*sqrt(5))/(8*(11+3*sqrt(5))) sin(\phi)=(7*sqrt(15)-sqrt(3))/(8*(11+3*sqrt(5))) \geo ebene(226.79,288.13) x(7.96,12.5) y(9.4,15.16) form(.) #//Eingabe war: # #Doppelkite # # # #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); Q(7,1,6,ab(1,6,[1,6]),ab(1,2,3)); A(11,12,ab(5,12,[1,12])); alert(winkel(16,11,8)); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,10,P2) p(10.5,10.86602540378444,P3) p(11.5,10.86602540378444,P4) p(12,10,P5) p(11,11.732050807568877,P6) p(10.036474508437578,11.999667374898696,P7) p(9.161474508437578,11.515544456622768,P8) p(10.01823725421879,10.999833687449348,P9) p(9.14323725421879,10.51571076917342,P10) p(8.286474508437578,11.03142153834684,P11) p(10.75,12.700296644120732,P12) p(7.964126519095574,13.00527355249764,P13) p(8.125300513766575,12.018347545422241,P14) p(8.89941651021391,12.651391322774447,P15) p(9.060590504884914,11.664465315699047,P16) p(9.83470650133225,12.297509093051252,P17) p(9.943528999111836,13.291570290351002,P18) p(9.324708255106957,14.077102521891664,P19) p(8.953827759103703,13.14842192142432,P20) p(8.335007015098826,13.933954152964983,P21) p(8.705887511102079,14.862634753432324,P22) nolabel() s(P9,P1) s(P10,P1) 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(P7,P6) s(P7,P8) s(P7,P9) s(P8,P9) s(P8,P10) s(P9,P10) s(P8,P11) s(P10,P11) s(P14,P11) s(P16,P11) s(P7,P12) s(P6,P12) s(P17,P12) s(P18,P12) s(P20,P13) s(P21,P13) s(P13,P14) s(P13,P15) s(P14,P15) s(P14,P16) s(P15,P16) s(P15,P17) s(P16,P17) s(P18,P17) s(P18,P19) s(P18,P20) s(P19,P20) s(P19,P21) s(P20,P21) s(P19,P22) s(P21,P22) pen(2) pen(2) print(#k=42 Kanten\, min 0.9999999999999991\, max 1.0000000000000016,7.96,9.7) print(#n=22 Knoten\, 2×Grad 2\, 20×Grad 4,7.96,9.4) \geooff \geoprint() \sourceon GAP W60:=[[1/2,-1/2*Sqrt(3)],[1/2*Sqrt(3),1/2]]; Wbl:=[[1/4,-1/4*Sqrt(15)],[1/4*Sqrt(15),1/4]]*W60^-1; cos10p32:=(79+27*Sqrt(5))/(8*(11+3*Sqrt(5))); sin10p32:=(7*Sqrt(15)-Sqrt(3))/(8*(11+3*Sqrt(5))); W10p32:=[[cos10p32,-sin10p32],[sin10p32,cos10p32]]; P:=[]; P[1]:=[0,0]; P[2]:=[1,0]; P[3]:=P[1]+W60*(P[2]-P[1]); P[4]:=P[3]+W60*(P[2]-P[3]); P[5]:=P[2]-(P[1]-P[2]); P[6]:=P[3]-(P[1]-P[3]); P[7]:=P[6]+(W60*Wbl)^-1*(P[3]-P[6]); P[8]:=P[7]+(W60*W60*Wbl)^-1*(P[6]-P[7]); P[9]:=P[7]+W60*(P[8]-P[7]); P[10]:=P[1]+W60*(P[9]-P[1]); P[11]:=P[8]-(P[7]-P[8]); P[12]:=P[7]+W60*(P[6]-P[7]); P[16]:=P[11]+W10p32*(P[8]-P[11]); P[17]:=P[16]-(P[11]-P[16]); P[18]:=P[17]+W60*(P[12]-P[17]); P[19]:=P[18]+(W60*W60*Wbl)^-1*(P[17]-P[18]); P[20]:=P[18]+W60*(P[19]-P[18]); P[21]:=P[20]+W60*(P[19]-P[20]); P[22]:=P[19]-(P[18]-P[19]); P[13]:=P[20]-(P[18]-P[20]); P[14]:=P[11]+W60*(P[16]-P[11]); P[15]:=P[13]+W60*(P[14]-P[13]); Kante:=[ [1,9],[1,10],[1,2],[1,3],[2,3],[3,4],[2,4],[4,5],[2,5],[3,6],[4,6],[6,7],[7,8],[7,9],[8,9], [8,10],[9,10],[8,11],[10,11],[11,14],[11,16],[7,12],[6,12],[12,17],[12,18], [13,20],[13,21],[13,14],[13,15],[14,15],[14,16],[15,16],[15,17],[16,17], [17,18],[18,19],[18,20],[19,20],[19,21],[20,21],[19,22],[21,22],]; Size(Kante); for K in Kante do Print(" ",(P[K[1]]-P[K[2]])^2); od; \sourceoff \sourceon GAP-Logfile gap> for K in Kante do Print(" ",(P[K[1]]-P[K[2]])^2); od; 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 \sourceoff


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.642, eingetragen 2017-01-14

\quoteon(2016-03-30 10:16 - haribo in Beitrag No. 149) hier zwei ergebnisse unserer urlaubs untersuchnung betreffs des harborth graphen mit java: der harborth graph kann sich dabei neben seiner originalversion in zwei weitere stabile formen ziehen, welche aber nicht mehr "4 regular" sind da sie auch 3er und 6er knoten haben, aber nach unserer einschätzung streichholzgraphen sind d.h. die summe aller verbindungslängen näherte sich bis auf 8 komma stellen der ganzen zahl der verbindungen http://www.matheplanet.com/matheplanet/nuke/html/uploads/9/35059_Harboth4.png http://www.matheplanet.com/matheplanet/nuke/html/uploads/9/35059_Harboth4b.png grus haribo \quoteoff hallo stefan ich habe den eindruck das die exaktheit deines programmes sich verbessert hat im laufe des letzten jahres und drum würde ich gerne nochmal diese beiden verzogenen harborths aus #149 überprüfen, bei denen ich immer noch nicht die exakten einslängen testen kann, bzw nicht entscheiden kann ob die punkte a2/d2 bzw b2/c2 wirklich übereinander rutschen oder noch einen abstand behalten fals du also zeit dazu findest... das wäre sehr schön haribo


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 3936
Wohnort: Raun
  Beitrag No.643, eingetragen 2017-01-15

Hallo haribo, die Punkte a2/d2 müssen zusammenfallen, wenn sie auf der gleichen Seite der Strecke x1-x2 liegen und von diesen den gleichen Abstand 1 haben sollen. Ein 4/4 ist damit ausgeschlossen. Doch mich interessiert auch, was das aktuelle Streichholzprogramm als Ergebnis liefert. Die erste größere Hürde ist momentan, wie ich die Koordinaten der Punkte eingeben kann. Bisher habe ich ja die Graphen so gezeichnet, dass ich die Vorlage als Aufbauvorschrift genommen und von Anfang an Kanten der Länge 1 aneinandergefügt habe und nicht die Originallängen aus der Vorlage. Wenn die Vorlage in Wirklichkeit gar nicht funktioniert, kommt es am Ende zu großen Abweichungen vom Original. Das macht nicht unbedingt einen überzeugenden Eindruck. In der Richtung will ich noch etwas verbessern. Ich stelle mir das so vor, dass man die Grafik als Hintergrundbild in das Programm lädt und dann mit Mausklick und Drag&Drop die benötigten Punkte P1, P2, P3... plaziert und korrigiert. Anschließend die Punkte mit einer Kante verbinden, das geht jetzt schon. Als Notbehelf habe ich den ersten Graph so gut es ging nach Augenschein eingegeben. Ich hoffe, dass ich die wesentlichen Merkmale ausreichend gut hinbekommen habe, beispielsweise sollte c8 unterhalb von Strecke x5-c6 liegen und d2 links von Strecke x1-x2. \geo ebene(356.23,455.54) x(7.7,14.82) y(9.4,18.51) form(.) #//Eingabe war: # #No.642-1 # # # # # # # #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); L(7,6,5); M(8,1,3,blauerWinkel,3,gruenerWinkel,2,orangerWinkel,2,vierterWinkel,3,fuenfterWinkel,3,"zumachen",7,2,2); L(41,40,38); L(42,36,34); L(43,16,14); L(44,20,18); N(45,41,42); N(46,44,43); N(47,41,45); N(48,45,42); N(49,46,43); N(50,44,46); N(51,8,3); N(52,50,48); P[52][0]+=0.2*D; A(47,51); A(47,6); A(51,49); A(49,12); A(22,50); A(48,32); A(26,52); A(52,28); R(47,51); R(47,6); R(51,49); R(49,12); R(22,50); R(48,32); R(26,52); R(52,28); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,10,P2) p(10.5,10.86602540378444,P3) p(11.5,10.86602540378444,P4) p(12,10,P5) p(12.5,10.86602540378444,P6) p(13,10,P7) p(10.277852361235839,10.96062378970941,P8) p(9.30700157524989,10.720939098186431,P9) p(9.584853936485727,11.681562887895842,P10) p(8.614003150499778,11.441878196372864,P11) p(8.891855511735617,12.402501986082274,P12) p(7.921004725749668,12.162817294559295,P13) p(8.725505487403577,12.756768912536955,P14) p(7.808877916789099,13.15651120050434,P15) p(8.613378678443006,13.750462818482001,P16) p(7.696751107828528,14.150205106449384,P17) p(8.65999778892226,13.881586731497277,P18) p(8.411004785007213,14.85009201491155,P19) p(9.374251466100944,14.581473639959441,P20) p(9.125258462185897,15.549978923373715,P21) p(9.698662341601162,14.730706080499301,P22) p(10.12147149645347,15.636924828138676,P23) p(10.694875375868735,14.817651985264263,P24) p(11.117684530721041,15.723870732903638,P25) p(11.691088410136306,14.904597890029224,P26,nolabel) print(\P26,11.29,14.9) p(12.113897564988612,15.8108166376686,P27) p(11.753215845554735,14.87812767704656,P28) p(12.741289038999664,15.03211262564719,P29) p(12.380607319565787,14.09942366502515,P30) p(13.368680513010716,14.253408613625782,P31) p(13.007998793576839,13.320719653003742,P32) p(13.996071987021768,13.474704601604373,P33) p(13.222899982464918,12.840508219267214,P34) p(14.158716162835512,12.488019812994622,P35) p(13.38554415827866,11.853823430657462,P36) p(14.321360338649257,11.501335024384872,P37) p(13.340923118632627,11.698167078700386,P38) p(13.660680169324628,10.750667512192436,P39) p(12.680242949308,10.94749956650795,P40) p(12.360485898616,11.8949991330159,P41) p(12.449727977908067,12.206311836930054,P42) p(9.530006249057486,13.350720530514618,P43) p(9.62324447001599,13.612968356545169,P44) p(11.456510554811484,12.322583718558349,P45) p(10.509677710766585,13.150111888844437,P46) p(11.538199113367341,11.325925813657642,P47) p(12.053813669595696,13.124599297627158,P48) p(9.84610980000697,12.401995836476813,P49) p(10.467306549726054,14.149213827943786,P50) p(10.777852361235839,11.826649193493848,P51) p(11.63909084689941,13.913342507586083,P52) 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(P6,P7) s(P5,P7) s(P39,P7) s(P1,P8) s(P1,P9) s(P8,P9) s(P9,P10) s(P8,P10) s(P9,P11) s(P10,P11) s(P11,P12) s(P10,P12) s(P11,P13) s(P12,P13) s(P13,P14) s(P13,P15) s(P14,P15) s(P15,P16) s(P14,P16) s(P15,P17) s(P16,P17) s(P17,P18) s(P17,P19) s(P18,P19) s(P19,P20) s(P18,P20) s(P19,P21) s(P20,P21) s(P21,P22) s(P50,P22) s(P21,P23) s(P22,P23) s(P23,P24) s(P22,P24) s(P23,P25) s(P24,P25) s(P25,P26) s(P24,P26) s(P52,P26) s(P25,P27) s(P26,P27) s(P27,P28) s(P27,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P35,P33) s(P35,P34) s(P33,P34) s(P37,P35) s(P37,P36) s(P35,P36) s(P34,P36) s(P39,P38) s(P37,P38) s(P40,P38) s(P37,P39) s(P7,P40) s(P39,P40) s(P40,P41) s(P38,P41) s(P36,P42) s(P34,P42) s(P16,P43) s(P14,P43) s(P20,P44) s(P18,P44) s(P41,P45) s(P42,P45) s(P44,P46) s(P43,P46) s(P41,P47) s(P45,P47) s(P51,P47) s(P6,P47) s(P45,P48) s(P42,P48) s(P32,P48) s(P46,P49) s(P43,P49) s(P12,P49) s(P44,P50) s(P46,P50) s(P8,P51) s(P3,P51) s(P49,P51) s(P50,P52) s(P48,P52) s(P28,P52) pen(2) color(#0000FF) m(P3,P1,MA10) m(P1,P8,MB10) b(P1,MA10,MB10) color(#008000) m(P12,P13,MA11) m(P13,P14,MB11) b(P13,MA11,MB11) color(#FFA500) m(P16,P17,MA12) m(P17,P18,MB12) b(P17,MA12,MB12) color(#EE82EE) m(P20,P21,MA13) m(P21,P22,MB13) b(P21,MA13,MB13) color(#00FFFF) m(P26,P27,MA14) m(P27,P28,MB14) b(P27,MA14,MB14) pen(2) color(red) s(P47,P51) abstand(P47,P51,A0) print(abs(P47,P51):,7.7,18.511) print(A0,9,18.511) color(red) s(P47,P6) abstand(P47,P6,A1) print(abs(P47,P6):,7.7,18.211) print(A1,9,18.211) color(red) s(P51,P49) abstand(P51,P49,A2) print(abs(P51,P49):,7.7,17.911) print(A2,9,17.911) color(red) s(P49,P12) abstand(P49,P12,A3) print(abs(P49,P12):,7.7,17.611) print(A3,9,17.611) color(red) s(P22,P50) abstand(P22,P50,A4) print(abs(P22,P50):,7.7,17.311) print(A4,9,17.311) color(red) s(P48,P32) abstand(P48,P32,A5) print(abs(P48,P32):,7.7,17.011) print(A5,9,17.011) color(red) s(P26,P52) abstand(P26,P52,A6) print(abs(P26,P52):,7.7,16.711) print(A6,9,16.711) color(red) s(P52,P28) abstand(P52,P28,A7) print(abs(P52,P28):,7.7,16.411) print(A7,9,16.411) \geooff \geoprint() Nach Button "neue Eingabe, Rahmen zuerst" und "Feinjustieren(5)" entsteht dieser Graph \geo ebene(347.13,474.91) x(7.92,14.86) y(9.34,18.83) form(.) #//Eingabe war: # #No.642-1 nach Button "neue Eingabe, Rahmen zuerst" und "Feinjustieren(5)" # # # # # # # #D=50; P[1]=[0,0]; P[9]=[-0.6929984247501104*D,0.7209390981864316*D]; A(9,1); N(8,9,1); N(10,9,8); N(11,9,10); N(12,11,10); N(13,11,12); M(15,13,11,blauerWinkel); N(14,15,13); N(16,15,14); N(17,15,16); M(19,17,15,gruenerWinkel); N(18,19,17); N(20,19,18); N(21,19,20); M(23,21,19,orangerWinkel); N(22,23,21); N(24,23,22); N(25,23,24); N(26,25,24); N(27,25,26); M(29,27,25,vierterWinkel); N(28,29,27); N(30,29,28); N(31,29,30); N(32,31,30); N(33,31,32); M(35,33,31,fuenfterWinkel); N(34,35,33); N(36,35,34); N(37,35,36); Q(7,37,1,2*D,3*D); A(7,37); A(7,1); H(2,1,7,3); A(2,1); L(3,1,2); H(39,37,7,2); A(39,37); L(38,39,37); A(39,7); L(40,7,39); A(40,38); H(5,1,7,3/2); A(2,5); L(4,2,5); A(3,4); A(5,7); L(6,5,7); A(4,6); N(41,40,38); N(42,36,34); N(43,16,14); N(44,20,18); Q(47,6,41,jam(1.0661000574659536)*D,D); Q(48,42,32,D,jam(0.9741316361867866)*D); Q(49,43,12,D,jam(0.9542544225057015)*D); Q(50,22,44,jam(0.9638190486113186)*D,D); N(51,8,3); Q(52,26,50,jam(0.9926182447472304)*D,jam(1.1952881321544786)*D); N(45,47,48); N(46,50,49); #A(51,47); R(51,47,"green",jam(0.9104125914065108)*D); #A(51,49); R(51,49,"green",jam(1.09506527659181)*D); #A(52,48); R(52,48,"green",jam(0.8911289866913122)*D); #A(52,28); R(52,28,"green",jam(0.9715116769905328)*D); #A(45,41); R(45,41,"green"); #A(45,42); R(45,42,"green"); #A(46,44); R(46,44,"green"); #A(46,43); R(46,43,"green"); # #//nachträglich ergänzt zum Messen von Abstand P26-P28: #R(26,28); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(10.999770875298672,9.978594465563186,P2) p(10.5184231742532,10.855124208754047,P3) p(11.518194049551873,10.833718674317232,P4) p(11.999541750597345,9.957188931126371,P5) p(12.517964924850546,10.81231313988042,P6) p(12.999312625896017,9.935783396689557,P7) p(10.277852361235839,10.96062378970941,P8) p(9.30700157524989,10.720939098186431,P9) p(9.584853936485727,11.681562887895842,P10) p(8.61400315049978,11.441878196372864,P11) p(8.891855511735617,12.402501986082274,P12) p(7.921004725749668,12.162817294559295,P13) p(8.786022629086684,12.664558290399214,P14) p(7.918993228900703,13.162815271497461,P15) p(8.784011132237719,13.664556267337382,P16) p(7.916981732051738,14.16281324843563,P17) p(8.881743158289199,13.899687061133296,P18) p(8.627236407775232,14.86675805849741,P19) p(9.591997834012691,14.603631871195077,P20) p(9.337491083498724,15.570702868559192,P21) p(9.911582196376573,14.751911445720218,P22) p(10.333630812517006,15.658484644978802,P23) p(10.907721925394856,14.839693222139829,P24) p(11.32977054153529,15.746266421398413,P25) p(11.903861654413138,14.927474998559438,P26,nolabel) print(\P26,11.59,14.9) p(12.325910270553571,15.834048197818024,P27) p(11.90386165441314,14.927474998559438,P28) p(12.900001383431421,15.015256774979049,P29) p(12.47795276729099,14.108683575720464,P30) p(13.474092496309272,14.196465352140075,P31) p(13.05204388016884,13.28989215288149,P32) p(14.048183609187124,13.3776739293011,P33) p(13.27053798317525,12.748971073935703,P34) p(14.203833440359436,12.389861634350268,P35) p(13.426187814347562,11.761158778984871,P36) p(14.359483271531747,11.402049339399436,P37) p(13.384528832577468,11.624454020023176,P38) p(13.679397948713882,10.668916368044496,P39) p(12.704443509759603,10.891321048668237,P40) p(12.40957439362319,11.846858700646917,P41) p(12.492892357163377,12.120268218570306,P42) p(9.6510405324237,13.166299286239134,P43) p(9.846504584526658,13.636560873830964,P44) p(11.486899251068,12.232436943434088,P45) p(10.288075637773781,13.168143287447625,P46) p(11.61431626894536,11.240587709147324,P47) p(12.085469012318534,13.033507627529117,P48) p(9.869094946020263,12.190362673179116,P49) p(10.707056329527301,14.145923901716134,P50) p(10.79627553548904,11.815747998463458,P51) p(11.68788968679167,13.951075434240757,P52) nolabel() s(P1,P2) s(P5,P2) s(P1,P3) s(P2,P3) s(P4,P3) s(P2,P4) s(P5,P4) s(P6,P4) s(P7,P5) s(P5,P6) s(P7,P6) s(P9,P8) s(P1,P8) s(P1,P9) s(P9,P10) s(P8,P10) s(P9,P11) s(P10,P11) s(P11,P12) s(P10,P12) s(P11,P13) s(P12,P13) s(P15,P14) s(P13,P14) s(P13,P15) s(P15,P16) s(P14,P16) s(P15,P17) s(P16,P17) s(P19,P18) s(P17,P18) s(P17,P19) s(P19,P20) s(P18,P20) s(P19,P21) s(P20,P21) s(P23,P22) s(P21,P22) s(P21,P23) s(P23,P24) s(P22,P24) s(P23,P25) s(P24,P25) s(P25,P26) s(P24,P26) s(P25,P27) s(P26,P27) s(P29,P28) s(P27,P28) s(P27,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P35,P34) s(P33,P34) s(P33,P35) s(P35,P36) s(P34,P36) s(P35,P37) s(P36,P37) s(P39,P38) s(P37,P38) s(P37,P39) s(P7,P39) s(P7,P40) s(P39,P40) s(P38,P40) s(P40,P41) s(P38,P41) s(P36,P42) s(P34,P42) s(P16,P43) s(P14,P43) s(P20,P44) s(P18,P44) s(P47,P45) s(P48,P45) s(P41,P45) s(P42,P45) s(P50,P46) s(P49,P46) s(P44,P46) s(P43,P46) s(P6,P47) s(P41,P47) s(P42,P48) s(P32,P48) s(P43,P49) s(P12,P49) s(P22,P50) s(P44,P50) s(P8,P51) s(P3,P51) s(P47,P51) s(P49,P51) s(P26,P52) s(P50,P52) s(P48,P52) s(P28,P52) pen(2) color(#0000FF) m(P11,P13,MA10) m(P13,P15,MB10) b(P13,MA10,MB10) color(#008000) m(P15,P17,MA11) m(P17,P19,MB11) b(P17,MA11,MB11) color(#FFA500) m(P19,P21,MA12) m(P21,P23,MB12) b(P21,MA12,MB12) color(#EE82EE) m(P25,P27,MA13) m(P27,P29,MB13) b(P27,MA13,MB13) color(#00FFFF) m(P31,P33,MA14) m(P33,P35,MB14) b(P33,MA14,MB14) pen(2) color(#008000) s(P51,P47) abstand(P51,P47,A18) print(abs(P51,P47):,7.92,18.834) print(A18,9.22,18.834) color(#008000) s(P51,P49) abstand(P51,P49,A18) print(abs(P51,P49):,7.92,18.534) print(A18,9.22,18.534) color(#008000) s(P52,P48) abstand(P52,P48,A18) print(abs(P52,P48):,7.92,18.234) print(A18,9.22,18.234) color(#008000) s(P52,P28) abstand(P52,P28,A18) print(abs(P52,P28):,7.92,17.934) print(A18,9.22,17.934) color(#008000) s(P45,P41) abstand(P45,P41,A18) print(abs(P45,P41):,7.92,17.634) print(A18,9.22,17.634) color(#008000) s(P45,P42) abstand(P45,P42,A18) print(abs(P45,P42):,7.92,17.334) print(A18,9.22,17.334) color(#008000) s(P46,P44) abstand(P46,P44,A18) print(abs(P46,P44):,7.92,17.034) print(A18,9.22,17.034) color(#008000) s(P46,P43) abstand(P46,P43,A18) print(abs(P46,P43):,7.92,16.734) print(A18,9.22,16.734) color(red) s(P26,P28) abstand(P26,P28,A8) print(abs(P26,P28):,7.92,16.434) print(A8,9.22,16.434) \geooff \geoprint() Der Abstand der Punkte P26 und P28 beträgt 0,00000000000000... das sieht ganz nach Übereinstimmung aus. Außerdem wird innen der Abstand P49-P50 größer als 2, so dass P46 nicht mehr passend gezeichnet werden kann. Ich habe dann noch zehnmal die vier Buttons "zurück" "zurück" "innere Punkte zufällig verschieben" "Feinjustieren(5)" gedrückt, doch ein wesentlich anderes Ergebnis ist nicht dabei entstanden. Den zweiten Graph rechne ich mit einer neuen Programmversion, wo ich die Koordinaten der Punkte hoffentlich besser eingeben kann.


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.644, vom Themenstarter, eingetragen 2017-01-16

Gibt es eigentlich noch andere alte Graphen die "rechnerisch" auf der Kippe standen?


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 3936
Wohnort: Raun
  Beitrag No.645, eingetragen 2017-01-21

Beim #315-2 ist noch nicht klar, ob eine Überschneidung auftritt oder nicht. Wegen anschließender neuer Rekorde war das aber nicht mehr aktuell gewesen. Wie vorgehabt kann ich mit Streichholzgraph-645.htm Graphen genauer nach einer Zeichenvorlage eingeben. Dabei war zu sehen, dass in \quoteon(2017-01-14 08:14 - haribo in Beitrag No. 642) \quoteon(2016-03-30 10:16 - haribo in Beitrag No. 149) http://www.matheplanet.com/matheplanet/nuke/html/uploads/9/35059_Harboth4.png \quoteoff \quoteoff der Winkel c7-c6-c8 mit ca. 144° zu klein ist. Das Viereck x8-d9-x7-c9 ist ein Drachenviereck, deshalb liegen auch die Punkte d7,d8 und c7,c8 symmetrisch zur Diagonalen x8-x7 und die Abstände d7-d8 und c7-c8 müssen gleich lang sein. Deshalb müsste Winkel c7-c6-c8 genauso groß wie Winkel d7-d6-d8 sein, auch wenn einer der Winkel nach Innen geklappt ist. Letzterer ist aber ca. 169° (lässt sich in der neuen Programmversion im Input-Feld Winkel(1,2,3)=..." einstellen und ablesen). Sobald man den Winkel c7-c6-c8 entsprechend vergrößert, lässt sich der Rest des Graphen nicht mehr zeichnen. Entsprechendes gilt auch für den zweiten Graph \quoteon(2017-01-14 08:14 - haribo in Beitrag No. 642) \quoteon(2016-03-30 10:16 - haribo in Beitrag No. 149) http://www.matheplanet.com/matheplanet/nuke/html/uploads/9/35059_Harboth4b.png \quoteoff \quoteoff da müsste ebenfalls Winkel c7-c6-c8 genauso groß wie Winkel d7-d6-d8 sein. In der Zeichnung sind über 15° Differenz, so dass auch dieser Graph nicht exakt gezeichnet werden kann.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.646, eingetragen 2017-01-21

hallo stefan sehr herzlichen dank für deine bemühungen die drachenvierecke sind eine sehr gute argumentation aber meine zeichnungen kann man offensichtlich so nicht als messvorlage nehmen es ist ja lange her, unser program damals hat eine farbunterscheidung gemacht, schwarze linien sind sehr genau eins lang grüne noch nicht und in den bildern sind ja noch jede menge grüne striche, selbst in den gitterträgerbereichen, welche sich ja schnell als dreiecks-gitter stabilisieren werden insofern sorry für die bilder in viel zu frühem stabilisierungs-stadium, meiner erinnerung nach stabilisierte es sich bis alle linien schwarz wurden, aber dabei verändern sich die winkel ggfls noch leider habe ich keine besseren/exakteren bilder abgespeichert(oder finde sie jedenfals derzeit nicht) um es in deinem program eingeben zu können muss man wohl immer noch wissen ob ein winkel nach innen oder aussen gedrückt ist, oder? das spielte bei unserem program keine rolle da wir ja jede linie als feder angesehen haben die entweder zieht oder drückt... im oberen bild die linie b8-x5-c8 ist eine der linien die evtl. auch in die andere richtung geknickt sein könnte ebenso evtl d7-d8-d6... (dass symetrische untere bild würde ich derzeit selber nicht weiter untersuchen, das hätten wir längst gefunden wenn es diese lösung geben würde) grus haribo


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 3936
Wohnort: Raun
  Beitrag No.647, eingetragen 2017-01-22

Selbst wenn ein Winkel immer nur nach einer Seite gedrückt ist, kann man mit dem Streichholzprogramm Lösungen übersehen. Als Beispiel folgende Konstellation \geo ebene(309.68,386.99) x(7.64,13.83) y(10,17.74) form(.) #//Eingabe war: # #4/4 mit 108 # # # # #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,3); N(13,7,6); N(14,11,13); A(12,14,ab(12,14,[1,14],"gespiegelt")); N(27,26,13); N(28,27,6); N(29,20,27); A(5,28,ab(5,28,[1,6],"gespiegelt")); A(19,29,ab(19,29,[15,20],"gespiegelt")); Q(40,35,30,ab(12,1,[7,12]),ab(1,12,[7,12])); N(51,34,50); N(52,41,39); N(53,51,46); N(54,45,52); R(51,54); # # #//Ende der Eingabe, weiter mit fedgeo: p(10,10,P1) p(11,10,P2) p(10.5,10.86602540378444,P3) p(11.5,10.86602540378444,P4) p(12,10,P5) p(11,11.732050807568877,P6) p(10.202787295356513,10.979222810621765,P7) p(9.253361817714609,10.66523035465436,P8) p(9.45614911307112,11.644453165276126,P9) p(8.506723635429218,11.33046070930872,P10) p(8.70951093078573,12.309683519930488,P11) p(7.760085453143827,11.995691063963083,P12) p(10.027197324396049,11.963686198512907,P13) p(9.554290185139937,12.844798471518226,P14) p(7.636984908615551,14.993164375927151,P15) p(8.271017797808852,15.766470457256652,P16) p(8.623704064544548,14.83072882771566,P17) p(9.257736953737849,15.604034909045163,P18) p(8.905050687002156,16.53977653858616,P19) p(9.610423220473544,14.668293279504166,P20) p(8.522797677812516,14.5291215568602,P21) p(7.678018423458309,13.99400660527246,P22) p(8.563831192655275,13.52996378620551,P23) p(7.719051938301067,12.994848834617772,P24) p(8.604864707498034,12.530806015550821,P25) p(9.172759385913553,13.769154598366356,P26) p(9.645666525169668,12.888042325361038,P27) p(10.61846920077362,12.656406934417008,P28) p(10.08333035972966,13.78718100649885,P29) p(13.14842132499642,11.63741517651861,P30) p(12.57421066249821,10.818707588259304,P31) p(12.152294424043665,11.725342403236299,P32) p(11.578083761545459,10.906634814976995,P33) p(11.156167523090916,11.81326962995399,P34) p(10.8994106913639,16.389682657957323,P35) p(9.902230689183028,16.464729598271738,P36) p(10.335828133484883,15.563622914080076,P37) p(9.33864813130401,15.638669854394493,P38) p(9.77224557560587,14.737563170202828,P39) p(13.330490325846359,14.631885226281923,P40) p(10.797158220264999,15.394924178649823,P41) p(11.709770569524721,15.80375018073219,P42) p(11.607518098425817,14.808991701424691,P43) p(12.52013044768554,15.217817703507055,P44) p(12.417877976586638,14.223059224199556,P45) p(12.435716447715809,14.185365677980604,P46) p(13.26980065889638,13.633728543027486,P47) p(12.375026780765829,13.187208994726166,P48) p(13.2091109919464,12.635571859773048,P49) p(12.31433711381585,12.189052311471729,P50) p(11.490414784181445,12.755755050771459,P51) p(10.712999039742591,14.3984718554884,P52) p(11.53313714827472,13.754842033774581,P53,nolabel) print(\P53,11.63,13.75048) p(11.512686463415282,13.798055313061614,P54,nolabel) print(\P54,11.53,14.22048) nolabel() s(P1,P2) s(P1,P3) s(P2,P3) s(P3,P4) s(P2,P4) s(P4,P5) s(P2,P5) s(P31,P5) s(P33,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(P24,P12) s(P25,P12) s(P7,P13) s(P6,P13) s(P11,P14) s(P13,P14) s(P25,P14) s(P26,P14) s(P15,P16) s(P15,P17) s(P16,P17) s(P16,P18) s(P17,P18) s(P16,P19) s(P18,P19) s(P36,P19) s(P38,P19) s(P17,P20) s(P18,P20) s(P15,P21) s(P15,P22) s(P21,P22) s(P21,P23) s(P22,P23) s(P22,P24) s(P23,P24) s(P23,P25) s(P24,P25) s(P20,P26) s(P21,P26) s(P26,P27) s(P13,P27) s(P27,P28) s(P6,P28) s(P34,P28) s(P20,P29) s(P27,P29) s(P39,P29) s(P49,P30) s(P50,P30) s(P30,P31) s(P30,P32) s(P31,P32) s(P31,P33) s(P32,P33) s(P32,P34) s(P33,P34) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P44,P40) s(P45,P40) s(P35,P41) s(P35,P42) s(P41,P42) s(P41,P43) s(P42,P43) s(P42,P44) s(P43,P44) s(P43,P45) s(P44,P45) s(P40,P46) s(P40,P47) s(P46,P47) s(P46,P48) s(P47,P48) s(P47,P49) s(P48,P49) s(P48,P50) s(P49,P50) s(P34,P51) s(P50,P51) s(P41,P52) s(P39,P52) s(P51,P53) s(P46,P53) s(P45,P54) s(P52,P54) pen(2) color(#0000FF) m(P3,P1,MA10) m(P1,P7,MB10) b(P1,MA10,MB10) pen(2) \geooff \geoprint() Daraus soll der 4/4 mit 108 Kanten gemacht werden und dazu muss man den blauen Winkel in P1 so variieren, dass Punkt P53 mit P54 zusammenfällt. Dafür gibt es aber zwei Lösungen, eine bei 20.133° und eine bei 18.881°. Nur eine dieser Lösungen führt zum 4/4 mit 108. Wenn man beI der automatischen Suche zuffällig bei der anderen Lösung landet, welche sich nicht zum fertigen Graph fortsetzen lässt, übersieht man die gesuchte Lösung. Ohne Zutun von Außen kann man mit dem Streichholzprogramm nicht feststellen, dass es keine Lösung gibt.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.648, eingetragen 2017-01-24

zetaX hat in einem anderen zusammenhang auf etwas interessantes hingewiesen: http://www.matheplanet.com/matheplanet/nuke/html/viewtopic.php?topic=225771&post_id=1647231 "Das Dual eines eulerschen planaren Graphen ist bipartit, d.h. die Flächen können so mit den Farben Schwarz und Weiß angemalt werden, dass benachbarte Flächen verschiedene Farben haben. O.B.d.A. sei die Außenfläche weiß." das gilt also sicher für alle 4-regulär und dann wohl auch für alle 4/n-regulär (wenn n gerade ist) daraus kann man wohl einiges an informationen ableiten, verhältnisse von inneren und äusseren kanten beispielsweise, evtl könnte man damit denkbare kleinere 4/4er ausschliessen? das wäre gut in hinblick auf den geträumten beweis ob harborth´s 104er zu unterbieten sein kann oder nicht als beispiel hier mal die zweifarbigkeit des 108ers: http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_4-4-108-bipatit.png haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.649, vom Themenstarter, eingetragen 2017-01-24

\quoteon(2017-01-24 14:30 - haribo in Beitrag No. 648) das gilt also sicher für alle 4-regulär und dann wohl auch für alle 4/n-regulär (wenn n gerade ist) \quoteoff Ja, das sehe ich auch so. \quoteon(2017-01-24 14:30 - haribo in Beitrag No. 648) daraus kann man wohl einiges an informationen ableiten, verhältnisse von inneren und äusseren kanten beispielsweise, evtl könnte man damit denkbare kleinere 4/4er ausschliessen? das wäre gut in hinblick auf den geträumten beweis ob harborth´s 104er zu unterbieten sein kann oder nicht \quoteoff Das sehe ich nicht so bzw. nocht nicht.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.650, eingetragen 2017-01-24

eine aussage kann ich herleiten erscheint ziemlich trivial aber immerhin "jeder 4/4er muss dreieckige flächen enthalten": es gilt der eulersche flächensatz. knoten+gebiete-hölzer=2 ein 4/4er hat immer doppelt so viel hölzer wie knoten, also knoten=hölzer/2 drum steht die anzahl der gebiete auch fest gebiete=2+knoten gebiete=2+hölzer-hölzer/2 gebiete=2+hölzer/2 zieht man das aussengebiet ab verbleiben innengebiete=1+hölzer/2 das verhältnis hölzer pro innegebiet beträgt daraus folgend <2 (der harborth hat 104/53=1,96...) da mit einem oder zwei hölzern kein eigenes gebiet abgetrennt werden kann, für gebiete die grösser als dreiecke sind aber >2 hölzer pro innengebiet erforderlich sind (ein endloses schachbrett käme auf genau 2) muss der graph also dreiecke enthalten haribo


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.651, eingetragen 2017-01-25

evtl könnte man noch ermitteln wie viele dreiecksflächen es mindestens geben muss bei 102..100..98..hölzern ?


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.652, eingetragen 2017-02-02

na die wichtigkeit der Bipartit eigenschaft des graphen-duals bzw 2-färbbarkeit des graphen diskutieren wir besser hier? ich denke, jede mathematische aussage zu streichholzgraphen sollte erwähnt werden also 2-färbbarkeit ist mindestens so wichtig wie, dass 4/4er in einer durchgehenden linie gezeichnet werden können, oder das sie aus einer geraden anzahl hölzer bestehen ob man jetzt weiss oder nicht ob darüberhinausgehende weitere aussagen daraus abgeleitet werden können spielt doch beim sammeln aller informationen keine rolle haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.653, vom Themenstarter, eingetragen 2017-02-02

Ja, #652 stimme ich zu. Hier ist der richtige Ort dafür. :-) Hier noch zwei Artikel, die man als PDF im Netz findet und die nicht bei Wikipedia verlinkt sind. Konstruktion und Eigenschaften ganzzahliger Punktmengen (Kurz) Plane four-regular graphs with vertex-to-vertex unit triangles (Harborth)


   Profil
StefanVogel
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 26.11.2005
Mitteilungen: 3936
Wohnort: Raun
  Beitrag No.654, eingetragen 2017-02-04

\quoteon(2017-01-21 15:48 - haribo in Beitrag No. 646) um es in deinem program eingeben zu können muss man wohl immer noch wissen ob ein winkel nach innen oder aussen gedrückt ist, oder? das spielte bei unserem program keine rolle da wir ja jede linie als feder angesehen haben die entweder zieht oder drückt... im oberen bild die linie b8-x5-c8 ist eine der linien die evtl. auch in die andere richtung geknickt sein könnte ebenso evtl d7-d8-d6... \quoteoff \quoteon(2017-01-22 07:56 - StefanVogel in Beitrag No. 647) Selbst wenn ein Winkel immer nur nach einer Seite gedrückt ist, kann man mit dem Streichholzprogramm Lösungen übersehen. \quoteoff Button "Feinjustieren" war ursprünglich dafür gedacht und so benannt, in vorliegenden Lösungen wie Lego oder Heftstreifen noch paar Kommastellen Genauigkeit mehr herauszuholen. Da konnte ich davon ausgehen, dass die Winkelkonstellationen im wesentlichen schon stimmen. Auch wenn es sehr oft gelingt, einen Graph über größere Entfernungen zurechtzuziehen, wegen der genannten Gründe ist Button "Feinjustieren" für das Ausschließen weiter entferner Lösungen nicht geeignet. Man kann es versuchen, hat aber letztendlich keine Gewißheit, dass man keine Lösung übersehen hat. Dafür müsste eher ein neuer Button "grob Vorjustieren" her, welcher entsprechend der genannten Hinweise systematisch alle möglichen Winkeleinstellungen durchmustert und dabei - eventuell auch mehrere - Lösungsvorschläge mit halbwegs passenden Kanten liefert. Ich versuche nochmal am #645-1 zu testen, wie sowas aussehen könnte und will damit auch nochmal versuchen, dich von der Unlösbarkeit des #645-1 zu überzeugen. Für das Durchmustern verschiedener Winkeleinstellungen erscheint eine Eingabe mit möglichst wenig beweglichen Winkeln günstiger. Natürlich ohne Verwendung von Symmetriebedingungen und ähnliche Tricks, die eine allgemeinere Lösungssuche wieder verhindern würden. Ich habe eine Eingabe mit nur einem zu verändernden blauen Winkel verwedet. Der Aufbau des Graphen erfolgt in der Reihenfolge der Punktnummerierung. Von P1 bis P12 gibt es nichts zu variieren und ich habe die in P6 zusammenfallenden Punkte bereits als nur einen Punkt eingegeben. P13 ist der mit blauen Winkel einstellbare Punkt. Anschließend kann P14 nur nach einer Seite gezeichnet werden, auf der anderen Seite wird die Entfernung zu P3 zu groß. Jedoch kann P15 nach beiden Seiten gezeichnet werden, den zweiten Punkt bezeichne ich als P99, das ergibt die erste Fallunterscheidung. Der blaue Winkel geht nur zwischen 0° und 72° zu variieren, sonst wird P14-P3 zu groß. Weiter geht es eindeutig mit P17 bis P27. P28 geht wieder nach zwei Seiten zu zeichnen, die Variante nach außen führt zum #645-2, welcher nicht weiter untersucht werden sollte, also P28 nach innen. Dann P29 bis P33 eindeutig. P34 geht nur nach oben zu zeichnen, unterhalb gibt es Überschneidung für jeden möglichen blauen Winkel. Dann eindeutig P35 bis P40. P41 geht nach beiden Seiten zu zeichnen, das ergibt die zweite Fallunterscheidung und ich gebe zu, dass ich diese zusätzliche Variante bisher nicht beachtet habe. Aber erstmal weiter mit P41 nach oben und dann eindeutig P42 bis P46. P47 könnte man auch überschneidungsfrei nach innen zeichnen, doch gibt es dann keine Fortsetzung. Von P43 aus ist schon das Ziel P1 in Sicht, der Abstand P43-P1 muss exakt 2 sein. \geo ebene(356.44,385.39) x(8.7,15.86) y(10.38,18.13) form(.) #//Eingabe war: # #No.642-1 mit nur einem beweglichen blauen Winkel. Ab Punkt 28 wird die Abweichung von der Vorlage zu groß. Abstand P1-P43 müsste Länge 2 haben und das geht mit dem blauen Winkel nicht so einzustellen, dass danach eine Fortsetzung möglich ist. # # # # #P[1]=[76.44,344.38]; P[2]=[125.0,333.5]; D=ab(1,2); A(2,1); L(3,2,1); L(4,2,3); L(5,2,4); L(6,5,4); L(7,5,6); L(8,7,6); L(9,8,6); L(10,8,9); L(11,10,9); L(12,10,11); M(13,11,9,blauerWinkel); N(14,13,6); N(15,14,3); Q(16,12,13,ab(1,5,[1,5]),ab(2,1,3)); L(21,19,18); A(21,20,ab(21,20,12,13,[16,21],"gespiegelt")); N(28,23,22); L(29,22,28); L(30,29,28); L(31,29,30); L(32,31,30); L(33,31,32); N(34,32,23); A(33,34,ab(33,34,22,[28,33],"gespiegelt")); N(41,36,34); Q(42,35,41,ab(21,22,[24,27]),ab(2,1,3)); R(1,43); N(99,3,14); # # #//Ende der Eingabe, weiter mit fedgeo: p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.38440711881244,13.665703228690948,P13) p(13.288789715933113,14.66112138819308,P14) p(12.418869400411419,15.154313688054538,P15) p(13.496820230710386,12.672041670476371,P16) p(14.427991190207205,13.036624506317242,P17) p(14.278143708080762,12.047915382206229,P18) p(15.209314667577582,12.4124982180471,P19) p(12.58007752258356,13.071519838961576,P20) p(15.059467185451137,11.423789093936087,P21) p(13.35244488343302,10.381639939346035,P22) p(12.343779178830214,12.099839288194282,P23) p(13.303428392034613,12.38103919501534,P24) p(13.327936637733817,11.38133956718069,P25) p(14.181447788742876,11.902414144475713,P26) p(14.205956034442078,10.902714516641062,P27) p(12.923273513482544,11.28486302099023,P28,nolabel) print(\P28,12.9,11.6) p(12.355645064469444,10.461578171214052,P29) p(11.926473694518968,11.364801252858244,P30) p(11.358845245505869,10.541516403082067,P31) p(10.929673875555395,11.444739484726261,P32) p(10.362045426542295,10.621454634950084,P33) p(11.373283898693842,12.340959406046416,P34) p(8.69901280352713,13.118317165164212,P35) p(9.6969670343373,13.18224957641299,P36) p(9.253357011198853,12.286029655092836,P37) p(10.251311242009022,12.349962066341615,P38) p(9.807701218870573,11.45374214502146,P39) p(10.805655449680742,11.517674556270238,P40) p(10.690861844697691,13.071917777104353,P41) p(10.470186368509356,14.047265066129679,P42) p(8.780107104989913,15.116672417432998,P43) p(8.739559954258524,14.117494791298608,P44) p(9.625146736749635,14.581968741781338,P45) p(9.584599586018243,13.582791115646945,P46) p(11.425199636411739,13.750701989988343,P47) p(12.704535408128793,15.472692028255974,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) pen(2) color(#0000FF) m(P9,P11,MA10) m(P11,P13,MB10) b(P11,MA10,MB10) pen(2) color(red) s(P1,P43) abstand(P1,P43,A0) print(abs(P1,P43):,8.7,18.126) print(A0,10.01,18.126) print(min=0.9999999999999957,8.7,17.825) print(max=1.0000000000000022,8.7,17.523) \geooff \geoprint() Abstand P43-P1 muss ich jetzt mit dem blauen Winkel auf Länge 2 einstellen und zwar schrittweise alle möglichen Winkeleinstellungen durchmustern, damit auch mehrere Lösungsmöglichkeiten erkannt werden. Ich gebe das auszugsweise so wieder: \geo ebene(356.44,385.39) x(8.7,15.86) y(10.38,18.13) form(.) nolabel() color(#DDDDFF) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.38440711881244,13.665703228690948,P13) p(13.288789715933113,14.66112138819308,P14) p(12.418869400411419,15.154313688054538,P15) p(13.496820230710386,12.672041670476371,P16) p(14.427991190207205,13.036624506317242,P17) p(14.278143708080762,12.047915382206229,P18) p(15.209314667577582,12.4124982180471,P19) p(12.58007752258356,13.071519838961576,P20) p(15.059467185451137,11.423789093936087,P21) p(13.35244488343302,10.381639939346035,P22) p(12.343779178830214,12.099839288194282,P23) p(13.303428392034613,12.38103919501534,P24) p(13.327936637733817,11.38133956718069,P25) p(14.181447788742876,11.902414144475713,P26) p(14.205956034442078,10.902714516641062,P27) p(12.923273513482544,11.28486302099023,P28) p(12.355645064469444,10.461578171214052,P29) p(11.926473694518968,11.364801252858244,P30) p(11.358845245505869,10.541516403082067,P31) p(10.929673875555395,11.444739484726261,P32) p(10.362045426542295,10.621454634950084,P33) p(11.373283898693842,12.340959406046416,P34) p(8.69901280352713,13.118317165164212,P35) p(9.6969670343373,13.18224957641299,P36) p(9.253357011198853,12.286029655092836,P37) p(10.251311242009022,12.349962066341615,P38) p(9.807701218870573,11.45374214502146,P39) p(10.805655449680742,11.517674556270238,P40) p(10.690861844697691,13.071917777104353,P41) p(10.470186368509356,14.047265066129679,P42) p(8.780107104989913,15.116672417432998,P43) p(8.739559954258524,14.117494791298608,P44) p(9.625146736749635,14.581968741781338,P45) p(9.584599586018243,13.582791115646945,P46) p(11.425199636411739,13.750701989988343,P47) p(12.704535408128793,15.472692028255974,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#BBBBDD) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.392205692919916,13.752592733571568,P13) p(13.183606474236205,14.730593943164145,P14) p(12.235976598620883,15.049964603747252,P15) p(13.466317984643709,12.755342830981725,P16) p(14.412740067173868,13.078275086569917,P17) p(14.219196562949573,12.097183392602131,P18) p(15.165618645479732,12.420115648190325,P19) p(12.565618089217452,13.189784654911156,P20) p(14.972075141255438,11.43902395422254,P21) p(13.224291469310982,10.466783121874736,P22) p(12.28454994905516,12.230096840783194,P23) p(13.256198045873482,12.466528598272182,P24) p(13.240244757592231,11.466655860073459,P25) p(14.11413659356446,11.952776276247361,P26) p(14.098183305283209,10.952903538048636,P27) p(12.79291467898858,11.368954981761277,P28) p(12.22729932490858,10.544285792795815,P29) p(11.79592253458618,11.446457652682357,P30) p(11.230307180506179,10.621788463716895,P31) p(10.798930390183779,11.523960323603438,P32) p(10.233315036103779,10.699291134637974,P33) p(11.297544614092509,12.39078432864477,P34) p(8.729161545038982,13.294964895979637,P35) p(9.729160265969309,13.296564313907082,P36) p(9.230546042060581,12.42974030886575,P37) p(10.230544762990908,12.431339726793194,P38) p(9.73193053908218,11.564515721751862,P39) p(10.73192926001251,11.566115139679304,P40) p(10.725493088316064,13.211002014297085,P41) p(10.518083826685054,14.189256274798762,P42) p(8.849143633419244,15.291362726690718,P43) p(8.789152589229111,14.293163811335177,P44) p(9.68361373005215,14.74030950074474,P45) p(9.623622685862017,13.742110585389199,P46) p(11.468981498455369,13.87975083410055,P47) p(12.78224496822242,15.646513667534325,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#9999BB) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.407547510433304,13.838471907134746,P13) p(13.108984961337882,14.79286197638193,P14) p(12.13317764170252,15.011494258870247,P15) p(13.439809543087001,12.838992461998904,P16) p(14.399485846395514,13.120099902078508,P17) p(14.163093879043007,12.148442123963594,P18) p(15.12277018235152,12.429549564043198,P19) p(12.558103936712136,13.310792444711,P20) p(14.886378214999011,11.457891785928284,P21) p(13.09879449192367,10.560927777176483,P22) p(12.234580278339102,12.364572363296045,P23) p(13.215792735601953,12.557502697127196,P24) p(13.15729361376281,11.55921523715184,P25) p(14.051085475300482,12.00769724152774,P26) p(13.99258635346134,11.009409781552382,P27) p(12.666687385131386,11.462750070236263,P28) p(12.101739923038624,10.637623192068459,P29) p(11.66963281624634,11.53944548512824,P30) p(11.104685354153576,10.714318606960436,P31) p(10.672578247361292,11.616140900020218,P32) p(10.107630785268528,10.791014021852414,P33) p(11.237525709454054,12.441267778188022,P34) p(8.811309464891677,13.496480901031758,P35) p(9.808364033776723,13.41978548613978,P36) p(9.24341657168396,12.594658607971976,P37) p(10.240471140569008,12.51796319308,P38) p(9.675523678476244,11.692836314912196,P39) p(10.672578247361292,11.616140900020218,P40) p(10.80541860266177,13.343090071247802,P41) p(10.630414976592283,14.327657860108747,P42) p(9.001041859141008,15.487460965867271,P43) p(8.906175662016341,14.491970933449512,P44) p(9.815728417866644,14.90755941298801,P45) p(9.720862220741978,13.912069380570252,P46) p(11.570577506528478,13.986931551608844,P47) p(12.81042241224246,15.747252045629114,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#777799) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.430315810857685,13.922687157014408,P13) p(13.052910464857701,14.848735322506158,P14) p(12.063281047178982,14.992379381432656,P15) p(13.41723002697111,12.922772779549982,P16) p(14.388196088337569,13.161990060854047,P17) p(14.109881300287906,12.201500144846142,P18) p(15.080847361654367,12.440717426150206,P19) p(12.557821666420901,13.434062589556403,P20) p(14.802532573604704,11.480227510142301,P21) p(12.976663374329439,10.664015731779662,P22) p(12.19418077114252,12.502523379817417,P23) p(13.182737839036951,12.653370731520912,P24) p(13.079700606683195,11.658693231650288,P25) p(13.992635206320829,12.066799120831607,P26) p(13.88959797396707,11.072121620960981,P27) p(12.625557561464898,11.600351519930863,P28) p(11.990219888885704,10.828117072498186,P29) p(11.639114076021164,11.764452860649387,P30) p(11.00377640344197,10.992218413216708,P31) p(10.65267059057743,11.92855420136791,P32) p(10.017332917998235,11.156319753935232,P33) p(11.224936126819305,12.74862258633943,P34) p(8.745131059683608,13.87321180767988,P35) p(9.741463882030361,13.787649508069851,P36) p(9.169198345788484,12.96758112309833,P37) p(10.165531168135237,12.882018823488302,P38) p(9.59326563189336,12.061950438516782,P39) p(10.589598454240114,11.97638813890675,P40) p(10.72654811141327,13.615576671686304,P41) p(10.605188581311431,14.60818528763393,P42) p(9.038654115749457,15.85155561388692,P43) p(8.891892587716534,14.862383710783401,P44) p(9.821921348530445,15.229870450760426,P45) p(9.67515981502154,14.240698561515412,P46) p(11.525492623788306,14.216981415719651,P47) p(12.824244510285817,15.822240269190933,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#555577) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.460337313678956,14.004597554308411,P13) p(13.01041138564732,14.897663430537524,P14) p(12.013982716608355,14.982102210237592,P15) p(13.398495099014639,13.006511615881559,P16) p(14.378828624359333,13.203859479019835,P17) p(14.059570124547307,12.256191810320635,P18) p(15.039903649892,12.453539673458913,P19) p(12.565048428509112,13.559111514020575,P20) p(14.720645150079976,11.505872004759713,P21) p(12.85858905093609,10.775976749506567,P22) p(12.163609430641733,12.643225750952258,P23) p(13.157509267357083,12.753512262263502,P24) p(13.008049159146587,11.764744505885034,P25) p(13.93907720871853,12.129692133511607,P26) p(13.789617100508032,11.14092437713314,P27) p(12.592780800592212,11.740002669308065,P28) p(11.890813989309393,11.027793012074026,P29) p(11.625005738965516,11.991818931875525,P30) p(10.923038927682697,11.279609274641484,P31) p(10.65723067733882,12.243635194442982,P32) p(9.955263866056,11.531425537208941,P33) p(11.249728223565535,13.049207449250284,P34) p(8.751072073654969,14.279137699556735,P35) p(9.744966884015362,14.168805900248106,P36) p(9.152469337788647,13.363233645440804,P37) p(10.146364148149038,13.252901846132175,P38) p(9.553866601922323,12.447329591324872,P39) p(10.547761412282714,12.336997792016243,P40) p(10.704603283048217,13.887562266273477,P41) p(10.656647642529911,14.886411732680942,P42) p(9.177945118348244,16.233051567595524,P43) p(8.964508596001608,15.256094633576126,P44) p(9.917296380439078,15.559731650138232,P45) p(9.70385986592918,14.582774691527797,P46) p(11.54565447525446,14.428517802420817,P47) p(12.831043761646063,15.881445548417364,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#BBDDBB) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.59137105282139,14.230381757981336,P13) p(12.942735756087217,14.991481128517517,P14) p(11.942930084523871,14.971767703909755,P15) p(13.364405600166544,13.256478947994026,P16) p(14.361783874935284,13.328843145076068,P17) p(13.925763970548427,12.428906123402621,P18) p(14.923142245317168,12.501270320484664,P19) p(12.634463752227905,13.939988200768212,P20) p(14.487122340930311,11.601333298811216,P21) p(12.53545665770209,11.16429661738811,P22) p(12.132806463915397,13.074921749515509,P23) p(13.132804630818145,13.073007019469618,P24) p(12.834130644260117,12.118651818428864,P25) p(13.809963485874228,12.337170159140417,P26) p(13.5112894993162,11.382814958099665,P27) p(12.545919257860799,12.164241882889138,P28) p(11.67470995546358,11.673330127665706,P29) p(11.68517255562229,12.673275393166733,P30) p(10.813963253225069,12.1823636379433,P31) p(10.824425853383778,13.182308903444326,P32) p(9.953216550986559,12.691397148220894,P33) p(11.540328847399072,13.88050866222396,P34) p(9.21309485795151,15.598667324778095,P35) p(10.175705082978489,15.327777024705327,P36) p(9.459802088963194,14.629577265925693,P37) p(10.42241231399017,14.358686965852929,P38) p(9.706509319974877,13.660487207073293,P39) p(10.669119545001852,13.389596907000527,P40) p(10.93364303806237,14.67545037628196,P41) p(11.212751790903653,15.635709874588217,P42) p(10.180843535271062,17.348942302473382,P43) p(9.696969196611287,16.47380481362574,P44) p(10.696797663087356,16.492326088530803,P45) p(10.212923324427582,15.617188599683155,P46) p(11.90480653424153,14.913864855055948,P47) p(12.834420764170446,15.985597752725194,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#DDFFDD) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.6475970433098,14.297084395186369,P13) p(12.936966628376558,15.000649895599661,P14) p(11.937400935916484,14.971180819319368,P15) p(13.360120611791016,13.339296683153464,P16) p(14.359641380747522,13.370252012655786,P17) p(13.886689098000799,12.489163970378137,P18) p(14.886209866957305,12.52011929988046,P19) p(12.674390337497337,14.06715243185448,P20) p(14.413257584210582,11.639031257602808,P21) p(12.440352131599418,11.310939692552529,P22) p(12.143326436689755,13.219820659017518,P23) p(13.142669227804063,13.183571716303772,P24) p(12.79151067970174,12.247255704428149,P25) p(13.777963406007323,12.411301486953292,P26) p(13.426804857905,11.474985475077668,P27) p(12.547580840850301,12.30517407332619,P28) p(11.632934255158977,11.90091966916564,P29) p(11.74016296440986,12.895154049939302,P30) p(10.825516378718536,12.490899645778752,P31) p(10.93274508796942,13.485134026552416,P32) p(10.018098502278095,13.080879622391864,P33) p(11.706062037961093,14.119153659415291,P34) p(9.530842601593603,16.041045443295843,P35) p(10.466578185146775,15.688343135857394,P36) p(9.693261235155102,15.054323502994517,P37) p(10.628996818708272,14.701621195556067,P38) p(9.8556798687166,14.067601562693191,P39) p(10.791415452269769,13.714899255254739,P40) p(11.100597818009652,14.915026185865722,P41) p(11.51895496077217,15.823308796675587,P42) p(10.713464248490865,17.653932928612168,P43) p(10.122153425042233,16.847489185954004,P44) p(11.11620960463152,16.738620862643877,P45) p(10.524898781182886,15.932177119985717,P46) p(12.096372204167908,15.006859577783642,P47) p(12.834180785067172,15.995353404397726,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#0) p(11.536052543511676,16.920274397364615,P1,label) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.514772585903739,14.115384663085338,P13) p(12.968512191080055,14.953000076653566,P14) p(11.968752496231787,14.974921585654918,P15) p(13.378363980532859,13.124732003279304,P16) p(14.368763065118443,13.262969672718707,P17) p(13.99328085632013,12.336140070863037,P18) p(14.983679940905713,12.47437774030244,P19) p(12.58863791349965,13.73819165072831,P20) p(14.608197732107401,11.547548138446771,P21) p(12.699719112950806,10.949460051103335,P22) p(12.137544722770182,12.845714797651711,P23) p(13.135998945188842,12.901295061544111,P24) p(12.917859029069824,11.925377556323724,P25) p(13.872098338648122,12.224421599995443,P26) p(13.653958422529103,11.248504094775052,P27) p(12.560981760365884,11.939789262526348,P28) p(11.772700181456205,11.324474585022502,P29) p(11.633962828871283,12.314803796445513,P30) p(10.845681249961604,11.699489118941669,P31) p(10.706943897376684,12.68981833036468,P32) p(9.918662318467005,12.074503652860834,P33) p(11.347012898961262,13.458135760344323,P34) p(8.88261858324565,14.889927844471856,P35) p(9.86803549657068,14.719770543914489,P36) p(9.2279664949861,13.95145311393485,P37) p(10.213383408311131,13.781295813377483,P38) p(9.573314406726553,13.012978383397842,P39) p(10.558731320051583,12.842821082840477,P40) p(10.760038644178378,14.267741358288209,P41) p(10.847339262189724,15.263923370821479,P42) p(9.54108929599718,16.778423626952844,P43,label) p(9.211853939621415,15.83417573571235,P44) p(10.194214279093455,16.021173498887162,P45) p(9.86497892550417,15.076925593008356,P46) p(11.666407882830972,14.690227811590937,P47) p(12.834374787455367,15.94396281911608,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P36,P41) s(P34,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) pen(2) color(#0000FF) m(P9,P11,MA10) m(P11,P13,MB10) b(P11,MA10,MB10) pen(2) color(red) s(P1,P43) abstand(P1,P43,A0) print(abs(P1,P43):,8.88,18.126) print(A0,10.19,18.126) \geooff \geoprint() Nach Betrachtung des ganzen Bewegungsablaufes von 72° bis 0° in 1°-Schritten scheint es wirklich nur eine Möglichkeit P43-P1 gleich 2 zu geben, die aber nicht weiter zum fertigen Graphen vervollständigt werden kann. Auch die zweite Fallunterscheidung P41 nach unten, da ersetze ich nur Eingabe N(41,36,34) durch N(41,34,36), \geo ebene(356.44,385.39) x(8.7,15.86) y(10.38,18.13) form(.) nolabel() color(#DDDDFF) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.38440711881244,13.665703228690948,P13) p(13.288789715933113,14.66112138819308,P14) p(12.418869400411419,15.154313688054538,P15) p(13.496820230710386,12.672041670476371,P16) p(14.427991190207205,13.036624506317242,P17) p(14.278143708080762,12.047915382206229,P18) p(15.209314667577582,12.4124982180471,P19) p(12.58007752258356,13.071519838961576,P20) p(15.059467185451137,11.423789093936087,P21) p(13.35244488343302,10.381639939346035,P22) p(12.343779178830214,12.099839288194282,P23) p(13.303428392034613,12.38103919501534,P24) p(13.327936637733817,11.38133956718069,P25) p(14.181447788742876,11.902414144475713,P26) p(14.205956034442078,10.902714516641062,P27) p(12.923273513482544,11.28486302099023,P28) p(12.355645064469444,10.461578171214052,P29) p(11.926473694518968,11.364801252858244,P30) p(11.358845245505869,10.541516403082067,P31) p(10.929673875555395,11.444739484726261,P32) p(10.362045426542295,10.621454634950084,P33) p(11.373283898693842,12.340959406046416,P34) p(8.69901280352713,13.118317165164212,P35) p(9.6969670343373,13.18224957641299,P36) p(9.253357011198853,12.286029655092836,P37) p(10.251311242009022,12.349962066341615,P38) p(9.807701218870573,11.45374214502146,P39) p(10.805655449680742,11.517674556270238,P40) p(10.37938908833345,12.451291205355052,P41) p(10.678275314604319,13.405579958168142,P42) p(9.439867182762246,14.976040177017198,P43) p(9.069439993144691,14.047178671090705,P44) p(10.059071248683283,14.190810067592668,P45) p(9.688644059065725,13.261948561666177,P46) p(11.355270503950788,12.669592516969761,P47) p(12.704535408128793,15.472692028255974,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#BBBBDD) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.392205692919916,13.752592733571568,P13) p(13.183606474236205,14.730593943164145,P14) p(12.235976598620883,15.049964603747252,P15) p(13.466317984643709,12.755342830981725,P16) p(14.412740067173868,13.078275086569917,P17) p(14.219196562949573,12.097183392602131,P18) p(15.165618645479732,12.420115648190325,P19) p(12.565618089217452,13.189784654911156,P20) p(14.972075141255438,11.43902395422254,P21) p(13.224291469310982,10.466783121874736,P22) p(12.28454994905516,12.230096840783194,P23) p(13.256198045873482,12.466528598272182,P24) p(13.240244757592231,11.466655860073459,P25) p(14.11413659356446,11.952776276247361,P26) p(14.098183305283209,10.952903538048636,P27) p(12.79291467898858,11.368954981761277,P28) p(12.22729932490858,10.544285792795815,P29) p(11.79592253458618,11.446457652682357,P30) p(11.230307180506179,10.621788463716895,P31) p(10.798930390183779,11.523960323603438,P32) p(10.233315036103779,10.699291134637974,P33) p(11.297544614092509,12.39078432864477,P34) p(8.729161545038982,13.294964895979637,P35) p(9.729160265969309,13.296564313907082,P36) p(9.230546042060581,12.42974030886575,P37) p(10.230544762990908,12.431339726793194,P38) p(9.73193053908218,11.564515721751862,P39) p(10.73192926001251,11.566115139679304,P40) p(10.301211791745756,12.476346628254767,P41) p(10.727309147306611,13.38102394287255,P42) p(9.653706025338058,15.068441003500826,P43) p(9.191433785188519,14.181702949740233,P44) p(10.190507586322335,14.224732473186688,P45) p(9.728235346172797,13.337994419426094,P46) p(11.297734006212671,12.559674151162586,P47) p(12.78224496822242,15.646513667534325,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#9999BB) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.407547510433304,13.838471907134746,P13) p(13.108984961337882,14.79286197638193,P14) p(12.13317764170252,15.011494258870247,P15) p(13.439809543087001,12.838992461998904,P16) p(14.399485846395514,13.120099902078508,P17) p(14.163093879043007,12.148442123963594,P18) p(15.12277018235152,12.429549564043198,P19) p(12.558103936712136,13.310792444711,P20) p(14.886378214999011,11.457891785928284,P21) p(13.09879449192367,10.560927777176483,P22) p(12.234580278339102,12.364572363296045,P23) p(13.215792735601953,12.557502697127196,P24) p(13.15729361376281,11.55921523715184,P25) p(14.051085475300482,12.00769724152774,P26) p(13.99258635346134,11.009409781552382,P27) p(12.666687385131386,11.462750070236263,P28) p(12.101739923038624,10.637623192068459,P29) p(11.66963281624634,11.53944548512824,P30) p(11.104685354153576,10.714318606960436,P31) p(10.672578247361292,11.616140900020218,P32) p(10.107630785268528,10.791014021852414,P33) p(11.237525709454054,12.441267778188022,P34) p(8.811309464891677,13.496480901031758,P35) p(9.808364033776723,13.41978548613978,P36) p(9.24341657168396,12.594658607971976,P37) p(10.240471140569008,12.51796319308,P38) p(9.675523678476244,11.692836314912196,P39) p(10.672578247361292,11.616140900020218,P40) p(10.240471140569008,12.51796319308,P41) p(10.80541860266177,13.343090071247802,P42) p(9.941204389077205,15.146734657367366,P43) p(9.37625692698444,14.32160777919956,P44) p(10.373311495869487,14.244912364307584,P45) p(9.808364033776723,13.41978548613978,P46) p(11.237525709454054,12.441267778188022,P47) p(12.81042241224246,15.747252045629114,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#777799) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.430315810857685,13.922687157014408,P13) p(13.052910464857701,14.848735322506158,P14) p(12.063281047178982,14.992379381432656,P15) p(13.41723002697111,12.922772779549982,P16) p(14.388196088337569,13.161990060854047,P17) p(14.109881300287906,12.201500144846142,P18) p(15.080847361654367,12.440717426150206,P19) p(12.557821666420901,13.434062589556403,P20) p(14.802532573604704,11.480227510142301,P21) p(12.976663374329439,10.664015731779662,P22) p(12.19418077114252,12.502523379817417,P23) p(13.182737839036951,12.653370731520912,P24) p(13.079700606683195,11.658693231650288,P25) p(13.992635206320829,12.066799120831607,P26) p(13.88959797396707,11.072121620960981,P27) p(12.625557561464898,11.600351519930863,P28) p(11.990219888885704,10.828117072498186,P29) p(11.639114076021164,11.764452860649387,P30) p(11.00377640344197,10.992218413216708,P31) p(10.65267059057743,11.92855420136791,P32) p(10.017332917998235,11.156319753935232,P33) p(11.224936126819305,12.74862258633943,P34) p(8.745131059683608,13.87321180767988,P35) p(9.741463882030361,13.787649508069851,P36) p(9.169198345788484,12.96758112309833,P37) p(10.165531168135237,12.882018823488302,P38) p(9.59326563189336,12.061950438516782,P39) p(10.589598454240114,11.97638813890675,P40) p(10.239851897436395,12.920695422722979,P41) p(10.743175647219466,13.784793335522394,P42) p(9.820725996503723,15.55935994230119,P43) p(9.282928528093667,14.716285874990536,P44) p(10.281950821861596,14.672076638911793,P45) p(9.744153354110306,13.829002586487729,P46) p(11.239844516169336,12.916853225482505,P47) p(12.824244510285817,15.822240269190933,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#BBDDBB) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.541172537090711,14.159032526486204,P13) p(12.956569092137444,14.970351706679038,P14) p(11.956573584410586,14.973349126587019,P15) p(13.37217674657959,13.173415753704043,P16) p(14.365669448141809,13.287311547931077,P17) p(13.967559748545517,12.369973732790248,P18) p(14.961052450107735,12.483869527017283,P19) p(12.603105478209766,13.812578787810386,P20) p(14.562942750511443,11.566531711876452,P21) p(12.637315043009933,11.026200394902803,P22) p(12.132763495297333,12.930094556160892,P23) p(13.132188249801203,12.964008566317126,P24) p(12.884751646405569,11.995104480609964,P25) p(13.847565500156323,12.265270139096788,P26) p(13.600128896760687,11.296366053389628,P27) p(12.55289322367519,12.02263050104182,P28) p(11.732170348330548,11.451304007794723,P29) p(11.647748528995805,12.44773411393374,P30) p(10.827025653651164,11.876407620686644,P31) p(10.742603834316421,12.87283772682566,P32) p(9.92188095897178,12.301511233578564,P33) p(11.408121372181382,13.619219939096396,P34) p(8.980999395491358,15.150149835350055,P35) p(9.960144121183127,14.946985847030295,P36) p(9.294626583318166,14.200603634759558,P37) p(10.273771309009934,13.997439646439798,P38) p(9.608253771144973,13.251057434169061,P39) p(10.587398496836741,13.0478934458493,P40) p(10.557512475171123,14.14501885914758,P41) p(10.978591694892708,15.052042723617893,P42) p(10.064758796244002,16.831061957169716,P43) p(9.52287909586768,15.990605896259883,P44) p(10.521675245568355,15.941552340393805,P45) p(9.979795545192031,15.101096279483976,P46) p(11.553557793501941,14.233865490098115,P47) p(12.834610600333956,15.962886908209452,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#DDFFDD) p(11.536052543511676,16.920274397364615,P1) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.6475970433098,14.297084395186369,P13) p(12.936966628376558,15.000649895599661,P14) p(11.937400935916484,14.971180819319368,P15) p(13.360120611791016,13.339296683153464,P16) p(14.359641380747522,13.370252012655786,P17) p(13.886689098000799,12.489163970378137,P18) p(14.886209866957305,12.52011929988046,P19) p(12.674390337497337,14.06715243185448,P20) p(14.413257584210582,11.639031257602808,P21) p(12.440352131599418,11.310939692552529,P22) p(12.143326436689755,13.219820659017518,P23) p(13.142669227804063,13.183571716303772,P24) p(12.79151067970174,12.247255704428149,P25) p(13.777963406007323,12.411301486953292,P26) p(13.426804857905,11.474985475077668,P27) p(12.547580840850301,12.30517407332619,P28) p(11.632934255158977,11.90091966916564,P29) p(11.74016296440986,12.895154049939302,P30) p(10.825516378718536,12.490899645778752,P31) p(10.93274508796942,13.485134026552416,P32) p(10.018098502278095,13.080879622391864,P33) p(11.706062037961093,14.119153659415291,P34) p(9.530842601593603,16.041045443295843,P35) p(10.466578185146775,15.688343135857394,P36) p(9.693261235155102,15.054323502994517,P37) p(10.628996818708272,14.701621195556067,P38) p(9.8556798687166,14.067601562693191,P39) p(10.791415452269769,13.714899255254739,P40) p(11.072042405098216,14.892470609406963,P41) p(11.51490494974511,15.789060128946913,P42) p(10.741099459276139,17.633301182312792,P43) p(10.13597103043487,16.837173312804314,P44) p(11.128002204510626,16.711180655629853,P45) p(10.522873775669357,15.915052786121379,P46) p(12.069942978110145,14.957235155128107,P47) p(12.834180785067172,15.995353404397726,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) replace() nolabel() color(#0) p(11.536052543511676,16.920274397364615,P1,label) p(12.511859863147038,16.701642114876297,P2) p(11.834615092607098,15.965884328117433,P3) p(12.81042241224246,15.747252045629114,P4) p(13.487667182782399,16.483009832387978,P5) p(13.786229731877821,15.528619763140796,P6) p(14.46347450241776,16.264377549899663,P7) p(14.762037051513182,15.309987480652477,P8) p(14.084792280973243,14.574229693893614,P9) p(15.060599600608604,14.355597411405295,P10) p(14.383354830068665,13.61983962464643,P11) p(15.359162149704026,13.401207342158111,P12) p(13.45620628012243,13.994533588212157,P13) p(13.015072546738274,14.891974967506957,P14) p(12.019230664563489,14.983073516927805,P15) p(13.400624069767511,12.99607947414779,P16) p(14.379893109735768,13.19864340815295,P17) p(14.065684102490623,12.24928957539826,P18) p(15.044953142458882,12.45185350940342,P19) p(12.563728547652143,13.543442137345824,P20) p(14.730744135213737,11.50249967664873,P21) p(12.873063969039167,10.761537869129864,P22) p(12.166876657348846,12.625559477545181,P23) p(13.160212303581078,12.74081698890297,P24) p(13.016638136310123,11.751177429016419,P25) p(13.945478219397408,12.121658332775851,P26) p(13.801904052126451,11.132018772889298,P27) p(12.59640465158933,11.72250593419144,P28) p(11.902511553745347,11.002427904555429,P29) p(11.625852236295508,11.963395969617004,P30) p(10.931959138451525,11.243317939980994,P31) p(10.655299821001687,12.204286005042569,P32) p(9.961406723157705,11.484207975406557,P33) p(11.244635397973687,13.012174349874378,P34) p(8.746454598478575,14.227179235689404,P35) p(9.740774217010285,14.120743827093598,P36) p(9.151438640038286,13.312855482261789,P37) p(10.145758258569995,13.206420073665981,P38) p(9.556422681597995,12.398531728834172,P39) p(10.550742300129706,12.292096320238365,P40) p(10.280942279966615,13.279186661024646,P41) p(10.745479701062122,14.164740151448536,P42) p(9.800040982911977,15.927166215209116,P43,label) p(9.273247790695276,15.077172725449259,P44) p(10.272760341987048,15.045953183328827,P45) p(9.745967149770348,14.19595969356897,P46) p(11.280122809631436,13.31966219855937,P47) p(12.830456974781884,15.874785778696587,P99) nolabel() s(P1,P2) s(P2,P3) s(P1,P3) s(P2,P4) s(P3,P4) s(P2,P5) s(P4,P5) s(P5,P6) s(P4,P6) s(P5,P7) s(P6,P7) s(P7,P8) s(P6,P8) s(P8,P9) s(P6,P9) s(P8,P10) s(P9,P10) s(P10,P11) s(P9,P11) s(P10,P12) s(P11,P12) s(P17,P12) s(P19,P12) s(P11,P13) s(P13,P14) s(P6,P14) s(P14,P15) s(P3,P15) s(P13,P16) s(P16,P17) s(P16,P18) s(P17,P18) s(P17,P19) s(P18,P19) s(P13,P20) s(P16,P20) s(P23,P20) s(P24,P20) s(P19,P21) s(P18,P21) s(P26,P21) s(P27,P21) s(P25,P22) s(P27,P22) s(P23,P24) s(P24,P25) s(P24,P26) s(P25,P26) s(P25,P27) s(P26,P27) s(P23,P28) s(P22,P28) s(P22,P29) s(P28,P29) s(P29,P30) s(P28,P30) s(P29,P31) s(P30,P31) s(P31,P32) s(P30,P32) s(P31,P33) s(P32,P33) s(P39,P33) s(P40,P33) s(P32,P34) s(P23,P34) s(P40,P34) s(P44,P35) s(P46,P35) s(P35,P36) s(P35,P37) s(P36,P37) s(P36,P38) s(P37,P38) s(P37,P39) s(P38,P39) s(P38,P40) s(P39,P40) s(P34,P41) s(P36,P41) s(P45,P42) s(P46,P42) s(P41,P42) s(P43,P44) s(P43,P45) s(P44,P45) s(P44,P46) s(P45,P46) s(P41,P47) s(P42,P47) s(P3,P99) s(P14,P99) pen(2) color(#0000FF) m(P9,P11,MA10) m(P11,P13,MB10) b(P11,MA10,MB10) pen(2) color(red) s(P1,P43) abstand(P1,P43,A0) print(abs(P1,P43):,8.75,18.126) print(A0,10.05,18.126) \geooff \geoprint() hat nur eine Möglichkeit für P43-P1 gleich 2 und das kann auch nicht fertig gezeichnet werden. #645-1 geht nicht exakt zu zeichnen.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.655, eingetragen 2017-02-04

hallo stefan du kannst inzwischen wirklich sehr sehr schöne graphiken erstellen, mein java-programier-freund war just gerade kurz zu besuch... aber ohne rechner... er schaut die nächsten tage nochmal die beiden graphen an evtl findet er dann unseren rechenfehler(?), also wiso unsere gesamtsumme aller längen sich einer ganzen zahl annäherte obwohl die ergebnisse nach deinen versuchen unmöglich stimmen können... irgendwie muss sich dieser wiederspruch ja auflösen lassen auch er hat seit langen nichts mehr weiterentwickelt, muss sich also wieder erst etwas hineindenken... immerhin wusste er spontan das meine erinnerung mich trog in #646 "es ist ja lange her, unser program damals hat eine farbunterscheidung gemacht, schwarze linien sind sehr genau eins lang grüne noch nicht" es war genau andersherum, die grünen linien sind exakter als die schwarzen, die dreiecke hatten sich schon besser stabilisiert als der rest, von den entscheidenden winkeln rechts und links des drachenvierecks sind aber jeweils noch drei schwarz, der bereich war beim bilderabspeichern also sicherlich noch in bewegung http://www.matheplanet.com/matheplanet/nuke/html/uploads/9/35059_Harboth4b.png haribo


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.656, eingetragen 2017-02-04

jede erkenntniss führt zu neuen fragen das nachdenken über die 2-färbbarkeit der felder eines 4-gerade graphen führt zu der frage wie es eigendlich mit der färbbarkeit der 4-ungerade graphen bestellt ist sind die immer 3-färbbar? fals ja, wie viele/wenige flächen benötigen die 3. farbe? und nach kurzem nachdenken darüber kam die nächste frage, ist es möglich die ungeraden knoten, welche sich bei uns bisher immer im inneren der graphen befinden richtung rand wandern zu lassen? möglicherweise sogar auf dem rand anzuordnen? hier ein erster versuch eines 4-5er mit nach aussen wandernden 5er knoten, noch befinden sie sich im inneren http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-5-193.png bei diesem graphen würde es reichen das feld mit dem text in 3. farbe zu färben, der rest wäre dann wieder 2-färbbar kann dass(ein einzelnes 3.-farb-feld) auch funktionieren wenn es einem gelingt den 5er knoten (oder sogar beide?) auf den rand zu legen? haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.657, vom Themenstarter, eingetragen 2017-02-04

Hier ein 4/5 bei dem 50% der 5er-Knoten außen liegen. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_5_au_enliegender_5er_Knoten_-_Slash.png Geht vielleicht noch minimaler mit großen Kites. Das alle n-Knoten mit n > 4 außen liegen ist wohl nur für n = 6; 8; 10 möglich.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.658, eingetragen 2017-02-04

hab einen gefunden lässt sich auch mit einer einzigen (x) drittfarb fläche 3-farbig färben http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-5-187.PNG kann man auch noch weiter zusammenklappen die beiden doppelender, es gibt also noch diverse varianten


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.659, vom Themenstarter, eingetragen 2017-02-04

Super haribo! Habe gerade auch einen gefunden, aber nicht so schön einfach wie deiner. Man kann ihn so färben, dass die Außenfläche eine dritte Farbe benötigt. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_5_nur_au_enliegende_5er_Knoten_-_Slash.png


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.660, eingetragen 2017-02-04

ach jetzt ist mir noch einer eingefallen.... grins http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-5-209.PNG und das unerwartete daran ist, der ist sogar 2-färbbar !


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.661, eingetragen 2017-02-04

det kann eigentlich gar nicht sein


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.662, vom Themenstarter, eingetragen 2017-02-04

Jetzt bin ich aber platt bzw. planar! :-D


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.663, eingetragen 2017-02-04

na die verbindungslinie hätte dann von beiden seiten die aussengebietsfarbe... das geht wohl nicht bedeutet dass dann der ist gar nicht färbbar? das wäre jedenfals auch unerwartet


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.664, vom Themenstarter, eingetragen 2017-02-04

\quoteon(2017-02-04 22:30 - haribo in Beitrag No. 663) na die verbindungslinie hätte dann von beiden seiten die aussengebietsfarbe... das geht wohl nicht bedeutet dass dann der ist gar nicht färbbar? das wäre jedenfals auch unerwartet \quoteoff Tja, seltsam. Hier muss mal ein Graphentheoretiker argumentieren.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.665, eingetragen 2017-02-04

wirklich? wenn ich nur die flächen fülle also nur zwei farben benutze dann verschwinden doch die linien, bzw entstehen als abgrenzung nur im farbsprung zwischen den beiden farben eine linie mit der gleichen farbe von beiden seiten hat aber keinen farbwechsel/farbsprung insofern kann ich diesen graph, nach zweifärbung, nicht von zwei lose nebeneinander liegenden harborths unterscheiden ??? http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-5-209color.PNG


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.666, vom Themenstarter, eingetragen 2017-02-04

Hast recht, hatte den Beitrag schon editiert. :-)


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.667, vom Themenstarter, eingetragen 2017-02-04

Es geht in der Graphentheorie bei der Färbbarkeit planarer Graphen ja um die Färbung der Knoten. Jeder Harborth ist für sich 3-färbbar. Wenn man beide Graphen gleich färbt und die Verbindungskante bei einem der beiden Graphen einen Knoten weitersetzt funktioniert die 3-Färbbarkeit. Oder man tauscht beim zweiten Graphen die Farben. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Harborth_3_Farben_klein.png http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Harborth_3_Farben_-_4_5.png


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.668, eingetragen 2017-02-04

na, es ging mir seit #668 http://www.matheplanet.com/matheplanet/nuke/html/viewtopic.php?rd2&topic=216644&start=640#p1647512 um die färbbarkeit des duals des graphen, also um die flächeneinfärbung, als teil der bipartit eigenschaften und dabei um die frage wann es 3-färbbare flächen sind und wann 2-färbbare ich frag mal zetaX ob er uns helfen mag von dem kam ja die idee haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.669, vom Themenstarter, eingetragen 2017-02-04

Lösen kann man das Flächenfärbungsproblem mit einer weiteren Verbindungskante. Aber dieser spezielle Fall mit einer Kante muss natürlich geklärt werden. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Harborth_3_Farben_-_4_5_mit_3_Farben.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.670, vom Themenstarter, eingetragen 2017-02-05

Aus Langeweile hier ein 4/9 und 4/10 mit Außenknoten. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_9_mit_9er-Au_enknoten_-_Slash.png http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_10_mit_10er-Au_enknoten_-_Slash.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.671, vom Themenstarter, eingetragen 2017-02-05

Hier mein Versuch einen 4/7 mit 7er-Außenknoten und nur einer Verbindungskante zu zeichnen. Die rote Kante ist aber immer länger als 1. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_7_mit_einer_Verbindungskante_falsch_-_Slash.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.672, vom Themenstarter, eingetragen 2017-02-05

Drei 4/7 mit 7er-Außenknoten. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_3-f_rbbarer_4_7_mit_Au_enknoten_-_Slash.png Geht natürlich auch mit Harborths. http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_7_mit_Au_enknoten_Harborth_-_Slash.png http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_4_7_mit_Au_enknoten_-_Slash.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.673, vom Themenstarter, eingetragen 2017-02-05

\quoteon(2017-02-04 22:38 - haribo in Beitrag No. 665) wirklich? wenn ich nur die flächen fülle also nur zwei farben benutze dann verschwinden doch die linien, bzw entstehen als abgrenzung nur im farbsprung zwischen den beiden farben eine linie mit der gleichen farbe von beiden seiten hat aber keinen farbwechsel/farbsprung insofern kann ich diesen graph, nach zweifärbung, nicht von zwei lose nebeneinander liegenden harborths unterscheiden ??? http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-5-209color.PNG \quoteoff Mittlerweile glaube ich, dass diese Verbindungskante gar nicht als Grenze zählt, der Graph also wirklich 2-färbbar und ein Sonderfall ist.


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.674, eingetragen 2017-02-05

sonderfall? reduzieren wir mal die frage auf diesen 2/3 http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-dual2-3.png


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.675, eingetragen 2017-02-05

http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-kleiner.png


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.676, vom Themenstarter, eingetragen 2017-02-05

Ich denke, es ist einfach eine Definitionssache was hier mit Färbbarkeit gemeint ist. Letztendlich unterliegen alle diese Graphen den geltenden Beweisen zur Färbbarkeit. Eine einzige Kante mit zwei Knoten ist zwingend 3-färbbar. Die Färbbarkeit die du meinst (soweit ich dich verstanden habe) ist ja immer auf die "normale" Knotenfärbbarkeit zu übertragen, indem man in jede Fläche einen Knoten setzt und daraus einen Graph bildet. Und dafür gibt es ganz strenge graphentheoretische Gesetze. Bei den zwei verbundenen Harborths oder dem letzten Graphen wird wohl graphentheoretisch etwas durcheinander geworfen. Aber warten wir mal auf eine dritte Meinung. :-) [Die Antwort wurde nach Beitrag No.674 begonnen.]


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.677, eingetragen 2017-02-05

http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st4-7aussen.png wer schafft den 4/11er mit einer verbindungskante ???????????????


   Profil
haribo
Senior Letzter Besuch: in der letzten Woche
Dabei seit: 25.10.2012
Mitteilungen: 3314
  Beitrag No.678, eingetragen 2017-02-05

was ist ein dualgraph? ich dachte bisher eine fläche wird zu einem knoten und ein knoten zu einer fläche also wäre der dualgraph eines 2-flächenfärbbaren graphen dann einer der 2-farbig knotenfärbbar sein muss, oder? dann besteht die frage evtl darin: "zu welchem knoten wird die aussenfläche???" haribo


   Profil
Slash
Aktiv Letzter Besuch: in der letzten Woche
Dabei seit: 23.03.2005
Mitteilungen: 8613
Wohnort: Sahlenburg (Cuxhaven)
  Beitrag No.679, vom Themenstarter, eingetragen 2017-02-05

Also wenn ich mein Graphentheoriebuch zur Färbbarkeit richtig verstanden habe, dann ist sowohl der Doppelharborth aus #660 und der aus #674 und aus #677 2-färbbar, wobei ich die Graphenbilder als Landkarte interpretiere. Eine einzige endliche Kante kann eine unendliche Fläche nicht teilen. Was die Begrifflichkeiten angeht, das muss man sorgfältig prüfen, also die Definitionen und so weiter. Aber von der reinen Flächenfärbbarkeit sind die obigen Graphen und alle ähnlichen Fälle 2-färbbar.


   Profil
-->> Fortsetzung auf der nächsten Seite -->>
Seite 17Gehe 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  

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-2021 by Matroids Matheplanet
This web site was originally made with PHP-Nuke, a former web portal system written in PHP that seems no longer to be maintained nor supported. PHP-Nuke is Free Software released under the GNU/GPL license.
Ich distanziere mich von rechtswidrigen oder anstößigen Inhalten, die sich trotz aufmerksamer Prüfung hinter hier verwendeten Links verbergen mögen.
Lesen Sie die Nutzungsbedingungen, die Distanzierung, die Datenschutzerklärung und das Impressum.
[Seitenanfang]