R Notebook

sistema de ecuaciones: \[ \left. 2x + 4y = 8 \atop x - y = 1 \right\} Estos\ son\ los\ sistemas\ a\ trabajar \]

La matirz de los coeficentes \[ matriz= \begin{equation} \begin{pmatrix} x & y\\ 2 & 4\\ 1 & -1 \end{pmatrix} \end{equation} \]

La matriz de los terminos independientes \[ coef= \begin{equation} \begin{pmatrix} 8\\ 1 \end{pmatrix} \end{equation} \]

matriz<-matrix(c(2,1,4,-1),ncol=2,nrow = 2)
matriz

     [,1] [,2]
[1,]    2    4
[2,]    1   -1

coef<-matrix(c(8,1),ncol=1,nrow = 2)
coef

     [,1]
[1,]    8
[2,]    1

solucion<-solve(matriz,coef)
data.frame(variables=c("valor de x","valor de y"),soluciones=solucion)

Esta es la grafica \[ donde\ el\ cuadrado\ es\ las\ soluciones\ cordenadas\ es\ c(2,1) \]

x=seq(-20,20)
y=x-1
plot(x,y,type = "l",xlab = "Valores de x",ylab = "valores de y",col="blue")
curve((8-2*x)/4,-20,20,add = T,col="red")

points(2,1,col="purple",cex=4,pch=22)
title("Sistema de ecuciones")

legend(-10,18,c("2x+4y=8","x-y=1"),col = c("blue","red"),lty = 1)
grid()