这是执行您所描述的R函数：
dynmodfunc <- function() { plot(0:1,0:1,ann=FALSE,type='n') mypoints <- matrix(ncol=2, nrow=0) while( length(p <- locator(1, type='p', col='red')) ) { mypoints <- rbind(mypoints, unlist(p)) plot(mypoints, col='red', ann=FALSE, xlim=0:1, ylim=0:1) if(nrow(mypoints)>1) { xspline(mypoints, shape=-1) } } mypoints}(out <- dynmodfunc())您可以更改
shape参数以
xspline更改样条线的样式。该版本返回带有x和y值的2列矩阵，但是如果需要，可以将其更改为其他结构。还有很多其他东西可以定制。
添加了将输出粘贴到Mathematica中的功能：
matrix2mathematica <- function(x) { paste0( '{', paste0( '{', x[,1], ', ', x[,2], '}', collapse=', '), '}')}cat( matrix2mathematica(out))
