elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [?] Metodo de Potencias para calculo de valor caractetistico y vector asociado
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [?] Metodo de Potencias para calculo de valor caractetistico y vector asociado  (Leído 1,080 veces)
.:: KsV ::.

Desconectado Desconectado

Mensajes: 56



Ver Perfil
[?] Metodo de Potencias para calculo de valor caractetistico y vector asociado
« en: 26 Enero 2016, 21:40 pm »

Nesesito ayuda con el metodo de potencias para sacar un valor caracteristico y su vector asociado de una matriz cuadrada en este caso es una de 3x3 
 

 https://es.m.wikipedia.org/wiki/Método_de_las_potencias



Edto ea lo que tengo pero por alguna razon  no sigue asiendo interaciones

Código
  1. 'Metodo de Potencias para encontrar
  2. 'el maximo valor caracteristico
  3. 'y su vector asociado
  4.  
  5.  
  6. 'Ingresando la siguiente matriz
  7.  
  8. '1 2 3
  9. '4 5 6
  10. '1 1 1
  11.  
  12. 'Debe dar como resultado
  13.  
  14. 'lambda 1 = 7.7720018727
  15. 'Vector asiciado:
  16. '0.3860009363
  17. '1.0000000000
  18. '0.2046663546
  19.  
  20. 'Pedir una matriz(a) 3 x 3 y la multiplica por otra matriz(b) aleatoria
  21. 'de 3 x 1 dando como resultado una matriz(c) de 3 x 1 dividir la matriz(c)
  22. 'entre el maximo de dicha matriz genrando otra matriz(d) de 3x1.calcular
  23. 'el error relativo q seria el numero maximo de la matriz(d) menos el
  24. 'numero maximo anterior si estes es menor a 0.0000000001 imprimir el
  25. 'ultimo valor maximo  y la ultima matriz dividida  
  26.  
  27.  
  28. Dim A(50, 50) ,B(50, 50), c(50,50)
  29. Dim n,i,j,k,nn,NuMax
  30.  
  31. wscript.echo  "Ingrese Los Elementos De La Matriz A  " & vbLf & ""
  32. For i  = 1 To 3
  33.   For j  = 1 To 3
  34.      wscript.echo "Elemento", i, j
  35.      A(i, j) = Wscript.StdIn.ReadLine
  36.   Next
  37. Next
  38. 'genera matriz aleatoria de ceros y unos
  39. for i = 1 to 3
  40.   if i = 1 then
  41.      b(i,1) = 1
  42.   else  
  43.      RAndomize()
  44.      b(i, 1) = Mid("01", Int(Rnd * 2) + 1, 1)
  45.   end if
  46. next
  47.  
  48. do
  49. 'multiplica la matriz a*b y
  50. 'almacena el resultado en c
  51. For i  = 1 To 3
  52.   For j  = 1 To 1
  53.      For k  = 1 To 3
  54.          C(i, j) = C(i, j) + (A(i, k) * B(k, j))
  55.      next
  56.   Next
  57. Next
  58.  
  59. 'busca el valor mas grande
  60. 'en vector c
  61. NuMax = c(1,1)
  62. for i = 1 to 3
  63.    if c(i,1)>NuMax then
  64.       NuMax = c(i,1)
  65.    end if  
  66. next
  67.  
  68. 'divide cada uno de los componentes
  69. 'del vector c entre el maximo de dicho vector
  70. for i = 1 to 3
  71.   for j = 1 to 3
  72.      b(i,j) = c(i,j)/NuMax
  73.   next
  74. next
  75.  
  76. 'error:: numero maximo - el anterior
  77. err = NuMax-err
  78. if round(err,10) <0.000000001 then ' Si el error es menor a  0.000000001  termina e imprimeresultados
  79. exit do
  80. end if
  81. loop
  82.  
  83. 'para comprobar que lambda y el vector asociado esta bien
  84. 'multiplicar la matriz(a) ingesada y multiplicarla por
  85. 'la matriz resultante debe dar
  86.  
  87. '0
  88. '0
  89. '0
  90. 'MatrizOriginal * VectorAsociado = 0 ok
  91.  
  92. wscript.echo "Lambda1 = " & NuMax & vbLf & "Vector Asociado:" & vbLf & imprimir(b)
  93.  
  94.  
  95.  
  96. function Imprimir(c)
  97. M = ""
  98. For i  = 1 To 3
  99.    For j  = 1 To 1
  100.      M = M & C(i, j) & " "
  101.    Next
  102.   M = M & vbLf
  103. Next
  104. imprimir = M & vbLf
  105. End function


En línea

No confíes en aquel que una vez te defraudó.... William Shakespeare
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
METODO VECTOR GLOBAL JAVA !!
Java
Krii 1 4,268 Último mensaje 28 Noviembre 2010, 10:51 am
por Debci
Ayuda con buscar valor dentro de un vector
Java
Browwwnnn 0 1,064 Último mensaje 16 Octubre 2014, 03:03 am
por Browwwnnn
Mayor valor de un vector en C
Programación C/C++
estudiante_1 7 4,088 Último mensaje 27 Julio 2015, 11:18 am
por estudiante_1
Porque para asignarle valor a un vector mediante for tiene que ser una variable
Programación C/C++
Naimaderis 4 1,627 Último mensaje 14 Diciembre 2016, 18:33 pm
por Naimaderis
Ayuda!!! Cálculo el valor entero(atributo) mas alto en un array
Java
afrocardo 2 1,333 Último mensaje 27 Febrero 2017, 15:18 pm
por afrocardo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines