Saltar al contenido

Diario de clases

Clases de Jesús Soto

Menú
  • Home
  • Equation Editor
  • Generador de tablas
Menú

Etiqueta: Prácticas álgebra

ALG: Intersección, incidencia y paralelismo

Posted on 9 de noviembre de 2026

Vamos a tratar la posición relativa de dos variedades afines: \(L_1=P+C_1\) y \(L_2=Q+C_2\). Diremos que se cortan si el conjunto \(L_1\cap L_2\) no es vacío. Si \(L_1\cap L_2=\phi\); es decir, si no se cortan, puede ocurrir que \(C_1\subseteq C_2\) (o \(C_2\subseteq C_1\) ) en cuyo caso se dice que son paralelas; en caso contrario se dice que se cruzan.

Si conocemos las ecuaciones implícitas de las dos variedades, el conjunto \(L_1\cap L_2\) viene dado por los puntos cuyas coordenadas, respecto del sistema de referencia considerado, son las soluciones del sistema que resulta de reunir todas las ecuaciones implícitas. Si denotamos por \(n=dim(E)\), siendo \(E\) el espacio afín, \(r=dim(L_1)\) y \(s=dim(L_2)\), y suponiendo que \(r\leq s\), el sistema formado por todas las ecuaciones es un sistema de \(2n-r-s\) ecuaciones, que podemos escribir en forma matricial: \(AX=b\). Según que el rango de la matriz de coeficientes coincida con el rango de la ampliada obtenemos la diferencia entre variedades que se cortan o que no se cortan. Si \(rg(A)\) es \(n-r\), entonces la dimensión de \(C_1\cap C_2\) será \(r\) y por tanto \(C_1\cap C_2=C_1\), con lo que \(C_1\subseteq C_2\).

Podemos resumirlo en el siguiente cuadro:

Que es equivalente a:

\(\textbf{rg}\,A=\textbf{max}\{\textbf{rg}\,L_1,\textbf{rg}\,L_2\}\) \(\textbf{rg}\,A=\textbf{rg}\,Ab\) Incidentes \((\mathbf{-})\)
\(\textbf{rg}\,A=\textbf{max}\{\textbf{rg}\,L_1,\textbf{rg}\,L_2\}\) \(\textbf{rg}\,A\neq\textbf{rg}\,Ab\) Paralelas \((\mathbf{=})\)
\(\textbf{rg}\,A>\textbf{max}\{\textbf{rg}\,L_1,\textbf{rg}\,L_2\}\) \(\textbf{rg}\,A= \textbf{rg}\,Ab\) Se cortan \((\mathbf{+})\)
\(\textbf{rg}\,A>\textbf{max}\{\textbf{rg}\,L_1,\textbf{rg}\,L_2\}\) \(\textbf{rg}\,A\neq \textbf{rg}\,Ab\) Se cruzan \((\mathbf{\times})\)

Ejercicio: Determinar la posición relativa de las variedades \[\begin{align*} r_1&:\{(x,y,z,t)\in\mathbb{R}^4;\ 4 x-2 y-2 z=0,\ -3 x+4 y-2 t+8=0\}\\ r_2&:\{(x,y,z,t)\in\mathbb{R}^4;\ 6 y-2 z+8=0,\ -4 x+6 y-2 t+10=0\}\end{align*}\]

Construyamos las matrices del sistema: \[\begin{bmatrix}4 & -2 & -2 & 0\\
-3 & 4 & 0 & -2\\
0 & 6 & -2 & 0\\
-4 & 6 & 0 & -2\end{bmatrix}\begin{bmatrix}x\\ y\\ z\\ t\end{bmatrix}=\begin{bmatrix}0\\ -8\\ -8\\ -10\end{bmatrix}\]
Los rangos nos dicen que

\[\mathbf{rank}\begin{bmatrix}4 & -2 & -2 & 0\\
-3 & 4 & 0 & -2\\
0 & 6 & -2 & 0\\
-4 & 6 & 0 & -2\end{bmatrix}=3= \mathbf{rank}\begin{bmatrix}4 & -2 & -2 & 0 & 0\\
-3 & 4 & 0 & -2 & -8\\
0 & 6 & -2 & 0 & -8\\
-4 & 6 & 0 & -2 & -10\end{bmatrix}\]

Y como \(\mathbf{rank}\ A=3>\mathbf{max}\{\mathbf{dim}\ r_1,\mathbf{dim}\ r_2\}=2\), resulta que las variedades se cortan.

(%i8) R1:matrix([4,−2,−2,0],[−3,4,0,−2])$
b:transpose(matrix([0,−8]))$
R1b:addcol(R1,b)$
R2:matrix([0,6,−2,0],[−4,6,0,−2])$
b:transpose(matrix([−8,−10]))$
R2b:addcol(R2,b)$
A:addrow(R1,R2)$
Ab:addrow(R1b,R2b);

