MathGroup Archive 2003

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

Search the Archive

Re: Mathematica Graphics Primitives

  • To: mathgroup at smc.vnet.net
  • Subject: [mg41295] Re: Mathematica Graphics Primitives
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Wed, 14 May 2003 08:07:08 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <b9q9vv$hrq$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

you missed a ","
and

Show[Graphics[
    Table[Arrow[{0, 0}, x {Sin[x], Cos[x]} , (* <---- here *)
    HeadScaling -> Absolute], {x, 0, 
        2*Pi, .3}]], PlotRange -> All]

Regards
  Jens

jprusa wrote:
> 
> Hello:
> 
> I am interested in plotting vectors, and have tried the code suggested
> in
>   the Mathematica 4 Standard Add-on Packages GuideBook (section 6,
> Graphics):
> 
> << Graphics`Arrow`
> 
> Show[Graphics[
>      Table[Arrow[{0, 0}, x {Sin[x], Cos[x]}
>              HeadScaling -> Absolute],
>        {x, 0, 2* Pi, .3}]],
>         PlotRange -> All]
> 
> and it doesn't work! Instead of getting the nice series of vectors
> shown on the bottom of p. 135,
> I get:
> 
>  From In[59]:=
> Graphics::gprim: \
> Arrow[{0,0}, {<<1>>} -> Absolute] was \
> encountered where a Graphics primitive or directive was expected.
> 
>  From In[59]:=
> Graphics::gprim: Arrow[{0,0}, {<<1>>} -> Absolute] \
> was encountered where a Graphics primitive or directive was expected.
> 
>  From In[59]:=
> Graphics::gprim: Arrow[{0,0}, {<<1>>} ] was \
> encountered where a Graphics primitive or directive was expected.
> 
>  From In[59]:=
> General::stop: Further output of Graphics::gprim will be suppressed
> during \
> this calculation.
> 
> Then it attempts to draw a box, but inside the box is the message:
> 
> PostScript Graphics
> The PostScript text in this cell did not contains any drawing commands,
> or
> contained an error before the first valid drawing command.
> 
> An attempt to past the box directly onto this email yields commands:
> 
>  From In[59]:=
> GraphicsData["PostScript", "\<\
> %!
> %%Creator: Mathematica
> %%AspectRatio: .61803
> MathPictureStart
> /Mabs {
> Mgmatrix idtransform
> Mtmatrix dtransform
> } bind def
> /Mabsadd { Mabs
> 3 -1 roll add
> 3 1 roll add
> exch } bind def
> %% Graphics
> %%IncludeResource: font Courier
> %%IncludeFont: Courier
> /Courier findfont 10  scalefont  setfont
> % Scaling calculations
> 0.0238095 0.952381 0.0147151 0.588604 [
> [ 0 0 0 0 ]
> [ 1 .61803 0 0 ]
> ] MathScale
> % Start of Graphics
> 1 setlinecap
> 1 setlinejoin
> newpath
> 0 0 m
> 1 0 L
> 1 .61803 L
> 0 .61803 L
> closepath
> clip
> newpath
> % End of Graphics
> MathPictureEnd
> \
> \>"]
> 
> I have tried several permutations, including removing the HeadScaling
> argument
> (sometimes it complained about the HeadScaling), replacing Pi with
> N[Pi], replacing
> the left hand point of the x interval with 0.3 (sometimes it complained
> about the
> vector length). I've even tried a single vector with no options:
> 
> Show[Graphics[Arrow[{0, 0}, {1, 1}]]]
> 
> but this also doesn't work, giving the error message:
> 
> Graphics::gprim:   Arrow[ {0, 0},{1, 1}] was \
> encountered where a Graphics primitive or directive was expected.
> 
> followed by error PostScript Graphics Box as above for GuideBook's
> example.
> 
> Any help would be greatly appreciated.
> 
> Sincerely,
> Joe Prusa
> 
> ps: I am running V. 4.1.5.0 on a Macintosh dual G4, OS 10.2.5, with
> plenty of memory and disk
> space.


  • Prev by Date: RE: Mathematica Graphics Primitives
  • Next by Date: find out the max ormin of a function
  • Previous by thread: RE: Mathematica Graphics Primitives
  • Next by thread: Scientifc notation