www-ai.cs.tu-dortmund.de/de/LEHRE/VORLESUNGEN/NOPT/SS14/code/contour_quad.html
vectors[1,1], w[1]*c(min(y),max(y))*d$vectors[2,1], c(0,0), col=ifelse(is.complex(d$value[1]), "brown", ifelse(d$value[1]>0, "blue", "cyan")), lwd=2) lines3d(w[2]*c(min(x),max(x))*d$vectors[1,2], w[2]*c(min(y) [...] complex(d$value[2]), "brown", ifelse(d$value[2]>0, "blue", "cyan")), lwd=2) } x <- seq(-1,1,len=40) y <- seq(-1,1,len=40) for(i in seq_len(length(M))) { plotQuad(M[[i]], x, y) scan() } [...] NULL M[[1]] <- matrix(c(10,0,0,10), 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 …