Acceso al documento en PDF - Biblioteca Nacional de Maestros

ectal=Table[{O,y},{y,-3,3,0.2}]; ..,. :. '.,
. .
recta2=Table[{-y,y/2},{y,-3,3,0.2}1;
recta3=Table[(x,O},fx,-3,3,0.2)];
recta4=Table[{-y,2y},{y,-3/2,3/2,0.15)];
recta5=Table[{y,y/2),{y,-3,3,0.2)];
recta6=Table[{y,2y),(y,-3/2,3/2,0.15)];
recta7=Table[{-y,y),{y,-3,3,0.2)];
recta8=Table[{y,y),(y,-3,3,0.2}];
rl=dibujo[rectal,rojo]; r2=dibujo[recta2,azull;
r3=dibujo[recta3,verde]; r4=dibujo[recta4,amarillo]';
r5=dibujo[recta5,naranja]; 'rá=dibu jolrecta6 ,vioSeta];
r7=dibujo[recta7,celeste]; r8=dibujo[recta8,negro];
María C. Caligaris. Georgina B. Rodríguez y Roberto E. Caligaris
TPrl=dibujo[transf [T2,rectal],rojo]; T2r2=dibujo[transf[T2,recta2],az~l];
T2r3=dibujo[transf[T2,recta3],verde]; T2r4=dibujo[transf[T2,recta4],aaIarillo];
T2r5=dibujo[transf[T2,recta5],naranja]; T2rG=dibujo[transf[T2,recta6],violeta];
T2r7=dibujo[transf[T2,recta7],celeste]; T2r8=dibujo[transf[T2,recta8],negrol;
Como se puede ver, cada recta y su transformada son del mismo color.
Show[GraphicsArray[{haz,imagenT2haz)lJ;
Haz T2[Haz]
¿Será que (0, 0) sólo se obtiene como T(0, O)? Eso parece. Para estar seguros, calculamos
analíticamente. Para ello definimos una función nucleo, válida sólo para este caso:
nucleo[TI]:=Solve[T[{x,y}]=={0,0),(x,y)](*R2 en R 2
*)
nucleo[T2] el {{x -> 0, y -> 0))
Ahora no hay dudas: Ker ( T 2) = ((0, O)).Para T 4, trabajamos igual:
61
.