情节中的R方程的系统

Question

假设你有一个方程组（5个方程和2个变量）看起来像这样：手动

Ax + By = C 

AB <- matrix(runif(10), 5) 
C <- c(5, 10, 15, 20, 25) 

你如何画出这个系统中的R方程，而无需首先转换成

y = (C - Ax)/B 

Answer 1

你在找这样的吗？

set.seed(101) 
AB <- matrix(runif(10), 5) 
C <- c(5, 10, 15, 20, 25) 

x = seq(-70,70,1) 

plot(x, (C[1] - AB[1,1]*x)/AB[1,2], col=1, type="l", ylim=c(-100,200)) 

for (i in 2:nrow(AB)) { 
    lines(x, (C[i] - AB[i,1]*x)/AB[i,2], col=i, type="l") 
}