Metapost < LaTeX < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 11:32 Mo 29.05.2006 | | Autor: | morg |
| Aufgabe | Schreiben Sie ein Paket graph.mp, sodass der Quellcode der Lösung folgendermaßen lautet:
input graphen;
beginfig(1);
numeric u;
u:=3 cm;
z[1]=(0,0)*u;
z[2]=(2,0)*u;
z[3]=(1,1/2)*u;
vertex(v1,z1, btex [mm] $v_1$ [/mm] etex);
vertex(v2,z2, btex [mm] $v_2$ [/mm] etex);
vertex(v3,z3, btex [mm] $v_3$ [/mm] etex);
diedge(v1,v2, btex [mm] $e_1$ [/mm] etex);
diedgeshifted(v2,v3, btex [mm] $e_2$ [/mm] etex);
diedgeshifted(v3,v2, btex [mm] $e_3$ [/mm] etex);
diedge(v3,v1, btex [mm] $e_4$ [/mm] etex);
diloop(v1,-135,135, btex [mm] $e_5$ [/mm] etex);
endfig;
end; |
Hallo!
Die Lösung sollte also dann so aussehen:
[img] [url=1]
Es war zwar kein Problem diesen Graph normal in Metapost zu zeichnen ich weiß aber nicht wie diese Aufgabenstellung jetzt lösen soll. Die Dokumentation zu Metapost ist ja so schon nicht so ausführlich wie zb für LaTeX aber dazu hab ich dann gar nichts mehr gefunden...
Mfg,
morg
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Dateianhänge:
Anhang Nr. 1 (Typ: JPG) [nicht öffentlich]
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 17:43 Mo 19.06.2006 | | Autor: | morg |
Hi,
für alle die es interessiert.. ich habe die Aufgabe jetzt nach ewigem herumptobieren doch noch gelöst:
input boxes;
def vertex(suffix n, pos)(expr bez) =
circleit.n(bez);
n.c = pos;
drawboxed(n);
enddef;
def diedge(suffix a, b)(expr bez) =
numeric winkel;
if (abs(angle(a.c-b.c)) <= abs(angle(b.c-a.c))):
winkel = angle(a.c-b.c);
else:
winkel = angle(b.c-a.c);
fi;
path p;
p = a.c--b.c;
drawarrow p cutbefore bpath a cutafter bpath b;
if (angle(a.c-b.c) mod 180 = 0):
label.top(bez, point.5 of p);
elseif (angle(a.c-b.c) mod 90 = 0):
label.rt(bez rotated 90, point .5 of p);
else:
label.(bez rotated winkel, point .5 of p + dir(winkel-90)*0.2cm);
fi;
enddef;
def diedgeshifted(suffix a, b)(expr bez) =
numeric winkel;
if (abs(angle(a.c-b.c)) <= abs(angle(b.c-a.c))):
winkel = angle(a.c-b.c);
else:
winkel = angle(b.c-a.c);
fi;
path p; pair aa, bb;
aa = a.c + dir(angle(a.c-b.c)-90)*1.25;
bb = b.c + dir(angle(a.c-b.c)-90)*1.25;
p = (aa)--(bb);
drawarrow p cutbefore bpath a cutafter bpath b;
if (angle(a.c-b.c) mod 180 = 0):
label.(bez, point .5 of p + dir(angle(a.c-b.c)-90)*.2cm);
elseif (angle(a.c-b.c) mod 90 = 0):
label.(bez rotated 90, point .5 of p + dir(angle(a.c-b.c)-90)*.2cm);
else:
label.(bez rotated winkel, point .5 of p + dir(angle(a.c-b.c)-90)*.2cm);
fi;
enddef;
def diloop(suffix a)(expr alpha, beta, bez) =
path p;
z = a.c+(-1.5cm,0);
p = a.c{dir(-135)}..z{up}..{dir(beta-180)}a.c;
drawarrow p cutbefore bpath a cutafter bpath a;
label.lft(bez rotated (-90), z);
enddef;
Die if-Schleifen dienen nur dazu, die Drehung der Kantenbeschriftung parallel zu den Kanten auszurichten.. eine einfachere Variante die dann auch immer das gewünschte Ergebnis liefert ist mir leider nicht eingefallen..
mfg,
morg
|
|
|
|
