18/10/2019, 06:48:59 am *
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?

Ingresar con nombre de usuario, contraseña y duración de la sesión
Noticias: Renovado el procedimiento de inserción de archivos GEOGEBRA en los mensajes.
 
 
Páginas: [1]   Ir Abajo
  Imprimir  
Autor Tema: Programar el método de eliminación gaussiana en Mathematica  (Leído 1313 veces)
0 Usuarios y 1 Visitante están viendo este tema.
xamo
Pleno*
*****

Karma: +0/-0
Desconectado Desconectado

Sexo: Femenino
España España

Mensajes: 373


Ver Perfil
« : 28/11/2012, 12:39:18 pm »

Buenas, me requieren varios apartados. El primero es:

1- Programar una función llamada solGaussSimple que resuelva un sistema de ecuaciones mediante el método de Gauss sin algoritmo de pivoteo. Esta función tomará dos parámetros: la matriz del sistema y el vector segundo miembro y devolverá un vector que represente la solución, x, del sistema de ecuaciones Ax = b.


El código que he escrito es:

solGaussSimple[A_, b_] :=
 Module[{m = 0, i, k, n = Length[A] },
  For[k = 1, k = n - 1, k++,
   For[i = k + 1, i = n, i++,
     m = -A[[i, k]]/A[[k, k]]
        A[] = A[] + m*A[[k]]
          b[] = b[] + m*A[[k]]
     ];
   ];
  Print[MatrixForm[A], MatrixForm[,b]];
  LinearSolve[A, b]]


sin embargo, no me hace las transformaciones necesarias. A ver si me podéis ayudar pronto, por favor.

PD: La coma en rojo es para que no salga un pedazo de texto en negrita.
En línea
xamo
Pleno*
*****

Karma: +0/-0
Desconectado Desconectado

Sexo: Femenino
España España

Mensajes: 373


Ver Perfil
« Respuesta #1 : 28/11/2012, 04:10:39 pm »

Ya lo resolví. Gracias a todo el que se hubiera dignado en ayudar.  :cara_de_queso:
En línea
Páginas: [1]   Ir Arriba
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.4 | SMF © 2006, Simple Machines LLC XHTML 1.0 válido! CSS válido!