Cálculo Matricial en el Excel - Aula Virtual USB

Adolfo Canahuire Condori. Contenido. 1 Operaciones Matriciales en el Excel. 3. 1.1 Suma y resta . . . . . . . . . . . . . . . . . . . . . . . . . . . 3. 1.2 Multiplicación por escalar ...
344KB Größe 235 Downloads 249 vistas
C´ alculo Matricial en el Excel ‡

Adolfo Canahuire Condori



Licenciado en Ciencias F´ısico Matem´ aticas

2

Adolfo Canahuire Condori

Contenido 1 Operaciones Matriciales en el Excel 1.1 Suma y resta . . . . . . . . . . . . . . 1.2 Multiplicaci´on por escalar . . . . . . . 1.3 Multiplicaci´on de matrices . . . . . . . 1.4 Transponer matrices . . . . . . . . . . 1.5 Determinante de una matriz . . . . . . 1.6 Inversa de una matriz . . . . . . . . . . 1.7 Otras funciones . . . . . . . . . . . . . 1.7.1 La funci´on SUMAPRODUCTO 1.7.2 La funci´on SUMAX2MASY2 . . 1.7.3 La funci´on SUMAX2MENOSY2 1.7.4 La funci´on SUMAXMENOSY2

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

. . . . . . . . . . .

3 3 4 4 5 5 6 6 7 7 8 8

2 Aplicaciones ´ 2.1 Area de un tri´angulo . . . . . . . . . . . . . 2.2 Volumen de un tetraedro . . . . . . . . . . . 2.3 Generar una matriz identidad de orden n . . 2.4 Sistemas de ecuaciones . . . . . . . . . . . . 2.5 Ecuaci´on de un plano . . . . . . . . . . . . . 2.6 Determinante de la matriz de Vandermonde

. . . . . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

. . . . . .

9 9 12 13 15 16 19

. . . . . . . . . . .

. . . . . . . . . . .

3

C´alculo Matricial en el Excel

1

Operaciones Matriciales en el Excel

Para realizar operaciones matriciales, el Excel est´a provisto de un conjunto de funciones, entre las que podemos citar: MMULT FILAS SUMAPRODUCTO SUMAXMENOSY2

MINVERSA COLUMNAS SUMAX2MASY2

MDETERM TRANSPONER SUMAX2MENOSY2

Antes de ver como se aplican estas funciones, veremos como se suman y restan matrices.

1.1

Suma y resta

Si se desea, por ejemplo, calcular A + B y A − B con las matrices: ( A=

) 4 5 −6 −7 −2 −4 1 3

( B=

) 12 55 36 87 −1 −4 −12 −19

1. Se ingresan los elementos de ambas matrices en los rangos: A1:D2 y F1:I2. 2. Se selecciona el rango A4:D5, para escribir sobre ´el, los elementos de A + B. 3. Enseguida se escribe =A1:D2+F1:I2; se pulsa Ctrl+ Shift+Enter y listo. Ver la figura 1.

Figura 1: Suma de matrices.

Para la resta A − B s´olamente se cambia ”+” por ”-”.

4

Adolfo Canahuire Condori

1.2

Multiplicaci´ on por escalar

Para multiplicar, por ejemplo, una matriz   5 −11 3 2 A = 4 20 6 −7 −1 por el escalar λ = −7, se puede hacer lo siguiente: 1. Ingresamos el escalar -7 en la celda A2; los nueve elementos de la matriz A en el rango C1:E3. 2. Seleccionar el rango G1:I3 para escribir en ´el la matriz −7A, escribir ”=$A$2*G1:I3” y pulsar Ctrl+ Shift+Enter; ver la figura 2.

Figura 2: Multiplicaci´on de una matriz por un escalar.

1.3

Multiplicaci´ on de matrices

Si se tienen las matrices: ( ) 1 2 M= −3 5

( N=

) 1 2 8 −3 5 7

La multiplicaci´on M N es posible y el resultado es una matriz de orden 2 × 3. 1. Las matrices M y N se han ingresado en los rangos A1:B2 y D1:F2. 2. Seleccionar el rango H1:J2, pues en este rango se localizar´a el producto M N . Escribir enseguida =MMULT(A1:B2;D1:F2), pulsar Ctrl+ Shift+ Enter y listo. Ver la figura 3. Tambi´en se puede optar por el bot´on ”Insertar funci´on” del men´ u F´ormulas, entonces se debe de especificar los rangos en la ventana que se muestra en la figura 4; s´olo que no debe pulsarse el bot´on ”Aceptar”, si no Ctrl+ Shift+ Enter.

