From arizona!stat.wisc.edu!owner-S-news  Fri Feb 14 10:03:51 1992
Received: from arizona by rupley via UUCP (911016.SGI/890607.SGI)
	(for local) id AA12541; Fri, 14 Feb 92 10:03:51 -0700
Resent-From: arizona!stat.wisc.edu!owner-S-news
Received: from optima.cs.arizona.edu by univers.cs.arizona.edu; Fri, 14 Feb 92 09:28:52 MST
Resent-Date: Fri, 14 Feb 92 11:23:33 EST
Resent-Message-Id: <9202141628.AA18161@optima.cs.arizona.edu>
Received: from jupiter.stat.wisc.edu by optima.cs.arizona.edu (4.1/15)
	id AA18161; Fri, 14 Feb 92 09:28:46 MST
Received: by jupiter.stat.wisc.edu; Fri, 14 Feb 92 10:24:00 -0600
Received: from hermes.stat.wisc.edu by jupiter.stat.wisc.edu; Fri, 14 Feb 92 10:23:39 -0600
Received: from fisher.stat.psu.edu by hermes.stat.wisc.edu; Fri, 14 Feb 92 10:23:36 -0600
Received: from wilks.stat.psu.EDU by fisher.stat.psu.edu (4.1/SMI-4.1/stat.3)
	id AA01429; Fri, 14 Feb 92 11:23:35 EST
Received: by wilks.stat.psu.EDU (5.52/1.110)
	id AA10271; Fri, 14 Feb 92 11:23:33 EST
Date: Fri, 14 Feb 92 11:23:33 EST
From: Colin Goodall <arizona!stat.psu.edu!colin>
Message-Id: <9202141623.AA10271@wilks.stat.psu.EDU>
To: S-news@stat.wisc.edu
Subject: valentine's theta
Errors-To: arizona!stat.wisc.edu!owner-S-news
Resent-To: S-news-list@stat.wisc.edu
Resent-Reply-To: Colin Goodall <arizona!stat.psu.edu!colin>
Status: RO


A couple of people have asked me what theta is.   I sent out a "PS" last
night.   Maybe it was lost, so here it is again.

Define theta by
theta <- seq(-pi,pi,length=101)
either before calling the function, or as part of the body of pg().
	
My son at breakfast today said that the heart should be more indented
at the top.   I guess another choice of spiral will fix it up to
give the "Hallmark" version.   For example a logarithmic spiral
(log(abs(theta)...)) instead of the geometric one (exp(abs(theta)...)),
or maybe something in between, an arithmetic spiral (abs(theta)...).
Of course, then the constants would have to be adjusted to get good defaults
again.

I'd be interested to see any refinements anyone comes up with.

