Re: drawing with Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg74205] Re: [mg74179] drawing with Mathematica
- From: "Chris Chiasson" <chris at chiasson.name>
- Date: Wed, 14 Mar 2007 03:51:06 -0500 (EST)
- References: <200703131010.FAA22127@smc.vnet.net>
Could you post a sketch of what the graphs are supposed to look like?
I am confused about what you want to change on the current Mathematica
graphs.
On 3/13/07, dimitris <dimmechan at yahoo.com> wrote:
> Hello.
>
> Until now for papers drawing, I use two specialized drawing programs.
> For a forthcoming publication (alnong with my Supervisor Professor)
> I want to use my knowledge in Mathematica (...which I think I have
> gained!...)
> than hanging around with two programs I must admit I am not very fond
> of!
>
> So below are two draws.
>
> The first shows the cleavage stress on a (mathematical) crack.
> The second (attempts to) show a (so called) cusp-like (mathematical)
> crack.
> I would like any comments regarding anything you think can be useful!
>
> (Further, ) I know that this subject has been completely covered (and
> actually one of my very first queries was in the same vein), but as
> regards the procedure of Copy/Paste to a Word File which procedure
> offers the least (if possibly!) declination in the quality of these
> graphs?
>
> Lastly, I wanted to draw a bounded region as that encountered in any
> elementary text
> in Vector Analysis (for example in the proof of the Green-Gauss
> Theorem).
> I can draw circles, ellipses and the stuff but I really need a
> (smooth!) bounded region which shape is not so "canonical" as circle
> or ellipse.
>
>
> FIRST DRAW
>
> << "Graphics`Arrow`"
>
> lin1 = Graphics[{Thickness[0.007], AbsoluteDashing[{4, 6}], Line[{{0,
> 0}, {4.5, 0}}]}];
> lin2 = Graphics[{Thickness[0.007], AbsoluteDashing[{4, 6}], Line[{{0,
> 0}, {0, 3}}]}];
> ar1 = Graphics[{Arrow[{4.5, 0.0095}, {4.5 + 1/8, 0.0095}]}];
> ar2 = Graphics[{Arrow[{-0.01, 3}, {-0.01, 3 + 1/8}]}];
> tex1 = Graphics[Text[StyleForm["0", FontSize -> 16, FontWeight ->
> "Bold",
> FontFamily -> "Times"], {0, -3/8}]];
> tex2 = Graphics[Text[StyleForm["x", FontSize -> 16, FontWeight ->
> "Bold",
> FontFamily -> "Times"], {4.5 + 1/8, -3^(-1)}]];
> tex3 = Graphics[Text[StyleForm["cleavage\n stress", FontSize -> 16,
> FontWeight -> "Bold", FontFamily -> "Times"], {3.2, 2.4}]];
> cr1 = Graphics[{Thickness[0.009], Line[{{-0, 0.05}, {-3, 0.05}}]}];
> cr2 = Graphics[{Thickness[0.009], Line[{{-0, -0.05}, {-3, -0.05}}]}];
> lin3 =Graphics[{Thickness[0.009], Line[{{0, -0.05}, {0, 0.05}}]}];
> ar3 = Graphics[{Thickness[0.0055], Arrow[{2.7, 2.35}, {1.95, 1.9},
> HeadLength -> 0.035]}];
> Block[{$DisplayFunction=Identity},g = Plot[5*x*Exp[-x] + x/5, {x,
> 0.01, 4}, Axes -> False, PlotStyle -> Thickness[0.01]]];
>
> Show[{g, lin1, lin2, lin3, tex1, tex2, tex3, cr1, cr2, ar1, ar3},
> PlotRange -> {-1, 2.7},
> AspectRatio -> 1/GoldenRatio, ImageSize -> 400];
>
>
> SECOND DRAW
>
> Clear["Global`*"]
>
> lin1 = Graphics[{Thickness[0.007], AbsoluteDashing[{4, 6}], Line[{{0,
> 0}, {3.5, 0}}]}];
> lin2 = Graphics[{Thickness[0.007], AbsoluteDashing[{4, 6}], Line[{{0,
> 0}, {0, 2.6}}]}];
> ar1 = Graphics[{Arrow[{3.5, 0.0095}, {3.5 + 1/8, 0.0095}]}];
> ar2 = Graphics[{Arrow[{-0.005, 2.6}, {-0.005, 2.6 + 1/8}]}];
> tex1 = Graphics[Text[StyleForm["0", FontSize -> 16, FontWeight ->
> "Bold",
> FontFamily -> "Times"], {0, -3/8}]];
> tex2 = Graphics[Text[StyleForm["x", FontSize -> 16, FontWeight ->
> "Bold",
> FontFamily -> "Times"], {3.5 + 1/8, -3^(-1)}]];
> tex3 = Graphics[Text[StyleForm["y", FontSize -> 16, FontWeight ->
> "Bold",
> FontFamily -> "Times"], {-3^(-1), 2.55}]];
> cr1 = Graphics[{Thickness[0.009], Line[{{0, 0.07}, {-0.13, 0.07}}]}];
> cr2 = Graphics[{Thickness[0.009], Line[{{0, -0.07}, {-0.13,
> -0.07}}]}];
> lin3 = Graphics[{Thickness[0.009], Line[{{0, -0.07}, {0, 0.07}}]}];
> Block[{$DisplayFunction = Identity}, Plot[x^(3/2), {x, 0.18, 1.}, Axes
> -> False,
> PlotStyle -> Thickness[0.009]]];
> g1 = % /. {(x_)?NumberQ, (y_)?NumberQ} :> {-x, y};
> g2 = %% /. {(x_)?NumberQ, (y_)?NumberQ} :> {-x, -y};
> Block[{$DisplayFunction = Identity}, Plot[x^(1/2), {x, 1, 2}, Axes ->
> False,
> PlotStyle -> Thickness[0.009]]];
> g3 = % /. {(x_)?NumberQ, (y_)?NumberQ} :> {-x, y};
> g4 = %% /. {(x_)?NumberQ, (y_)?NumberQ} :> {-x, -y};
> Block[{$DisplayFunction = Identity}, Plot[x^(1/3) - (2^(1/3) -
> Sqrt[2]), {x, 2, 3},
> Axes -> False, PlotStyle -> Thickness[0.009]]];
> g5 = % /. {(x_)?NumberQ, (y_)?NumberQ} :> {-x, y};
> g6 = %% /. {(x_)?NumberQ, (y_)?NumberQ} :> {-x, -y};
>
> Show[{g1, g2, g3, g4, g5, g6, lin1, lin2, lin3, tex1, tex2, tex3, cr1,
> cr2, ar1, ar2}, AspectRatio -> 1/GoldenRatio, ImageSize -> 400,
> PlotRange -> {{-3, 4}, {-2.7, 2.7}}];
>
>
> Thanks in advance for any replies!
>
> Dimitris
>
>
>
--
http://chris.chiasson.name/
- References:
- drawing with Mathematica
- From: "dimitris" <dimmechan@yahoo.com>
- drawing with Mathematica