elevar matrices a una potencia

hola, jorge !

Estoy trabajando problemas de cadenas de Markov, deseo conocer
Como excel puede devolver el resultado de elevar una matriz a cualquier potencia?
Simplicar el proceso de mmult, el cual lo hace progresivamente multiplicando la matriz por si misma las veces que se desee.

visita esta pagina: -> http://www.me.utexas.edu/~jensen/ORMM/instruction/units/models/stoch_resources.html
y/o descarga ejemplos de: -> http://www.me.utexas.edu/~jensen/ORMM/frontpage/jensen.lib/index.html
(revisa la seccion de probabilidades)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, jorge !

Estoy trabajando problemas de cadenas de Markov, deseo conocer
Como excel puede devolver el resultado de elevar una matriz a cualquier potencia?
Simplicar el proceso de mmult, el cual lo hace progresivamente multiplicando la matriz por si misma las veces que se desee.

visita esta pagina: -> http://www.me.utexas.edu/~jensen/ORMM/instruction/units/models/stoch_resources.html
y/o descarga ejemplos de: -> http://www.me.utexas.edu/~jensen/ORMM/frontpage/jensen.lib/index.html
(revisa la seccion de probabilidades)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hola! Jorge C

Quizás también te ayude la siguiente macro que eleva matrices a potencias
enteras:
_____________________________________

Sub MatrizAlaN()
Dim Rng As Range, Pot, ii As Integer
Dim MiForm As String

On Error Resume Next
Set Rng = Application.InputBox(Prompt:="Seleccione una matriz cuadrada",
Type:=8)
If Rng Is Nothing Then Exit Sub
If Rng.Columns.Count <> Rng.Rows.Count Then
MsgBox "La matriz seleccionada no es cuadrada."
Rng.Select: Set Rng = Nothing: Exit Sub
End If
If Evaluate("COUNT(" & Rng.Address & ")") <> (Rng.Columns.Count *
Rng.Columns.Count) Then
MsgBox "La matriz seleccionada contiene términos no numéricos."
Rng.Select: Set Rng = Nothing: Exit Sub
End If

Pot = Application.InputBox(Prompt:="Indique la potencia", Type:=1)
If Pot = 0 Then
Set Rng = Nothing: Exit Sub
End If
On Error GoTo 0

If Int(Pot) <> Pot Or Pot < 2 Then
MsgBox "La potencia debe ser un entero positivo mayor que 1"
Set Rng = Nothing: Exit Sub
End If

MiForm = "="
For ii = 1 To Pot - 1: MiForm = MiForm & "MMULT(": Next ii
MiForm = MiForm & Rng.Address(ReferenceStyle:=xlR1C1)

For ii = 1 To Pot - 1
MiForm = MiForm & ", " & Rng.Address(ReferenceStyle:=xlR1C1) & ")"
Next ii

With Rng.CurrentRegion.Offset(1 + Rng.CurrentRegion.Rows.Count)
.CurrentRegion.ClearContents
Range(.Item(1), .Cells(Rng.Rows.Count, Rng.Columns.Count)).FormulaArray =
MiForm
.Replace What:="$", Replacement:="", LookAt:=xlPart
End With

Set Rng = Nothing
End Sub
_____________________________________

Saludos, Cacho.

Hola! Jorge C
Como el editor del Foro "corta" algunas líneas del código, la re-envío:

___________________________________________

Sub MatrizAlaN()
Dim Rng As Range, Pot, ii As Integer
Dim MiForm As String

On Error Resume Next
Set Rng = Application.InputBox( _
Prompt:="Seleccione una matriz cuadrada", Type:=8)
If Rng Is Nothing Then Exit Sub
If Rng.Columns.Count <> Rng.Rows.Count Then
MsgBox "La matriz seleccionada no es cuadrada."
Rng.Select: Set Rng = Nothing: Exit Sub
End If
If Evaluate("COUNT(" & Rng.Address & ")") <> _
(Rng.Columns.Count * Rng.Columns.Count) Then
MsgBox "La matriz seleccionada contiene términos no numéricos."
Rng.Select: Set Rng = Nothing: Exit Sub
End If

Pot = Application.InputBox(Prompt:="Indique la potencia", Type:=1)
If Pot = 0 Then
Set Rng = Nothing: Exit Sub
End If
On Error GoTo 0

If Int(Pot) <> Pot Or Pot < 2 Then
MsgBox "La potencia debe ser un entero positivo mayor que 1"
Set Rng = Nothing: Exit Sub
End If

MiForm = "="
For ii = 1 To Pot - 1: MiForm = MiForm & "MMULT(": Next ii
MiForm = MiForm & Rng.Address(ReferenceStyle:=xlR1C1)

For ii = 1 To Pot - 1
MiForm = MiForm & ", " & Rng.Address(ReferenceStyle:=xlR1C1) & ")"
Next ii

With Rng.CurrentRegion.Offset(1 + Rng.CurrentRegion.Rows.Count)
.CurrentRegion.ClearContents
Range(.Item(1), .Cells(Rng.Rows.Count, _
Rng.Columns.Count)).FormulaArray = MiForm
.Replace What:="$", Replacement:="", LookAt:=xlPart
End With

Set Rng = Nothing
End Sub
___________________________________________


Saludos, Cacho.

Hola! Jorge C
Aquí te dejo una versión "masterizada" de la macro anterior:

http://www.mediafire.com/file/1mxus...trices.xls

En efecto, en esta versión no se observan los problemas de la versión
anterior cuando la potencia es mayor a 30.

Saludos, Cacho.