Displaying 1 result from an estimated 1 matches for "cmati".
Did you mean:
cmath
2012 Jun 13
0
Plotted circle does not go through desired points - very long email with code
...<- tan(b.m) # slope of tangent line on
"H"
b1 <- xy$y[i] -(m1*xy$x[i])
?
# decide on 2 random points on the tangent line
x1a <- -100
x1b <- 100
y1a <- m1*x1a + b1
y1b <- m1*x1b + b1
?
# Get the point dependency for "H"
mati <- mat[i,][mat[i,] ==1]
cmati <- names(mati)
n1 <- length(cmati)
?
# Get the first dependency: j=1
pt2 <- xy[cmati[j],]
?
# Get coordinates of the middle of segment
"H"-"B"
xm <- min(xy$x[i], pt2$x) + abs((min(xy$x[i], pt2$x)-max(xy$x[i],
pt2$x))/2)
ym <- min(xy$y[i], pt2$y) + abs((min...