www-ai.cs.tu-dortmund.de/de/LEHRE/VORLESUNGEN/NOPT/SS14/code/contour_quad.html
"cyan")), lwd=2) lines3d(w[2]*c(min(x),max(x))*d$vectors[1,2], w[2]*c(min(y),max(y))*d$vectors[2,2], c(0,0), col=ifelse(is.complex(d$value[2]), "brown", ifelse(d$value[2]>0, "blue", "cyan")), lwd=2) } x <- seq(-1 [...] byrow=TRUE, nrow=2, ncol=2) # convex, axis-aligned M[[2]] <- matrix(c(10,0,0,5), byrow=TRUE, nrow=2, ncol=2) # convex, axis-aligned M[[3]] <- matrix(c(10,0,0,1), byrow=TRUE, nrow=2, ncol=2) # convex, axis-aligned [...] byrow=TRUE, nrow=2, ncol=2) # convex, not aligned to axes M[[5]] <- matrix(c(-10,0,0,-5), byrow=TRUE, nrow=2, ncol=2) # concave M[[6]] <- matrix(c(10,0,0,-10), byrow=TRUE, nrow=2, ncol=2) # neither convex …