C´alculo Matricial en el Excel

5

Figura 3: Multiplicaci´on de matrices.

Figura 4: Ventana de la funci´on MMULT.

1.4

Transponer matrices

Para hallar la transpuesta de una matriz en el Excel se usa la funci´on TRANSPONER. As´ı por ejemplo, si se desea hallar la matriz transpuesta P 0 de la matriz P .   34 3 −17 21 6 −23  P = 13 9 −67 57 3 −88 Al ingresar los elementos de P en el rango A1:C4, enseguida se selecciona el rango E1:H3 y se escribe =TRANSPONER(A1:C4). Luego del consabido Ctrl+ Shift+ Enter se obtiene la transpuesta de P . Ver la figura 5.

Figura 5: Transpuesta de una matriz.

1.5

Determinante de una matriz

Se usa la funci´on MDETERM. Por ejemplo para hallar el determinante de la multiplicaci´on −7A realizada en el Excel (figura 2), en la celda L2 se escribe

6

Adolfo Canahuire Condori

=MDETERM(G1:I3); al pulsar Enter, se obtiene el n´ umero 222950. Ver la figura 6.

Figura 6: Determinante de una matriz.

1.6

Inversa de una matriz

Si se necesita hallar la inversa de una matriz, se debe tener presente que la matriz debe ser cuadrada y no singular. Por ejemplo, hallar X −1 , si.   3.4 5.4 2.1 X = 5.2 3.4 1.6 6.0 −6.3 4.7 En el Excel se usa la funci´ın MINVERSA. 1. Ingresar los elementos de la matriz X en el rango A1:C3. 2. Seleccionar el rango E1:G3, escribir =MINVERSA(A1:C3); pulsar Ctrl + Shift+ Enter para obtener la matriz X −1 . Ver la figura 7.

Figura 7: Inversa de una matriz.

1.7

Otras funciones

Como y´a se ha mencionado al inicio, existen otras funciones para las matrices en el Excel.

7

C´alculo Matricial en el Excel

1.7.1

La funci´ on SUMAPRODUCTO

Esta funci´on, devuelve la suma de los productos de los elementos de dos, tres o mas matrices, las mismas deben tener el mismo orden. Esto lo explicamos enseguida con un ejemplo. Sean las matrices: ( ) ( ) 2 −3 1 4 M= N= (1) 5 7 −6 0 Entonces, multiplicando los elementos correspondientes de M y N se tiene: 2×1=2 −3 × 4 = −12 5 × −6 = −30 7×0=0 La suma de estos productos es -40. Ver la figura 8.

Figura 8: La funci´on SUMA PRODUCTO en el Excel.

1.7.2

La funci´ on SUMAX2MASY2

Esta funci´on, devuelve la suma total de las sumas de los cuadrados de cada elemento de dos matrices. As´ı, por ejemplo, para el caso de las matrices M y N dadas en (1): 22 (−3)2 52 72

=4 =9 = 25 = 49

12 42 (−6)2 02

=1 = 16 = 36 =0

La primera suma de los cuadrados de los elementos de M es 87 y la segunda suma, es decir, la suma de los cuadrados de los elementos de N es 53. La suma total es 140, este n´ umero es lo que se obtiene al aplicar la funci´on SUMAX2MASY2 en el Excel a las matrices M y N .

8 1.7.3

Adolfo Canahuire Condori

La funci´ on SUMAX2MENOSY2

Esta funci´on, halla la suma de las diferencias entre los cuadrados de los elementos de dos matrices. Considerando las matrices M y N de la ecuaci´on (1): 22 − 12 (−3)2 − 42 52 − (−6)2 72 − 02

=3 = −7 = −11 = 49

La suma de estas diferencias es 34. Esto devuelve la funci´on SUMAX2MENOSY2 en el Excel. 1.7.4

La funci´ on SUMAXMENOSY2

Suma los cuadrados de las diferencias de los elementos correspondientes de dos matrices. Por ejemplo, considerando las matrices M y N de (1): (2 − 1)2 (−3 − 4)2 (5 − (−6))2 (7 − 0)2

=1 = 49 = 121 = 49

La suma de estos cuadrados es 220. Esto hace SUMAXMENOSY2. Finalmente las funciones COLUMNAS y FILAS, devuelven el n´ umero de columnas y el n´ umero de filas de una matriz.

9

C´alculo Matricial en el Excel

2

Aplicaciones

