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