| |
| Autor |
 Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5 |
|
Slash
Aktiv 
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
 |  Beitrag No.1200, vom Themenstarter, eingetragen 2018-05-16
|
Ich vermute sogar, dass eine symmetrische 3-Farb-Lösung existiert, da der Graph auch symmetrisch ist. Ich habe die vierte Farbe bereits auf 5 Knoten reduzieren können. Ich gehe jetzt so vor, dass ich Knoten, die nahe beieinander liegen, erstmal gleich färbe.
EDIT: Nicht perfekt symmetrisch, aber nur 3 Farben.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_3farb_7er_54_b.png
|
 Profil
|
haribo
Senior 
Dabei seit: 25.10.2012
Mitteilungen: 3753
 | Beitrag No.1201, eingetragen 2018-05-16
|
scheint sich um ein dreifarbiges waben-muster zu handeln, evtl muss man nur die farb achse auf die symetrieachse runter schieben um symetrie zu erhalten?
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-dreifarb5.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1202, eingetragen 2018-05-17
|
direkt symetrisch bekomme ich es nicht hin, aber etwas ordentlicher passen die waaben schon, wenn sie teilweise etwas auseinander gezogen werden
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-dreifarb6.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1203, vom Themenstarter, eingetragen 2018-05-19
|
Ich versuche seit 24 Stunden die 103 Knoten dieses Graphen mit nur 4 Farben zu färben, aber ein Knoten will nicht. Vielleicht findet ihr ja eine Lösung.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_slash_graph_5farb.png
Der Graph besitzt eine 3-fache Rotationssymmetrie und besteht aus 18 Moser-Spindeln, wobei sich aber auch Knoten und Kanten überlagern und auch neue Kanten entstehen.
EDIT: In der Mitte lassen sich noch 3 zusätzliche Knoten einfügen und dadurch weitere 27 Kanten. Hier geht mit 4 Farben wohl nichts mehr. Der Graph ist als SVG-Datei in meinem Notizbuch verfügbar.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_slash_graph_5farb_c.png
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4093
Wohnort: Raun
| Beitrag No.1204, eingetragen 2018-05-19
|
Um nicht ganz aus der Übung zu kommen, habe ich die Graphen #1159 eingegeben.
#1159-1:
\geo
ebene(256.63,255.64)
x(4.08,12.06)
y(16.66,24.61)
form(.)
#//Eingabe war:
#
##1159-1
#
#
#
#
#
#P[1]=[-139,220]; P[2]=[-107,217]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel,3,gruenerWinkel,2); L(17,15,13);
#N(18,17,11); N(19,18,7); L(20,18,19); L(21,20,19); N(22,17,20); N(23,22,16);
#L(24,16,23); L(25,24,23); L(26,24,25); L(27,26,25); L(28,26,27); N(29,27,22);
#RA(21,29); RA(6,21); A(5,28,ab(5,28,[1,29],"gespiegelt")); N(57,6,34);
#N(58,56,29);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(5.675213830554967,16.844985304157607,P1)
p(6.670848056614256,16.751644595464548,P2)
p(6.253866368520042,17.660559482455678,P3)
p(7.249500594579331,17.56721877376262,P4)
p(7.6664822826735435,16.65830388677149,P5)
p(6.832518906485118,18.476133660753753,P6)
p(6.14227433748025,17.72921066167157,P7)
p(5.142982461740138,17.691584247016323,P8)
p(5.6100429686654225,18.575809604530285,P9)
p(4.610751092925311,18.538183189875035,P10)
p(5.0778115998505955,19.422408547389,P11)
p(4.078519724110484,19.384782132733754,P12)
p(5.073214334437298,19.487654054008637,P13)
p(4.486777332113727,20.297648894921682,P14)
p(5.4814719424405425,20.400520816196565,P15)
p(4.895034940116973,21.21051565710961,P16)
p(6.0679089447641115,19.590525975283526,P17)
p(5.717628449877416,18.653881125352704,P18)
p(6.712304937796662,18.550834124519916,P19)
p(6.304208014342029,19.463772732021464,P20)
p(7.298884502261275,19.360725731188676,P21)
p(6.654488509228719,20.40041758195229,P22)
p(5.670611072143049,20.57926161678078,P23)
p(5.829505041296341,21.56655726984865,P24)
p(6.605081173322417,20.935303229519825,P25)
p(6.763975142475708,21.922598882587693,P26)
p(7.539551274501783,21.291344842258866,P27)
p(7.698445243655073,22.278640495326734,P28)
p(7.649164997147961,20.297370581119452,P29)
p(9.65974518787094,16.822325198691733,P30)
p(8.66311373527224,16.74031454273161,P31)
p(9.0904061501291,17.64442802687273,P32)
p(8.093774697530403,17.56241737091261,P33)
p(8.521067112387259,18.466530855053726,P34)
p(9.202771779007602,17.711805554625364,P35)
p(10.201571067845022,17.662815957588172,P36)
p(9.744597658981684,18.5522963135218,P37)
p(10.7433969478191,18.503306716484612,P38)
p(10.286423538955763,19.392787072418244,P39)
p(11.285222827793183,19.34379747538105,P40)
p(10.291762587876295,19.45797607102965,P41)
p(10.887374272234855,20.261248578623157,P42)
p(9.89391403231797,20.37542717427175,P43)
p(10.489525716676528,21.17869968186526,P44)
p(9.298302347959414,19.57215466667824,P45)
p(9.637907096366957,18.631586426272982,P46)
p(8.642122923794771,18.539859213000558,P47)
p(9.06057691316859,19.44809720977075,P48)
p(8.0647927405964,19.356369996498323,P49)
p(8.720972164761053,20.388665450176013,P50)
p(9.706820075467297,20.55630761956108,P51)
p(9.55916555900271,21.54534661968575,P52)
p(8.77645991779348,20.922954557381573,P53)
p(8.628805401328897,21.91199355750624,P54)
p(7.846099760119672,21.289601495202067,P55)
p(7.725187992188907,20.296938236903536,P56)
p(7.679840577252893,19.007213679439545,P57)
p(7.6814936777133145,19.29789328952504,P58)
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(P21,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(P12,P13)
s(P12,P14) s(P13,P14)
s(P14,P15) s(P13,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P13,P17)
s(P17,P18) s(P11,P18)
s(P18,P19) s(P7,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21) s(P29,P21)
s(P17,P22) s(P20,P22)
s(P22,P23) s(P16,P23)
s(P16,P24) s(P23,P24)
s(P24,P25) s(P23,P25)
s(P24,P26) s(P25,P26)
s(P26,P27) s(P25,P27)
s(P26,P28) s(P27,P28) s(P54,P28) s(P55,P28)
s(P27,P29) s(P22,P29)
s(P30,P31)
s(P30,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P32,P34) s(P33,P34) s(P49,P34)
s(P30,P35)
s(P30,P36) 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(P40,P41)
s(P40,P42) s(P41,P42)
s(P41,P43) s(P42,P43)
s(P42,P44) s(P43,P44)
s(P41,P45) s(P43,P45)
s(P39,P46) s(P45,P46)
s(P35,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P47,P49) s(P48,P49) s(P56,P49)
s(P45,P50) s(P48,P50)
s(P44,P51) s(P50,P51)
s(P44,P52) s(P51,P52)
s(P51,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P53,P55) s(P54,P55)
s(P50,P56) s(P55,P56)
s(P6,P57) s(P34,P57)
s(P56,P58) s(P29,P58)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(#008000) m(P3,P1,MA11) m(P1,P7,MB11) f(P1,MA11,MB11)
pen(2)
color(red) s(P21,P29) abstand(P21,P29,A0) print(abs(P21,P29):,4.08,24.612) print(A0,6.1,24.612)
color(red) s(P6,P21) abstand(P6,P21,A1) print(abs(P6,P21):,4.08,24.145) print(A1,6.1,24.145)
print(min=0.9999999999999369,4.08,23.679)
print(max=1.0000000000000049,4.08,23.212)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-2:
\geo
ebene(256.06,284.78)
x(11.8,19.79)
y(16.58,25.46)
form(.)
#//Eingabe war:
#
##1159-2
#
#
#
#
#
#P[1]=[111,215]; P[2]=[143,213]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel,3,gruenerWinkel,2); L(17,15,13);
#L(18,17,11); N(19,18,7); L(20,18,19); L(21,20,19); N(22,17,20); N(23,22,16);
#L(24,16,23); L(25,24,23); L(26,24,25); L(27,26,25); L(28,26,27); N(29,27,22);
#RA(21,29); RA(6,21); A(28,5,ab(5,28,[1,29])); RA(29,34); RA(56,6);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(13.461994881612519,16.705665761681907,P1)
p(14.460047460095408,16.643287475526726,P2)
p(14.015042351308885,17.53881550588306,P3)
p(15.013094929791773,17.476437219727877,P4)
p(15.458100038578294,16.580909189371546,P5)
p(14.568089821005248,18.371965250084212,P6)
p(13.907712665728164,17.600839296211966,P7)
p(12.909610751971805,17.539255452909593,P8)
p(13.35532853608745,18.434428987439652,P9)
p(12.357226622331089,18.37284514413728,P10)
p(12.802944406446734,19.26801867866734,P11)
p(11.804842492690375,19.206434835364966,P12)
p(12.79714512619309,19.33027135479108,P13)
p(12.193748237702476,20.127712383933577,P14)
p(13.186050871205193,20.251548903359684,P15)
p(12.582653982714577,21.04898993250218,P16)
p(13.789447759695808,19.454107874217186,P17)
p(13.45735405378725,18.50672631161003,P18)
p(14.454975800985151,18.437799905075188,P19)
p(14.015856946436951,19.336228884783807,P20)
p(15.013478693634852,19.26730247824896,P21)
p(14.360679278639104,20.274896855482005,P22)
p(13.374009842805314,20.437634141902265,P23)
p(13.507781558170194,21.428646315474488,P24)
p(14.29913741826093,20.817290524874572,P25)
p(14.432909133625808,21.808302698446788,P26)
p(15.224264993716545,21.196946907846876,P27)
p(15.358036709081421,22.187959081419095,P28)
p(15.358301025837006,20.205970448947166,P29)
p(17.354141866047197,22.063202509108734,P30)
p(16.35608928756431,22.125580795263915,P31)
p(16.801094396350834,21.230052764907583,P32)
p(15.803041817867944,21.292431051062763,P33)
p(16.248046926654467,20.39690302070643,P34)
p(16.908424081931553,21.168028974578675,P35)
p(17.906525995687915,21.229612817881048,P36)
p(17.460808211572267,20.33443928335099,P37)
p(18.45891012532863,20.39602312665336,P38)
p(18.01319234121298,19.500849592123302,P39)
p(19.011294254969343,19.562433435425675,P40)
p(18.018991621466625,19.43859691599956,P41)
p(18.62238850995724,18.641155886857064,P42)
p(17.630085876454523,18.517319367430954,P43)
p(18.233482764945137,17.71987833828846,P44)
p(17.026688987963908,19.314760396573455,P45)
p(17.358782693872467,20.26214195918061,P46)
p(16.361160946674566,20.33106836571546,P47)
p(16.800279801222764,19.432639386006834,P48)
p(15.802658054024864,19.50156579254168,P49)
p(16.455457469020615,18.493971415308636,P50)
p(17.442126904854405,18.331234128888376,P51)
p(17.30835518948952,17.34022195531616,P52)
p(16.516999329398786,17.951577745916072,P53)
p(16.383227614033906,16.960565572343853,P54)
p(15.591871753943163,17.571921362943765,P55)
p(15.457835721822699,18.562897821843475,P56)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P54,P5) s(P55,P5)
s(P3,P6) s(P4,P6) s(P21,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(P12,P13)
s(P12,P14) s(P13,P14)
s(P14,P15) s(P13,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P13,P17)
s(P17,P18) s(P11,P18)
s(P18,P19) s(P7,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21) s(P29,P21)
s(P17,P22) s(P20,P22)
s(P22,P23) s(P16,P23)
s(P16,P24) s(P23,P24)
s(P24,P25) s(P23,P25)
s(P24,P26) s(P25,P26)
s(P26,P27) s(P25,P27)
s(P26,P28) s(P27,P28) s(P31,P28) s(P33,P28)
s(P27,P29) s(P22,P29) s(P34,P29)
s(P30,P31)
s(P30,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P32,P34) s(P33,P34) s(P49,P34)
s(P30,P35)
s(P30,P36) 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(P40,P41)
s(P40,P42) s(P41,P42)
s(P41,P43) s(P42,P43)
s(P42,P44) s(P43,P44)
s(P41,P45) s(P43,P45)
s(P39,P46) s(P45,P46)
s(P35,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P47,P49) s(P48,P49) s(P56,P49)
s(P45,P50) s(P48,P50)
s(P44,P51) s(P50,P51)
s(P44,P52) s(P51,P52)
s(P51,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P53,P55) s(P54,P55)
s(P50,P56) s(P55,P56) s(P6,P56)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(#008000) m(P3,P1,MA11) m(P1,P7,MB11) f(P1,MA11,MB11)
pen(2)
color(red) s(P21,P29) abstand(P21,P29,A0) print(abs(P21,P29):,11.8,25.463) print(A0,13.83,25.463)
color(red) s(P6,P21) abstand(P6,P21,A1) print(abs(P6,P21):,11.8,24.995) print(A1,13.83,24.995)
color(red) s(P29,P34) abstand(P29,P34,A2) print(abs(P29,P34):,11.8,24.527) print(A2,13.83,24.527)
color(red) s(P56,P6) abstand(P56,P6,A3) print(abs(P56,P6):,11.8,24.059) print(A3,13.83,24.059)
print(min=0.9100016565809425,11.8,23.591)
print(max=1.0039014168094693,11.8,23.124)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-3:
\geo
ebene(235.23,246.63)
x(4.01,11.59)
y(10.1,18.05)
form(.)
#//Eingabe war:
#
##1159-3
#
#
#
#
#P[1]=[-172,36]; P[2]=[-143,25]; D=ab(1,2); A(2,1,Bew(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,2); L(12,10,8); N(13,12,3);
#N(14,13,6); L(15,13,14); N(16,12,15); N(17,16,11); L(18,11,17); L(19,18,17);
#L(20,18,19); L(21,20,19); L(22,20,21); N(23,21,16); N(24,23,15); N(25,22,23);
#L(26,22,25); L(27,26,25); L(28,26,27); RA(14,24);
#A(7,28,ab(7,28,[1,28],"gespiegelt")); N(55,24,51); N(56,54,27);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4.454497430115215,11.16068658439449,P1)
p(5.389494956432999,10.806032350273952,P2)
p(5.229135769582207,11.79309107760103,P3)
p(6.16413329589999,11.438436843480492,P4)
p(6.324492482750783,10.451378116153412,P5)
p(7.099130822217775,11.083782609359954,P6)
p(7.259490009068566,10.096723882032874,P7)
p(5.1861370494927925,11.842378206285968,P8)
p(4.229954977698967,12.135150892136387,P9)
p(4.961594597076545,12.816842514027867,P10)
p(4.005412525282719,13.109615199878288,P11)
p(5.917776668870371,12.524069828177446,P12)
p(6.2029118496668225,11.565582515443378,P13)
p(7.058666955528119,12.082963611727653,P14)
p(6.182724229777445,12.565378724679642,P15)
p(5.897589048980994,13.52386603741371,P16)
p(5.004759147277877,13.073472024770556,P17)
p(4.5363867440970225,13.957003174158393,P18)
p(5.53573336609218,13.920859999050661,P19)
p(5.0673609629113265,14.804391148438498,P20)
p(6.066707584906483,14.768247973330766,P21)
p(5.598335181725629,15.651779122718603,P22)
p(6.7533441548422966,14.041247133697977,P23)
p(7.038479335638748,13.08275982096391,P24)
p(6.284971751661443,14.924778283085814,P25)
p(6.571254662388148,15.882923415634034,P26)
p(7.25789123232396,15.155922576001245,P27)
p(7.544174143050665,16.114067708549463,P28)
p(10.152402432126626,10.89111529218051,P29)
p(9.188098291107273,10.626318155464633,P30)
p(9.440929314371616,11.593828606919864,P31)
p(8.476625173352264,11.329031470203985,P32)
p(8.223794150087919,10.361521018748753,P33)
p(7.51232103233291,11.064234333488105,P34)
p(9.488389168746961,11.638836086365002,P35)
p(10.467941003138437,11.840028043809355,P36)
p(9.803927739758771,12.587748837993846,P37)
p(10.783479574150252,12.788940795438199,P38)
p(8.824375905367294,12.386556880549493,P39)
p(8.450023634879283,11.459270313419099,P40)
p(7.646936720928792,12.055132217421589,P41)
p(8.564511723917558,12.452694934348319,P42)
p(8.938863994405567,13.379981501478714,P43)
p(9.78518434881359,12.847307250444668,P44)
p(10.334878794246366,13.682673048559694,P45)
p(9.336583568909703,13.741039503566164,P46)
p(9.886278014342476,14.576405301681191,P47)
p(8.887982789005818,14.63477175668766,P48)
p(9.437677234438592,15.470137554802685,P49)
p(8.135777080455068,13.975843405481198,P50)
p(7.761424809967059,13.048556838350802,P51)
p(8.685471525887845,14.811209203596224,P52)
p(8.490925688744628,15.792102631676073,P53)
p(7.738719980193893,15.133174280469612,P54)
p(7.4440069578885115,13.996842611302101,P55)
p(7.452437069467182,14.175029147921393,P56)
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(P33,P7) s(P34,P7)
s(P1,P8)
s(P1,P9) s(P8,P9)
s(P9,P10) s(P8,P10)
s(P9,P11) s(P10,P11)
s(P10,P12) s(P8,P12)
s(P12,P13) s(P3,P13)
s(P13,P14) s(P6,P14) s(P24,P14)
s(P13,P15) s(P14,P15)
s(P12,P16) s(P15,P16)
s(P16,P17) s(P11,P17)
s(P11,P18) s(P17,P18)
s(P18,P19) s(P17,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21)
s(P20,P22) s(P21,P22)
s(P21,P23) s(P16,P23)
s(P23,P24) s(P15,P24)
s(P22,P25) s(P23,P25)
s(P22,P26) s(P25,P26)
s(P26,P27) s(P25,P27)
s(P26,P28) s(P27,P28) s(P53,P28) s(P54,P28)
s(P29,P30)
s(P29,P31) s(P30,P31)
s(P30,P32) s(P31,P32)
s(P30,P33) s(P32,P33)
s(P32,P34) s(P33,P34)
s(P29,P35)
s(P29,P36) s(P35,P36)
s(P35,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P35,P39) s(P37,P39)
s(P31,P40) s(P39,P40)
s(P34,P41) s(P40,P41) s(P51,P41)
s(P40,P42) s(P41,P42)
s(P39,P43) s(P42,P43)
s(P38,P44) s(P43,P44)
s(P38,P45) s(P44,P45)
s(P44,P46) s(P45,P46)
s(P45,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P43,P50) s(P48,P50)
s(P42,P51) s(P50,P51)
s(P49,P52) s(P50,P52)
s(P49,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P24,P55) s(P51,P55)
s(P54,P56) s(P27,P56)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P8,MB10) f(P1,MA10,MB10)
pen(2)
color(red) s(P14,P24) abstand(P14,P24,A0) print(abs(P14,P24):,4.01,18.049) print(A0,6.1,18.049)
print(min=0.9999999999999865,4.01,17.565)
print(max=1.0000000000000029,4.01,17.081)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-4:
\geo
ebene(249.46,247.45)
x(11.58,19.61)
y(10.48,18.45)
form(.)
#//Eingabe war:
#
##1159-4
#
#
#
#
#P[1]=[100,19]; P[2]=[131,17]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); M(6,1,3,blauerWinkel,3); N(12,6,3); N(13,12,10); L(14,13,12);
#Q(15,11,13,ab(5,1,2,3,4),D); L(19,17,18); N(20,15,14); N(21,20,19);
#L(22,20,14); L(23,19,21); L(24,23,21); L(25,23,24); L(26,25,24); L(27,25,26);
#N(28,26,22); L(29,28,22); A(5,27,ab(27,5,[1,29])); RA(4,55); RA(28,33);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(13.219113899898252,10.611631640980669,P1)
p(14.21703920886671,10.547249362982702,P2)
p(13.773833242682231,11.443669170627805,P3)
p(14.77175855165069,11.37928689262984,P4)
p(15.214964517835169,10.482867084984738,P5)
p(13.672723915314409,11.502831929307682,P6)
p(12.674116818055118,11.450069581905618,P7)
p(13.127726833471275,12.341269870232633,P8)
p(12.129119736211987,12.288507522830567,P9)
p(12.582729751628143,13.17970781115758,P10)
p(11.584122654368855,13.126945463755517,P11)
p(14.227443258098386,12.33486945895482,P12)
p(13.230924040942893,12.418232819250594,P13)
p(13.801378437281617,13.239562096518746,P14)
p(13.570642743315325,13.358759907248803,P15)
p(12.577382697114937,13.242852700302889,P16)
p(11.980374078090803,14.045087505706721,P17)
p(12.973634122564038,14.160994727453367,P18)
p(12.37662550181275,14.963229547657928,P19)
p(14.141097139654047,14.180089184516955,P20)
p(13.152815475862937,14.332730440454775,P21)
p(14.785758139621684,13.415620614122641,P22)
p(13.310748732739182,15.320180229746597,P23)
p(14.086938706789368,14.689681122543446,P24)
p(14.244871963665613,15.677130911835267,P25)
p(15.0210619377158,15.046631804632115,P26)
p(15.178995194592042,16.034081593923936,P27)
p(15.464267903900286,14.150211996987016,P28)
p(15.761187820722673,13.195309612973768,P29)
p(17.174845812528954,15.905317037928008,P30)
p(16.176920503560506,15.969699315925972,P31)
p(16.62012646974498,15.073279508280871,P32)
p(15.622201160776513,15.137661786278834,P33)
p(16.721235797112797,15.014116749600992,P34)
p(17.719842894372093,15.066879097003056,P35)
p(17.266232878955936,14.175678808676043,P36)
p(18.264839976215228,14.228441156078109,P37)
p(17.811229960799068,13.337240867751095,P38)
p(18.809837058058356,13.39000321515316,P39)
p(16.166516454328825,14.182079219953856,P40)
p(17.163035671484316,14.09871585965808,P41)
p(16.592581275145598,13.27738658238993,P42)
p(16.823316969111886,13.158188771659871,P43)
p(17.816577015312276,13.274095978605786,P44)
p(18.413585634336407,12.471861173201951,P45)
p(17.42032558986317,12.355953951455309,P46)
p(18.01733421061446,11.553719131250748,P47)
p(16.252862572773168,12.33685949439172,P48)
p(17.241144236564274,12.184218238453898,P49)
p(15.60820157280553,13.101328064786033,P50)
p(17.08321097968803,11.196768449162079,P51)
p(16.307021005637843,11.82726755636523,P52)
p(16.1490877487616,10.839817767073407,P53)
p(15.372897774711412,11.470316874276559,P54)
p(14.929691808526929,12.366736681921658,P55)
p(14.632771891704536,13.321639065934907,P56)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4) s(P55,P4)
s(P4,P5) s(P2,P5) s(P53,P5) s(P54,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
s(P7,P8) s(P6,P8)
s(P7,P9) s(P8,P9)
s(P9,P10) s(P8,P10)
s(P9,P11) s(P10,P11)
s(P6,P12) s(P3,P12)
s(P12,P13) s(P10,P13)
s(P13,P14) s(P12,P14)
s(P16,P15) s(P18,P15) s(P13,P15)
s(P11,P16)
s(P11,P17) s(P16,P17)
s(P16,P18) s(P17,P18)
s(P17,P19) s(P18,P19)
s(P15,P20) s(P14,P20)
s(P20,P21) s(P19,P21)
s(P20,P22) s(P14,P22)
s(P19,P23) s(P21,P23)
s(P23,P24) s(P21,P24)
s(P23,P25) s(P24,P25)
s(P25,P26) s(P24,P26)
s(P25,P27) s(P26,P27) s(P31,P27) s(P33,P27)
s(P26,P28) s(P22,P28) s(P33,P28)
s(P28,P29) s(P22,P29)
s(P30,P31)
s(P30,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P30,P34)
s(P30,P35) s(P34,P35)
s(P34,P36) s(P35,P36)
s(P35,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P32,P40) s(P34,P40)
s(P38,P41) s(P40,P41)
s(P40,P42) s(P41,P42)
s(P41,P43) s(P44,P43) s(P46,P43)
s(P39,P44)
s(P39,P45) s(P44,P45)
s(P44,P46) s(P45,P46)
s(P45,P47) s(P46,P47)
s(P42,P48) s(P43,P48)
s(P47,P49) s(P48,P49)
s(P42,P50) s(P48,P50)
s(P47,P51) s(P49,P51)
s(P49,P52) s(P51,P52)
s(P51,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P50,P55) s(P54,P55)
s(P50,P56) s(P55,P56)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
pen(2)
color(red) s(P4,P55) abstand(P4,P55,A0) print(abs(P4,P55):,11.58,18.448) print(A0,13.68,18.448)
color(red) s(P28,P33) abstand(P28,P33,A1) print(abs(P28,P33):,11.58,17.966) print(A1,13.68,17.966)
print(min=0.9999999870952142,11.58,17.483)
print(max=1.000000000000009,11.58,17)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-5:
\geo
ebene(276.83,274.9)
x(3.81,12.2)
y(16.52,24.85)
form(.)
#//Eingabe war:
#
##1159-5
#
#
#
#
#
#P[1]=[-144,215]; P[2]=[-111,215]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel,3,gruenerWinkel,2); L(17,15,13);
#N(18,17,11); N(19,18,7); L(20,18,19); L(21,20,19); N(22,17,20); N(23,22,16);
#L(24,16,23); L(25,24,23); L(26,24,25); L(27,26,25); L(28,26,27); N(29,27,22);
#RA(21,29); RA(6,21); L(30,21,6); A(5,30,ab(5,30,[1,30],"gespiegelt"));
#N(59,29,58); N(60,57,28); RA(28,57);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(5.636363636363637,16.515151515151516,P1)
p(6.636363636363637,16.515151515151516,P2)
p(6.136363636363637,17.381176918935953,P3)
p(7.136363636363637,17.381176918935953,P4)
p(7.636363636363637,16.515151515151516,P5)
p(6.636363636363637,18.24720232272039,P6)
p(6.0188508411843245,17.439112303360872,P7)
p(5.027433724083983,17.308375545253412,P8)
p(5.40992092890467,18.23233633346277,P9)
p(4.41850381180433,18.10159957535531,P10)
p(4.800991016625016,19.025560363564665,P11)
p(3.8095738995246755,18.8948236054572,P12)
p(4.790323760006344,19.090091911040027,P13)
p(4.130841516576838,19.841812052183784,P14)
p(5.111591377058508,20.037080357766612,P15)
p(4.452109133629003,20.78880049891037,P16)
p(5.771073620488013,19.285360216622855,P17)
p(5.509749465144081,18.320109116735484,P18)
p(6.509701900459357,18.310355804116305,P19)
p(6.0181722993009785,19.18121667198504,P20)
p(7.018124734616256,19.17146335936586,P21)
p(6.279496454644907,20.14646777187241,P22)
p(5.283220975078504,20.232695196829532,P23)
p(5.349266373134977,21.23051181595128,P24)
p(6.180378214584479,20.674406513870444,P25)
p(6.246423612640952,21.672223132992194,P26)
p(7.077535454090453,21.11611783091136,P27)
p(7.1435808521469255,22.11393445003311,P28)
p(7.279448889960183,20.13671445925325,P29)
p(7.627677722953062,18.378718031779712,P30)
p(9.636276741971294,16.53379474498803,P31)
p(8.636320189167465,16.524473130069772,P32)
p(9.128225710245873,17.39512171493773,P33)
p(8.128269157442045,17.385800100019473,P34)
p(8.620174678520453,18.25644868488743,P35)
p(9.24519334847997,17.454149991257268,P36)
p(10.237786069001077,17.332660521884357,P37)
p(9.846702675509754,18.253015768153595,P38)
p(10.83929539603086,18.131526298780688,P39)
p(10.448212002539538,19.051881545049927,P40)
p(11.440804723060642,18.930392075677016,P41)
p(10.458277257460173,19.11650972486892,P42)
p(11.110723602553238,19.87434464539892,P43)
p(10.128196136952768,20.06046229459082,P44)
p(10.780642482045833,20.818297215120815,P45)
p(9.475749791859704,19.302627374060826,P46)
p(9.74606029245437,18.3398541747723,P47)
p(8.746242218893126,18.320780114368628,P48)
p(9.229632634810848,19.19618499543732,P49)
p(8.2298145612496,19.17711093503365,P50)
p(8.959322134216189,20.158958194725844,P51)
p(9.954750549555545,20.254468769716134,P52)
p(9.879406758703949,21.251626386735687,P53)
p(9.05351482621366,20.687797941331006,P54)
p(8.978171035362065,21.684955558350556,P55)
p(8.152279102871773,21.121127112945878,P56)
p(8.076935312020176,22.118284729965435,P57)
p(7.959504060654938,20.139884134322187,P58)
p(7.615093338522666,21.078703208734463,P59)
p(7.61438026163003,21.23169416755313,P60)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P32,P5) s(P34,P5)
s(P3,P6) s(P4,P6) s(P21,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(P12,P13)
s(P12,P14) s(P13,P14)
s(P14,P15) s(P13,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P13,P17)
s(P17,P18) s(P11,P18)
s(P18,P19) s(P7,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21) s(P29,P21)
s(P17,P22) s(P20,P22)
s(P22,P23) s(P16,P23)
s(P16,P24) s(P23,P24)
s(P24,P25) s(P23,P25)
s(P24,P26) s(P25,P26)
s(P26,P27) s(P25,P27)
s(P26,P28) s(P27,P28) s(P57,P28)
s(P27,P29) s(P22,P29)
s(P21,P30) s(P6,P30) s(P35,P30) s(P50,P30)
s(P31,P32)
s(P31,P33) s(P32,P33)
s(P32,P34) s(P33,P34)
s(P33,P35) s(P34,P35) s(P50,P35)
s(P31,P36)
s(P31,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P38,P40) s(P39,P40)
s(P39,P41) s(P40,P41)
s(P41,P42)
s(P41,P43) s(P42,P43)
s(P42,P44) s(P43,P44)
s(P43,P45) s(P44,P45)
s(P42,P46) s(P44,P46)
s(P40,P47) s(P46,P47)
s(P36,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P48,P50) s(P49,P50) s(P58,P50)
s(P46,P51) s(P49,P51)
s(P45,P52) s(P51,P52)
s(P45,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P53,P55) s(P54,P55)
s(P54,P56) s(P55,P56)
s(P55,P57) s(P56,P57)
s(P51,P58) s(P56,P58)
s(P29,P59) s(P58,P59)
s(P57,P60) s(P28,P60)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(#008000) m(P3,P1,MA11) m(P1,P7,MB11) f(P1,MA11,MB11)
pen(2)
color(red) s(P21,P29) abstand(P21,P29,A0) print(abs(P21,P29):,3.81,24.846) print(A0,5.78,24.846)
color(red) s(P6,P21) abstand(P6,P21,A1) print(abs(P6,P21):,3.81,24.391) print(A1,5.78,24.391)
color(red) s(P28,P57) abstand(P28,P57,A2) print(abs(P28,P57):,3.81,23.936) print(A2,5.78,23.936)
print(min=0.9333645979470064,3.81,23.482)
print(max=1.0000000000000122,3.81,23.027)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-6:
\geo
ebene(277.86,290.66)
x(11.61,20.03)
y(16.48,25.29)
form(.)
#//Eingabe war:
#
##1159-6
#
#
#
#
#
#P[1]=[113,215]; P[2]=[146,215]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); L(6,3,4); M(7,1,3,blauerWinkel,3,gruenerWinkel,2); L(17,15,13);
#L(18,17,11); N(19,18,7); L(20,18,19); L(21,20,19); N(22,17,20); N(23,22,16);
#L(24,16,23); L(25,24,23); L(26,24,25); L(27,26,25); L(28,26,27); N(29,27,22);
#RA(21,29); RA(6,21); Q(30,28,5,D,ab(28,5,[1,29],"gespiegelt"));L(58,30,28);
#N(59,29,57); N(60,35,6); N(61,6,60); N(62,60,35); R(6,60); R(60,35);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(13.424242424242424,16.515151515151516,P1)
p(14.424242424242424,16.515151515151516,P2)
p(13.924242424242424,17.381176918935953,P3)
p(14.924242424242424,17.381176918935953,P4)
p(15.424242424242424,16.515151515151516,P5)
p(14.424242424242424,18.24720232272039,P6)
p(13.813252817059263,17.4363848809609,P7)
p(12.820936123046073,17.312661080571754,P8)
p(13.20994651586291,18.233894446381136,P9)
p(12.217629821849721,18.110170645991992,P10)
p(12.60664021466656,19.031404011801378,P11)
p(11.614323520653372,18.907680211412227,P12)
p(12.596969012810895,19.093173706560975,P13)
p(11.94500418769655,19.85142291810928,P14)
p(12.927649679854074,20.036916413258027,P15)
p(12.27568485473973,20.79516562480633,P16)
p(13.579614504968417,19.27866720170973,P17)
p(13.307263563698896,18.312415154125013,P18)
p(14.307242031950846,18.30585291117869,P19)
p(13.812935866922192,19.17514078939549,P20)
p(14.81291433517414,19.168578546449165,P21)
p(14.098534185414108,20.13349020400093,P22)
p(13.103634937849494,20.23436382391894,P23)
p(13.175328502351155,21.23179052940113,P24)
p(14.003278585460917,20.670988728513738,P25)
p(14.07497214996258,21.668415433995925,P26)
p(14.902922233072342,21.107613633108535,P27)
p(14.974615797574003,22.105040338590722,P28)
p(15.098512653666056,20.12692796105455,P29)
p(15.974575163578109,22.096025554030646,P30)
p(17.423917358879766,16.479093842138088,P31)
p(16.424079891561096,16.4971226786448,P32)
p(16.939612055635923,17.353992906744907,P33)
p(15.939774588317253,17.37202174325162,P34)
p(16.45530675239208,18.22889197135172,P35)
p(17.05157895870185,17.407190882189905,P36)
p(18.041503772652824,17.265596875522533,P37)
p(17.6691653724749,18.19369391557435,P38)
p(18.65909018642588,18.052099908906975,P39)
p(18.28675178624796,18.9801969489588,P40)
p(19.27667660019894,18.838602942291423,P41)
p(18.297535051945147,19.0417822436072,P42)
p(18.96306426253468,19.78815404763792,P43)
p(17.98392271428089,19.991333348953702,P44)
p(18.649451924870426,20.737705152984418,P45)
p(17.318393503691357,19.244961544922987,P46)
p(17.573279778841947,18.27395637428181,P47)
p(16.57334553016652,18.28542364622877,P48)
p(17.08324360332241,19.14565847172232,P49)
p(16.083309354646982,19.157125743669287,P50)
p(16.81496962880321,20.10900112861843,P51)
p(17.811525806726806,20.191921477401532,P52)
p(17.75782633777299,21.19047861999983,P53)
p(16.91990021962937,20.64469494441694,P54)
p(16.86620075067555,21.64325208701524,P55)
p(16.028274632531932,21.097468411432345,P56)
p(15.815035380127778,20.120468400565343,P57)
p(15.466788448137388,21.234542732598946,P58)
p(15.465190361723277,21.0572759918548,P59)
p(15.439774588317253,18.238047147036056,P60)
p(14.939774588317253,19.104072550820497,P61)
p(15.95530675239208,19.094917375136163,P62)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P32,P5) s(P34,P5)
s(P3,P6) s(P4,P6) s(P21,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(P12,P13)
s(P12,P14) s(P13,P14)
s(P14,P15) s(P13,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P13,P17)
s(P17,P18) s(P11,P18)
s(P18,P19) s(P7,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21) s(P29,P21)
s(P17,P22) s(P20,P22)
s(P22,P23) s(P16,P23)
s(P16,P24) s(P23,P24)
s(P24,P25) s(P23,P25)
s(P24,P26) s(P25,P26)
s(P26,P27) s(P25,P27)
s(P26,P28) s(P27,P28)
s(P27,P29) s(P22,P29)
s(P28,P30) s(P55,P30) s(P56,P30)
s(P31,P32)
s(P31,P33) s(P32,P33)
s(P32,P34) s(P33,P34)
s(P33,P35) s(P34,P35) s(P50,P35)
s(P31,P36)
s(P31,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P38,P40) s(P39,P40)
s(P39,P41) s(P40,P41)
s(P41,P42)
s(P41,P43) s(P42,P43)
s(P42,P44) s(P43,P44)
s(P43,P45) s(P44,P45)
s(P42,P46) s(P44,P46)
s(P40,P47) s(P46,P47)
s(P36,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P48,P50) s(P49,P50) s(P57,P50)
s(P46,P51) s(P49,P51)
s(P45,P52) s(P51,P52)
s(P45,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P53,P55) s(P54,P55)
s(P54,P56) s(P55,P56)
s(P51,P57) s(P56,P57)
s(P30,P58) s(P28,P58)
s(P29,P59) s(P57,P59)
s(P35,P60) s(P6,P60)
s(P6,P61) s(P60,P61)
s(P60,P62) s(P35,P62)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(#008000) m(P3,P1,MA11) m(P1,P7,MB11) f(P1,MA11,MB11)
pen(2)
color(red) s(P21,P29) abstand(P21,P29,A0) print(abs(P21,P29):,11.61,25.287) print(A0,13.58,25.287)
color(red) s(P6,P21) abstand(P6,P21,A1) print(abs(P6,P21):,11.61,24.832) print(A1,13.58,24.832)
color(red) s(P6,P60) abstand(P6,P60,A2) print(abs(P6,P60):,11.61,24.378) print(A2,13.58,24.378)
color(red) s(P60,P35) abstand(P60,P35,A3) print(abs(P60,P35):,11.61,23.923) print(A3,13.58,23.923)
print(min=0.9999999999999449,11.61,23.469)
print(max=1.015573430881448,11.61,23.014)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-7:
\geo
ebene(214.66,269.81)
x(4.33,11.08)
y(10.25,18.74)
form(.)
#//Eingabe war:
#
##1159-7
#
#
#
#
#P[1]=[-170,47]; P[2]=[-141,34]; D=ab(1,2); A(2,1,Bew(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,2); L(12,10,8); N(13,12,3);
#N(14,13,6); L(15,13,14); L(16,15,14); N(17,12,15); N(18,17,11); L(19,11,18);
#L(20,19,18); L(21,19,20); L(22,21,20); L(23,21,22); N(24,22,17); N(25,23,24);
#A(7,16,ab(7,16,[1,25],"gespiegelt")); N(49,25,48); RA(25,48); RA(23,49);
#RA(49,46);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4.650807408015803,11.478894422489748,P1)
p(5.563316732530755,11.069838518396839,P2)
p(5.461314874785749,12.06462272666342,P3)
p(6.373824199300699,11.65556682257051,P4)
p(6.475826057045705,10.660782614303931,P5)
p(7.2863335238156495,11.2465109184776,P6)
p(7.388335381560655,10.251726710211022,P7)
p(5.4251610651536435,12.111647465688476,P8)
p(4.490004026852712,12.465880882683868,P9)
p(5.264357683990553,13.098633925882597,P10)
p(4.329200645689621,13.452867342877987,P11)
p(6.199514722291484,12.744400508887205,P12)
p(6.4163707564192745,11.76819691308233,P13)
p(7.294578149056312,12.246476930977346,P14)
p(6.441271807118232,12.767886833844807,P15)
p(7.3194791997552695,13.246166851739824,P16)
p(6.224415772990444,13.744090429649683,P17)
p(5.319990449558641,13.317458463740797,P18)
p(4.941863076854913,14.243212043270564,P19)
p(5.932652880723933,14.107803164133376,P20)
p(5.554525508020206,15.033556743663143,P21)
p(6.545315311889225,14.898147864525953,P22)
p(6.167187939185498,15.823901444055721,P23)
p(7.156401979532848,14.106584168650372,P24)
p(6.778274606829122,15.03233774818014,P25)
p(10.066563097792068,11.603427971588644,P26)
p(9.17382052571493,11.15286088446277,P27)
p(9.229989268193336,12.151282174484368,P28)
p(8.337246696116198,11.700715087358494,P29)
p(8.281077953637793,10.702293797336896,P30)
p(7.444504124039062,11.25014800023262,P31)
p(9.263943370601115,12.19991902225405,P32)
p(10.181829637202904,12.596762570247249,P33)
p(9.379209910011951,13.193253620912655,P34)
p(10.297096176613742,13.590097168905853,P35)
p(8.46132364341016,12.796410072919459,P36)
p(8.289568061081866,11.81127047878111,P37)
p(7.3903047268250965,12.248678132648084,P38)
p(8.218742534012033,12.80875919787285,P39)
p(8.390498116340334,13.793898792011197,P40)
p(9.313577665104749,13.409289709106387,P41)
p(9.648753067479177,14.351445455065164,P42)
p(8.66523455597018,14.1706379952657,P43)
p(9.000409958344608,15.112793741224479,P44)
p(8.016891446835611,14.931986281425015,P45)
p(8.352066849210042,15.874142027383792,P46)
p(7.442834931682318,14.113170601671598,P47)
p(7.778010334056738,15.055326347630379,P48)
p(7.258233759321597,15.909628584755275,P49)
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(P30,P7) s(P31,P7)
s(P1,P8)
s(P1,P9) s(P8,P9)
s(P9,P10) s(P8,P10)
s(P9,P11) s(P10,P11)
s(P10,P12) s(P8,P12)
s(P12,P13) s(P3,P13)
s(P13,P14) s(P6,P14)
s(P13,P15) s(P14,P15)
s(P15,P16) s(P14,P16) s(P38,P16) s(P39,P16)
s(P12,P17) s(P15,P17)
s(P17,P18) s(P11,P18)
s(P11,P19) s(P18,P19)
s(P19,P20) s(P18,P20)
s(P19,P21) s(P20,P21)
s(P21,P22) s(P20,P22)
s(P21,P23) s(P22,P23) s(P49,P23)
s(P22,P24) s(P17,P24)
s(P23,P25) s(P24,P25) s(P48,P25)
s(P26,P27)
s(P26,P28) s(P27,P28)
s(P27,P29) s(P28,P29)
s(P27,P30) s(P29,P30)
s(P29,P31) s(P30,P31)
s(P26,P32)
s(P26,P33) s(P32,P33)
s(P32,P34) s(P33,P34)
s(P33,P35) s(P34,P35)
s(P32,P36) s(P34,P36)
s(P28,P37) s(P36,P37)
s(P31,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P36,P40) s(P39,P40)
s(P35,P41) s(P40,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(P44,P46) s(P45,P46)
s(P40,P47) s(P45,P47)
s(P46,P48) s(P47,P48)
s(P25,P49) s(P48,P49) s(P46,P49)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P8,MB10) f(P1,MA10,MB10)
pen(2)
color(red) s(P25,P48) abstand(P25,P48,A0) print(abs(P25,P48):,4.33,18.742) print(A0,6.37,18.742)
color(red) s(P23,P49) abstand(P23,P49,A1) print(abs(P23,P49):,4.33,18.27) print(A1,6.37,18.27)
color(red) s(P49,P46) abstand(P49,P46,A2) print(abs(P49,P46):,4.33,17.798) print(A2,6.37,17.798)
print(min=0.9999999999999959,4.33,17.326)
print(max=1.094408572832368,4.33,16.854)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
#1159-8:
\geo
ebene(269.91,269.16)
x(11.55,19.98)
y(10.44,18.85)
form(.)
#//Eingabe war:
#
##1159-8
#
#
#
#
#
#P[1]=[108,14]; P[2]=[140,14]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); L(6,3,4); Q(7,6,5,ab(5,1,[1,6]),ab(1,5,[1,6]));
#M(17,1,3,blauerWinkel,3,gruenerWinkel,2); L(16,25,23); N(27,16,21);
#N(28,27,17); L(29,27,28); N(30,28,6); RA(29,30); N(31,16,29); N(32,31,30);
#N(33,31,26); L(34,26,33); L(35,34,33); L(36,34,35); L(37,36,35); L(38,36,37);
#RA(37,32); A(7,15,ab(6,1,[16,38],"gespiegelt")); N(62,61,38); N(63,32,55);
#RA(38,61);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(13.375,10.4375,P1)
p(14.375,10.4375,P2)
p(13.875,11.30352540378444,P3)
p(14.875,11.30352540378444,P4)
p(15.375,10.4375,P5)
p(14.375,12.169550807568877,P6)
p(16.375,12.169550807568879,P7)
p(15.375,12.169550807568879,P8)
p(14.875,13.035576211353316,P9)
p(15.875,13.035576211353316,P10)
p(15.375,13.901601615137753,P11)
p(15.875,11.30352540378444,P12)
p(16.875,11.30352540378444,P13)
p(16.375,10.4375,P14)
p(17.375,10.4375,P15)
p(13.509709984124378,13.207708701471336,P16)
p(13.757487204820688,11.361460788209357,P17)
p(12.766070087720347,11.230724030101896,P18)
p(13.148557292541035,12.154684818311253,P19)
p(12.157140175440695,12.023948060203793,P20)
p(12.539627380261381,12.94790884841315,P21)
p(11.54821026316104,12.817172090305688,P22)
p(12.52896012364271,13.012440395888511,P23)
p(11.869477880213207,13.764160537032268,P24)
p(12.850227740694876,13.959428842615093,P25)
p(12.190745497265372,14.71114898375885,P26)
p(13.248385828780444,12.242457601583965,P27)
p(14.248338264095722,12.232704288964788,P28)
p(13.756808662937342,13.103565156833522,P29)
p(14.756761098252614,13.093811844214347,P30)
p(14.018132818281277,14.068816256720893,P31)
p(15.018085253596553,14.059062944101717,P32)
p(13.021857338714874,14.155043681678013,P33)
p(13.087902736771348,15.152860300799764,P34)
p(13.91901457822085,14.596754998718929,P35)
p(13.985059976277322,15.594571617840678,P36)
p(14.816171817726822,15.038466315759843,P37)
p(14.882217215783296,16.03628293488159,P38)
p(17.240290015875622,13.207708701471336,P39)
p(16.99251279517931,11.361460788209357,P40)
p(17.983929912279653,11.230724030101896,P41)
p(17.601442707458965,12.154684818311253,P42)
p(18.592859824559305,12.023948060203793,P43)
p(18.210372619738617,12.94790884841315,P44)
p(19.20178973683896,12.817172090305688,P45)
p(18.22103987635729,13.012440395888511,P46)
p(18.880522119786793,13.76416053703227,P47)
p(17.899772259305124,13.959428842615093,P48)
p(18.55925450273463,14.71114898375885,P49)
p(17.501614171219558,12.242457601583965,P50)
p(16.50166173590428,12.232704288964788,P51)
p(16.993191337062658,13.103565156833522,P52)
p(15.993238901747386,13.093811844214347,P53)
p(16.731867181718727,14.068816256720893,P54)
p(15.731914746403445,14.059062944101717,P55)
p(17.728142661285126,14.155043681678015,P56)
p(17.662097263228652,15.152860300799766,P57)
p(16.83098542177915,14.596754998718929,P58)
p(16.764940023722676,15.594571617840678,P59)
p(15.933828182273174,15.038466315759843,P60)
p(15.867782784216704,16.036282934881594,P61)
p(15.375,15.166130576050318,P62)
p(15.375,14.99319990611519,P63)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P12,P5) s(P14,P5)
s(P3,P6) s(P4,P6)
s(P8,P7) s(P10,P7)
s(P6,P8)
s(P6,P9) s(P8,P9)
s(P8,P10) s(P9,P10)
s(P9,P11) s(P10,P11)
s(P7,P12)
s(P7,P13) s(P12,P13)
s(P12,P14) s(P13,P14)
s(P13,P15) s(P14,P15)
s(P25,P16) s(P23,P16)
s(P1,P17)
s(P1,P18) s(P17,P18)
s(P18,P19) s(P17,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21)
s(P20,P22) s(P21,P22)
s(P22,P23)
s(P22,P24) s(P23,P24)
s(P24,P25) s(P23,P25)
s(P24,P26) s(P25,P26)
s(P16,P27) s(P21,P27)
s(P27,P28) s(P17,P28)
s(P27,P29) s(P28,P29) s(P30,P29)
s(P28,P30) s(P6,P30)
s(P16,P31) s(P29,P31)
s(P31,P32) s(P30,P32)
s(P31,P33) s(P26,P33)
s(P26,P34) s(P33,P34)
s(P34,P35) s(P33,P35)
s(P34,P36) s(P35,P36)
s(P36,P37) s(P35,P37) s(P32,P37)
s(P36,P38) s(P37,P38) s(P61,P38)
s(P46,P39) s(P48,P39)
s(P15,P40)
s(P15,P41) s(P40,P41)
s(P40,P42) s(P41,P42)
s(P41,P43) s(P42,P43)
s(P42,P44) s(P43,P44)
s(P43,P45) s(P44,P45)
s(P45,P46)
s(P45,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P39,P50) s(P44,P50)
s(P40,P51) s(P50,P51)
s(P50,P52) s(P51,P52) s(P53,P52)
s(P7,P53) s(P51,P53)
s(P39,P54) s(P52,P54)
s(P53,P55) s(P54,P55)
s(P49,P56) s(P54,P56)
s(P49,P57) s(P56,P57)
s(P56,P58) s(P57,P58)
s(P57,P59) s(P58,P59)
s(P55,P60) s(P58,P60) s(P59,P60)
s(P59,P61) s(P60,P61)
s(P61,P62) s(P38,P62)
s(P32,P63) s(P55,P63)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P17,MB10) f(P1,MA10,MB10)
color(#008000) m(P3,P1,MA11) m(P1,P17,MB11) f(P1,MA11,MB11)
pen(2)
color(red) s(P29,P30) abstand(P29,P30,A0) print(abs(P29,P30):,11.55,18.849) print(A0,13.58,18.849)
color(red) s(P37,P32) abstand(P37,P32,A1) print(abs(P37,P32):,11.55,18.38) print(A1,13.58,18.38)
color(red) s(P38,P61) abstand(P38,P61,A2) print(abs(P38,P61):,11.55,17.911) print(A2,13.58,17.911)
print(min=0.9855655684334081,11.55,17.443)
print(max=1.0000000000000127,11.55,16.974)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1205, eingetragen 2018-05-19
|
slash, schlaf dich erstmal aus, aber kannst du dann ne schrittweise konstruktion der 18 spindeln angeben?, warscheinlich sind es ja 6 x 3 rotiert oder ähnliches... also drei bilder würden das nachzeichnen evtl. erheblich vereinfachen...???
die obere darstellung (mit farbpunkten ohne schwarzen rand) ist besser erkennbar für mich
haribo
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1206, eingetragen 2018-05-19
|
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb4.PNG
hier mein 4-farb versuch
hab doch direkt in dein bild hinein colorieren können...
grün und lila wechselseitig gespiegelt zur senkrechten mittellinie
rot und blau auch jeweils symetrisch zur mittellinie
zwei punkte hab ich gefunden die sogar jeweils zwei farb möglichkeiten hätten
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1207, vom Themenstarter, eingetragen 2018-05-19
|
@ Stefan: Danke für die Graphen.
@ haribo: Aber doch nicht 24 Stunden am Stück. :-D Deine Färbung scheint richtig zu sein. Dann versuch mal den neuen Graphen. SVG davon ist in meinem Notizbuch. Dann kannst du Kanten und Knoten nach Belieben ändern. Ich kann dir auch ein Bitmap, etc. schicken zum besseren kolorieren.
EDIT: SVG ist ja nicht veränderbar. Werde ich dann als DXF hochladen. :-)
Hier die schrittweise Konstruktion:
1) 6 Moser-Spindeln im regelmäßigen 6-Eck.
2) Je eine Kopie von Teilgraph 1) mit dem blauen Mittelpunkt auf rot und grün.
3) Kanten und Knoten ergänzen. (siehe SVG)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_slash_graph106_konstruktion.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1208, eingetragen 2018-05-20
|
Es könnte folgendermaßen gehen:
Schritt 1 kannst du eindeutig mit 4 Farben colorieren
Beim kopieren in schritt 2 kann man die 4 Farben offenbar derart vertauschen dass das Innere Sechseck übereinander passt (1-2;2-3;3-4;4-1)??? Außerhalb des Sechseckes gibt es ja nur zwei weitere Punkt Überlagerungen (jedenfalls im ersten Kopiervorgang des 2.schrittes)auf die muss man achten
Dann sind wohl alle Verbindungen aus schritt 3 danach automatisch passend
Oder entstehen da auch neue Verbindungen welche nicht parallel zum allerersten blau-rot-grün Dreieck liegen?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1209, vom Themenstarter, eingetragen 2018-05-20
|
\quoteon(2018-05-20 07:00 - haribo in Beitrag No. 1208)
Oder entstehen da auch neue Verbindungen welche nicht parallel zum allerersten blau-rot-grün Dreieck liegen?
\quoteoff
Wahrscheinlich, aber es werden ja auch noch weitere Knoten hinzugefügt.
Mit den weiteren 3 Knoten und 27 Kanten wird es vielleicht knifflig.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_35059_st-vierfarb4_neu.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1210, eingetragen 2018-05-20
|
es scheint dass diese sorte zusätzlicher linien die vierfarbigkeit nicht nachhaltig behindern, sooo viele knoten mussten gar nicht umgefährbt werden,
was gleichzeitig ein hinweis is dass es vorher ausserhalb der twinfarbigen punkte auch mehrere lösungen geben musste...
damit du ne chance der nachvervolgung hast hab ich die neugefärbten als rechtecke ausgeführt...
ach ja fünf linien hab ich noch bunt nachgetragen
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb5.PNG
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1211, eingetragen 2018-05-20
|
ich denke über etwas ähnliches nach, auch moserspindeln, aber über einem beweglichen kern, z.B. fünf über nem fünfeck
daraus kann man dann z.B. nen fünfstern schieben, welcher auch beweglich ist, drum könnte man jetzt etliche punkte benachbarter spindeln zur deckung bringen evtl kann man damit die fünfte farbe zwingen?
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb6.PNG
wir könnten aber auch langsam mal die veröffentlichung von de gray anschauen, denn einiges haben wir schon begriffen die letzten tage
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1212, vom Themenstarter, eingetragen 2018-05-20
|
Gut gefärbt, haribo! Ja, Beweglichkeit kann nie schaden. Wir probieren einfach weiter. :-)
EDIT: Ich leg nochmal nach mit 15 weiteren Knoten, ausgehend als 6-Eck um den Mittelpunkt. Sieht jetzt etwas schäbig aus, aber einer will noch nicht. Jeder neue Knoten mit mehr als 4 Kanten könnte eine Neufärbung zur Folge haben.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_35059_st-vierfarb5_15.PNG
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1213, eingetragen 2018-05-21
|
lustiges morgendliches videospiel, auch als abstrakte kunscht könnten wir millionen machen, vierdimensional?
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb7.PNG
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1214, vom Themenstarter, eingetragen 2018-05-21
|
Wow, doch so einfach. Du hast wohl ein gutes Händchen und Auge dafür.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1215, vom Themenstarter, eingetragen 2018-05-21
|
Nächste Runde. 9 neue Knoten mit je 6 Kanten (fett schwarz/orange). Die 5 gelben sind für die aktuelle Färbung noch zu bändigen. Es sind wohl auch 4 blaue Knoten vorhanden, die auf dem letzten Schmierbild untergegangen oder doch neu sind - schwer die Übersicht zu behalten bei der Knotendichte. ;-)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_slash_graph_5farb_neu3.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1216, eingetragen 2018-05-21
|
anstelle neuer linien dazuzufügen könntest du auch auf vorhandene linien jeweils weitere moser-spindeln setzen... das ergibt dann ja jeweils in der umgebung die beiden anderen farben (welche diese linie gerade nicht begrenzen)als zwingende zugabe... also immer alle vier in dichter nähe
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb8.PNG
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1217, eingetragen 2018-05-22
|
\quoteon(2018-05-21 11:14 - Slash in Beitrag No. 1215)
Nächste Runde. 9 neue Knoten mit je 6 Kanten (fett schwarz/orange). Die 5 gelben sind für die aktuelle Färbung noch zu bändigen. Es sind wohl auch 4 blaue Knoten vorhanden, die auf dem letzten Schmierbild untergegangen oder doch neu sind - schwer die Übersicht zu behalten bei der Knotendichte. ;-)
\quoteoff
Ja wird sehr unübersichtlich, hab’s ne Stunde lang versucht... da waren aber immer noch zwei unfrei...
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1218, vom Themenstarter, eingetragen 2018-05-22
|
\quoteon(2018-05-22 07:10 - haribo in Beitrag No. 1217)
\quoteon(2018-05-21 11:14 - Slash in Beitrag No. 1215)
Nächste Runde. 9 neue Knoten mit je 6 Kanten (fett schwarz/orange). Die 5 gelben sind für die aktuelle Färbung noch zu bändigen. Es sind wohl auch 4 blaue Knoten vorhanden, die auf dem letzten Schmierbild untergegangen oder doch neu sind - schwer die Übersicht zu behalten bei der Knotendichte. ;-)
\quoteoff
Ja wird sehr unübersichtlich, hab’s ne Stunde lang versucht... da waren aber immer noch zwei unfrei...
\quoteoff
Ging mir genauso. Meine Strategie war, erst diesen Graphen ausreizen, dann einen neuen entwerfen. Probieren wir es dann mal mit einer beweglichen Spindel-Konstruktion.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1219, eingetragen 2018-05-22
|
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb9.PNG
die neuheit war die erkenntniss dass der innere ring der 6 roten einen durchmesser von <1 hat...
alle veränderungen sind rechteckig, drum muss man auch nur die prüfen, oder?
aber man is ja betriebsblind, also ohne garantie
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1220, eingetragen 2018-05-22
|
als hinterlegte einfluss kreise mit durchmesser 1
stellt man fest dass es doppelt belegte flächen(überschneidungs-linsen) gibt, )
die erscheinen mir als absicherung für weitere linien oft sicher zu sein, d.h. man kann dann die passende farbe wählen???
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb10.png
daraus folgt dass die "unsicheren bereiche" d.h. gleichfarbige im abstand<1 zu ner farbfläche, viel kleiner sind als im ersten moment angenommen
und derzeit gibts nur noch ziemlich kleine flächen ohne eindeutiger farbhirachie (dunkelgrau)
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb11.png
schätze wir sind auf nem weg eine "sichere" 6-farb kachelung zu erfinden, und damit den bisher bekannten farb-anzahl-bereich, der seit de grey von 5-7 reicht, von oben eingrenzen zu können...det wäre der farbhammer
haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1221, vom Themenstarter, eingetragen 2018-05-22
|
Gut gemacht! Das mit den Kreisen/Scheiben ist wirklich eine gute Idee.
Es fehlten noch 4 Kanten (hellgrün), die aber nichts machen.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_35059_st-vierfarb9_4K.PNG
Und hier der Graph plus 30 Grad Drehung. Ahhhh! :-o
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_winkler_graph_drehung.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1222, eingetragen 2018-05-22
|
hoch die tassen!!!!!! das matheplanet streichholz-team schlägt wieder zu, neue obere eingrenzung im hadwiger-nelson-problem in sicht
die gewählten abmessungen sind noch nicht absolut exakt, noch sind kleinste freie zwickel zu sehen
für das gelbe mittelfeld ist ein umgebungskreis r=1,5 eingezeichnet, der kein weiteres gelbes feld schneidet,und der hat nach links noch richtig platz bis zum nächsten gelb, da geht noch was
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb1.PNG
[Die Antwort wurde nach Beitrag No.1220 begonnen.]
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1223, vom Themenstarter, eingetragen 2018-05-22
|
Auf welcher Grundlage hast du das letzte Bild erstellt?
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1224, eingetragen 2018-05-22
|
sozusagen extrapoliert aus 1220/2, dort ist mit vier farben schon ne ziemliche sicherheit gegeben, ich hab zwei weitere dazwischengepuffert...
aber man rudert ja immer rückwärts, die zwickel schliessen sich nicht freiwillig, scheints
trotzdem, die sechsfarbigkeitsgrenze obergrenze erscheint mir besser erreichbar als alles andere
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb2.PNG
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1225, vom Themenstarter, eingetragen 2018-05-22
|
Der schwarze #1221 besitzt mit deiner aktuellen Färbung 5 Knoten mit fünfter Farbe. Die drei schwarzen Knoten können blau oder rot sein. Die äußeren orangen Knoten haben über Kreuz Abstand 1. Das könnte was sein. Und oben dürfen natürlich auch nicht zwei rote sein.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-137_dreh_5.png
EDIT: Man kann einfach die untere Hälfte doppelt spiegeln und schon reichen 4 Farben. :-(
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1226, vom Themenstarter, eingetragen 2018-05-22
|
\quoteon(2018-05-22 22:48 - haribo in Beitrag No. 1224)
sozusagen extrapoliert aus 1220/2, dort ist mit vier farben schon ne ziemliche sicherheit gegeben, ich hab zwei weitere dazwischengepuffert...
\quoteoff
Das bedeutet, den ganzen Graphen als Teilgraphen verwenden?
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1227, eingetragen 2018-05-22
|
nein, wohl ein anderer ansatz
du kennst den ansatz um die sieben-farbigkeit als maximale obergrenze zu definieren?
|
Profil
|
Bernhard
Senior
Dabei seit: 01.10.2005
Mitteilungen: 6657
Wohnort: Merzhausen, Deutschland
 | Beitrag No.1228, eingetragen 2018-05-23
|
Viele bunte Smarties..!
Ihr habt mal wieder Eure ästhetische Phase.
Wunderschöne schneeflockengleiche Spinnennetze mit vielen bunten Kügelchen drin hängen.
Soll das ein Abbild der Cloud darstellen? Das Netz mit den vielen herumchwirrenden Daten?
;-)
Viele Grüße, Bernhard
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1229, vom Themenstarter, eingetragen 2018-05-23
|
#1225 kann man wie schon im EDIT gesagt 4-färben, wenn man die untere Hälfte doppelt spiegetlt. Ich habe jetzt im inneren 6 neue Knoten hinzugefügt von denen 2 auf der waagerechten Geraden durch den Mittelpunkt liegen, die eine fünfte Farbe brauchen. Diese Knoten sind auch die, die am nächsten beieinander liegen. Abstand 0,085. Insgesamt liegen die Knoten jetzt auf 16 konzentrischen Kreisen um den Mittelpunkt.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-137_dreh_5_b.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1230, eingetragen 2018-05-23
|
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb12.png
der spiegelpunkt könnte wohl rot sein wenn die damit verbundenen roten grün bzw lila gehen?
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1231, eingetragen 2018-05-23
|
die verbindungslinie deiner zwei inneren orangen punkte hat IMO nicht die länge 1
auch alle anderen durch den mittelpunkt gehenden neuen orangen sind wohl länger als 1
wie kontrollierst du die neuen längen?
haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1232, vom Themenstarter, eingetragen 2018-05-23
|
Ja, den Fehler mit den beiden äußeren Knoten beim Spiegeln habe ich auch schon bemerkt. Die Einheitslänge ist jeweils von einem roten zu einem orangenen. Ich arbeite nur mit Kreisen die Einheitsradius haben. Ich bin also mit so einem Kreis über den Graphen gefahren und habe geschaut wann genau vier Farben drauf liegen. Dann noch genau gemessen. Ich arbeite ja mit CAD. Die bunten Knoten auf den Bildern hier sind eigentlich dicke konzentrische Kreise um den Kantentreffpunkt. Hier der Graph als dxf.
Beim alten Graphen mit deiner Färbung bleiben die oberen 6 Knoten (noch) in fünfter Farbe.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-137_dreh_5_c.png
Beim Spiegelgraphen gehen die beiden äußeren in rot.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-193_b.png
Der Graph hat jetzt (wohl) 193 Knoten.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1233, eingetragen 2018-05-23
|
wenn wir die färbungsflächen weiter untersuchen wollen könnten wir evtl auch jeweils im zentrum der flächen liegende punkte nebst aller darin mündenden linien entfernen? evtl bringt das ne übersichtlichkeit zurück? und strafft gleichzeitig den graphen?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1234, vom Themenstarter, eingetragen 2018-05-23
|
\quoteon(2018-05-23 22:29 - haribo in Beitrag No. 1233)
wenn wir die färbungsflächen weiter untersuchen wollen könnten wir evtl auch jeweils im zentrum der flächen liegende punkte nebst aller darin mündenden linien entfernen? evtl bringt das ne übersichtlichkeit zurück? und strafft gleichzeitig den graphen?
\quoteoff
Ich glaube, das ist gar nicht so einfach möglich. Hast du ein Beispiel für solch einen "überflüssigen" Knoten?
Ich habe leider keinen blassen Schimmer von Färbungsalgortihmen und ob (und in welcher Zeit) ein Graph mit knapp 200 Knoten überhaupt noch Computergeprüft werden kann.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1235, eingetragen 2018-05-24
|
na z.B. den rote mittelpunkt mit all seinebn strahlen könnte man mal löschen?
ich such nur nen ansatz dass es immer noch in richtung vier-ist-unmöglich geht aber, eben nicht immer unübersichtlicher wird
stell dir vor du beginnst mit zwei spitzenberührenden dreiecken und bist auf der suche nach der notwendigkeit der vierten farbe also sowas wie die moserspindel...kopierst also teilgraphen wild hin und her
das wird auch sofort total unübersichtlich, und fals man dann die spindel irgendwann generiert hat wären doch etliche andere kopien bzw ihre linien überflüssig gewesen...
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-dreifarb7.PNG
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1236, vom Themenstarter, eingetragen 2018-05-24
|
Ok, sag oder zeig mir welche Knoten und Kanten ich entfernen soll, dann mache ist das mal mit dem CAD. Zuvor noch eine 4-Färbung des letzten Graphen, die total symmetrisch ist.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-193_d.png
Der Graph besitzt jetzt ja eine 6-fache Rotationssymmetrie. Vielleicht ist das eine 4-Färbungsregel, das bei solchen symmetrischen Graphen zwei Farben (rot, blau) immer doppelt spiegelsymmetrisch zu plazieren sind und die anderen beiden (lila, grün) spiegelsymmetrisch vertauscht. Die Symmetrieachsen liegen sind waage- und senkrecht durch den Mittelpunkt.
EDIT: Graph getauscht mit 4-Farb-Lösung.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 3753
| Beitrag No.1237, eingetragen 2018-05-24
|
testweise mal alle punkte nebst ihren linien raus die in kleiner umgebung (<0.5?) mehr als vier gleichfarbige besitzen, also im kernbereich einer definitions farbfläche sich befinden
http://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb13.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1238, vom Themenstarter, eingetragen 2018-05-24
|
Bitte sehr. :-)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-193_d_reduziert_b.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 8921
Wohnort: Sahlenburg (Cuxhaven)
| Beitrag No.1239, vom Themenstarter, eingetragen 2018-05-25
|
Die meisten Knoten liegen auf einem kreis mit Radius 0,2915 bzw. haben diesen Abstand voneinander. Setzt man solche Kreise um nahe entfernte Knoten derart, dass diese sich schneiden, dann liegen auf dem Einheitskreis um diese Schnittpunkte sehr viele Knoten verschiedener Farbe.
|
Profil
|
|
Home / Seite ohne Frame
Wie unterstütze ich den Matheplaneten mit Geld?
