Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: [Mathematica 6.0.1] Confusing documentation on ColorData, where to get list of ColorFunctions ?
  • Next by Date: Import from https: link in mathematica 6.0.1 on mac?
  • Previous by thread: Re: [Mathematica 6.0.1] Confusing documentation on ColorData, where to get list of ColorFunctions ?
  • Next by thread: Re: drawing in Mathematica