En las siguientes p´aginas se exponen un conjunto de aplicaciones sencillas, en estas aplicaciones se utilizan los determinantes de matrices y se sugieren algunos macros para hacer m´as interesante este aprendizaje. Debo advertir, que estos ejemplos de macros pueden ser mejorados ostenciblemente y que por el tiempo y algunas otras limitaciones, muestro lo b´asico.

2.1

´ Area de un tri´ angulo

Mostraremos una peque˜ na aplicaci´on de los determinantes; se trata de hallar el ´area A de un tri´angulo cuyos v´ertices son los puntos no colineales: (x1 , y1 ), (x2 , y2 ), (x3 , y3 ). Se demuestra (eso no corresponde hacerlo aqu´ı) que una

Figura 9: Tri´angulo con v´ertices: (x1 , y1 ), (x2 , y2 ) y (x3 , y3 ). f´ormula para calcular el ´area de un tri´angulo ¯ ¯1 x 1 ¯ 1 A = abs ¯¯1 x2 2 ¯1 x 3

como el de la figura 9 es: ¯ y1 ¯¯ y2 ¯¯ y3 ¯

(2)

Para realizar c´alculos, en una hoja del Excel, hacemos lo siguiente: 1. Combinamos las celdas: A1, B1 y C1 para escribir ”Elementos de la matriz”. 2. Ingresamos en las celdas: A2, A3 y A4 el n´ umero 1. 3. Combinamos las celdas: E1 y E2 para escribir ”´ Area del tri´ angulo”. 4. En la matriz B2:C4, ingresamos n´ umeros aleatorios entre -9 y 9 (con la funci´on ALEATORIO.ENTRE). 5. Ingresamos la f´ormula mostrada en la ecuaci´on (2) en la celda E4, esto es: =ABS(MDETERM(A2:C4)); y listo ver la figura 10.

10

Adolfo Canahuire Condori

Figura 10: El ´area de un tri´angulo con v´ertices en los puntos (−5, −8), (−7, −6) y (1, −3) es 11.00u2 .

Sin embargo, es interesante aprender a utilizar macros en el Excel para aplicaciones de este tipo. Asi por ejemplo, podemos escribir las coordenadas de los v´ertices de un tri´angulo en un rango escogido arbitrariamente y hacer que el macro nos presente los elementos del determinante (2) as´ı como su valor que representa el ´area del tri´angulo. Empezamos: 1. En el men´ u Vista del excel ir a Ver macros. Figura 11

Figura 11: Macros en el Excel 2. Aparece una peque˜ na ventana en la cual escribimos el nombre del macro (en este caso ”TRIANGULO”) y pulsamos el bot´on Crear. 3. Inmediatamente se abre la ventana de Microsoft Visual Basic, en la que debe aparecer el c´odigo: Sub TRIANGULO() End Sub

C´alculo Matricial en el Excel

11

4. Completamos el macro Ingresando las siguientes l´ıneas de c´odigo: Sub TRIANGULO() Dim rango As Range Dim det As Double Dim area As Double Set rango = Application.InputBox(prompt:="Seleccionar celdas:", _ Title:="Coordenadas de los v´ ertices", Default:=DefaultRange, _ Type:=8) rango.Select Hoja1.Cells(4, 1) = "Determinante" Hoja1.Cells(5, 1) = 1 Hoja1.Cells(5, 2) = rango(1, 1) Hoja1.Cells(5, 3) = rango(1, 2) Hoja1.Cells(6, 1) = 1 Hoja1.Cells(6, 2) = rango(2, 1) Hoja1.Cells(6, 3) = rango(2, 2) Hoja1.Cells(7, 1) = 1 Hoja1.Cells(7, 2) = rango(3, 1) Hoja1.Cells(7, 3) = rango(3, 2) det = Application.WorksheetFunction.MDeterm _ (Range("A5:C7")) area = 0.5 * Abs(det) Hoja1.Cells(9, 2) = "Area = " Hoja1.Cells(9, 3) = area End Sub

5. En el men´ u Archivo vamos a Cerrar y volver a Microsoft Excel. 6. Para ejecutar este macro, ingresamos por ejemplo, las coordenadas (−4, 7), (5, 9) y (1, −8) que corresponden a los v´ertices de un tri´angulo. Figura 12

Figura 12: Los v´ertices del tri´angulo en el rango A1:B3. 7. Ahora ingresamos nuevamente a Ver macros; pero esta vez pulsamos el bot´on ejecutar, aparece la caja de entrada (InputBox) para que seleccionemos el rango A1:B3 (con el mouse) y al aceptar, aparece el resultado esperado. Figura 13

