Definir los vectores

u= c(3,10,11,12,27)

Definir los vectores

sqrt(u%*%u)
##          [,1]
## [1,] 33.21144

Definir los vectores

t <- c(1, 3, 4, 2, 10, 7, 5, 18, 6)
p <- c(3, 8)
q <- c(10, 2)

Calcular la suma de los vectores p y q

e <- p + q

crear un gráfico

plot(0, 0, type = "n", xlim = c(0, 14), 
     ylim = c(0, 12), xlab = "Eje x", 
     ylab = "Eje y", lwd = 3, 
     col = "blue", bty = "n")
# Dibujar los vectores p, q y e
# Vector p
arrows(0, 0, p[1], p[2], col = "green", length = 0.1)
# Vector q
arrows(0, 0, q[1], q[2], col = "red", length = 0.1)
# Vector e
arrows(0, 0, e[1], e[2], col = "black", length = 0.1)

# Etiquetas para los vectores
# Vector p
text(p[1], p[2], labels = "p", pos = 3)
# Vector q
text(q[1], q[2], labels = "q", pos = 3)
# Vector p + q
text(e[1], e[2], labels = "p + q", pos = 3)



# Líneas punteadas para formar el paralelogramo
abline(h = seq(0, e[2], by = 1), col = "lightgray", lty = 2)
abline(v = seq(0, e[1], by = 1), col = "lightgray", lty = 2)