Displaying 1 result from an estimated 1 matches for "myc1".
Did you mean:
mic1
2012 Jul 02
0
Fit circle with R
...,CPrat[2],radius=CPrat[3],border="blue")
points(CPrat[1],CPrat[2],pch=4,col="blue")
MyC <- fitCircle(xs,ys)
draw.circle(MyC[1],MyC[2],radius=MyC[3],border="green")
points(MyC[1],MyC[2],pch=4,col="green")
# Select less points
points(xs[20:49],ys[20:49])
MyC1 <- fitCircle(xs[20:49],ys[20:49])
draw.circle(MyC1[1],MyC1[2],radius=MyC1[3],border="blue",lty=2,lwd=2)
CPrat1 <- CircleFitByPratt(xs[20:49],ys[20:49])
draw.circle(CPrat1[1],CPrat1[2],radius=CPrat1[3],border="green",lty=2,lwd=2)
points(CPrat[1],CPrat[2],pch=4,col="re...