| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
ifrit Master


Registrado: 12 Jun 2007Mensajes: 509Ubicación: La Habana, Cuba
|
Publicado: Jue 22 Abr, 2010 10:54 pm Asunto: Metodo jacobi |
|
|
Hola amigos del foro tengo necesidad de calcular autovalores y autovectores utilizando el metodo jacobi, pero he intentado mucho sin resultados, me preguntaba si algien del foro me podria ayudar
aca les dejo lo que he hecho hasta el momento:
double sumatoria =1;
double vectorR[]={1};
double x2[]={1};
orden = edOrden->Text.ToIntDef(2);
for (int n = 0; n < 10; n++){
for (int i = 0; i < orden; i++){
sumatoria = 0;
for (int s = 0; s <orden>Cells[i][s].ToInt()*x2[s];
}
vectorR[i]=(sumatoria)/grid->Cells[i][i].ToInt();
Memo1->Lines->Add(vectorR[i]);
}
}
Espero me puedan ayudar muchas gracias _________________ Todos somos ignorantes, lo que no todos ignoramos lo mismo... |
|
| Volver arriba |
|
 |
dreamermx Lt JG

Registrado: 14 Oct 2004Mensajes: 57Ubicación: Acapulco Guerrero Mexico
|
Publicado: Vie 23 Abr, 2010 5:54 am Asunto: |
|
|
Hola ifrit
En realidad no se mucho del tema, pero me interesó mucho.
Encontré este enlace en la red.
http://programacion-x.freevar.com/programacion-x-foros/viewtopic.php?f=4&t=76
Está hecho para salida modo texto, y recibe como entrada un archivo de texto con los valores de la matriz.
El programa acepta solo una matriz de 3x3.
Pero con la modificaciones necesarias resolverá una matriz mayor.
Solo requiere que se modifique para utilizarse en Windows.
El programa funciona.
Espero te sirva.
Saludos. _________________ Miguel Angel Verastegui Diaz |
|
| Volver arriba |
|
 |
ifrit Master


Registrado: 12 Jun 2007Mensajes: 509Ubicación: La Habana, Cuba
|
Publicado: Vie 23 Abr, 2010 1:24 pm Asunto: |
|
|
Hola dreamermx, muchas gracias por el interes en el tema, para empesar seria buen punto de apoyo, tratare de trabajarlo para que pueda soportar otras bases no sola la de tres.
De todos modos si puedes tratar de hacer algo por tu lado seria muy bueno.
Gracias _________________ Todos somos ignorantes, lo que no todos ignoramos lo mismo... |
|
| Volver arriba |
|
 |
|