| |
| Autor |
 Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5 |
|
Slash
Aktiv 
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
 |  Beitrag No.520, vom Themenstarter, eingetragen 2016-09-24
|
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_-_813_komp._asym._stefan_vogel.png
Gratulation zum neuen Rekord, Stefan! :-)
Diese Kernkonstruktionsvariante hatten wir noch nicht, und zeigt mal wieder, dass auch kleine Veränderungen Rekorde brechen können. Interessant wie man jetzt von unten bis an den Kern vordringen kann.
Gruß, Slash
|
 Profil
|
StefanVogel
Senior 
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
 |  Beitrag No.521, eingetragen 2016-10-01
|
Bodybilder - Fehler gefunden, und das nur durch Zufall - die verwendete Meßmethode ist nicht geeignet :-| Im nachfolgenden Ausschnitt habe ich den blauen Winkel um ein Viertel verkleinert. Es geht um die Raute P19-P20-P23-P25 ganz links. Um festzustellen, dass der Punkt P25 links von P20 liegt, messe ich den Abstand P18-P25, er muss größer 1 sein.
\geo
ebene(253.55,228.24)
x(2.79,7.86)
y(6,10.56)
form(.)
#//Eingabe war:
#//blauerWinkel=30; gruenerWinkel=30.42510593200685; orangerWinkel=65;
#//Bodybilder No.323-4 mit Kern 313-3: nochmal mit Feinjustieren2()
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,2*D,D); A(13,12); H(14,12,13,2); A(12,14); A(14,13); L(15,12,14); L(16,14,13); A(15,16); L(17,16,13); N(18,6,15); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,2*D); A(20,21); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); N(25,19,23);
#
#R(18,25);
#
#//L(26,19,20); L(27,26,20); R(27,23);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4,6,P1)
p(5,6,P2)
p(4.862291851942355,6.506411652782422,P3)
p(5.862291851942355,6.506411652782422,P4)
p(5.362291851942355,7.372437056566861,P5)
p(4.493560822867198,6.86971128205322,P6)
p(5.355852674809553,7.376122934835641,P7)
p(5.8558526748095625,8.242148338620074,P8)
p(6.362264327591975,7.379856486677714,P9)
p(6.855825150459182,8.249567768730929,P10)
p(7.362236803241595,7.387275916788568,P11)
p(4.486141392756333,7.869683757702839,P12)
p(6.158609468353616,8.966429186737274,P13)
p(5.322375430554974,8.418056472220057,P14)
p(4.429353710141513,8.868070035204308,P15)
p(5.265587747940153,9.416442749721524,P16)
p(6.101821785738794,9.964815464238741,P17)
p(4.436773140252376,7.868097559554688,P18,nolabel)
print(\P18,4.05,8.15)
p(3.9432123173851776,6.998386277501468,P19)
p(3.4368006646027554,7.860678129443823,P20)
p(4.114220735740745,9.742459744621152,P21)
p(3.7755107001717505,8.801568937032487,P22)
p(2.791320340828213,8.624455028557636,P23)
p(3.1300303763972077,9.5653458361463,P24)
p(3.297731993610635,7.762163176615281,P25,nolabel)
print(\P25,2.85,7.9)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12) s(P14,P12)
s(P10,P13)
s(P13,P14)
s(P12,P15) s(P14,P15) s(P16,P15)
s(P14,P16) s(P13,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P15,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20) s(P22,P20)
s(P17,P21)
s(P21,P22)
s(P20,P23) s(P22,P23) s(P24,P23)
s(P22,P24) s(P21,P24)
s(P19,P25) s(P23,P25)
color(blue) pen(2)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
pen(2)
color(red) s(P18,P25) abstand(P18,P25,A0) print(abs(P18,P25):,2.79,10.565) print(A0,4.09,10.565)
\geooff
\geoprint()
Beim Justieren verändert sich der blaue Winkel so, dass keine Raute mehr zu sehen ist. Abstand P18-P25 zeigt jedoch einen Wert knapp über 1 an (im Streichholzprogramm, fedgeo rundet schon auf 1), das spricht dafür, dass es noch eine Raute sein könnte.
\geo
ebene(266.01,240.02)
x(2.48,7.8)
y(6,10.8)
form(.)
#//Eingabe war:
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685; orangerWinkel=65;
#//Bodybilder No.323-4 mit Kern 313-3: nochmal mit Feinjustieren2()
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,2*D,D); A(13,12); H(14,12,13,2); A(12,14); A(14,13); L(15,12,14); L(16,14,13); A(15,16); L(17,16,13); N(18,6,15); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,2*D); A(20,21); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); N(25,19,23);
#
#R(18,25);
#
#//L(26,19,20); L(27,26,20); R(27,23);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4,6,P1)
p(5,6,P2)
p(4.862291851942355,6.506411652782422,P3)
p(5.862291851942355,6.506411652782422,P4)
p(5.362291851942355,7.372437056566861,P5)
p(4.270607930146376,6.962689642689633,P6)
p(5.132899782088731,7.469101295472056,P7)
p(5.63289978208873,8.335126699256495,P8)
p(6.331309503544929,7.619428535939392,P9)
p(6.601917433691305,8.582118178629024,P10)
p(7.300327155147504,7.866420015311922,P11)
p(4.263188500035511,7.962662118339254,P12)
p(5.8250962880705055,9.211839472310912,P13)
p(5.044142394053008,8.587250795325083,P14)
p(4.112755785858419,8.9512823682357,P15)
p(4.893709679875917,9.57587104522153,P16)
p(5.6746635738934135,10.20045972220736,P17)
p(4.120175215969287,7.951309892586081,P18,nolabel)
print(\P18,3.72,8.25)
p(3.849567285822911,6.988620249896448,P19)
p(3.151157564366712,7.70431841321355,P20)
p(3.764439895027295,9.607968796792301,P21)
p(3.457798729697003,8.656143605002926,P22)
p(2.4801733509802633,8.445790048130334,P23)
p(2.7868145163105544,9.397615239919709,P24)
p(3.1511575643667094,7.704318413213548,P25)
print(\P25,2.75,7.80)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12) s(P14,P12)
s(P10,P13)
s(P13,P14)
s(P12,P15) s(P14,P15) s(P16,P15)
s(P14,P16) s(P13,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P15,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20) s(P22,P20)
s(P17,P21)
s(P21,P22)
s(P20,P23) s(P22,P23) s(P24,P23)
s(P22,P24) s(P21,P24)
s(P19,P25) s(P23,P25)
color(blue) pen(2)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
pen(2)
color(red) s(P18,P25) abstand(P18,P25,A0) print(abs(P18,P25):,2.48,10.8) print(A0,3.78,10.8)
\geooff
\geoprint()
Wenn ich aber den blauen Winkel noch weiter vergrößere,
\geo
ebene(271.09,247.73)
x(2.23,7.65)
y(6,10.95)
form(.)
#//Eingabe war:
#//blauerWinkel=56; gruenerWinkel=30.42510593200685; orangerWinkel=65;
#//Bodybilder No.323-4 mit Kern 313-3: nochmal mit Feinjustieren2()
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,2*D,D); A(13,12); H(14,12,13,2); A(12,14); A(14,13); L(15,12,14); L(16,14,13); A(15,16); L(17,16,13); N(18,6,15); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,2*D); A(20,21); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); N(25,19,23);
#
#R(18,25);
#
#//L(26,19,20); L(27,26,20); R(27,23);
#
#Kites(3*D,3*D);
#Kites();
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4,6,P1)
p(5,6,P2)
p(4.862291851942355,6.506411652782422,P3)
p(5.862291851942355,6.506411652782422,P4)
p(5.362291851942355,7.372437056566861,P5)
p(4.062353196990487,6.998054146239103,P6)
p(4.924645048932842,7.504465799021525,P7)
p(5.424645048932841,8.370491202805963,P8)
p(6.2578086954330505,7.817464677085476,P9)
p(6.3201618924235365,8.81551882332458,P10)
p(7.153325538923745,8.26249229760409,P11)
p(4.054933766879622,7.998026621888723,P12)
p(5.497201716640897,9.383617889576064,P13)
p(4.77606774176026,8.690822255732392,P14)
p(3.815522135780381,8.96894478058924,P15)
p(4.536656110661018,9.66174041443291,P16)
p(5.2577900855416555,10.354536048276579,P17)
p(3.8229415658912447,7.968972304939619,P18,nolabel)
print(\P18,3.42,8.25)
p(3.7605883689007578,6.970918158700516,P19)
p(2.9274247224005485,7.5239446844210045,P20)
p(3.4753311254650385,9.447430731545062,P21)
p(3.2013779239327937,8.485687707983034,P22)
p(2.231507432849498,8.242066628177021,P23)
p(2.505460634381743,9.20380965173905,P24)
p(2.9274247224005485,7.5239446844210045,P25,nolabel)
print(\P25,2.52,7.62)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12) s(P14,P12)
s(P10,P13)
s(P13,P14)
s(P12,P15) s(P14,P15) s(P16,P15)
s(P14,P16) s(P13,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P15,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20) s(P22,P20)
s(P17,P21)
s(P21,P22)
s(P20,P23) s(P22,P23) s(P24,P23)
s(P22,P24) s(P21,P24)
s(P19,P25) s(P23,P25)
color(blue) pen(2)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
pen(2)
color(red) s(P18,P25) abstand(P18,P25,A0) print(abs(P18,P25):,2.23,10.955) print(A0,3.53,10.955)
\geooff
\geoprint()
dann ist deutlich zu sehen, dass die Punkte P19-P20-P23-P25 keine Raute mehr bilden können, in der P25 links von P20 liegt. Das Streichholzprogramm gibt aber immer noch einen Abstand P18-P25 knapp über 1 an. Das liegt daran, dass P25 so gezeichnet wird, dass dieser Punkt links von der Strecke P19-P23 liegt und damit fällt P25 mit P20 zusammen. Abstand P18-P25 ist nicht zur Unterscheidung geeignet. Ich muss P23 messen, zum Beispiel indem ich an Strecke P19-P20 zwei blaue Dreiecke anfüge und dann den Abstand P23-P27 messe. Wenn der kleiner 1 ist, geht die Raute zu zeichnen
\geo
ebene(271.27,228.24)
x(2.44,7.86)
y(6,10.56)
form(.)
#//Eingabe war:
#//blauerWinkel=30; gruenerWinkel=30.42510593200685; orangerWinkel=65;
#//Bodybilder No.323-4 mit Kern 313-3: nochmal mit Feinjustieren2()
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,2*D,D); A(13,12); H(14,12,13,2); A(12,14); A(14,13); L(15,12,14); L(16,14,13); A(15,16); L(17,16,13); N(18,6,15); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,2*D); A(20,21); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); N(25,19,23);
#
#//R(18,25);
#
#L(26,19,20); L(27,26,20); R(27,23);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4,6,P1)
p(5,6,P2)
p(4.862291851942355,6.506411652782422,P3)
p(5.862291851942355,6.506411652782422,P4)
p(5.362291851942355,7.372437056566861,P5)
p(4.493560822867198,6.86971128205322,P6)
p(5.355852674809553,7.376122934835641,P7)
p(5.8558526748095625,8.242148338620074,P8)
p(6.362264327591975,7.379856486677714,P9)
p(6.855825150459182,8.249567768730929,P10)
p(7.362236803241595,7.387275916788568,P11)
p(4.486141392756333,7.869683757702839,P12)
p(6.158609468353616,8.966429186737274,P13)
p(5.322375430554974,8.418056472220057,P14)
p(4.429353710141513,8.868070035204308,P15)
p(5.265587747940153,9.416442749721524,P16)
p(6.101821785738794,9.964815464238741,P17)
p(4.436773140252376,7.868097559554688,P18)
p(3.9432123173851776,6.998386277501468,P19)
p(3.4368006646027554,7.860678129443823,P20)
p(4.114220735740745,9.742459744621152,P21)
p(3.7755107001717505,8.801568937032487,P22)
p(2.791320340828213,8.624455028557636,P23)
p(3.1300303763972077,9.5653458361463,P24)
p(3.297731993610635,7.762163176615281,P25,nolabel)
print(\P25,2.86,7.81)
p(2.943239841735558,6.990966847390602,P26)
p(2.436828188953135,7.853258699332957,P27)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12) s(P14,P12)
s(P10,P13)
s(P13,P14)
s(P12,P15) s(P14,P15) s(P16,P15)
s(P14,P16) s(P13,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P15,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20) s(P22,P20)
s(P17,P21)
s(P21,P22)
s(P20,P23) s(P22,P23) s(P24,P23)
s(P22,P24) s(P21,P24)
s(P19,P25) s(P23,P25)
s(P19,P26) s(P20,P26)
s(P26,P27) s(P20,P27)
color(blue) pen(2)
s(P19,P26) s(P20,P26)
s(P26,P27) s(P20,P27)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
pen(2)
color(red) s(P27,P23) abstand(P27,P23,A0) print(abs(P27,P23):,2.44,10.565) print(A0,3.74,10.565)
\geooff
\geoprint()
und bei Abstand größer 1 geht keine Raute zu zeichnen.
\geo
ebene(281.07,247.73)
x(2.03,7.65)
y(6,10.95)
form(.)
#//Eingabe war:
#//blauerWinkel=56; gruenerWinkel=30.42510593200685; orangerWinkel=65;
#//Bodybilder No.323-4 mit Kern 313-3: nochmal mit Feinjustieren2()
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,2*D,D); A(13,12); H(14,12,13,2); A(12,14); A(14,13); L(15,12,14); L(16,14,13); A(15,16); L(17,16,13); N(18,6,15); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,2*D); A(20,21); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); N(25,19,23);
#
#//R(18,25);
#
#L(26,19,20); L(27,26,20); R(27,23);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4,6,P1)
p(5,6,P2)
p(4.862291851942355,6.506411652782422,P3)
p(5.862291851942355,6.506411652782422,P4)
p(5.362291851942355,7.372437056566861,P5)
p(4.062353196990487,6.998054146239103,P6)
p(4.924645048932842,7.504465799021525,P7)
p(5.424645048932841,8.370491202805963,P8)
p(6.2578086954330505,7.817464677085476,P9)
p(6.3201618924235365,8.81551882332458,P10)
p(7.153325538923745,8.26249229760409,P11)
p(4.054933766879622,7.998026621888723,P12)
p(5.497201716640897,9.383617889576064,P13)
p(4.77606774176026,8.690822255732392,P14)
p(3.815522135780381,8.96894478058924,P15)
p(4.536656110661018,9.66174041443291,P16)
p(5.2577900855416555,10.354536048276579,P17)
p(3.8229415658912447,7.968972304939619,P18)
p(3.7605883689007578,6.970918158700516,P19)
p(2.9274247224005485,7.5239446844210045,P20)
p(3.4753311254650385,9.447430731545062,P21)
p(3.2013779239327937,8.485687707983034,P22)
p(2.231507432849498,8.242066628177021,P23)
p(2.505460634381743,9.20380965173905,P24)
p(2.9274247224005485,7.5239446844210045,P25,nolabel)
print(\P25,2.49,7.7)
p(2.8650715254100616,6.525890538181901,P26)
p(2.0319078789098524,7.078917063902391,P27)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12) s(P14,P12)
s(P10,P13)
s(P13,P14)
s(P12,P15) s(P14,P15) s(P16,P15)
s(P14,P16) s(P13,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P15,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20) s(P22,P20)
s(P17,P21)
s(P21,P22)
s(P20,P23) s(P22,P23) s(P24,P23)
s(P22,P24) s(P21,P24)
s(P19,P25) s(P23,P25)
s(P19,P26) s(P20,P26)
s(P26,P27) s(P20,P27)
color(blue) pen(2)
s(P19,P26) s(P20,P26)
s(P26,P27) s(P20,P27)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
pen(2)
color(red) s(P27,P23) abstand(P27,P23,A0) print(abs(P27,P23):,2.03,10.955) print(A0,3.33,10.955)
\geooff
\geoprint()
Und jetzt der entscheidende Moment, bei dem zu untersuchenden blauen Winkel
\geo
ebene(280.91,240.02)
x(2.18,7.8)
y(6,10.8)
form(.)
#//Eingabe war:
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685; orangerWinkel=65;
#//Bodybilder No.323-4 mit Kern 313-3: nochmal mit Feinjustieren2()
#//blauerWinkel=43.874448637923095; gruenerWinkel=30.42510593200685
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,2*D,D); A(13,12); H(14,12,13,2); A(12,14); A(14,13); L(15,12,14); L(16,14,13); A(15,16); L(17,16,13); N(18,6,15); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,2*D); A(20,21); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); N(25,19,23);
#
#//R(18,25);
#
#L(26,19,20); L(27,26,20); R(27,23);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(4,6,P1)
p(5,6,P2)
p(4.862291851942355,6.506411652782422,P3)
p(5.862291851942355,6.506411652782422,P4)
p(5.362291851942355,7.372437056566861,P5)
p(4.270607930146376,6.962689642689633,P6)
p(5.132899782088731,7.469101295472056,P7)
p(5.63289978208873,8.335126699256495,P8)
p(6.331309503544929,7.619428535939392,P9)
p(6.601917433691305,8.582118178629024,P10)
p(7.300327155147504,7.866420015311922,P11)
p(4.263188500035511,7.962662118339254,P12)
p(5.8250962880705055,9.211839472310912,P13)
p(5.044142394053008,8.587250795325083,P14)
p(4.112755785858419,8.9512823682357,P15)
p(4.893709679875917,9.57587104522153,P16)
p(5.6746635738934135,10.20045972220736,P17)
p(4.120175215969287,7.951309892586081,P18)
p(3.849567285822911,6.988620249896448,P19)
p(3.151157564366712,7.70431841321355,P20)
p(3.764439895027295,9.607968796792301,P21)
p(3.457798729697003,8.656143605002926,P22)
p(2.4801733509802633,8.445790048130334,P23)
p(2.7868145163105544,9.397615239919709,P24)
p(3.1511575643667094,7.704318413213548,P25,nolabel)
print(\P25,2.70,7.88)
p(2.880549634220336,6.741628770523917,P26)
p(2.182139912764137,7.457326933841019,P27)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12) s(P14,P12)
s(P10,P13)
s(P13,P14)
s(P12,P15) s(P14,P15) s(P16,P15)
s(P14,P16) s(P13,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P15,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20) s(P22,P20)
s(P17,P21)
s(P21,P22)
s(P20,P23) s(P22,P23) s(P24,P23)
s(P22,P24) s(P21,P24)
s(P19,P25) s(P23,P25)
s(P19,P26) s(P20,P26)
s(P26,P27) s(P20,P27)
color(blue) pen(2)
s(P19,P26) s(P20,P26)
s(P26,P27) s(P20,P27)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
pen(2)
color(red) s(P27,P23) abstand(P27,P23,A0) print(abs(P27,P23):,2.18,10.8) print(A0,3.48,10.8)
\geooff
\geoprint()
ist der Abstand 1,032 und damit deutlich genug über 1, also keine Raute möglich. Wenn ich schräg auf den Bildschirm von P19 aus in Richtung P20 schaue, so ist mein Eindruck, dass dann Strecke P20-P23 einen leichten Knick nach rechts macht. Aber wer glaubt schon auf einer Rekordjagd so einer Perspektive eher als einer Zahl mit 16 Nachkommastellen. Slash, damit habe ich dir viele vergebliche Mühen beschert mit dem Zeichnen und nachprüfen...
\quoteon(2016-09-24 18:27 - Slash in Beitrag No. 520)
Gratulation zum neuen Rekord, Stefan! :-)
\quoteoff
Danke, doch soll das auch weiterhin ein gemeinsamer Rekord bleiben wie schon der davor :-)
Gemerkt habe ich den Fehler bei einem anderen, nicht funktionierenden Graph. Ich kann ihn ja mit ergänzen, damit wir diese Variante nicht nochmal probieren brauchen.
\geo
ebene(706.96,564.22)
x(-0.99,16.68)
y(0.52,14.63)
form(.)
#//Eingabe war:
#//blauerWinkel=32.477082897646895; gruenerWinkel=40.470677717452155; orangerWinkel=58.898609329281314;
#//Graph 518 4/11 mit 403 Ecken und 813 Kanten.
#//blauerWinkel=40.49207000332465; gruenerWinkel=32.36251966007222
#D=40; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,gruenerWinkel); N(4,3,2); L(5,3,4);
#M(6,1,3,blauerWinkel); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#Q(13,12,10,ab(11,5,8,9,10),D); L(17,16,13);
#N(18,6,14); N(19,1,18); L(20,19,18);
#M(21,20,18,orangerWinkel); L(22,20,21); L(23,22,21); L(24,23,21);
#
#N(25,19,22); N(26,1,25); L(27,26,25);
#Q(28,27,23,ab(13,12,[14,17]),D);
#N(33,26,29); N(34,1,33); L(35,34,33);
#Q(36,35,32,ab(24,20,[20,24]),ab(20,24,[20,24])); L(43,41,42);
#N(44,34,38); N(45,1,44); L(46,45,44);
#Q(47,46,39,ab(13,12,[14,17]),D);
#N(52,45,48); N(53,1,52); L(54,53,52);
#Q(55,54,51,ab(36,35,[37,39]),ab(36,32,[40,43]));
#N(63,53,57); N(64,1,63); L(65,64,63);
#Q(66,65,58,ab(13,12,[14,17]),D);
#N(71,64,67); N(72,1,71); L(73,72,71);
#Q(74,73,70,ab(36,35,[37,39]),ab(36,32,[40,43]));
#N(82,72,76); N(83,1,82); L(84,83,82);
#
#N(85,2,83);
#Q(86,85,84,D,ab(67,65,[66,70]));
#L(91,2,85); N(92,4,91); L(93,92,91); N(94,11,93); L(95,94,93); L(96,94,95);
#
#A(77,87); R(77,87);
#A(11,92); R(11,92); R(17,186); R(17,24);
#R(18,25); R(7,18);
#
#A(95,96); A(94,93,ab(95,96,[1,96])); A(95,96); /*
#
#Q(199,66,47,5.87336307704547344599*D,6.20985554572319298217*D);
#A(199,66); A(199,47);
#Q(200,66,199,3.85410196624968426349*D,3.85410196624968426349*D);
#A(200,66); A(200,199);
#Q(201,66,200,ab(21,17,[25,28]),ab(17,21,[25,28]));
#A(205,209); L(210,209,205);
#A(200,199,ab(66,200,[201,209])); A(210,215); A(210,219);
#Q(220,199,47,ab(199,200,[211,219]),ab(210,200,[210,219],199));
#A(225,239); A(229,239);
#
#R(17,194); R(12,20);
#/*
#Q(240,94,85,ab(199,194,[220,239],"gespiegelt"),ab(28,199,[200,219]));
#
#Q(281,66,47,ab(240,94,[241,260]),ab(240,85,[261,280]));
#Q(322,185,166,ab(240,94,[241,260]),ab(240,85,[261,280]));
#Q(363,147,128,ab(240,94,[241,260]),ab(240,85,[261,280]));
#*/
#function W(k,i,j) {
# var Winkel=Math.acos(
# ((P[k][0]-P[i][0])*(P[j][0]-P[i][0])
# +(P[k][1]-P[i][1])*(P[j][1]-P[i][1]))/ab(k,i)/ab(i,j))
# *180/Math.PI;
# alert(Winkel);
# }
#
#//für Ausgabe der Winkel in der nächsten Zeile "//" entfernen:
#//W(3,1,2); W(6,1,3); W(19,1,6); W(30,1,19); W(38,1,30); W(49,1,38); W(57,1,49); W(68,1,57); W(76,1,68); W(87,1,76); W(2,1,87);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
nolabel()
p(4,6,P1)
p(5,6,P2)
p(4.76073823427799,6.6490588100531465,P3)
p(5.76073823427799,6.6490588100531465,P4)
p(5.26073823427799,7.515084213837585,P5)
p(4.2932434932386565,6.956037788831169,P6)
p(5.053981727516646,7.605096598884315,P7,label)
p(5.553981727516648,8.471122002668753,P8)
p(6.235312993003013,7.739146793614001,P9)
p(6.528556486241671,8.695184582445169,P10)
p(7.2098877517280355,7.9632093733904155,P11,label)
p(4.111511192321528,7.939385830372599,P12)
p(5.664857796735591,9.199193088073276,P13)
p(3.954335298904646,8.926956454950204,P14)
p(4.888184494528559,8.569289459222937,P15)
p(4.731008601111677,9.556860083800544,P16)
p(5.5076819033187085,10.186763712650883,P17,label)
p(4.111511192321494,7.939385830372592,P18)
print(\P18,3.61,8.23)
p(3.818267699082836,6.983348041541424,P19)
p(3.1369364335964707,7.7153232505961755,P20)
p(3.448502429731807,8.665547766198776,P21)
p(2.4698008618535248,8.46025957600608,P22)
p(2.7813668579888606,9.41048409160868,P23)
p(3.760068425867143,9.615772281801375,P24,label)
p(3.1369364335964596,7.715323250596165,P25)
print(\P25,2.63,7.91)
p(3.3186687345136234,6.731975209054742,P26)
p(2.3761981993184933,7.066264440542991,P27)
p(1.8690912641142807,9.000907186960992,P28)
p(1.4116965826947983,7.330341382986432,P29)
p(2.122644731716387,8.03358581375199,P30)
p(1.1581431150926904,8.297662756195434,P31)
p(0.9045896474905843,9.264984129404436,P32)
p(2.354167117889923,6.9960521514981675,P33)
p(3.0354983833762996,6.264076942443426,P34)
p(2.06092362465128,6.040014362666994,P35)
p(0.5110450340461248,7.304085703368846,P36)
p(1.285984329348702,6.67205003301792,P37)
p(1.126095030378162,5.684915081719614,P38)
p(0.3511557350755852,6.31695075207054,P39)
p(0.707817320106932,8.284534920533307,P40)
p(-0.23966273818663097,7.964720126260457,P41)
p(-0.04289043146440097,8.945169339278252,P42)
p(-0.9903705104193872,8.62535454915207,P43)
p(2.100669789103182,5.908977661496044,P44)
p(3.0651714057268826,5.644900719052619,P45)
p(2.354223256705305,4.941656288287048,P46)
p(0.3898938268958516,5.317701353650844,P47)
p(1.700308609466529,4.185087960819803,P48)
p(1.372058541800579,5.1296788209689455,P49)
p(0.718143894561801,4.3731104935017004,P50)
p(-0.2640208203429264,4.561133026183599,P51)
p(2.4112567584881197,4.88833239158536,P52)
p(3.346085352761237,5.243431672532742,P53)
p(3.1861960537906984,4.256296721234436,P54)
p(1.3730438069339121,3.4122120514777903,P55)
p(2.2796199303623053,3.8342543863561125,P56)
p(3.0984073755536286,3.260157600441869,P57)
p(2.191831252125236,2.8381152655635464,P58)
p(0.5545114811896439,3.986672521581416,P59)
p(0.4662802745966985,2.9905725177249196,P60)
p(-0.3522520390417201,3.565033005077825,P61)
p(-0.44048325774051467,2.5689329839720494,P62)
p(3.2582966745241695,4.247292551740175,P63)
p(3.9122113217629324,5.003860879207433,P64)
p(4.2404613894289005,4.059270019058295,P65)
p(3.098876199673434,2.4170814627314114,P66)
p(4.66615359578162,3.1544019925204188,P67)
p(3.6696687945511672,3.238175740894854,P68)
p(4.095361000903887,2.333307714356976,P69)
p(3.524568406026155,1.5122134361935338,P70)
p(4.337903528115665,4.098992852669561,P71)
p(4.425692206352732,5.095131973462128,P72)
p(5.244479651544057,4.521035187547886,P73)
p(5.251488755464153,2.5210474694700387,P74)
p(5.247984203504105,3.521041328508962,P75)
p(6.112252013080225,4.024073289054709,P76)
p(6.115756565040272,3.024079430015785,P77,label)
p(4.388028591374948,2.016630434635723,P78)
p(5.256596618614538,1.5210605146881093,P79)
p(4.393136443895538,1.0166434980498575,P80)
p(5.261704481764923,0.5210735599061804,P81)
p(5.293464567888898,4.598170074968948,P82)
p(4.867772361536166,5.50303810150682,P83)
p(5.864257162766621,5.419264353132398,P84)
p(5.867772361536166,5.50303810150682,P85)
p(6.86425716276662,5.419264353132384,P86)
p(6.864257162766598,3.6872135455635067,P87,label)
p(6.364257162766609,4.553238949347952,P88)
p(7.364257162766608,4.553238949347938,P89)
p(7.864257162766597,3.6872135455634925,P90)
p(5.86426780957612,6.503031960545744,P91)
p(6.62500604385411,7.152090770598891,P92,label)
p(6.806738344771238,6.168742729057461,P93)
p(7.391620052645168,6.979861331848986,P94)
p(7.8016285142078035,6.0677796132255715,P95)
p(8.386510222081732,6.878898216017097,P96)
p(11.19324856685297,7.047640945074557,P97)
p(10.19324856685297,7.047640945074557,P98)
p(10.432510332574982,6.39858213502141,P99)
p(9.432510332574982,6.39858213502141,P100)
p(9.93251033257498,5.532556731236972,P101)
p(10.900005073614313,6.091603156243387,P102)
p(10.139266839336322,5.442544346190241,P103)
p(9.63926683933632,4.576518942405803,P104)
p(8.957935573849957,5.308494151460557,P105)
p(8.6646920806113,4.35245636262939,P106)
p(7.983360815124934,5.084431571684142,P107)
p(11.081737374531441,5.108255114701958,P108)
p(9.52839077011738,3.848447857001282,P109)
p(11.238913267948323,4.120684490124352,P110)
p(10.30506407232441,4.478351485851619,P111)
p(10.462239965741293,3.490780861274013,P112)
p(9.68556666353426,2.860877232423675,P113)
p(11.081737374531476,5.108255114701964,P114)
p(11.374980867770134,6.064292903533131,P115)
p(12.0563121332565,5.33231769447838,P116)
p(11.744746137121163,4.382093178875779,P117)
p(12.723447704999444,4.587381369068475,P118)
p(12.411881708864112,3.6371568534658754,P119)
p(11.433180140985826,3.4318686632731823,P120)
p(12.056312133256512,5.332317694478391,P121)
p(11.874579832339347,6.315665736019815,P122)
p(12.817050367534478,5.981376504531566,P123)
p(13.324157302738687,4.046733758113563,P124)
p(13.78155198415817,5.7172995620881215,P125)
p(13.070603835136584,5.014055131322563,P126)
p(14.03510545176028,4.749978188879121,P127)
p(14.288658919362387,3.7826568156701197,P128)
p(12.839081448963048,6.051588793576387,P129)
p(12.15775018347667,6.78356400263113,P130)
p(13.132324942201688,7.0076265824075605,P131)
p(14.682203532806847,5.743555241705706,P132)
p(13.907264237504268,6.375590912056635,P133)
p(14.06715353647481,7.362725863354942,P134)
p(14.842092831777386,6.730690193004013,P135)
p(14.485431246746037,4.763106024541249,P136)
p(15.432911305039601,5.082920818814096,P137)
p(15.23613899831737,4.102471605796304,P138)
p(16.183619077272358,4.422286395922486,P139)
p(13.092578777749791,7.138663283578511,P140)
p(12.12807716112609,7.402740226021937,P141)
p(12.839025310147667,8.105984656787507,P142)
p(14.803354739957122,7.729939591423709,P143)
p(13.492939957386445,8.862552984254751,P144)
p(13.821190025052392,7.917962124105607,P145)
p(14.475104672291168,8.674530451572856,P146)
p(15.457269387195897,8.48650791889095,P147)
p(12.78199180836485,8.159308553489193,P148)
p(11.847163214091733,7.804209272541812,P149)
p(12.007052513062275,8.79134422384012,P150)
p(13.820204759919056,9.635428893596767,P151)
p(12.913628636490666,9.213386558718444,P152)
p(12.094841191299345,9.787483344632683,P153)
p(13.001417314727737,10.209525679511007,P154)
p(14.63873708566333,9.06096842349314,P155)
p(14.726968292256277,10.05706842734963,P156)
p(15.545500605894695,9.48260793999673,P157)
p(15.633731824593486,10.478707961102508,P158)
p(11.934951892328803,8.800348393334382,P159)
p(11.281037245090038,8.043780065867121,P160)
p(10.952787177424074,8.98837092601626,P161)
p(12.09437236717954,10.630559482343143,P162)
p(10.527094971071353,9.893238952554134,P163)
p(11.523579772301805,9.809465204179702,P164)
p(11.097887565949089,10.714333230717576,P165)
p(11.668680160826819,11.535427508881021,P166)
p(10.855345038737308,8.948648092404994,P167)
p(10.76755636050024,7.952508971612427,P168)
p(9.948768915308912,8.52660575752667,P169)
p(9.941759811388515,10.526593475604738,P170)
p(9.94526436334887,9.52659961656559,P171)
p(9.080996553772753,9.023567656019846,P172)
p(9.0774920018127,10.023561515058772,P173)
p(10.805219975478034,11.031010510438824,P174)
p(9.93665194823843,11.52658043038645,P175)
p(10.800112122957419,12.03099744702471,P176)
p(9.931544085088046,12.526567385168379,P177)
p(9.899783998964073,8.449470870105607,P178)
p(10.325476205316804,7.544602843567735,P179)
p(9.328991404086352,7.628376591942159,P180)
p(9.325476205316805,7.544602843567736,P181)
p(8.328991404086352,7.628376591942174,P182)
p(8.32899140408637,9.360427399511051,P183)
p(8.828991404086363,8.494401995726605,P184)
p(7.828991404086364,8.49440199572662,P185)
p(7.328991404086375,9.360427399511066,P186,label)
p(9.32898075727685,6.5446089845288125,P187)
p(8.568242522998862,5.895550174475667,P188)
p(8.386510222081732,6.878898216017097,P189)
p(7.801628514207803,6.0677796132255715,P190)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11) s(P92,P11)
s(P6,P12) s(P7,P12)
s(P15,P13) s(P16,P13) s(P10,P13)
s(P12,P14)
s(P12,P15) s(P14,P15)
s(P14,P16) s(P15,P16)
s(P16,P17) s(P13,P17)
s(P6,P18) s(P14,P18)
s(P1,P19) s(P18,P19)
s(P19,P20) s(P18,P20)
s(P20,P21)
s(P20,P22) s(P21,P22)
s(P22,P23) s(P21,P23)
s(P23,P24) s(P21,P24)
s(P19,P25) s(P22,P25)
s(P1,P26) s(P25,P26)
s(P26,P27) s(P25,P27)
s(P30,P28) s(P31,P28) s(P23,P28)
s(P27,P29)
s(P27,P30) s(P29,P30)
s(P29,P31) s(P30,P31)
s(P28,P32) s(P31,P32) s(P40,P32) s(P42,P32)
s(P26,P33) s(P29,P33)
s(P1,P34) s(P33,P34)
s(P34,P35) s(P33,P35)
s(P37,P36) s(P39,P36)
s(P35,P37)
s(P35,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P36,P40)
s(P36,P41) s(P40,P41)
s(P40,P42) s(P41,P42)
s(P41,P43) s(P42,P43)
s(P34,P44) s(P38,P44)
s(P1,P45) s(P44,P45)
s(P45,P46) s(P44,P46)
s(P49,P47) s(P50,P47) s(P39,P47)
s(P46,P48)
s(P46,P49) s(P48,P49)
s(P48,P50) s(P49,P50)
s(P47,P51) s(P50,P51) s(P59,P51) s(P61,P51)
s(P45,P52) s(P48,P52)
s(P1,P53) s(P52,P53)
s(P53,P54) s(P52,P54)
s(P56,P55) s(P58,P55)
s(P54,P56)
s(P54,P57) s(P56,P57)
s(P56,P58) s(P57,P58)
s(P55,P59)
s(P55,P60) s(P59,P60)
s(P59,P61) s(P60,P61)
s(P60,P62) s(P61,P62)
s(P53,P63) s(P57,P63)
s(P1,P64) s(P63,P64)
s(P64,P65) s(P63,P65)
s(P68,P66) s(P69,P66) s(P58,P66)
s(P65,P67)
s(P65,P68) s(P67,P68)
s(P67,P69) s(P68,P69)
s(P66,P70) s(P69,P70) s(P78,P70) s(P80,P70)
s(P64,P71) s(P67,P71)
s(P1,P72) s(P71,P72)
s(P72,P73) s(P71,P73)
s(P75,P74) s(P77,P74)
s(P73,P75)
s(P73,P76) s(P75,P76)
s(P75,P77) s(P76,P77) s(P87,P77)
s(P74,P78)
s(P74,P79) s(P78,P79)
s(P78,P80) s(P79,P80)
s(P79,P81) s(P80,P81)
s(P72,P82) s(P76,P82)
s(P1,P83) s(P82,P83)
s(P83,P84) s(P82,P84)
s(P2,P85) s(P83,P85)
s(P85,P86) s(P84,P86)
s(P88,P87) s(P89,P87)
s(P84,P88) s(P86,P88)
s(P86,P89) s(P88,P89)
s(P87,P90) s(P89,P90)
s(P2,P91) s(P85,P91)
s(P4,P92) s(P91,P92)
s(P92,P93) s(P91,P93) s(P190,P93)
s(P11,P94) s(P93,P94) s(P189,P94) s(P190,P94)
s(P94,P95) s(P93,P95) s(P96,P95)
s(P94,P96)
s(P97,P98)
s(P97,P99)
s(P98,P100) s(P99,P100)
s(P99,P101) s(P100,P101)
s(P97,P102)
s(P99,P103) s(P102,P103)
s(P101,P104) s(P103,P104)
s(P101,P105) s(P104,P105)
s(P104,P106) s(P105,P106)
s(P105,P107) s(P106,P107) s(P188,P107)
s(P102,P108) s(P103,P108)
s(P106,P109) s(P111,P109) s(P112,P109)
s(P108,P110)
s(P108,P111) s(P110,P111)
s(P110,P112) s(P111,P112)
s(P109,P113) s(P112,P113)
s(P102,P114) s(P110,P114)
s(P97,P115) s(P114,P115)
s(P114,P116) s(P115,P116)
s(P116,P117)
s(P116,P118) s(P117,P118)
s(P117,P119) s(P118,P119)
s(P117,P120) s(P119,P120)
s(P115,P121) s(P118,P121)
s(P97,P122) s(P121,P122)
s(P121,P123) s(P122,P123)
s(P119,P124) s(P126,P124) s(P127,P124)
s(P123,P125)
s(P123,P126) s(P125,P126)
s(P125,P127) s(P126,P127)
s(P124,P128) s(P127,P128) s(P136,P128) s(P138,P128)
s(P122,P129) s(P125,P129)
s(P97,P130) s(P129,P130)
s(P129,P131) s(P130,P131)
s(P133,P132) s(P135,P132)
s(P131,P133)
s(P131,P134) s(P133,P134)
s(P133,P135) s(P134,P135)
s(P132,P136)
s(P132,P137) s(P136,P137)
s(P136,P138) s(P137,P138)
s(P137,P139) s(P138,P139)
s(P130,P140) s(P134,P140)
s(P97,P141) s(P140,P141)
s(P140,P142) s(P141,P142)
s(P135,P143) s(P145,P143) s(P146,P143)
s(P142,P144)
s(P142,P145) s(P144,P145)
s(P144,P146) s(P145,P146)
s(P143,P147) s(P146,P147) s(P155,P147) s(P157,P147)
s(P141,P148) s(P144,P148)
s(P97,P149) s(P148,P149)
s(P148,P150) s(P149,P150)
s(P152,P151) s(P154,P151)
s(P150,P152)
s(P150,P153) s(P152,P153)
s(P152,P154) s(P153,P154)
s(P151,P155)
s(P151,P156) s(P155,P156)
s(P155,P157) s(P156,P157)
s(P156,P158) s(P157,P158)
s(P149,P159) s(P153,P159)
s(P97,P160) s(P159,P160)
s(P159,P161) s(P160,P161)
s(P154,P162) s(P164,P162) s(P165,P162)
s(P161,P163)
s(P161,P164) s(P163,P164)
s(P163,P165) s(P164,P165)
s(P162,P166) s(P165,P166) s(P174,P166) s(P176,P166)
s(P160,P167) s(P163,P167)
s(P97,P168) s(P167,P168)
s(P167,P169) s(P168,P169)
s(P171,P170) s(P173,P170)
s(P169,P171)
s(P169,P172) s(P171,P172)
s(P171,P173) s(P172,P173) s(P183,P173)
s(P170,P174)
s(P170,P175) s(P174,P175)
s(P174,P176) s(P175,P176)
s(P175,P177) s(P176,P177)
s(P168,P178) s(P172,P178)
s(P97,P179) s(P178,P179)
s(P178,P180) s(P179,P180)
s(P98,P181) s(P179,P181)
s(P180,P182) s(P181,P182)
s(P184,P183) s(P185,P183)
s(P180,P184) s(P182,P184)
s(P182,P185) s(P184,P185)
s(P183,P186) s(P185,P186)
s(P98,P187) s(P181,P187)
s(P100,P188) s(P187,P188)
s(P187,P189) s(P188,P189)
s(P107,P190) s(P189,P190)
color(blue) pen(2)
m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
m(P2,P1,MA20) m(P1,P3,MB20) f(P1,MA20,MB20)
color(gold) pen(2)
m(P18,P20,MA30) m(P20,P21,MB30) f(P20,MA30,MB30)
pen(2)
color(red) s(P77,P87) abstand(P77,P87,A0) print(abs(P77,P87):,-0.99,14.627) print(A0,0.71,14.627)
color(red) s(P11,P92) abstand(P11,P92,A1) print(abs(P11,P92):,-0.99,14.327) print(A1,0.71,14.327)
color(red) s(P17,P186) abstand(P17,P186,A2) print(abs(P17,P186):,-0.99,14.027) print(A2,0.71,14.027)
color(red) s(P17,P24) abstand(P17,P24,A3) print(abs(P17,P24):,-0.99,13.727) print(A3,0.71,13.727)
color(red) s(P18,P25) abstand(P18,P25,A4) print(abs(P18,P25):,-0.99,13.427) print(A4,0.71,13.427)
color(red) s(P7,P18) abstand(P7,P18,A5) print(abs(P7,P18):,-0.99,13.127) print(A5,0.71,13.127)
\geooff
\geoprint()
Gegenüber Graph #519 sind hier die Kerne noch um ein Dreieck näher zusammengerückt und das große Dreieck über Strecke P17-P24 habe ich nach P17-P186 versetzt. Den dadurch beweglich werdenden orangen Winkel verwende ich zum Justieren von P17-186.
Jetzt entstehen sogar zwei anscheinend sehr schmale Rauten mit Abständen P7-P18 und P18-P25 knapp über 1. Dabei ist mir dann ein Licht aufgegangen, dass das ein Fehler sein muss, mit der richtigen Meßmethode sind das keine Rauten.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.522, vom Themenstarter, eingetragen 2016-10-01
|
Naja, 813 statt 811 ist ja nicht die Welt. :-)
Jetzt wissen wir es wenigstens. Danke für die Prüfung. Ich habe deinen Post allerdings nur überflogen und lese später noch mal genauer.
EDIT: Ich habe beide Paper entsprechend geändert. Jetzt müssen wir uns noch für die Auswahl der unendlichen Graphen absprechen. Das können wir auch ruhig hier tun.
Ich schlage vor, den symmetrischen 4/12 und 4/13 so beizubehalten und mit einem 4/12 dann ein paar Variationen zu zeigen, da er die beste "Sicht" bietet.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.523, eingetragen 2016-10-05
|
\quoteon(2016-09-24 08:11 - StefanVogel in Beitrag No. 518)
Die Winkel sind von P1-P2 ausgehend entgegen dem Uhrzeigersinn 32,36251966007221 40,49207000332465 25,382433534610843 34,89082087676045 32,2189476094507 34,51433594736363 29,108515978283318 36,31491131809427 29,550687898877964 35,06535948431688 30,09939768884507 Grad.
\quoteoff
moin stefan, ich bekomme den kern noch nicht nachgezeichnet, meine fehler sind deutlich grösser als sie allein dadurch zu erwarten wären weil ich auf drei komma stellen aufrunde
kannst du den 4. und 5. winkel (34,89082087676045 32,2189476094507)nochmal bei dir kontrollieren?
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_4-11-kern-frage.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.524, vom Themenstarter, eingetragen 2016-10-05
|
Also mit nur drei Nachkommastellen hatte ich beim alten 11er-Kern auch Probleme mit dem Nachzeichnen (siehe entsprechende Stelle im Thread). Diesmal habe ich Stefans Graph aus dem Streichholzprogramm mittels DXF in mein CAD übertragen und alle Kanten haben genau Länge eins. Hier mit nur zwei Nachkommastellen aus meinem CAD abgelesen.
+32,36
+72,85
+98,24
+133,13
+165,35
-160,14
-131,03
-94,72
-65,16
-30,10
Die negativen Werte müssen +360 gerechnet werden.
Der dritte Winkel müsste also auf 25,39 gerundet werden, dann klappt's. Vielleicht ist Stefan mit dem Finger verrutscht und hat versehentlich 8 statt 9 getippt? Der vierte und fünfte Winkel müsste aber wieder stimmen. Allerdings ist die Winkelsumme der geposteten Winkel 359,9999999999985 womit ein Tippfehler in den ersten beiden Nachkommastellen ausscheidet.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.525, vom Themenstarter, eingetragen 2016-10-06
|
Entfalte mich! ;-)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_slash_graph_06.10.2016.png
...ist ein echter 4-regulärer.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.526, vom Themenstarter, eingetragen 2016-10-08
|
Fast ein schöner 4/4 mit 120 Kanten und 3-facher Rotationssymmetrie. Leider sind die blauen Kanten etwas zu lang (ca. 1,089). Der Graph ist starr.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_120_fast_-_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.527, vom Themenstarter, eingetragen 2016-10-08
|
Bei diesem fast 4/6 mit 142 Kanten liegen die roten bei ca. 0,987. Auch dieser Graph ist starr.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_6_mit_142_fast_-_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.528, vom Themenstarter, eingetragen 2016-10-08
|
Alle fast oder falsch und auch schon mal ähnlich da gewesen. Könnte man einen der ersten beiden zurecht quetschen, so dass sich die inneren 2er-Knoten berühren?
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_106_fast_-_slash.png
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_106_b_fast_-_slash.png
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_108_fast_-_slash.png
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_falsch_und_windschief_-_slash.png
Bei diesen fünf (4-regulären) Graphen sind alle Kanten exakt 1 - nur die inneren Knoten sind teilweise vom Grad 2.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.529, vom Themenstarter, eingetragen 2016-10-09
|
Durch die engen Winkel sieht dieser starre 4-reguläre Knochen fast aus wie 3/4/6.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_244_-_slash.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.530, eingetragen 2016-10-09
|
3/4/6 ??? wo siehst du das, mir fehlt die detailierung der inneren knoten
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.531, vom Themenstarter, eingetragen 2016-10-09
|
\quoteon(2016-10-09 00:37 - haribo in Beitrag No. 530)
3/4/6 ??? wo siehst du das, mir fehlt die detailierung der inneren knoten
\quoteoff
Na in der Mitte, zwei "scheinbare" 3er- und drei 6er-Knoten. Sind aber alles 4er-Knoten die sich nicht berühren. Das ist so schmal, dass ich keinen Zoom posten kann. Das ergibt sich durch den Umstand, dass die rote Strecke genau zwei Kantenlängen misst.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_244_-_slash_2.png
Ist ja nichts Besonderes, deshalb habe ich zuerst auf weitere Erklärungen verzichtet.
Der Graph entstand aus diesem starren Teilgraphen. Während die blauen Kanten genau waagerecht sind, besitzen die roten Kanten einen Winkel von 0,6 Grad.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_teilgraph_starr.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.532, vom Themenstarter, eingetragen 2016-10-09
|
Den Graphen aus #526 kann man noch reduzieren auf 114 Kanten. Hier liegen die blauen Kanten bei ca. 1,00282.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_114_fast_-_slash.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.533, eingetragen 2016-10-09
|
Den teilgraph kann man als Austausch Hüfte in den 4/10er bauen
Ergibt dann ca. 249....
Interessant ist der teilgraph wenn man die Rechten 18 Hölzer weglässt , dann hat er nur noch 27
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.534, vom Themenstarter, eingetragen 2016-10-09
|
Mit dem Teilgraph, der ja nicht neu ist, ist eine ganze Menge möglich. Hier ein paar Ideen und Anregungen für Geometrien für 4/4, 4/5 und 4/6 mit unter 104 bzw. 114 Kanten. Manche flexibel, manche starr. Es muss auf jeden Fall sehr nah beieinander liegende Kanten geben.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_slash_neu_1.png
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_slash_neu_2.png
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_slash_neu_3.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.535, eingetragen 2016-10-09
|
ich hab deinen teilgraph jetzt folgendermassen nachvollzogen:
im grunde nimmst du ein harborth viertel(gelb), welches elastisch ist, und verziehst es bis die innenspitzen einen abstand von 1 haben(rot)
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-kern-variante.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.536, vom Themenstarter, eingetragen 2016-10-09
|
\quoteon(2016-10-09 13:04 - haribo in Beitrag No. 535)
im grunde nimmst du ein harborth viertel(gelb), welches elastisch ist, und verziehst es bis die innenspitzen einen abstand von 1 haben(rot)
\quoteoff
Ja, genau so. Erstmals in #198 vorgestellt und in #422 damit den (Double)-Big-Kite konstruiert.
Heute bekam ich die erste offizielle Rückmeldung auf den 4/4 mit 114. Der Mathematiker und Lehrer Dr. Hans Walser hat dazu einen Konstruktionsartikel auf seiner liebevoll gestalteten Homepage veröffentlicht. Dort ist auch unser arXiv-Artikel verlinkt.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.537, vom Themenstarter, eingetragen 2016-10-11
|
Man weiß nie wozu es gut sein könnte... ;-)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_5_falsch_-_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.538, vom Themenstarter, eingetragen 2016-10-12
|
Und weitere falsche bzw. unfertige 4/4 und 4/5. Da kann man noch einiges mit ausprobieren indem man Kanten zufügt/entfernt und Beweglichkeit ins Spiel bringt.
Bei diesem fast 4/4 ist die Mittelkonstruktion vielversprechend.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_falsch_neu_slash.png
Diese fast 4/4 müssten beweglich sein.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_falsch_neu_2_slash.png
4/5 mit vier zu langen Kanten.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_5_falsch_neu_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.539, vom Themenstarter, eingetragen 2016-10-16
|
Dieser Graph sollte sich eigentlich zu einem 4-regulären mit 160 Kanten zurechtbiegen lassen. Da er aus 8 identischen Teilgraphen besteht müssen die Winkel in jedem angepasst werden.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_160_-_slash.png
Hatten wir diese Harborth-Variation mit 108 schon? Falls er überhaupt möglich ist.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_108_III_-_slash.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.540, eingetragen 2016-10-16
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.541, vom Themenstarter, eingetragen 2016-10-16
|
\quoteon(2016-10-16 21:14 - haribo in Beitrag No. 540)
8 teilgraphen, nicht 6
\quoteoff
Danke! Hab's geändert. :-)
Zwei Teilgraphen lassen sich so variieren, dass die rote bzw. blaue Kante genau 1 wird. Dann ist es ein neuer Kite.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_neue_Teilgraphen_-_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.542, vom Themenstarter, eingetragen 2016-10-16
|
Da kommt dann so etwas bei raus. ;-)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_170_-_slash.png
Den neuen Kite mit 43 Kanten nenne ich Fold-Kite, wegen seiner inneren Struktur.
Der Graph aus #539 in "richtig". ;-)
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_mit_160_richtig_-_slash.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.543, eingetragen 2016-10-19
|
die frage welche figuren man im 180;90;60;45;36;30...winkel anordnen kann, derart das sie nach mehrfachem spiegeln einen geschlossenen 4/4er ergeben, ist schon interessant, ergibt aber auch immer punkt-symetrische lösungen
harborth´104er ist ja wohl auch so entstanden nehme ich stark an
hier als beispiel kite+dreieck(e) im 60° und 45° winkel
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-keit-im-winkel.png
ich vermag nichtmal zu erkennen welchen weg (blaue linie im rechten bildteil) die freie dreiecksspitze im 60° winkel beschreibt wenn man das dreieck dreht und die anderen ecken auf den winkelseiten entlangrutschen...
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.544, vom Themenstarter, eingetragen 2016-10-20
|
Und es gibt ja noch die Sonderfälle mit halben Dreiecken wie z.B. beim 4/4 mit 114. Aber wir werden uns bestimmt in den nächsten Monaten einem Suchalgorithmus annähern, vielleicht sogar mit Stefans* modifiziertem Programm.
Dann haben wir noch asymmetrische und solche hier:
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_fast_mit_dreieck.png
*der wohl zurzeit Urlaub macht. ;-)
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.545, eingetragen 2016-10-20
|
die liste der winkel 180;90;60;45;36;30... entsteht wenn man 360 durch gerade zahlen teilt 360/2; 360/4; 360/6...
dein beispiel hat 120 grad elemente, also drei mal rotierte symetrie
120 ist aber 360/ungerade also in der liste nicht enthalten
dein beispiel ist also nicht passend zu meinem ansatz "der symetrischen spiegel konstruktionen im winkel", da müsste es sich in 60° winkel abspielen
die 120 grad winkel würde ich bei dem graph also nicht als lote(oder höhen?) auf das hülldreieck enzeichnen sondern etwa folgendermassen:
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-3x120grad.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.546, vom Themenstarter, eingetragen 2016-10-20
|
Ich wollte nur Fälle für einen möglichen Suchalgorithmus ergänzen. Der letzte Fall zeigt mit den blauen Geraden, dass sogar 4/4 möglich wären, deren Teilgraphen bisherige Zusammensetz-Theorien über den Haufen werfen, trotz vorhandener Rotationssymmetrie.
Poste mal ein paar fertige Graphen nach deinem Schema.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.547, eingetragen 2016-10-20
|
na die beiden aus #543
und dieser 168er, den hatten wir auch schonmal früher...
den 12 x 10er schon am ersten tag...
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-14x12.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.548, eingetragen 2016-10-21
|
habe mit hochkomplexer systematik diese doppelkite-verbreiterung ge-(oder wiederge?-)funden
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-doppelkite-verbreitert.png
befinde mich also weiterhin in dem "übersicht verloren" status
haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.549, vom Themenstarter, eingetragen 2016-10-21
|
Ich denke, da hast du was neues gefunden. :-) Besitzt aber 2 Kanten mehr als der Double-Big-Kite aus #422 und ist auch etwas kürzer als dieser. Er komplettiert aber auf jeden Fall die Kite-Konstruktionen.
Mit dieser Drei-Dreiecks-Methode lassen sich wohl auch alle weiteren 4,2-regulären (konkaven?) Seiten eines Graphen verbreitern. Die Dreiecke müssen natürlich evtl. größer gewählt werden, wenn der Graph es verlangt.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.550, eingetragen 2016-10-21
|
damit kann man in einer variation einen 4/7er mit kites bauen,
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-4-7-209.PNG
das gibt möglicherweise mein persönlich kleinsten 4/7er
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-4-7-203.PNG
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.551, eingetragen 2016-10-22
|
Zuletzt habe ich nur kurz mitgelesen. Die Eingabe der Graphen ist nicht mehr so aufwendig. Doch muss man sich in jeden Graph erst hineindenken, in welcher Reihenfolge man die Kanten am besten zeichnet. Dabei kann das Streichholzprogramm noch nicht helfen. Ein paar kleine Veränderungen am Programm habe ich vorgenommen. Ob es Verbesserungen sind, muss sich noch herausstellen. Jetzt werden die Winkel mit im großen Eingabefenster eingegeben, als xml-Elemente. Dadurch entfällt schon mal das mühselige Kopieren der Winkel in die kleinen Input-Elemente. Während der Eingaben für diesen Beitrag habe ich paar unnötige Folgefehler festgestellt, deshalb lade ich die neue Version erst später hoch. EDIT: Streichholzgraph-551.htm
\quoteon(2016-10-05 15:07 - haribo in Beitrag No. 523)
moin stefan, ich bekomme den kern noch nicht nachgezeichnet, meine fehler sind deutlich grösser als sie allein dadurch zu erwarten wären weil ich auf drei komma stellen aufrunde
kannst du den 4. und 5. winkel (34,89082087676045 32,2189476094507)nochmal bei dir kontrollieren?
\quoteoff
Slash hatte schon bestätigt, dass diese Winkel das gewünschte Ergebnis liefern, ich ergänze dazu noch meine Eingabe, in der ich die Winkel ebenfalls mit nur drei Stellen nach dem Komma eingebe.
\geo
ebene(372.04,301.1)
x(6.35,13.79)
y(9.66,15.68)
form(.)
#//Eingabe war:
#
#No.523 Fehlersuche
#
#
#
#
#//Fehlersuche Beitrag No.523:
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,32.363); N(4,3,2); L(5,3,4);
#M(6,1,3,40.492); N(7,6,3); N(8,7,5); L(9,8,5); L(10,8,9); L(11,10,9); L(12,6,7);
#M(19,1,6,25.382); N(18,19,6); N(14,18,12); L(15,14,12); L(16,14,15); L(13,16,15); L(17,16,13); L(20,19,18);
#M(30,1,19,34.891); N(29,30,19); N(22,29,20); L(23,22,20); L(24,22,23); L(21,24,23); L(31,30,29);
#M(38,1,30,32.219); N(37,38,30); N(33,37,31); L(34,33,31); L(35,33,34); L(32,35,34); L(36,35,32); L(39,38,37);
#M(49,1,38,34.514); N(48,49,38); N(41,48,39); L(42,41,39); L(43,41,42); L(40,43,42);
#
#R(10,13); R(17,21); R(24,32); R(36,40);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,10,P1)
p(11,10,P2)
p(10.844673771272962,10.535281440107456,P3)
p(11.844673771272962,10.535281440107456,P4)
p(11.344673771272962,11.401306843891895,P5)
p(10.294790912544116,10.955561781300094,P6)
p(11.139464683817078,11.490843221407548,P7)
p(11.639464683817078,12.356868625191987,P8)
p(12.319610005036411,11.623791315473941,P9)
p(12.614400917580527,12.579353096774033,P10)
p(13.29454623879986,11.846275787055987,P11)
p(10.253560472873222,11.954711445186613,P12)
p(11.82447523012658,13.192542946419161,P13)
p(10.110292399350554,12.944395363975387,P14)
p(11.039017851499901,12.573627195802887,P15)
p(10.895749777977233,13.56331111459166,P16)
p(11.681207156603913,14.182226865207934,P17)
p(10.151522839021444,11.945245700088867,P18)
p(9.856731926477329,10.989683918788772,P19)
p(9.176586605257995,11.72276122850682,P20)
p(9.757055748413475,13.636672295888047,P21)
p(8.4929560885787,12.452589507394944,P22)
p(9.466821176835735,12.679716762197433,P23)
p(8.78319066015644,13.409545041085556,P24)
p(9.173101409798047,11.71951219767691,P29)
p(9.316369483320718,10.729828278888135,P30)
p(8.38764403117137,11.100596447060632,P31)
p(7.858315646917231,13.029277722342503,P32)
p(7.420168445009101,11.353560852026973,P33)
p(8.122979839044302,12.064937084701567,P34)
p(7.155504252882031,12.317901489667907,P35)
p(6.890840060754962,13.282242127308844,P36)
p(8.34889389715845,10.982792683854475,P37)
p(9.03252441383773,10.252964404966338,P38)
p(8.05865932558069,10.025837150163866,P39)
p(6.529693760175931,11.315125442132155,P40)
p(7.118139727406308,9.68609771257986,P41)
p(7.294176542878311,10.670481296148012,P42)
p(6.353656944703928,10.330741858564004,P43)
p(8.092004815663348,9.913224967382332,P48)
p(9.059480401825617,9.660260562415994,P49)
nolabel()
s(P1,P2)
s(P1,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6)
s(P6,P7) s(P3,P7)
s(P7,P8) s(P5,P8)
s(P8,P9) s(P5,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P6,P12) s(P7,P12)
s(P16,P13) s(P15,P13)
s(P18,P14) s(P12,P14)
s(P14,P15) s(P12,P15)
s(P14,P16) s(P15,P16)
s(P16,P17) s(P13,P17)
s(P19,P18) s(P6,P18)
s(P1,P19)
s(P19,P20) s(P18,P20)
s(P24,P21) s(P23,P21)
s(P29,P22) s(P20,P22)
s(P22,P23) s(P20,P23)
s(P22,P24) s(P23,P24)
s(P30,P29) s(P19,P29)
s(P1,P30)
s(P30,P31) s(P29,P31)
s(P35,P32) s(P34,P32)
s(P37,P33) s(P31,P33)
s(P33,P34) s(P31,P34)
s(P33,P35) s(P34,P35)
s(P35,P36) s(P32,P36)
s(P38,P37) s(P30,P37)
s(P1,P38)
s(P38,P39) s(P37,P39)
s(P43,P40) s(P42,P40)
s(P48,P41) s(P39,P41)
s(P41,P42) s(P39,P42)
s(P41,P43) s(P42,P43)
s(P49,P48) s(P38,P48)
s(P1,P49)
pen(2)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P10,P13) abstand(P10,P13,A0) print(abs(P10,P13):,6.35,15.682) print(A0,7.65,15.682)
color(red) s(P17,P21) abstand(P17,P21,A1) print(abs(P17,P21):,6.35,15.382) print(A1,7.65,15.382)
color(red) s(P24,P32) abstand(P24,P32,A2) print(abs(P24,P32):,6.35,15.082) print(A2,7.65,15.082)
color(red) s(P36,P40) abstand(P36,P40,A3) print(abs(P36,P40):,6.35,14.782) print(A3,7.65,14.782)
\geooff
\geoprint()
Die Außenkanten sind trotzdem noch auf fünf Stellen nach dem Komma genau.
Den Kern vom #525 zum Entfalten habe ich mit etwas größeren Innenwinkeln gezeichnet. Im unteren Teil von P1 bis P22 ist der Graph mit dem blauen Winkel einfach beweglich. Daran schließt sich der grüne Winkel nach P23 an, insgesamt zweifach beweglich. Dann oben drehbar um P23 eine Kopie des unteren Teils, welche ebenfalls in P25 nochmal in sich beweglich ist, insgesamt vierfach beweglich. Beim Einsetzen der restlichen drei Verbindungskanten P14-P24, P21-P38, P16-P43 verringert sich die Beweglichkeit um je 1, es bleibt einfache Beweglichkeit übrig. Das sagt auch das extra GAP-Programm. Große Koeffizienten in der inversen Matrix als vagen Hinweis auf Beweglichkeit, die durch Runden der Koordinaten verloren geht, trerten nicht auf.
\geo
ebene(290.72,332.78)
x(8.32,14.14)
y(10,16.66)
form(.)
#//Eingabe war:
#
#Kern von No.525 zum Entfalten
#
#
#
#
#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,2); L(11,9,7); N(12,11,6); L(13,11,12); L(14,12,6); N(15,13,10); N(16,5,14); L(17,16,5); L(18,10,15); L(19,18,15); L(20,18,19); L(21,20,19); L(22,20,21); M(23,13,12,gruenerWinkel); Q(24,23,14,ab(13,14,[1,22]),D); A(21,38); R(21,38); A(43,16); R(43,16);
#
#
#//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.337482618398507,10.941331759943797,P7)
p(9.35352409169881,10.762934400840695,P8)
p(9.691006710097318,11.704266160784494,P9)
p(8.707048183397621,11.525868801681392,P10)
p(10.674965236797016,11.882663519887595,P11)
p(11.251114095164246,12.700008302095286,P12)
p(10.25519832093811,12.790295458698864,P13)
p(11.963832827625529,11.998558369171501,P14)
p(9.502237073863885,12.13223059836637,P15)
p(11.948543813811366,10.998675252974119,P16)
p(12.83915004611212,10.54389999090828,P17)
p(8.579517908817188,12.517703479974825,P18)
p(9.374706799283452,13.124065276659802,P19)
p(8.451987634236755,13.509538158268258,P20)
p(9.247176524703017,14.115899954953235,P21)
p(8.324457359656321,14.501372836561693,P22)
p(9.999417239909118,13.757030188905471,P23)
p(11.708051746596537,12.965293099378108,P24)
p(11.963250067534645,15.755588558076973,P25)
p(10.963250067534647,15.755588558076973,P26)
p(11.463250067534647,14.889563154292535,P27)
p(10.463250067534647,14.889563154292535,P28)
p(9.963250067534647,15.755588558076973,P29)
p(10.963250067534647,14.023537750508094,P30)
p(11.625767449136138,14.814256798133176,P31)
p(12.609725975835836,14.992654157236277,P32)
p(12.272243357437327,14.05132239729248,P33)
p(13.256201884137026,14.229719756395582,P34)
p(11.28828483073763,13.872925038189377,P35)
p(10.712135972370401,13.055580255981686,P36)
p(12.461012993670762,13.623357959710605,P37)
p(10.014706253723281,14.756913305102854,P38)
p(9.124100021422525,15.211688567168693,P39)
p(13.383732158717459,13.237885078102147,P40)
p(12.588543268251197,12.631523281417172,P41)
p(13.51126243329789,12.246050399808713,P42)
p(12.71607354283163,11.639688603123737,P43)
p(13.638792707878325,11.25421572151528,P44)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5)
s(P3,P6) s(P4,P6)
s(P1,P7)
s(P1,P8) s(P7,P8)
s(P8,P9) s(P7,P9)
s(P8,P10) s(P9,P10)
s(P9,P11) s(P7,P11)
s(P11,P12) s(P6,P12)
s(P11,P13) s(P12,P13)
s(P12,P14) s(P6,P14)
s(P13,P15) s(P10,P15)
s(P5,P16) s(P14,P16)
s(P16,P17) s(P5,P17)
s(P10,P18) s(P15,P18)
s(P18,P19) s(P15,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21) s(P38,P21)
s(P20,P22) s(P21,P22)
s(P13,P23) s(P30,P23) s(P36,P23)
s(P35,P24) s(P36,P24) s(P14,P24)
s(P25,P26)
s(P25,P27) s(P26,P27)
s(P26,P28) s(P27,P28)
s(P26,P29) s(P28,P29)
s(P27,P30) s(P28,P30)
s(P25,P31)
s(P25,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P32,P34) s(P33,P34)
s(P31,P35) s(P33,P35)
s(P30,P36) s(P35,P36)
s(P34,P37) s(P24,P37)
s(P29,P38) s(P23,P38)
s(P29,P39) s(P38,P39)
s(P34,P40) s(P37,P40)
s(P37,P41) s(P40,P41)
s(P40,P42) s(P41,P42)
s(P41,P43) s(P42,P43) s(P16,P43)
s(P42,P44) s(P43,P44)
pen(2)
color(blue) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(green) m(P12,P13,MA11) m(P13,P23,MB11) f(P13,MA11,MB11)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P21,P38) abstand(P21,P38,A0) print(abs(P21,P38):,8.32,16.656) print(A0,9.62,16.656)
color(red) s(P43,P16) abstand(P43,P16,A1) print(abs(P43,P16):,8.32,16.356) print(A1,9.62,16.356)
\geooff
\geoprint()
Eine Frage war, ob #528-1 beweglich ist. Der Teilgraph ab P6 bis P26 ist beweglich. Diese Beweglichkeit wird gebraucht, um P15-P27 auf 1 einzustellen. Damit wird der gesamte Graph starr, ebenso der nächste #528-2 (ist als Kommentar mit im Quelltext enthalten).
\geo
ebene(350.02,321.79)
x(7.52,14.52)
y(10,16.44)
form(.)
#//Eingabe war:
#
#Ob No.528-1 beweglich ist.
#
#
#
#
#//No.528-1: 4/4 fast mit 106
#//blauerWinkel=22.877376949011282;
#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); L(15,14,13); Q(16,12,14,ab(4,5,[1,3]),D); N(20,15,19); Q(21,17,20,ab(7,1,[8,12]),D); N(27,25,20); A(27,15); R(27,15);
#
#//No.528-1:
#A(5,26,ab(5,26,[1,27],"gespiegelt")); N(53,52,27); N(54,6,32);
#//No.528-2:
#//A(5,26,ab(26,5,[1,27])); N(53,32,27); N(54,6,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.123993286112707,10.992283056894035,P7)
p(9.20265430804124,10.603522864119334,P8)
p(9.326647594153947,11.59580592101337,P9)
p(8.405308616082479,11.20704572823867,P10)
p(8.529301902195186,12.199328785132705,P11)
p(7.6079629241237186,11.810568592358004,P12)
p(10.033353954442775,11.988166841054833,P13)
p(9.371785156908953,12.738051316243945,P14)
p(10.351988561093197,12.936044463664803,P15)
p(8.450446178837483,12.349291123469246,P16)
p(7.517351383770705,13.808514925159479,P17)
p(7.562657153947212,12.80954175875874,P18)
p(8.405140408660976,13.348264289869984,P19)
p(9.357887070843288,13.044498265271343,P20)
p(8.470098045953018,13.504748900560836,P21)
p(8.256793808970894,14.48173472568087,P22)
p(9.209540471153206,14.177968701082227,P23)
p(8.996236234171082,15.15495452620226,P24)
p(9.948982896353394,14.85118850160362,P25)
p(9.73567865937127,15.828174326723655,P26)
p(9.948861563296488,13.851188508964473,P27)
p(13.475413052762448,11.350243060985019,P28)
p(12.737706526381224,10.67512153049251,P29)
p(12.521887393523492,11.65155488812248,P30)
p(11.784180867142268,10.97643335762997,P31)
p(11.568361734284535,11.95286671525994,P32)
p(12.714030740317561,11.998546210982054,P33)
p(13.65616889379091,12.333771060552948,P34)
p(12.894786581346024,12.982074210549984,P35)
p(13.836924734819373,13.317299060120877,P36)
p(13.075542422374486,13.965602210117911,P37)
p(14.017680575847834,14.300827059688807,P38)
p(12.108553382281997,12.794408742394527,P39)
p(12.090333847290626,13.794242752890618,P40)
p(11.233561962129016,13.27854716749491,P41)
p(13.032472000763974,14.129467602461517,P42)
p(12.735668714488883,15.835898910559298,P43)
p(13.376674645168361,15.06836298512405,P44)
p(12.3914660700845,14.89700352789676,P45)
p(11.893697622843339,14.02969356431331,P46)
p(12.237900267247724,14.968588946975846,P47)
p(11.735672029449677,15.833324049280748,P48)
p(11.23790358220852,14.9660140856973,P49)
p(10.73567534441047,15.830749188002201,P50)
p(10.237906897169303,14.963439224418746,P51)
p(10.913117930880297,14.225814618026755,P52)
p(10.740926121868124,13.240751177983872,P53)
p(10.939279692112331,12.730205627328832,P54)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P29,P5) s(P31,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(P18,P12) s(P16,P12)
s(P7,P13) s(P6,P13)
s(P11,P14) s(P13,P14)
s(P14,P15) s(P13,P15)
s(P18,P16) s(P19,P16) s(P14,P16)
s(P17,P18)
s(P17,P19) s(P18,P19)
s(P15,P20) s(P19,P20)
s(P17,P21) s(P20,P21)
s(P17,P22) s(P21,P22)
s(P21,P23) s(P22,P23)
s(P22,P24) s(P23,P24)
s(P23,P25) s(P24,P25)
s(P24,P26) s(P25,P26) s(P50,P26) s(P51,P26)
s(P25,P27) s(P20,P27) s(P15,P27)
s(P28,P29)
s(P28,P30) s(P29,P30)
s(P29,P31) s(P30,P31)
s(P30,P32) s(P31,P32)
s(P28,P33)
s(P28,P34) s(P33,P34)
s(P33,P35) s(P34,P35)
s(P34,P36) s(P35,P36)
s(P35,P37) s(P36,P37)
s(P36,P38) s(P37,P38) s(P42,P38) s(P44,P38)
s(P32,P39) s(P33,P39)
s(P37,P40) s(P39,P40)
s(P39,P41) s(P40,P41)
s(P40,P42) s(P44,P42) s(P45,P42)
s(P43,P44)
s(P43,P45) s(P44,P45)
s(P41,P46) s(P45,P46)
s(P43,P47) s(P46,P47)
s(P43,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P48,P50) s(P49,P50)
s(P49,P51) s(P50,P51)
s(P41,P52) s(P46,P52) s(P51,P52)
s(P52,P53) s(P27,P53)
s(P6,P54) s(P32,P54)
pen(2)
color(blue) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P27,P15) abstand(P27,P15,A0) print(abs(P27,P15):,7.52,16.436) print(A0,8.82,16.436)
\geooff
\geoprint()
Günstiger sieht das beim #528-3 aus. Der Graph ist anfangs von P6 bis P27 zweifach beweglich, dann wird um 180° gedreht der obere Teil als Kopie vom unteren Teil ergänzt. Zum Justieren der Verbindungskante P29-P50 wird ein Winkel verbraucht. P22-P56 stimmt dann automatisch wegen Symmetrie. Es bleibt ein beweglicher Winkel übrig. Ich habe ihn zum Justieren der Strecke P23-P53 verwendet. Um die beiden Punkte P53 und P24 (Abstand P14-P53 gleich 1) in Übereinstimmung zu bringen, wäre aber noch ein beweglicher Winkel notwendig. Es bleibt also eine Näherungslösung.
\geo
ebene(347.39,410.04)
x(7.99,14.94)
y(10,18.2)
form(.)
#//Eingabe war:
#
#No.528-3: 4/4 fast 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); M(15,5,4,gruenerWinkel); L(16,15,5); L(17,15,16); L(18,17,16); L(19,17,18); L(20,19,18); N(21,6,15); N(22,21,19); N(23,13,21); N(24,14,23); N(25,23,22); Q(26,12,14,ab(4,5,[1,3]),D); A(20,27,ab(27,20,[1,29])); A(29,50); R(29,50); R(23,53); R(14,53); A(22,56); R(22,56); R(53,24); R(52,25);
#
#
#//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.309393382298357,10.950934138092634,P7)
p(9.331163570235097,10.743409597879486,P8)
p(9.640556952533455,11.69434373597212,P9)
p(8.662327140470195,11.48681919575897,P10)
p(8.971720522768551,12.437753333851607,P11)
p(7.9934907107052915,12.230228793638457,P12)
p(10.01537530857813,11.90673399806639,P13)
p(9.861176667762823,12.894773865263414,P14)
p(11.849895608498413,10.988670153110702,P15)
p(12.781161272806525,10.62432929281533,P16)
p(12.631056881304938,11.612999445926032,P17)
p(13.56232254561305,11.248658585630661,P18)
p(13.41221815411146,12.237328738741363,P19)
p(14.343483818419575,11.872987878445992,P20)
p(11.968354624147457,11.9816290956715,P21)
p(12.57169869136063,12.779110090152663,P22)
p(10.98372993272559,12.156312286169014,P23)
p(10.82953129191028,13.144352153366036,P24,nolabel)
print(\P24,10.5,13)
p(11.587073999938763,12.953793280650176,P25,nolabel)
print(\P25,11.35,12.9)
p(8.882946855699563,12.687249325050264,P26)
p(8.091364075192185,14.227832559284689,P27)
p(8.042427392948738,13.229030676461573,P28)
p(8.93188353794301,13.68605120787338,P29)
p(12.434847893611757,16.10082043773068,P30)
p(11.434847893611758,16.100820437730682,P31)
p(11.934847893611758,15.234795033946243,P32)
p(10.934847893611757,15.234795033946241,P33)
p(10.43484789361176,16.100820437730682,P34)
p(11.43484789361176,14.368769630161802,P35)
p(12.125454511313402,15.149886299638045,P36)
p(13.103684323376662,15.357410839851195,P37)
p(12.794290941078302,14.40647670175856,P38)
p(13.772520753141563,14.61400124197171,P39)
p(13.463127370843207,13.663067103879076,P40)
p(14.441357182906467,13.870591644092226,P41)
p(12.419472585033628,14.194086439664293,P42)
p(12.573671225848937,13.206046572467269,P43)
p(10.584952285113344,15.112150284619977,P44)
p(9.653686620805233,15.476491144915347,P45)
p(9.803791012306824,14.487820991804657,P46)
p(8.87252534799871,14.852161852100025,P47)
p(9.022629739500406,13.863491698989609,P48)
p(10.466493269464301,14.119191342059182,P49)
p(9.863149202251128,13.321710347578023,P50)
p(11.451117960886167,13.944508151561667,P51)
p(11.605316601701473,12.956468284364632,P52)
p(10.847773893672993,13.147027157080505,P53)
p(13.551901037912195,13.413571112680417,P54)
p(14.39242050066302,12.871789761269108,P55)
p(13.502964355668748,12.4147692298573,P56)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5)
s(P3,P6) s(P4,P6)
s(P1,P7)
s(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(P28,P12) s(P26,P12)
s(P7,P13) s(P6,P13)
s(P11,P14) s(P13,P14)
s(P5,P15)
s(P15,P16) s(P5,P16)
s(P15,P17) s(P16,P17)
s(P17,P18) s(P16,P18)
s(P17,P19) s(P18,P19)
s(P19,P20) s(P18,P20)
s(P6,P21) s(P15,P21)
s(P21,P22) s(P19,P22) s(P56,P22)
s(P13,P23) s(P21,P23)
s(P14,P24) s(P23,P24)
s(P23,P25) s(P22,P25)
s(P28,P26) s(P29,P26) s(P14,P26)
s(P47,P27) s(P48,P27)
s(P27,P28)
s(P27,P29) s(P28,P29) s(P50,P29)
s(P30,P31)
s(P30,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P31,P34) s(P33,P34)
s(P32,P35) s(P33,P35)
s(P30,P36)
s(P30,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(P54,P41) s(P55,P41)
s(P35,P42) s(P36,P42)
s(P40,P43) s(P42,P43)
s(P34,P44)
s(P34,P45) s(P44,P45)
s(P44,P46) s(P45,P46)
s(P45,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P35,P49) s(P44,P49)
s(P48,P50) s(P49,P50)
s(P42,P51) s(P49,P51)
s(P43,P52) s(P51,P52)
s(P50,P53) s(P51,P53)
s(P43,P54) s(P55,P54) s(P56,P54)
s(P20,P55)
s(P20,P56) s(P55,P56)
pen(2)
color(blue) m(P3,P1,MA10) m(P1,P7,MB10) f(P1,MA10,MB10)
color(green) m(P4,P5,MA11) m(P5,P15,MB11) f(P5,MA11,MB11)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P29,P50) abstand(P29,P50,A0) print(abs(P29,P50):,7.99,18.201) print(A0,9.29,18.201)
color(red) s(P23,P53) abstand(P23,P53,A1) print(abs(P23,P53):,7.99,17.901) print(A1,9.29,17.901)
color(red) s(P14,P53) abstand(P14,P53,A2) print(abs(P14,P53):,7.99,17.601) print(A2,9.29,17.601)
color(red) s(P22,P56) abstand(P22,P56,A3) print(abs(P22,P56):,7.99,17.301) print(A3,9.29,17.301)
color(red) s(P53,P24) abstand(P53,P24,A4) print(abs(P53,P24):,7.99,17.001) print(A4,9.29,17.001)
color(red) s(P52,P25) abstand(P52,P25,A5) print(abs(P52,P25):,7.99,16.701) print(A5,9.29,16.701)
\geooff
\geoprint()
#528-4 muss ich später nochmal versuchen. Den will ich aus #528-3 durch Umlegen der Kanten bei P42 erzeugen mit Button "neue Eingabe", doch dabei treten mehr als 3 Winkel auf zum Justieren.
#531-1 ist mit der Kante P1-P11 starr. Doch besteht gar keine Notwendigkeit, diese Kante einzusetzen. Ohne der kann man die Beweglichkeit ausnutzen, um beide Seiten mit nur einem Doppelkite abzuschließen. In #531-2 müssten die roten und blauen Kante an der Oberseite eingezeichnet werden.
\geo
ebene(524.24,356.3)
x(7.36,17.84)
y(9.94,17.07)
form(.)
#//Eingabe war:
#
#No.531-1 4/4 mit 80 Knoten und 160 Kanten
#
#
#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,3,4,blauerWinkel); N(9,8,6); L(10,8,9); L(11,8,10); L(12,10,9);
#Kites(4*D,2*D); Q(13,12,7,ab(704,700,[700,705]),ab(700,704,[700,705])); A(11,17,ab(17,11,[1,21])); Q(41,1,40,ab(701,721,[701,720]),D); Kites(); A(40,42); R(40,42); A(21,22,ab(40,1,[40,60])); R(1,11); R(14,32);
#
#
#//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(11.29285097943834,11.475440963483782,P8)
p(12.228468971276795,11.828455089756623,P9)
p(11.45494077411052,12.462216975790087,P10)
p(10.519322782272065,12.109202849517246,P11)
p(12.390558765948974,12.815231102062928,P12)
p(14.051581570308251,11.70122785099117,P13)
p(13.221070168128612,12.258229476527049,P14)
p(13.288192024702091,13.255974261715188,P15)
p(14.11870342688173,12.69897263617931,P16)
p(14.185825283455209,13.69671742136745,P17)
p(13.525790785154125,10.850613925495585,P18)
p(14.525339446023168,10.820572711224138,P19)
p(13.999548660869042,9.969958785728554,P20)
p(14.999097321738086,9.939917571457107,P21)
p(14.705148065727276,15.805920270884695,P22)
p(13.705148065727274,15.805920270884696,P23)
p(14.205148065727276,14.939894867100257,P24)
p(13.205148065727276,14.939894867100257,P25)
p(12.705148065727276,15.805920270884696,P26)
p(12.205148065727276,14.939894867100257,P27)
p(11.705148065727274,15.805920270884696,P28)
p(13.412297086288934,14.330479307400914,P29)
p(12.476679094450478,13.977465181128075,P30)
p(13.250207291616757,13.343703295094603,P31)
p(12.3145892997783,12.99068916882177,P32)
p(10.653566495419023,14.104692419893528,P33)
p(11.484077897598661,13.547690794357647,P34)
p(11.41695604102518,12.54994600916951,P35)
p(10.586444638845544,13.106947634705387,P36)
p(11.179357280573148,14.955306345389111,P37)
p(10.179808619704104,14.985347559660557,P38)
p(10.705599404858232,15.835961485156142,P39)
p(9.706050743989188,15.866002699427588,P40)
p(8.907244735262626,15.264414002374242,P41)
p(9.827638833903686,14.87342205464806,P42)
p(9.028832825177126,14.271833357594712,P43)
p(8.108438726536068,14.662825305320894,P44)
p(9.949226923818184,13.880841409868534,P45)
p(9.340552073646782,13.087421642803983,P46)
p(10.332011172875104,12.9570036434431,P47)
p(8.724495400091406,13.875123474062434,P48)
p(8.350353940391729,12.947751828963344,P49)
p(7.73429726683639,13.735453660221804,P50)
p(7.36015580713671,12.808082015122713,P51)
p(7.825132582427604,11.92275913704936,P52)
p(8.359356297745231,12.76810227565772,P53)
p(8.82433307303613,11.882779397584365,P54)
p(8.2901093577185,11.03743625897601,P55)
p(9.358556788353757,12.728122536192725,P56)
p(10.043500833939566,11.999526863397076,P57)
p(9.166805095829032,11.518481561186544,P58)
p(10.021750416969777,10.999763431698536,P59)
p(9.14505467885925,10.518718129488006,P60)
p(15.797903330464646,10.541506268510455,P61)
p(14.877509231823586,10.932498216236635,P62)
p(15.676315240550146,11.534086913289983,P63)
p(16.596709339191204,11.143094965563801,P64)
p(14.755921141909088,11.925078861016162,P65)
p(15.364595992080488,12.718498628080713,P66)
p(14.373136892852173,12.848916627441596,P67)
p(15.980652665635866,11.93079679682226,P68)
p(16.354794125335545,12.85816844192135,P69)
p(16.970850798890886,12.07046661066289,P70)
p(17.344992258590565,12.997838255761984,P71)
p(16.880015483299672,13.883161133835335,P72)
p(16.345791767982043,13.037817995226977,P73)
p(15.880814992691143,13.92314087330033,P74)
p(16.415038708008776,14.768484011908686,P75)
p(15.346591277373513,13.077797734691973,P76)
p(14.661647231787697,13.806393407487619,P77)
p(15.538342969898244,14.287438709698153,P78)
p(14.683397648757463,14.806156839186157,P79)
p(15.560093386868022,15.287202141396687,P80)
nolabel()
s(P59,P1) s(P60,P1)
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(P18,P7) s(P20,P7)
s(P3,P8)
s(P8,P9) s(P6,P9)
s(P8,P10) s(P9,P10)
s(P8,P11) s(P10,P11) s(P35,P11) s(P36,P11)
s(P10,P12) s(P9,P12) s(P14,P12)
s(P14,P13) s(P16,P13) s(P18,P13)
s(P12,P15) s(P14,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P16,P17) s(P29,P17) s(P31,P17)
s(P13,P19) s(P18,P19)
s(P18,P20) s(P19,P20)
s(P19,P21) s(P20,P21) s(P62,P21)
s(P79,P22) s(P80,P22)
s(P22,P23)
s(P22,P24) s(P23,P24)
s(P23,P25) s(P24,P25)
s(P23,P26) s(P25,P26)
s(P25,P27) s(P26,P27)
s(P26,P28) s(P27,P28) s(P37,P28) s(P39,P28)
s(P24,P29)
s(P27,P30) s(P29,P30)
s(P29,P31) s(P30,P31)
s(P30,P32) s(P31,P32) s(P34,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P32,P35) s(P34,P35)
s(P34,P36) s(P35,P36)
s(P33,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P38,P40) s(P39,P40) s(P42,P40)
s(P40,P41)
s(P41,P42)
s(P41,P43) s(P42,P43)
s(P41,P44) s(P43,P44) s(P48,P44) s(P50,P44)
s(P42,P45) s(P43,P45) s(P46,P45)
s(P48,P46)
s(P45,P47) s(P46,P47) s(P56,P47) s(P57,P47)
s(P46,P49) s(P48,P49)
s(P48,P50) s(P49,P50)
s(P49,P51) s(P50,P51) s(P52,P51)
s(P51,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P52,P55) s(P54,P55) s(P58,P55) s(P60,P55)
s(P53,P56) s(P54,P56) s(P57,P56)
s(P58,P57)
s(P57,P59) s(P58,P59)
s(P58,P60) s(P59,P60)
s(P21,P61)
s(P61,P62)
s(P61,P63) s(P62,P63)
s(P61,P64) s(P63,P64) s(P68,P64) s(P70,P64)
s(P62,P65) s(P63,P65) s(P66,P65)
s(P68,P66)
s(P65,P67) s(P66,P67) s(P76,P67) s(P77,P67)
s(P66,P69) s(P68,P69)
s(P68,P70) s(P69,P70)
s(P69,P71) s(P70,P71) s(P72,P71)
s(P71,P73) s(P72,P73)
s(P72,P74) s(P73,P74)
s(P72,P75) s(P74,P75) s(P78,P75) s(P80,P75)
s(P73,P76) s(P74,P76) s(P77,P76)
s(P78,P77)
s(P77,P79) s(P78,P79)
s(P78,P80) s(P79,P80)
pen(2)
color(blue) m(P4,P3,MA10) m(P3,P8,MB10) f(P3,MA10,MB10)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P40,P42) abstand(P40,P42,A0) print(abs(P40,P42):,7.36,17.066) print(A0,8.66,17.066)
color(red) s(P1,P11) abstand(P1,P11,A1) print(abs(P1,P11):,7.36,16.766) print(A1,8.66,16.766)
color(red) s(P14,P32) abstand(P14,P32,A2) print(abs(P14,P32):,7.36,16.466) print(A2,8.66,16.466)
\geooff
\geoprint()
#538-2 ist starr, die beiden beweglichen Winkel werden benötigt, um P14-P15 und P14-P42 zu justieren.
\geo
ebene(394.13,278.3)
x(8.59,16.47)
y(10,15.57)
form(.)
#//Eingabe war:
#
#No.538-2
#
#
#
#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,2); L(12,10,8); N(13,12,3); N(14,13,6); L(15,12,13); A(14,15); R(14,15); Q(16,11,15,ab(12,1,1,[8,12]),D); M(22,16,15,gruenerWinkel); Q(23,22,21,D,ab(6,7,[1,7])); N(29,26,22); A(7,24,ab(24,7,[1,29])); A(14,42); R(14,42);
#
#
#//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.259615975427632,10.965711937019917,P8)
p(9.29347691751669,10.707689998458564,P9)
p(9.553092892944324,11.67340193547848,P10)
p(8.586953835033382,11.41537999691713,P11)
p(10.519231950855266,11.931423874039833,P12)
p(11.355728129592432,11.383451116543515,P13)
p(12.248534547534636,11.833891678750351,P14)
p(11.41203836879747,12.38186443624667,P15)
p(10.430412907995048,12.191046578842194,P16)
p(8.586953835033382,11.41537999691713,P17)
p(9.508683371514214,11.803213287879663,P18)
p(8.711945120866924,12.407537836409253,P19)
p(9.633674657347756,12.795371127371785,P20)
p(8.836936406700465,13.399695675901375,P21)
p(10.591648156015788,13.17796258073683,P22)
p(9.655763642541649,12.82565564433155,P23)
p(11.556577010848311,14.666011191193807,P24)
p(10.650030142799029,14.243906019429662,P25)
p(11.468857378640212,13.669865987859838,P26)
p(10.56231051059093,13.247760816095694,P27)
p(9.743483274749746,13.82180084766552,P28)
p(11.453022204375934,12.66999137209243,P29)
p(14.556577010848311,14.666011191193807,P30)
p(13.556577010848311,14.666011191193807,P31)
p(14.05657701084831,13.79998578740937,P32)
p(13.056577010848311,13.79998578740937,P33)
p(12.556577010848311,14.666011191193807,P34)
p(12.056577010848319,13.799985787409371,P35)
p(14.296961035420676,13.700299254173892,P36)
p(15.26310009333162,13.958321192735243,P37)
p(15.003484117903987,12.992609255715326,P38)
p(15.96962317581493,13.250631194276677,P39)
p(14.037345059993047,12.734587317153974,P40)
p(13.200848881255881,13.282560074650293,P41)
p(12.30804246331368,12.832119512443457,P42)
p(13.144538642050842,12.28414675494714,P43)
p(14.126164102853263,12.474964612351613,P44)
p(15.96962317581493,13.250631194276677,P45)
p(15.047893639334095,12.862797903314144,P46)
p(15.844631889981388,12.258473354784554,P47)
p(14.922902353500556,11.870640063822021,P48)
p(15.719640604147846,11.266315515292431,P49)
p(13.964928854832523,11.488048610456977,P50)
p(14.900813368306663,11.840355546862257,P51)
p(13.906546868049283,10.422105171764144,P52)
p(13.087719632208099,10.99614520333397,P53)
p(13.99426650025738,11.418250375098113,P54)
p(14.813093736098566,10.844210343528287,P55)
p(13.103554806472378,11.996019819101377,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(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(P15,P14) s(P42,P14)
s(P12,P15) s(P13,P15)
s(P18,P16) s(P20,P16) s(P15,P16)
s(P17,P18)
s(P17,P19) s(P18,P19)
s(P18,P20) s(P19,P20)
s(P19,P21) s(P20,P21) s(P28,P21) s(P23,P21)
s(P16,P22)
s(P22,P23) s(P27,P23) s(P28,P23)
s(P34,P24) s(P35,P24)
s(P24,P25)
s(P24,P26) s(P25,P26)
s(P25,P27) s(P26,P27)
s(P25,P28) s(P27,P28)
s(P26,P29) s(P22,P29)
s(P30,P31)
s(P30,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P31,P34) s(P33,P34)
s(P33,P35) s(P34,P35)
s(P30,P36)
s(P30,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P37,P39) s(P38,P39)
s(P36,P40) s(P38,P40)
s(P32,P41) s(P40,P41)
s(P35,P42) s(P41,P42) s(P43,P42)
s(P40,P43) s(P41,P43)
s(P43,P44) s(P46,P44) s(P48,P44)
s(P45,P46)
s(P45,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P47,P49) s(P48,P49) s(P51,P49) s(P55,P49)
s(P44,P50)
s(P50,P51) s(P54,P51) s(P55,P51)
s(P7,P52)
s(P7,P53) s(P52,P53)
s(P52,P54) s(P53,P54)
s(P52,P55) s(P54,P55)
s(P50,P56) s(P53,P56)
pen(2)
color(blue) m(P3,P1,MA10) m(P1,P8,MB10) f(P1,MA10,MB10)
color(green) m(P15,P16,MA11) m(P16,P22,MB11) f(P16,MA11,MB11)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P14,P15) abstand(P14,P15,A0) print(abs(P14,P15):,8.59,15.566) print(A0,9.89,15.566)
color(red) s(P14,P42) abstand(P14,P42,A1) print(abs(P14,P42):,8.59,15.266) print(A1,9.89,15.266)
\geooff
\geoprint()
Dann habe ich noch #526, #532, #537, #538-1, #538-3, #539-2, #548, #550-1, #550-2 eingeben, aber keine besondere Abweichung festgestellt.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.552, vom Themenstarter, eingetragen 2016-10-22
|
Wie immer Danke an Stefan für die Eingaben und Prüfungen! ...soviel Zeit muss sein. :-)
@ haribo: Könnte man in dem #550-1 nicht den ganz rechten Kite durch ein großes Dreieck ersetzen? Das wären dann nur 197 Kanten. Aber hast du bestimmt schon probiert.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.553, eingetragen 2016-10-22
|
doppeldreieck führt zu überschneidungen oben, aber eine variante mit 205 hab ich reingezeichnet in beitrag #550
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.554, eingetragen 2016-10-23
|
noch son spiegelbarer winkel mit 13 hölzern, den ich derzeit nicht exakt konstruiert bekomme
360/16=22,5° ---> 4/4er 13 x 16 = 208
http://www.matheplanet.com/matheplanet/nuke/html/uploads/a/35059_st-360-16.PNG
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.555, eingetragen 2016-10-23
|
Geht ruckzuck:
\geo
ebene(511.02,561.02)
x(7.06,17.28)
y(10,21.22)
form(.)
#//Eingabe war:
#
#No.554
#
#
#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); M(6,3,4,blauerWinkel); N(7,6,4); A(1,6,ab(1,6,[1,7],"gespiegelt")); N(13,12,7); L(14,12,13); L(15,13,7);
#A(11,14,ab(11,14,[1,15],"gespiegelt"));
#A(20,28,ab(20,28,[1,28],"gespiegelt"));
#A(33,43,ab(33,43,[1,4],[6,14],[16,54],"gespiegelt"));
#A(5,56); R(5,56); A(5,58); R(5,58); A(15,60); R(15,60); A(15,66); R(15,66);
#
#
#//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(10.726716349323535,11.83998623305295,P6)
p(11.726716349323535,11.83998623305295,P7)
p(9.269883354224278,10.683322532601705,P8)
p(10.226716349323537,10.973960829268512,P9)
p(9.496599703547814,11.657283361870217,P10)
p(8.539766708448557,11.36664506520341,P11)
p(9.996599703547815,12.523308765654656,P12)
p(10.996599703547815,12.523308765654658,P13)
p(10.496599703547814,13.389334169439095,P14)
p(11.953432698647074,12.813947062321464,P15)
nolabel()
p(7.125553146075459,12.780858627576505,P16)
p(7.092464711330501,13.780311055401926,P17)
p(7.974560121073829,13.309240266549812,P18)
p(7.941471686328869,14.308692694375235,P19)
p(7.059376276585543,14.779763483227347,P20)
p(8.940485947362898,13.568059311652334,P21)
p(8.907397512617939,14.567511739477755,P22)
p(7.832659927262008,12.073751846389957,P23)
p(8.091478972364527,13.039677672679026,P24)
p(8.798585753551077,12.33257089149248,P25)
p(9.647592728549444,12.86095253046579,P26)
p(9.614504293804487,13.86040495829121,P27)
p(9.873323338907007,14.826330784580279,P28)
p(9.840234904162033,19.654210337151895,P29)
p(10.839687331987454,19.687298771896856,P30)
p(10.368616543135344,18.805203362153527,P31)
p(11.368068970960765,18.838291796898496,P32)
p(11.839139759812877,19.720387206641817,P33)
p(10.627435588237866,17.83927753586446,P34)
p(11.626888016063289,17.872365970609422,P35)
p(9.133128122975489,18.947103555965345,P36)
p(10.099053949264558,18.68828451086283,P37)
p(9.391947168078014,17.981177729676276,P38)
p(8.426021341788942,18.239996774778795,P39)
p(9.920328807051323,17.13217075467791,P40)
p(10.919781234876744,17.16525918942287,P41)
p(10.448710446024633,16.283163779679548,P42)
p(11.885707061165814,16.906440144320356,P43)
p(7.059376276585537,16.77976348322735,P44)
p(7.059376276585539,15.779763483227347,P45)
p(7.925401680369976,16.27976348322735,P46)
p(7.92540168036998,15.279763483227349,P47)
p(8.899362509638491,16.053047133903817,P48)
p(8.899362509638493,15.053047133903815,P49)
p(7.742698809187241,17.509880129003072,P50)
p(8.033337105854049,16.553047133903814,P51)
p(8.716659638455754,17.283163779679537,P52)
p(9.582685042240191,16.783163779679537,P53)
p(9.582685042240195,15.78316377967954,P54)
label()
p(13.99890485565086,10.06617686948992,P55)
p(12.99945242782543,10.033088434744958,P56)
p(13.470523216677558,10.915183844488299,P57)
p(12.471070788852115,10.882095409743332,P58)
p(13.21170417157503,11.881109670777361,P59)
p(12.212251743749594,11.848021236032393,P60)
p(14.70601163683741,10.773283650676483,P61)
p(13.740085810548344,11.032102695778994,P62)
p(14.447192591734886,11.739209476965552,P63)
p(15.413118418023956,11.480390431863034,P64)
p(13.91881095276157,12.588216451963909,P65)
p(12.919358524936142,12.555128017218946,P66)
nolabel()
p(13.390429313788257,13.43722342696228,P67)
p(16.779763483227363,12.940623723414483,P68)
p(16.779763483227352,13.940623723414488,P69)
p(15.913738079442918,13.440623723414477,P70)
p(15.913738079442915,14.44062372341448,P71)
p(16.77976348322735,14.940623723414483,P72)
p(14.939777250174402,13.667340072738012,P73)
p(14.939777250174398,14.66734007273801,P74)
p(16.096440950625656,12.210507077638754,P75)
p(15.805802653958846,13.167340072738014,P76)
p(15.122480121357142,12.437223426962294,P77)
p(14.256454717572703,12.937223426962287,P78)
p(14.256454717572696,13.937223426962285,P79)
p(13.965816420905885,14.894056422061546,P80)
p(13.839139759812877,19.720387206641824,P81)
p(12.839139759812877,19.720387206641817,P82)
p(13.33913975981288,18.854361802857383,P83)
p(12.339139759812879,18.854361802857383,P84)
p(13.112423410489347,17.88040097358887,P85)
p(12.112423410489345,17.880400973588866,P86)
p(14.5692564055886,19.03706467404012,P87)
p(13.612423410489345,18.74642637737331,P88)
p(14.342540056265067,18.063103844771604,P89)
p(15.299373051364325,18.353742141438417,P90)
p(13.84254005626507,17.19707844098717,P91)
p(12.84254005626507,17.197078440987163,P92)
p(13.342540056265076,16.33105303720273,P93)
p(16.713586613737426,16.93952857906533,P94)
p(16.746675048482388,15.94007615123991,P95)
p(15.864579638739063,16.411146940092014,P96)
p(15.89766807348402,15.411694512266592,P97)
p(14.89865381244999,16.15232789498949,P98)
p(14.931742247194954,15.152875467164073,P99)
p(16.006479832550873,17.64663536025187,P100)
p(15.74766078744836,16.6807095339628,P101)
p(15.040554006261809,17.387816315149347,P102)
p(14.191547031263443,16.859434676176036,P103)
p(14.224635466008404,15.859982248350615,P104)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P56,P5) s(P58,P5)
s(P3,P6) s(P9,P6)
s(P6,P7) s(P4,P7)
s(P1,P8)
s(P1,P9) s(P8,P9)
s(P8,P10) s(P9,P10)
s(P8,P11) s(P10,P11) s(P23,P11) s(P25,P11)
s(P10,P12) s(P6,P12)
s(P12,P13) s(P7,P13)
s(P12,P14) s(P13,P14) s(P26,P14) s(P27,P14)
s(P13,P15) s(P7,P15) s(P60,P15) s(P66,P15)
s(P16,P17)
s(P16,P18) s(P17,P18)
s(P17,P19) s(P18,P19)
s(P17,P20) s(P19,P20) s(P45,P20) s(P47,P20)
s(P18,P21) s(P24,P21)
s(P19,P22) s(P21,P22)
s(P16,P23)
s(P16,P24) s(P23,P24)
s(P23,P25) s(P24,P25)
s(P21,P26) s(P25,P26)
s(P22,P27) s(P26,P27)
s(P22,P28) s(P27,P28) s(P49,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(P82,P33) s(P84,P33)
s(P31,P34) s(P37,P34)
s(P32,P35) s(P34,P35)
s(P29,P36)
s(P29,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P36,P39) s(P38,P39) s(P50,P39) s(P52,P39)
s(P34,P40) s(P38,P40)
s(P35,P41) s(P40,P41)
s(P40,P42) s(P41,P42) s(P53,P42) s(P54,P42)
s(P35,P43) s(P41,P43) s(P86,P43) s(P92,P43)
s(P44,P45)
s(P44,P46) s(P45,P46)
s(P45,P47) s(P46,P47)
s(P46,P48) s(P51,P48)
s(P47,P49) s(P48,P49)
s(P44,P50)
s(P44,P51) s(P50,P51)
s(P50,P52) s(P51,P52)
s(P48,P53) s(P52,P53)
s(P49,P54) s(P53,P54)
s(P55,P56)
s(P55,P57) s(P56,P57)
s(P56,P58) s(P57,P58)
s(P57,P59) s(P62,P59)
s(P58,P60) s(P59,P60)
s(P55,P61)
s(P55,P62) s(P61,P62)
s(P61,P63) s(P62,P63)
s(P61,P64) s(P63,P64) s(P75,P64) s(P77,P64)
s(P59,P65) s(P63,P65)
s(P60,P66) s(P65,P66)
s(P65,P67) s(P66,P67) s(P78,P67) s(P79,P67)
s(P68,P69)
s(P68,P70) s(P69,P70)
s(P69,P71) s(P70,P71)
s(P69,P72) s(P71,P72) s(P95,P72) s(P97,P72)
s(P70,P73) s(P76,P73)
s(P71,P74) s(P73,P74)
s(P68,P75)
s(P68,P76) s(P75,P76)
s(P75,P77) s(P76,P77)
s(P73,P78) s(P77,P78)
s(P74,P79) s(P78,P79)
s(P74,P80) s(P79,P80) s(P99,P80) s(P104,P80)
s(P81,P82)
s(P81,P83) s(P82,P83)
s(P82,P84) s(P83,P84)
s(P83,P85) s(P88,P85)
s(P84,P86) s(P85,P86)
s(P81,P87)
s(P81,P88) s(P87,P88)
s(P87,P89) s(P88,P89)
s(P87,P90) s(P89,P90) s(P100,P90) s(P102,P90)
s(P85,P91) s(P89,P91)
s(P86,P92) s(P91,P92)
s(P91,P93) s(P92,P93) s(P103,P93) s(P104,P93)
s(P94,P95)
s(P94,P96) s(P95,P96)
s(P95,P97) s(P96,P97)
s(P96,P98) s(P101,P98)
s(P97,P99) s(P98,P99)
s(P94,P100)
s(P94,P101) s(P100,P101)
s(P100,P102) s(P101,P102)
s(P98,P103) s(P102,P103)
s(P99,P104) s(P103,P104)
pen(2)
color(blue) m(P4,P3,MA10) m(P3,P6,MB10) f(P3,MA10,MB10)
color(maroon) pen(2)
color(gold) pen(2)
pen(2)
color(red) s(P5,P56) abstand(P5,P56,A0) print(abs(P5,P56):,7.06,21.22) print(A0,8.36,21.22)
color(red) s(P5,P58) abstand(P5,P58,A1) print(abs(P5,P58):,7.06,20.92) print(A1,8.36,20.92)
color(red) s(P15,P60) abstand(P15,P60,A2) print(abs(P15,P60):,7.06,20.62) print(A2,8.36,20.62)
color(red) s(P15,P66) abstand(P15,P66,A3) print(abs(P15,P66):,7.06,20.32) print(A3,8.36,20.32)
\geooff
\geoprint()
Mit dem blauen Winkel stelle ich Strecke P5-P56 auf Länge 1 ein, dann passen auch gleich P5-P58, P15-P60, P15-P66. Die Punkte P1,P2,P5,P56,P55 sowie P4,P7,P15 scheinen auf einer Geraden zu liegen. 104 Knoten, 208 Kanten.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.556, eingetragen 2016-10-23
|
moin, P1,P2,P5,P56,P55 liegen nicht auf einer geraden
P4,P7,P15 wohl schon, erstaunlicherweise
zum ruck-zuck, hast du jetzt die möglichkeiten teilgraphen zu spiegeln eingebaut?
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.557, eingetragen 2016-10-23
|
Die Punkte P55 und P56 sind entstanden, nachdem der Anfangs-Teilgraph P1 bis P15 mehrfach gespiegelt wurde, da kommen halt nicht exakt die richtigen Koordinaten raus. Doch mit geometrischer Überlegung sollte das zu beweisen gehen. Es würde ja schon der Nachweis reichen, das P4-P58 exakt 1 ist.
Ja, die Eingabe A(11,14,ab(11,14,[1,15],''gespiegelt'')) bedeutet, dass an P11,P14 der gespiegelte Teilgraph P1 bis P15 angesetzt wird, und zwar so, dass das gespiegelte P11 auf P11 zu liegen kommt und das gespiegelte P14 auf P14. So setzt sich das reihum fort, nur am Ende lasse ich zwei Punkte frei, um die zu justuierenden Kanten einzusetzen.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.558, eingetragen 2016-10-23
|
Deine Zeichnung ist correkt. Wenn die Punkte auf einer geraden liegen würden wäre der Winkel aus#554 nicht 22.5 sondern 22.3xx grad
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.559, eingetragen 2016-10-23
|
Ein geometrischer Beweis fällt mir auf die Schnelle auch nicht ein. Doch wenn Strecke P4-P58 wirklich exakt 1 ist, dann haben wir wieder das gleichschenklige Dreieck P4-P58-P15 mit Seitenlängen 1-2-2, womit das Verfahren aus Beitrag No.497 anwendbar wäre. Dafür muss ich nun doch alle Punkte einzeln eingeben (=neue Programmlücke), was etwas dauern wird.
EDIT: Dabei ist mir aber recht schnell aufgefallen, dass bei P58-P4=1 der kleine Winkel in P1 exakt 22,5° sein müsste. Da aber P1-P9 über P3-P6 parallel zu P4-P7 ist, wäre dann der Winkel P58-P4-P15 exakt 22.5°+60°. Das ist aber in einem gleichschenkligen Dreieck mit Seitenlängen 1-2-2 nicht der Fall. Also muss P4-P58 ungleich 1 sein und die Punkte P1-P2-P5 sowie P5-P56-P55 liegen auf zwei unterschiedlichen Geraden, hast recht.
|
Profil
|
|
Home / Seite ohne Frame
Wie unterstütze ich den Matheplaneten mit Geld?
