| |
| Autor |
 Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5 |
|
StefanVogel
Senior 
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 
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
Dabei seit: 25.10.2012
Mitteilungen: 3314
| Beitrag No.661, eingetragen 2017-02-04
|
det kann eigentlich gar nicht sein
|
Profil
|
Slash
Aktiv
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
|
|
Home / Seite ohne Frame
Wie unterstütze ich den Matheplaneten mit Geld?
