postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
theta=seq(0,2*pi,len=100)
# par(new=T)
ellipse <- function(x,y,r=.75,e=3.3) {
  plot(e*r*cos(theta)+x,r*sin(theta)+y,xlim=c(-1,15),ylim=c(0,10),t="l",axes=F,ann=F)
}

postscript(file="fig1.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
ellipse(1,6.5)
par(new=T)
ellipse(7,6.5)
par(new=T)
ellipse(1,3.5)
par(new=T)
ellipse(7,3.5)
par(new=T)
ellipse(12,5)
text(x=c(1,7,1,7,12),y=c(6.5,6.5,3.5,3.5,5),
     labels=c("actual risk","perceived risk",
       "actual return","perceived return","attractiveness"))
text(c(3.9,9.4,3.9,9),c(6.75,5.82,3.75,4.6),labels=c("+","-","+","+"))
arrows(c(3.5,3.5,8.7,8.7),c(6.5,3.5,5.95,4.05),
       c(4.5,4.5,9.7,9.7),c(6.5,3.5,5.3,4.7),length=.12)
dev.off()

postscript(file="fig2.eps",family="NimbusSan",width=8,height=8,
horiz=F,onefile=F,pointsize=16,paper="special")
ellipse(7,6.5)
par(new=T)
ellipse(7,3.5)
par(new=T)
ellipse(1,5)
text(y=c(6.5,3.5,5),x=c(7,7,1),
     labels=c("perceived risk","perceived return","attractiveness"))
text(c(3.9,3.9),c(5.9,4.1),labels=c("-","+"))
arrows(c(3.33,3.33),c(5.3,4.7),c(4.73,4.73),c(6.15,3.85),length=.12)
dev.off()