real x(10),y(10) ; integer col(10) ; character leg(8)*2
	data leg /'01','02','03','04','5a','5b','6a','6b'/
	call mvsetflags('X size',900.0)
	call mvsetflags('Palette di colori',7.0)
	call mvsetflags('Random seed',3409842.0)
	n=8
	do i=1,n
	   x(i)=acaso(x)*3 ; y(i)=-1+2*acaso(x) ; col(i)=nint(2.+acaso(x)*8)
	   if (acaso(x).gt.0.5) col(i)=col(i)+100
	   if (acaso(x).gt.0.5) col(i)=col(i)+100
	enddo
	call taylorplot(0.5,0.2,1.00,x,y,col,leg,n) 
	call displayexample('example42','Taylor diagram',' ')
	end