MetodosNumericos: MetodosNumericos

Description Usage Arguments Details Value Author(s) Examples

View source: R/ODE.R View source: R/SplineCubico.R View source: R/SplineHermite.R

Esta funci<c3><b3>n encuentra el error de la soluci<c3><b3>n comparando la soluci<c3><b3>n anal<c3><ad>tica del sistema que ya se conoce, con el valor obtenido en la soluci<c3><b3>n.

1	error(solucion)

solucion

La soluci<c3><b3>n tanto en el eje x como en el eje y as<c3><ad> como el valor t que se evalu<c3><b3> para encontrar dicha soluci<c3><b3>n.

La soluci<c3><b3>n anal<c3><ad>tica que se encuentra en la funci<c3><b3>n hace referencia al sistema de "-x+y+1" y "x-y".

El valor retornado es un arreglo de tama<c3><b1>o 2, que contiene el error tanto en el eje x como el error en el eje y.

Pablo Millan y Oscar Fonseca

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (solucion)
{
    t = solucion[3]
    xanalitico = (1/4) * (2 * t - 9 * exp(-2 * t) - 3)
    yanalitico = (1/4) * (2 * t + 9 * exp(-2 * t) - 5)
    xerror = abs(xanalitico - solucion[1])
    yerror = abs(yanalitico - solucion[2])
    errores <- c(xerror, yerror)
    return(errores)
  }