\[\operatorname{ }\begin{bmatrix}4 & -2 & -2 & 0 & 0\\-3 & 4 & 0 & -2 & -8\\0 & 6 & -2 & 0 & -8\\-4 & 6 & 0 & -2 & -10\end{bmatrix}\]

(%i9) posicion(rgA,rgAb,rgL1,rgL2):=block([out],
   if(rgA=max(rgL1,rgL2)) then (
       if (rgA=rgAb) then out:"son incidentes -" else out:"son paralelas ="
   ) else (
       if (rgA=rgAb) then out:"se cortan +" else out:"se cruzan x"
   ),
  out
)$

(%i10) [rank(A),rank(Ab),rank(R1),rank(R2)];

\[\operatorname{ }\left[ 3\operatorname{,}3\operatorname{,}2\operatorname{,}2\right] \]

(%i12) p:posicion(rank(A),rank(Ab),rank(R1),rank(R2))$
print("Las dos variedades",p)$

\[\mbox{Las dos variedades se cortan +}\]


Ejercicio: Determinar la posición relativa de las variedades \[\begin{align*} r_1&:\left\{\begin{bmatrix}x& y\\ z& t\end{bmatrix}\in\mathcal{M}_2(\mathbb{R});\ x-y-z=0,\ -3 x+2 y-t+4=0\right\}\\ r_2&:\left\{\begin{bmatrix}x& y\\ z& t\end{bmatrix}\in\mathcal{M}_2(\mathbb{R});\ -y-2z+1=0,\ -4x+7y-2t+11=0\right\}\end{align*}\]

Planteemos el sistema y comprobemos los rangos de sus matrices:
\[\mathbf{rank}\begin{bmatrix}1 & -1 & -1 & 0\\
-3 & 2 & 0 & -1\\
0 & -1 & -2 & 0\\
-4 & 7 & 0 & -2\end{bmatrix}=4=\mathbf{rank}\ \begin{bmatrix}1 & -1 & -1 & 0 & 0\\
-3 & 2 & 0 & -1 & -4\\
0 & -1 & -2 & 0 & -1\\
-4 & 7 & 0 & -2 & -11\end{bmatrix}\]

Luego estamos ante dos variedades que se cortan o son incidentes. Como \(\mathbf{rank}\ A=4>\mathbf{max}\{\mathbf{dim}\ r_1,\mathbf{dim}\ r_2\}=2\), resulta que las variedades se cortan. Observar que en este caso la intersección es un punto.

(%i8) L1:matrix([1,−1,−1,0],[−3,2,0,−1])$
b:transpose(matrix([0,−4]))$
L1b:addcol(L1,b)$
L2:matrix([0,−1,−2,0],[−4,7,0,−2])$
b:transpose(matrix([−1,−11]))$
L2b:addcol(L2,b)$
A:addrow(L1,L2)$
Ab:addrow(L1b,L2b);

\[\begin{bmatrix}1 & -1 & -1 & 0 & 0\\-3 & 2 & 0 & -1 & -4\\0 & -1 & -2 & 0 & -1\\-4 & 7 & 0 & -2 & -11\end{bmatrix}\]

(%i9) posicion(rgA,rgAb,rgL1,rgL2):=block([out],
   if(rgA=max(rgL1,rgL2)) then (
       if(rgA=rgAb) then out:"son incidentes -" else out:"son paralelas ="
   ) else (
       if(rgA=rgAb) then out:"se cortan +" else out:"se cruzan x"
   ),
  out
)$

(%i10) [rank(A),rank(Ab),rank(L1),rank(L2)];

\[\left[ 4,4,2,2\right] \]

(%i12) p:posicion(rank(A),rank(Ab),rank(L1),rank(L2))$
print("Las dos variedades",p)$

\[\]\[\mbox{Las dos variedades se cortan +}\]

(%i16) X:[x,y,z,t]$
m:A.X−col(Ab,5)$
eq:makelist(m[i,1],i,1,matrix_size(m)[1]);
linsolve(eq,X);

\[\left[ -z-y+x,2 y-3 x-t+4,-2 z-y+1,7 y-4 x-2 t+11\right] \]

\[\left[ x=0,y=-1,z=1,t=2\right] \]


Ejercicio: Determinar la posición relativa de las variedades \[\begin{align*} r_1&:\{(x,y,z,t)\in\mathbb{R}^4;\ x+y=0,\ y+2z=0,\ z+3t=1\}\\ r_2&:\{(x,y,z,t)\in\mathbb{R}^4;\ \frac{x-2}{2}= y=\frac{z}{-1}=t+1\}\end{align*}\]


(%i3) L1:matrix([1,1,0,0],[0,1,2,0],[0,0,1,3])$
b:transpose(matrix([0,0,1]))$
L1b:addcol(L1,b)$

