drawing in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg81008] drawing in Mathematica
- From: dimitris <dimmechan at yahoo.com>
- Date: Fri, 7 Sep 2007 02:14:50 -0400 (EDT)
Hello.
trig = Graphics[{Thickness[0.0079],
Line[{{0, -0.4}, {1.75, 0.75}, {-1.75, 0.75}, {0, -0.4}}]}];
circ = Graphics[{Thickness[0.0079],
Circle[{0, -0.6}, 0.6, {Pi/2 + Pi/4, 2*Pi + Pi/4}]}];
line1 = Graphics[{Thickness[0.0079], Line[{{-4, 0}, {-1.5, 0}}]}];
line2 = Graphics[{Thickness[0.0079], Line[{{1.5, 0}, {4, 0}}]}];
Show[trig, circ, line1, line2]
How can connect the line 1 and line2 with the points of cross of
the circle region and the triangle?
I can connect of course with line segments but I want a more
"curvy" drawings if possible.
Thanks in advance.
Dimitris