library(plotrix)
distance<-function(x1,y1,x2,y2) { sqrt((x2-x1)^2+(y2-y1)^2) {
par( mfrow = c( 1, 1 ) )
#Coordinate delle tacche sul JPG
x<-c(103,31,115,75,40,101,70,75)
y<-c(22,105,49,34,79,85,96,90)
#Inversione dell’asse Y per il grafico
y<-150-y
#Disegno dei punti in corrispondenza delle tacche
plot(x,y,xlim=c(0,150),ylim=c(0,150), asp = 1)
#Disegno dei cerchi concentrici e dei segmenti
for(i in 1:8)
{
	draw.circle(75,75,distance(75,75,x[i],y[i]),border="lightgray")
	segments(75,75,x[i],y[i])
}
#Aggiungo le lettere
for(i in 1:length(alpha))
    text(75+70*cos((pi*2)*((33.5-i)/26)),
	 75+70*sin((pi*2)*((33.5-i)/26)),
         LETTERS[i])