Obtenemos las ecuaciones implícitas de L2

(%i6) rat(x−2=2·y);
rat(y=−z);
rat(y=t+1);

\[x-2=2 y\]

\[y=-z\]

\[y=t+1\]

Ahora seguimos con la matriz del sistema:

(%i11) L2:matrix([1,−2,0,0],[0,1,1,0],[0,1,0,−1])$
b:transpose(matrix([2,0,1]))$
L2b:addcol(L2,b)$
A:addrow(L1,L2)$
Ab:addrow(L1b,L2b);

\[\begin{bmatrix}1 & 1 & 0 & 0 & 0\\0 & 1 & 2 & 0 & 0\\0 & 0 & 1 & 3 & 1\\1 & -2 & 0 & 0 & 2\\0 & 1 & 1 & 0 & 0\\0 & 1 & 0 & -1 & 1\end{bmatrix}\]

(%i12) posicion(rgA,rgAb,rgL1,rgL2):=block([out],
   if(rgA=max(rgL1,rgL2)) then (
       if(rgA=rgAb) then out:"son incidentes -" else out:"son paralelas ="
   ) else (
       if(rgA=rgAb) then out:"se cortan +" else out:"se cruzan x"
   ),
  out
)$

(%i13) [rank(A),rank(Ab),rank(L1),rank(L2)];

\[\left[ 4,5,3,3\right] \]

(%i15) p:posicion(rank(A),rank(Ab),rank(L1),rank(L2))$
print("Las dos variedades",p)$

\[\mbox{Las dos variedades se cruzan x}\]


Ejercicio: Determinar la posición relativa de las variedades \[\begin{align*} S&=\{(x,y,z,t,u)\in\mathbb{R}^5;\ -z-y+3x+t+1=0,\ 2y+x+u-t=0\}\\ T&=\left\{(x,y,z,t,u)\in\mathbb{R}^5;\ \begin{array}{l}-2z+y-x-u=0\\ 3z+2t+1=0\\ -z+y+4x+u+4=0\end{array}\right\}\end{align*}\]


(%i8) L1 : matrix ( [ 3 , − 1 , − 1 , 1 , 0 ] , [ 1 , 2 , 0 , − 1 , 1 ] , [ − 1 , 1 , − 2 , 0 , − 1 ] ) $
b : transpose ( matrix ( [ − 1 , 0 , 0 ] ) ) $
L1b : addcol ( L1 , b ) $
L2 : matrix ( [ 0 , 0 , 3 , 2 , 0 ] , [ 4 , 1 , − 1 , 0 , 1 ] ) $
b : transpose ( matrix ( [ − 1 , − 4 ] ) ) $
L2b : addcol ( L2 , b ) $
A : addrow ( L1 , L2 ) $
Ab : addrow ( L1b , L2b ) ;

\[\begin{bmatrix}3 & -1 & -1 & 1 & 0 & -1\\
1 & 2 & 0 & -1 & 1 & 0\\
-1 & 1 & -2 & 0 & -1 & 0\\
0 & 0 & 3 & 2 & 0 & -1\\
4 & 1 & -1 & 0 & 1 & -4\end{bmatrix}\]

(%i9) posicion ( rgA , rgAb , rgL1 , rgL2 ) : = block ( [ out ] ,
  if ( rgA = max ( rgL1 , rgL2 ) ) then (
      if ( rgA = rgAb ) then out : "son incidentes -" else out : "son paralelas ="
  ) else (
      if ( rgA = rgAb ) then out : "se cortan +" else out : "se cruzan x"
  ) ,
 out
) $

(%i10) [ rank ( A ) , rank ( Ab ) , rank ( L1 ) , rank ( L2 ) ] ;

\[\left[ 4,5,3,2\right] \]

(%i12) p : posicion ( rank ( A ) , rank ( Ab ) , rank ( L1 ) , rank ( L2 ) ) $
print ( "Las dos variedades" , p ) $

\[\mbox{Las dos variedades se cruzan x}\]

Veamos dónde se cruzan:

(%i16) X : [ x , y , z , t , u ] $
m : A . X − col ( Ab , 5 ) $
eq : makelist ( m [ i , 1 ] , i , 1 , matrix_size ( m ) [ 1 ] ) ;
sol : linsolve ( eq , X ) ;

\[\left[ -z-y+3 x+t,2 y+x+u-t-1,-2 z+y-x-u+1,3 z+2 t,-z+y+4 x+u-1\right] \]\[solve: dependent equations eliminated: (5)\]

\[\left[ x=-\frac{16 {\mathrm{\% r1}}-16}{49},y=-\frac{3 {\mathrm{\% r1}}-3}{49},z=-\frac{18 {\mathrm{\% r1}}-18}{49},t=\frac{27 {\mathrm{\% r1}}-27}{49},u={\mathrm{\% r1}}\right] \]

