| |
| Autor |
 Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5 |
|
Slash
Aktiv 
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
 |  Beitrag No.320, vom Themenstarter, eingetragen 2016-06-05
|
Ach so, ja, wie ein seltenes Insekt (neue Art) für unser Sammelalbum. :-)
...wenn ich bei den Kernen nur nicht immer an Braunkohlebaggerschaufelräder denken müsste - was ja so ziemlich das Gegenteil dazu ist. :-D
|
 Profil
|
StefanVogel
Senior 
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
 | Beitrag No.321, eingetragen 2016-06-05
|
Ich habe, in #313 schon, an Baby oder Teddy gedacht.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.322, vom Themenstarter, eingetragen 2016-06-06
|
\quoteon(2016-06-05 22:47 - StefanVogel in Beitrag No. 321)
...oder Teddy.
\quoteoff
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_teddy.png
Stimmt. :-)
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.323, vom Themenstarter, eingetragen 2016-06-06
|
Kann man die alten Kerne so zusammenbringen?
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_neu_alte_Kerne.png
Was anderes: Wenn man die neuen Kerne so zusammenbringen kann, dass der Verbindungsarm waagerecht ist, dann hätten wir einen alternativen symmetrischen Graph. Denn die Kantenanzahl wäre dieselbe.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_neu_Kerne_verb.png
Kleinerer symmetrischer Graph mit 811 Kanten, wenn zwei 1er-Kanten hintereinander im Schaufelrad möglich sind. Rundrum ist er diesmal nicht geschlossen.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_neu_slash_5.6.16_all.png
Meine erste Assoziation war ein posierender Bodybuilder.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.324, eingetragen 2016-06-06
|
#323-3 geht bei etwa
Winkel P2-P1-P3=35.1125487012°
Winkel P3-P1-P6=35.76937057276301°
und der Bodybilder #323-4 bei etwa
Winkel P2-P1-P3=30.425°
Winkel P3-P1-P6=43.87463345183617°
und in #323-1 geht nur Kante 2 bei blauerWinkel=3.0242973763549648°
die #323-2 nicht probiert, aber vermutlich nicht, weil das 2 Abstände mit einem Winkel eingestellt werden müssen.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.325, vom Themenstarter, eingetragen 2016-06-06
|
\quoteon(2016-06-06 05:44 - StefanVogel in Beitrag No. 324)
und der Bodybuilder #323-4 bei etwa
Winkel P2-P1-P3=30.425°
Winkel P3-P1-P6=43.87463345183617°
\quoteoff
Ja super! Schade um den Teddy, aber der Bodybuilder (oder die Big Mama) hat mit Symmetrie gewonnen. Ist der Graph jetzt insgesamt starr oder ist immer noch etwas Spiel in den Rädern?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.326, vom Themenstarter, eingetragen 2016-06-07
|
Damit keine Langeweile aufkommt, Stefan. ;-)
Die roten Kanten sind 1, aber es gibt eine kleine Überschneidung der Ecken. Kriegst du das hin?
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_neu_7.6.16_g.png
Wenn man beim alten Kern auf zwei bzw. vier der inneren großen Dreiecke verzichtet, lassen sich dann die mittleren Arme zusammenführen? Der zweite ist aber nicht so wichtig wegen der Kantenanzahl.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_neu_7.6.16_b.png
Hier noch eine etwas exotische Zusammenführung. Auf zwei große Dreiecke verzichtet. Die mittleren Kanten müssten sich treffen.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_11_neu_7.6.16_d.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.327, vom Themenstarter, eingetragen 2016-06-08
|
Hier ein 4/10er Kern, der auf seine Flexibilität untersucht werden möchte. :-) Vielleicht müssen auch erst 1-2 Kanten entfernt werden.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_10_neu_Kern_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.328, vom Themenstarter, eingetragen 2016-06-08
|
Hier noch eine interessante Beobachtung: Die Graphen für n=9 und n=11 sind die einzigen unserer Graphen, die äußere Kanten besitzen, die "nicht" Teil eines gleichseitigen Dreiecks sind. Der 9er besitzt 3, der neue 11er besitzt 7 solcher Kanten.
Interessant ist auch die Anzahl an "sämtlichen" solcher Kanten. Der Harborth besitzt insgesamt 12, der 4/114 besitzt 24, der 7er besitzt wieder 12, der 9er besitzt 11, und der neue 11er besitzt 57 davon.
Dies könnte ein Minimalitätskriterium sein, ebenso wie die Starrheit.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.329, vom Themenstarter, eingetragen 2016-06-10
|
Hatten wir bzw. du eigentlich schon mal versucht diesen alten Graphen von 2013 zurechtzuziehen?
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_Winkler-Graph_alt.png
Gleichfarbige Bereiche sind starr, auch wenn hier die Winkel nicht ganz stimmen. Man müsste versuchen irgendwie das Dreieck in der Mitte unterzubringen, evtl. auch mit anderen Verbindungen als hier. Die Chancen stehen natürlich eher schlecht, wegen der Asymmetrie.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.330, eingetragen 2016-06-11
|
Drei starre Teilgraphen im Dreieck zusammensetzen ergibt wieder einen starren Graph. Zu allem Überfluss entsteht sich auch noch eine Überschneidung, wenn ich die von cryso bezeichneten Rauten gleichseitig mache.
\geo
ebene(500,500)
xy(0,8.4)
form(.)
#Eingabe war:
#//blauerWinkel=35.353942507252235
#//No.329 nochmal ein Graph von 2013
#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,7,6,360-14.952723287490487); L(9,8,7); L(10,8,9); L(11,10,9); L(12,8,10); N(13,6,12); L(14,13,12); L(15,13,14); A(3,15); N(16,1,15); L(17,1,16); L(18,17,16); L(19,17,18); Q(20,19,18,D,ab(3,16)); A(18,20); N(21,20,18); L(22,19,20); L(23,22,20); L(24,22,23); L(25,24,23); L(26,24,25); N(27,25,21); L(28,27,21); L(29,27,28); H(30,26,29,2); A(26,30); A(30,29); L(31,26,30); L(32,30,29); A(31,32); L(33,31,32); Q(34,33,11,3.85410196624968426349*D,3*D); A(33,34); A(34,11); H(35,11,34,3); N(36,11,35); L(37,36,35); A(11,35); L(38,37,35); L(39,37,38); A(34,39); A(34,38); Q(40,33,34,2*D,2*D); A(33,40); A(34,40); A(33,40); A(34,40); H(41,33,40,2); H(42,34,40,2); A(33,41); A(41,40); A(40,42); A(42,34); L(43,34,42); L(44,42,40); L(45,40,41); L(46,41,33); A(45,46); A(43,44); L(47,45,46); L(48,43,44); A(47,48);
#
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(5,0,P2)
p(4.5,0.8660254037844386,P3)
p(5.5,0.8660254037844386,P4)
p(6,0,P5)
p(6.5,0.8660254037844386,P6)
p(7,0,P7)
p(6.740384024572367,0.9657119370199163,P8)
p(7.70652308248331,0.7076899984585648,P9)
p(7.446907107055677,1.6734019354784815,P10)
p(8.41304616496662,1.4153799969171297,P11)
p(6.480768049144734,1.9314238740398333,P12)
p(5.644271870407568,1.383451116543515,P13)
p(5.58796163120253,2.3818644362466688,P14)
p(4.751465452465364,1.8338916787503508,P15)
p(4.251465452465365,0.9678662749659114,P16)
p(3.2875359446459886,0.7017086074921102,P17)
p(3.539001397111354,1.6695748824580214,P18)
p(2.5750718892919773,1.4034172149842203,P19)
p(3.4333920813817884,1.9165316738049694,P20)
p(4.397321589201165,2.1826893412787705,P21)
p(2.5598618289490096,2.40330153532551,P22)
p(3.4181820210388207,2.9164159941462593,P23)
p(2.5446517686060424,3.4031858556667998,P24)
p(3.4029719606958526,3.9163003144875494,P25)
p(2.5294417082630742,4.4030701760080895,P26)
p(3.933353494313353,3.0685412515471713,P27)
p(4.932507800040667,3.0274234531312847,P28)
p(4.468539705152855,3.9132753633996855,P29)
p(3.4989907067079646,4.158172769703888,P30)
p(3.2263035826658775,5.120275535723023,P31)
p(4.195852581110768,4.875378129418821,P32)
p(3.923165457068681,5.837480895437956,P33)
p(7.435961026065199,4.251804618044579,P34)
p(8.087351118666145,2.3608548706262793,P35)
p(7.431393382544373,1.6060572497887455,P36)
p(7.105698336243901,2.5515321234978954,P37)
p(7.761656072365672,3.306329744335429,P38)
p(6.780003289943428,3.4970069972070457,P39)
p(5.899771863948182,5.532477432698744,P40)
p(4.911468660508431,5.684979164068349,P41)
p(6.66786644500669,4.892141025371661,P42)
p(6.497366139822631,3.906783402002286,P43)
p(5.729271558764123,4.547119809329368,P44)
p(5.273549888741118,4.7528326175631825,P45)
p(4.2852466853013675,4.905334348932789,P46)
p(4.647327913534053,3.9731878024276215,P47)
p(5.558771253580063,3.5617621859599935,P48)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3) s(P15,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(P7,P8)
s(P8,P9) s(P7,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11) s(P35,P11)
s(P8,P12) s(P10,P12)
s(P6,P13) s(P12,P13)
s(P13,P14) s(P12,P14)
s(P13,P15) s(P14,P15)
s(P1,P16) s(P15,P16)
s(P1,P17) s(P16,P17)
s(P17,P18) s(P16,P18)
s(P17,P19) s(P18,P19)
s(P19,P20)
s(P20,P21) s(P18,P21)
s(P19,P22) s(P20,P22)
s(P22,P23) s(P20,P23)
s(P22,P24) s(P23,P24)
s(P24,P25) s(P23,P25)
s(P24,P26) s(P25,P26) s(P30,P26)
s(P25,P27) s(P21,P27)
s(P27,P28) s(P21,P28)
s(P27,P29) s(P28,P29)
s(P29,P30)
s(P26,P31) s(P30,P31) s(P32,P31)
s(P30,P32) s(P29,P32)
s(P31,P33) s(P32,P33) s(P40,P33) s(P41,P33)
s(P39,P34) s(P38,P34) s(P40,P34)
s(P11,P36) s(P35,P36)
s(P36,P37) s(P35,P37)
s(P37,P38) s(P35,P38)
s(P37,P39) s(P38,P39)
s(P42,P40)
s(P40,P41)
s(P34,P42)
s(P34,P43) s(P42,P43) s(P44,P43)
s(P42,P44) s(P40,P44)
s(P40,P45) s(P41,P45) s(P46,P45)
s(P41,P46) s(P33,P46)
s(P45,P47) s(P46,P47) s(P48,P47)
s(P43,P48) s(P44,P48)
color(blue) pen(2)
color(red) pen(2)
\geooff
\geoprint()
Vieel günstiger sieht das beim Graph davor aus. Er hat 9 Bewegungsmöglichkeiten, also noch genausoviele wie allein die 10 vom Mittelpunkt ausgehende Kanten. Von den 10 vom Mittelpunkt ausgehenden Winkeln können 9 variiert werden und der letzte ist dann die Ergänzung zu 360°.
\geo
ebene(500,500)
x(0,8.4)
y(-4.2,4.2)
form(.)
#Eingabe war:
#//blauerWinkel=36
#//No.327
#//P1...P3:
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); M(3,1,2,36); M(4,1,3,36); M(5,1,4,36); M(6,1,5,36); M(7,1,6,36); M(8,1,7,36); M(9,1,8,36); M(10,1,9,36); M(11,1,10,36);
#
#N(12,3,2); N(13,4,3); N(14,5,4); N(15,6,5); N(16,7,6); N(17,8,7); N(18,9,8); N(19,10,9); N(20,11,10); N(21,2,11); L(22,5,14); L(23,4,13); L(24,3,12); L(25,2,21); L(26,11,20); L(27,10,19); L(28,9,18); L(29,8,17); L(30,7,16); L(31,6,15); L(32,24,12); L(33,23,13); L(34,22,14); L(35,31,15); L(36,30,16); L(37,29,17); L(38,28,18); N(39,29,18); L(40,27,19); L(41,26,20); L(42,25,21); N(43,32,25); N(44,33,24); N(45,34,23); N(46,35,22); N(47,36,31); N(48,37,30); N(49,38,29); N(50,40,28); N(51,41,27); N(52,42,26); L(53,32,43); L(54,53,43); L(55,33,44); L(56,55,44); L(57,34,45); L(58,57,45); L(59,35,46); L(60,59,46); L(61,36,47); L(62,61,47); L(63,37,48); L(64,63,48); L(65,38,49); L(66,65,49); L(67,40,50); L(68,67,50); L(69,41,51); L(70,69,51); L(71,42,52); L(72,71,52);
#
#Ende der Eingabe, weiter mit fedgeo:
label()
p(4,0,P1)
p(5,0,P2)
p(4.8090169943749475,0.5877852522924731,P3)
p(4.3090169943749475,0.9510565162951535,P4)
p(3.6909830056250525,0.9510565162951536,P5)
p(3.1909830056250525,0.5877852522924732,P6)
p(3,1.2246467991473532e-16,P7)
p(3.1909830056250525,-0.587785252292473,P8)
p(3.690983005625052,-0.9510565162951533,P9)
p(4.309016994374947,-0.9510565162951538,P10)
p(4.8090169943749475,-0.5877852522924735,P11)
p(5.8090169943749475,0.587785252292473,P12)
p(5.118033988749895,1.5388417685876266,P13)
p(4,1.9021130325903073,P14)
p(2.8819660112501055,1.5388417685876266,P15)
p(2.1909830056250525,0.5877852522924735,P16)
p(2.1909830056250525,-0.5877852522924728,P17)
p(2.881966011250104,-1.5388417685876263,P18)
p(3.9999999999999987,-1.9021130325903073,P19)
p(5.118033988749894,-1.5388417685876272,P20)
p(5.8090169943749475,-0.5877852522924734,P21)
p(3.0218523992661948,1.6942013417725479,P22)
p(4.204488531107294,1.945578411663427,P23)
p(5.3090169943749475,1.453810656076912,P24)
p(5.9135454576426,0.40673664307579993,P25)
p(5.787164595108752,-0.7956969431102335,P26)
p(4.978147600733805,-1.6942013417725486,P27)
p(3.7955114688927054,-1.9455784116634265,P28)
p(2.690983005625052,-1.4538106560769115,P29)
p(2.0864545423573992,-0.4067366430757998,P30)
p(2.2128354048912473,0.7956969431102325,P31)
p(6.3090169943749475,1.4538106560769117,P32)
p(5.013505525482241,2.5333636639558996,P33)
p(3.3308693936411418,2.6452578580677018,P34)
p(1.9038184105162999,1.746753459405386,P35)
p(1.2774375479824518,0.18104860921667335,P36)
p(1.6909830056250525,-1.453810656076911,P37)
p(2.986494474517758,-2.5333636639558996,P38)
p(3.1909830056250525,-0.5877852522924728,P39)
p(4.6691306063588565,-2.6452578580677018,P40)
p(6.096181589483699,-1.746753459405387,P41)
p(6.722562452017549,-0.1810486092166732,P42)
p(6.886566101369387,0.6374547110321501,P43)
p(5.960594553245413,2.2123926785216868,P44)
p(4.285742523939607,2.9422718392773577,P45)
p(2.5017465625200517,2.5483031615707468,P46)
p(1.290032490456471,1.1809692897829251,P47)
p(1.1134338986306132,-0.6374547110321496,P48)
p(2.0394054467545866,-2.212392678521686,P49)
p(3.714257476060391,-2.9422718392773572,P50)
p(5.498253437479947,-2.548303161570747,P51)
p(6.70996750954353,-1.180969289782925,P52)
p(7.304776534811384,1.5458048821447323,P53)
p(7.8823256418058225,0.7294489370999705,P54)
p(5.7650190666275805,3.1930813289272053,P55)
p(6.712108094390753,2.8721103434929933,P56)
p(3.5510843057836583,3.6207092369021696,P57)
p(4.505957436082124,3.9177232181118256,P58)
p(1.508620082047123,2.665349279761198,P59)
p(2.1065482340508748,3.4668989819265583,P60)
p(0.4177783080796629,0.6919164896415039,P61)
p(0.43037325055368214,1.6918371702077557,P62)
p(0.695223465188616,-1.5458048821447319,P63)
p(0.11767435819417704,-0.7294489370999699,P64)
p(2.2349809333724178,-3.193081328927205,P65)
p(1.2878919056092464,-2.872110343492991,P66)
p(4.44891569421634,-3.6207092369021687,P67)
p(3.494042563917874,-3.9177232181118247,P68)
p(6.491379917952875,-2.6653492797611995,P69)
p(5.8934517659491235,-3.4668989819265597,P70)
p(7.582221691920337,-0.6919164896415032,P71)
p(7.569626749446318,-1.6918371702077544,P72)
nolabel()
s(P1,P2)
s(P1,P3)
s(P1,P4)
s(P1,P5)
s(P1,P6)
s(P1,P7)
s(P1,P8)
s(P1,P9)
s(P1,P10)
s(P1,P11)
s(P3,P12) s(P2,P12)
s(P4,P13) s(P3,P13)
s(P5,P14) s(P4,P14)
s(P6,P15) s(P5,P15)
s(P7,P16) s(P6,P16)
s(P8,P17) s(P7,P17)
s(P9,P18) s(P8,P18)
s(P10,P19) s(P9,P19)
s(P11,P20) s(P10,P20)
s(P2,P21) s(P11,P21)
s(P5,P22) s(P14,P22)
s(P4,P23) s(P13,P23)
s(P3,P24) s(P12,P24)
s(P2,P25) s(P21,P25)
s(P11,P26) s(P20,P26)
s(P10,P27) s(P19,P27)
s(P9,P28) s(P18,P28)
s(P8,P29) s(P17,P29)
s(P7,P30) s(P16,P30)
s(P6,P31) s(P15,P31)
s(P24,P32) s(P12,P32)
s(P23,P33) s(P13,P33)
s(P22,P34) s(P14,P34)
s(P31,P35) s(P15,P35)
s(P30,P36) s(P16,P36)
s(P29,P37) s(P17,P37)
s(P28,P38) s(P18,P38)
s(P29,P39) s(P18,P39)
s(P27,P40) s(P19,P40)
s(P26,P41) s(P20,P41)
s(P25,P42) s(P21,P42)
s(P32,P43) s(P25,P43)
s(P33,P44) s(P24,P44)
s(P34,P45) s(P23,P45)
s(P35,P46) s(P22,P46)
s(P36,P47) s(P31,P47)
s(P37,P48) s(P30,P48)
s(P38,P49) s(P29,P49)
s(P40,P50) s(P28,P50)
s(P41,P51) s(P27,P51)
s(P42,P52) s(P26,P52)
s(P32,P53) s(P43,P53)
s(P53,P54) s(P43,P54)
s(P33,P55) s(P44,P55)
s(P55,P56) s(P44,P56)
s(P34,P57) s(P45,P57)
s(P57,P58) s(P45,P58)
s(P35,P59) s(P46,P59)
s(P59,P60) s(P46,P60)
s(P36,P61) s(P47,P61)
s(P61,P62) s(P47,P62)
s(P37,P63) s(P48,P63)
s(P63,P64) s(P48,P64)
s(P38,P65) s(P49,P65)
s(P65,P66) s(P49,P66)
s(P40,P67) s(P50,P67)
s(P67,P68) s(P50,P68)
s(P41,P69) s(P51,P69)
s(P69,P70) s(P51,P70)
s(P42,P71) s(P52,P71)
s(P71,P72) s(P52,P72)
color(blue) pen(2)
s(P1,P2) m(P2,P1,MA10) m(P1,P3,MB10) f(P1,MA10,MB10)
s(P1,P3) m(P3,P1,MA11) m(P1,P4,MB11) f(P1,MA11,MB11)
s(P1,P4) m(P4,P1,MA12) m(P1,P5,MB12) f(P1,MA12,MB12)
s(P1,P5) m(P5,P1,MA13) m(P1,P6,MB13) f(P1,MA13,MB13)
s(P1,P6) m(P6,P1,MA14) m(P1,P7,MB14) f(P1,MA14,MB14)
s(P1,P7) m(P7,P1,MA15) m(P1,P8,MB15) f(P1,MA15,MB15)
s(P1,P8) m(P8,P1,MA16) m(P1,P9,MB16) f(P1,MA16,MB16)
s(P1,P9) m(P9,P1,MA17) m(P1,P10,MB17) f(P1,MA17,MB17)
s(P1,P10) m(P10,P1,MA18) m(P1,P11,MB18) f(P1,MA18,MB18)
color(red) pen(2)
\geooff
\geoprint()
Beim Bodybilder-Graph war die letzte Bewegungsmöglichkeit durch das Justieren der dritten Verbindung bereits aufgebraucht.
#326-1 bis 4 versuche ich nachher nochmal. Wegen der versetzen Außenkanten muss ich die variablen Winkel neu plazieren und kann die schon vorhandene Eingabe nicht verwenden...
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.331, vom Themenstarter, eingetragen 2016-06-11
|
Danke schonmal. Das drei starre Teilgraphen wieder einen starren Teilgraphen ergeben leuchtet mir jetzt auch ein. Ich habe gerade einen alten 4/10er Versuch gefunden, aus der Zeit (März) als ich noch nicht an Beweglichkeit gedacht habe. Wenn man die vier rechten Ecken auf eine Gerade bringen könnte, dann hätten wir vielleicht knapp einen neuen Minimalen. Habe die Kanten noch nicht gezählt.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_10_neu_slash.png
EDIT: Wäre nicht minimal, da 298 Kanten.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.332, vom Themenstarter, eingetragen 2016-06-11
|
Hier eine 4/7-Gurke mit 207 Kanten, wenn er sich in der Mitte auseinanderziehen lässt. Kein Rekord, aber eine interessante Spielerei mit Kites.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_gurke_mit_207_slash.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4639
| Beitrag No.333, eingetragen 2016-06-11
|
Ähnliche Spielerei mit den kites hatte den 9/4 verbessert. Und könnte auch auf 8/4 und ähnliche versucht werden ....
Grus von der Adria
Haribo
P.s. Habt ihr den 4/11er eigendlich verbessert bekommen < 899? Ich kann das nicht so einfach nachvollziehen
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.334, vom Themenstarter, eingetragen 2016-06-11
|
Hi haribo,
ja, der 4/11 ist verkleinert worden, schon in #306 mit den neuen Kernen um ein paar Kanten, dann nochmal in #316 und in #323/324 auf 811 Kanten. Die weiteren Ideen müssen noch von Stefan gepfrüft werden. Ich habe die Graphen aber noch nicht genau gezeichnet. #326-1 könnte ein neuer Rekord werden.
Gruß an die Adria, Slash
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.335, eingetragen 2016-06-11
|
In No.331 bilden die Punkte P1 bis P33 einen einfach beweglichen Teilgraph (einige Kites habe ich vereinfacht als große Dreiecke gezeichnet). Ich variiere den Winkel P7-P2-P6. Dann verschieben sich die Punkte P31 und P32 im wesentlichen nur vertikal. Ein zusätzlicher Punkt P34, symmetrisch zu P26 bezüglich Strecke P30-P33 eingezeichnet, erreicht nur einen Abstand weniger als 0,95 zu P31.
\geo
ebene(750,750)
x(2,14.6)
y(-4.2,8.4)
form(.)
#Eingabe war:
#//blauerWinkel=19.64
#//No.331, blauerWinkel=19.64
#D=50; P[1]=[0,0]; P[2]=[2.97558430669502005372*D,0]; A(2,1); Q(3,1,2,3.85410196624968426349*D,2.97558430669502005372*D);
#Q(4,2,1,2.97558430669502005372*D,3.85410196624968426349*D);
#Q(5,3,2,2.97558430669502005372*D,3.85410196624968426349*D);
#Q(6,2,4,3.85410196624968426349*D,2.97558430669502005372*D);
#M(7,2,6,blauerWinkel); L(8,2,7); L(9,8,7); L(10,9,7); L(11,8,9);
#Q(12,5,11,2*D,D); Q(13,10,6,D,2*D); L(14,12,11); L(15,10,13); L(16,5,12); L(17,13,6);
#N(18,14,15); L(19,14,18); L(20,18,15);
#Q(21,16,19,D,2*D); Q(22,20,17,2*D,D); A(19,21); A(20,22); H(23,19,21,2); H(24,20,22,2); A(19,23); A(23,21); A(20,24); A(24,22); L(25,23,19); L(26,21,23); L(27,20,24); L(28,24,22); A(25,26); A(27,28); N(29,25,27); L(30,16,21); N(31,26,29); N(32,29,28); L(33,22,17);
#
#Q(34,30,33,ab(30,26),ab(26,33)); A(30,34); A(33,34); R(31,34);
#
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(6.97558430669502,0,P2)
p(6.4959974975046375,2.9366815385227376,P3)
p(6.495997497504637,-2.9366815385227367,P4)
p(9.471581804199657,2.9366815385227367,P5)
p(9.471581804199657,-2.9366815385227376,P6)
p(7.841631327188994,-0.4999625568915229,P7)
p(7.841588092151088,0.5000374421738425,P8)
p(8.707635112645061,0.0000748852823199919,P9)
p(8.707678347682968,-0.9999251137830453,P10)
p(8.707591877607157,1.0000748843476854,P11)
p(9.706362776964458,0.9505098705072015,P12)
p(9.706457220694606,-0.9505210367690841,P13)
p(9.164052766161022,0.11033140602338933,P14)
p(9.164282598444174,-0.11025519848479433,P15)
p(11.309047411360424,2.14692199125451,P16)
p(11.309084962959044,-2.1470093650549886,P17)
p(10.158066219324446,0.0010736606223271917,P18)
p(9.755679475820267,0.9165434354658774,P19)
p(9.757588029045417,-0.9152326304784334,P20)
p(11.729420450940566,1.2395706218313125,P21)
p(11.730983124398072,-1.2403661378843625,P22)
p(10.742549963380416,1.0780570286485949,P23)
p(10.744285576721746,-1.077799384181398,P24)
p(10.388989594353081,0.14264531958501167,P25)
p(11.375860081913231,0.3041589127677293,P26)
p(10.391723741401115,-0.14201086519040784,P27)
p(11.378421289077444,-0.3045776188933732,P28)
p(11.380129603937073,0.009824081065554763,P29)
p(12.305023267229583,2.057300037885396,P30)
p(12.367000091497223,0.17133767424827215,P31)
p(12.3668271516134,-0.1527426726374117,P32)
p(12.305210110577427,-2.059062277085823,P33)
p(13.234345600284247,0.3042432701759455,P34)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P2,P4) s(P1,P4)
s(P3,P5) s(P2,P5)
s(P2,P6) s(P4,P6)
s(P2,P7)
s(P2,P8) s(P7,P8)
s(P8,P9) s(P7,P9)
s(P9,P10) s(P7,P10)
s(P8,P11) s(P9,P11)
s(P5,P12) s(P11,P12)
s(P10,P13) s(P6,P13)
s(P12,P14) s(P11,P14)
s(P10,P15) s(P13,P15)
s(P5,P16) s(P12,P16)
s(P13,P17) s(P6,P17)
s(P14,P18) s(P15,P18)
s(P14,P19) s(P18,P19) s(P23,P19)
s(P18,P20) s(P15,P20) s(P24,P20)
s(P16,P21)
s(P17,P22)
s(P21,P23)
s(P22,P24)
s(P23,P25) s(P19,P25) s(P26,P25)
s(P21,P26) s(P23,P26)
s(P20,P27) s(P24,P27) s(P28,P27)
s(P24,P28) s(P22,P28)
s(P25,P29) s(P27,P29)
s(P16,P30) s(P21,P30)
s(P26,P31) s(P29,P31)
s(P29,P32) s(P28,P32)
s(P22,P33) s(P17,P33)
color(blue) pen(2)
s(P2,P6) m(P6,P2,MA10) m(P2,P7,MB10) f(P2,MA10,MB10)
color(red) pen(2)
s(P31,P34) abstand(P31,P34,A0) print(abs(P31,P34):,5,7.9) print(A0,6.3,7.9)
\geooff
\geoprint()
In No.332 sind die Punkte P1 bis P28 starr untereinander verbunden. P29 punktsymmetrisch zu P28 bezüglich dem Mittelpunkt der Strecke P10-P27 hat von P28 einen festen Abstand 0,922. Ich habe etwas vereinfacht und gedreht gezeichnet, anhand des Streckenzuges P25-P22-P20-P17 sollte die Lage im gesamten Graph erkennbar sein.
\geo
ebene(750,750)
x(2,14.6)
y(-4.2,8.4)
form(.)
#Eingabe war:
#//blauerWinkel=0
#//No.332
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#L(3,1,2); L(4,3,2); L(5,3,4); Q(6,1,5,2*D,D); L(7,1,6); L(8,6,5); Q(9,7,8,3.85410196624968426349*D,2.97558430669502005372*D);
#Q(10,9,8,3.85410196624968426349*D,2.97558430669502005372*D);
#
#M(11,8,5,75.5224878140701); N(12,4,11); L(13,11,12); L(14,13,12); N(15,14,2); L(16,11,13); L(17,14,15); H(18,16,17,2); A(16,18); A(18,17); L(19,16,18); L(20,18,17); A(19,20); Q(21,17,15,ab(14,2),D); A(17,21); N(22,21,20); L(23,22,21); L(24,23,21); L(25,22,23); Q(26,25,24,D,2*D); L(27,26,24); L(28,25,26); A(28,19);
#
#Q(29,10,27,ab(28,27),ab(28,10)); A(27,29); A(10,29); R(28,29);
#
#
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(5,0,P2)
p(4.5,0.8660254037844386,P3)
p(5.5,0.8660254037844386,P4)
p(5,1.7320508075688772,P5)
p(4.036474508437579,1.9996673748986948,P6)
p(2.2864745084375793,1.0314215383468406,P7)
p(4.75,2.7002966441207317,P8)
p(2.7058875111020777,4.862634753432322,P9)
p(6.5546099407772935,5.066197091708807,P10)
p(5.75,2.7002966441207317,P11)
p(5.25,1.8342712403362926,P12)
p(6.25,1.8342712403362926,P13)
p(5.75,0.968245836551854,P14)
p(6,-1.4210854715202004e-16,P15)
p(6.75,2.7002966441207317,P16)
p(6.713525491562422,0.7006292692220366,P17)
p(6.731762745781211,1.700462956671384,P18)
p(7.606762745781211,2.184585874947311,P19)
p(7.588525491562422,1.1847521874979638,P20)
p(6.856762745781211,-0.5157107691734204,P21)
p(6.875,0.4841229182759269,P22)
p(7.731762745781211,-0.03158785089749308,P23)
p(7.713525491562422,-1.0314215383468406,P24)
p(7.75,0.9682458365518543,P25)
p(8.713525491562422,0.700629269222037,P26)
p(9.713525491562422,-1.03142153834684,P27)
p(8.463525491562422,1.6688751057738909,P28)
p(8.039410031459862,2.487540337319283,P29)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P3,P5) s(P4,P5)
s(P1,P6) s(P5,P6)
s(P1,P7) s(P6,P7)
s(P6,P8) s(P5,P8)
s(P7,P9) s(P8,P9)
s(P9,P10) s(P8,P10)
s(P8,P11)
s(P4,P12) s(P11,P12)
s(P11,P13) s(P12,P13)
s(P13,P14) s(P12,P14)
s(P14,P15) s(P2,P15)
s(P11,P16) s(P13,P16) s(P18,P16)
s(P14,P17) s(P15,P17)
s(P17,P18)
s(P16,P19) s(P18,P19) s(P20,P19)
s(P18,P20) s(P17,P20)
s(P15,P21)
s(P21,P22) s(P20,P22)
s(P22,P23) s(P21,P23)
s(P23,P24) s(P21,P24)
s(P22,P25) s(P23,P25)
s(P25,P26) s(P24,P26)
s(P26,P27) s(P24,P27)
s(P25,P28) s(P26,P28) s(P19,P28)
color(blue) pen(2)
color(red) pen(2)
s(P28,P29) abstand(P28,P29,A0) print(abs(P28,P29):,5,7.9) print(A0,6.3,7.9)
\geooff
\geoprint()
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.336, eingetragen 2016-06-12
|
Der #326-1 hat im Vergleich zu #307-2 als Außenkante P12-P14 eine 2-er Kante, deshalb musste ich alles neu eingeben. Ansonsten ähnlicher Verlauf. Zu Beginn sind die Winkel P3-P1-P2 und P4-P1-P3 voneinander unabhängig veränderbar, also zweifach beweglich. Das bleibt so bis einschließlich Punkt P78. Dann stelle ich die Kante P78-P70 auf Länge 2 ein, ab da ist der Graph nur noch einfach beweglich, bis einschließlich Punkt P84. Dort muss ich Kante P84-P70 auf Länge 1 einstellen und damit ist der Graph starr. Ich habe dann abweichend von der Vorlage die Strecken P85-P83 und P85-P11 als Länge 1 eingegeben, dann P86 symmetrisch zu P84 bezüglich der Geraden P85-P79 und erhalte unveränderbar 0,97 für die Strecke P86-P84.
\geo
ebene(750,625)
x(-1,11.6)
y(-4.2,6.3)
form(.)
#Eingabe war:
#//blauerWinkel=29.984959239569335
#//326-1: blauerWinkel=32.02159868983545;gruenerWinkel=35.0565;
#//gruenerWinkel=35.0565; blauerWinkel=29.985026465819427
#//gruenerWinkel=35.0566; blauerWinkel=29.984959239569335
#gruenerWinkel=35.0566;
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1);
#M(3,1,2,blauerWinkel);
#M(4,1,3,gruenerWinkel);
#N(5,3,2); N(6,4,3); L(7,3,5); N(8,6,7); L(9,8,7); L(10,8,9); L(11,10,9); L(12,10,11); L(13,4,6);
#Q(14,13,12,2*D,2*D); A(14,13); H(15,13,14,2); A(13,15); A(15,14); L(16,13,15); L(17,15,14); A(16,17); N(18,4,16); N(19,1,18); L(20,19,18);
#Q(21,20,17,2*D,D); A(21,20); H(22,20,21,2); A(20,22); A(22,21); L(23,20,22); L(24,22,21); A(23,24); L(25,24,21); N(26,19,23); N(27,1,26); L(28,27,26);
#Q(29,28,25,2*D,2*D); A(28,29); H(30,28,29,2); A(28,30); A(30,29); L(31,28,30); L(32,30,29); A(31,32); N(33,27,31); N(34,1,33); L(35,34,33);
#Q(36,35,32,2*D,D); A(35,36); H(37,35,36,2); A(35,37); A(37,36); L(38,35,37); L(39,37,36); A(38,39); L(40,39,36); N(41,34,38); N(42,1,41); L(43,42,41);
#Q(44,43,40,2*D,2*D); A(43,44); H(45,43,44,2); A(43,45); A(45,44); L(46,43,45); L(47,45,44); A(46,47); N(48,42,46); N(49,1,48); L(50,49,48);
#Q(51,50,47,2*D,D); A(50,51); H(52,50,51,2); A(50,52); A(52,51); L(53,50,52); L(54,52,51); A(53,54); L(55,54,51); N(56,49,53); N(57,1,56); L(58,57,56);
#Q(59,58,55,2*D,2*D); A(58,59); H(60,58,59,2); A(58,60); A(60,59); L(61,58,60); L(62,60,59); A(61,62); N(63,57,61); N(64,1,63); L(65,64,63);
#Q(66,65,62,2*D,D); A(65,66); H(67,65,66,2); A(65,67); A(67,66); L(68,65,67); L(69,67,66); A(68,69); L(70,69,66); N(71,64,68); N(72,1,71); L(73,72,71);
#
#N(74,2,72); N(75,74,73); L(76,75,73); L(77,75,76); L(78,77,76); A(70,78); R(70,78); L(79,78,70); L(80,2,74); N(81,5,80); L(82,81,80); L(83,81,82); L(84,83,82); A(84,77); R(84,77);
#
#N(85,11,83); Q(86,85,79,ab(85,84),ab(79,84)); A(85,86); A(86,79); R(86,84);
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(5,0,P2)
p(4.866156629338956,0.4997726417604094,P3)
p(4.421960764289129,0.9066140928755375,P4)
p(5.866156629338956,0.4997726417604093,P5)
p(5.288117393628085,1.4063867346359467,P6)
p(5.366156629338956,1.3657980455448477,P7)
p(5.788117393628086,2.2724121384203846,P8)
p(6.362287847342721,1.4536763507079313,P9)
p(6.784248611631851,2.360290443583468,P10)
p(7.358419065346485,1.5415546558710147,P11)
p(7.780379829635616,2.4481687487465518,P12)
p(4.422223275077633,1.9066140584195796,P13)
p(5.9337633605772435,3.216288281242886,P14)
p(5.177993317827439,2.5614511698312326,P15)
p(4.233002722629224,2.888548670565988,P16)
p(4.988772765379029,3.5433857819776415,P17)
p(4.232740211840717,1.888548705021946,P18)
p(3.8107794475515884,0.9819346121464085,P19)
p(3.236608993836953,1.8006703998588605,P20)
p(3.9946294337909234,3.6514553718672214,P21)
p(3.6156192138139382,2.7260628858630414,P22)
p(2.62470070247459,2.591599121654948,P23)
p(3.003710922451575,3.5169916076591288,P24)
p(3.3827211424285606,4.442384093663309,P25)
p(3.198871156189223,1.7728633339424942,P26)
p(3.388091708637633,0.7909287217960853,P27)
p(2.4431011134394183,1.1180262225308406,P28)
p(1.9427336588872266,3.0544229820883855,P29)
p(2.192917386163323,2.0862246023096134,P30)
p(1.47952485701002,1.3854599489856503,P31)
p(1.2293411297339243,2.3536583287644226,P32)
p(2.424515452208234,1.0583624482508922,P33)
p(3.0364237435706007,0.2674337264548072,P34)
p(2.0455052322312532,0.13296996224670998,P35)
p(0.6341719214955024,1.550057922116409,P36)
p(1.3398385768633778,0.8415139421815596,P37)
p(1.0790548182252042,-0.12388329793804367,P38)
p(0.3733881628573288,0.5846606819968059,P39)
p(-0.33227849251054664,1.2932046619316555,P40)
p(2.069973329564552,0.010580466270052673,P41)
p(3.0335495859939514,-0.2568532601847544,P42)
p(2.3201570568406504,-0.9576179135087192,P43)
p(0.3551879104680311,-0.5849300363196962,P44)
p(1.3376724836543405,-0.7712739749142077,P45)
p(1.6675361855834008,-1.7153025434171192,P46)
p(0.6850516123970913,-1.5289586048226074,P47)
p(2.3809287147367018,-1.0145378900931539,P48)
p(3.3473791287427503,-0.7576846299083997,P49)
p(3.086595370104577,-1.723081870028003,P50)
p(1.19976825482226,-2.386318959638808,P51)
p(2.1431818124634185,-2.0547004148334054,P52)
p(2.9020786754515044,-2.705911249622602,P53)
p(1.9586651178103462,-3.0375297944280044,P54)
p(1.015251560169188,-3.369148339233407,P55)
p(3.1628624340896763,-1.7405140095029987,P56)
p(3.8154833053469255,-0.9828293795945987,P57)
p(4.145347007275986,-1.9268579480975097,P58)
p(3.0051402627220027,-3.5700038879560507,P59)
p(3.5752436349989942,-2.7484309180267803,P60)
p(4.571798384158867,-2.831368436237197,P61)
p(4.001695011881876,-3.652941406166468,P62)
p(4.2419346822298065,-1.8873398677342856,P63)
p(4.4264513768828815,-0.9045104881396869,P64)
p(5.185348239870965,-1.5557213229288853,P65)
p(4.996039837573475,-3.546741746937532,P66)
p(5.090694038722221,-2.551231534933209,P67)
p(6.00015827261917,-2.1354493717007825,P68)
p(5.905504071470424,-3.130959583705106,P69)
p(5.810849870321679,-4.126469795709429,P70)
p(5.241261409631085,-1.484238536911584,P71)
p(4.814810032748204,-0.5797280487718969,P72)
p(5.811364781908077,-0.6626655669823136,P73)
p(5.814810032748204,-0.5797280487718969,P74)
p(6.811364781908077,-0.6626655669823136,P75)
p(6.311364781908077,-1.5286909707667522,P76)
p(7.311364781908077,-1.5286909707667522,P77)
p(6.811364781908077,-2.394716374551191,P78)
p(7.810849781928525,-4.127064415429271,P79)
p(5.909464233896949,0.4157821632324266,P80)
p(6.775620863235903,0.915554804992838,P81)
p(6.775358352447402,-0.08444516055120417,P82)
p(7.641514981786356,0.41532748120920737,P83)
p(7.6412524709978555,-0.5846724843348349,P84)
p(8.289570095267612,1.1769209225483495,P85)
p(8.611988554520016,-0.672287938085406,P86)
nolabel()
s(P1,P2)
s(P1,P3)
s(P1,P4)
s(P3,P5) s(P2,P5)
s(P4,P6) s(P3,P6)
s(P3,P7) s(P5,P7)
s(P6,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(P4,P13) s(P6,P13) s(P15,P13)
s(P12,P14)
s(P14,P15)
s(P13,P16) s(P15,P16) s(P17,P16)
s(P15,P17) s(P14,P17)
s(P4,P18) s(P16,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(P24,P25) s(P21,P25)
s(P19,P26) s(P23,P26)
s(P1,P27) s(P26,P27)
s(P27,P28) s(P26,P28) s(P30,P28)
s(P25,P29)
s(P29,P30)
s(P28,P31) s(P30,P31) s(P32,P31)
s(P30,P32) s(P29,P32)
s(P27,P33) s(P31,P33)
s(P1,P34) s(P33,P34)
s(P34,P35) s(P33,P35) s(P37,P35)
s(P32,P36)
s(P36,P37)
s(P35,P38) s(P37,P38) s(P39,P38)
s(P37,P39) s(P36,P39)
s(P39,P40) s(P36,P40)
s(P34,P41) s(P38,P41)
s(P1,P42) s(P41,P42)
s(P42,P43) s(P41,P43) s(P45,P43)
s(P40,P44)
s(P44,P45)
s(P43,P46) s(P45,P46) s(P47,P46)
s(P45,P47) s(P44,P47)
s(P42,P48) s(P46,P48)
s(P1,P49) s(P48,P49)
s(P49,P50) s(P48,P50) s(P52,P50)
s(P47,P51)
s(P51,P52)
s(P50,P53) s(P52,P53) s(P54,P53)
s(P52,P54) s(P51,P54)
s(P54,P55) s(P51,P55)
s(P49,P56) s(P53,P56)
s(P1,P57) s(P56,P57)
s(P57,P58) s(P56,P58) s(P60,P58)
s(P55,P59)
s(P59,P60)
s(P58,P61) s(P60,P61) s(P62,P61)
s(P60,P62) s(P59,P62)
s(P57,P63) s(P61,P63)
s(P1,P64) s(P63,P64)
s(P64,P65) s(P63,P65) s(P67,P65)
s(P62,P66)
s(P66,P67)
s(P65,P68) s(P67,P68) s(P69,P68)
s(P67,P69) s(P66,P69)
s(P69,P70) s(P66,P70) s(P78,P70)
s(P64,P71) s(P68,P71)
s(P1,P72) s(P71,P72)
s(P72,P73) s(P71,P73)
s(P2,P74) s(P72,P74)
s(P74,P75) s(P73,P75)
s(P75,P76) s(P73,P76)
s(P75,P77) s(P76,P77)
s(P77,P78) s(P76,P78)
s(P78,P79) s(P70,P79)
s(P2,P80) s(P74,P80)
s(P5,P81) s(P80,P81)
s(P81,P82) s(P80,P82)
s(P81,P83) s(P82,P83)
s(P83,P84) s(P82,P84) s(P77,P84)
s(P11,P85) s(P83,P85)
color(blue) pen(2)
s(P1,P2) m(P2,P1,MA10) m(P1,P3,MB10) f(P1,MA10,MB10)
color(red) pen(2)
s(P70,P78) abstand(P70,P78,A0) print(abs(P70,P78):,1,5.9) print(A0,2.3,5.9)
s(P84,P77) abstand(P84,P77,A1) print(abs(P84,P77):,1,5.6) print(A1,2.3,5.6)
s(P86,P84) abstand(P86,P84,A2) print(abs(P86,P84):,1,5.3) print(A2,2.3,5.3)
\geooff
\geoprint()
Winkel P4-P1-P3: 35.0565°...35.0566°
Winkel P3-P1-P2: 29.9850°...29.9849°
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.337, vom Themenstarter, eingetragen 2016-06-12
|
Danke schonmal, Stefan! Auch wenn es nicht ganz passt, ist die Beweglichkeit dieses Kerns sehr interessant. Vielleicht kann ich ihn noch anders nutzen. Ich bin schon gespannt auf die restlichen aus #326. #326-2 und #326-4 wären auf jeden Fall neue Rekordgraphen mit weniger als 811 Kanten.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.338, vom Themenstarter, eingetragen 2016-06-12
|
Hier ein unsymmetrischer Graph aus 11 3er-Segmenten. Der untere Hälfte (farbig) ist auf jeden Fall starr. Ich kann aber nicht einschätzen, ob der Graph trotzdem im oberen Teil beweglich ist oder nicht.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4reg_11_tg_slash.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4639
| Beitrag No.339, eingetragen 2016-06-13
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.340, vom Themenstarter, eingetragen 2016-06-13
|
118, aber ob der wirklich möglich ist? Ich bin sehr skeptisch. Ist auch schon älter das Ding. Ich habe gestern alte Arbeitsflächen durchsucht.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.341, eingetragen 2016-06-13
|
In #326-4 ist der Kern von P1 bis P77 zweifach beweglich, Dann justiere ich Strecke P77-P69 auf Länge 1. Danach nur noch einfache Beweglichkeit. Die mittlere Verbindung habe ich als durchgehende Dreiecke und starr angenommen und Dreieck P84-P85-P86 punktsymmetrisch zu Dreieck P75-P76-P77 bezüglich Mittelpunkt von Viereck P78-P79-P82-P83 eingezeichnet. Mit der einfachen Beweglichkeit kann ich dann nur noch eine rote Kante P10-P85 justieren. Punkt P11 habe ich nur hinter einem anderen Punkt verschwinden lassen, damit ich die alte Eingabe verwenden konnte.
\geo
ebene(750,750)
x(0,12.6)
y(-4.2,8.4)
form(.)
#Eingabe war:
#//blauerWinkel=35.8024901455469
#//No.326-4:
#//blauerWinkel=35.802318086703195, gruenerWinkel=35.0934;
#//blauerWinkel=35.8024901455469, gruenerWinkel=35.0933;
#gruenerWinkel=35.0933;
#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,9,10); 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); N(26,1,25); L(27,26,25);
#Q(28,27,24,2*D,D); A(27,28); H(29,27,28,2); A(27,29); A(29,28); L(30,27,29); L(31,29,28); A(30,31); L(32,31,28); N(33,26,30); N(34,1,33); L(35,34,33);
#Q(36,35,32,2*D,2*D); A(35,36); H(37,35,36,2); A(35,37); A(37,36); L(38,35,37); L(39,37,36); A(38,39); N(40,34,38); N(41,1,40); L(42,41,40);
#Q(43,42,39,2*D,D); A(42,43); H(44,42,43,2); A(42,44); A(44,43); L(45,42,44); L(46,44,43); A(45,46); L(47,46,43); N(48,41,45); N(49,1,48); L(50,49,48);
#Q(51,50,47,2*D,2*D); A(50,51); H(52,50,51,2); A(50,52); A(52,51); L(53,50,52); L(54,52,51); A(53,54); N(55,49,53); N(56,1,55); L(57,56,55);
#Q(58,57,54,2*D,D); A(57,58); H(59,57,58,2); A(57,59); A(59,58); L(60,57,59); L(61,59,58); A(60,61); L(62,61,58); N(63,56,60); N(64,1,63); L(65,64,63);
#Q(66,65,62,2*D,2*D); A(65,66); H(67,65,66,2); A(65,67); A(67,66); L(68,65,67); L(69,67,66); A(68,69); N(70,64,68); N(71,1,70); L(72,71,70); N(73,2,71); N(74,73,72); L(75,74,72); L(76,74,75); L(77,76,75);
#
#//Justieren
#A(69,77); R(69,77);
#L(78,2,73); N(79,4,78); L(80,79,78); L(81,79,80); L(82,81,80); L(83,81,82);
#Q(84,79,83,ab(76,82),ab(76,78)); A(84,79); A(84,83); A(84,9); R(84,9);
#Q(85,79,83,ab(77,82),ab(77,78)); A(85,79); A(85,83); A(85,10); A(84,85); R(85,10); L(86,85,84);
#
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(5,0,P2)
p(4.8182169512546595,0.5749095760896059,P3)
p(5.8182169512546595,0.5749095760896059,P4)
p(5.3182169512546595,1.4409349798740445,P5)
p(4.327287328993114,0.9449248670029555,P6)
p(5.145504280247772,1.5198344430925619,P7)
p(5.645504280247774,2.3858598468769996,P8)
p(6.300189555243408,1.629958272130729,P9)
p(6.627476884236523,2.574883139133684,P10)
p(5.645504280247774,2.385859846876999,P11)
p(4.238509506847902,1.9409763206413475,P12)
p(5.820182197617347,3.165031670400558,P13)
p(5.029345852232624,2.5530039955209527,P14)
p(4.103896165275402,2.931874523420364,P15)
p(4.894732510660124,3.5439021982999703,P16)
p(5.685568856044847,4.155929873179575,P17)
p(4.1926739874206165,1.9358230697819727,P18)
p(3.8653866584275027,0.9908982027790172,P19)
p(3.2107013834318683,1.7467997775252868,P20)
p(3.7444350379255695,3.6742666089028853,P21)
p(3.477568210678719,2.710533193214086,P22)
p(2.509517176592845,2.459779937192812,P23)
p(2.776384003839696,3.4235133528816113,P24)
p(3.1642024515884732,1.7038783624465368,P25)
p(3.298815793160971,0.7129801596675196,P26)
p(2.373366106203749,1.0918506875669332,P27)
p(1.8593636908776356,3.0246728514089467,P28)
p(2.1163648985406924,2.05826176948794,P29)
p(1.407928954929825,1.3524866538879496,P30)
p(1.1509277472667678,2.318897735808956,P31)
p(0.8939265396037115,3.285308817729963,P32)
p(2.3333786418870472,0.9736161259885375,P33)
p(3.0345628487260763,0.26063596632101826,P34)
p(2.066511814640205,0.009882710299736246,P35)
p(0.5509766806115715,1.314931850188657,P36)
p(1.3087442476258881,0.6624072802441967,P37)
p(1.1225251769676277,-0.32010096792635856,P38)
p(0.36475760995331097,0.33242360201810156,P39)
p(2.0905762110534982,-0.06934771190507318,P40)
p(3.056013362327422,-0.3299836782260914,P41)
p(2.3475774187165532,-1.0357587938260802,P42)
p(0.3817862469163318,-0.6674314002313156,P43)
p(1.364681832816442,-0.8515950970286978,P44)
p(1.6966391858851098,-1.794889492084475,P45)
p(0.7137435999849995,-1.6107257952870924,P46)
p(-0.26915198591511125,-1.4265620984897103,P47)
p(2.4050751294959785,-1.0891143764844857,P48)
p(3.349061767168557,-0.759130698258395,P49)
p(3.1628426965102925,-1.7416389464289497,P50)
p(1.3540387902503643,-2.595001957520257,P51)
p(2.258440743380328,-2.168320451974603,P52)
p(3.080158743072837,-2.738214765844589,P53)
p(2.1757567899428736,-3.1648962713902424,P54)
p(3.266377813731102,-1.755706517674034,P55)
p(3.917316046562545,-0.9965758194156393,P56)
p(4.249273399631212,-1.9398702144714162,P57)
p(3.090148830360251,-3.569726107767633,P58)
p(3.6697111149957315,-2.7547981611195245,P59)
p(4.665240561364623,-2.8492498493651444,P60)
p(4.085678276729142,-3.6641777960132527,P61)
p(3.506115992093662,-4.479105742661361,P62)
p(4.333283208295958,-1.9059554543093666,P63)
p(4.415967161733413,-0.9093796348937273,P64)
p(5.237685161425922,-1.479273948763712,P65)
p(5.238263854285816,-3.4792738650423543,P66)
p(5.237974507855869,-2.479273906903033,P67)
p(6.103855202172923,-1.9790233464745444,P68)
p(6.10414454860287,-2.979023304613865,P69)
p(5.282137202480415,-1.4091290326045567,P70)
p(4.8661700407470025,-0.4997493977108294,P71)
p(5.861699487115894,-0.5942010859564469,P72)
p(5.8661700407470025,-0.49974939771082943,P73)
p(6.861699487115894,-0.5942010859564465,P74)
p(6.361699487115895,-1.4602264897408856,P75)
p(7.361699487115894,-1.460226489740885,P76)
p(6.861699487115895,-2.3262518935253236,P77)
p(5.8658806943170525,0.5002505604284915,P78)
p(6.684097645571711,1.0751601365180972,P79)
p(6.772875467716923,0.07910868287970586,P80)
p(7.5910924189715825,0.6540182589693115,P81)
p(7.679870241116793,-0.3420331946690797,P82)
p(8.498087192371454,0.232876381420526,P83)
p(7.0022683995726105,2.1933534315899026,P84)
p(7.50226839957261,3.059378835374341,P85)
p(8.00226839957261,2.1933534315899026,P86)
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(P9,P11) s(P10,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(P1,P26) s(P25,P26)
s(P26,P27) s(P25,P27) s(P29,P27)
s(P24,P28)
s(P28,P29)
s(P27,P30) s(P29,P30) s(P31,P30)
s(P29,P31) s(P28,P31)
s(P31,P32) s(P28,P32)
s(P26,P33) s(P30,P33)
s(P1,P34) s(P33,P34)
s(P34,P35) s(P33,P35) s(P37,P35)
s(P32,P36)
s(P36,P37)
s(P35,P38) s(P37,P38) s(P39,P38)
s(P37,P39) s(P36,P39)
s(P34,P40) s(P38,P40)
s(P1,P41) s(P40,P41)
s(P41,P42) s(P40,P42) s(P44,P42)
s(P39,P43)
s(P43,P44)
s(P42,P45) s(P44,P45) s(P46,P45)
s(P44,P46) s(P43,P46)
s(P46,P47) s(P43,P47)
s(P41,P48) s(P45,P48)
s(P1,P49) s(P48,P49)
s(P49,P50) s(P48,P50) s(P52,P50)
s(P47,P51)
s(P51,P52)
s(P50,P53) s(P52,P53) s(P54,P53)
s(P52,P54) s(P51,P54)
s(P49,P55) s(P53,P55)
s(P1,P56) s(P55,P56)
s(P56,P57) s(P55,P57) s(P59,P57)
s(P54,P58)
s(P58,P59)
s(P57,P60) s(P59,P60) s(P61,P60)
s(P59,P61) s(P58,P61)
s(P61,P62) s(P58,P62)
s(P56,P63) s(P60,P63)
s(P1,P64) s(P63,P64)
s(P64,P65) s(P63,P65) s(P67,P65)
s(P62,P66)
s(P66,P67)
s(P65,P68) s(P67,P68) s(P69,P68)
s(P67,P69) s(P66,P69) s(P77,P69)
s(P64,P70) s(P68,P70)
s(P1,P71) s(P70,P71)
s(P71,P72) s(P70,P72)
s(P2,P73) s(P71,P73)
s(P73,P74) s(P72,P74)
s(P74,P75) s(P72,P75)
s(P74,P76) s(P75,P76)
s(P76,P77) s(P75,P77)
s(P2,P78) s(P73,P78)
s(P4,P79) s(P78,P79)
s(P79,P80) s(P78,P80)
s(P79,P81) s(P80,P81)
s(P81,P82) s(P80,P82)
s(P81,P83) s(P82,P83)
s(P9,P84) s(P85,P84)
s(P10,P85)
s(P85,P86) s(P84,P86)
color(blue) pen(2)
s(P1,P3) m(P3,P1,MA10) m(P1,P6,MB10) f(P1,MA10,MB10)
color(red) pen(2)
s(P69,P77) abstand(P69,P77,A0) print(abs(P69,P77):,1,7.9) print(A0,2.3,7.9)
s(P84,P9) abstand(P84,P9,A1) print(abs(P84,P9):,1,7.6) print(A1,2.3,7.6)
s(P85,P10) abstand(P85,P10,A2) print(abs(P85,P10):,1,7.3) print(A2,2.3,7.3)
\geooff
\geoprint()
In #326-2 und #326-3 reicht die zusätzliche Beweglichkeit aus, um die Dreieckspitzen in Übereinstimmung zu bringen. Doch entstehen dann an den schmalen Stellen im Kern Überschneidungen. Ich habe das erstmal durch Probieren nur grob eingegrenzt und will das lieber genauer ausrechnen, indem ich vom Programm zwei Kanten gleichzeitig mit zwei Winkeln ausjustieren lasse. So eine Programmversion wäre dann doch besser als das fortgesetzte Probieren. #338 habe ich gestern übersehen, Enschuldigung.
[Die Antwort wurde nach Beitrag No.339 begonnen.]
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.342, vom Themenstarter, eingetragen 2016-06-13
|
\quoteon(2016-06-13 05:17 - StefanVogel in Beitrag No. 341)
#338 habe ich gestern übersehen, Enschuldigung.
\quoteoff
Da bitte ich aber eher um Entschuldigung für meine vielen Testaufgaben. ;-) Das ist eine super Arbeit die du mit deinem Programm hier leistest.
Vielleicht ist der Graph aus 338 auch weniger starr.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4reg_11_tg_slash_b.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.343, vom Themenstarter, eingetragen 2016-06-13
|
Hier mal eine eigene Studie zur Beweglichkeit. So wird die rote Strecke von ca. 2,9 auf genau 2 verkürzt. Man mag auf den ersten Blick kaum glauben, dass es sich hierbei um denselben Graphen handelt.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_beweglichkeitsstudie_slash.png
Hier eine weitere Beweglichkeits-Studie. Auch dieser Graph lässt sich in beide Richtungen wie eine alte Fotoblende verdrehen. Die Rauten können jeden beliebigen Winkel annehmen. Mit Lego sieht das echt verblüffend aus.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_tri_flexi_slash.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.344, vom Themenstarter, eingetragen 2016-06-14
|
Ein alternativer 4/7 mit 159 wenn die blaue Kante auf 1 gebracht werden kann.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_falsch_slash_14.06.2016_c.png
Oben und Unten lassen sich je 2 Kanten versetzen, also insgesamt 3 Varianten.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.345, vom Themenstarter, eingetragen 2016-06-14
|
Jawoll! Neuer 4/7 mit 4 7er Kernen und 186 Kanten. Kein Rekord, aber total interessant mit Triplet-Kite-Geometrie. :-) Ist aber bestimmt der minimalste 4-Kernige 4/7.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_slash_14.06.2016_mit_186.png
Ein vollständiger Triplet-Kite ist allerdings nicht dabei.
Die roten Kanten haben auch Länge 1. Man beachte die beiden großen gleichseitigen Dreiecke im Inneren.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_slash_14.06.2016_mit_186_b.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4639
| Beitrag No.346, eingetragen 2016-06-14
|
Endlich setzt du kreativ/aktiv Lego ein, dein freiestes Werkzeug! Weiter so
Haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.347, vom Themenstarter, eingetragen 2016-06-14
|
Hier der 4/7 aus #344-2 und drei weitere Varianten. Die Mittelkante ist zu lang oder zu kurz. Die Mixvarianten kann man sich denken.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_slash_14.06.2016_neu_vier_b.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.348, vom Themenstarter, eingetragen 2016-06-15
|
Bei dem alten 4/7 mit 159 kann man rechts noch 2 Kanten umlegen, also noch eine neue Variation.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_slash_15.06.2016_var.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.349, vom Themenstarter, eingetragen 2016-06-16
|
Neuartiger 4/7 mit 201 Kanten. Der erste 4/7-Fusionsgraph mit asymmetrischer Hülle und Innerem.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_slash_16.06.2016_mit_201.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.350, vom Themenstarter, eingetragen 2016-06-16
|
4/7 aus #349 reduziert auf 185 Kanten.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_7_neu_slash_16.06.2016_mit_185.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.351, vom Themenstarter, eingetragen 2016-06-17
|
Neue unsymmetrische 4-reguläre Graphen mit 132 und 134 Kanten.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_neu_unsym_slash_17.06.2016.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.352, vom Themenstarter, eingetragen 2016-06-17
|
Neue symmetrische 4-reguläre Graphen mit 132 Kanten.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_4_neu_sym_slash_17.06.2016.png
Ein 4/5/6/7 mit einem 6er-, zwei 7er- und vier 5er-Knoten.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_4_5_6_7_neu_sym_slash_17.06.2016.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4639
| Beitrag No.353, eingetragen 2016-06-17
|
Toller Ansatz.
Erhöh mal die Beweglichkeit (des 4/7ers aus#350) durch entfernen der 7-7 Verbindung
Dann ist es ein 4/6er mit besserer Beweglichkeit, also neuen reduktions-Möglichkeiten
Überhaupt könnte man untersuchen welches der Hölzer beim 104er 4/4 eigendlich die größte Beweglichkeit Hervorruft wenn man es weglässt..... (Lego)
(Möglicherweise auch jeweils die vier gegenseitig Symmetrisch liegenden Hölzer entfernen.....naja dann bleibt die Lösung symmetrisch das könnte auch ein Nachteil sein)
Klar dann ist es erstmal ein 4/3er. Aber durch die Beweglichkeit entstehen ja neue Möglichkeiten,
[Die Antwort wurde nach Beitrag No.350 begonnen.]
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.354, vom Themenstarter, eingetragen 2016-06-17
|
Beim 4/7-#350 bewegt sich auch ohne die Kante nichts in der rechten Hälfte wegen der Triplet-Kite-Struktur. Vielleicht ist der Graph in der linken Hälfte beweglich.
#345 macht Mut für einen 4/9 im Gurkenformat ohne Doppel-Kite-Klammer.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.355, vom Themenstarter, eingetragen 2016-06-17
|
@ Stefan: Hattest du eigentlich schon mal den Herzgraph aus #245 getestet? Mit seinen 124 Kanten wäre er der viertminimalste - 104, 114, 120, 124?, 126, ...
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.356, eingetragen 2016-06-18
|
Ja, war sogar Eingabebeispiel in Programmversion Streichholzgraph-212.htm, einfach beweglich ohne die roten Kanten und bei Einhaltung der Symmetrie. Durch Variieren eines Winkels konnte man eine rote Kante zu 1 machen und die andere hat nicht gepasst.
Inzwischen bin ich bei Programmversion Streichholzgraph-326.htm. Damit kann ich jetzt gleichzeitig zwei Winkel variieren, so dass zwei Kanten auf ganzzahlige Länge gebracht werden. Nachfolgend nochmal der #326-3. Von Punkt P1 und P17 gehen die beiden variablen Winkel aus, Strecke P89-P90 ist punktsymmetrisch zu Strecke P70-P75 bezüglich Mittelpunkt von P78-P87 eingezeichnet und die Strecken P14-P89 und P14-P90 werden gleichzeitig durch Verändern der Winkel in P1 und P17 justiert. Es entsteht eine geringfügige Überlappung in dem von P77 ausgehenden spitzen Winkel. Den dritten variablen Winkel ausgehend von P62 habe ich als fast 0 eingegeben, jeder größere Wert vergrößert nur die Überlappung. Eine dieser Varianten ist die #326-2.
\geo
ebene(750,750)
x(0,12.6)
y(-6.2,6.4)
form(.)
#Eingabe war:
#//blauerWinkel=6.54052967207804
#//No.326-3 mit Kern 307-1; neu mit gruenerWinkel und Feinjustieren2();
#//blauerWinkel=6.5405296720780175, gruenerWinkel=12.80829292352237
#D=50; P[1]=[0,0]; P[2]=[0,D]; A(2,1);
#M(3,1,2,blauerWinkel);
#
#L(4,1,3); L(5,4,3); L(6,5,3); L(7,5,6); L(8,7,6); L(9,7,8);
#
#Q(10,8,2,D,2*D); A(10,2); H(11,2,10,2); A(2,11); A(11,10);L(12,11,2); L(13,10,11); A(12,13); L(14,10,13); L(15,12,2); N(16,15,1); N(17,16,4);
#
#M(18,17,4,gruenerWinkel); L(19,17,18); L(20,19,18); L(21,20,18); L(22,20,21); L(23,22,21); N(24,16,19);
#
#Q(25,24,22,3*D,D); A(24,25); H(26,24,25,3); A(24,26); N(27,24,26); L(28,27,26); L(29,28,26); L(30,28,29); A(25,30); A(25,29); L(31,30,25); N(32,16,27);
#
#Q(33,32,31,3*D,2*D); A(32,33); A(33,31); H(34,32,33,3); A(32,34); L(35,32,34); L(36,35,34); L(37,36,34); L(38,36,37); A(33,38); A(33,37); N(39,16,35);
#
#Q(40,39,38,3*D,D); A(39,40); H(41,39,40,3); N(42,39,41); A(39,41); L(43,42,41); L(44,43,41); L(45,43,44); A(45,40); A(44,40); L(46,45,40); N(47,16,42);
#
#Q(48,47,46,3*D,2*D); A(48,46); A(47,48); H(49,47,48,3); A(47,49); L(50,47,49); L(51,50,49); L(52,51,49); L(53,51,52); A(53,48); A(52,48); N(54,16,50);
#
#Q(55,54,53,3*D,D); A(54,55); H(56,54,55,3); A(54,56); L(57,54,56); L(58,57,56); L(59,58,56); L(60,58,59); A(60,55); A(59,55); L(61,60,55); N(62,16,57);
#
#M(63,62,57,0.0001);L(64,62,63); L(65,64,63); L(66,65,63); L(67,65,66); L(68,67,66); N(69,16,64);
#
#Q(70,69,67,3*D,D); A(70,69); H(71,69,70,3); A(69,71); L(72,69,71); L(73,72,71); L(74,73,71); L(75,73,74); A(75,70); A(74,70); L(76,75,70); N(77,16,72);
#
#N(78,15,77); L(79,78,77);
#
#//zum Justieren auf Abstand 0:
#//R(72,79);
#
#L(80,78,79); L(81,80,79); L(82,80,81); L(83,82,81); L(84,82,83); L(85,84,83); L(86,84,85); L(87,86,85);
#
#
#L(88,86,87);
#
#Q(89,78,88,ab(70,87),ab(70,77)); A(89,78); A(89,88); R(89,14);
#Q(90,78,88,ab(75,87),ab(75,77)); A(90,78); A(90,88); A(89,90); R(90,14);
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(4,1,P2)
p(3.8860939855070153,0.9934915298392453,P3)
p(3.0826580894680555,0.3981002627248593,P4)
p(2.968752074975071,1.3915917925641046,P5)
p(3.7721879710140302,1.9869830596784905,P6)
p(2.854846060482086,2.38508332240335,P7)
p(3.6582819565210456,2.980474589517736,P8)
p(2.7409400459891007,3.378574852242595,P9)
p(4.6541794993569034,2.8899865562011677,P10)
p(4.327089749678452,1.9449932781005839,P11)
p(4.981933060079864,1.1892286065112598,P12)
p(5.309022809758316,2.1342218846118435,P13)
p(5.636112559436768,3.0792151627124276,P14)
p(4.654843310401413,0.2442353284106761,P15)
p(4.654843310401413,-0.7557646715893239,P16)
p(3.737501399869469,-0.35766440886446416,P17)
p(2.9314071779895157,0.23412280411985883,P18)
p(2.8219515288502763,-0.7598688763641921,P19)
p(2.015857306970323,-0.16808166337986905,P20)
p(2.1253129561095623,0.8259100171041819,P21)
p(1.20976308509037,0.42370554960445395,P22)
p(1.3192187342296093,1.4176972300885047,P23)
p(3.7392934393822204,-1.1579691390890523,P24)
p(0.8135855366786462,-0.4944683719019659,P25)
p(2.764057471814362,-0.9368022166933568,P26)
p(3.0601392823267974,-1.8919648004892664,P27)
p(2.0849033147589395,-1.670797878093571,P28)
p(1.7888215042465045,-0.7156352942976616,P29)
p(1.109667347191082,-1.4496309556978755,P30)
p(0.13443137962322416,-1.2284640333021808,P31)
nolabel()
p(3.97568915334599,-1.4897603329895381,P32)
p(1.3026949775304657,-2.851781674986896,P33)
p(3.0846910947408155,-1.9437674469886574,P34)
p(3.9233718182654975,-2.4883908434637956,P35)
p(3.032373759660323,-2.9423979574629144,P36)
p(2.1936930361356404,-2.3977745609877763,P37)
p(2.1413757010551473,-3.3964050714620333,P38)
p(4.60252597532092,-1.7543951820635808,P39)
p(2.79777138532359,-4.150821869839271,P40)
p(4.000941111988477,-2.553204077988811,P41)
p(4.993522340294948,-2.6747874042042823,P42)
p(4.391937476962504,-3.473596300129512,P43)
p(3.399356248656033,-3.352012973914041,P44)
p(3.7903526136300605,-4.272405196054742,P45)
p(3.1887677502976173,-5.0712140919799715,P46)
p(5.04583967537544,-1.676156893730025,P47)
p(5.149003639654519,-4.6743825684373554,P48)
p(5.080227663468467,-2.675565451965802,P49)
p(5.928546869613716,-2.146080301574316,P50)
p(5.962934857706742,-3.145488859810093,P51)
p(5.1146156515614924,-3.674974010201579,P52)
label()
p(5.997322845799768,-4.14489741804587,P53)
p(5.537550504639688,-1.2256880794336154,P54)
p(6.958216630606972,-3.8679802204598697,P55)
p(6.011105879962116,-2.106452126442367,P56)
p(6.5370922317504725,-1.255959117810094,P57)
p(7.0106476070729,-2.136723164818845,P58)
p(6.484661255284545,-2.987216173451118,P59)
p(7.484202982395328,-3.0174872118275964,P60)
p(7.957758357717756,-3.898251258836348,P61)
p(5.654385037512197,-0.7860357099658017,P62)
p(6.5370930519201975,-1.2559575771946911,P63)
p(6.502703319530234,-0.2565490789787981,P64)
p(7.385411333938234,-0.7264709462076873,P65)
p(7.419801066328198,-1.72587944442358,P66)
p(8.268119348346232,-1.1963928134365767,P67)
p(8.302509080736197,-2.195801311652469,P68)
p(5.503161592419449,-0.22627804060231999,P69)
p(8.503161009275937,-0.22440751641433906,P70)
p(6.503161398038278,-0.22565453253965967,P71)
p(6.002621521407136,0.6400589488744168,P72)
p(7.002621327025965,0.6406824569370773,P73)
p(7.503161203657108,-0.22503102447699924,P74)
p(8.002621132644794,0.6413059649997376,P75)
p(9.002620938263624,0.6419294730623974,P76)
p(5.154303239389099,0.11057231788741248,P77)
p(5.154303239389099,1.1105723178874123,P78)
p(6.0203286431735386,0.610572317887413,P79)
p(6.020328643173538,1.6105723178874127,P80)
p(6.886354046957976,1.1105723178874132,P81)
p(6.886354046957976,2.1105723178874127,P82)
p(7.7523794507424135,1.6105723178874134,P83)
p(7.752379450742413,2.6105723178874127,P84)
p(8.618404854526851,2.1105723178874136,P85)
p(8.618404854526851,3.110572317887413,P86)
p(9.484430258311288,2.6105723178874136,P87)
p(9.484430258311288,3.610572317887413,P88)
p(6.135572488424452,3.945552152189166,P89)
p(6.636112365055595,3.0798386707750876,P90)
nolabel()
s(P1,P2) s(P11,P2)
s(P1,P3)
s(P1,P4) s(P3,P4)
s(P4,P5) s(P3,P5)
s(P5,P6) s(P3,P6)
s(P5,P7) s(P6,P7)
s(P7,P8) s(P6,P8)
s(P7,P9) s(P8,P9)
s(P8,P10)
s(P10,P11)
s(P11,P12) s(P2,P12) s(P13,P12)
s(P10,P13) s(P11,P13)
s(P10,P14) s(P13,P14)
s(P12,P15) s(P2,P15)
s(P15,P16) s(P1,P16)
s(P16,P17) s(P4,P17)
s(P17,P18)
s(P17,P19) s(P18,P19)
s(P19,P20) s(P18,P20)
s(P20,P21) s(P18,P21)
s(P20,P22) s(P21,P22)
s(P22,P23) s(P21,P23)
s(P16,P24) s(P19,P24) s(P26,P24)
s(P22,P25) s(P30,P25) s(P29,P25)
s(P24,P27) s(P26,P27)
s(P27,P28) s(P26,P28)
s(P28,P29) s(P26,P29)
s(P28,P30) s(P29,P30)
s(P30,P31) s(P25,P31)
s(P16,P32) s(P27,P32) s(P34,P32)
s(P38,P33) s(P37,P33)
s(P32,P35) s(P34,P35)
s(P35,P36) s(P34,P36)
s(P36,P37) s(P34,P37)
s(P36,P38) s(P37,P38)
s(P16,P39) s(P35,P39) s(P41,P39)
s(P38,P40)
s(P39,P42) s(P41,P42)
s(P42,P43) s(P41,P43)
s(P43,P44) s(P41,P44) s(P40,P44)
s(P43,P45) s(P44,P45) s(P40,P45)
s(P45,P46) s(P40,P46)
s(P16,P47) s(P42,P47) s(P49,P47)
s(P47,P50) s(P49,P50)
s(P50,P51) s(P49,P51)
s(P51,P52) s(P49,P52) s(P48,P52)
s(P51,P53) s(P52,P53) s(P48,P53)
s(P16,P54) s(P50,P54) s(P56,P54)
s(P53,P55)
s(P54,P57) s(P56,P57)
s(P57,P58) s(P56,P58)
s(P58,P59) s(P56,P59) s(P55,P59)
s(P58,P60) s(P59,P60) s(P55,P60)
s(P60,P61) s(P55,P61)
s(P16,P62) s(P57,P62)
s(P62,P63)
s(P62,P64) s(P63,P64)
s(P64,P65) s(P63,P65)
s(P65,P66) s(P63,P66)
s(P65,P67) s(P66,P67)
s(P67,P68) s(P66,P68)
s(P16,P69) s(P64,P69) s(P71,P69)
s(P67,P70)
s(P69,P72) s(P71,P72)
s(P72,P73) s(P71,P73)
s(P73,P74) s(P71,P74) s(P70,P74)
s(P73,P75) s(P74,P75) s(P70,P75)
s(P75,P76) s(P70,P76)
s(P16,P77) s(P72,P77)
s(P15,P78) s(P77,P78)
s(P78,P79) s(P77,P79)
s(P78,P80) s(P79,P80)
s(P80,P81) s(P79,P81)
s(P80,P82) s(P81,P82)
s(P82,P83) s(P81,P83)
s(P82,P84) s(P83,P84)
s(P84,P85) s(P83,P85)
s(P84,P86) s(P85,P86)
s(P86,P87) s(P85,P87)
s(P86,P88) s(P87,P88)
s(P90,P89)
color(blue) pen(2)
s(P1,P2) m(P2,P1,MA10) m(P1,P3,MB10) f(P1,MA10,MB10)
color(green) pen(2)
s(P17,P4) m(P17,P4,MA11) m(P17,P18,MB11) f(P17,MA11,MB11)
color(red) pen(2)
s(P89,P14) abstand(P89,P14,A0) print(abs(P89,P14):,1,5.9) print(A0,2.3,5.9)
s(P90,P14) abstand(P90,P14,A1) print(abs(P90,P14):,1,5.6) print(A1,2.3,5.6)
\geooff
\geoprint()
Im "Mini-"Graph #338 ist auch der untere Teil beweglich, weil die Kante P13-P22 fehlt. P17 kann deswegen nach rechts ausweichen. P1 bis P5 werden fest vorgegeben, daran schließen sich einfach beweglich P6 bis P26 an. Danach folgen extra beweglich P27 und alle weiteren Punkte bis P59. Wegen der zweifachen Beweglichkeit könnte man 2 Kanten justieren, doch es fehlen noch 5 Kanten. Der Variationsbereich ist aber so gering, dass auch nicht 2 Kanten justiert werden können.
\geo
ebene(500,625)
x(0,8.4)
y(0,10.5)
form(.)
#Eingabe war:
#//blauerWinkel=15.52248
#//338; blauerWinkel=15.52248, gruenerWinkel=15.52249
#D=50; P[1]=[0,0]; P[2]=[D,0]; A(2,1); L(3,1,2); L(4,1,3); L(5,1,4); M(6,5,4,blauerWinkel,2); N(10,6,4); N(11,8,10); N(12,9,11); L(13,11,10); L(14,9,12); L(15,14,12); L(16,14,15); N(17,13,3); N(18,17,2); L(19,18,2); L(20,18,19); L(21,20,19); N(22,17,20); N(23,22,21); L(24,23,21); L(25,23,24); L(26,25,24);
#
#M(27,16,15,gruenerWinkel); L(28,16,27); L(29,28,27); L(30,28,29); N(31,27,15); N(32,29,31); N(33,30,32); L(34,30,33); L(35,34,33); L(36,34,35); N(37,35,32); N(38,36,37); L(39,36,38); L(40,39,38); L(41,39,40); N(42,40,37);
#
#N(43,31,13); N(44,43,22); N(45,44,25); L(46,43,44); N(47,45,26); L(48,47,26); L(49,47,48); L(50,49,48); N(51,45,49); N(52,51,50); L(53,52,50); L(54,52,53); L(55,54,53); N(56,51,54); N(57,56,55); L(58,57,55); L(59,57,58);
#
#R(41,58); R(41,59); R(46,56); R(46,42); R(42,59);
#
#Ende der Eingabe, weiter mit fedgeo:
p(4,0,P1)
p(5,0,P2)
p(4.5,0.8660254037844386,P3)
p(3.5,0.8660254037844386,P4)
p(3,0,P5)
p(3.250000132050576,0.9682458024565325,P6)
p(2.2864746039902815,0.7006293665335293,P7)
p(2.5364747360408577,1.6688751689900618,P8)
p(1.572949207980563,1.4012587330670585,P9)
p(3.750000132050576,1.8342712062409712,P10)
p(3.0364747360408577,2.5349005727745006,P11)
p(2.072949207980563,2.267284136851497,P12)
p(4.000000264101152,2.802517008697504,P13)
p(1.072949207980563,2.2672841368514973,P14)
p(1.5729492079805634,3.133309540635936,P15)
p(0.5729492079805629,3.133309540635936,P16)
p(4.250351980629548,1.8343620531086344,P17)
p(4.750351980629548,0.9683366493241958,P18)
p(5.713780128045031,0.7003698514413788,P19)
p(5.46413210867458,1.6687065007655746,P20)
p(6.427560256090063,1.4007397028827575,P21)
p(4.96413210867458,2.5347319045500134,P22)
p(5.927560256090062,2.2667651066671963,P23)
p(6.927560256090063,2.2667651066671963,P24)
p(6.427560256090063,3.132790510451635,P25)
p(7.427560256090063,3.1327905104516343,P26)
p(1.5364746893329633,3.400926144725864,P27)
p(0.8229491710403631,4.101555386725708,P28)
p(1.7864746523927635,4.3691719908156355,P29)
p(1.072949134100163,5.06980123281548,P30)
p(2.5364746893329633,3.4009261447258656,P31)
p(2.7864746523927635,4.369171990815637,P32)
p(2.0729491341001633,5.069801232815481,P33)
p(1.5729491341001625,5.935826636599919,P34)
p(2.5729491341001625,5.93582663659992,P35)
p(2.0729491341001616,6.801852040384359,P36)
p(3.286474652392763,5.235197394600076,P37)
p(2.7864746523927595,6.101222798384513,P38)
p(3.036474615452563,7.069468644474283,P39)
p(3.75000013374516,6.368839402474438,P40)
p(4.000000096804962,7.337085248564208,P41)
p(4.250000133745164,5.502813998690002,P42)
p(3.500000264101125,3.668542412481927,P43)
p(4.463353792933198,3.4003074809633187,P44)
p(5.4633509734892,3.3979328483502247,P45)
p(4.213975293394655,4.3687135755165825,P46)
p(6.463350973489199,3.3979328483502234,P47)
p(7.175075615028606,4.100391412698046,P48)
p(6.210866332427743,4.365533750596635,P49)
p(6.922590973967151,5.067992314944457,P50)
p(5.210866332427743,4.365533750596635,P51)
p(5.922590973967151,5.067992314944457,P52)
p(6.422590973967151,5.934017718728895,P53)
p(5.422590973967151,5.934017718728894,P54)
p(5.92259097396715,6.800043122513333,P55)
p(4.710866332427743,5.231559154381073,P56)
p(5.210866332427743,6.097584558165511,P57)
p(4.958381691366287,7.065185460411921,P58)
p(4.246657049826881,6.362726896064098,P59)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P1,P4) s(P3,P4)
s(P1,P5) s(P4,P5)
s(P5,P6)
s(P5,P7) s(P6,P7)
s(P7,P8) s(P6,P8)
s(P7,P9) s(P8,P9)
s(P6,P10) s(P4,P10)
s(P8,P11) s(P10,P11)
s(P9,P12) s(P11,P12)
s(P11,P13) s(P10,P13)
s(P9,P14) s(P12,P14)
s(P14,P15) s(P12,P15)
s(P14,P16) s(P15,P16)
s(P13,P17) s(P3,P17)
s(P17,P18) s(P2,P18)
s(P18,P19) s(P2,P19)
s(P18,P20) s(P19,P20)
s(P20,P21) s(P19,P21)
s(P17,P22) s(P20,P22)
s(P22,P23) s(P21,P23)
s(P23,P24) s(P21,P24)
s(P23,P25) s(P24,P25)
s(P25,P26) s(P24,P26)
s(P16,P27)
s(P16,P28) s(P27,P28)
s(P28,P29) s(P27,P29)
s(P28,P30) s(P29,P30)
s(P27,P31) s(P15,P31)
s(P29,P32) s(P31,P32)
s(P30,P33) s(P32,P33)
s(P30,P34) s(P33,P34)
s(P34,P35) s(P33,P35)
s(P34,P36) s(P35,P36)
s(P35,P37) s(P32,P37)
s(P36,P38) s(P37,P38)
s(P36,P39) s(P38,P39)
s(P39,P40) s(P38,P40)
s(P39,P41) s(P40,P41)
s(P40,P42) s(P37,P42)
s(P31,P43) s(P13,P43)
s(P43,P44) s(P22,P44)
s(P44,P45) s(P25,P45)
s(P43,P46) s(P44,P46)
s(P45,P47) s(P26,P47)
s(P47,P48) s(P26,P48)
s(P47,P49) s(P48,P49)
s(P49,P50) s(P48,P50)
s(P45,P51) s(P49,P51)
s(P51,P52) s(P50,P52)
s(P52,P53) s(P50,P53)
s(P52,P54) s(P53,P54)
s(P54,P55) s(P53,P55)
s(P51,P56) s(P54,P56)
s(P56,P57) s(P55,P57)
s(P57,P58) s(P55,P58)
s(P57,P59) s(P58,P59)
color(blue) pen(2)
s(P5,P4) m(P4,P5,MA10) m(P5,P6,MB10) f(P5,MA10,MB10)
color(green) pen(2)
s(P16,P15) m(P16,P15,MA11) m(P16,P27,MB11) f(P16,MA11,MB11)
color(red) pen(2)
s(P41,P58) abstand(P41,P58,A0) print(abs(P41,P58):,1,9.9) print(A0,2.3,9.9)
s(P41,P59) abstand(P41,P59,A1) print(abs(P41,P59):,1,9.6) print(A1,2.3,9.6)
s(P46,P56) abstand(P46,P56,A2) print(abs(P46,P56):,1,9.3) print(A2,2.3,9.3)
s(P46,P42) abstand(P46,P42,A3) print(abs(P46,P42):,1,9) print(A3,2.3,9)
s(P42,P59) abstand(P42,P59,A4) print(abs(P42,P59):,1,8.7) print(A4,2.3,8.7)
\geooff
\geoprint()
Dann habe ich noch #344 geschafft, der Graph ist bereits ohne blaue Kante unbeweglich.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.357, vom Themenstarter, eingetragen 2016-06-18
|
Hi Stefan! Wie immer zuerst mein großer Dank für deine Mühen.
In den verlinkten Programmversionen sehe ich keine Graphen so wie in den ersten aus deinem Notizbuch. Muss ich da noch irgendetwas "starten"?
Habe ich es richtig verstanden, dass alle vier Graphen aus #326 nicht möglich sind?
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4328
Wohnort: Raun
| Beitrag No.358, eingetragen 2016-06-18
|
Mein Ergebnis zu allen #326 war "nicht möglich", aufgeteilt in Beitrag No.336, 341 und 356.
Beide Programmversionen 212 und 326 starten bei mir nach dem Download von alleine, dann erscheint als Eingabebeispiel der fertige Graph, ohne dass noch etwas eingegeben werden muss. Ich kann dann mit Button "+0.1" den blauen Winkel variieren und mit Button "Feinjustieren" den Winkel automatisch anpassen, so dass die zuerst gemessene Kante ganzzahlig wird. Mit den Pfeiltasten kann ich den Graph verschieben, dass der benötigte Ausschnitt sichtbar wird. Im Eingabefenster kann ich die eine odere andere Kante ergänzen oder verändern. Werden wenigstens die Buttons und das Eingabefenster angezeigt? Wenn nur der Graph fehlt, das passiert immer, wenn ich im Programm einen Fehler habe oder wenn im Eingabefenster unzulässige Eingaben sind. Kannst du das Downloadfile in einem Texteditor öffnen? Dann könnte ich per PN einige vereinfachte Testversionen zum Austauschen schicken, um den Fehler ausfindig zu machen.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9212
Wohnort: Pferdehof
| Beitrag No.359, vom Themenstarter, eingetragen 2016-06-18
|
Es wird nur der Graph nicht angezeigt. Ja, öffnen im Texteditor geht.
Dann werde ich jetzt den Graph aus #323 (Bodybuilder) zeichnen und offiziell bekannt geben.
\quoteon(2016-06-06 05:44 - StefanVogel in Beitrag No. 324)
und der Bodybilder #323-4 bei etwa
Winkel P2-P1-P3=30.425°
Winkel P3-P1-P6=43.87463345183617°
\quoteoff
Könntest du noch ein paar Winkel des 11er-Knotens angeben? Der Anfang geht, aber dann komme ich nicht weiter.
http://www.matheplanet.de/matheplanet/nuke/html/uploads/a/8038_winkel_11er_neu_811.png
|
Profil
|
|
Home / Seite ohne Frame
2023-11-29 20:23 ?
Wie unterstütze ich den Matheplaneten mit Geld?