12

Adolfo Canahuire Condori

Figura 13: Ejecuci´on del macro ”TRIANGULO”. Debo decir que este programa es algo sencillo, puede ser mejorado, pero creo que sirve para aprender a hacer macros en el Excel. Tambi´en el lector puede ingresar las coordenadas de los v´ertices de un tri´angulo en otro rango (en otras celdas) del Excel y siempre ser´a factible ejecutar el macro.

2.2

Volumen de un tetraedro

Figura 14: Tetraedro. Si los v´ertices de un tetraedro como el que se muestra en la figura 14 son los puntos: (x1 , y1 , z1 ), (x2 , y2 , z2 ), (x3 , y3 , z3 ), (x4 , y4 , z4 ). Entonces su volumen V es: ¯ ¯ ¯1 x1 y1 z1 ¯ ¯ ¯ ¯1 x2 y2 z2 ¯ 1 ¯ ¯ (3) V = abs ¯ ¯ 1 x y z 6 3 3 3 ¯ ¯ ¯1 x4 y4 z4 ¯ Para esta aplicaci´on, se muestra enseguida un macro al que le damos el nombre ”tetraedro” y que es semejante a lo hecho para el ´area de un tri´angulo. s´olo que esta vez se agregan algunas l´ıneas de c´odigo para finalizar sin problemas cuando en el cuadro de entrada InputBox se elige la opci´on cancelar.

C´alculo Matricial en el Excel

13

Sub tetraedro() Dim Rango As Range Dim det As Double Dim volumen As Double DefaultRange = Selection.Address On Error GoTo Canceled Set Rango = Application.InputBox(prompt:="Seleccionar celdas:", _ Title:="Coordenatas del tetraedro", Default:=DefaultRange, Type:=8) Rango.Select Hoja1.Cells(6, 1) = "Determinante" Hoja1.Cells(7, 1) = 1 Hoja1.Cells(7, 2) = Rango(1, 1) Hoja1.Cells(7, 3) = Rango(1, 2) Hoja1.Cells(7, 4) = Rango(1, 3) Hoja1.Cells(8, 1) = 1 Hoja1.Cells(8, 2) = Rango(2, 1) Hoja1.Cells(8, 3) = Rango(2, 2) Hoja1.Cells(8, 4) = Rango(2, 3) Hoja1.Cells(9, 1) = 1 Hoja1.Cells(9, 2) = Rango(3, 1) Hoja1.Cells(9, 3) = Rango(3, 2) Hoja1.Cells(9, 4) = Rango(3, 3) Hoja1.Cells(10, 1) = 1 Hoja1.Cells(10, 2) = Rango(4, 1) Hoja1.Cells(10, 3) = Rango(4, 2) Hoja1.Cells(10, 4) = Rango(4, 3) det = Application.WorksheetFunction.MDeterm(Range("A7:D10")) volumen = 0.5 * abs(det) Hoja1.Cells(13, 3) = "Volumen=" Hoja1.Cells(13, 4) = volumen Canceled: End Sub

Para ejecutar este macro, ingresamos las coordenadas de un tetraedro: (−2, 0, 0), (3, 0, 1), (0, 5, 0), (0, 0, 7) en el rango A1:C4. Ver la figura 15.

2.3

Generar una matriz identidad de orden n

1. Elegir la opci´on ”Ver macros” del men´ u Vista en el Excel. Ver la figura11. 2. En la ventana que se enseguida se abre, escribir el nombre del macro (IDENTIDAD) y pulsar el bot´on Crear. 3. Se abre la ventana de Microsoft Visual Basic, en la que redactamos el siguiente c´odigo:

14

Adolfo Canahuire Condori

Figura 15: Ejecuci´on del macro ”tetraedro”.

Sub Dim Dim Dim n =

IDENTIDAD() n As Integer i As Integer j As Integer InputBox("Ingresar n") For i = 1 To n For j = 1 To n If i = j Then Hoja1.Cells(i, j) = 1 Else Hoja1.Cells(i, j) = 0 End If Next Next End Sub

4. Luego ir a Archivo, Cerrar y volver a Microsoft Excel.

5. Para ejecutar este macro, ir nuevamente al men´ u Vista del Excel, Macros, Ver macros y pulsar el bot´on Ejecutar.

15

C´alculo Matricial en el Excel

2.4

Sistemas de ecuaciones

