% piltavla, koncentriska cirklar
  clear, clf
  fi=0:2*pi/60:2*pi; cc=cos(fi); ss=sin(fi); 
  fill(cc, ss,'r'), hold on, axis equal, axis off
  text(-0.3,0,'10')
  for R=2:10, plot(R*cc, R*ss), text(0,R-0.6,int2str(11-R)), end
  totpoeng=0;
  set(gcf,'DoubleBuffer','on')
  for pil=1:10 
    x=5*randn; y=4*randn; s=sqrt(x^2+y^2);
    if s>10, poeng=0, else poeng=10-fix(s), end
    totpoeng=totpoeng+poeng;
    plot(x,y,'*'), pause(0.7)
  end
  totpoeng



 

