别说我对cos没贡献:
<br />
Connect5 <- function(maxmoves=200) {<br />
plot(1:19,type="n",xlim=c(1,19),axes=F,xlab='',ylab='',bty="o",lab=c(19,19,1))<br />
segments(1,1:19,19,1:19)<br />
segments(1:19,1,1:19,19)<br />
points(rep(c(4,10,16),3),rep(c(4,10,16),each=3),pch=19,cex=1.2)<br />
box()</p>
<p> playedlist <- NULL<br />
for(i in 1:maxmoves)<br />
{<br />
repeat<br />
{<br />
l=locator(1)<br />
l$x <- min(19,max(1,round(l$x)))<br />
l$y <- min(19,max(1,round(l$y)))<br />
xy <- paste(l,collapse=":")<br />
if (!is.element(xy,playedlist)) break<br />
}<br />
playedlist <- c(playedlist,xy)<br />
points(l,cex=3,pch=21,bg="white")</p>
<p> repeat<br />
{<br />
l=locator(1)<br />
l$x <- min(19,max(1,round(l$x)))<br />
l$y <- min(19,max(1,round(l$y)))<br />
xy <- paste(l,collapse=":")<br />
if (!is.element(xy,playedlist)) break<br />
}<br />
playedlist <- c(playedlist,xy)<br />
points(l,cex=3,pch=19)<br />
}<br />
}</p>
<p>Connect5()<br />
</p>