Como es una variedad tenemos un punto más un vector director. Veamos el punto:

(%i18) P : ev ( X , ev ( sol , %rnum_list [ 1 ] = 0 ) ) ;
v : ev ( X , ev ( sol , %rnum_list [ 1 ] = 1 ) ) − P ;

\[\left[ \frac{16}{49},\frac{3}{49},\frac{18}{49},-\frac{27}{49},0\right] \]

\[\left[ -\frac{16}{49},-\frac{3}{49},-\frac{18}{49},\frac{27}{49},1\right] \]

Recordemos que el vector director podemos escalarlo, con el fin de expresarlo de forma más sencilla, pero no ocurre lo mismo con el punto.

(%i19) print ( transpose ( matrix ( X ) ) , "=" , 1 / 49 , 49 · transpose ( matrix ( P ) ) , "+λ" , 49 · transpose ( matrix ( v ) ) ) $

\[\begin{bmatrix}x\\
y\\
z\\
t\\
u\end{bmatrix}=\frac{1}{49}\begin{bmatrix}16\\
3\\
18\\
-27\\
0\end{bmatrix}+\lambda \begin{bmatrix}-16\\
-3\\
-18\\
27\\
49\end{bmatrix}\]


 

Ejercicio: La ecuación \(x+z+t=0\) es una de las ecuaciones implícitas de la imagen de la aplicación \(f:\mathbb{R}^3\to\mathcal{M}_2(\mathbb{R})\), dada por \[f(a,b,c)=\begin{bmatrix}-2c+b+a& -c-b\\ b+c & c-2b-a\end{bmatrix}\]
  • Verdadero
  • Falso


A.)


ALG: Variedades y Sistemas de Ecuaciones

Posted on 2 de noviembre de 2026

Ampliamos las definiciones de variedades lineales que, en muchos casos, las equiparamos con los subespacios vectoriales, aunque no tienen por qué serlos, a \(\mathbb{R}^n\) Las variedades lineales nos dan pie para definir…

ALG: El espacio afín euclídeo con maxima

Posted on 26 de octubre de 2026

Repasemos un poco lo visto: Ejemplo: ¿Cuánto suman los coeficientes que multiplican a \(x\) e \(y\) en la ecuación implícita de la recta del plano afín que pasa por los puntos P(4,1)…

ALG: Determinantes, factorización LU y espacios vectoriales con maxima

Posted on 19 de octubre de 2026

Repaso de la inversa y pseudoinversa de una matriz El procedimiento común para el cálculo de la inversa de una matriz (en caso de existir) puede plantearse como el algoritmo dado mediante…

ALG: Criptografía con matrices

Posted on 5 de octubre de 2026

El cifrado matricial (conocido históricamente como una variante del Cifrado de Hill) es una aplicación directa del álgebra lineal donde la clave secreta es una matriz invertible. ¿Cómo funciona el Cifrado Matricial?…

ALG: Operaciones con matrices en maxima

Posted on 28 de septiembre de 2026

Operaciones con matrices en maxima El pasado día vimos como realizar transformaciones elementales para encontrar una matriz escalonada de cualquier matriz. Estas operaciones son fáciles con maxima utilizando estos comandos: rowswap(\(M\), i,…

ALG: Vectores y matrices con Maxima

Posted on 21 de septiembre de 2026

Maxima Las prácticas la realizaremos con Maxima, un sistema para la manipulación de expresiones simbólicas y numéricas. Esta herramienta informática nos ayudará a resolver problemas de la asignatura de forma sencilla y…

Novela

La Loba, la lucha fraticida por un reino

La Loba, la lucha fratricida por un reino.

Urraca, señora de Zamora, acusada de instigar la muerte de su hermano, el rey Sancho de Castilla, deberá defenderse de la acusación, al tiempo que luchará por mantener la cohesión entre los hermanos y los reinos cristianos: una lobera de fieros lobeznos.

👉 En amazon

Entradas recientes

  • ALG: El Espacio Vectorial Euclídeo
  • ALG: Intersección, incidencia y paralelismo
  • ALG: Teorema de Rouché-Fröbenius
  • ALG: Variedades y Sistemas de Ecuaciones
  • MathBio: Funciones de varias variables
noviembre 2026
L M X J V S D
 1
2345678
9101112131415
16171819202122
23242526272829
30  
« Oct    

Asignaturas

  • álgebra
  • bioestadistica
  • matematica discreta
  • mathbio

Prácticas

  • Prácticas álgebra
  • Prácticas mathbio

Meta

  • Acceder
  • Feed de entradas
  • Feed de comentarios
  • WordPress.org
©2026 Diario de clases | Diseño: Tema de WordPress Newspaperly