在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")
}