MathGroup Archive 1999

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

Search the Archive

Angular format

  • To: mathgroup at smc.vnet.net
  • Subject: [mg20872] Angular format
  • From: "Alan W.Hopper" <awhopper at hermes.net.au>
  • Date: Thu, 18 Nov 1999 01:09:48 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

I have an output angle in decimal degrees; a = 174.87625,

now with ,

In[1] := dms[n_]:=Module[{d,m,s,a},
		d=IntegerPart[n];
		a=60*FractionalPart[n];
		m=IntegerPart[a];
		s=60*FractionalPart[a];
		{d,m,s}]
		
In[2] := dms[174.87625]

Out[3] = {174, 52, 34.5}

The output is converted to degree, arcminute, arcsecond (list)form
but I want a fully symbolic result using the single and double quotes
if possible, for arcminute and arcsecond symbols,
or alternatively like this ,

174\[Degree] 52\[CloseCurlyQuote] 34\[CloseCurlyDoubleQuote].5

as the standard double quotes are 'protected' by Mathematica.


I have tried using strings,

"174\[Degree]" <> "52\[CloseCurlyQuote]" <> 
"34\[CloseCurlyDoubleQuote].5"

and this works O.K, but I can not seem to get everything together 
into a workable program, so far.


Does anyone have some suggestions (using Mathematica 3) ?



Alan W. Hopper
awhopper at hermes.net.au 
		


  • Prev by Date: Re: Goto[tag] has a strange behaviour
  • Next by Date: Re: Q: smooth 3Dplot with big mesh
  • Previous by thread: Progressive graphics output
  • Next by thread: Re: Angular format