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.