| |
| 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.1520, eingetragen 2018-10-07
|
Einsetzkanten=4 (jedes komplette Doppelkite enthält eine, das muss man wissen), Knotengradabweichung=0 (alle Knoten haben Grad 4), ergibt
4 = 1/2 * 0 + Beweglichkeit + 3,
also Beweglichkeit=1.
|
 Profil
|
haribo
Senior 
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1521, eingetragen 2018-10-07
|
der 126er hat fünf verschiedene aussenknoten
bei 1;2;3+5 kann man öffnen und nach aussen spiegeln, bzw einen 180° gedrehten aussen ansetzen
bei 4 kann man entgegen erster einschätzung, auch öffnen,
aber dann, bisher, nicht die gewünschte spiegelung nach aussen vornehmen, sie führt zu überschneidungen da die beiden halbknoten eine ziemlich radiale öffnungsbewegung vollführen...
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-126er-offen.png
kann man den harborth derart öffnen?
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1522, eingetragen 2018-10-07
|
\quoteon(2018-10-07 13:41 - haribo in Beitrag No. 1521)
der 126er hat fünf verschiedene aussenknoten
bei 1;2;3+5 kann man öffnen und nach aussen spiegeln, bzw einen 180° gedrehten aussen ansetzen
bei 4 kann man entgegen erster einschätzung, auch öffnen,
aber dann, bisher, nicht die gewünschte spiegelung nach aussen vornehmen, sie führt zu überschneidungen da die beiden halbknoten eine ziemlich radiale öffnungsbewegung vollführen...
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-126er-offen.png
\quoteoff
Die radiale Öffnungsbewegung ist gar nicht so schlimm, entscheidend ist, dass die Kanten P3-P4 und P4-P5 nach dem trennen nicht mehr parallel sind, einmal mehr nach innen und einmal mehr nach außen geneigt. Bei einer Variante ist dann eine 180° Drehung und Anfügen ohne Überschneidung. Im Graph erkennbar ist da nichts mehr, man kann das aus der Koordinatentabelle ablesen ("Quote" unter dem Beitrag), dass P118 oberhalb P45 liegt und P109 oberhalb P54:
126 Knoten, 126×Grad 4
252 Kanten, minimal 0.99999999999997490896, maximal 1.00000030153666230603
einstellbare Kanten R(j,k):
|P45-P62|=0.99999999999997590816
\geo
ebene(391.2,393)
x(5.18,19.35)
y(10.04,24.28)
form(.)
#//Eingabe war:
#
##1521
#
#
#
#
#P[1]=[21.638816898981915,23.93279142981467];
#P[2]=[37.23093876875659,46.701546221799305]; D=ab(1,2); A(2,1,Bew(1));
#L(3,1,2); L(4,3,2); L(5,4,2); L(6,3,4); Q(7,1,6,ab(1,6,[1,6]),ab(1,2,3));
#A(11,12,ab(5,12,[1,12]),Bew(2)); W(); M(23,22,19,blauerWinkel);
#A(23,22,ab(4,5,[1,22])); M(44,43,40,gruenerWinkel); A(44,43,ab(4,5,[1,6]));
#Q(49,5,48,ab(12,11,[1,12]),ab(2,1,3)); N(61,60,54); L(62,60,61); L(63,61,54);
#RA(45,62); L(64,45,62); A(63,64,ab(64,63,[1,64]));
#
#
#
#
#
#
#
#
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(10.78413325520886090203,10.86726079977959713574,P1)
p(11.34915034160672853147,11.69234000329794120887,P2)
p(10.35210224802667866584,11.76911955193159009525,P3)
p(10.91711933442454629528,12.59419875544993416838,P4)
p(11.91416742800459616092,12.51741920681628528200,P5)
p(9.92007124084449642965,12.67097830408358127841,P6)
p(9.15485801071102400783,12.02720139208012994914,P7)
p(9.05990781192896932339,11.03171936825888188594,P8)
p(9.96949564160217427400,11.44723110806891064328,P9)
p(9.87454543417788777049,10.45174907210861547924,P10)
p(8.96495761314691463895,10.03623734443763382274,P11)
p(8.97993746561287231600,13.01178394468938925854,P12)
p(7.15424124370406300244,10.88553483615163841591,P13)
p(8.05959942842548926478,10.46088609029463611932,P14)
p(7.97467693766214136275,11.45727365071605596825,P15)
p(8.88003512238356584874,11.03262490485905367166,P16)
p(8.79511263162021883488,12.02901246528047352058,P17)
p(8.03641998133361035173,12.68046120647280972094,P18)
p(7.03864937961585823700,12.61372421262535326036,P19)
p(7.59533062589207919046,11.78299801473947994168,P20)
p(6.59756001080108411827,11.71626102746476760785,P21)
p(6.04087877789810434592,12.54698721877789679979,P22)
p(6.60589568173969965414,13.37206654731137689396,P23)
p(5.17681636444490145266,14.35070453190028061385,P24)
p(5.60884757117150289929,13.44884587533908693047,P25)
p(6.17386447501309731933,14.27392520387256702463,P26)
p(7.17091258558129496237,14.19714587584485698812,P27)
p(6.99599182263532526349,15.18172838975133487338,P28)
p(6.18135407206273868042,15.76169850565562313705,P29)
p(6.08640409973172324953,14.76621644727189419655,P30)
p(5.27176634296752588682,15.34618657673009423092,P31)
p(5.36671632149014943280,16.34166862155991140071,P32)
p(7.93612567327326523525,14.84092295715866072214,P33)
p(7.00758745640146685218,17.48514661374639800329,P34)
p(6.18715188894581036294,16.91340761765315292564,P35)
p(7.09251016762460295695,16.48875907211487401582,P36)
p(6.27207460016893847410,15.91702007602162893818,P37)
p(7.17743287884773017993,15.49237153048335002836,P38)
p(8.12095028981882194330,15.82369447746171431390,P39)
p(8.56203946006169402949,16.72115776021731647916,P40)
p(7.56426886073135662514,16.65442053730886229346,P41)
p(8.00535804335302891843,17.55188382835964944206,P42)
p(9.00312863030459276104,17.61862104297290088084,P43)
p(9.43516093888205453766,16.71676291424908100680,P44)
p(10.99722503905070247754,17.46506482321651887446,P45)
p(10.00017683467764761929,17.54184293309470987765,P46)
p(10.43220914325510939591,16.63998480437089000361,P47)
p(9.86719324745951631428,15.81490478552526290912,P48)
p(10.04211490671391793228,14.83032243085720836007,P49)
p(12.79634817932806534202,14.31234458743642790068,P50)
p(12.71142680639342437132,15.30873224313017999521,P51)
p(11.89099047101273143312,14.73699434899765314810,P52)
p(11.80606909807809046242,15.73338200469140701898,P53)
p(12.62650543345878517698,16.30511989882393564244,P54)
p(10.98563276269739752422,15.16164411055887839552,P55)
p(10.80080682615183462758,14.17887283850212298830,P56)
p(11.35748712707821184154,13.34814602265920058244,P57)
p(11.79857750174550901079,14.24560872783721698909,P58)
p(12.35525780366632986329,13.41488189712635659134,P59)
p(10.80732740834715066569,15.47410020877766889669,P60)
p(11.71691642090296703316,15.88961005380080315774,P61)
p(10.90227983331249106413,16.46958232316577408483,P62)
p(11.81186884586830743160,16.88509216818890834588,P63)
p(11.81186557024838457153,16.88509861305431769551,P64)
p(12.83960116090783110110,22.90292998146362890566,P65)
p(12.27458407450996347166,22.07785077794528305617,P66)
p(13.27163216809001511365,22.00107122931163416979,P67)
p(12.70661508169214748420,21.17599202579329187301,P68)
p(11.70956698811209584221,21.25277157442693720668,P69)
p(13.70366317527219734984,21.09921247715964653935,P70)
p(14.46887640540566621894,21.74298938916309964497,P71)
p(14.56382660418772445610,22.73847141298434593182,P72)
p(13.65423877451451950549,22.32295967317431717447,P73)
p(13.74918898193880423264,23.31844170913461056216,P74)
p(14.65877680296977914054,23.73395343680559221866,P75)
p(14.64379695050381968713,20.75840683655383855921,P76)
p(16.46949317241262988887,22.88465594509158762548,P77)
p(15.56413498769120451470,23.30930469094858992207,P78)
p(15.64905747845454797584,22.31291713052716829679,P79)
p(14.74369929373312615439,22.73756587638417059338,P80)
p(14.82862178449647316825,21.74117831596274896810,P81)
p(15.58731443478308165140,21.08972957477041632046,P82)
p(16.58508503650083554248,21.15646656861787278103,P83)
p(16.02840379022461547720,21.98719276650374609972,P84)
p(17.02617440531560788486,22.05392975377846198626,P85)
p(17.58285563821858943356,21.22320356246532924160,P86)
p(17.01783873437699412534,20.39812423393184914744,P87)
p(18.44691805167179055047,19.41948624934294187483,P88)
p(18.01488684494518821566,20.32134490590414088729,P89)
p(17.44986994110359290744,19.49626557737065724041,P90)
p(16.45282183053539881712,19.57304490539836905327,P91)
p(16.62774259348136496328,18.58846239149189472073,P92)
p(17.44238034405395154636,18.00849227558760290435,P93)
p(17.53733031638496697724,19.00397433397132829214,P94)
p(18.35196807314916611631,18.42400420451312470504,P95)
p(18.25701809462654168215,17.42852215968331108797,P96)
p(15.68760874284342499152,18.92926782408456176654,P97)
p(16.61614695971522337459,16.28504416749682448540,P98)
p(17.43658252717088075201,16.85678316359007311576,P99)
p(16.53122424849208726982,17.28143170912834847286,P100)
p(17.35165981594775175267,17.85317070522159355050,P101)
p(16.44630153726896182320,18.27781925075987246032,P102)
p(15.50278412629786828347,17.94649630378151172749,P103)
p(15.06169495605499797364,17.04903302102590600953,P104)
p(16.05946555538533360163,17.11577024393436019523,P105)
p(15.61837637276366308470,16.21830695288357659933,P106)
p(14.62060578581209924209,16.15156973827032516056,P107)
p(14.18857347723463746547,17.05342786699414148188,P108)
p(12.62650937706598952559,16.30512595802670716694,P109)
p(13.62355758143904438384,16.22834784814851616375,P110)
p(13.19152527286158260722,17.13020597687233248507,P111)
p(13.75654116865717568885,17.95528599571796135592,P112)
p(13.58161950940277407085,18.93986835038601768133,P113)
p(10.82738623678862666111,19.45784619380679458800,P114)
p(10.91230760972326585545,18.46145853811304249348,P115)
p(11.73274394510396234637,19.03319643224557466965,P116)
p(11.81766531803859976435,18.03680877655181546970,P117)
p(10.99722898265790682615,17.46507088241928684624,P118)
p(12.63810165341929447891,18.60854667068434764587,P119)
p(12.82292758996485915191,19.59131794274109950038,P120)
p(12.26624728903848193795,20.42204475858402545896,P121)
p(11.82515691437118299234,19.52458205340600727595,P122)
p(11.26847661245036213984,20.35530888411686589734,P123)
p(12.81640700776954133744,18.29609057246555536835,P124)
p(11.90681799521372496997,17.88058072744242110730,P125)
p(12.72145458280420093899,17.30060845807744840386,P126)
nolabel()
s(P9,P1) s(P10,P1)
s(P1,P2)
s(P1,P3) s(P2,P3)
s(P3,P4) s(P2,P4)
s(P4,P5) s(P2,P5) s(P57,P5) s(P59,P5)
s(P3,P6) s(P4,P6) s(P7,P6)
s(P7,P8)
s(P7,P9) s(P8,P9)
s(P8,P10) s(P9,P10)
s(P8,P11) s(P10,P11) s(P14,P11) s(P16,P11)
s(P7,P12) s(P6,P12) s(P17,P12) s(P18,P12)
s(P20,P13) s(P21,P13)
s(P13,P14)
s(P13,P15) s(P14,P15)
s(P14,P16) s(P15,P16)
s(P15,P17) s(P16,P17) s(P18,P17)
s(P18,P19)
s(P18,P20) s(P19,P20)
s(P19,P21) s(P20,P21)
s(P19,P22) s(P21,P22) s(P25,P22)
s(P22,P23) s(P25,P23) s(P26,P23)
s(P30,P24) s(P31,P24)
s(P24,P25)
s(P24,P26) s(P25,P26)
s(P26,P27) s(P23,P27) s(P28,P27)
s(P28,P29)
s(P28,P30) s(P29,P30)
s(P29,P31) s(P30,P31)
s(P29,P32) s(P31,P32) s(P35,P32) s(P37,P32)
s(P27,P33) s(P28,P33) s(P38,P33) s(P39,P33)
s(P41,P34) s(P42,P34)
s(P34,P35)
s(P34,P36) s(P35,P36)
s(P35,P37) s(P36,P37)
s(P36,P38) s(P37,P38) s(P39,P38)
s(P39,P40)
s(P39,P41) s(P40,P41)
s(P40,P42) s(P41,P42)
s(P40,P43) s(P42,P43) s(P46,P43)
s(P43,P44) s(P46,P44) s(P47,P44)
s(P62,P45)
s(P45,P46)
s(P45,P47) s(P46,P47)
s(P47,P48) s(P44,P48)
s(P55,P49) s(P56,P49) s(P48,P49)
s(P58,P50) s(P59,P50)
s(P50,P51)
s(P50,P52) s(P51,P52)
s(P51,P53) s(P52,P53)
s(P51,P54) s(P53,P54)
s(P52,P55) s(P53,P55) s(P56,P55)
s(P56,P57)
s(P56,P58) s(P57,P58)
s(P57,P59) s(P58,P59)
s(P48,P60) s(P49,P60)
s(P60,P61) s(P54,P61)
s(P60,P62) s(P61,P62)
s(P61,P63) s(P54,P63) s(P109,P63) s(P126,P63)
s(P45,P64) s(P62,P64) s(P118,P64) s(P125,P64)
s(P73,P65) s(P74,P65)
s(P65,P66)
s(P65,P67) s(P66,P67)
s(P66,P68) s(P67,P68)
s(P66,P69) s(P68,P69) s(P121,P69) s(P123,P69)
s(P67,P70) s(P68,P70) s(P71,P70)
s(P71,P72)
s(P71,P73) s(P72,P73)
s(P72,P74) s(P73,P74)
s(P72,P75) s(P74,P75) s(P78,P75) s(P80,P75)
s(P70,P76) s(P71,P76) s(P81,P76) s(P82,P76)
s(P84,P77) s(P85,P77)
s(P77,P78)
s(P77,P79) s(P78,P79)
s(P78,P80) s(P79,P80)
s(P79,P81) s(P80,P81) s(P82,P81)
s(P82,P83)
s(P82,P84) s(P83,P84)
s(P83,P85) s(P84,P85)
s(P83,P86) s(P85,P86) s(P89,P86)
s(P86,P87) s(P89,P87) s(P90,P87)
s(P94,P88) s(P95,P88)
s(P88,P89)
s(P88,P90) s(P89,P90)
s(P87,P91) s(P90,P91) s(P92,P91)
s(P92,P93)
s(P92,P94) s(P93,P94)
s(P93,P95) s(P94,P95)
s(P93,P96) s(P95,P96) s(P99,P96) s(P101,P96)
s(P91,P97) s(P92,P97) s(P102,P97) s(P103,P97)
s(P105,P98) s(P106,P98)
s(P98,P99)
s(P98,P100) s(P99,P100)
s(P99,P101) s(P100,P101)
s(P100,P102) s(P101,P102) s(P103,P102)
s(P103,P104)
s(P103,P105) s(P104,P105)
s(P104,P106) s(P105,P106)
s(P104,P107) s(P106,P107) s(P110,P107)
s(P107,P108) s(P110,P108) s(P111,P108)
s(P126,P109)
s(P109,P110)
s(P109,P111) s(P110,P111)
s(P108,P112) s(P111,P112)
s(P112,P113) s(P119,P113) s(P120,P113)
s(P122,P114) s(P123,P114)
s(P114,P115)
s(P114,P116) s(P115,P116)
s(P115,P117) s(P116,P117)
s(P115,P118) s(P117,P118)
s(P116,P119) s(P117,P119) s(P120,P119)
s(P120,P121)
s(P120,P122) s(P121,P122)
s(P121,P123) s(P122,P123)
s(P112,P124) s(P113,P124)
s(P118,P125) s(P124,P125)
s(P124,P126) s(P125,P126)
pen(2)
color(#0000FF) m(P19,P22,MA10) m(P22,P23,MB10) b(P22,MA10,MB10)
color(#008000) m(P40,P43,MA11) m(P43,P44,MB11) b(P43,MA11,MB11)
pen(2)
color(#32CD32) s(P45,P62)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1523, eingetragen 2018-10-07
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1524, eingetragen 2018-10-07
|
Genau so. Das linke rote Dreieck ließ sich ein wenig entgegen Uhrzeigersinn nach links drehen, rechtes rotes Dreieck starr. Dadurch wird Platz zum Anfügen. Beim jetzigen Graph dreht sich das linke Dreieck auch etwas nach links, das rechte auch, aber nicht so sehr. Dadurch wird der benötigte Platz frei zum Anfügen.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1525, eingetragen 2018-10-07
|
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-126er-offen-detail.png
ich drehe das rechte dreieck jeweils 1°, im linken detail nach links und rechts im uhrzeigersinn also nach rechts... beidesmal ergibt es aussenwinkel zur paralell verschobenen magentalinie von <180°
beidesmal sind also 180°drehen und ansetzen nicht ohne überschneidung zu haben, bei mir?
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1526, eingetragen 2018-10-07
|
Ist ein Fehler in der Beschreibung von mir. Das rechte Dreieck drehe ich ein wenig nach rechts im Uhrzeigersinn (aber nur 0,000062°) und das linke Dreieck nach links entgegen Uhrzeigersinn. Es entsteht etwa das linke Bild in #1525, deshalb dachte ich auch erst, das rechte Dreieck wurde nach links gedreht.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1527, eingetragen 2018-10-07
|
sehr merkwürdig
nochmal
dreh mal als erstes das rechte dreieck (anders als du es bisher machst)
egal wie wenig du es drehst es geht in richtung wie mein rechtes detail, oder???
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1528, eingetragen 2018-10-07
|
Unteren und linken Doppelkite kann ich weglassen, weil sie immer passend angefügt werden können. Dann drehe ich das rechte Dreieck P15,P5,P13 etwas nach links, ergibt ∠(P15-P5,P18-P23) =3,144°
23 Knoten, 4×Grad 2, 19×Grad 4
42 Kanten, minimal 0.99999999999999933387, maximal 1.00000000000000088818
einstellbare Kanten R(j,k):
∠(P15-P5,P18-P23)=3.14486960725702680008°
$
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{4,15}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{2.76,4.36}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
%1 1 \\ 2 1 \\
%3 1 \\
1 9 \\
1 10 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
6 7 \\
7 7 \\
8 7 \\
9 7 \\
9 8 \\
10 8 \\
10 9 \\
11 8 \\
11 10 \\
12 7 \\
12 6 \\
13 5 \\
14 12 \\
14 13 \\
15 13 \\
15 5 \\
16 14 \\
16 13 \\
16 18 \\
17 12 \\
17 14 \\
17 20 \\
17 21 \\
18 18 \\
19 18 \\
20 18 \\
20 19 \\
21 19 \\
21 20 \\
22 19 \\
22 21 \\
23 18 \\
23 16 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
%1 -1.23 4.58 \\%1
%2 -2.01 3.95 \\%2
1 3.51 1.73 \\
2 3.49 2.73 \\
3 2.64 2.22 \\
4 2.62 3.22 \\
5 3.47 3.73 \\
6 1.76 2.70 \\
7 1.51 1.73 \\
8 2.01 0.87 \\
9 2.51 1.73 \\
10 3.01 0.87 \\
11 2.51 0.00 \\
12 0.80 2.43 \\
13 2.57 3.31 \\
14 1.61 3.01 \\
15 2.65 4.30 \\
16 1.83 3.99 \\
17 0.71 3.43 \\
18 1.97 4.98 \\
19 0.99 5.14 \\
20 1.34 4.20 \\
21 0.35 4.36 \\
22 0.00 5.30 \\
23 2.76 4.36 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
%6 7 8 0.5 violet {\alpha} 1.3
%2 1 3 0.5 cyan {\beta} 1.5
%18 19 20 0.7 green!50!black {\varrho} 1.2
%3 4 2 0.4 blue {\delta} 1.4
4 5 13 0.5 blue {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%einstellbare Kanten:
\draw[green,very thick] (P5) -- (P15);
%nicht passende Kanten:
\end{tikzpicture}
\end{document}
$
dann nach rechts
23 Knoten, 4×Grad 2, 19×Grad 4
42 Kanten, minimal 0.99999999999999911182, maximal 1.00000000000000266454
einstellbare Kanten R(j,k):
∠(P15-P5,P18-P23)=2.27934087278503882956°
$
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{23}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{2.69,4.28}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
%1 1 \\ 2 1 \\
%3 1 \\
1 9 \\
1 10 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
6 7 \\
7 7 \\
8 7 \\
9 7 \\
9 8 \\
10 8 \\
10 9 \\
11 8 \\
11 10 \\
12 7 \\
12 6 \\
13 5 \\
14 12 \\
14 13 \\
15 13 \\
15 5 \\
16 14 \\
16 13 \\
16 18 \\
17 12 \\
17 14 \\
17 20 \\
17 21 \\
18 18 \\
19 18 \\
20 18 \\
20 19 \\
21 19 \\
21 20 \\
22 19 \\
22 21 \\
23 18 \\
23 16 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
%1 -1.23 4.58 \\%1
%2 -2.01 3.95 \\%2
1 3.52 1.73 \\
2 3.51 2.73 \\
3 2.65 2.22 \\
4 2.63 3.22 \\
5 3.49 3.73 \\
6 1.77 2.70 \\
7 1.52 1.73 \\
8 2.02 0.87 \\
9 2.52 1.73 \\
10 3.02 0.87 \\
11 2.52 0.00 \\
12 0.81 2.43 \\
13 2.54 3.42 \\
14 1.62 3.02 \\
15 2.74 4.40 \\
16 1.73 4.01 \\
17 0.71 3.43 \\
18 1.97 4.98 \\
19 0.99 5.14 \\
20 1.34 4.20 \\
21 0.36 4.36 \\
22 0.00 5.30 \\
23 2.69 4.28 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
%6 7 8 0.5 violet {\alpha} 1.3
%2 1 3 0.5 cyan {\beta} 1.5
%18 19 20 0.7 green!50!black {\varrho} 1.2
%3 4 2 0.4 blue {\delta} 1.4
4 5 13 0.5 blue {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%einstellbare Kanten:
\draw[green,very thick] (P5) -- (P15);
%nicht passende Kanten:
\end{tikzpicture}
\end{document}
$
ergibt ∠(P15-P5,P18-P23) mit gleichem Vorzeichen. Das Vorzeichen bleibt auch so, wenn ich das Dreieck nur geringfügig drehe. Da hat mir die umständliche Eingabe einen Streich gespielt. Die 5-te Stelle nach dem Komma kann auch falsch sein. haribo du hast Recht, das Doppelkite lässt sich an diesem Knoten öffnen, aber nicht spiegeln.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
 | Beitrag No.1529, vom Themenstarter, eingetragen 2018-10-07
|
Ein paar wirre Ideen mit dem Harborth-Ring...
Wenn ich den Harborth-Ring in zwei (un)gleiche Hälften teile und eine Quadrupel-Kette leicht schräg innen dazwischen setze (die Ringhälften sind dann versetzt), könnte man dann nicht viele solcher schrägen Pseudo-Ringe zu einem sehr großen Ring zusammensetzen? Oder habe ich da einen Denkfehler drin?
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_riesenring.png
Oder so etwas in der Art. Alles grobe Skizzen.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_ringdingbing.png
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_ringdingbing2.png
|
Profil
|
Ex_Senior
| Beitrag No.1530, eingetragen 2018-10-07
|
\quoteon(2018-10-07 18:03 - StefanVogel in Beitrag No. 1528)
$
% Streichholzgraphen mit pgfplots, TikZ/pgf.
% v3.1
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{4,15}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{2.76,4.36}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
%1 1 \\ 2 1 \\
%3 1 \\
1 9 \\
1 10 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
6 7 \\
7 7 \\
8 7 \\
9 7 \\
9 8 \\
10 8 \\
10 9 \\
11 8 \\
11 10 \\
12 7 \\
12 6 \\
13 5 \\
14 12 \\
14 13 \\
15 13 \\
15 5 \\
16 14 \\
16 13 \\
16 18 \\
17 12 \\
17 14 \\
17 20 \\
17 21 \\
18 18 \\
19 18 \\
20 18 \\
20 19 \\
21 19 \\
21 20 \\
22 19 \\
22 21 \\
23 18 \\
23 16 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
%1 -1.23 4.58 \\%1
%2 -2.01 3.95 \\%2
1 3.51 1.73 \\
2 3.49 2.73 \\
3 2.64 2.22 \\
4 2.62 3.22 \\
5 3.47 3.73 \\
6 1.76 2.70 \\
7 1.51 1.73 \\
8 2.01 0.87 \\
9 2.51 1.73 \\
10 3.01 0.87 \\
11 2.51 0.00 \\
12 0.80 2.43 \\
13 2.57 3.31 \\
14 1.61 3.01 \\
15 2.65 4.30 \\
16 1.83 3.99 \\
17 0.71 3.43 \\
18 1.97 4.98 \\
19 0.99 5.14 \\
20 1.34 4.20 \\
21 0.35 4.36 \\
22 0.00 5.30 \\
23 2.76 4.36 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
%6 7 8 0.5 violet {\alpha} 1.3
%2 1 3 0.5 cyan {\beta} 1.5
%18 19 20 0.7 green!50!black {\varrho} 1.2
%3 4 2 0.4 blue {\delta} 1.4
4 5 13 0.5 blue {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%einstellbare Kanten:
\draw[green,very thick] (P5) -- (P15);
%nicht passende Kanten:
\end{tikzpicture}
$
\quoteoff
Sollte hier wirklich dieser Außenwinkel markiert werden, oder vll. doch der Innenwinkel:
$
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{4,15}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{2.76,4.36}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
%1 1 \\ 2 1 \\
%3 1 \\
1 9 \\
1 10 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
6 7 \\
7 7 \\
8 7 \\
9 7 \\
9 8 \\
10 8 \\
10 9 \\
11 8 \\
11 10 \\
12 7 \\
12 6 \\
13 5 \\
14 12 \\
14 13 \\
15 13 \\
15 5 \\
16 14 \\
16 13 \\
16 18 \\
17 12 \\
17 14 \\
17 20 \\
17 21 \\
18 18 \\
19 18 \\
20 18 \\
20 19 \\
21 19 \\
21 20 \\
22 19 \\
22 21 \\
23 18 \\
23 16 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
%1 -1.23 4.58 \\%1
%2 -2.01 3.95 \\%2
1 3.51 1.73 \\
2 3.49 2.73 \\
3 2.64 2.22 \\
4 2.62 3.22 \\
5 3.47 3.73 \\
6 1.76 2.70 \\
7 1.51 1.73 \\
8 2.01 0.87 \\
9 2.51 1.73 \\
10 3.01 0.87 \\
11 2.51 0.00 \\
12 0.80 2.43 \\
13 2.57 3.31 \\
14 1.61 3.01 \\
15 2.65 4.30 \\
16 1.83 3.99 \\
17 0.71 3.43 \\
18 1.97 4.98 \\
19 0.99 5.14 \\
20 1.34 4.20 \\
21 0.35 4.36 \\
22 0.00 5.30 \\
23 2.76 4.36 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
%6 7 8 0.5 violet {\alpha} 1.3
%2 1 3 0.5 cyan {\beta} 1.5
%18 19 20 0.7 green!50!black {\varrho} 1.2
%3 4 2 0.4 blue {\delta} 1.4
13 5 4 0.9 blue {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%einstellbare Kanten:
\draw[green,very thick] (P5) -- (P15);
\end{tikzpicture}
\end{document}
$
Die Winkelorientierung mit der TikZ-Bibliothek angles ist ein bisschen knifflig. Man kann da etwas Rechnerisches einbauen, dass es eher passt; aber das macht den Code nochmal gut aufwendiger.
PS: Wenn ich mir meine Version anschaue, war es doch sinnvoller den Außenwinkel zu markieren...
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1531, eingetragen 2018-10-07
|
\quoteon(2018-10-07 18:03 - StefanVogel in Beitrag No. 1528)
das Doppelkite lässt sich an diesem Knoten öffnen, aber nicht spiegeln.
\quoteoff
bleibt aber eine ziemlich merkwürdige gitter-scheren konstruktion die in beide drehrichtungen das gleiche ergebnis ergibt, bezogen auf ∠(P15-P5,P18-P23)
@slash, das mag möglich sein, im detail muss aber auch bei den konstruktionen immer alles genauso schwierig eingepasst werden wie beim 100er, insofern sehe ich da ziemlich dunkel för.
haribo
[Die Antwort wurde nach Beitrag No.1529 begonnen.]
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1532, eingetragen 2018-10-07
|
@cis: gemeint ist der Außenwinkel. Er wird als negative Gradzahl -13° eingegeben und das entspricht einem Winkel von -13°+360°=347°. Ich bin auch immer wieder am Überlegen, wie am besten Winkel gezeichnet werden könnten. Mit Pfeil am Winkelbogen wäre eine Variante. Negativer Winkel deshalb, weil zuerst Kante P13-P5 gegeben ist und von da aus komme ich zu P15 entgegen dem Uhrzeigersinn nur über den Außenwinkel 347°, den ich aber als -13° eingebe. Solange nichts wichtiges überdeckt wird, ist es mir recht, wenn dann der negative Winkel so erkennbar ist. Schlimmer ist eher der schmale Winkel, welcher bei kleinen positiven Winkeln fast gar nicht mehr erkennbar ist. Doch da würde ich auch lieber etwas anderes verwenden als den Außenwinkel, damit der für negative Winkel bleibt.
[Die Antwort wurde nach Beitrag No.1530 begonnen.]
|
Profil
|
Ex_Senior
| Beitrag No.1533, eingetragen 2018-10-07
|
\quoteon(2018-10-07 19:33 - StefanVogel in Beitrag No. 1532)
@cis: ...
a. Mit Pfeil am Winkelbogen wäre eine Variante.
b. Schlimmer ist eher der schmale Winkel, welcher bei kleinen positiven Winkeln fast gar nicht mehr erkennbar ist.
\quoteoff
a. Das ist eine Ergänzung '->', die ich bewusst ausgelassen haben; weil eben das mit den Orientierungen von angles manchmal eine Art Lottospielen ist (es sei denn, man ergänzt eine if-Unterschiedung, die murmeltier einmal eingebaut hat - aber ob die immer tut, weiß ich nicht).
b. Dafür könnte man eine sehr elegante Annotation erwägen, und zwar mit der Bibliothek 'spy'.
Mit spy kann man bestimmte Bildausschnitte herrauszomen und vergrößert irgendwo platzieren.
Könnte man sich hier mal überlegen, wie (ob) das geht.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1534, eingetragen 2018-10-07
|
Bei einem vergrößerten Bildausschnitt wäre ja der schmale Winkel immer noch schmal, doch vielleicht Platz für eine entsprechend aufwändigere Darstellung des Winkels. Wenn der Bildschirmausschnitt auch für andere Bereiche geht, es gibt oft nahe beieinanderliegende Punkte, wo zum Beispiel erkennbar sein soll, dass sie nicht zusammenfallen, also wird garantiert angewendet der Bildausschnitt.
|
Profil
|
Ex_Senior
| Beitrag No.1535, eingetragen 2018-10-07
|
Ich habe hier https://matheplanet.de/matheplanet/nuke/html/viewtopic.php?topic=237430&post_id=1732051
etwas ergänzt. Ob das was nützt, vermag ich nicht zu sagen.
$
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{4,15}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{2.76,4.36}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 9 \\
1 10 \\
2 1 \\
3 1 \\
3 2 \\
4 3 \\
4 2 \\
5 4 \\
5 2 \\
6 3 \\
6 4 \\
6 7 \\
7 7 \\
8 7 \\
9 7 \\
9 8 \\
10 8 \\
10 9 \\
11 8 \\
11 10 \\
12 7 \\
12 6 \\
13 5 \\
14 12 \\
14 13 \\
15 13 \\
15 5 \\
16 14 \\
16 13 \\
16 18 \\
17 12 \\
17 14 \\
17 20 \\
17 21 \\
18 18 \\
19 18 \\
20 18 \\
20 19 \\
21 19 \\
21 20 \\
22 19 \\
22 21 \\
23 18 \\
23 16 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
%1 -1.23 4.58 \\%1
%2 -2.01 3.95 \\%2
1 3.51 1.73 \\
2 3.49 2.73 \\
3 2.64 2.22 \\
4 2.62 3.22 \\
5 3.47 3.73 \\
6 1.76 2.70 \\
7 1.51 1.73 \\
8 2.01 0.87 \\
9 2.51 1.73 \\
10 3.01 0.87 \\
11 2.51 0.00 \\
12 0.80 2.43 \\
13 2.57 3.31 \\
14 1.61 3.01 \\
15 2.65 4.30 \\
16 1.83 3.99 \\
17 0.71 3.43 \\
18 1.97 4.98 \\
19 0.99 5.14 \\
20 1.34 4.20 \\
21 0.35 4.36 \\
22 0.00 5.30 \\
23 2.76 4.36 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
13 5 4 0.5 blue {} 1.5 \\
};
\end{axis}
% Annotationen
%einstellbare Kanten:
\draw[green,very thick] (P5) -- (P15);
\spy [red] on (P5) in node at (2.5,-1.25);
\end{tikzpicture}
$
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1536, eingetragen 2018-10-08
|
\quoteon(2018-10-07 18:32 - Slash in Beitrag No. 1529)
Ein paar wirre Ideen mit dem Harborth-Ring...
Oder habe ich da einen Denkfehler drin?
\quoteoff
is mir noch eingefallen in der nacht,
es liegen dann auch, wie beim harborthring sowiso, wieder viele eckpunkte auf den linien... also nach deiner akzeptierten definition kein streichholzgraph
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1537, vom Themenstarter, eingetragen 2018-10-08
|
\quoteon(2018-10-08 08:43 - haribo in Beitrag No. 1536)
\quoteon(2018-10-07 18:32 - Slash in Beitrag No. 1529)
Ein paar wirre Ideen mit dem Harborth-Ring...
Oder habe ich da einen Denkfehler drin?
\quoteoff
is mir noch eingefallen in der nacht,
es liegen dann auch, wie beim harborthring sowiso, wieder viele eckpunkte auf den linien... also nach deiner akzeptierten definition kein streichholzgraph
\quoteoff
War mir klar, ich dachte nur, wenn man für diesen einfachen Ring ohne Speichen eine Lösung findet, könnte man die vielleicht auf die anderen Felgen übertragen. Mir ist bis jetzt aber auch nichts Neues dazu eingefallen.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1538, eingetragen 2018-10-13
|
\quoteon(2018-10-07 13:41 - haribo in Beitrag No. 1521)
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_st-126er-offen.png
kann man den harborth derart öffnen?
\quoteoff
Falls du die Knotengradabweichungsgleichung selber probieren willst, meine Antwort im hide-Bereich:
\hideon
Einsetzkanten = 1/2 * Knotengradabweichung + Beweglichkeit + 3
Wenn man zwei Randknoten derart öffnet, erhält man 4 Knoten vom Grad 2, alle anderen Grad 4. Einsetzkanten gibt es mindestens 0.
0 = 1/2 * (-2 + -2 + -2 + -2) + Beweglichkeit + 3
also Beweglichkeit mindestens 1, der Graph ist garantiert beweglich. Dann kann man diese Beweglichkeit genauer untersuchen, ob diese erhalten bleibt, wenn einer der beiden Randknoten wieder geschlossen wird.
\hideoff
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1539, vom Themenstarter, eingetragen 2018-10-13
|
Wer weiß, wofür sich die Kiteöffnung noch mal brauchen lässt. Auf jeden Fall wieder eine neue Erkenntnis.
Hier eine neue Idee, die vielleicht weitergesponnen werden könnte.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_idee_ring_b.png
Wenn sich eine Teilgraph mit einfacher Speiche so konstruieren lässt, dass der Winkel zwischen den beiden roten Kanten 180 grad ist, dann könnte man wie im Bild ein Dreieck dazwischen packen. Der Ring hätte dann nur die eine Öffnung wie im Bild und wäre sonst innen und außen geschlossen. Wenn das geht, könnte man die Größe so anpassen, dass sich die beiden Dreiecke berühren und dann den Ring oben an der Öffnung spiegeln.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1540, eingetragen 2018-10-13
|
ich verstehe deine beschreibung leider nicht
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1541, eingetragen 2018-10-14
|
Der 180°-Winkel lässt sich erst ab Tortenwinkel 360°/454 einstellen und das verbraucht den einen übrigen variablen orangen Winkel. Dadurch fehlt die Einstellmöglichkeit, den Rahmen innen genau zu schließen. Es wäre großer Zufall, wenn das ohne Einstellen gleich passt.
40 Knoten, 20×Grad 2, 20×Grad 4
60 Kanten, minimal 0.99999999999999944489, maximal 1.00000000000000199840
einstellbare Kanten R(j,k):
|P19-P37|=0.99999999999999966693
∠(P17-P2,P35-P2)=0.79295154185024563365°
∠(P38-P19,P38-P40)=120.00000000000011368684°
|P15-P18|=1.00035229331951258658
∠(P38-P37,P18-P17)=15.50562157521253148218°
$
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{6,10,14,18,23}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{9.46,0.96}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 1 \\
5 1 \\
5 4 \\
6 5 \\
7 5 \\
7 6 \\
8 7 \\
9 7 \\
9 8 \\
10 9 \\
11 9 \\
11 10 \\
12 11 \\
13 11 \\
13 12 \\
14 13 \\
15 13 \\
15 14 \\
16 15 \\
17 15 \\
17 16 \\
18 17 \\
19 17 \\
19 18 \\
19 37 \\
20 2 \\
21 2 \\
21 20 \\
22 20 \\
23 22 \\
23 20 \\
24 23 \\
25 24 \\
25 23 \\
26 25 \\
27 26 \\
27 25 \\
28 27 \\
29 28 \\
29 27 \\
30 29 \\
31 30 \\
31 29 \\
32 31 \\
33 32 \\
33 31 \\
34 33 \\
35 34 \\
35 33 \\
36 35 \\
37 36 \\
37 35 \\
38 37 \\
38 19 \\
39 38 \\
40 38 \\
40 39 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.87 0.50 \\
2 0.00 1.00 \\
3 0.00 0.00 \\
4 1.73185 0.00163 \\
5 1.73 1.00 \\
6 1.73225 0.00163 \\
7 2.60 0.50 \\
8 3.46410 0.00127 \\
9 3.46 1.00 \\
10 3.46451 0.00127 \\
11 4.33 0.50 \\
12 5.19636 0.00092 \\
13 5.20 1.00 \\
14 5.19676 0.00092 \\
15 6.06 0.50 \\
16 6.92861 0.00057 \\
17 6.93 1.00 \\
18 6.92902 0.00057 \\
19 7.80 0.50 \\
20 0.95 1.32 \\
21 0.20 1.98 \\
22 1.72 1.96 \\
23 1.89 0.98 \\
24 2.09 1.96 \\
25 2.84 1.29 \\
26 3.60 1.93 \\
27 3.77 0.95 \\
28 3.97 1.93 \\
29 4.72 1.27 \\
30 5.49 1.91 \\
31 5.66 0.92 \\
32 5.86 1.90 \\
33 6.61 1.24 \\
34 7.38 1.88 \\
35 7.55 0.90 \\
36 7.75 1.88 \\
37 8.50 1.21 \\
38 8.76 0.25 \\
39 9.73 0.00 \\
40 9.46 0.96 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 4 0.5 blue {} 1.5 \\
6 7 8 0.5 blue {} 1.5 \\
10 11 12 0.5 blue {} 1.5 \\
14 15 16 0.5 blue {} 1.5 \\
1 2 20 0.5 green {} 1.5 \\
21 20 22 0.5 orange {} 1.5 \\
24 25 26 0.5 orange {} 1.5 \\
28 29 30 0.5 orange {} 1.5 \\
32 33 34 0.5 orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einstellbare Kanten:
\draw[green,very thick] (P19) -- (P37);
%\draw[green,very thick] (P2) -- (P17);
\draw[green,very thick] (P19) -- (P38);
\draw[green,very thick] (P15) -- (P18);
\draw[green,very thick] (P37) -- (P38);
%\draw[green,very thick] (P33) -- (P35);
%nicht passende Kanten:
%Eingabe war:
%<Streichholzgraph>
%<Bildtext>#1491</Bildtext>
%<Winkel size="18" color="blue" id="blauerWinkel" value="119.97669109275817"/>
%<Winkel size="18" color="green" id="gruenerWinkel" value="48.53658606389711"/>
%<Winkel size="18" color="orange" id="orangerWinkel" value="-98.68238411873679"/>
%<Feinjustieren Anzahl="3"/>
%<Rechenweg>
%P[1]=[-245.92022459571126,153.7410115656023];
%P[2]=[-309.99950352675364,190.7372005059167]; D=ab(1,2); A(2,1,Bew(1));
%L(3,1,2);
%M(4,1,3,blauerWinkel); L(5,1,4);
%M(6,5,4,120-blauerWinkel); L(7,5,6);
%M(8,7,6,blauerWinkel); L(9,7,8);
%M(10,9,8,120-blauerWinkel); L(11,9,10);
%M(12,11,10,blauerWinkel); L(13,11,12);
%M(14,13,12,120-blauerWinkel); L(15,13,14);
%M(16,15,14,blauerWinkel); L(17,15,16);
%M(18,17,16,120-blauerWinkel); L(19,17,18);
%M(20,2,1,gruenerWinkel); L(21,2,20);
%M(22,20,21,orangerWinkel); L(23,22,20);
%M(24,23,22,240-orangerWinkel); L(25,24,23);
%M(26,25,24,orangerWinkel); L(27,26,25);
%M(28,27,26,240-orangerWinkel); L(29,28,27);
%M(30,29,28,orangerWinkel); L(31,30,29);
%M(32,31,30,240-orangerWinkel); L(33,32,31);
%M(34,33,32,orangerWinkel); L(35,34,33);
%M(36,35,34,240-orangerWinkel); L(37,36,35);
%N(38,37,19);
%RA(19,37);
%RW(2,17,2,35,360/454);
%N(39,38,[3,18]); L(40,38,39);
%RW(19,38,40,38,120);
%R(15,18);
%RW(37,38,17,18);
%RW(33,35,19,38);
%</Rechenweg>
%</Streichholzgraph>
%Ende der Eingabe.
\end{tikzpicture}
\end{document}
$
Bei der pirelli felge #1464
114 Knoten, 57×Grad 2, 57×Grad 4
171 Kanten, minimal 0.99999999999999222844, maximal 1.00000000000001088019
einstellbare Kanten R(j,k):
|P19-P37|=1.00000000000000710543
∠(P17-P2,P35-P2)=1.78217821782175711576°
|P110-P114|=1.00000000000004907186
|P15-P18|=1.00215771902535411009
∠(P38-P37,P18-P17)=0.02122865930516172617°
$
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{6,10,14,18,23,95,99,103,107,111,104,108,112}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{35.296052167248327,0.000000000000025}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[scale=0.3,SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
3 2 \\
4 1 \\
5 1 \\
5 4 \\
6 5 \\
7 5 \\
7 6 \\
8 7 \\
9 7 \\
9 8 \\
10 9 \\
11 9 \\
11 10 \\
12 11 \\
13 11 \\
13 12 \\
14 13 \\
15 13 \\
15 14 \\
16 15 \\
17 15 \\
17 16 \\
18 17 \\
19 17 \\
19 18 \\
19 37 \\
20 2 \\
21 2 \\
21 20 \\
22 20 \\
23 22 \\
23 20 \\
24 23 \\
25 24 \\
25 23 \\
26 25 \\
27 26 \\
27 25 \\
28 27 \\
29 28 \\
29 27 \\
30 29 \\
31 30 \\
31 29 \\
32 31 \\
33 32 \\
33 31 \\
34 33 \\
35 34 \\
35 33 \\
36 35 \\
37 36 \\
37 35 \\
38 37 \\
38 19 \\
39 38 \\
40 38 \\
40 39 \\
41 40 \\
42 41 \\
42 40 \\
43 42 \\
44 42 \\
44 43 \\
45 44 \\
46 45 \\
46 44 \\
47 46 \\
48 46 \\
48 47 \\
49 48 \\
50 49 \\
50 48 \\
51 50 \\
52 50 \\
52 51 \\
53 52 \\
54 53 \\
54 52 \\
55 54 \\
56 54 \\
56 55 \\
57 56 \\
58 57 \\
58 56 \\
59 58 \\
60 58 \\
60 59 \\
61 60 \\
62 61 \\
62 60 \\
63 62 \\
64 62 \\
64 63 \\
65 64 \\
66 65 \\
66 64 \\
67 66 \\
68 66 \\
68 67 \\
69 68 \\
70 69 \\
70 68 \\
71 70 \\
72 70 \\
72 71 \\
73 72 \\
74 73 \\
74 72 \\
75 74 \\
76 74 \\
76 75 \\
77 76 \\
78 77 \\
78 76 \\
79 78 \\
80 78 \\
80 79 \\
81 80 \\
82 81 \\
82 80 \\
83 82 \\
84 82 \\
84 83 \\
85 84 \\
86 85 \\
86 84 \\
87 86 \\
88 86 \\
88 87 \\
89 88 \\
90 89 \\
90 88 \\
91 90 \\
92 90 \\
92 91 \\
93 92 \\
94 93 \\
94 92 \\
95 94 \\
96 94 \\
96 95 \\
97 96 \\
98 97 \\
98 96 \\
99 98 \\
100 98 \\
100 99 \\
101 100 \\
102 101 \\
102 100 \\
103 102 \\
104 102 \\
104 103 \\
105 104 \\
106 105 \\
106 104 \\
107 106 \\
108 106 \\
108 107 \\
109 108 \\
110 109 \\
110 108 \\
111 110 \\
112 110 \\
112 111 \\
113 112 \\
114 113 \\
114 112 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.87 0.69 \\
2 0.00 1.20 \\
3 0.00 0.20 \\
4 1.7308 0.1870 \\
5 1.74 1.19 \\
6 1.7333 0.1869 \\
7 2.60 0.68 \\
8 3.4640 0.1773 \\
9 3.47 1.18 \\
10 3.4665 0.1773 \\
11 4.33 0.67 \\
12 5.1973 0.1676 \\
13 5.20 1.17 \\
14 5.1998 0.1676 \\
15 6.07 0.66 \\
16 6.9306 0.1580 \\
17 6.94 1.16 \\
18 6.9331 0.1580 \\
19 7.80 0.65 \\
20 0.98 1.43 \\
21 0.29 2.16 \\
22 1.72 2.10 \\
23 1.93 1.13 \\
24 2.21 2.09 \\
25 2.90 1.36 \\
26 3.64 2.03 \\
27 3.85 1.06 \\
28 4.13 2.02 \\
29 4.82 1.29 \\
30 5.56 1.96 \\
31 5.77 0.98 \\
32 6.06 1.94 \\
33 6.75 1.22 \\
34 7.49 1.89 \\
35 7.70 0.91 \\
36 7.98 1.87 \\
37 8.67 1.15 \\
38 8.67 0.15 \\
39 9.67 0.14 \\
40 9.17 1.01 \\
41 9.78 1.81 \\
42 10.16 0.89 \\
43 10.83 0.14 \\
44 11.14 1.08 \\
45 11.91 1.73 \\
46 12.08 0.75 \\
47 12.87 0.12 \\
48 13.01 1.11 \\
49 13.85 1.66 \\
50 13.91 0.66 \\
51 14.74 0.11 \\
52 14.80 1.11 \\
53 15.67 1.59 \\
54 15.65 0.59 \\
55 16.52 0.10 \\
56 16.51 1.10 \\
57 17.41 1.53 \\
58 17.33 0.53 \\
59 18.23 0.10 \\
60 18.16 1.09 \\
61 19.08 1.47 \\
62 18.94 0.48 \\
63 19.86 0.09 \\
64 19.74 1.08 \\
65 20.69 1.41 \\
66 20.50 0.43 \\
67 21.44 0.08 \\
68 21.27 1.06 \\
69 22.23 1.35 \\
70 22.00 0.38 \\
71 22.95 0.07 \\
72 22.74 1.05 \\
73 23.71 1.30 \\
74 23.44 0.33 \\
75 24.40 0.06 \\
76 24.16 1.03 \\
77 25.14 1.24 \\
78 24.83 0.29 \\
79 25.80 0.05 \\
80 25.53 1.01 \\
81 26.51 1.19 \\
82 26.17 0.25 \\
83 27.15 0.05 \\
84 26.84 1.00 \\
85 27.83 1.15 \\
86 27.47 0.21 \\
87 28.45 0.04 \\
88 28.11 0.98 \\
89 29.10 1.10 \\
90 28.71 0.18 \\
91 29.70 0.03 \\
92 29.33 0.96 \\
93 30.33 1.05 \\
94 29.91 0.15 \\
95 30.90 0.02 \\
96 30.51 0.94 \\
97 31.51 1.01 \\
98 31.07 0.11 \\
99 32.06 0.02 \\
100 31.65 0.93 \\
101 32.65 0.97 \\
102 32.18 0.08 \\
103 33.182 0.012 \\
104 32.74 0.91 \\
105 33.744 0.929 \\
106 33.260 0.054 \\
107 34.258 0.006 \\
108 33.801 0.895 \\
109 34.801 0.890 \\
110 34.296 0.026 \\
111 35.296052167248284 0.000000000000000 \\
112 34.819 0.879 \\
113 35.82 0.85 \\
114 35.296052167248327 0.000000000000025 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
3 1 4 0.5 blue {} 1.5 \\
6 7 8 0.5 blue {} 1.5 \\
10 11 12 0.5 blue {} 1.5 \\
14 15 16 0.5 blue {} 1.5 \\
1 2 20 0.5 green {} 1.5 \\
21 20 22 0.5 orange {} 1.5 \\
24 25 26 0.5 orange {} 1.5 \\
28 29 30 0.5 orange {} 1.5 \\
32 33 34 0.5 orange {} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
\spy [red,magnification=6,width=14cm,height=4cm] on (13.1cm,0.3cm) in node at (30cm,-8cm);
%einstellbare Kanten:
%\draw[green,very thick] (P19) -- (P37);
%\draw[green,very thick] (P2) -- (P17);
%\draw[green,very thick] (P110) -- (P114);
%\draw[green,very thick] (P15) -- (P18);
%\draw[green,very thick] (P37) -- (P38);
%nicht passende Kanten:
%Eingabe war:
%<Streichholzgraph>
%<Bildtext>#1464</Bildtext>
%<Winkel size="18" color="blue" id="blauerWinkel" value="119.85719504742875"/>
%<Winkel size="18" color="green" id="gruenerWinkel" value="43.92733023231984"/>
%<Winkel size="18" color="orange" id="orangerWinkel" value="-91.5618218528540478"/>
%<Feinjustieren Anzahl="2"/>
%<Rechenweg>
%P[1]=[-292.5485152747967,182.25503099990928];
%P[2]=[-309.9130579136837,192.38081035637242]; D=ab(1,2); A(2,1,Bew(1));
%L(3,1,2);
%M(4,1,3,blauerWinkel); L(5,1,4);
%M(6,5,4,120-blauerWinkel); L(7,5,6);
%M(8,7,6,blauerWinkel); L(9,7,8);
%M(10,9,8,120-blauerWinkel); L(11,9,10);
%M(12,11,10,blauerWinkel); L(13,11,12);
%M(14,13,12,120-blauerWinkel); L(15,13,14);
%M(16,15,14,blauerWinkel); L(17,15,16);
%M(18,17,16,120-blauerWinkel); L(19,17,18);
%M(20,2,1,gruenerWinkel); L(21,2,20);
%M(22,20,21,orangerWinkel); L(23,22,20);
%M(24,23,22,240-orangerWinkel); L(25,24,23);
%M(26,25,24,orangerWinkel); L(27,26,25);
%M(28,27,26,240-orangerWinkel); L(29,28,27);
%M(30,29,28,orangerWinkel); L(31,30,29);
%M(32,31,30,240-orangerWinkel); L(33,32,31);
%M(34,33,32,orangerWinkel); L(35,34,33);
%M(36,35,34,240-orangerWinkel); L(37,36,35);
%N(38,37,19);
%RA(19,37);
%RW(2,17,2,35,360/202);
%N(39,38,[3,18]); L(40,38,39);
% //R(15,18);
% //RW(37,38,17,18,0);
%OUOUOU(40,[21,36],[3,18],"OUOUOUOUOUOUOUOUOUOUOUOUOUOUOUOUOUOUO");
%R(110,114,"",1);
%R(15,18);
%RW(37,38,17,18);
%</Rechenweg>
%</Streichholzgraph>
%Ende der Eingabe.
\end{tikzpicture}
\end{document}
$
weil dort die Kanten wie P93-P94 nach rechts geneigt sind, lassen sich weitere Dreiecke nur noch abwechselnd nach unten und oben ausgerichtet anfügen. Dabei verringern sich die Abstände P98-P95, P102-P99, P106-P103 ... immer weiter, bis irgendwann ein Pi links von P(i-3) zu liegen kommt. Das lässt sich dann bei geeignetem Tortenwinkel, hier 360°/202, nur noch so einstellen, dass die beiden letzten Punkte P114 und P111 zusammenfallen. Zum Ring zusammengefügt entsteht ein Graph mit Knotengrad 6 in P114.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1542, vom Themenstarter, eingetragen 2018-10-14
|
Die Grafiken kommen echt gut, leider sind die Zeichen < und > im gequoteten Text durch "& l t ;" und "& g t ;" ersetzt.
Ist das noch ein UTF8 Umstellungsproblem?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1543, vom Themenstarter, eingetragen 2018-10-14
|
Spielt beim Teilgraph mit dem 180 Grad Winkel die Speichenlänge keine Rolle? Ich dachte, die Speichenlänge und die Anzahl der Speichen gehören immer zusammen. Ich steh' da gerade etwas auf'm Schlauch.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1544, eingetragen 2018-10-14
|
Die Kleiner- und Größerzeichen führen zu Ausgabefehlern, deshalb die Ersetzung. Im aktuellen Streichholzgraph-981.htm wird das wieder rückgängig gemacht. Also nicht davon stören lassen und genauso wie bisher alles zwischen den Zeilen "Eingabe war" und "Ende der Eingabe" ohne diese beiden Zeilen ins Streichholzprogramm kopieren.
[Die Antwort wurde nach Beitrag No.1542 begonnen.]
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1545, eingetragen 2018-10-14
|
Je größer die Anzahl der Speichen, jetzt 454/2, umso größer die Speichenlänge. Beim Zeichnen der Speichen müsste aber das letzte Dreieck genau in den Tortenwinkel 360°/454 passen. Weil keine Einstellmöglichkeit mehr besteht, müsste das auf Anhieb passen, was ich für unwahrscheinlich halte. Und selbst wenn, passen die zusätzlichen Dreiecke nicht.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1546, vom Themenstarter, eingetragen 2018-10-14
|
Passt leider nicht, aber sehr knapp.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_fast_ring_180.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1547, vom Themenstarter, eingetragen 2018-10-14
|
@Stefan: Würde es etwas nützen, wenn man den Harborth Teilgraph verkürzt oder verlängert?
@haribo: Du must dir unbedingt die Animation des geöffneten Doppelkites ansehen im neuen Programm. Auch mit Zoom auf die geöffnete Stelle.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1548, eingetragen 2018-10-14
|
Die Situation bleibt unverändert, mit den drei beweglichen Winkeln müssen |P19-P37|=1, Tortenwinkel und 180°-Winkel eingestellt werden. Dass sich dann der Ring innen schließt, ist nicht beeinflussbar. Es reicht auch nicht, nur 454/2=227 Speichen zu testen, eine Lösung wäre ja bei 228, 229, 230, 231, 232, 233, 234 oder mehr Speichen zufällig möglich.
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1549, eingetragen 2018-10-15
|
\quoteon(2018-10-14 06:29 - StefanVogel in Beitrag No. 1541)
weil dort die Kanten wie P93-P94 nach rechts geneigt sind, lassen sich weitere Dreiecke nur noch abwechselnd nach unten und oben ausgerichtet anfügen. Dabei verringern sich die Abstände P98-P95, P102-P99, P106-P103 ... immer weiter, bis irgendwann ein Pi links von P(i-3) zu liegen kommt. Das lässt sich dann bei geeignetem Tortenwinkel, hier 360°/202, nur noch so einstellen, dass die beiden letzten Punkte P114 und P111 zusammenfallen. Zum Ring zusammengefügt entsteht ein Graph mit Knotengrad 6 in P114.
\quoteoff
das gilt nicht immer, wenn die zweite tortenwand etwas weiter weg ist gibt es die zweite wechselmöglichkeit schon, ohne dass es zu immer weiteren wechseln führen muss... das macht die ououou theorie durchaus nochmal komplizierter ein dritter buschstabe ist erforderlich ououw...?
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1550, vom Themenstarter, eingetragen 2018-10-15
|
\quoteon(2018-10-13 21:04 - haribo in Beitrag No. 1540)
ich verstehe deine beschreibung leider nicht
\quoteoff
Klappt ja leider nicht, aber ist es jetzt klarer? Oben hätte man ihn spiegeln können.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_slash_idee_180.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1551, vom Themenstarter, eingetragen 2018-10-15
|
Eine weitere Idee zum Spiegeln wäre diese hier, wenn man die Lücke füllen könnte.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_neue_idee_spiegeln.png
|
Profil
|
haribo
Senior
Dabei seit: 25.10.2012
Mitteilungen: 4514
| Beitrag No.1552, eingetragen 2018-10-17
|
hm, du suchst immer noch ein nicht ringförmiges gebilde?
also aus dem ursprünglichen harborth-ring kann man z.B dieses kleeblattförmige gebilde erstellen, da die berührpunkte an der blauen wendestelle symetrisch angeortnet sind...
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_harbort-kleeblatt.png
so is noch etwas einfacher
https://www.matheplanet.com/matheplanet/nuke/html/uploads/b/35059_harbort-lamniskate.png
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1553, vom Themenstarter, eingetragen 2018-10-18
|
Ist ja super! Diese Ring-Graphen sind echt dein Ding.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_haribo_nicht_ring_harborth.png
...fehlt nur noch 'ne kleine Eisenbahn. :-)
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1554, eingetragen 2018-10-21
|
\quoteon(2018-10-06 11:33 - StefanVogel in Beitrag No. 1511)
\quoteon(2018-10-01 20:34 - Slash in Beitrag No. 1502)
Das Problem bei dem 200er ist (auch bei meiner Version), dass wenn man ihn Spiegelt, die inneren Punkte nicht Abstand 0 haben, sondern nur 0,00000... Anders ausgedrückt, die Dreieckspunkte liegen nicht genau auf der unteren Tortengeraden. Das könnte auch bedeuten, dass er nicht existiert. Ich weiß aber nicht, wie man hier weiter vorgehen muss mit der Feinjustierung. Ich habe Stefans Prinzip des Messens hier noch nicht genau verstanden.
https://www.matheplanet.de/matheplanet/nuke/html/uploads/b/8038_tg_7_p.png
Ich hatte gedacht, Stefans Eingabe macht das mit Feinjustieren 2 und 3 so, dass es passt. Aber dem ist wohl nicht so. Oder ich habe einen Fehler gemacht. Bei meinem 45/206 tritt dieses Ungenauigkeitsproblem aber auch auf, also keine 10-12 Stellen Genauigkeit auf der rosa Linie.
\quoteoff
Ich habe dann den Teilgraph nicht an P3-P92 gespiegelt sondern an P3-P18. Dann stimmen die inneren Kanten mit der gewohnten Genauigkeit 12 Nullen nach dem Komma. Nur die beiden letzten Kanten P92-P165 und P92-P166 sind ungenauer, doch das liegt wohl an der entsprechenden Ungenauigkeit der acos-Funktion, wie in Beitrag No.1479 beschrieben.
166 Knoten, 56×Grad 2, 2×Grad 3, 108×Grad 4
275 Kanten, minimal 0.99999999999892086322, maximal 1.00000053760488216703
einstellbare Kanten R(j,k):
|P19-P37|=0.99999999999892086322
∠(P17-P2,P35-P2)=1.80000000000113691279°
∠(P92-P3,P92-P18)=0.00000000000000000000°
|P15-P18|=1.00062360278313589035
∠(P38-P37,P18-P17)=0.05259594927625977495°
\geo
ebene(697.96,91.77)
x(-4.45,31.22)
y(15.37,20.06)
form(.)
#//Eingabe war:
#
##1491
#
#
#
#
#
#P[1]=[-265.6754875624124,153.2893963513158];
#P[2]=[-282.5804371072955,163.1471733560662]; D=ab(1,2); A(2,1,Bew(1));
#L(3,1,2);
#M(4,1,3,blauerWinkel); L(5,1,4);
#M(6,5,4,120-blauerWinkel); L(7,5,6);
#M(8,7,6,blauerWinkel); L(9,7,8);
#M(10,9,8,120-blauerWinkel); L(11,9,10);
#M(12,11,10,blauerWinkel); L(13,11,12);
#M(14,13,12,120-blauerWinkel); L(15,13,14);
#M(16,15,14,blauerWinkel); L(17,15,16);
#M(18,17,16,120-blauerWinkel); L(19,17,18);
#M(20,2,1,gruenerWinkel); L(21,2,20);
#M(22,20,21,orangerWinkel); L(23,22,20);
#M(24,23,22,240-orangerWinkel); L(25,24,23);
#M(26,25,24,orangerWinkel); L(27,26,25);
#M(28,27,26,240-orangerWinkel); L(29,28,27);
#M(30,29,28,orangerWinkel); L(31,30,29);
#M(32,31,30,240-orangerWinkel); L(33,32,31);
#M(34,33,32,orangerWinkel); L(35,34,33);
#M(36,35,34,240-orangerWinkel); L(37,36,35);
#N(38,37,19);
#RA(19,37);
#RW(2,17,2,35,360/200);
#N(39,38,[3,18]); L(40,38,39);
# //R(15,18);
# //RW(37,38,17,18,0);
#OUOUOU(40,[21,36],[3,18],"ouuououuuuoooooooooooooooo");
#RW(3,92,18,92,0);
#R(15,18);
#RW(37,38,17,18);
#
#A(3,18,ab(3,18,
#1,2,5,7,9,11,13,15,17,19,
#[20,38],
#40,41,42,44,
#46,47,48,
#50,51,52,54,56,58,
#[60,91],"gespiegelt"));
#A(4,93); A(4,95); A(6,95); A(6,96); A(8,96); A(8,97); A(10,97); A(10,98);
#A(12,98); A(12,99); A(14,99); A(14,100); A(16,100); A(16,101); A(39,122);
#A(43,124); A(43,125); A(45,125); A(45,126); A(49,128); A(49,129); A(53,131);
#A(53,132); A(55,132); A(55,133); A(57,133); A(57,134); A(59,134); A(59,135);
#A(92,165); A(92,166);
#
#
#//Ende der Eingabe, weiter mit fedgeo:
p(-3.58,17.83,P1)
p(-4.44,18.34,P2)
p(-4.44,17.34,P3)
p(-2.71,17.33,P4)
p(-2.71,18.33,P5)
p(-2.71,17.33,P6)
p(-1.84,17.83,P7)
p(-0.98,17.32,P8)
p(-0.98,18.32,P9)
p(-0.98,17.32,P10)
p(-0.11,17.82,P11)
p(0.75,17.31,P12)
p(0.76,18.31,P13)
p(0.75,17.31,P14)
p(1.62,17.81,P15)
p(2.48,17.30,P16)
p(2.49,18.30,P17)
p(2.49,17.30,P18)
p(3.35,17.80,P19)
p(-3.47,18.58,P20)
p(-4.16,19.30,P21)
p(-2.73,19.25,P22)
p(-2.52,18.27,P23)
p(-2.24,19.23,P24)
p(-1.55,18.51,P25)
p(-0.80,19.18,P26)
p(-0.60,18.20,P27)
p(-0.32,19.16,P28)
p(0.38,18.44,P29)
p(1.12,19.11,P30)
p(1.33,18.13,P31)
p(1.61,19.09,P32)
p(2.30,18.37,P33)
p(3.04,19.04,P34)
p(3.25,18.06,P35)
p(3.53,19.02,P36)
p(4.22,18.30,P37)
p(4.22,17.30,P38)
p(5.22,17.29,P39)
p(4.72,18.16,P40)
p(5.33,18.95,P41)
p(5.71,18.03,P42)
p(6.38,17.29,P43)
p(6.69,18.24,P44)
p(7.00,17.28,P45)
p(7.67,18.02,P46)
p(8.23,18.85,P47)
p(8.67,17.95,P48)
p(9.40,17.27,P49)
p(9.62,18.25,P50)
p(10.48,18.77,P51)
p(10.50,17.77,P52)
p(11.36,17.26,P53)
p(11.37,18.26,P54)
p(11.37,17.26,P55)
p(12.23,17.76,P56)
p(13.10,17.25,P57)
p(13.10,18.25,P58)
p(13.10,17.25,P59)
p(13.97,17.75,P60)
p(14.46,18.62,P61)
p(14.97,17.77,P62)
p(15.54,18.59,P63)
p(15.96,17.68,P64)
p(16.45,18.55,P65)
p(16.96,17.69,P66)
p(17.54,18.51,P67)
p(17.96,17.61,P68)
p(18.45,18.48,P69)
p(18.96,17.62,P70)
p(19.53,18.44,P71)
p(19.96,17.54,P72)
p(20.45,18.41,P73)
p(20.96,17.55,P74)
p(21.53,18.37,P75)
p(21.95,17.46,P76)
p(22.44,18.34,P77)
p(22.95,17.48,P78)
p(23.53,18.30,P79)
p(23.95,17.39,P80)
p(24.44,18.26,P81)
p(24.95,17.40,P82)
p(25.52,18.23,P83)
p(25.95,17.32,P84)
p(26.44,18.19,P85)
p(26.95,17.33,P86)
p(27.52,18.15,P87)
p(27.94,17.25,P88)
p(28.43,18.12,P89)
p(28.94,17.26,P90)
p(29.51,18.08,P91)
p(29.94,17.18,P92)
p(-3.58,16.83,P93)
p(-4.45,16.34,P94)
p(-2.72,16.33,P95)
p(-1.85,16.82,P96)
p(-0.98,16.32,P97)
p(-0.12,16.82,P98)
p(0.75,16.31,P99)
p(1.62,16.81,P100)
p(2.48,16.30,P101)
p(3.35,16.80,P102)
p(-3.48,16.09,P103)
p(-4.18,15.37,P104)
p(-2.74,15.41,P105)
p(-2.53,16.39,P106)
p(-2.26,15.43,P107)
p(-1.56,16.14,P108)
p(-0.82,15.46,P109)
p(-0.60,16.44,P110)
p(-0.33,15.48,P111)
p(0.37,16.19,P112)
p(1.10,15.52,P113)
p(1.32,16.49,P114)
p(1.59,15.53,P115)
p(2.29,16.24,P116)
p(3.02,15.57,P117)
p(3.24,16.54,P118)
p(3.51,15.58,P119)
p(4.21,16.29,P120)
p(4.22,17.29,P121)
p(4.71,16.43,P122)
p(5.32,15.63,P123)
p(5.71,16.55,P124)
p(6.68,16.33,P125)
p(7.66,16.54,P126)
p(8.22,15.71,P127)
p(8.66,16.60,P128)
p(9.61,16.29,P129)
p(10.46,15.77,P130)
p(10.50,16.76,P131)
p(11.36,16.26,P132)
p(12.23,16.76,P133)
p(13.09,16.25,P134)
p(13.96,16.75,P135)
p(14.44,15.87,P136)
p(14.96,16.73,P137)
p(15.53,15.90,P138)
p(15.96,16.80,P139)
p(16.44,15.93,P140)
p(16.96,16.78,P141)
p(17.52,15.95,P142)
p(17.96,16.86,P143)
p(18.44,15.98,P144)
p(18.96,16.83,P145)
p(19.52,16.01,P146)
p(19.95,16.91,P147)
p(20.44,16.03,P148)
p(20.95,16.89,P149)
p(21.52,16.06,P150)
p(21.95,16.96,P151)
p(22.43,16.09,P152)
p(22.95,16.94,P153)
p(23.51,16.11,P154)
p(23.95,17.02,P155)
p(24.43,16.14,P156)
p(24.95,16.99,P157)
p(25.51,16.17,P158)
p(25.95,17.07,P159)
p(26.43,16.19,P160)
p(26.95,17.05,P161)
p(27.51,16.22,P162)
p(27.94,17.12,P163)
p(28.42,16.25,P164)
p(28.94,17.10,P165)
p(29.51,16.27,P166)
nolabel()
s(P1,P2)
s(P1,P3) s(P2,P3) s(P93,P3) s(P94,P3)
s(P1,P4) s(P93,P4) s(P95,P4)
s(P1,P5) s(P4,P5)
s(P5,P6) s(P95,P6) s(P96,P6)
s(P5,P7) s(P6,P7)
s(P7,P8) s(P96,P8) s(P97,P8)
s(P7,P9) s(P8,P9)
s(P9,P10) s(P97,P10) s(P98,P10)
s(P9,P11) s(P10,P11)
s(P11,P12) s(P98,P12) s(P99,P12)
s(P11,P13) s(P12,P13)
s(P13,P14) s(P99,P14) s(P100,P14)
s(P13,P15) s(P14,P15)
s(P15,P16) s(P100,P16) s(P101,P16)
s(P15,P17) s(P16,P17)
s(P17,P18) s(P101,P18)
s(P17,P19) s(P18,P19) s(P37,P19)
s(P2,P20)
s(P2,P21) s(P20,P21)
s(P20,P22)
s(P22,P23) s(P20,P23)
s(P23,P24)
s(P24,P25) s(P23,P25)
s(P25,P26)
s(P26,P27) s(P25,P27)
s(P27,P28)
s(P28,P29) s(P27,P29)
s(P29,P30)
s(P30,P31) s(P29,P31)
s(P31,P32)
s(P32,P33) s(P31,P33)
s(P33,P34)
s(P34,P35) s(P33,P35)
s(P35,P36)
s(P36,P37) s(P35,P37)
s(P37,P38) s(P19,P38)
s(P38,P39) s(P122,P39)
s(P38,P40) s(P39,P40)
s(P40,P41)
s(P41,P42) s(P40,P42)
s(P42,P43) s(P124,P43) s(P125,P43)
s(P42,P44) s(P43,P44)
s(P44,P45) s(P125,P45) s(P126,P45)
s(P44,P46) s(P45,P46)
s(P46,P47)
s(P47,P48) s(P46,P48)
s(P48,P49) s(P128,P49) s(P129,P49)
s(P48,P50) s(P49,P50)
s(P50,P51)
s(P51,P52) s(P50,P52)
s(P52,P53) s(P131,P53) s(P132,P53)
s(P52,P54) s(P53,P54)
s(P54,P55) s(P132,P55) s(P133,P55)
s(P54,P56) s(P55,P56)
s(P56,P57) s(P133,P57) s(P134,P57)
s(P56,P58) s(P57,P58)
s(P58,P59) s(P134,P59) s(P135,P59)
s(P58,P60) s(P59,P60)
s(P60,P61)
s(P61,P62) s(P60,P62)
s(P62,P63)
s(P63,P64) s(P62,P64)
s(P64,P65)
s(P65,P66) s(P64,P66)
s(P66,P67)
s(P67,P68) s(P66,P68)
s(P68,P69)
s(P69,P70) s(P68,P70)
s(P70,P71)
s(P71,P72) s(P70,P72)
s(P72,P73)
s(P73,P74) s(P72,P74)
s(P74,P75)
s(P75,P76) s(P74,P76)
s(P76,P77)
s(P77,P78) s(P76,P78)
s(P78,P79)
s(P79,P80) s(P78,P80)
s(P80,P81)
s(P81,P82) s(P80,P82)
s(P82,P83)
s(P83,P84) s(P82,P84)
s(P84,P85)
s(P85,P86) s(P84,P86)
s(P86,P87)
s(P87,P88) s(P86,P88)
s(P88,P89)
s(P89,P90) s(P88,P90)
s(P90,P91)
s(P91,P92) s(P90,P92) s(P165,P92) s(P166,P92)
s(P93,P94)
s(P93,P95)
s(P95,P96)
s(P96,P97)
s(P97,P98)
s(P98,P99)
s(P99,P100)
s(P100,P101)
s(P101,P102) s(P18,P102) s(P120,P102)
s(P94,P103)
s(P94,P104) s(P103,P104)
s(P103,P105)
s(P103,P106) s(P105,P106)
s(P106,P107)
s(P106,P108) s(P107,P108)
s(P108,P109)
s(P108,P110) s(P109,P110)
s(P110,P111)
s(P110,P112) s(P111,P112)
s(P112,P113)
s(P112,P114) s(P113,P114)
s(P114,P115)
s(P114,P116) s(P115,P116)
s(P116,P117)
s(P116,P118) s(P117,P118)
s(P118,P119)
s(P118,P120) s(P119,P120)
s(P102,P121) s(P120,P121)
s(P121,P122)
s(P122,P123)
s(P122,P124) s(P123,P124)
s(P124,P125)
s(P125,P126)
s(P126,P127)
s(P126,P128) s(P127,P128)
s(P128,P129)
s(P129,P130)
s(P129,P131) s(P130,P131)
s(P131,P132)
s(P132,P133)
s(P133,P134)
s(P134,P135)
s(P135,P136)
s(P135,P137) s(P136,P137)
s(P137,P138)
s(P137,P139) s(P138,P139)
s(P139,P140)
s(P139,P141) s(P140,P141)
s(P141,P142)
s(P141,P143) s(P142,P143)
s(P143,P144)
s(P143,P145) s(P144,P145)
s(P145,P146)
s(P145,P147) s(P146,P147)
s(P147,P148)
s(P147,P149) s(P148,P149)
s(P149,P150)
s(P149,P151) s(P150,P151)
s(P151,P152)
s(P151,P153) s(P152,P153)
s(P153,P154)
s(P153,P155) s(P154,P155)
s(P155,P156)
s(P155,P157) s(P156,P157)
s(P157,P158)
s(P157,P159) s(P158,P159)
s(P159,P160)
s(P159,P161) s(P160,P161)
s(P161,P162)
s(P161,P163) s(P162,P163)
s(P163,P164)
s(P163,P165) s(P164,P165)
s(P165,P166)
pen(2)
color(#0000FF) m(P3,P1,MA10) m(P1,P4,MB10) b(P1,MA10,MB10)
color(#0000FF) m(P6,P7,MA11) m(P7,P8,MB11) b(P7,MA11,MB11)
color(#0000FF) m(P10,P11,MA12) m(P11,P12,MB12) b(P11,MA12,MB12)
color(#0000FF) m(P14,P15,MA13) m(P15,P16,MB13) b(P15,MA13,MB13)
color(#008000) m(P1,P2,MA14) m(P2,P20,MB14) b(P2,MA14,MB14)
color(#FFA500) m(P21,P20,MA15) m(P20,P22,MB15) b(P20,MA15,MB15)
color(#FFA500) m(P24,P25,MA16) m(P25,P26,MB16) b(P25,MA16,MB16)
color(#FFA500) m(P28,P29,MA17) m(P29,P30,MB17) b(P29,MA17,MB17)
color(#FFA500) m(P32,P33,MA18) m(P33,P34,MB18) b(P33,MA18,MB18)
pen(2)
color(#32CD32) s(P19,P37)
color(#EE82EE) s(P2,P17)
color(#EE82EE) s(P3,P92)
color(#32CD32) s(P15,P18)
color(#EE82EE) s(P37,P38)
color(blue)
color(orange)
color(red)
\geooff
\geoprint()
\quoteoff
Den Winkel zwischen zwei Vektoren hatte ich bisher aus dem Skalarprodukt der beiden Vektoren bestimmt, welches gleich dem Produkt der Längen beider Vektoren und dem Kosinus des eingeschlossenen Winkels ist. Dabei tritt der acos auf. Versuchshalber verwende ich als Winkel die Differenz der Anstiegswinkel beider Vektoren, mit Anwendung der atan2-Funktion. Für den an P3-P18 gespiegelten Graph (fehlende Kante P39-P121 ergänzt und einmal zusätzlich Button "Feinjustieren(3)") wird die Genauigkeit jetzt besser, siehe Zeile "276 Kanten, minimal 0.99999999999988964383, maximal 1.00000000000009414691".
166 Knoten, 56×Grad 2, 110×Grad 4
276 Kanten, minimal 0.99999999999988964383, maximal 1.00000000000009414691
einstellbare Kanten R(j,k):
|P19-P37|=1.00000000000000754952
∠(P2-P35,P2-P17)=1.79999999999998983036°
∠(P18-P92,P3-P92)=0.00000000000002544444°
|P15-P18|=1.00062434124254817647
∠(P17-P18,P37-P38)=0.05246687943679360228°
$
%Eingabe war:
%
%#1491
%
%
%
%
%
%P[1]=[-265.6754875624124,153.2893963513158];
%P[2]=[-282.5804371072955,163.1471733560662]; D=ab(1,2); A(2,1,Bew(1));
%L(3,1,2);
%M(4,1,3,blauerWinkel); L(5,1,4);
%M(6,5,4,120-blauerWinkel); L(7,5,6);
%M(8,7,6,blauerWinkel); L(9,7,8);
%M(10,9,8,120-blauerWinkel); L(11,9,10);
%M(12,11,10,blauerWinkel); L(13,11,12);
%M(14,13,12,120-blauerWinkel); L(15,13,14);
%M(16,15,14,blauerWinkel); L(17,15,16);
%M(18,17,16,120-blauerWinkel); L(19,17,18);
%M(20,2,1,gruenerWinkel); L(21,2,20);
%M(22,20,21,orangerWinkel); L(23,22,20);
%M(24,23,22,240-orangerWinkel); L(25,24,23);
%M(26,25,24,orangerWinkel); L(27,26,25);
%M(28,27,26,240-orangerWinkel); L(29,28,27);
%M(30,29,28,orangerWinkel); L(31,30,29);
%M(32,31,30,240-orangerWinkel); L(33,32,31);
%M(34,33,32,orangerWinkel); L(35,34,33);
%M(36,35,34,240-orangerWinkel); L(37,36,35);
%N(38,37,19);
%RA(19,37);
%RW(2,17,2,35,360/200);
%N(39,38,[3,18]); L(40,38,39);
% //R(15,18);
% //RW(37,38,17,18,0);
%OUOUOU(40,[21,36],[3,18],"ouuououuuuoooooooooooooooo");
%RW(3,92,18,92,0);
%R(15,18);
%RW(37,38,17,18);
%
%A(3,18,ab(3,18,
%1,2,5,7,9,11,13,15,17,19,
%[20,38],
%40,41,42,44,
%46,47,48,
%50,51,52,54,56,58,
%[60,91],"gespiegelt"));
%A(4,93); A(4,95); A(6,95); A(6,96); A(8,96); A(8,97); A(10,97); A(10,98);
%A(12,98); A(12,99); A(14,99); A(14,100); A(16,100); A(16,101); A(39,121); A(39,122);
%A(43,124); A(43,125); A(45,125); A(45,126); A(49,128); A(49,129); A(53,131);
%A(53,132); A(55,132); A(55,133); A(57,133); A(57,134); A(59,134); A(59,135);
%A(92,165); A(92,166);
%
%
%Ende der Eingabe.
\usetikzlibrary{spy}
\tikzset{SpyStyle/.style={spy using outlines={rectangle, magnification=3, width=2cm, height=2cm, connect spies, blue!70!black}}}
\begin{document}
\begin{tikzpicture}[SpyStyle,draw=grey,font=\scriptsize]
\coordinate (p-1) at (0.43661189766274599577,1.22955786096851804601);
\coordinate (p-2) at (0.00468415851062459112,1.48142772449120485589);
\coordinate (p-3) at (0.00252232782831908475,0.98143239802494619539);
\coordinate (p-4) at (0.86835792583290372093,0.97737664208159658052);
\coordinate (p-5) at (0.87088025366122279181,1.47737027990344560457);
\coordinate (p-6) at (0.86871842297891721518,0.97737495343718672203);
\coordinate (p-7) at (1.30280799281334425110,1.22550041638075857264);
\coordinate (p-8) at (1.73455402098350175422,0.97331919749383721818);
\coordinate (p-9) at (1.73707634881182104714,1.47331283531568613121);
\coordinate (p-10) at (1.73491451812951535949,0.97331750884942735969);
\coordinate (p-11) at (2.16900408796394250643,1.22144297179299909928);
\coordinate (p-12) at (2.60075011613410023159,0.96926175290607785584);
\coordinate (p-13) at (2.60327244396241930247,1.46925539072792665785);
\coordinate (p-14) at (2.60111061328011361482,0.96926006426166799734);
\coordinate (p-15) at (3.03520018311454053972,1.21738552720523984796);
\coordinate (p-16) at (3.46694621128469826488,0.96520430831831838248);
\coordinate (p-17) at (3.46946853911301733575,1.46519794614016718448);
\coordinate (p-18) at (3.46730670843071164811,0.96520261967390852398);
\coordinate (p-19) at (3.90139627826513857300,1.21332808261748037459);
\coordinate (p-20) at (0.49024585225337857786,1.60071662409912396363);
\coordinate (p-21) at (0.14415778793205069608,1.96158093618098905431);
\coordinate (p-22) at (0.86146409915353250319,1.93567485010406348245);
\coordinate (p-23) at (0.96593730863030213829,1.44671130493773691938);
\coordinate (p-24) at (1.10541093805172896403,1.92686451662752089575);
\coordinate (p-25) at (1.45149900237305606865,1.56600020454565669326);
\coordinate (p-26) at (1.82271724927320999399,1.90095843055059621207);
\coordinate (p-27) at (1.92719045874997974011,1.41199488538426964901);
\coordinate (p-28) at (2.06666408817140645482,1.89214809707405362538);
\coordinate (p-29) at (2.41275215249273378149,1.53128378499218875675);
\coordinate (p-30) at (2.78397039939288815091,1.86624201099712827556);
\coordinate (p-31) at (2.88844360886965878521,1.37727846583080082432);
\coordinate (p-32) at (3.02791723829108461175,1.85743167752058502273);
\coordinate (p-33) at (3.37400530261241193841,1.49656736543872148637);
\coordinate (p-34) at (3.74522354951256586375,1.83152559144366167132);
\coordinate (p-35) at (3.84969675898933649805,1.34256204627733422008);
\coordinate (p-36) at (3.98917038841076232458,1.82271525796711841849);
\coordinate (p-37) at (4.33525845273208965125,1.46185094588525488213);
\coordinate (p-38) at (4.33355447850975128432,0.96185384942183538293);
\coordinate (p-39) at (4.83354516995701111171,0.95880287153102994324);
\coordinate (p-40) at (4.58619204859320372947,1.39333300092550649296);
\coordinate (p-41) at (4.89036651530038479763,1.79016784541802587150);
\coordinate (p-42) at (5.08194833838416215599,1.32832760782076353401);
\coordinate (p-43) at (5.41575740444716657862,0.95607566704121027534);
\coordinate (p-44) at (5.57123250873881925571,1.43128876865510723526);
\coordinate (p-45) at (5.72224889192829699880,0.95463999648804465092);
\coordinate (p-46) at (6.05953064571289612417,1.32374840680130922976);
\coordinate (p-47) at (6.33978769068682890264,1.73782085063508917600);
\coordinate (p-48) at (6.55825642356702065427,1.28807490818121528342);
\coordinate (p-49) at (6.92572074156935624245,0.94900268136946519526);
\coordinate (p-50) at (7.03563374470492242096,1.43677222914968627521);
\coordinate (p-51) at (7.46240949172436263126,1.69727647432814410244);
\coordinate (p-52) at (7.47462491233287806836,1.19742571310099843451);
\coordinate (p-53) at (7.90588325068930153350,0.94441139414245245387);
\coordinate (p-54) at (7.90937090925040831024,1.44439923023225236243);
\coordinate (p-55) at (7.90817442129163250542,0.94440066181773740794);
\coordinate (p-56) at (8.34178412737384178399,1.19336375705737185449);
\coordinate (p-57) at (8.77304246573017643129,0.94034943809867477249);
\coordinate (p-58) at (8.77653012429145995554,1.44033727418847412594);
\coordinate (p-59) at (8.77533363633268415072,0.94033870577395906043);
\coordinate (p-60) at (9.20894334241489254111,1.18930180101359406208);
\coordinate (p-61) at (9.45358625281674669338,1.62536354708874641872);
\coordinate (p-62) at (9.70890534733550047974,1.19546569878740438497);
\coordinate (p-63) at (9.99457101131041447672,1.60582545366813289611);
\coordinate (p-64) at (10.20712015174042441856,1.15325185423654463790);
\coordinate (p-65) at (10.45176306214227857083,1.58931360031169610636);
\coordinate (p-66) at (10.70708215666103235719,1.15941575201035362852);
\coordinate (p-67) at (10.99274782063594813053,1.56977550689108191762);
\coordinate (p-68) at (11.20529696106595629601,1.11720190745949143896);
\coordinate (p-69) at (11.44993987146780511921,1.55326365353464534991);
\coordinate (p-70) at (11.70525896598656245828,1.12336580523330553660);
\coordinate (p-71) at (11.99092462996148356069,1.53372556011403093912);
\coordinate (p-72) at (12.20347377039148639710,1.08115196068243979433);
\coordinate (p-73) at (12.44811668079333522030,1.51721370675759437141);
\coordinate (p-74) at (12.70343577531209433573,1.08731585845625522424);
\coordinate (p-75) at (12.98910143928701010907,1.49767561333698084880);
\coordinate (p-76) at (13.20165057971701649819,1.04510201390539037014);
\coordinate (p-77) at (13.44629349011886709775,1.48116375998054339291);
\coordinate (p-78) at (13.70161258463762443682,1.05126591167920357961);
\coordinate (p-79) at (13.98727824861254376287,1.46162566655992987030);
\coordinate (p-80) at (14.19982738904254837564,1.00905206712833872551);
\coordinate (p-81) at (14.44447029944440075155,1.44511381320349241442);
\coordinate (p-82) at (14.69978939396315453791,1.01521596490215193498);
\coordinate (p-83) at (14.98545505793807208761,1.42557571978287889181);
\coordinate (p-84) at (15.19800419836807847673,0.97300212035128774701);
\coordinate (p-85) at (15.44264710876992552357,1.40906386642644210205);
\coordinate (p-86) at (15.69796620328868641536,0.97916601812510395408);
\coordinate (p-87) at (15.98363186726360218870,1.38952577300582724718);
\coordinate (p-88) at (16.19618100769361035418,0.93695217357423610238);
\coordinate (p-89) at (16.44082391809546095374,1.37301391964939045742);
\coordinate (p-90) at (16.69614301261421474010,0.94311607134805075514);
\coordinate (p-91) at (16.98180867658913584251,1.35347582622877715686);
\coordinate (p-92) at (17.19435781701913867892,0.90090222679718590104);
\coordinate (p-93) at (0.43426835599847674052,0.72925117913802472991);
\coordinate (p-94) at (0.00000000000000000000,0.48143876020309728236);
\coordinate (p-95) at (0.86619609515059814431,0.47738131561533786451);
\coordinate (p-96) at (1.30046445114907349705,0.72519373455026459041);
\coordinate (p-97) at (1.73239219030119340204,0.47332387102757955688);
\coordinate (p-98) at (2.16666054629967108625,0.72113628996250600522);
\coordinate (p-99) at (2.59858828545179010305,0.46926642643981980596);
\coordinate (p-100) at (3.03285664145027578087,0.71707884537474653186);
\coordinate (p-101) at (3.46478438060239124496,0.46520898185205822317);
\coordinate (p-102) at (3.89905273660087026144,0.71302140078698572623);
\coordinate (p-103) at (0.48442286194956313272,0.35760624904146876002);
\coordinate (p-104) at (0.13496933049438880614,0.00000000000000000000);
\coordinate (p-105) at (0.85248685816745706223,0.01918506960951807394);
\coordinate (p-106) at (0.96153619862527128781,0.50714843026860956243);
\coordinate (p-107) at (1.09650552911966014946,0.02570967006551156883);
\coordinate (p-108) at (1.44595906057483358786,0.38331591910698037395);
\coordinate (p-109) at (1.81402305679273201378,0.04489473967502891766);
\coordinate (p-110) at (1.92307239725054324175,0.53285810033412117637);
\coordinate (p-111) at (2.05804172774493254749,0.05141934013102531648);
\coordinate (p-112) at (2.40749525920010842839,0.40902558917249265402);
\coordinate (p-113) at (2.77555925541800618817,0.07060440974054447982);
\coordinate (p-114) at (2.88460859587581897046,0.55856777039963600995);
\coordinate (p-115) at (3.01957792637020450144,0.07712901019653979617);
\coordinate (p-116) at (3.36903145782537816189,0.43473525923800748760);
\coordinate (p-117) at (3.73709545404327725393,0.09631407980605169450);
\coordinate (p-118) at (3.84614479450108870395,0.58427744046514717979);
\coordinate (p-119) at (3.98111412499548311672,0.10283868026204918966);
\coordinate (p-120) at (4.33056765645064700720,0.46044492930351360593);
\coordinate (p-121) at (4.33354783722868042162,0.96043604774716528905);
\coordinate (p-122) at (4.58213213150082143699,0.52660906767190274191);
\coordinate (p-123) at (4.88257561613065593775,0.12694206560207488277);
\coordinate (p-124) at (5.07847565066257278232,0.58696725672794491935);
\coordinate (p-125) at (5.56677378763663988082,0.47942689487414585914);
\coordinate (p-126) at (6.05605795799130142143,0.58238805570849061510);
\coordinate (p-127) at (6.33242358491446566404,0.16570827427511092278);
\coordinate (p-128) at (6.55509604741753637569,0.61338781864007130284);
\coordinate (p-129) at (7.03105939150472813992,0.46022484959945569871);
\coordinate (p-130) at (7.45537595071850489603,0.19573390915540159196);
\coordinate (p-131) at (7.47227354460700166072,0.69544829890296400166);
\coordinate (p-132) at (7.90468676273035875113,0.44441282572793450178);
\coordinate (p-133) at (8.33943275964796093547,0.69138634285903821652);
\coordinate (p-134) at (8.77184597777140950825,0.44035086968416559117);
\coordinate (p-135) at (9.20659197468902590344,0.68732438681525920288);
\coordinate (p-136) at (9.44713902937619565137,0.24898990895464770401);
\coordinate (p-137) at (9.70647429521447335787,0.67647700804956945042);
\coordinate (p-138) at (9.98828308506165818415,0.26345908354160757492);
\coordinate (p-139) at (10.20506270498028023042,0.71402161681300690965);
\coordinate (p-140) at (10.44560975966743754384,0.27568713895240160028);
\coordinate (p-141) at (10.70494502550572946120,0.70317423804731282733);
\coordinate (p-142) at (10.98675381535294981461,0.29015631353935350534);
\coordinate (p-143) at (11.20353343527153633374,0.74071884681075539358);
\coordinate (p-144) at (11.44408048995871141074,0.30238436895014753070);
\coordinate (p-145) at (11.70341575579699622267,0.72987146804505909081);
\coordinate (p-146) at (11.98522454564419881251,0.31685354353710815101);
\coordinate (p-147) at (12.20200416556279776614,0.76741607680851042783);
\coordinate (p-148) at (12.44255122024996396135,0.32908159894789129618);
\coordinate (p-149) at (12.70188648608827541864,0.75656869804281401404);
\coordinate (p-150) at (12.98369527593548156119,0.34355077353485513614);
\coordinate (p-151) at (13.20047489585408229118,0.79411330680625158429);
\coordinate (p-152) at (13.44102195054122184104,0.35577882894564916150);
\coordinate (p-153) at (13.70035721637951908747,0.78326592804056038855);
\coordinate (p-154) at (13.98216600622673411181,0.37024800353259562646);
\coordinate (p-155) at (14.19894562614535971079,0.82081053680401017125);
\coordinate (p-156) at (14.43949268083249393158,0.38247605894339581356);
\coordinate (p-157) at (14.69882794667081427065,0.80996315803829865843);
\coordinate (p-158) at (14.98063673651799376785,0.39694523353034627533);
\coordinate (p-159) at (15.19741635643659627419,0.84750776680174699784);
\coordinate (p-160) at (15.43796341112377668026,0.40917328894115156945);
\coordinate (p-161) at (15.69729867696206326855,0.83666038803605513596);
\coordinate (p-162) at (15.97910746680926052932,0.42364246352809364904);
\coordinate (p-163) at (16.19588708672785060116,0.87420499679951146899);
\coordinate (p-164) at (16.43643414141504877080,0.43587051893890216281);
\coordinate (p-165) at (16.69576940725335134630,0.86335761803379551527);
\coordinate (p-166) at (16.97757819710052729079,0.45033969352584574120);
\draw[line width=0] (p-2) -- (p-1)
(p-3) -- (p-1) (p-3) -- (p-2) (p-3) -- (p-93) (p-3) -- (p-94)
(p-4) -- (p-1) (p-4) -- (p-93) (p-4) -- (p-95)
(p-5) -- (p-1) (p-5) -- (p-4)
(p-6) -- (p-5) (p-6) -- (p-95) (p-6) -- (p-96)
(p-7) -- (p-5) (p-7) -- (p-6)
(p-8) -- (p-7) (p-8) -- (p-96) (p-8) -- (p-97)
(p-9) -- (p-7) (p-9) -- (p-8)
(p-10) -- (p-9) (p-10) -- (p-97) (p-10) -- (p-98)
(p-11) -- (p-9) (p-11) -- (p-10)
(p-12) -- (p-11) (p-12) -- (p-98) (p-12) -- (p-99)
(p-13) -- (p-11) (p-13) -- (p-12)
(p-14) -- (p-13) (p-14) -- (p-99) (p-14) -- (p-100)
(p-15) -- (p-13) (p-15) -- (p-14)
(p-16) -- (p-15) (p-16) -- (p-100) (p-16) -- (p-101)
(p-17) -- (p-15) (p-17) -- (p-16)
(p-18) -- (p-17) (p-18) -- (p-101)
(p-19) -- (p-17) (p-19) -- (p-18) (p-19) -- (p-37)
(p-20) -- (p-2)
(p-21) -- (p-2) (p-21) -- (p-20)
(p-22) -- (p-20)
(p-23) -- (p-22) (p-23) -- (p-20)
(p-24) -- (p-23)
(p-25) -- (p-24) (p-25) -- (p-23)
(p-26) -- (p-25)
(p-27) -- (p-26) (p-27) -- (p-25)
(p-28) -- (p-27)
(p-29) -- (p-28) (p-29) -- (p-27)
(p-30) -- (p-29)
(p-31) -- (p-30) (p-31) -- (p-29)
(p-32) -- (p-31)
(p-33) -- (p-32) (p-33) -- (p-31)
(p-34) -- (p-33)
(p-35) -- (p-34) (p-35) -- (p-33)
(p-36) -- (p-35)
(p-37) -- (p-36) (p-37) -- (p-35)
(p-38) -- (p-37) (p-38) -- (p-19)
(p-39) -- (p-38) (p-39) -- (p-121) (p-39) -- (p-122)
(p-40) -- (p-38) (p-40) -- (p-39)
(p-41) -- (p-40)
(p-42) -- (p-41) (p-42) -- (p-40)
(p-43) -- (p-42) (p-43) -- (p-124) (p-43) -- (p-125)
(p-44) -- (p-42) (p-44) -- (p-43)
(p-45) -- (p-44) (p-45) -- (p-125) (p-45) -- (p-126)
(p-46) -- (p-44) (p-46) -- (p-45)
(p-47) -- (p-46)
(p-48) -- (p-47) (p-48) -- (p-46)
(p-49) -- (p-48) (p-49) -- (p-128) (p-49) -- (p-129)
(p-50) -- (p-48) (p-50) -- (p-49)
(p-51) -- (p-50)
(p-52) -- (p-51) (p-52) -- (p-50)
(p-53) -- (p-52) (p-53) -- (p-131) (p-53) -- (p-132)
(p-54) -- (p-52) (p-54) -- (p-53)
(p-55) -- (p-54) (p-55) -- (p-132) (p-55) -- (p-133)
(p-56) -- (p-54) (p-56) -- (p-55)
(p-57) -- (p-56) (p-57) -- (p-133) (p-57) -- (p-134)
(p-58) -- (p-56) (p-58) -- (p-57)
(p-59) -- (p-58) (p-59) -- (p-134) (p-59) -- (p-135)
(p-60) -- (p-58) (p-60) -- (p-59)
(p-61) -- (p-60)
(p-62) -- (p-61) (p-62) -- (p-60)
(p-63) -- (p-62)
(p-64) -- (p-63) (p-64) -- (p-62)
(p-65) -- (p-64)
(p-66) -- (p-65) (p-66) -- (p-64)
(p-67) -- (p-66)
(p-68) -- (p-67) (p-68) -- (p-66)
(p-69) -- (p-68)
(p-70) -- (p-69) (p-70) -- (p-68)
(p-71) -- (p-70)
(p-72) -- (p-71) (p-72) -- (p-70)
(p-73) -- (p-72)
(p-74) -- (p-73) (p-74) -- (p-72)
(p-75) -- (p-74)
(p-76) -- (p-75) (p-76) -- (p-74)
(p-77) -- (p-76)
(p-78) -- (p-77) (p-78) -- (p-76)
(p-79) -- (p-78)
(p-80) -- (p-79) (p-80) -- (p-78)
(p-81) -- (p-80)
(p-82) -- (p-81) (p-82) -- (p-80)
(p-83) -- (p-82)
(p-84) -- (p-83) (p-84) -- (p-82)
(p-85) -- (p-84)
(p-86) -- (p-85) (p-86) -- (p-84)
(p-87) -- (p-86)
(p-88) -- (p-87) (p-88) -- (p-86)
(p-89) -- (p-88)
(p-90) -- (p-89) (p-90) -- (p-88)
(p-91) -- (p-90)
(p-92) -- (p-91) (p-92) -- (p-90) (p-92) -- (p-165) (p-92) -- (p-166)
(p-94) -- (p-93)
(p-95) -- (p-93)
(p-96) -- (p-95)
(p-97) -- (p-96)
(p-98) -- (p-97)
(p-99) -- (p-98)
(p-100) -- (p-99)
(p-101) -- (p-100)
(p-102) -- (p-101) (p-102) -- (p-18) (p-102) -- (p-120)
(p-103) -- (p-94)
(p-104) -- (p-94) (p-104) -- (p-103)
(p-105) -- (p-103)
(p-106) -- (p-103) (p-106) -- (p-105)
(p-107) -- (p-106)
(p-108) -- (p-106) (p-108) -- (p-107)
(p-109) -- (p-108)
(p-110) -- (p-108) (p-110) -- (p-109)
(p-111) -- (p-110)
(p-112) -- (p-110) (p-112) -- (p-111)
(p-113) -- (p-112)
(p-114) -- (p-112) (p-114) -- (p-113)
(p-115) -- (p-114)
(p-116) -- (p-114) (p-116) -- (p-115)
(p-117) -- (p-116)
(p-118) -- (p-116) (p-118) -- (p-117)
(p-119) -- (p-118)
(p-120) -- (p-118) (p-120) -- (p-119)
(p-121) -- (p-102) (p-121) -- (p-120)
(p-122) -- (p-121)
(p-123) -- (p-122)
(p-124) -- (p-122) (p-124) -- (p-123)
(p-125) -- (p-124)
(p-126) -- (p-125)
(p-127) -- (p-126)
(p-128) -- (p-126) (p-128) -- (p-127)
(p-129) -- (p-128)
(p-130) -- (p-129)
(p-131) -- (p-129) (p-131) -- (p-130)
(p-132) -- (p-131)
(p-133) -- (p-132)
(p-134) -- (p-133)
(p-135) -- (p-134)
(p-136) -- (p-135)
(p-137) -- (p-135) (p-137) -- (p-136)
(p-138) -- (p-137)
(p-139) -- (p-137) (p-139) -- (p-138)
(p-140) -- (p-139)
(p-141) -- (p-139) (p-141) -- (p-140)
(p-142) -- (p-141)
(p-143) -- (p-141) (p-143) -- (p-142)
(p-144) -- (p-143)
(p-145) -- (p-143) (p-145) -- (p-144)
(p-146) -- (p-145)
(p-147) -- (p-145) (p-147) -- (p-146)
(p-148) -- (p-147)
(p-149) -- (p-147) (p-149) -- (p-148)
(p-150) -- (p-149)
(p-151) -- (p-149) (p-151) -- (p-150)
(p-152) -- (p-151)
(p-153) -- (p-151) (p-153) -- (p-152)
(p-154) -- (p-153)
(p-155) -- (p-153) (p-155) -- (p-154)
(p-156) -- (p-155)
(p-157) -- (p-155) (p-157) -- (p-156)
(p-158) -- (p-157)
(p-159) -- (p-157) (p-159) -- (p-158)
(p-160) -- (p-159)
(p-161) -- (p-159) (p-161) -- (p-160)
(p-162) -- (p-161)
(p-163) -- (p-161) (p-163) -- (p-162)
(p-164) -- (p-163)
(p-165) -- (p-163) (p-165) -- (p-164)
(p-166) -- (p-165)
;
\node[anchor=south] (P54) at (p-54) {54};
\node[anchor=south] (P58) at (p-58) {58};
\node[anchor=north] (P132) at (p-132) {132};
\node[anchor=north] (P134) at (p-134) {134};
%zum #1554: Ausgabe mit 20 Nachkommastellen, 0.5 facher Kantenlänge und
\spy[magnification=500,blue!20!black] on (p-18) in node at (2.5 cm,-2);
\spy[magnification=300,blue!20!black] on (p-17) in node at (4.75 cm,-2);
\spy[magnification=100,blue!20!black] on (p-38) in node at (7 cm,-2);
\spy[magnification=100] on (p-55) in node at (9.25 cm,-2);
\spy[magnification=100] on (p-59) in node at (11.5 cm,-2);
\end{tikzpicture}
\end{document}
$
Da mit dieser Veränderung die bisherigen Graphen beim Nachrechnen nicht mehr bis zur letzten Kommastelle haargenau das gleiche Ergebnis liefern (macht etwas nervös sowas), lasse ich das bisherige Streichholzgraph-981.htm unverändert und beginne Streichholzgraph-1554.htm. Den Graph mit Mauszeiger wie fortlaufenden Text markieren (paar zusätzliche Textzeichen davor und danach macht nichts), kopieren und ins große Eingabefenster von Streichholzgraph-1554.htm einfügen, dann Button "neu zeichnen".
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1555, vom Themenstarter, eingetragen 2018-10-21
|
Sind die beiden schmalen Rauten (blaue Kästchen) der Speiche winkelmäßig gleich, oder nur fast gleich?
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1556, eingetragen 2018-10-21
|
Die beiden Rauten von P54 nach P132 und von P58 nach P134 sind kongruent, nur nicht exakt gezeichnet wegen gerundeter Punktkoordinaten.
|
Profil
|
Slash
Aktiv
Dabei seit: 23.03.2005
Mitteilungen: 9140
Wohnort: Cuxhaven
| Beitrag No.1557, vom Themenstarter, eingetragen 2018-10-21
|
Ich hatte mich nur gewundert, dass beide mit Vergrößerung gezeigt wurden.
Diese Vergrößerungskästchen sehen übrigens gut aus, die werde ich wohl auch ab jetzt in den Artikeln verwenden.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1558, eingetragen 2018-10-21
|
Ich wollte nur die unterschiedlichen Vergrößerungen darstellen und das die letzten beiden gleich sind habe ich nicht gesehen.
|
Profil
|
StefanVogel
Senior
Dabei seit: 26.11.2005
Mitteilungen: 4288
Wohnort: Raun
| Beitrag No.1559, eingetragen 2018-10-21
|
\quoteon(2018-10-07 19:46 - cis in Beitrag No. 1533)
\quoteon(2018-10-07 19:33 - StefanVogel in Beitrag No. 1532)
@cis: ...
a. Mit Pfeil am Winkelbogen wäre eine Variante.
b. Schlimmer ist eher der schmale Winkel, welcher bei kleinen positiven Winkeln fast gar nicht mehr erkennbar ist.
\quoteoff
a. Das ist eine Ergänzung '->', die ich bewusst ausgelassen haben; weil eben das mit den Orientierungen von angles manchmal eine Art Lottospielen ist (es sei denn, man ergänzt eine if-Unterschiedung, die murmeltier einmal eingebaut hat - aber ob die immer tut, weiß ich nicht).
\quoteoff
Bei diesem Lotto habe ich eine Niete erwischt mit meiner Winkelbezeichnung ∠(P3,P1,P2) (α im nächsten Graph), genau verkehrt zu Wikipedia Bezeichnung von Winkeln. Entstanden ist das, weil neue Punkte immer erstes Argument jeder Eingabefunktion sind (Ausnahme Kopieren, wo neue Punkte automatisch nummeriert werden). also M(3,1,2,alpha) um P3 neu zu zeichnen und M statt W wie Winkel. An diese Reihenfolge habe ich mich gewöhnt und bei Winkelberechnung und -beschriftung beibehalten. Das will ich mit der neuen Programmversion ändern. Im Programm die Reihenfolge ändern lasse ich sein, das geht garantiert schief. Deshalb benenne ich nur die Funktion zum Winkelberechnen um in Implementwinkel(3,1,2), welche den Winkel(3,1,2) zu 360° ergänzt. Link zur Bezeichnung beispielsweise www.excelution.at/winkel-zwischen-vektoren. Winkel() und ∠() verwende ich ab jetzt so wie in Wikipedia. Ich versuche, die nächsten drei Zeilen fehlerlos hinzubekommen.
$
%Eingabe war:
%
%Beispiel für Implementwinkel(3,1,2)=Winkel(P1,P2,P3)=\alpha=50°
%
%
%
%
%P[1]=[0,0]; P[2]=[50,0]; D=ab(1,2); A(2,1,Bew(1)); M(3,1,2,alpha); M(4,3,1,gamma);
%
%
%
%
%
%
%
%Ende der Eingabe.
% Streichholzgraphen mit pgfplots, TikZ/pgf
% v3.1a
%\documentclass[margin=5mm, tikz]{standalone}
%\usetikzlibrary{angles, quotes, babel}
\usetikzlibrary{spy}%<- Neu
\tikzset{SpyStyle/.style={
spy using outlines={rectangle, magnification=3, width=7.5cm, height=3cm, connect spies}
}}%<- Neu
%\usepackage{pgfplots}
%\usepgfplotslibrary{patchplots}
%\pgfplotsset{compat=1.13}
% Eingaben ===========================
\def\DefaultTextposition{south} % south west % etc.
\def\AusnahmeTextposition{north}
\def\AusnahmeListe{}
% Möglichst eingeben:
\xdef\BeliebigesVorhandenesKoordinatenpaar{{0.00000000000000000000,1.26604444311897790243}} % 0,0
\colorlet{Kantenfarbe}{gray}
\colorlet{Punktfarbe}{red}
\def\Beschriftung{\punktnummer} % \punktnummer oder {} leer
\pgfplotsset{
x=12mm, y=12mm, % Maßstab
% width=20cm, height=5cm, % oder Bildmaße
}
\tikzset{font=\scriptsize} % Schrift Punktnummern und Winkel
% ===========================
%Unterprogramm, das Mehrfachplatzierung (je nach Pfadanzahl)
% von Punktbezeichnungen verhindert =======
\xdef\LstPN{0}
\newif\ifDupe
\pgfplotsset{avoid dupes/.code={\Dupefalse
\xdef\anker{\DefaultTextposition} % Default
\foreach \X in \LstPN
{\pgfmathtruncatemacro{\itest}{ifthenelse(\X==\punktnummer,1,0)}
\ifnum\itest=1
\global\Dupetrue
\breakforeach
\fi}
\ifDupe
% auskommentieren:
\typeout{\punktnummer\space ist\space ein\space Duplikat!}%
\xdef\punktnummer{} %löscht mehrfache Nummern
%\pgfkeysalso{/tikz/opacity=1} % macht mehrfache Nummern unsichtbar
\else
\xdef\LstPN{\LstPN,\punktnummer}
\typeout{\punktnummer\space ist\space neu\space mit\space urprgl.\space Anker=\anker}
\foreach \X in \LstExcept
{\ifnum\X=\punktnummer
%\pgfkeysalso{/tikz/anchor=-90}
\xdef\anker{\AusnahmeTextposition}
\fi}
\typeout{\punktnummer\space ist\space neu\space mit\space Anker=\anker}
\fi}}
% ============
\begin{document}
\xdef\LstExcept{\AusnahmeListe}
% Für Zeichnung der Winkel
\pgfdeclarelayer{bg} % declare background layer
\pgfsetlayers{bg,main} % set the order of the layers (main is the standard
% Aliaswerte für Aliasplot (Winkelplot)
\pgfmathsetmacro{\xAlias}{\BeliebigesVorhandenesKoordinatenpaar[0]}
\pgfmathsetmacro{\yAlias}{\BeliebigesVorhandenesKoordinatenpaar[1]}
%\xAlias, \yAlias
\begin{tikzpicture}[SpyStyle]
% Punkte und Kanten ========================
\begin{axis}[hide axis,
colormap={kantenfarbe}{color=(Kantenfarbe) color=(Kantenfarbe)},
thick, % Kanten
]
\addplot+[mark size=1.125pt,
mark options={Punktfarbe},
table/row sep=newline,
patch, % Plot-Typ
patch type=polygon,
vertex count=2, % damit nur Kanten, keine Flächen, gezeichnet werden
%
% Angabe der Verbindungskanten =====================
patch table with point meta={
Startpkt Endpkt colordata \\
1 1 \\
2 1 \\
3 1 \\
4 3 \\
},
%
% Beschriftung
visualization depends on={value \thisrowno{0} \as \punktnummer},
every node near coord/.append style={
/pgfplots/avoid dupes,% Methode für Mehrfachplatzierung anwenden
},
nodes near coords={\Beschriftung},
nodes near coords style={
anchor=\anker,
text=black,
%font=\scriptsize,
name=p-\punktnummer, % Punkte bennennen
path picture={% Jedem Punkt als Koordinate zuordnen:
\coordinate[] (P\punktnummer) at (p-\punktnummer.\anker);}
},
]
% Koordinatentabelle
table[header=true, x index=1, y index=2, row sep=\\] {
Nr x y \\
0 0 0 \\% 0 Aliaspunkt
1 0.22323779409789934469 0.00000000000000000000 \\
2 1.22323779409789934469 0.00000000000000000000 \\
3 0.86602540378443881863 0.76604444311897812447 \\
4 0.00000000000000000000 1.26604444311897790243 \\
};
% ===================================
% Zeichnung der Winkel =====================
\addplot[no marks, % Aliasplot
nodes near coords={},% Aliasplot
visualization depends on={value \thisrowno{0} \as \PunktI},
visualization depends on={value \thisrowno{1} \as \Scheitel},
visualization depends on={value \thisrowno{2} \as \PunktII},
visualization depends on={value \thisrowno{3} \as \Winkelradius},
visualization depends on={value \thisrowno{4} \as \Winkelfarbe},
visualization depends on={value \thisrowno{5} \as \Winkelname},
visualization depends on={value \thisrowno{6} \as \WinkelExzentrizitaet},
nodes near coords style={anchor=center,%Letzer Feinschliff für Aliaswerte
path picture={%\pgftransformreset
% Winkel zeichnen
\begin{pgfonlayer}{bg} % 'select the background layer' für die Winkel
\draw pic [angle radius=\Winkelradius cm,%
fill=\Winkelfarbe!40, draw=\Winkelfarbe,%<- Winkel färben / zeichnen
%-latex, %<- Winkel mit Pfeil
"$\Winkelname$", angle eccentricity =\WinkelExzentrizitaet,
text=\Winkelfarbe%
] {angle = P\PunktI--P\Scheitel--P\PunktII};
\end{pgfonlayer}
}},%
]
table[header=true, x expr =\xAlias, y expr=\yAlias]{% Hier möglichst vorhandene Koordinaten eintragen
Punkt1 Scheitel Punkt2 Winkelradius[cm] Winkelfarbe Winkelname WinkelExz
2 1 3 0.5 blue {\alpha} 1.5 \\
1 3 4 0.45 orange {\gamma} 1.5 \\
};
\end{axis}
% Annotationen
%\node[above=3mm, align=center, font=\tiny] at (P11) {Wichtiger \\ Punkt};
%\draw[purple, very thick] (P8) -- (P10) node[near start, below, align=center, font=\tiny]{Wichtige \\ Kante};
%\begin{pgfonlayer}{bg}
%\fill[yellow] (P12) -- (P13) -- (P14) -- cycle;
%\end{pgfonlayer}
%\foreach \n in \AusnahmeListe
%\draw[cyan] (P\n) circle (3pt)
%\if\n4 node[anchor=north west, font=\tiny, align=left]{Default-\\position \\ ge{\"a}ndert} \else\fi ;
%\spy [red] on (P5) in node at (2.5,-1.25);
%einstellbare Kanten:
%nicht passende Kanten:
\end{tikzpicture}
\end{document}
$
Implementwinkel(3,1,2) = Winkel(P2,P1,P3) = ∠(P2,P1,P3) = α = 50°,
Implementwinkel(4,3,1) = Winkel(P1,P3,P4) = ∠(P1,P3,P4) = γ = 280°,
Implementwinkel(4,3,2,1) = Winkel(P2-P1,P4-P3) = ∠(P2-P1,P4-P3) = α + γ -180° = 150°.
@cis: Wenn das richtig geworden ist, bekommen wir dann den Pfeil an den Winkel dran? Es ist kein Problem, alle negativen Winkel plus 360° einzugeben. Dann stimmt das auch mit der Grafik überein.
|
Profil
|
|
All logos and trademarks in this site are property of their respective owner. The comments are property of their posters, all the rest © 2001-2023 by Matroids Matheplanet
This web site was originally made with PHP-Nuke, a former web portal system written in PHP that seems no longer to be maintained nor supported. PHP-Nuke is Free Software released under the GNU/GPL license.
Ich distanziere mich von rechtswidrigen oder anstößigen Inhalten, die sich trotz aufmerksamer Prüfung hinter hier verwendeten Links verbergen mögen.
Lesen Sie die
Nutzungsbedingungen,
die Distanzierung,
die Datenschutzerklärung und das Impressum.
[Seitenanfang]
|
Home / Seite ohne Frame
Wie unterstütze ich den Matheplaneten mit Geld?
