| |
| Autor |
 Streichholzgraphen 4-regulär und 4/n-regulär (n>4) und 2/5 |
|
StefanVogel
Senior 
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
 |  Beitrag No.1240, eingetragen 2018-05-27
|
#1152 war auch noch nicht eingegeben, starr und zwei zu kurze Kanten. Mit dem blauen Winkel in P1 wird Kante P16-P24 auf 1 eingestellt, P16-P53 und P25-P44 bleiben übrig.
\geo
ebene(410.25,479.16)
x(7.53,14.45)
y(10.15,18.22)
form(.)
#//Eingabe war:
#
##1152
#
#
#
#
#P[1]=[-144,105]; P[2]=[-94,73]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#L(5,4,2); L(6,4,5); L(7,6,5); M(8,1,3,blauerWinkel,2); L(12,10,8); N(13,12,3);
#N(14,13,6); L(15,13,14); L(16,15,14); N(17,12,15); N(18,17,11); L(19,11,18);
#L(20,19,18); L(21,19,20); L(22,21,20); L(23,21,22); N(24,22,17); RA(24,16);
#Q(25,23,24,ab(12,1,[8,12]),D); A(7,29,ab(29,7,[1,29])); RA(16,53); RA(44,25);
#
#
#
#
#
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(7.574258366094847,11.768769941389174,P1)
p(8.416529766756359,11.229716244965807,P2)
p(8.462228261532143,12.22867152303146,P3)
p(9.304499662193654,11.689617826608092,P4)
p(9.25880116741787,10.69066254854244,P5)
p(10.146771062855166,11.150564130184726,P6)
p(10.101072568079381,10.151608852119073,P7)
p(8.430264028161831,12.285736387601366,P8)
p(7.554555121804419,12.768575813628596,P9)
p(8.410560783871402,13.285542259840788,P10)
p(7.53485187751399,13.768381685868018,P11)
p(9.286269690228815,12.80270283381356,P12)
p(9.368555055689265,11.806094024585466,P13)
p(10.312299717739615,12.136769111115235,P14)
p(9.554054361381043,12.788738419871914,P15)
p(10.497799023431392,13.119413506401683,P16)
p(9.471768995920591,13.785347229100008,P17)
p(8.505491620023758,13.527843767317592,P18)
p(8.228483696806975,14.48871140152905,P19)
p(9.199123439316743,14.248173482978624,P20)
p(8.92211551609996,15.209041117190083,P21)
p(9.892755258609728,14.968503198639656,P22)
p(9.615747335392946,15.929370832851113,P23)
p(10.415513657970942,14.116022315629777,P24)
p(11.21059253971025,14.722528351718594,P25)
p(10.413169937551597,15.325949592284854,P26)
p(10.537036759985773,16.31824844358927,P27)
p(11.334459362144425,15.71482720302301,P28)
p(11.4583261845786,16.707126054327425,P29)
p(13.985140386563135,15.089964965057323,P30)
p(13.142868985901625,15.62901866148069,P31)
p(13.097170491125839,14.630063383415035,P32)
p(12.254899090464328,15.169117079838404,P33)
p(12.30059758524011,16.16807235790406,P34)
p(11.412627689802777,15.708170776261777,P35)
p(13.12913472449615,14.572998518845129,P36)
p(14.004843630853564,14.090159092817899,P37)
p(13.14883796878658,13.573192646605706,P38)
p(14.024546875143994,13.090353220578478,P39)
p(12.273129062429165,14.056032072632938,P40)
p(12.190843696968713,15.05264088186103,P41)
p(11.247099034918339,14.721965795331268,P42)
p(12.005344391276939,14.069996486574583,P43)
p(11.061599729226575,13.739321400044815,P44)
p(12.087629756737392,13.073387677346489,P45)
p(13.053907132634224,13.330891139128903,P46)
p(13.330915055851007,12.370023504917446,P47)
p(12.360275313341237,12.610561423467873,P48)
p(12.637283236558021,11.649693789256414,P49)
p(11.666643494048255,11.89023170780684,P50)
p(11.943651417265038,10.929364073595384,P51)
p(11.14388509468704,12.74271259081672,P52)
p(10.348806212947732,12.136206554727902,P53)
p(11.146228815106383,11.532785314161641,P54)
p(11.02236199267221,10.540486462857228,P55)
p(10.224939390513557,11.143907703423487,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(P55,P7) s(P56,P7)
s(P1,P8)
s(P1,P9) s(P8,P9)
s(P9,P10) s(P8,P10)
s(P9,P11) s(P10,P11)
s(P10,P12) s(P8,P12)
s(P12,P13) s(P3,P13)
s(P13,P14) s(P6,P14)
s(P13,P15) s(P14,P15)
s(P15,P16) s(P14,P16) s(P53,P16)
s(P12,P17) s(P15,P17)
s(P17,P18) s(P11,P18)
s(P11,P19) s(P18,P19)
s(P19,P20) s(P18,P20)
s(P19,P21) s(P20,P21)
s(P21,P22) s(P20,P22)
s(P21,P23) s(P22,P23)
s(P22,P24) s(P17,P24) s(P16,P24)
s(P26,P25) s(P28,P25) s(P24,P25)
s(P23,P26)
s(P23,P27) s(P26,P27)
s(P26,P28) s(P27,P28)
s(P27,P29) s(P28,P29) s(P34,P29) s(P35,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(P41,P43) s(P42,P43)
s(P42,P44) s(P43,P44) s(P25,P44)
s(P40,P45) s(P43,P45)
s(P39,P46) s(P45,P46)
s(P39,P47) s(P46,P47)
s(P46,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P48,P50) s(P49,P50)
s(P49,P51) s(P50,P51)
s(P44,P52) s(P45,P52) s(P50,P52)
s(P52,P53) s(P54,P53) s(P56,P53)
s(P51,P54)
s(P51,P55) s(P54,P55)
s(P54,P56) s(P55,P56)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P8,MB10) f(P1,MA10,MB10)
pen(2)
color(red) s(P24,P16) abstand(P24,P16,A0) print(abs(P24,P16):,7.53,18.223) print(A0,8.63,18.223)
color(red) s(P16,P53) abstand(P16,P53,A1) print(abs(P16,P53):,7.53,17.971) print(A1,8.63,17.971)
color(red) s(P44,P25) abstand(P44,P25,A2) print(abs(P44,P25):,7.53,17.718) print(A2,8.63,17.718)
print(min=0.9944318817271839,7.53,17.465)
print(max=1.0000000000000357,7.53,17.212)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
|
 Profil
|
Slash
Aktiv 
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
 | Beitrag No.1241, vom Themenstarter, eingetragen 2018-05-28
|
Vielleicht nichts von besonderer Bedeutung.
Es gibt im aktuellen 4-Farb-Graphen nur einen Kreis um den Mittelpunkt auf dem alle vier Farben liegen. Dieser geht durch den unteren der beiden mittleren roten Knoten in den 6 roten Außenbereichen aus je 8 roten Knoten.
Der kleinste Kreis indem alle vier Farben liegen besitzt einen Radius von ca. 0,271 und liegt an der roten Grenze in der Mitte jeweils oben und unten.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1242, vom Themenstarter, eingetragen 2018-05-28
|
Der könnte es sein, aber ich muss einige Kanten entfernen um Klarheit reinzubringen. Es ist der alte Graph mit zusätzlichen Knoten plus gedreht (schwarz) mit Knotenüberlagerung auf dem Kreis mit den vier Farben.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-neu_dreh_.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1243, eingetragen 2018-05-29
|
slash, beschreib doch mal deine strategie in worten, was du wie (ver-)suchst
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1244, vom Themenstarter, eingetragen 2018-05-29
|
\quoteon(2018-05-29 09:39 - haribo in Beitrag No. 1243)
slash, beschreib doch mal deine strategie in worten, was du wie (ver-)suchst
\quoteoff
Die einzig wirkungsvolle Methode viele neue Kanten zu bekommen ist, gleichseitige Dreiecke an vorhandene Kanten zu setzen oder den Graph um einen Knoten zu drehen und mit Knoten zu überlagern, also eine Kopie des Graphen gedreht auf den alten Graphen setzen. Man kann natürlich auch Teilgraphen, z.B. Moser-Spindeln (MoSp) auf den alten Graphen setzen, was aber viel mehr Arbeit ist, und der Graph ja so schon auf MoSp aufbaut.
Durch die letzte Drehung konnte ich erreichen, dass neue Knoten genau in den Zwischenbereichen liegen, die für den alten Graphen eine fünfte Farbe benötigen, also alle vier Farbbereiche berühren. Jetzt suche ich unter den neuen Knoten erstmal die, die zwingend eine vierte Farbe benötigen (erst 12 gefunden), und hoffe so später einen neuen Knoten zu finden, der eine fünfte Farbe braucht. Vorausgesetzt wird also, dass sich der alten nicht mehr (groß) umfärben lässt, was aber wohl der Fall ist.
Wenn die neuen Knoten zu wenig alte Knoten mit Abstand 1 besitzen, dann könnten sie natürlich auch in den alten Farbbereichen anders gefärbt werden.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1245, vom Themenstarter, eingetragen 2018-05-29
|
Also den ersten Test hat der neue Graph bestanden. Färbt man die Knoten, die in großen Farbbereichen liegen entsprechend gleich, dann gibt es einen Kreis auf dem zwingend fünffärbbare Knoten liegen. Das muss aber noch nichts bedeuten.
Weiteres Problem: Sollte der Graph 5 Farben benötigen, lässt sich das wohl kaum beweisen. Dazu ist er zu groß und zu kompliziert aufgebaut.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1246, eingetragen 2018-05-30
|
Durch spiegeln über beliebige Punkte gibt es möglicherweise unendliche dichte???. Da werden die Lücken , so es noch welche gibt, langsam interessanter als die gefundenen Punkte.
Aber am Ende läuft es wohl doch auf die kachelungsfrage hinaus: kann man eine hintergrundkachelung finden welche mit 6 Farben alles absichert. Nach 5 zu suchen macht IMO erst Sinn wenn 6 gefunden wäre
Ich habe eine 6 farbige kachelung welche bis auf 0,37 promill kleine karo- zwickel alles absichert
den zwickelflächenanteil aus #1222 #1224 hab ich noch nicht ermittelt, der dürfte aber auch so in dem bereich liegen
Nach deiner suchmethode “möglichst viele Punkte“ müsstest du also einen maximalen punktabstand von ca. <0.015 überall garantieren um nachzuweisen dass immer ein Punkt im Zwickel liegt! im moment kannst du noch einen kreis mit ca. d=0,2 in eine lücke fügen, es müsste noch grössenordnungsmässig 12x dichter werden. Das is mit deiner strichstärke derzeit kaum darzustellen,
warscheinlich meine ich mit "maximalem punktabstand" den durchmesser des grössten noch einfügbaren lücken-kreises, weiss auch nicht genau wie besser ausdrücken???
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb3.PNGdie kleinen kreise in den farbflächen sind nur der zeichenkonstruktion geschuldet und haben sonst keine bedeutung
die gelbe linie gibt den wirkungsbereich an innerhalb dessen keine gleichfarbige fläche liegen darf
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb3d.PNG
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb3dd.PNG
mein derzeitiges ziel wäre: diesen zwickel-flächen-anteil weiter zu minimieren...
na ja, du bist ja auch noch nicht auf der suche nach der 6. farbe sondern erstnoch auf der sicheren suche nach der 5. farbe da sind die erforderlichen punktdichten natürlich erheblich grösser, aber auch dort könnte man mal die beste 5-farb kachelung mit den kleinsten zwickelflächen suchen... um den erforderlichen maximalen punktabstand zu definieren
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1247, eingetragen 2018-05-30
|
\quoteon(2018-05-30 07:29 - haribo in Beitrag No. 1246)
... auf der sicheren suche nach der 5. farbe da sind die erforderlichen punktdichten natürlich erheblich grösser, aber auch dort könnte man mal die beste 5-farb kachelung mit den kleinsten zwickelflächen suchen... um den erforderlichen maximalen punktabstand zu definieren
\quoteoff
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-fuenffarb1.PNG
ein erster versuch:
unerwartet kompliziert geworden die fünffarb-kachelung, und nur ne abdeckung von ca 0.85
da gibts sicher noch was zu verbessern
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1248, vom Themenstarter, eingetragen 2018-05-31
|
Graph mit 61 Knoten
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_Winkler-Graph-61v.png
Bis jetzt keine 4-Farb-Lösung gefunden. In der Mitte wird es ein wenig eng. Jeder Knoten dort hat 6 Kanten.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1249, eingetragen 2018-05-31
|
\quoteon(2018-05-31 02:18 - Slash in Beitrag No. 1248)
Bis jetzt keine 4-Farb-Lösung gefunden. In der Mitte wird es ein wenig eng. Jeder Knoten dort hat 6 Kanten.
\quoteoff
das schiebt sich, bis auf geringe änderungen im randbereich, auf die symetrische vierfarb-vorlage #1220
kein knoten in den schwarzen flächen... vierfarbig! oder?
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb14.png
mit kleinen vertauschungen geht sogar noch ne quasi doppelte symetrie
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb15.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1250, vom Themenstarter, eingetragen 2018-05-31
|
Also doch so einfach. Ich sollte wohl nicht mehr versuchen Graphen kurz vor dem Zubettgehen zu färben. :-P
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1251, vom Themenstarter, eingetragen 2018-06-01
|
@ Stefan
Könntest du für den MGC eine Moser-Spindel als Teilgraph programmieren? Dann könnten wir mal mit der Beweglichkeit experimentieren. :-)
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1252, eingetragen 2018-06-01
|
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb3.PNG
was mir gerade auffält:
die zwickelflächen untereinander sind nicht mit der länge 1 zu erreichen
das bedeutet sie könnten alle mit einer 7. farbe belegt werden, und damit ist das eine wunderbare anordnung für die obere siebener grenze, die standartmässig ja mit gleichgrossen sechseckwaben dargestellt wird
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1253, vom Themenstarter, eingetragen 2018-06-01
|
Hast du eine Idee für einen Graphen, oder ist das bisher mehr theoretisch?
Beschreibe bitte einmal genau die Konstruktion des gelben 7-Ecks in #1246, damit ich es nachzeichnen kann.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1254, eingetragen 2018-06-01
|
\quoteon(2018-06-01 19:03 - Slash in Beitrag No. 1253)
Beschreibe bitte einmal genau die Konstruktion des gelben 7-Ecks in #1246, damit ich es nachzeichnen kann.
\quoteoff
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb4.PNG
das haus vom nikolaus:
-rechteck 0,6 / 0,8
-zwei kreise r=1 um die unteren ecken ergeben den first des hauses
-kreis r=1 um den first ergibt eine bodenabsenkungs möglichkeit, als erweiterung im bereich des kreissegments
-der boden wird 0,008 tiefer gelegt und hat dann seitlich die zwickelanteile
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-sechsfarb4d.PNG
das exakte tieferlegen des boden ergibt sich aus dieser zeichnung:
- ordnet man die unteren zwei hauszeilen derart an wie im linken bildteil dann gibt es einen abstand <1 zwischen den gelben häusern
- drum ziehe ich die unteren beiden hauszeilen soweit runter bis der abstand 1 ist, der kreis das untere gelbe dach also nur noch tangiert und nicht mehr schneidet und fülle die entstandene spalte(b=0,016), im rechten bildteil dargestellt jeweils mit zur hälfte von oben (gelbes haus) und zur hälfte von unten (blaues haus) mit der bodenabsenkung-segment-abschnitt aus dem oberen bild... es ist also gar kein 7-eck, denn die kurzen abschnitte sind kreisbögen um den first...
ok?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1255, vom Themenstarter, eingetragen 2018-06-01
|
Ja, danke. Ich denke, das kriege ich hin. :-)
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1256, eingetragen 2018-06-02
|
\quoteon(2018-06-01 01:13 - Slash in Beitrag No. 1251)
@ Stefan
Könntest du für den MGC eine Moser-Spindel als Teilgraph programmieren? Dann könnten wir mal mit der Beweglichkeit experimentieren. :-)
\quoteoff
Bitteschön :-)
\geo
ebene(103.1,122.54)
x(9.94,12)
y(10,12.45)
form(.)
#//Eingabe war:
#
#Anfang für einen neuen, noch unbenannten Streichholzgraph
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D);
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P6,P5) s(P7,P5) s(P4,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
pen(2)
pen(2)
print(min=0.9999999999999997,9.94,12.451)
print(max=1,9.94,12.151)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Ausgehend vom inneren Seckseck
\geo
ebene(125,131.6)
x(9,11.5)
y(12.73,15.37)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7);
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
nolabel()
s(P1,P2) s(P7,P2)
s(P1,P3) s(P2,P3)
s(P1,P4) s(P3,P4)
s(P1,P5) s(P4,P5)
s(P1,P6) s(P5,P6)
s(P1,P7) s(P6,P7)
pen(2)
pen(2)
print(min=0.9999999999999993,9,15.366)
print(max=1,9,15.066)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
geht das in einem Eingabeschritt
\geo
ebene(125,214.52)
x(9,11.5)
y(11.08,15.37)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
nolabel()
s(P1,P2) s(P7,P2)
s(P1,P3) s(P2,P3)
s(P1,P4) s(P3,P4)
s(P1,P5) s(P4,P5)
s(P1,P6) s(P5,P6) s(P11,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
pen(2)
pen(2)
print(min=0.9999999999999991,9,15.366)
print(max=1.0000000000000002,9,15.066)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
und dann kann man den Teilgraph von P6 bis P12 an die gewünschte Stellen kopieren
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Hier der #1248
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,3,2,ab(3,5,1,4),ab(2,6,1,7));
#Q(13,4,3,ab(3,5,1,4),ab(2,6,1,7));Q(18,5,4,ab(3,5,1,4),ab(2,6,1,7));
#Q(23,6,5,ab(3,5,1,4),ab(2,6,1,7)); Q(28,7,6,ab(3,5,1,4),ab(2,6,1,7));
#Q(33,2,7,ab(3,5,1,4),ab(2,6,1,7)); A(11,17); A(9,35); A(12,36); A(34,30);
#A(37,31); A(29,25); A(32,26); A(24,20); A(27,21); A(19,15); A(22,16); A(14,10);
#A(2,14,ab(2,4,1,3)); A(2,31,ab(2,4,1,3)); A(3,19,ab(2,4,1,3));
#A(3,36,ab(2,4,1,3)); A(4,24,ab(2,4,1,3)); A(4,11,ab(2,4,1,3));
#A(5,29,ab(2,4,1,3)); A(5,16,ab(2,4,1,3)); A(6,34,ab(2,4,1,3));
#A(6,21,ab(2,4,1,3)); A(7,9,ab(2,4,1,3)); A(7,26,ab(2,4,1,3));A(54,38);
#A(54,46); A(46,38); A(49,41); A(41,57); A(57,49); A(58,50); A(50,42); A(42,58);
#A(45,61); A(61,53); A(53,45);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
nolabel()
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(12.186140661634507,14.86216889948107,P8)
p(11.457427107756338,14.177350269189626,P9)
p(11.228713553878169,15.150844034075881,P10)
p(11.228713553878169,14.573493764886257,P11)
p(11.957427107756338,13.888675134594815,P12)
p(10,16.124337798962138,P13)
p(10.228713553878169,15.150844034075881,P14)
p(9.271286446121831,15.439519168670694,P15)
p(9.771286446121831,15.150844034075881,P16)
p(10.728713553878169,15.439519168670696,P17)
p(7.813859338365493,14.862168899481068,P18)
p(8.771286446121831,14.573493764886255,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(7.813859338365493,12.33783110051893,P23)
p(8.542572892243662,13.022649730810373,P24)
p(8.771286446121831,12.049155965924118,P25)
p(8.771286446121831,12.626506235113744,P26)
p(8.042572892243662,13.311324865405187,P27)
p(10.000000000000002,11.075662201037861,P28)
p(9.771286446121831,12.049155965924118,P29)
p(10.72871355387817,11.760480831329307,P30)
p(10.22871355387817,12.049155965924118,P31)
p(9.271286446121833,11.760480831329305,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405187,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(10.166666666666666,14.152770798392567,P38)
p(11.062046887211501,14.598073235683316,P39)
p(11.062046887211503,12.601926764316685,P40)
p(10.166666666666666,13.047229201607433,P41)
p(9.604619779455165,14.02072296649369,P42)
p(9.666666666666666,15.018796202177004,P43)
p(11.395380220544837,14.02072296649369,P44)
p(10.562046887211503,13.467952168101123,P45)
p(9.437953112788497,13.467952168101123,P46)
p(8.604619779455165,14.02072296649369,P47)
p(10.333333333333334,15.018796202177004,P48)
p(10.395380220544835,14.02072296649369,P49)
p(9.833333333333334,13.047229201607433,P50)
p(8.937953112788499,12.601926764316685,P51)
p(8.937953112788499,14.598073235683316,P52)
p(9.833333333333334,14.152770798392567,P53)
p(10.395380220544835,13.17927703350631,P54)
p(10.333333333333334,12.181203797822995,P55)
p(8.604619779455165,13.17927703350631,P56)
p(9.437953112788497,13.732047831898878,P57)
p(10.562046887211503,13.732047831898878,P58)
p(11.395380220544835,13.179277033506311,P59)
p(9.666666666666668,12.181203797822995,P60)
p(9.604619779455165,13.179277033506311,P61)
nolabel()
s(P1,P2) s(P7,P2) s(P11,P2) s(P34,P2) s(P35,P2) s(P38,P2) s(P40,P2)
s(P1,P3) s(P2,P3) s(P9,P3) s(P10,P3) s(P16,P3) s(P42,P3) s(P44,P3)
s(P1,P4) s(P3,P4) s(P14,P4) s(P15,P4) s(P21,P4) s(P46,P4) s(P48,P4)
s(P1,P5) s(P4,P5) s(P19,P5) s(P20,P5) s(P26,P5) s(P50,P5) s(P52,P5)
s(P1,P6) s(P5,P6) s(P24,P6) s(P25,P6) s(P31,P6) s(P54,P6) s(P56,P6)
s(P1,P7) s(P6,P7) s(P29,P7) s(P30,P7) s(P36,P7) s(P58,P7) s(P60,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P35,P9) s(P58,P9) s(P59,P9)
s(P9,P10) s(P8,P10)
s(P17,P11) s(P48,P11) s(P49,P11)
s(P11,P12) s(P2,P12) s(P36,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P10,P14) s(P38,P14) s(P39,P14)
s(P14,P15) s(P13,P15)
s(P52,P16) s(P53,P16)
s(P16,P17) s(P3,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P15,P19) s(P42,P19) s(P43,P19)
s(P19,P20) s(P18,P20)
s(P56,P21) s(P57,P21)
s(P21,P22) s(P4,P22) s(P16,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P20,P24) s(P46,P24) s(P47,P24)
s(P24,P25) s(P23,P25)
s(P60,P26) s(P61,P26)
s(P26,P27) s(P5,P27) s(P21,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P25,P29) s(P50,P29) s(P51,P29)
s(P29,P30) s(P28,P30)
s(P40,P31) s(P41,P31)
s(P31,P32) s(P6,P32) s(P26,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P30,P34) s(P54,P34) s(P55,P34)
s(P34,P35) s(P33,P35)
s(P44,P36) s(P45,P36)
s(P36,P37) s(P7,P37) s(P31,P37)
s(P38,P39) s(P2,P39)
s(P40,P41) s(P2,P41) s(P57,P41)
s(P58,P42)
s(P42,P43) s(P3,P43)
s(P44,P45) s(P3,P45) s(P61,P45)
s(P38,P46)
s(P46,P47) s(P4,P47)
s(P48,P49) s(P4,P49) s(P41,P49)
s(P42,P50)
s(P50,P51) s(P5,P51)
s(P52,P53) s(P5,P53) s(P45,P53)
s(P38,P54) s(P46,P54)
s(P54,P55) s(P6,P55)
s(P56,P57) s(P6,P57) s(P49,P57)
s(P50,P58)
s(P58,P59) s(P7,P59)
s(P60,P61) s(P7,P61) s(P53,P61)
pen(2)
pen(2)
print(min=0.9999999999999984,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1257, vom Themenstarter, eingetragen 2018-06-02
|
\quoteon(2018-06-02 05:43 - StefanVogel in Beitrag No. 1256)
\quoteon(2018-06-01 01:13 - Slash in Beitrag No. 1251)
@ Stefan
Könntest du für den MGC eine Moser-Spindel als Teilgraph programmieren? Dann könnten wir mal mit der Beweglichkeit experimentieren. :-)
\quoteoff
Bitteschön :-)
\quoteoff
Besten Dank! Das verregnete Wochenende ist gerettet. :-)
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1258, eingetragen 2018-06-03
|
Na wenn das so ist (mit so wenig Aufwand kann man so viel retten), ich habe dann auch mal den zweiten Konstruktionsschritt von #1207-1
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
zu #1207-2 probiert. Mit dem Streichholzprogramm kann ich den gesamten Graph kopieren und so übereinanderlegen, dass die Kante P5-P1 des kopierten Graphen auf Kante P1-P2 des Ausgangsgraphen zu liegen kommt. Dabei werden automatisch auch die Knoten P5 und P1 aus dem kopierten Graph entfernt und dafür die Knoten P1 und P2 des Ausgangsgraphen weiterverwendet. Bei weiteren zusammenfallenden Knoten wie P4 auf P3 und P6 auf P7 wird das nicht zusammengefasst, das bleiben jeweils zwei Knoten auf einer Stelle.
\geo
ebene(293.61,297.43)
x(7.81,13.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); A(1,2,ab(5,1,[1,37]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(12,13.6,P38)
p(11.5,14.466025403784439,P39)
p(10.5,14.466025403784439,P40)
p(10.5,12.73397459621556,P41)
p(11.5,12.733974596215562,P42)
p(11.000000000000002,11.075662201037861,P43)
p(10.771286446121831,12.049155965924118,P44)
p(11.728713553878169,11.760480831329307,P45)
p(11.228713553878169,12.049155965924118,P46)
p(10.271286446121833,11.760480831329305,P47)
p(8.813859338365493,12.33783110051893,P48)
p(9.542572892243662,13.022649730810373,P49)
p(9.771286446121831,12.049155965924118,P50)
p(9.771286446121831,12.626506235113743,P51)
p(9.042572892243662,13.311324865405187,P52)
p(8.813859338365493,14.86216889948107,P53)
p(9.771286446121831,14.573493764886257,P54)
p(9.042572892243662,13.888675134594813,P55)
p(9.542572892243662,14.177350269189624,P56)
p(9.77128644612183,15.150844034075881,P57)
p(11,16.124337798962138,P58)
p(11.228713553878169,15.150844034075883,P59)
p(10.271286446121831,15.439519168670694,P60)
p(10.771286446121831,15.150844034075881,P61)
p(11.728713553878169,15.439519168670696,P62)
p(13.186140661634507,14.86216889948107,P63)
p(12.457427107756338,14.177350269189624,P64)
p(12.228713553878169,15.150844034075883,P65)
p(12.228713553878169,14.573493764886255,P66)
p(12.957427107756338,13.888675134594813,P67)
p(13.186140661634507,12.33783110051893,P68)
p(12.228713553878169,12.626506235113744,P69)
p(12.957427107756338,13.311324865405188,P70)
p(12.457427107756338,13.022649730810375,P71)
p(12.228713553878169,12.049155965924118,P72)
nolabel()
s(P40,P1) s(P51,P1) s(P54,P1) s(P55,P1)
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
s(P2,P38) s(P42,P38) s(P66,P38) s(P69,P38) s(P70,P38)
s(P2,P39) s(P38,P39) s(P61,P39) s(P64,P39) s(P65,P39)
s(P2,P40) s(P39,P40) s(P56,P40) s(P59,P40) s(P60,P40)
s(P2,P41) s(P1,P41) s(P46,P41) s(P49,P41) s(P50,P41)
s(P2,P42) s(P41,P42) s(P44,P42) s(P45,P42) s(P71,P42)
s(P44,P43) s(P46,P43) s(P47,P43)
s(P43,P45) s(P44,P45)
s(P41,P47) s(P46,P47)
s(P49,P48) s(P51,P48) s(P52,P48)
s(P48,P50) s(P49,P50)
s(P1,P52) s(P51,P52)
s(P54,P53) s(P56,P53) s(P57,P53)
s(P53,P55) s(P54,P55)
s(P40,P57) s(P56,P57)
s(P59,P58) s(P61,P58) s(P62,P58)
s(P58,P60) s(P59,P60)
s(P39,P62) s(P61,P62)
s(P64,P63) s(P66,P63) s(P67,P63)
s(P63,P65) s(P64,P65)
s(P38,P67) s(P66,P67)
s(P69,P68) s(P71,P68) s(P72,P68)
s(P68,P70) s(P69,P70)
s(P42,P72) s(P71,P72)
pen(2)
pen(2)
print(min=0.9999999999999983,7.81,17.024)
print(max=1.0000000000000018,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Für Längenmessungen mag das ausreichen, das Knoten und Kantenzählen stimmt dann aber nicht mehr und auch für die Bestimmung der Beweglichkeit ist das nicht geeignet. Irgendwie müsste man mit in die Eingabe aufnehmen, dass nach dem Kopieren von diesen vier Knoten allein die beiden P3 und P7 im Graph verbleiben sollen und die Kopieen von P4 und P6 nicht. Deren Kanten sollen aber mit zu P3 und P7 verbunden werden. Dann aber wieder so, dass keine Kante doppelt enthalten ist. Das mit zu programmieren sollte eigentlich möglich sein, bei P1 und P2 geht es ja auch. Es ist halt etwas, was die Eingabe des Streichholzgraphen weiter kompliziert macht.
Als Variante wäre auch denkbar, das nach dem Kopieren in der bisherigen Form mit einem Button "Knoten zusammenfassen" alle nahe beieinanderliegende Knoten zu je einem zusammengefasst werden, auch wieder so, dass alle Kanten erhalten bleiben, aber keine doppelt.
In der jetzigen Version bleibt nur, die Knoten P4 und P6 beim Kopieren auszulassen. Dadurch fehlen dann in der Kopie die Kanten zu diesen beiden Knoten, welche man nachträglich ergänzen muss. Das ist im Moment die einzige Möglichkeit, auch ziemlich kompliziert und fehleranfällig. P3 und P7 auf der vertikalen Symmetrieachse sind jetzt erkennbar nicht mehr überlagert.
\geo
ebene(293.61,297.43)
x(7.81,13.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); A(1,2,ab(5,1,[1,3],[5],[7,37]));
#A(45,7); A(7,47); A(3,58); A(3,54); A(3,39); A(7,40);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(12,13.6,P38)
p(11.5,14.466025403784439,P39)
p(11.5,12.733974596215562,P40)
p(11.000000000000002,11.075662201037861,P41)
p(10.771286446121831,12.049155965924118,P42)
p(11.728713553878169,11.760480831329307,P43)
p(11.228713553878169,12.049155965924118,P44)
p(10.271286446121833,11.760480831329305,P45)
p(8.813859338365493,12.33783110051893,P46)
p(9.542572892243662,13.022649730810373,P47)
p(9.771286446121831,12.049155965924118,P48)
p(9.771286446121831,12.626506235113743,P49)
p(9.042572892243662,13.311324865405187,P50)
p(8.813859338365493,14.86216889948107,P51)
p(9.771286446121831,14.573493764886257,P52)
p(9.042572892243662,13.888675134594813,P53)
p(9.542572892243662,14.177350269189624,P54)
p(9.77128644612183,15.150844034075881,P55)
p(11,16.124337798962138,P56)
p(11.228713553878169,15.150844034075883,P57)
p(10.271286446121831,15.439519168670694,P58)
p(10.771286446121831,15.150844034075881,P59)
p(11.728713553878169,15.439519168670696,P60)
p(13.186140661634507,14.86216889948107,P61)
p(12.457427107756338,14.177350269189624,P62)
p(12.228713553878169,15.150844034075883,P63)
p(12.228713553878169,14.573493764886255,P64)
p(12.957427107756338,13.888675134594813,P65)
p(13.186140661634507,12.33783110051893,P66)
p(12.228713553878169,12.626506235113744,P67)
p(12.957427107756338,13.311324865405188,P68)
p(12.457427107756338,13.022649730810375,P69)
p(12.228713553878169,12.049155965924118,P70)
nolabel()
s(P49,P1) s(P52,P1) s(P53,P1)
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3) s(P58,P3) s(P54,P3) s(P39,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7) s(P47,P7) s(P40,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
s(P2,P38) s(P40,P38) s(P64,P38) s(P67,P38) s(P68,P38)
s(P2,P39) s(P38,P39) s(P59,P39) s(P62,P39) s(P63,P39)
s(P2,P40) s(P42,P40) s(P43,P40) s(P69,P40)
s(P42,P41) s(P44,P41) s(P45,P41)
s(P41,P43) s(P42,P43)
s(P44,P45) s(P7,P45)
s(P47,P46) s(P49,P46) s(P50,P46)
s(P46,P48) s(P47,P48)
s(P1,P50) s(P49,P50)
s(P52,P51) s(P54,P51) s(P55,P51)
s(P51,P53) s(P52,P53)
s(P54,P55)
s(P57,P56) s(P59,P56) s(P60,P56)
s(P56,P58) s(P57,P58)
s(P39,P60) s(P59,P60)
s(P62,P61) s(P64,P61) s(P65,P61)
s(P61,P63) s(P62,P63)
s(P38,P65) s(P64,P65)
s(P67,P66) s(P69,P66) s(P70,P66)
s(P66,P68) s(P67,P68)
s(P40,P70) s(P69,P70)
pen(2)
pen(2)
print(min=0.9999999999999987,7.81,17.024)
print(max=1.0000000000000018,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1259, vom Themenstarter, eingetragen 2018-06-03
|
@ Stefan
Wie wäre es mit einer automatischen Such-Mess-Funktion(Button), die untersucht, ob es um einen Knoten herum weitere Knoten mit Einheitsabstand gibt und wenn ja, die entsprechenden Kanten ergänzt. Es müssten dann auf Button-Klick der Reihe nach alle Knoten getestet werden. Das war bisher die aufwändigste und auch für Fehler anfälligste Sache, wenn ich einen Graphen kopiert oder gedreht habe und sich dabei Knoten überlagern.
Wie immer kann ich aber die Möglichkeit oder Aufwändigkeit der Programmierung nicht einschätzen.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1260, eingetragen 2018-06-03
|
Die Chance nutze ich, das Restwochenende auch noch retten. Also aktuelle Version Streichholzgraph-981.htm downloaden, dann Testgraph #1256-4 eingeben
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248=#1256-4
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
dann Button "Kanten suchen"
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248=#1256-4
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); A(9,15); A(10,34); A(11,37);
#A(12,16); A(14,20); A(17,21); A(19,25); A(22,26); A(24,30); A(27,31); A(29,35);
#A(32,36);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P15,P9)
s(P9,P10) s(P8,P10) s(P34,P10)
s(P37,P11)
s(P11,P12) s(P6,P12) s(P16,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P20,P14)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17) s(P21,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P25,P19)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22) s(P26,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P30,P24)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27) s(P31,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P35,P29)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32) s(P36,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
pen(2)
pen(2)
print(min=0.9999999999999989,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
und fertig. Ich weiß noch, wie mühsam es war, die fehlenden Kanten in #1256-5 zu suchen. Aktuell werden Kanten im Bereich 0.9999 bis 1.0001 ergänzt. Den Bereich müssen wir noch einstellbar machen wenn nötig (oder du änderst es selbst, diese Zahlen in "function Kanten_suchen()"). Bei mehreren übereinanderliegenden Knoten werden auch mehrere Kanten ergänzt, der Button "Knoten zusammenfassen" funktioniert noch nicht.
EDIT: Was mit Kanten der Länge 1 geht, geht mit den MoSp's auch. Ausgangspunkt nochmal #1256-4,
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248=#1256-4
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
dann Button "MoSp's einsetzen" drücken,
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248=#1256-4
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#N(38,2,11); N(39,11,2); A(38,39);
#N(40,2,24); N(41,24,2); A(40,41);
#N(42,3,19); N(43,19,3); A(42,43);
#N(44,3,36); N(45,36,3); A(44,45);
#N(46,4,14); N(47,14,4); A(46,47);
#N(48,4,31); N(49,31,4); A(48,49);
#N(50,5,9); N(51,9,5); A(50,51);
#N(52,5,26); N(53,26,5); A(52,53);
#N(54,6,21); N(55,21,6); A(54,55);
#N(56,6,34); N(57,34,6); A(56,57);
#N(58,7,16); N(59,16,7); A(58,59);
#N(60,7,29); N(61,29,7); A(60,61);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(11.062046887211505,12.601926764316685,P38)
p(10.166666666666666,13.047229201607434,P39)
p(10.166666666666668,14.152770798392567,P40)
p(11.062046887211501,14.598073235683316,P41)
p(9.604619779455165,14.02072296649369,P42)
p(9.666666666666666,15.018796202177006,P43)
p(11.395380220544837,14.02072296649369,P44)
p(10.562046887211501,13.467952168101123,P45)
p(9.437953112788497,13.467952168101123,P46)
p(8.604619779455165,14.02072296649369,P47)
p(10.333333333333334,15.018796202177006,P48)
p(10.395380220544835,14.02072296649369,P49)
p(9.833333333333334,13.047229201607433,P50)
p(8.937953112788499,12.601926764316685,P51)
p(8.937953112788497,14.598073235683316,P52)
p(9.833333333333334,14.152770798392567,P53)
p(8.604619779455163,13.179277033506308,P54)
p(9.437953112788499,13.732047831898878,P55)
p(10.395380220544835,13.179277033506311,P56)
p(10.333333333333334,12.181203797822995,P57)
p(9.666666666666668,12.181203797822993,P58)
p(9.604619779455165,13.179277033506311,P59)
p(10.562046887211501,13.732047831898878,P60)
p(11.395380220544837,13.179277033506311,P61)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
s(P2,P38) s(P11,P38) s(P39,P38)
s(P11,P39) s(P2,P39)
s(P2,P40) s(P24,P40) s(P41,P40)
s(P24,P41) s(P2,P41)
s(P3,P42) s(P19,P42) s(P43,P42)
s(P19,P43) s(P3,P43)
s(P3,P44) s(P36,P44) s(P45,P44)
s(P36,P45) s(P3,P45)
s(P4,P46) s(P14,P46) s(P47,P46)
s(P14,P47) s(P4,P47)
s(P4,P48) s(P31,P48) s(P49,P48)
s(P31,P49) s(P4,P49)
s(P5,P50) s(P9,P50) s(P51,P50)
s(P9,P51) s(P5,P51)
s(P5,P52) s(P26,P52) s(P53,P52)
s(P26,P53) s(P5,P53)
s(P6,P54) s(P21,P54) s(P55,P54)
s(P21,P55) s(P6,P55)
s(P6,P56) s(P34,P56) s(P57,P56)
s(P34,P57) s(P6,P57)
s(P7,P58) s(P16,P58) s(P59,P58)
s(P16,P59) s(P7,P59)
s(P7,P60) s(P29,P60) s(P61,P60)
s(P29,P61) s(P7,P61)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000027,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
danach noch Button "Kanten suchen",
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248=#1256-4
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#N(38,2,11); N(39,11,2); A(38,39);
#N(40,2,24); N(41,24,2); A(40,41);
#N(42,3,19); N(43,19,3); A(42,43);
#N(44,3,36); N(45,36,3); A(44,45);
#N(46,4,14); N(47,14,4); A(46,47);
#N(48,4,31); N(49,31,4); A(48,49);
#N(50,5,9); N(51,9,5); A(50,51);
#N(52,5,26); N(53,26,5); A(52,53);
#N(54,6,21); N(55,21,6); A(54,55);
#N(56,6,34); N(57,34,6); A(56,57);
#N(58,7,16); N(59,16,7); A(58,59);
#N(60,7,29); N(61,29,7); A(60,61); A(9,15); A(10,34); A(11,37); A(12,16);
#A(14,20); A(17,21); A(19,25); A(22,26); A(24,30); A(27,31); A(29,35); A(32,36);
#A(38,45); A(39,49); A(39,55); A(39,58); A(40,43); A(40,46); A(40,56); A(41,60);
#A(42,47); A(42,50); A(42,60); A(44,49); A(45,53); A(45,59); A(46,51); A(46,56);
#A(48,53); A(49,55); A(50,57); A(50,60); A(52,55); A(53,59); A(54,59); A(56,61);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(11.062046887211505,12.601926764316685,P38)
p(10.166666666666666,13.047229201607434,P39)
p(10.166666666666668,14.152770798392567,P40)
p(11.062046887211501,14.598073235683316,P41)
p(9.604619779455165,14.02072296649369,P42)
p(9.666666666666666,15.018796202177006,P43)
p(11.395380220544837,14.02072296649369,P44)
p(10.562046887211501,13.467952168101123,P45)
p(9.437953112788497,13.467952168101123,P46)
p(8.604619779455165,14.02072296649369,P47)
p(10.333333333333334,15.018796202177006,P48)
p(10.395380220544835,14.02072296649369,P49)
p(9.833333333333334,13.047229201607433,P50)
p(8.937953112788499,12.601926764316685,P51)
p(8.937953112788497,14.598073235683316,P52)
p(9.833333333333334,14.152770798392567,P53)
p(8.604619779455163,13.179277033506308,P54)
p(9.437953112788499,13.732047831898878,P55)
p(10.395380220544835,13.179277033506311,P56)
p(10.333333333333334,12.181203797822995,P57)
p(9.666666666666668,12.181203797822993,P58)
p(9.604619779455165,13.179277033506311,P59)
p(10.562046887211501,13.732047831898878,P60)
p(11.395380220544837,13.179277033506311,P61)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P15,P9)
s(P9,P10) s(P8,P10) s(P34,P10)
s(P37,P11)
s(P11,P12) s(P6,P12) s(P16,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P20,P14)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17) s(P21,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P25,P19)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22) s(P26,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P30,P24)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27) s(P31,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P35,P29)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32) s(P36,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
s(P2,P38) s(P11,P38) s(P39,P38) s(P45,P38)
s(P11,P39) s(P2,P39) s(P49,P39) s(P55,P39) s(P58,P39)
s(P2,P40) s(P24,P40) s(P41,P40) s(P43,P40) s(P46,P40) s(P56,P40)
s(P24,P41) s(P2,P41) s(P60,P41)
s(P3,P42) s(P19,P42) s(P43,P42) s(P47,P42) s(P50,P42) s(P60,P42)
s(P19,P43) s(P3,P43)
s(P3,P44) s(P36,P44) s(P45,P44) s(P49,P44)
s(P36,P45) s(P3,P45) s(P53,P45) s(P59,P45)
s(P4,P46) s(P14,P46) s(P47,P46) s(P51,P46) s(P56,P46)
s(P14,P47) s(P4,P47)
s(P4,P48) s(P31,P48) s(P49,P48) s(P53,P48)
s(P31,P49) s(P4,P49) s(P55,P49)
s(P5,P50) s(P9,P50) s(P51,P50) s(P57,P50) s(P60,P50)
s(P9,P51) s(P5,P51)
s(P5,P52) s(P26,P52) s(P53,P52) s(P55,P52)
s(P26,P53) s(P5,P53) s(P59,P53)
s(P6,P54) s(P21,P54) s(P55,P54) s(P59,P54)
s(P21,P55) s(P6,P55)
s(P6,P56) s(P34,P56) s(P57,P56) s(P61,P56)
s(P34,P57) s(P6,P57)
s(P7,P58) s(P16,P58) s(P59,P58)
s(P16,P59) s(P7,P59)
s(P7,P60) s(P29,P60) s(P61,P60)
s(P29,P61) s(P7,P61)
pen(2)
pen(2)
print(min=0.9999999999999983,7.81,17.024)
print(max=1.0000000000000027,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
und fertig ist wieder #1248.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1261, vom Themenstarter, eingetragen 2018-06-03
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1262, vom Themenstarter, eingetragen 2018-06-04
|
Wie bzw. nach welcher Methode oder wo genau werden die MoSp eingesetzt?
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1263, eingetragen 2018-06-04
|
Das Zusammenfassen der übereinanderliegenden Knoten funktioniert jetzt auch. Nochmal den zweiten Konstruktionsschritt von #1207-1
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1258-2 Test Button "Knoten zusammenfassen"
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); //A(1,2,ab(5,1,[1,37])); A(1,3,ab(5,1,[1,37]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000009,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
dann je eine Kopie des gesamten Graphen von P1 nach P2 verschieben und von P1 nach P3
\geo
ebene(293.61,340.74)
x(7.81,13.69)
y(11.08,17.89)
form(.)
#//Eingabe war:
#
##1258-2 Test Button "Knoten zusammenfassen"
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); A(1,2,ab(5,1,[1,37]));
#A(1,3,ab(5,1,[1,37]));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(12,13.6,P38)
p(11.5,14.466025403784439,P39)
p(10.5,14.466025403784439,P40)
p(10.5,12.73397459621556,P41)
p(11.5,12.733974596215562,P42)
p(11.000000000000002,11.075662201037861,P43)
p(10.771286446121831,12.049155965924118,P44)
p(11.728713553878169,11.760480831329307,P45)
p(11.228713553878169,12.049155965924118,P46)
p(10.271286446121833,11.760480831329305,P47)
p(8.813859338365493,12.33783110051893,P48)
p(9.542572892243662,13.022649730810373,P49)
p(9.771286446121831,12.049155965924118,P50)
p(9.771286446121831,12.626506235113743,P51)
p(9.042572892243662,13.311324865405187,P52)
p(8.813859338365493,14.86216889948107,P53)
p(9.771286446121831,14.573493764886257,P54)
p(9.042572892243662,13.888675134594813,P55)
p(9.542572892243662,14.177350269189624,P56)
p(9.77128644612183,15.150844034075881,P57)
p(11,16.124337798962138,P58)
p(11.228713553878169,15.150844034075883,P59)
p(10.271286446121831,15.439519168670694,P60)
p(10.771286446121831,15.150844034075881,P61)
p(11.728713553878169,15.439519168670696,P62)
p(13.186140661634507,14.86216889948107,P63)
p(12.457427107756338,14.177350269189624,P64)
p(12.228713553878169,15.150844034075883,P65)
p(12.228713553878169,14.573493764886255,P66)
p(12.957427107756338,13.888675134594813,P67)
p(13.186140661634507,12.33783110051893,P68)
p(12.228713553878169,12.626506235113744,P69)
p(12.957427107756338,13.311324865405188,P70)
p(12.457427107756338,13.022649730810375,P71)
p(12.228713553878169,12.049155965924118,P72)
p(11,15.332050807568876,P73)
p(10,15.332050807568876,P74)
p(9.5,14.466025403784439,P75)
p(11,13.6,P76)
p(11.5,14.466025403784439,P77)
p(12.686140661634507,13.20385650430337,P78)
p(11.728713553878169,13.492531638898182,P79)
p(12.457427107756338,14.177350269189628,P80)
p(11.957427107756338,13.888675134594813,P81)
p(11.728713553878169,12.915181369708558,P82)
p(10.5,11.9416876048223,P83)
p(10.271286446121831,12.915181369708556,P84)
p(11.228713553878169,12.626506235113744,P85)
p(10.728713553878169,12.915181369708556,P86)
p(9.771286446121833,12.626506235113743,P87)
p(8.313859338365493,13.203856504303369,P88)
p(9.042572892243662,13.888675134594813,P89)
p(9.271286446121833,12.915181369708556,P90)
p(9.271286446121833,13.492531638898182,P91)
p(8.542572892243662,14.177350269189624,P92)
p(8.313859338365493,15.728194303265507,P93)
p(9.271286446121831,15.439519168670696,P94)
p(8.542572892243662,14.75470053837925,P95)
p(9.042572892243662,15.043375672974063,P96)
p(9.271286446121831,16.01686943786032,P97)
p(10.5,16.990363202746575,P98)
p(10.728713553878169,16.01686943786032,P99)
p(9.771286446121831,16.305544572455133,P100)
p(10.271286446121831,16.016869437860322,P101)
p(11.228713553878169,16.305544572455133,P102)
p(12.686140661634507,15.728194303265507,P103)
p(11.957427107756338,15.043375672974065,P104)
p(11.728713553878169,16.016869437860322,P105)
p(11.728713553878169,15.439519168670696,P106)
p(12.457427107756338,14.75470053837925,P107)
nolabel()
s(P40,P1) s(P51,P1) s(P54,P1) s(P55,P1) s(P75,P1) s(P86,P1) s(P89,P1) s(P90,P1)
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
s(P2,P38) s(P42,P38) s(P66,P38) s(P69,P38) s(P70,P38)
s(P2,P39) s(P38,P39) s(P61,P39) s(P64,P39) s(P65,P39)
s(P2,P40) s(P39,P40) s(P56,P40) s(P59,P40) s(P60,P40)
s(P2,P41) s(P1,P41) s(P46,P41) s(P49,P41) s(P50,P41)
s(P2,P42) s(P41,P42) s(P44,P42) s(P45,P42) s(P71,P42)
s(P44,P43) s(P46,P43) s(P47,P43)
s(P43,P45) s(P44,P45)
s(P41,P47) s(P46,P47)
s(P49,P48) s(P51,P48) s(P52,P48)
s(P48,P50) s(P49,P50)
s(P1,P52) s(P51,P52)
s(P54,P53) s(P56,P53) s(P57,P53)
s(P53,P55) s(P54,P55)
s(P40,P57) s(P56,P57)
s(P59,P58) s(P61,P58) s(P62,P58)
s(P58,P60) s(P59,P60)
s(P39,P62) s(P61,P62)
s(P64,P63) s(P66,P63) s(P67,P63)
s(P63,P65) s(P64,P65)
s(P38,P67) s(P66,P67)
s(P69,P68) s(P71,P68) s(P72,P68)
s(P68,P70) s(P69,P70)
s(P42,P72) s(P71,P72)
s(P3,P73) s(P77,P73) s(P101,P73) s(P104,P73) s(P105,P73)
s(P3,P74) s(P73,P74) s(P96,P74) s(P99,P74) s(P100,P74)
s(P3,P75) s(P74,P75) s(P91,P75) s(P94,P75) s(P95,P75)
s(P3,P76) s(P1,P76) s(P81,P76) s(P84,P76) s(P85,P76)
s(P3,P77) s(P76,P77) s(P79,P77) s(P80,P77) s(P106,P77)
s(P79,P78) s(P81,P78) s(P82,P78)
s(P78,P80) s(P79,P80)
s(P76,P82) s(P81,P82)
s(P84,P83) s(P86,P83) s(P87,P83)
s(P83,P85) s(P84,P85)
s(P1,P87) s(P86,P87)
s(P89,P88) s(P91,P88) s(P92,P88)
s(P88,P90) s(P89,P90)
s(P75,P92) s(P91,P92)
s(P94,P93) s(P96,P93) s(P97,P93)
s(P93,P95) s(P94,P95)
s(P74,P97) s(P96,P97)
s(P99,P98) s(P101,P98) s(P102,P98)
s(P98,P100) s(P99,P100)
s(P73,P102) s(P101,P102)
s(P104,P103) s(P106,P103) s(P107,P103)
s(P103,P105) s(P104,P105)
s(P77,P107) s(P106,P107)
pen(2)
pen(2)
print(min=0.9999999999999981,7.81,17.89)
print(max=1.0000000000000018,7.81,17.59)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Aus diesen 107 Knoten und 214 Kanten macht Button "Knoten zusammenfassen" 90 Knoten und 192 Kanten.
\geo
ebene(293.61,340.74)
x(7.81,13.69)
y(11.08,17.89)
form(.)
#//Eingabe war:
#
##1263-2 Test Button "Knoten zusammenfassen"
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); A(1,2,ab(5,1,[1,37]));
#A(1,3,ab(5,1,[1,37]));
#
#//ergänzt von Button "Knoten zusammenfassen":
#C(2,76); C(3,40); C(4,75); C(7,41); C(9,50); C(21,92); C(25,94); C(26,57);
#C(30,59); C(32,81); C(34,85); C(37,46); C(39,77); C(51,87); C(55,89);
#C(62,106); C(64,80);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(12,13.6,P38)
p(11.5,14.466025403784439,P39)
p(11.5,12.733974596215562,P42)
p(11.000000000000002,11.075662201037861,P43)
p(10.771286446121831,12.049155965924118,P44)
p(11.728713553878169,11.760480831329307,P45)
p(10.271286446121833,11.760480831329305,P47)
p(8.813859338365493,12.33783110051893,P48)
p(9.542572892243662,13.022649730810373,P49)
p(9.771286446121831,12.626506235113743,P51)
p(9.042572892243662,13.311324865405187,P52)
p(8.813859338365493,14.86216889948107,P53)
p(9.771286446121831,14.573493764886257,P54)
p(9.042572892243662,13.888675134594813,P55)
p(9.542572892243662,14.177350269189624,P56)
p(11,16.124337798962138,P58)
p(10.271286446121831,15.439519168670694,P60)
p(10.771286446121831,15.150844034075881,P61)
p(11.728713553878169,15.439519168670696,P62)
p(13.186140661634507,14.86216889948107,P63)
p(12.457427107756338,14.177350269189624,P64)
p(12.228713553878169,15.150844034075883,P65)
p(12.228713553878169,14.573493764886255,P66)
p(12.957427107756338,13.888675134594813,P67)
p(13.186140661634507,12.33783110051893,P68)
p(12.228713553878169,12.626506235113744,P69)
p(12.957427107756338,13.311324865405188,P70)
p(12.457427107756338,13.022649730810375,P71)
p(12.228713553878169,12.049155965924118,P72)
p(11,15.332050807568876,P73)
p(10,15.332050807568876,P74)
p(12.686140661634507,13.20385650430337,P78)
p(11.728713553878169,13.492531638898182,P79)
p(11.728713553878169,12.915181369708558,P82)
p(10.5,11.9416876048223,P83)
p(10.271286446121831,12.915181369708556,P84)
p(10.728713553878169,12.915181369708556,P86)
p(8.313859338365493,13.203856504303369,P88)
p(9.271286446121833,12.915181369708556,P90)
p(9.271286446121833,13.492531638898182,P91)
p(8.313859338365493,15.728194303265507,P93)
p(8.542572892243662,14.75470053837925,P95)
p(9.042572892243662,15.043375672974063,P96)
p(9.271286446121831,16.01686943786032,P97)
p(10.5,16.990363202746575,P98)
p(10.728713553878169,16.01686943786032,P99)
p(9.771286446121831,16.305544572455133,P100)
p(10.271286446121831,16.016869437860322,P101)
p(11.228713553878169,16.305544572455133,P102)
p(12.686140661634507,15.728194303265507,P103)
p(11.957427107756338,15.043375672974065,P104)
p(11.728713553878169,16.016869437860322,P105)
p(12.457427107756338,14.75470053837925,P107)
nolabel()
s(P3,P1) s(P51,P1) s(P54,P1) s(P55,P1) s(P4,P1) s(P86,P1) s(P90,P1) s(P2,P1) s(P5,P1) s(P6,P1) s(P7,P1) s(P52,P1)
s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2) s(P3,P2) s(P32,P2) s(P84,P2) s(P39,P2) s(P82,P2) s(P38,P2) s(P42,P2)
s(P26,P3) s(P29,P3) s(P30,P3) s(P4,P3) s(P27,P3) s(P73,P3) s(P74,P3) s(P39,P3) s(P56,P3) s(P60,P3)
s(P21,P4) s(P24,P4) s(P25,P4) s(P5,P4) s(P22,P4) s(P74,P4) s(P91,P4) s(P95,P4)
s(P16,P5) s(P19,P5) s(P20,P5) s(P6,P5) s(P17,P5)
s(P11,P6) s(P14,P6) s(P15,P6) s(P7,P6) s(P12,P6)
s(P9,P7) s(P10,P7) s(P36,P7) s(P37,P7) s(P49,P7) s(P42,P7) s(P47,P7)
s(P9,P8) s(P11,P8) s(P12,P8) s(P10,P8)
s(P10,P9) s(P48,P9) s(P49,P9)
s(P12,P11)
s(P14,P13) s(P16,P13) s(P17,P13) s(P15,P13)
s(P15,P14)
s(P17,P16)
s(P19,P18) s(P21,P18) s(P22,P18) s(P20,P18)
s(P20,P19)
s(P22,P21) s(P88,P21) s(P91,P21)
s(P24,P23) s(P26,P23) s(P27,P23) s(P25,P23)
s(P25,P24)
s(P93,P25) s(P95,P25)
s(P27,P26) s(P53,P26) s(P56,P26)
s(P29,P28) s(P31,P28) s(P32,P28) s(P30,P28)
s(P30,P29)
s(P58,P30) s(P60,P30)
s(P32,P31)
s(P78,P32) s(P82,P32)
s(P34,P33) s(P36,P33) s(P37,P33) s(P35,P33)
s(P35,P34) s(P83,P34) s(P84,P34)
s(P37,P36)
s(P43,P37) s(P47,P37)
s(P42,P38) s(P66,P38) s(P69,P38) s(P70,P38) s(P39,P38) s(P67,P38)
s(P61,P39) s(P64,P39) s(P65,P39) s(P62,P39) s(P73,P39) s(P79,P39) s(P107,P39)
s(P44,P42) s(P45,P42) s(P71,P42) s(P72,P42)
s(P44,P43) s(P47,P43) s(P45,P43)
s(P45,P44)
s(P49,P48) s(P51,P48) s(P52,P48)
s(P52,P51) s(P83,P51) s(P86,P51)
s(P54,P53) s(P56,P53) s(P55,P53)
s(P55,P54)
s(P88,P55) s(P90,P55)
s(P61,P58) s(P62,P58) s(P60,P58)
s(P62,P61)
s(P103,P62) s(P107,P62)
s(P64,P63) s(P66,P63) s(P67,P63) s(P65,P63)
s(P65,P64) s(P78,P64) s(P79,P64)
s(P67,P66)
s(P69,P68) s(P71,P68) s(P72,P68) s(P70,P68)
s(P70,P69)
s(P72,P71)
s(P101,P73) s(P104,P73) s(P105,P73) s(P74,P73) s(P102,P73)
s(P96,P74) s(P99,P74) s(P100,P74) s(P97,P74)
s(P79,P78) s(P82,P78)
s(P84,P83) s(P86,P83)
s(P91,P88) s(P90,P88)
s(P96,P93) s(P97,P93) s(P95,P93)
s(P97,P96)
s(P99,P98) s(P101,P98) s(P102,P98) s(P100,P98)
s(P100,P99)
s(P102,P101)
s(P104,P103) s(P107,P103) s(P105,P103)
s(P105,P104)
pen(2)
pen(2)
print(min=0.9999999999999973,7.81,17.89)
print(max=1.0000000000000018,7.81,17.59)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Nun kannst du nach belieben "MoSp's einsetzen" und weitere passende "Kanten suchen" und zwischendurch wenn nötig neue übereinander liegende "Knoten zusammenfassen".
[Die Antwort wurde nach Beitrag No.1261 begonnen.]
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1264, eingetragen 2018-06-04
|
\quoteon(2018-06-04 01:28 - Slash in Beitrag No. 1262)
Wie bzw. nach welcher Methode oder wo genau werden die MoSp eingesetzt?
\quoteoff
Ach nein, es werden nur die halben MoSp eingesetzt bestehend aus zwei gleichseitigen Dreiecken wie hier rot eingezeichnet
\geo
ebene(243.61,297.43)
x(7.81,12.69)
y(11.08,17.02)
form(.)
#//Eingabe war:
#
##1248=#1256-4
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12]));
#N(38,2,11); N(39,11,2); A(38,39);
#N(40,2,24); N(41,24,2); A(40,41);
#N(42,3,19); N(43,19,3); A(42,43);
#N(44,3,36); N(45,36,3); A(44,45);
#N(46,4,14); N(47,14,4); A(46,47);
#N(48,4,31); N(49,31,4); A(48,49);
#N(50,5,9); N(51,9,5); A(50,51);
#N(52,5,26); N(53,26,5); A(52,53);
#N(54,6,21); N(55,21,6); A(54,55);
#N(56,6,34); N(57,34,6); A(56,57);
#N(58,7,16); N(59,16,7); A(58,59);
#N(60,7,29); N(61,29,7); A(60,61);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(11.062046887211505,12.601926764316685,P38)
p(10.166666666666666,13.047229201607434,P39)
p(10.166666666666668,14.152770798392567,P40)
p(11.062046887211501,14.598073235683316,P41)
p(9.604619779455165,14.02072296649369,P42)
p(9.666666666666666,15.018796202177006,P43)
p(11.395380220544837,14.02072296649369,P44)
p(10.562046887211501,13.467952168101123,P45)
p(9.437953112788497,13.467952168101123,P46)
p(8.604619779455165,14.02072296649369,P47)
p(10.333333333333334,15.018796202177006,P48)
p(10.395380220544835,14.02072296649369,P49)
p(9.833333333333334,13.047229201607433,P50)
p(8.937953112788499,12.601926764316685,P51)
p(8.937953112788497,14.598073235683316,P52)
p(9.833333333333334,14.152770798392567,P53)
p(8.604619779455163,13.179277033506308,P54)
p(9.437953112788499,13.732047831898878,P55)
p(10.395380220544835,13.179277033506311,P56)
p(10.333333333333334,12.181203797822995,P57)
p(9.666666666666668,12.181203797822993,P58)
p(9.604619779455165,13.179277033506311,P59)
p(10.562046887211501,13.732047831898878,P60)
p(11.395380220544837,13.179277033506311,P61)
nolabel()
s(P1,P2) s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2)
s(P1,P3) s(P2,P3) s(P26,P3) s(P29,P3) s(P30,P3)
s(P1,P4) s(P3,P4) s(P21,P4) s(P24,P4) s(P25,P4)
s(P1,P5) s(P4,P5) s(P16,P5) s(P19,P5) s(P20,P5)
s(P1,P6) s(P5,P6) s(P11,P6) s(P14,P6) s(P15,P6)
s(P1,P7) s(P6,P7) s(P9,P7) s(P10,P7) s(P36,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P9,P10) s(P8,P10)
s(P11,P12) s(P6,P12)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P13,P15) s(P14,P15)
s(P5,P17) s(P16,P17)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P18,P20) s(P19,P20)
s(P4,P22) s(P21,P22)
s(P24,P23) s(P26,P23) s(P27,P23)
s(P23,P25) s(P24,P25)
s(P3,P27) s(P26,P27)
s(P29,P28) s(P31,P28) s(P32,P28)
s(P28,P30) s(P29,P30)
s(P2,P32) s(P31,P32)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P33,P35) s(P34,P35)
s(P7,P37) s(P36,P37)
s(P2,P38) s(P11,P38) s(P39,P38)
s(P11,P39) s(P2,P39)
s(P2,P40) s(P24,P40) s(P41,P40)
s(P24,P41) s(P2,P41)
s(P3,P42) s(P19,P42) s(P43,P42)
s(P19,P43) s(P3,P43)
s(P3,P44) s(P36,P44) s(P45,P44)
s(P36,P45) s(P3,P45)
s(P4,P46) s(P14,P46) s(P47,P46)
s(P14,P47) s(P4,P47)
s(P4,P48) s(P31,P48) s(P49,P48)
s(P31,P49) s(P4,P49)
s(P5,P50) s(P9,P50) s(P51,P50)
s(P9,P51) s(P5,P51)
s(P5,P52) s(P26,P52) s(P53,P52)
s(P26,P53) s(P5,P53)
s(P6,P54) s(P21,P54) s(P55,P54)
s(P21,P55) s(P6,P55)
s(P6,P56) s(P34,P56) s(P57,P56)
s(P34,P57) s(P6,P57)
s(P7,P58) s(P16,P58) s(P59,P58)
s(P16,P59) s(P7,P59)
s(P7,P60) s(P29,P60) s(P61,P60)
s(P29,P61) s(P7,P61)
color(red)
s(P2,P41) s(P2,P40) s(P24,P41)
s(P24,P40) s(P41,P40)
pen(2)
pen(2)
print(min=0.9999999999999991,7.81,17.024)
print(max=1.0000000000000027,7.81,16.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Da habe ich mich versehen. Die Methode ist die gleiche wie bei den Kanten Länge 1: Es werden alle Abstände zwischen den Punkten durchsucht und dort so ein halber MoSp (MoSp/2) eingezeichnet, wo das passt und nicht schon vorhanden ist. Doch das wird jetzt möglicherweise gar nicht gebraucht. Für eine komplette MoSp müsste ich die Abstände von je 3 Punkte messen.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1265, vom Themenstarter, eingetragen 2018-06-04
|
Alles klar. Inwieweit würde sich der MGC als Analysetool für eine Knotenfärbung eignen? Ich habe z.B. überhaupt keine Ahnnung wie so ein Färbungsalgorithmus aufgebaut sein müsste, außer das man in einem ersten Schritt benachbarte Knoten bis zu einem gewissen Abstand gleich färben könnte.
Google liefert für "graphen knotenfärbung algorithmus" schon einige Hinweise, wie z.B. den Greedy Algorithmus.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1266, eingetragen 2018-06-04
|
wenn man im MGC einslängen sucht könnte man genausogut auch die anderen spindellängen suchen und je ne spindel einfügen...
auch wenn ich den ansatz dieses wilden linienverdichten nicht verstehe...
es sähe dann z.B. so aus
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-MGC1.PNG
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1267, vom Themenstarter, eingetragen 2018-06-04
|
\quoteon(2018-06-04 18:15 - haribo in Beitrag No. 1266)
auch wenn ich den ansatz dieses wilden linienverdichten nicht verstehe...
\quoteoff
Das steckt auch noch keine Strategie hinter. Es geht nur um ein paar zusätzliche Funktionen, die vielleicht für irgendetwas nützlich sein könnten. Meinen Graphen kann man z.B. jetzt schnell konstruieren und die Knoten und Kanten exakt zählen lassen. Ich habe gestern einige alte Graphen mit den neuen Buttons gestestet. Da kommen gute Ideen raus. :-)
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1268, eingetragen 2018-06-05
|
strategiesuche:
die moserspindel erzwingt ja ne vierte farbe
setzt man in einem dreieck davon die ersten drei farben fest (hier in dem gelben dreieck, linker bildteil)dann ist es aber ja eben nicht so dass die vierte farbe(4) an der blauen verbindungslinie liegen muss, sie kann auch an anderen positionen der zweiten raute liegen (rechter bildteil)
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb16.png
genauso sind in einer spiegelung der moserspindel die variationsmöglichkeiten höher als in der original-moserspindel, die 3 kann dann ja eben doch 3 oder 4 sein, dito die 14 kann 134 sein
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb17.png
das bedeutet IMO mehrfaches spiegeln/wiederholen von moserspindeln bringt erstmal keine weiteren explezit definierten farbpunkte, man müsste ja irgendwann erreichen das zwei punkte die nur zwei bestimmte farbmöglichkeiten haben durch eine weiter linie miteinander verbunden werden, jede weitere spiegelung hat aber eher an allen punkten die möglichkeiten 1234 also wieder die absolute beliebigkeit, die sie auch hätte wenn sie ganz frei im raum (also ohne anschluss, ohne spiegelung...) daneben liegen würde
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1269, vom Themenstarter, eingetragen 2018-06-05
|
Wenn ich mich nicht vertue, dann sieht es mit der ersten 6eck-Anordnung schon besser aus mit der Farbverteilung, da jetzt je 2 MoSp mit 2 zusätzlichen Kanten verbunden werden können. Es gibt jetzt zwei geschlossene Kantenzüge mit abwechselnd blau und grün, und mittig einen mit rot und lila. Dort können nur noch blau und grün bzw. rot und lila vertauscht werden. Der Mittelknoten darf blau oder grün sein.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_6eckmosp_b.png
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1270, eingetragen 2018-06-09
|
\quoteon(2018-06-04 02:14 - Slash in Beitrag No. 1265)
Inwieweit würde sich der MGC als Analysetool für eine Knotenfärbung eignen? Ich habe z.B. überhaupt keine Ahnnung wie so ein Färbungsalgorithmus aufgebaut sein müsste, außer das man in einem ersten Schritt benachbarte Knoten bis zu einem gewissen Abstand gleich färben könnte.
\quoteoff
Die Antwort auf dem Matheplanet kann nur lauten: Machen. Der Algorithmus ist nicht zu leicht und nicht zu schwer. Stell dir vor, du bist in einem Raum, von dem aus Gänge zu benachbarten Räumen führen, so wie es der Graph vorgibt. Durch die Gänge kann man die Färbung der benachbarten Räume sehen. Neben den vier (oder drei oder fünf) Farbtöpfen hast du noch Stift und Zettel zum Notieren, was ist zu tun, wenn man in einen Raum kommt. Wenn alles korrekt gefärbt ist oder das Ergebnis "unmöglich" herauskommt, dann steht auf dem Zettel der Algorithmus. Das muss so aufgeschrieben sein, dass jemand, der nicht weiß, worum es geht, zum gleichen Ergebnis kommt. Diesen Zettel übersetze ich dann in den MGC. Den Graph in deinem vorhergehenden Beitrag auf Knopfdruck zu färben sollte zu schaffen sein.
\quoteon(2018-06-04 18:15 - haribo in Beitrag No. 1266)
wenn man im MGC einslängen sucht könnte man genausogut auch die anderen spindellängen suchen und je ne spindel einfügen...
\quoteoff
Neben Einslängen und Spindeln ist diese Methode auch für beliebige Teilgraphen denkbar. Ausgehend von
\geo
ebene(103.1,122.54)
x(9.94,12)
y(10,12.45)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D);
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P6,P5) s(P7,P5) s(P4,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
pen(2)
pen(2)
print(min=0.9999999999999997,9.94,12.451)
print(max=1,9.94,12.151)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
kann man mit der Eingabe A(2,5,ab(5,2,[1,7])) eine Kopie des Teilgraphs P1 bis P7 (ist hier der ganze Graph) so anfügen, dass P5 und P2 der Kopie auf P2 und P5 des Ausgangsgraphen zu liegen kommen. Das sieht dann so aus.
\geo
ebene(119.77,122.54)
x(9.94,12.33)
y(10,12.45)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D); A(2,5,ab(5,2,[1,7]))
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
p(11.771286446121831,11.550844034075881,P8)
p(11.271286446121831,10.684818630291444,P9)
p(10.271286446121831,10.684818630291444,P10)
p(10.937953112788499,10.998073235683316,P11)
p(11.833333333333334,10.552770798392567,P12)
nolabel()
s(P1,P2) s(P10,P2) s(P11,P2) s(P12,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P6,P5) s(P7,P5) s(P4,P5) s(P8,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
s(P8,P9) s(P5,P9)
s(P5,P10) s(P9,P10)
s(P8,P11)
s(P8,P12) s(P11,P12)
pen(2)
pen(2)
print(min=0.9999999999999994,9.94,12.451)
print(max=1.0000000000000007,9.94,12.151)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Im Streichholzprogramm (Link folgt am Ende des Beitrages) habe ich zum Ausprobieren ein Eingabefeld "Die Eingabe ... für alle passenden Abstände im Graph wiederholen." ergänzt, wo für "..." obiger Code zum Kopieren eingesetzt werden kann (ohne ein eventuelles "gespiegelt") und nach Button "wiederholen" wird dieses Kopieren (einschließlich der gespiegelten Kopie) für alle diejenigen Punkte Pi,Pj durchgeführt, die den gleichen Abstand wie P2,P5 haben. Anschließend mit Button "Knoten zusammenfassen" noch doppelte Knoten und Kanten entfernen:
\geo
ebene(132.18,148.95)
x(9.81,12.46)
y(9.89,12.87)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D);
#
#//ergänzt von Button "wiederholen":
#A(2,5,ab(5,2,1,3,4,6,7)); A(2,5,ab(5,2,1,3,4,6,7,"gespiegelt"));
#A(4,7,ab(5,2,1,3,4,6,7)); A(4,7,ab(5,2,1,3,4,6,7,"gespiegelt"));
#A(5,2,ab(5,2,1,3,4,6,7)); A(5,2,ab(5,2,1,3,4,6,7,"gespiegelt"));
#A(7,4,ab(5,2,1,3,4,6,7)); A(7,4,ab(5,2,1,3,4,6,7,"gespiegelt"));
#
#//ergänzt von Button "Knoten zusammenfassen":
#C(1,23,28); C(2,27); C(3,26,29); C(4,15,30); C(5,25,40); C(6,24,31); C(7,32);
#C(10,35); C(11,46); C(14,39); C(20,45);
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
p(11.771286446121831,11.550844034075881,P8)
p(11.271286446121831,10.684818630291444,P9)
p(10.271286446121831,10.684818630291444,P10)
p(10.937953112788499,10.998073235683316,P11)
p(11.833333333333334,10.552770798392567,P12)
p(9.813859338365493,11.262168899481068,P13)
p(10.542572892243662,10.577350269189626,P14)
p(10.771286446121831,10.973493764886257,P16)
p(10.042572892243662,10.288675134594813,P17)
p(10.166666666666666,11.971567000569571,P18)
p(10.895380220544835,11.28674837027813,P19)
p(10.666666666666668,10.31325460539187,P20)
p(10.514190964081221,11.033896022717254,P21)
p(11.152475702585445,11.803696381636756,P22)
p(11.957427107756338,10.288675134594813,P33)
p(11.228713553878169,10.973493764886257,P34)
p(11,10.577350269189626,P36)
p(11.728713553878169,11.262168899481068,P37)
p(11.271286446121831,9.892531638898182,P38)
p(10.923762148707278,10.8302026167505,P41)
p(10.285477410203052,10.060402257830999,P42)
p(11.437953112788499,11.864098639467754,P43)
p(10.604619779455165,11.311327841075187,P44)
p(10.437953112788499,11.864098639467754,P47)
nolabel()
s(P7,P1) s(P6,P1) s(P3,P1) s(P2,P1)
s(P10,P2) s(P11,P2) s(P12,P2) s(P4,P2) s(P16,P2) s(P17,P2) s(P33,P2) s(P3,P2) s(P34,P2)
s(P4,P3)
s(P20,P4) s(P21,P4) s(P22,P4) s(P5,P4) s(P38,P4) s(P43,P4) s(P14,P4) s(P44,P4)
s(P6,P5) s(P7,P5) s(P8,P5) s(P13,P5) s(P10,P5) s(P36,P5) s(P37,P5) s(P9,P5) s(P14,P5)
s(P7,P6)
s(P18,P7) s(P41,P7) s(P42,P7) s(P20,P7) s(P11,P7) s(P47,P7) s(P19,P7)
s(P9,P8) s(P11,P8) s(P12,P8)
s(P10,P9)
s(P34,P10)
s(P12,P11) s(P43,P11) s(P47,P11)
s(P14,P13) s(P16,P13) s(P17,P13)
s(P38,P14)
s(P17,P16)
s(P19,P18) s(P21,P18) s(P22,P18)
s(P20,P19)
s(P44,P20)
s(P22,P21)
s(P34,P33) s(P36,P33) s(P37,P33)
s(P37,P36)
s(P41,P38) s(P42,P38)
s(P42,P41)
s(P44,P43) s(P47,P43)
pen(2)
pen(2)
print(min=0.999999999999999,9.81,12.872)
print(max=1.0000000000000009,9.81,12.572)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Die vielen Kopieen werden nicht direkt im Graph ergänzt, sondern in der Eingabe zum Graph. Dort kann man die Eingabe auf nur bestimmte Kopieen einschränken. Ich hoffe, dass diese Programmfunktion gleich funktioniert. Denn
\quoteon(2018-06-04 01:35 - StefanVogel in Beitrag No. 1263)
\geo
ebene(293.61,340.74)
x(7.81,13.69)
y(11.08,17.89)
form(.)
#//Eingabe war:
#
##1263-2 Test Button "Knoten zusammenfassen"
#
#
#
#P[1]=[0,180]; P[2]=[50,180]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,1,3);
#L(5,1,4); L(6,1,5); L(7,1,6); A(2,7); Q(8,7,6,ab(3,5,1,4),ab(2,6,1,7));
#A(5,6,ab(6,7,[6,12])); A(4,5,ab(6,7,[6,12])); A(3,4,ab(6,7,[6,12]));
#A(2,3,ab(6,7,[6,12])); A(7,2,ab(6,7,[6,12])); A(1,2,ab(5,1,[1,37]));
#A(1,3,ab(5,1,[1,37]));
#
#//ergänzt von Button "Knoten zusammenfassen":
#C(2,76); C(3,40); C(4,75); C(7,41); C(9,50); C(21,92); C(25,94); C(26,57);
#C(30,59); C(32,81); C(34,85); C(37,46); C(39,77); C(51,87); C(55,89);
#C(62,106); C(64,80);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10,13.6,P1)
p(11,13.6,P2)
p(10.5,14.466025403784439,P3)
p(9.5,14.466025403784439,P4)
p(9,13.6,P5)
p(9.5,12.733974596215562,P6)
p(10.5,12.733974596215562,P7)
p(10.000000000000002,11.075662201037861,P8)
p(9.771286446121831,12.049155965924118,P9)
p(10.72871355387817,11.760480831329307,P10)
p(10.22871355387817,12.049155965924118,P11)
p(9.271286446121833,11.760480831329305,P12)
p(7.813859338365494,12.33783110051893,P13)
p(8.542572892243662,13.022649730810373,P14)
p(8.771286446121831,12.049155965924118,P15)
p(8.771286446121831,12.626506235113743,P16)
p(8.042572892243662,13.311324865405187,P17)
p(7.813859338365493,14.86216889948107,P18)
p(8.771286446121831,14.573493764886257,P19)
p(8.042572892243662,13.888675134594813,P20)
p(8.542572892243662,14.177350269189624,P21)
p(8.771286446121831,15.150844034075881,P22)
p(10,16.124337798962138,P23)
p(10.228713553878169,15.150844034075883,P24)
p(9.271286446121831,15.439519168670696,P25)
p(9.771286446121831,15.150844034075881,P26)
p(10.728713553878167,15.439519168670696,P27)
p(12.186140661634507,14.86216889948107,P28)
p(11.457427107756338,14.177350269189626,P29)
p(11.228713553878169,15.150844034075881,P30)
p(11.228713553878169,14.573493764886257,P31)
p(11.957427107756338,13.888675134594815,P32)
p(12.186140661634507,12.337831100518931,P33)
p(11.228713553878169,12.626506235113744,P34)
p(11.957427107756338,13.311324865405188,P35)
p(11.457427107756338,13.022649730810375,P36)
p(11.228713553878169,12.049155965924118,P37)
p(12,13.6,P38)
p(11.5,14.466025403784439,P39)
p(11.5,12.733974596215562,P42)
p(11.000000000000002,11.075662201037861,P43)
p(10.771286446121831,12.049155965924118,P44)
p(11.728713553878169,11.760480831329307,P45)
p(10.271286446121833,11.760480831329305,P47)
p(8.813859338365493,12.33783110051893,P48)
p(9.542572892243662,13.022649730810373,P49)
p(9.771286446121831,12.626506235113743,P51)
p(9.042572892243662,13.311324865405187,P52)
p(8.813859338365493,14.86216889948107,P53)
p(9.771286446121831,14.573493764886257,P54)
p(9.042572892243662,13.888675134594813,P55)
p(9.542572892243662,14.177350269189624,P56)
p(11,16.124337798962138,P58)
p(10.271286446121831,15.439519168670694,P60)
p(10.771286446121831,15.150844034075881,P61)
p(11.728713553878169,15.439519168670696,P62)
p(13.186140661634507,14.86216889948107,P63)
p(12.457427107756338,14.177350269189624,P64)
p(12.228713553878169,15.150844034075883,P65)
p(12.228713553878169,14.573493764886255,P66)
p(12.957427107756338,13.888675134594813,P67)
p(13.186140661634507,12.33783110051893,P68)
p(12.228713553878169,12.626506235113744,P69)
p(12.957427107756338,13.311324865405188,P70)
p(12.457427107756338,13.022649730810375,P71)
p(12.228713553878169,12.049155965924118,P72)
p(11,15.332050807568876,P73)
p(10,15.332050807568876,P74)
p(12.686140661634507,13.20385650430337,P78)
p(11.728713553878169,13.492531638898182,P79)
p(11.728713553878169,12.915181369708558,P82)
p(10.5,11.9416876048223,P83)
p(10.271286446121831,12.915181369708556,P84)
p(10.728713553878169,12.915181369708556,P86)
p(8.313859338365493,13.203856504303369,P88)
p(9.271286446121833,12.915181369708556,P90)
p(9.271286446121833,13.492531638898182,P91)
p(8.313859338365493,15.728194303265507,P93)
p(8.542572892243662,14.75470053837925,P95)
p(9.042572892243662,15.043375672974063,P96)
p(9.271286446121831,16.01686943786032,P97)
p(10.5,16.990363202746575,P98)
p(10.728713553878169,16.01686943786032,P99)
p(9.771286446121831,16.305544572455133,P100)
p(10.271286446121831,16.016869437860322,P101)
p(11.228713553878169,16.305544572455133,P102)
p(12.686140661634507,15.728194303265507,P103)
p(11.957427107756338,15.043375672974065,P104)
p(11.728713553878169,16.016869437860322,P105)
p(12.457427107756338,14.75470053837925,P107)
nolabel()
s(P3,P1) s(P51,P1) s(P54,P1) s(P55,P1) s(P4,P1) s(P86,P1) s(P90,P1) s(P2,P1) s(P5,P1) s(P6,P1) s(P7,P1) s(P52,P1)
s(P7,P2) s(P31,P2) s(P34,P2) s(P35,P2) s(P3,P2) s(P32,P2) s(P84,P2) s(P39,P2) s(P82,P2) s(P38,P2) s(P42,P2)
s(P26,P3) s(P29,P3) s(P30,P3) s(P4,P3) s(P27,P3) s(P73,P3) s(P74,P3) s(P39,P3) s(P56,P3) s(P60,P3)
s(P21,P4) s(P24,P4) s(P25,P4) s(P5,P4) s(P22,P4) s(P74,P4) s(P91,P4) s(P95,P4)
s(P16,P5) s(P19,P5) s(P20,P5) s(P6,P5) s(P17,P5)
s(P11,P6) s(P14,P6) s(P15,P6) s(P7,P6) s(P12,P6)
s(P9,P7) s(P10,P7) s(P36,P7) s(P37,P7) s(P49,P7) s(P42,P7) s(P47,P7)
s(P9,P8) s(P11,P8) s(P12,P8) s(P10,P8)
s(P10,P9) s(P48,P9) s(P49,P9)
s(P12,P11)
s(P14,P13) s(P16,P13) s(P17,P13) s(P15,P13)
s(P15,P14)
s(P17,P16)
s(P19,P18) s(P21,P18) s(P22,P18) s(P20,P18)
s(P20,P19)
s(P22,P21) s(P88,P21) s(P91,P21)
s(P24,P23) s(P26,P23) s(P27,P23) s(P25,P23)
s(P25,P24)
s(P93,P25) s(P95,P25)
s(P27,P26) s(P53,P26) s(P56,P26)
s(P29,P28) s(P31,P28) s(P32,P28) s(P30,P28)
s(P30,P29)
s(P58,P30) s(P60,P30)
s(P32,P31)
s(P78,P32) s(P82,P32)
s(P34,P33) s(P36,P33) s(P37,P33) s(P35,P33)
s(P35,P34) s(P83,P34) s(P84,P34)
s(P37,P36)
s(P43,P37) s(P47,P37)
s(P42,P38) s(P66,P38) s(P69,P38) s(P70,P38) s(P39,P38) s(P67,P38)
s(P61,P39) s(P64,P39) s(P65,P39) s(P62,P39) s(P73,P39) s(P79,P39) s(P107,P39)
s(P44,P42) s(P45,P42) s(P71,P42) s(P72,P42)
s(P44,P43) s(P47,P43) s(P45,P43)
s(P45,P44)
s(P49,P48) s(P51,P48) s(P52,P48)
s(P52,P51) s(P83,P51) s(P86,P51)
s(P54,P53) s(P56,P53) s(P55,P53)
s(P55,P54)
s(P88,P55) s(P90,P55)
s(P61,P58) s(P62,P58) s(P60,P58)
s(P62,P61)
s(P103,P62) s(P107,P62)
s(P64,P63) s(P66,P63) s(P67,P63) s(P65,P63)
s(P65,P64) s(P78,P64) s(P79,P64)
s(P67,P66)
s(P69,P68) s(P71,P68) s(P72,P68) s(P70,P68)
s(P70,P69)
s(P72,P71)
s(P101,P73) s(P104,P73) s(P105,P73) s(P74,P73) s(P102,P73)
s(P96,P74) s(P99,P74) s(P100,P74) s(P97,P74)
s(P79,P78) s(P82,P78)
s(P84,P83) s(P86,P83)
s(P91,P88) s(P90,P88)
s(P96,P93) s(P97,P93) s(P95,P93)
s(P97,P96)
s(P99,P98) s(P101,P98) s(P102,P98) s(P100,P98)
s(P100,P99)
s(P102,P101)
s(P104,P103) s(P107,P103) s(P105,P103)
s(P105,P104)
pen(2)
pen(2)
print(min=0.9999999999999973,7.81,17.89)
print(max=1.0000000000000018,7.81,17.59)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Nun kannst du nach belieben "MoSp's einsetzen" und weitere passende "Kanten suchen" und zwischendurch wenn nötig neue übereinander liegende "Knoten zusammenfassen".
\quoteoff
wenn du das probiert hattest, bitte nochmal mit der neuen Programmversion Streichholzgraph-981.htm wiederholen: Ausgehend von diesem Graph reihum die Buttons "Kanten suchen", "MoSp/2 einsetzen", "Knoten zusammenfassen", dann wieder von vorn "Kanten suchen"... bis nichts mehr ergänzt wird. Danke. Das Ergebnis vom ersten Versuch hatte nicht gestimmt. Es waren gleich mehrere Fehler enthalten, die wegen der vielen Kanten und Knoten nicht gleich erkennbar waren: wenn die Punkte nicht lückenlos durchnummeriert sind, wenn mehr als zwei Knoten zu einem zusammengefasst werden sollen und wenn die Punktnummern den Bereich ab 700 erreicht haben (wurde von Eingabefunktion Kites() genutzt, jetzt ab 7000).
"Kanten suchen" vor "MoSp/2 einsetzen" hat den Vorteil, dass bereits alle Moser-Spindeln eingezeichnet werden, wo die benötigten Punkte schon vorhanden sind. "Knoten zusammenfassen" schließlich bewirkt, dass es nicht gar so viele Punkte und Kanten werden.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1271, vom Themenstarter, eingetragen 2018-06-09
|
\quoteon(2018-06-02 05:43 - StefanVogel in Beitrag No. 1256)
\geo
ebene(103.1,122.54)
x(9.94,12)
y(10,12.45)
form(.)
#//Eingabe war:
#
#Anfang für einen neuen, noch unbenannten Streichholzgraph
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D);
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P6,P5) s(P7,P5) s(P4,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
pen(2)
pen(2)
print(min=0.9999999999999997,9.94,12.451)
print(max=1,9.94,12.151)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
\quoteoff
Wie kann ich zwei dieser Spindeln mit einem beweglichwn Winkel an P4,P5 konstruieren? Ich kriege das nicht hin. Ich würde gern 4 oder 5 Spindeln, also an einem 4- oder 5-Eck in der Mitte, konstruieren.
[Die Antwort wurde nach Beitrag No.1269 begonnen.]
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1272, eingetragen 2018-06-09
|
Zuerst den Winkel zu P8 an Kante P4-P5 anfügen (negativer Winkel geht),
\geo
ebene(103.1,136.17)
x(9.94,12)
y(10,12.72)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D); M(8,4,5,blauerWinkel);
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
p(11.211324865405187,11.823452511540777,P8)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P6,P5) s(P7,P5) s(P4,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
s(P4,P8)
pen(2)
color(#0000FF) m(P5,P4,MA10) m(P4,P8,MB10) b(P4,MA10,MB10)
pen(2)
print(min=0.9999999999999997,9.94,12.723)
print(max=1.0000000000000002,9.94,12.423)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
dann an Kante P4-P8 eine Kopie des Teilgraphen P1 bis P7 anfügen, und zwar so, dass P1 und P7 der Kopie auf P4 und P8 des Ausgangsgraphen zu liegen kommen.
\geo
ebene(166.21,172.61)
x(9.94,13.26)
y(10,13.45)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D); M(8,4,5,blauerWinkel); A(4,8,ab(1,7,[1,7]));
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
p(11.211324865405187,11.823452511540777,P8)
p(12.473493764886257,11.094738957662607,P9)
p(11.788675134594813,11.823452511540777,P10)
p(12.76216889948107,12.052166065418945,P11)
p(11.89614349569663,12.552166065418946,P12)
p(12.184818630291444,11.594738957662607,P13)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P6,P5) s(P7,P5) s(P4,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
s(P4,P8) s(P13,P8)
s(P4,P9)
s(P4,P10) s(P9,P10)
s(P9,P11) s(P10,P11)
s(P11,P12) s(P13,P12) s(P8,P12)
s(P4,P13)
pen(2)
color(#0000FF) m(P5,P4,MA10) m(P4,P8,MB10) b(P4,MA10,MB10)
pen(2)
print(min=0.9999999999999996,9.94,13.452)
print(max=1.0000000000000007,9.94,13.152)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Anstelle P1,P7 ginge auch P7,P5
\geo
ebene(166.21,161.17)
x(9.94,13.26)
y(10,13.22)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2); L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D); M(8,4,5,blauerWinkel); A(4,8,ab(7,5,[1,7]));
#
#
#//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(10.771286446121831,11.550844034075883,P5)
p(10.833333333333334,10.552770798392567,P6)
p(9.937953112788497,10.998073235683314,P7)
p(11.211324865405187,11.823452511540777,P8)
p(12.473493764886257,10.637311849906268,P9)
p(12.76216889948107,11.594738957662607,P10)
p(11.788675134594813,11.366025403784437,P11)
p(12.077350269189626,12.323452511540776,P12)
p(12.184818630291444,11.594738957662607,P13)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4) s(P9,P4) s(P13,P4)
s(P6,P5) s(P7,P5) s(P4,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
s(P4,P8) s(P12,P8) s(P13,P8)
s(P9,P10)
s(P9,P11) s(P10,P11)
s(P10,P12) s(P11,P12)
s(P9,P13)
pen(2)
color(#0000FF) m(P5,P4,MA10) m(P4,P8,MB10) b(P4,MA10,MB10)
pen(2)
print(min=0.9999999999999996,9.94,13.223)
print(max=1.0000000000000004,9.94,12.923)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
oder irgendeine andere Kante der Kopie.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1273, vom Themenstarter, eingetragen 2018-06-09
|
Danke, klappt jetzt. Und wieder habe ich eine MGC Funktion besser verstanden. :-)
Hier mein Resultat im Viereck.
\geo
ebene(325.14,397.39)
x(9.72,13.39)
y(8.9,13.39)
form(.)
#//Eingabe war:
#
##1256-1 Moser Spindel MoSp
#
#
#
#P[1]=[-19.28902500000002,-33.4095713284663];
#P[2]=[69.28902500000001,-33.4095713284663]; D=ab(1,2); A(2,1,Bew(1)); L(3,1,2);
#L(4,3,2);
#Q(5,1,4,ab(4,1,2,3),D);
#M(8,4,5,blauerWinkel); A(4,8,ab(5,4,[1,7]));
#A(5,8,ab(5,8,[1,13],"gespiegelt"));
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(9.782236965026888,9.622823359416172,P1)
p(10.782236965026888,9.622823359416172,P2)
p(10.282236965026888,10.488848763200611,P3)
p(11.282236965026888,10.488848763200611,P4)
p(10.553523411148719,11.173667393492055,P5)
p(10.615570298360222,10.175594157808739,P6)
p(9.720190077815387,10.620896595099488,P7)
p(12.27524651474953,10.606882801340618,P8)
p(11.974479048388659,8.901145737435732,P9)
p(12.617266658075199,9.66719018055471,P10)
p(11.632458905062991,9.84083835822164,P11)
p(12.086688391367042,9.894830326904824,P12)
p(11.170027622048506,9.495164173731519,P13)
p(10.85429087750959,12.87940445739694,P14)
p(11.658742303849742,12.285386021101154,P15)
p(10.742081534531208,11.885719867927847,P16)
p(11.54653296087136,11.291701431632061,P17)
p(11.196311020835257,11.939711836611032,P18)
p(10.21150326782305,12.113360014277962,P19)
p(13.04653296087136,12.1577268354165,P20)
p(13.108579848082863,11.159653599733184,P21)
p(12.213199627538026,11.604956037023934,P22)
p(12.54653296087136,11.291701431632061,P23)
p(12.04653296087136,12.1577268354165,P24)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4) s(P12,P4) s(P13,P4)
s(P6,P5) s(P7,P5) s(P4,P5) s(P17,P5) s(P18,P5) s(P19,P5)
s(P1,P6)
s(P1,P7) s(P6,P7)
s(P4,P8) s(P10,P8) s(P11,P8) s(P17,P8) s(P21,P8) s(P22,P8)
s(P9,P10)
s(P9,P11) s(P10,P11)
s(P9,P12)
s(P9,P13) s(P12,P13)
s(P14,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P16,P17) s(P23,P17) s(P24,P17)
s(P14,P18)
s(P14,P19) s(P18,P19)
s(P20,P21)
s(P20,P22) s(P21,P22)
s(P20,P23)
s(P20,P24) s(P23,P24)
pen(2)
color(#0000FF) m(P5,P4,MA10) m(P4,P8,MB10) b(P4,MA10,MB10)
pen(2)
print(min=0.9999999999999989,9.72,13.387)
print(max=1.0000000000000009,9.72,13.218)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
Dann müssen wir den MGC wohl bald in UDGC - Unit distance graphs Calculator - umbenennen. ;-)
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1274, vom Themenstarter, eingetragen 2018-06-09
|
@ Stefan
Ich hätte da noch einen Ergänzungswunsch: -10 und +10 Button für die Winkeländerung. Aber wie immer - nur wenn's keine Mühe macht. :-)
Ist die Schrift "stretch_factor=" mittlerweile überflüssig?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1275, vom Themenstarter, eingetragen 2018-06-09
|
@ haribo
Dein Färbungstalent ist mal wieder gefragt. Wenn man #1219 und #1248 überlagert - eine Kopie reicht schon, drei wären möglich - dann gibt es vier Knoten mit fünfter Farbe(gelb). Lässt sich #1219 so umfärben, dass auch dieser Graph nur vier Farben benötigt?
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_winkler_graph_f_rb_kombi.png
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1276, eingetragen 2018-06-09
|
Die Buttons habe ich in Streichholzgraph-981.htm ergänzt sowie fürs MGC im Notizbucheintrag "Streichholzgraph-pdf.htm". Auch das mit der Schrift ist dabei. Sie wird noch benötigt, aber nur dann, wenn im xml-Element "Feinjustieren" ein gleichnamiges xml-Attribut steht. Nur dann wird die Schrift auch ausgegeben.
Noch eine Ergänzung zum Thema Abstände messen. Da habe ich Streichholzgraph-981.htm schon vor längerer Zeit so geändert, dass bei der Ausgabe der Abstände rechts innerhalb der SVG-Grafik unter den Abständen der mit R(i,j) eingegebenen Kanten alle Kanten mit nicht ganzzahliger Länge aufgelistet werden, unter einem Text "passen nicht:". Wenn das brauchbar ist und die vorhergehende Variante nicht vermisst wird, ergänze ich es auch im MGC.
[Die Antwort wurde nach Beitrag No.1274 begonnen.]
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1277, eingetragen 2018-06-09
|
\quoteon(2018-06-09 06:33 - Slash in Beitrag No. 1275)
@ haribo
Dein Färbungstalent ist mal wieder gefragt. Wenn man #1219 und #1248 überlagert - eine Kopie reicht schon, drei wären möglich - dann gibt es vier Knoten mit fünfter Farbe(gelb). Lässt sich #1219 so umfärben, dass auch dieser Graph nur vier Farben benötigt?
\quoteoff
oben is simpel, glaub ich, kann mich aber auch irren
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-vierfarb18.png
unten geht bestimmt auch, mit ähnlichen tauschgeschäften zum rand hin vorarbeiten, der einzelne lila links davon liegt ziemlich einsam...
haribo
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1278, vom Themenstarter, eingetragen 2018-06-09
|
\quoteon(2018-06-09 08:18 - haribo in Beitrag No. 1277)
oben is simpel, glaub ich, kann mich aber auch irren
unten geht bestimmt auch, mit ähnlichen tauschgeschäften zum rand hin vorarbeiten, der einzelne lila links davon liegt ziemlich einsam...
haribo
\quoteoff
Leider ist Tauschen nicht so einfach, bin immer noch dran.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1279, eingetragen 2018-06-09
|
Über 50 Graphen von #1143 bis #1183 als Versuche für minimale Knotenzahl, die ich mit folgender Gleichung aus Beitrag No.622
Einsetzkanten = 1/2*Knotengradabweichung + Beweglichkeit +3
unter die Lupe nehmen will. Als Beweglichkeit verwende ich die Anzahl der einstellbaren Winkel eines eingebenen Graphen. Knotengradabweichung bezeichnet, um wieviel Knotengrade insgesamt der Graph von einem 4-regulären Graph abweicht. Beispielsweise wenn ein Graph 2 Knoten mit Grad 2 enthält, ist die Knotengradabweichung -4, bei einem Knoten von Grad 6 ist die Abweichung 2. Einsetzkanten war die Anzahl derjenigen Kanten, die beim Einsetzen passen müssen, weil durch den Graph ein bestimmter Abstand vorgegeben ist. Wenn beispielsweise ein Punkt P3 über zwei Kanten mit P1 und P2 verbunden werden soll, dann kann sich P3 nach der Länge der beiden Kanten ausrichten. Das sind keine Einsetzkanten. Wenn vorgegebe Punkte P4 und P5 durch eine Kante verbunden werden sollen, dann muss die Kantenlänge genau zum Abstand passen. Das meine ich mit Einsetzkanten. Es ist auch am schwierigsten, Einsetzkanten in einem Graph zu bestimmen, weil sie bei raffinierten Eingabemethoden mit Kopieren von Teilgraphen nicht so leicht ersichtlich sind. Eine gute Methode, solche Einsetzkanten zu bestimmen, ist Button "neue Eingabe, Rahmen zuerst", weil dort darauf geachtet wird, soche Einsetzkanten herauszufinden. Beispielsweise erhalte ich aus Graph #1155-1 nach Button "neue Eingabe, Rahmen zuerst"
\geo
ebene(377.02,434.3)
x(6.72,14.26)
y(10.3,18.98)
form(.)
#//Eingabe war:
#
#No.528-3: 4/4 fast mit 108
#
#
#
#
#
#
#
#P[20]=[10.969235580321385,14.926160163301688];
#P[18]=[-33.632774239493024,37.5239635971131]; D=ab(20,18); A(18,20);
#N(19,18,20); N(17,18,19); N(16,18,17); N(15,16,17); N(5,16,15);
#M(4,5,16,blauerWinkel); N(2,5,4); N(3,2,4); N(1,2,3); M(8,1,2,gruenerWinkel);
#N(7,8,1); N(9,8,7); N(10,8,9); N(11,10,9); N(12,10,11);
#M(24,12,10,orangerWinkel); N(22,24,12); N(25,24,22); N(23,24,25);
#M(48,23,24,vierterWinkel); N(47,23,48); N(46,47,48); N(37,47,46);
#M(36,37,47,fuenfterWinkel); N(35,37,36); N(34,35,36); N(33,35,34); N(32,33,34);
#N(26,33,32); Q(30,26,20,2*D,3*D); A(30,26); A(30,20); H(43,20,30,3); A(43,20);
#L(44,20,43); H(27,26,30,2); A(27,26); L(28,27,26); A(27,30); L(29,30,27);
#A(29,28); H(41,20,30,3/2); A(43,41); L(42,43,41); A(44,42); A(41,30);
#L(40,41,30); A(42,40); N(6,3,4); N(13,7,6); N(14,22,13); N(21,6,15);
#N(31,29,28); N(38,31,32); N(39,38,46); N(45,40,31); N(49,19,44); N(52,48,25);
#N(50,13,21); N(51,38,39); N(54,45,51); N(55,50,21); N(56,55,54);
#A(14,11); R(14,11,"green");
#A(39,36); R(39,36,"green");
#A(50,14); R(50,14,"green");
#A(51,45); R(51,45,"green");
#A(54,49); R(54,49,"green");
#A(55,49); R(55,49,"green");
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(6.721910903205746,13.477953552269392,P1)
p(7.1325875128116545,12.566172480782054,P2)
p(7.716874778606529,13.377719393184506,P3)
p(8.127551388212439,12.465938321697168,P4)
p(7.543264122417563,11.654391409294718,P5)
p(8.711838654007312,13.277485234099618,P6)
p(7.721682479170449,13.456580768336227,P7)
p(7.2403060650238125,14.333094743069847,P8)
p(8.240077640988515,14.311721959136683,P9)
p(7.758701226841881,15.188235933870303,P10)
p(8.758472802806583,15.166863149937138,P11)
p(8.277096388659947,16.043377124670755,P12)
p(8.370581578583481,14.21745523812803,P13)
p(9.359266947623222,14.367459374893485,P14)
p(8.380689657483865,12.20094284623265,P15)
p(8.435304318813852,11.20243534061849,P16)
p(9.272729853880154,11.748986777556421,P17)
p(9.32734451521014,10.750479271942261,P18)
p(10.164770050276442,11.297030708880193,P19)
p(10.219384711606427,10.298523203266035,P20)
p(9.336088731645873,12.49626065654957,P21)
p(8.877890533476592,15.243973349627106,P22)
p(10.262498487614554,16.284579333339426,P23)
p(9.26979743813725,16.163978229005092,P24)
p(9.870591582953894,15.364574453961442,P25)
p(13.76229215808947,13.42724613926834,P26)
p(13.338524869830202,12.521475039375332,P27)
p(12.76598773143872,13.341353826247206,P28)
p(12.342220443179453,12.435582726354198,P29)
p(12.914757581570935,11.615703939482326,P30)
p(11.769683304787971,13.25546151322607,P31)
p(12.762316447922176,13.42027627015819,P32)
p(13.256268219295382,14.289765572885528,P33)
p(12.256292509128086,14.282795703775378,P34)
p(12.750244280501292,15.152285006502716,P35)
p(11.750268570333995,15.145315137392565,P36)
p(12.2442203417072,16.014804440119903,P37)
p(12.124444293682371,14.190418539382176,P38)
p(11.1380221513951,14.354648126257965,P39)
p(12.085291443597251,12.174260942799823,P40)
p(12.016299958249432,11.176643694076896,P41)
p(11.186833820275748,11.735200697394392,P42)
p(11.11784233492793,10.737583448671465,P43)
p(10.288376196954246,11.296140451988961,P44)
p(11.134245239350047,12.483309672593343,P45)
p(11.631973922768367,15.22413742898527,P46)
p(11.253359414660876,16.149691886729666,P47)
p(10.641112995722043,15.359024875595033,P48)
p(10.233761535624259,12.29464795760312,P49)
p(8.99483165622204,13.43623066057798,P50)
p(11.489006228251279,13.418266698743825,P51)
p(10.249206091061385,14.439019996217047,P52)
p(10.501929197704534,13.2580202143299,P54)
p(9.979498096217922,13.261782955101996,P55)
p(10.24766575828805,14.225155211823061,P56)
nolabel()
s(P2,P1) s(P3,P1)
s(P5,P2) s(P4,P2)
s(P2,P3) s(P4,P3)
s(P5,P4)
s(P16,P5) s(P15,P5)
s(P3,P6) s(P4,P6)
s(P8,P7) s(P1,P7)
s(P1,P8)
s(P8,P9) s(P7,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11)
s(P10,P12) s(P11,P12)
s(P7,P13) s(P6,P13)
s(P22,P14) s(P13,P14) s(P11,P14)
s(P16,P15) s(P17,P15)
s(P18,P16) s(P17,P16)
s(P18,P17) s(P19,P17)
s(P20,P18)
s(P18,P19) s(P20,P19)
s(P6,P21) s(P15,P21)
s(P24,P22) s(P12,P22)
s(P24,P23) s(P25,P23)
s(P12,P24)
s(P24,P25) s(P22,P25)
s(P33,P26) s(P32,P26)
s(P26,P27) s(P30,P27)
s(P27,P28) s(P26,P28)
s(P30,P29) s(P27,P29) s(P28,P29)
s(P29,P31) s(P28,P31)
s(P33,P32) s(P34,P32)
s(P35,P33) s(P34,P33)
s(P35,P34) s(P36,P34)
s(P37,P35) s(P36,P35)
s(P37,P36)
s(P47,P37) s(P46,P37)
s(P31,P38) s(P32,P38)
s(P38,P39) s(P46,P39) s(P36,P39)
s(P41,P40) s(P30,P40)
s(P30,P41)
s(P43,P42) s(P41,P42) s(P40,P42)
s(P20,P43) s(P41,P43)
s(P20,P44) s(P43,P44) s(P42,P44)
s(P40,P45) s(P31,P45)
s(P47,P46) s(P48,P46)
s(P23,P47) s(P48,P47)
s(P23,P48)
s(P19,P49) s(P44,P49)
s(P13,P50) s(P21,P50) s(P14,P50)
s(P38,P51) s(P39,P51) s(P45,P51)
s(P48,P52) s(P25,P52)
s(P45,P54) s(P51,P54) s(P49,P54)
s(P50,P55) s(P21,P55) s(P49,P55)
s(P55,P56) s(P54,P56)
pen(2)
color(#0000FF) m(P16,P5,MA10) m(P5,P4,MB10) b(P5,MA10,MB10)
color(#008000) m(P2,P1,MA11) m(P1,P8,MB11) b(P1,MA11,MB11)
color(#FFA500) m(P10,P12,MA12) m(P12,P24,MB12) b(P12,MA12,MB12)
color(#EE82EE) m(P24,P23,MA13) m(P23,P48,MB13) b(P23,MA13,MB13)
color(#00FFFF) m(P47,P37,MA14) m(P37,P36,MB14) b(P37,MA14,MB14)
pen(2)
color(#008000) s(P14,P11) abstand(P14,P11,A18) print(abs(P14,P11):,6.72,18.985) print(A18,8.02,18.985)
color(#008000) s(P39,P36) abstand(P39,P36,A18) print(abs(P39,P36):,6.72,18.685) print(A18,8.02,18.685)
color(#008000) s(P50,P14) abstand(P50,P14,A18) print(abs(P50,P14):,6.72,18.385) print(A18,8.02,18.385)
color(#008000) s(P51,P45) abstand(P51,P45,A18) print(abs(P51,P45):,6.72,18.085) print(A18,8.02,18.085)
color(#008000) s(P54,P49) abstand(P54,P49,A18) print(abs(P54,P49):,6.72,17.785) print(A18,8.02,17.785)
color(#008000) s(P55,P49) abstand(P55,P49,A18) print(abs(P55,P49):,6.72,17.485) print(A18,8.02,17.485)
print(min=0.9999999999921866,6.72,17.185)
print(max=1.0000000000082252,6.72,16.885)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
das sind 2 Knoten von Grad 2, also Knotengradabweichung -4, 5 bewegliche Winkel, 6 Einsetzkanten (als A18=...aufgelistet). 6 = 1/2 * -4 + 5 + 3 stimmt. Es fällt nun auf, obwohl nur 5 bewegliche Winkel sind, mit denen nur 5 Einsetzkanten eingestellt werden können (je Winkel eine Kante), dass die 6-te Einsetzkante auch die Länge 1 hat. Das führe ich darauf zurück, dass bei zwei symmetrischen Teilgraphen eine Kante mehr passend gemacht werden kann. Von dieser Sorte sind nun eine ganze Reihe Graphen #1155-1, #1155-3, #1155-5, #1158-1, #1159-1, #1159-3, #1159-4, #1160, #1174-4, #1179-3, #1180-2 und auch die verschiedenen Doppelkites haben 2 Knoten vom Grad 2, eine Einsetzkante mehr als bewegliche Winkel und diese passt wegen zwei symmetrischer Teilgraphen.
Bei den 4-regulären Graphen sind das nach dieser Berechnung 3 Einsetzkanten mehr als bewegliche Winkel, Einsetzkanten = 1/2*0 + Beweglichkeit + 3. Als Beispiel der Graph #1152 nach Button "neue Eingabe, Rahmen zuerst"
\geo
ebene(349.48,492.78)
x(7.25,14.24)
y(10.57,20.42)
form(.)
#//Eingabe war:
#
##1152
#
#
#
#
#
#
#
#P[7]=[-9.344971751536168,28.448136643602496];
#P[5]=[-51.4585417846117,55.40082146477086]; D=ab(7,5); A(5,7); N(6,5,7);
#N(4,5,6); N(2,5,4); N(3,2,4); N(1,2,3); M(9,1,2,blauerWinkel); N(8,9,1);
#N(10,9,8); N(11,9,10); M(19,11,9,gruenerWinkel); N(18,19,11); N(20,19,18);
#N(21,19,20); N(22,21,20); N(23,21,22); M(27,23,21,orangerWinkel); N(26,27,23);
#N(28,27,26); N(29,27,28); M(35,29,27,vierterWinkel); N(34,29,35); N(33,34,35);
#N(31,34,33); N(32,31,33); N(30,31,32); M(37,30,31,fuenfterWinkel); N(36,37,30);
#N(38,37,36); N(39,37,38); Q(51,39,7,3*D,2*D); A(51,39); A(51,7); H(55,7,51,2);
#A(55,7); L(56,7,55); H(47,39,51,3); A(47,39); L(46,47,39); H(49,39,51,3/2);
#A(47,49); L(48,49,47); A(48,46); A(49,51); L(50,51,49); A(50,48); A(55,51);
#L(54,55,51); A(56,54); N(12,10,8); N(13,12,3); N(14,13,6); N(17,18,12);
#N(24,22,17); N(25,28,24); N(40,38,36); N(41,40,32); N(42,41,35); N(45,46,40);
#N(52,50,45); N(53,56,54); N(15,14,17); N(16,24,14); N(43,42,45); N(44,52,43);
#A(25,26); R(25,26,"green");
#A(53,52); R(53,52,"green");
#A(15,13); R(15,13,"green");
#A(16,15); R(16,15,"green");
#A(16,53); R(16,53,"green",jam(0.9944318817271832)*D);
#A(43,41); R(43,41,"green");
#A(44,42); R(44,42,"green");
#A(44,25); R(44,25,"green",jam(0.9944318817271841)*D);
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(7.286286362984743,12.186123822142152,P1)
p(8.128557763646254,11.647070125718786,P2)
p(8.174256258422039,12.646025403784439,P3)
p(9.01652765908355,12.106971707361073,P4)
p(8.970829164307766,11.108016429295418,P5)
p(9.858799059745062,11.567918010937703,P6)
p(9.813100564969277,10.56896273287205,P7)
p(8.142292025051727,12.703090268354345,P8)
p(7.266583118694315,13.185929694381574,P9)
p(8.122588780761298,13.702896140593769,P10)
p(7.246879874403886,14.185735566620998,P11)
p(8.998297687118711,13.220056714566539,P12)
p(9.080583052579161,12.223447905338444,P13)
p(10.024327714629512,12.554122991868212,P14)
p(9.26608235827094,13.206092300624892,P15)
p(10.20982702032129,13.53676738715466,P16)
p(9.183796992810487,14.202701109852988,P17)
p(8.217519616913654,13.94519764807057,P18)
p(7.940511693696871,14.906065282282029,P19)
p(8.911151436206639,14.665527363731602,P20)
p(8.634143512989857,15.62639499794306,P21)
p(9.604783255499624,15.385857079392633,P22)
p(9.327775332282844,16.346724713604093,P23)
p(10.127541654860838,14.533376196382754,P24)
p(10.922620536600148,15.139882232471571,P25)
p(10.125197934441495,15.743303473037832,P26)
p(10.249064756875672,16.735602324342246,P27)
p(11.046487359034323,16.132181083775986,P28)
p(11.1703541814685,17.1244799350804,P29)
p(13.697168383453079,15.507318845810367,P30)
p(12.854896982791553,16.046372542233712,P31)
p(12.809198488015795,15.047417264168057,P32)
p(11.966927087354268,15.586470960591402,P33)
p(12.012625582130026,16.585426238657057,P34)
p(11.124655686692742,16.125524657014743,P35)
p(12.841162721386109,14.990352399598152,P36)
p(13.716871627743535,14.507512973570947,P37)
p(12.860865965676565,13.99054652735873,P38)
p(13.73657487203399,13.507707101331524,P39)
p(11.985157059319139,14.473385953385936,P40)
p(11.902871693858662,15.469994762614027,P41)
p(10.959127031808322,15.13931967608423,P42)
p(11.717372388166895,14.487350367327554,P43)
p(10.773627726116423,14.156675280798135,P44)
p(11.799657753627457,13.490741558099469,P45)
p(12.765935129524248,13.74824501988205,P46)
p(13.042943052740931,12.787377385670563,P47)
p(12.072303310231188,13.02791530422109,P48)
p(12.349311233447873,12.067047670009604,P49)
p(11.37867149093813,12.307585588560128,P50)
p(11.655679414154815,11.346717954348643,P51)
p(10.855913091576985,13.16006647157005,P52)
p(10.060834209837324,12.553560435480918,P53)
p(10.85825681199607,11.95013919491478,P54)
p(10.734389989562045,10.957840343610346,P55)
p(9.9369673874033,11.561261584176483,P56)
nolabel()
s(P2,P1) s(P3,P1)
s(P5,P2) s(P4,P2)
s(P2,P3) s(P4,P3)
s(P5,P4) s(P6,P4)
s(P7,P5)
s(P5,P6) s(P7,P6)
s(P9,P8) s(P1,P8)
s(P1,P9)
s(P9,P10) s(P8,P10)
s(P9,P11) s(P10,P11)
s(P10,P12) s(P8,P12)
s(P12,P13) s(P3,P13)
s(P13,P14) s(P6,P14)
s(P14,P15) s(P17,P15) s(P13,P15)
s(P24,P16) s(P14,P16) s(P15,P16) s(P53,P16)
s(P18,P17) s(P12,P17)
s(P19,P18) s(P11,P18)
s(P11,P19)
s(P19,P20) s(P18,P20)
s(P19,P21) s(P20,P21)
s(P21,P22) s(P20,P22)
s(P21,P23) s(P22,P23)
s(P22,P24) s(P17,P24)
s(P28,P25) s(P24,P25) s(P26,P25)
s(P27,P26) s(P23,P26)
s(P23,P27)
s(P27,P28) s(P26,P28)
s(P27,P29) s(P28,P29)
s(P31,P30) s(P32,P30)
s(P34,P31) s(P33,P31)
s(P31,P32) s(P33,P32)
s(P34,P33) s(P35,P33)
s(P29,P34) s(P35,P34)
s(P29,P35)
s(P37,P36) s(P30,P36)
s(P30,P37)
s(P37,P38) s(P36,P38)
s(P37,P39) s(P38,P39)
s(P38,P40) s(P36,P40)
s(P40,P41) s(P32,P41)
s(P41,P42) s(P35,P42)
s(P42,P43) s(P45,P43) s(P41,P43)
s(P52,P44) s(P43,P44) s(P42,P44) s(P25,P44)
s(P46,P45) s(P40,P45)
s(P47,P46) s(P39,P46)
s(P39,P47) s(P49,P47)
s(P49,P48) s(P47,P48) s(P46,P48)
s(P51,P49)
s(P51,P50) s(P49,P50) s(P48,P50)
s(P50,P52) s(P45,P52)
s(P56,P53) s(P54,P53) s(P52,P53)
s(P55,P54) s(P51,P54)
s(P7,P55) s(P51,P55)
s(P7,P56) s(P55,P56) s(P54,P56)
pen(2)
color(#0000FF) m(P2,P1,MA10) m(P1,P9,MB10) b(P1,MA10,MB10)
color(#008000) m(P9,P11,MA11) m(P11,P19,MB11) b(P11,MA11,MB11)
color(#FFA500) m(P21,P23,MA12) m(P23,P27,MB12) b(P23,MA12,MB12)
color(#EE82EE) m(P27,P29,MA13) m(P29,P35,MB13) b(P29,MA13,MB13)
color(#00FFFF) m(P31,P30,MA14) m(P30,P37,MB14) b(P30,MA14,MB14)
pen(2)
color(#008000) s(P25,P26) abstand(P25,P26,A18) print(abs(P25,P26):,7.25,20.424) print(A18,8.55,20.424)
color(#008000) s(P53,P52) abstand(P53,P52,A18) print(abs(P53,P52):,7.25,20.124) print(A18,8.55,20.124)
color(#008000) s(P15,P13) abstand(P15,P13,A18) print(abs(P15,P13):,7.25,19.824) print(A18,8.55,19.824)
color(#008000) s(P16,P15) abstand(P16,P15,A18) print(abs(P16,P15):,7.25,19.524) print(A18,8.55,19.524)
color(#008000) s(P16,P53) abstand(P16,P53,A18) print(abs(P16,P53):,7.25,19.224) print(A18,8.55,19.224)
color(#008000) s(P43,P41) abstand(P43,P41,A18) print(abs(P43,P41):,7.25,18.924) print(A18,8.55,18.924)
color(#008000) s(P44,P42) abstand(P44,P42,A18) print(abs(P44,P42):,7.25,18.624) print(A18,8.55,18.624)
color(#008000) s(P44,P25) abstand(P44,P25,A18) print(abs(P44,P25):,7.25,18.324) print(A18,8.55,18.324)
print(min=0.9944318817268535,7.25,18.024)
print(max=1.0000000000004707,7.25,17.724)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
5 bewegliche Winkel und 8 Einsetzkanten, das sind wie berechnet 3 Einsetzkanten mehr als bewegliche Winkel. Auch hier stimmt eine der drei überzähligen Einsetzkanten, was ich auch wieder darauf zurückführe, dass der Graph aus zwei symmetrischen Teilgraphen besteht und in einer ganzen Reihe von Graphen ist das genauso: #1152, #1158-2, #1159-2, #1162-1 bis 4, #1163, #1165, #1166-1 bis 3, #1172-1, #1172-2, ##1174-1, #1174-3, #1178, #1179-1, #1179-2, #1180-1, #1182, #1183. Etliche Graphen wo das nicht so ist, lassen sich dann verbessern, indem die Eingabe so gestaltet wird, dass die Symmetrie berücksichtigt wird, #1143, #1145, #1157, #1154-4, #1173-1 bis 3, #1174-2.
Was nutzt das ganze, wenn alle 3 überzähligen Einsetzkanten passen sollen? Dann muss man es eben mit einem Graph versuchen, der vier symmetrische Teilgraphen enthält und die 3 überzähligen Einsetzkanten müssen sich symmetrisch über dem Graph verteilen und die dazu symmetrische vierte Kante ist dann einstellbar. Ich denke, nach diesen über 50 vergeblichen Versuchen haben wir eine solche Lösung verdient
\geo
ebene(445.98,447.47)
x(6.51,15.43)
y(10.45,19.4)
form(.)
#//Eingabe war:
#
#4/4 136 Hölzer
#
#
#
#P[1]=[-109.60715869352035,58.21325878430382];
#P[2]=[-61.050444698038525,46.286585905374785]; D=ab(1,2); A(2,1,Bew(1));
#L(3,1,2); L(4,3,2); L(5,4,2); L(6,4,5); L(7,6,5); M(8,3,4,blauerWinkel);
#N(9,8,6); L(10,8,9); L(11,10,9); L(12,8,10); N(13,12,1); L(14,1,13);
#L(15,14,13); L(16,14,15); L(17,16,15); L(18,16,17);
#A(7,11,ab(7,11,[1,18],"gespiegelt")); A(18,34,ab(34,18,[1,34])); N(67,66,17);
#N(68,33,51); RA(12,67); RA(61,67); RA(28,68); RA(46,68);
#
#
#
#
#
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(7.807856826129594,11.164265175686076,P1)
p(8.77899110603923,10.925731718107496,P2)
p(8.5,11.886025403784439,P3)
p(9.471134279909636,11.647491946205857,P4)
p(9.750125385948866,10.687198260528914,P5)
p(10.442268559819272,11.408958488627277,P6)
p(10.721259665858502,10.448664802950335,P7)
p(9.456051766687896,12.179223322284814,P8)
p(10.429324718364825,12.408874713602351,P9)
p(9.743804303630933,13.136928118912067,P10)
p(10.717077255307862,13.366579510229602,P11)
p(8.770531351954006,12.907276727594532,P12)
p(8.371273597200698,11.990438003898074,P13)
p(7.37407855451712,12.065284826457853,P14)
p(7.937495325588225,12.89145765466985,P15)
p(6.940300282904646,12.966304477229631,P16)
p(7.50371705397575,13.792477305441627,P17)
p(6.506522011292171,13.867324128001407,P18)
p(13.632599118425013,11.172614104994146,P19)
p(12.662152634236175,10.931297670979543,P20)
p(12.938389714123275,11.892387196307672,P21)
p(11.967943229934438,11.651070762293067,P22)
p(11.691706150047338,10.68998123696494,P23)
p(10.9974967457456,11.409754328278463,P24)
p(11.981501363598039,12.182843190615056,P25)
p(11.007574068063454,12.409703550776737,P26)
p(11.691004550842447,13.139719150067922,P27)
p(12.664931846377035,12.912858789906242,P28)
p(13.066816267745889,11.997168388154089,P29)
p(14.063792649101227,12.074873568287817,P30)
p(13.498009798422107,12.899427851447758,P31)
p(14.494986179777442,12.977133031581486,P32)
p(13.929203329098321,13.801687314741427,P33)
p(14.92617971045366,13.879392494875155,P34)
p(13.624844895616238,16.582451447190486,P35)
p(12.6537106157066,16.82098490476907,P36)
p(12.932701721745833,15.860691219092118,P37)
p(11.961567441836193,16.0992246766707,P38)
p(11.682576335796965,17.05951836234765,P39)
p(10.990433161926559,16.337758134249285,P40)
p(10.711442055887327,17.29805181992623,P41)
p(11.976649955057935,15.567493300591746,P42)
p(11.003377003381006,15.337841909274214,P43)
p(11.688897418114896,14.609788503964497,P44)
p(10.71562446643797,14.380137112646954,P45)
p(12.662170369791827,14.839439895282034,P46)
p(13.06142812454513,15.756278618978492,P47)
p(14.058623167228712,15.68143179641871,P48)
p(13.495206396157606,14.855258968206716,P49)
p(14.492401438841185,14.780412145646928,P50)
p(13.92898466777008,13.954239317434908,P51)
p(7.800102603320818,16.574102517882416,P52)
p(8.770549087509654,16.81541895189702,P53)
p(8.494312007622554,15.854329426568892,P54)
p(9.464758491811391,16.095645860583495,P55)
p(9.740995571698491,17.056735385911626,P56)
p(10.435204976000229,16.336962294598102,P57)
p(9.451200358147792,15.56387343226151,P58)
p(10.425127653682377,15.337013072099827,P59)
p(9.741697170903384,14.606997472808644,P60)
p(8.767769875368796,14.83385783297032,P61)
p(8.36588545399994,15.749548234722473,P62)
p(7.368909072644604,15.671843054588745,P63)
p(7.934691923323724,14.847288771428804,P64)
p(6.937715541968388,14.769583591295078,P65)
p(7.50349839264751,13.945029308135137,P66)
p(8.500693435331089,13.870182485575357,P67)
p(12.93200828641474,13.876534137301194,P68)
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(P23,P7) s(P24,P7)
s(P3,P8)
s(P8,P9) s(P6,P9)
s(P8,P10) s(P9,P10)
s(P10,P11) s(P9,P11) s(P26,P11) s(P27,P11)
s(P8,P12) s(P10,P12) s(P67,P12)
s(P12,P13) s(P1,P13)
s(P1,P14) s(P13,P14)
s(P14,P15) s(P13,P15)
s(P14,P16) s(P15,P16)
s(P16,P17) s(P15,P17)
s(P16,P18) s(P17,P18) s(P65,P18) s(P66,P18)
s(P19,P20)
s(P19,P21) s(P20,P21)
s(P20,P22) s(P21,P22)
s(P20,P23) s(P22,P23)
s(P22,P24) s(P23,P24)
s(P21,P25)
s(P24,P26) s(P25,P26)
s(P25,P27) s(P26,P27)
s(P25,P28) s(P27,P28) s(P68,P28)
s(P19,P29) s(P28,P29)
s(P19,P30) s(P29,P30)
s(P29,P31) s(P30,P31)
s(P30,P32) s(P31,P32)
s(P31,P33) s(P32,P33)
s(P32,P34) s(P33,P34) s(P50,P34) s(P51,P34)
s(P35,P36)
s(P35,P37) s(P36,P37)
s(P36,P38) s(P37,P38)
s(P36,P39) s(P38,P39)
s(P38,P40) s(P39,P40)
s(P39,P41) s(P40,P41) s(P56,P41) s(P57,P41)
s(P37,P42)
s(P40,P43) s(P42,P43)
s(P42,P44) s(P43,P44)
s(P43,P45) s(P44,P45) s(P59,P45) s(P60,P45)
s(P42,P46) s(P44,P46) s(P68,P46)
s(P35,P47) s(P46,P47)
s(P35,P48) s(P47,P48)
s(P47,P49) s(P48,P49)
s(P48,P50) s(P49,P50)
s(P49,P51) s(P50,P51)
s(P52,P53)
s(P52,P54) s(P53,P54)
s(P53,P55) s(P54,P55)
s(P53,P56) s(P55,P56)
s(P55,P57) s(P56,P57)
s(P54,P58)
s(P57,P59) s(P58,P59)
s(P58,P60) s(P59,P60)
s(P58,P61) s(P60,P61) s(P67,P61)
s(P52,P62) s(P61,P62)
s(P52,P63) s(P62,P63)
s(P62,P64) s(P63,P64)
s(P63,P65) s(P64,P65)
s(P64,P66) s(P65,P66)
s(P66,P67) s(P17,P67)
s(P33,P68) s(P51,P68)
pen(2)
color(#0000FF) m(P4,P3,MA10) m(P3,P8,MB10) f(P3,MA10,MB10)
pen(2)
color(red) s(P12,P67) abstand(P12,P67,A0) print(abs(P12,P67):,6.51,19.398) print(A0,7.81,19.398)
color(red) s(P61,P67) abstand(P61,P67,A1) print(abs(P61,P67):,6.51,19.098) print(A1,7.81,19.098)
color(red) s(P28,P68) abstand(P28,P68,A2) print(abs(P28,P68):,6.51,18.798) print(A2,7.81,18.798)
color(red) s(P46,P68) abstand(P46,P68,A3) print(abs(P46,P68):,6.51,18.498) print(A3,7.81,18.498)
print(min=0.999999999999995,6.51,18.198)
print(max=1.0000000000000282,6.51,17.898)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
68 Knoten, 136 Kanten.
[Die Antwort wurde nach Beitrag No.1277 begonnen.]
|
Profil
|
|
Home / Seite ohne Frame
Wie unterstütze ich den Matheplaneten mit Geld?