Un sistema de n ecuaciones lineales con n inc´ognitas.   a11 x1 + a12 x2 + · · · + a1n xn = b1    a21 x1 + a22 x2 + · · · + a2n xn = b2 ..  .    a x + a x + ··· + a x = b n1 1

n2 2

nn n

(4)

n

Tiene la siguiente representaci´on matricial:      b1 a11 a12 · · · a1n x1  a21 a22 · · · a2n   x2   b2        .. .. ..   ..  =  ..  . .  . . . .  .   .  bn an1 an2 · · · ann xn

(5)

La ecuaci´on (5) se puede representar de forma breve como Ax = b; entonces, para encontrar la soluci´on del sistema (4) se debe ”’despejar1 ” x. Es decir: x = A−1 b

(6)

Por ejemplo, en una hoja del Excel, hacemos lo siguiente para plantearnos y resolver un sistema de 4 ecuaciones lineales con 4 inc´ognitas.

Figura 16: Un sistema de ecuaciones lineales en el Excel.

1. En la matriz A2:D5 ingrsamos n´ umeros aleatorios entre -100 y 100. 1

Esto es posible cuando el determinante de A es diferente de cero.

16

Adolfo Canahuire Condori

2. En la matriz columna F2:F5, ingresamos tambi´en n´ umeros aleatorios entre -100 y 100. 3. Seleccionamos las celdas en blanco de la matriz columna B7:B10. 4. Luego, aplicamos las funciones =MMULT(MINVERSA(A2:D5);F2:F5) y pulsamos Ctrl+Shift+Enter. El resultado se observa en la figura 16. 5. No nos olvidemos que al pulsar la tecla Supr sobre una celda vac´ıa, cambiamos los valores de los n´ umeros aleatorios, es decir, cambiamos los coeficientes del sistema.

2.5

Ecuaci´ on de un plano

Figura 17: Plano que contiene a tres puntos conocidos. La ecuaci´on de un plano que contiene a tres puntos conocidos: (x1 , y1 , z1 ), (x2 , y2 , z2 ), (x3 , y3 , z3 ) como el que se muestra en la figura 17 es: ¯ ¯ ¯ x y z 1¯ ¯ ¯ ¯x1 y1 z1 1¯ ¯ ¯ (7) ¯x2 y2 z2 1¯ = 0 ¯ ¯ ¯x3 y3 z3 1¯ Esto es. ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯x1 y1 z1 ¯ ¯x1 y1 1¯ ¯x1 z1 1¯ ¯y1 z1 1¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯y2 z2 1¯ x − ¯x2 z2 1¯ y + ¯x2 y2 1¯ z − ¯x2 y2 z2 ¯ = 0 ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯ ¯y3 z3 1¯ ¯x3 y3 z3 ¯ ¯x3 y3 1¯ ¯x3 z3 1¯

(8)

Ahora bi´en, para calcular los coeficientes A, B, C y D de la ecuaci´on Ax + By + Cz + D = 0 del plano, se puede optar por hacer un sencillo programa el cual se ejecutar´a mediante un bot´on de comando. Para insertar un bot´on de comando en una hoja del Excel, se puede seguir la siguiente secuencia:

17

C´alculo Matricial en el Excel

1. En la esquina superior izquierda de la ventana del Excel vaya a: ”Personalizar barra de herramientas de acceso r´apido”. 2. Enseguida elija ”M´as comandos”. 3. Elija ”Todos los comandos”. 4. Agregue ”Controles”.

Figura 18: Controles. El bot´on controles se muestra en la figura 18. Elegimos el bot´on de comando de ”Cotroles ActiveX” y lo colocamos en la hoja 1 del Excel. Reservamos las celdas A1:D3 para ingresar los datos del problema, es decir, las tres u ´ltimas filas del determinante (7). Luego al hacer doble clic sobre el bot´on de comando, accedemos a la ventana Mocrosoft Visual Basic - Libro1[dise~ no] y en la ventana de c´odigo escribimos las siguientes l´ıneas: Private Sub CommandButton1_Click() ’ Copiamos tres columnas Range("B1:B3").Copy Range("A5:A7") Range("C1:C3").Copy Range("B5:B7") Range("D1:D3").Copy Range("C5:C7") ’ Copiamos tres columnas Range("A1:A3").Copy Range("A9:A11") Range("C1:C3").Copy Range("B9:B11") Range("D1:D3").Copy Range("C9:C11") ’ Copiamos tres columnas Range("A1:A3").Copy Range("A13:A15") Range("B1:B3").Copy Range("B13:B15") Range("D1:D3").Copy Range("C13:C15") ’ Copiamos tres columnas Range("A1:A3").Copy Range("A17:A19") Range("B1:B3").Copy Range("B17:B19")

18

Adolfo Canahuire Condori

Range("C1:C3").Copy Range("C17:C19") ’ Escribimos tres textos en tres celdas Range("E6") = "A = " Range("E10") = "B = " Range("E14") = "C = " Range("E18") = "D = " ’ Calculamos los determinantes Range("F6") = Application.WorksheetFunction.MDeterm(Range("A5:C7")) Range("F10") = -Application.WorksheetFunction.MDeterm(Range("A9:C11")) Range("F14") = Application.WorksheetFunction.MDeterm(Range("A13:C15")) Range("F18") = -Application.WorksheetFunction.MDeterm(Range("A17:C19")) End Sub

El resultado al presionar el bot´on ”Calcular” se observa en la figura 19 S´olamente se ingresan los 12 n´ umeros en las celdas A1:D3, al pulsar el bot´on,

Figura 19: Resultado de pulsar el bot´on ”Calcular”. aperece todo lo dem´as. El resultado que se observa en la figura 19, implica que el plano que contiene o pasa por los puntos: (4, 3, 0), (8, −1, 2), (2. − 4.1) tiene la ecuaci´on: 10x − 8y − 36z − 16 = 0;

19

C´alculo Matricial en el Excel

simplicando, 5x − 4y − 18z − 8 = 0. Aplicaciones similares a esta, son las siguientes: 1. Hallar la ecuaci´on de una recta que pasa por los puntos (x1 , y1 ) y (x2 , y2 ). ¯ ¯ ¯ x y 1¯ ¯ ¯ ¯x1 y1 1¯ = 0 ¯ ¯ ¯x2 y2 1¯ 2. Hallar el producto vectorial ~a × ~b, de y ~b = b1~i + b2~j + b3~k. ¯ ¯ ~i ¯ ~a × ~b = ¯¯a1 ¯ b1

2.6

los vectores ~a = a1~i + a2~j + a3~k ¯ ~j ~k ¯ ¯ a2 a3 ¯¯ b2 b3 ¯

Determinante de la matriz de Vandermonde

Una llama matriz de Vandermonde Vn , a una matriz cuadrada de orden n de la forma:   1 x0 x20 · · · xn0 1 x1 x2 · · · xn  1 1  2 n  Vn = 1 x2 x2 · · · x2  (9)  .. .. .. . . ..  . . . . . 2 1 xn xn · · · xnn Donde xi 6= xj si i 6= j. Se puede agregar un bot´on de comando a la hoja de trabajo del Excel para generar una matriz de Vandermonde de orden 3 con tres n´ umeros que se hayan ingresado en las celdas A1:A3. El c´odigo de este bot´on es: Private Sub CommandButton1_Click() ’ Declaramos la variable entera i Dim i As Integer ’ Escribimos en las celdas A5, A6 y A7 el n´ umero 1 For i = 5 To 7 Hoja1.Cells(i, 1) = 1 Next ’ Luego copiamos los n´ umeros y sus cuadrados For i = 5 To 7 Hoja1.Cells(i, 2) = Hoja1.Cells(i - 4, 1)

20

Adolfo Canahuire Condori

Hoja1.Cells(i, 3) = Hoja1.Cells(i - 4, 1) ^ 2 Next ’ Calculamos el determinante Range("E5") = "Det." Range("E6") = Application.WorksheetFunction.MDeterm(Range("A5:C7")) End Sub

Figura 20: Bot´on para calcular el determinante de una matriz de Vandermonde de orden 3.

Al ingresar, por ejemplo, los n´ umeros: 5.6, 7.8, 9.1 y luego pulsar el bot´on, aparece el resultado que se muestra en la figura 20. Esto significa que: ¯ ¯ ¯1 5.6 31.36¯ ¯ ¯ ¯1 7.8 60.84¯ = 10.01 ¯ ¯ ¯1 9.1 82.81¯ A prop´osito, me permito cuestionar las razones que tienen, aquellas personas que sostienen que se debe usar la coma decimal en lugar del punto decimal; pues vean, cuando arriba escrib´ı: ”5.6, 7.8, 9.1”, lo hubiese hecho: ”5,6, 7,8, 9,1”. Se dan cuenta. Me parece que esa regla no se ci˜ ne a criterios t´ecnicos.