Autor: Edison Del Rosario

  • 1Eva_IIT2018_T2 Distancia mínima a un punto

    1ra Evaluación II Término 2018-2019. 10/Noviembre/2018. MATG1013

    Tema 2. Aproxime con un grado de exactitud de 0.0001 el valor de x que en la gráfica de y=ex está más cerca al punto P(1,1).

    a) Plantear la ecuación

    b) Hallar un intervalo de existencia y de convergencia


    distancia mínima de trayectoria a un punto

    Referencias: 

    Gigante asteroide con su propia Luna pasará en cercanías de la Tierra . https://www.eluniverso.com/noticias/2019/05/23/nota/7344362/gigante-asteroide-su-propia-luna-pasara-cercanias-tierra

     Un asteroide dos veces más grande que un avión Boeing 747 pasará muy cerca la Tierra. https://www.eluniverso.com/noticias/2018/08/28/nota/6927335/asteroide-dos-veces-mas-grande-que-avion-pasara-muy-cerca-tierra

     

    Cometa Trayectoria 01

    Referencia: https://spaceplace.nasa.gov/comet-quest/sp/

  • 1Eva_IIT2018_T1 Interpolar velocidad del paracaidista

    1ra Evaluación II Término 2018-2019. 10/Noviembre/2018. MATG1013

    Tema 1. Un paracaidista con masa de 75 Kg salta de un globo aerostático fijo.
    https://www.dreamstime.com/stock-photo-skydiving-formation-group-people-image62015024

    La velocidad del paracaidista se registra como se indica en la tabla.

    a) Construya un polinomio P2(t) para 0 ≤ t ≤ 8

    b) Mediante integración encuentre la distancia recorrida en el tiempo de 0 a 8 segundos.

    t [s] 0 2 4 6 8
    v(t) [m/s] 0.0 16.40 27.77 35.64 41.10

    t = [0.0, 2, 4, 6, 8]
    v = [0.0, 16.40, 27.77, 35.64, 41.10]
    
  • s1Eva_IIT2018_T1 Interpolar velocidad del paracaidista

    Ejercicio: 1Eva_IIT2018_T1 Interpolar velocidad del paracaidista

    El ejercicio tiene dos partes: la interpolación y el integral.

    Literal a

    t [s] 0 2 4 6 8
    v(t) [m/s] 0.0 16.40 27.77 35.64 41.10

    https://www.dreamstime.com/stock-photo-skydiving-formation-group-people-image62015024No se especifica el método a seguir, por lo que se puede seleccionar el de mayor preferencia.

    Por ejemplo. usando el método de Lagrange, con los puntos primero, medio y último, para cubrir todo el intervalo:

    p_2(t) = 0\frac{(t-4)(t-8)}{(0-4)(0-8)} + + 27.77\frac{(t-0)(t-8)}{(4-0)(4-8)} + + 41.10\frac{(t-0)(t-4)}{(8-0)(8-4)} p_2(t) = 0 + 27.77\frac{t(t-8)}{-16}) + + 41.10\frac{t(t-4)}{32} p_2(t) = -1.73(t^2-8t) + 1.28(t^2-4t) p_2(t) = -0.45 t^2 + 8.74t

    2_IIT2018_T1 Interpola Paracaidista 01


    Literal b

    El tema de integración para primera evaluación se realiza de forma analítica.

    Una de las formas, que es independiente si se resolvió el literal a, es usar los datos proporcionados en la tabla el ejercicio:

    t [s] 0 2 4 6 8
    v(t) [m/s] 0.0 16.40 27.77 35.64 41.10

    Se podría usar el método de Simpson de 1/3, puesto que los tamaños de paso en t son equidistantes se puede aplicar: h=2-0=2

    \int_0^8 v(t)dt = \frac{2}{3}\Big( 0+ 4(16.40)+27.77\Big) + \frac{2}{3}\Big( 27.77+ 4(35.64)+41.10\Big) =203.2

    con error del orden de O(h5) que al considerar h=2 no permite hacer una buena estimación del error. Sin embargo la respuesta es bastante cercana si se usa el método el trapecio con el algoritmo:

        valores de fi:  [ 0.   27.77 41.1 ]
    divisores en L(i):  [ 32. -16.  32.]
    
    Polinomio de Lagrange, expresiones
    -1.735625*x*(x - 8.0) + 1.284375*x*(x - 4.0)
    
    Polinomio de Lagrange: 
    -0.45125*x**2 + 8.7475*x
    Método del trapecio
    distancia recorrida:  193.28
    >>> 
    

    El error entre los métodos es |203.2-193.28|= 9.92

    Revisar el resultado usando un método con mayor precisión que el trapecio.


    Algoritmo con Python

    Las instrucciones en Python para el ejercicio son:

    # 1ra Evaluación II Término 2018
    # Tema 1. Interpolar velocidad del paracaidista
    import numpy as np
    import sympy as sym
    import matplotlib.pyplot as plt
    
    # Literal a)
    # Interpolacion de Lagrange
    # divisoresL solo para mostrar valores
    
    # INGRESO
    t = [0.0, 2, 4, 6, 8]
    v = [0.0, 16.40, 27.77, 35.64, 41.10]
    
    cuales = [0,2,4]
    
    # PROCEDIMIENTO
    xi = np.array(t,dtype=float)
    fi = np.array(v,dtype=float)
    
    xi = xi[cuales]
    fi = fi[cuales]
    
    # Polinomio de Lagrange
    n = len(xi)
    x = sym.Symbol('x')
    polinomio = 0
    divisorL = np.zeros(n, dtype = float)
    for i in range(0,n,1):
        
        # Termino de Lagrange
        numerador = 1
        denominador = 1
        for j  in range(0,n,1):
            if (j!=i):
                numerador = numerador*(x-xi[j])
                denominador = denominador*(xi[i]-xi[j])
        terminoLi = numerador/denominador
    
        polinomio = polinomio + terminoLi*fi[i]
        divisorL[i] = denominador
    
    # simplifica el polinomio
    polisimple = polinomio.expand()
    
    # para evaluación numérica
    px = sym.lambdify(x,polisimple)
    
    # Puntos para la gráfica
    muestras = 51
    a = np.min(xi)
    b = np.max(xi)
    pxi = np.linspace(a,b,muestras)
    pfi = px(pxi)
    
    # SALIDA
    print('    valores de fi: ',fi)
    print('divisores en L(i): ',divisorL)
    print()
    print('Polinomio de Lagrange, expresiones')
    print(polinomio)
    print()
    print('Polinomio de Lagrange: ')
    print(polisimple)
    
    # Gráfica
    plt.plot(t,v,'o', label = 'Puntos')
    plt.plot(xi,fi,'o', label = 'Puntos en polinomio')
    plt.plot(pxi,pfi, label = 'Polinomio')
    plt.legend()
    plt.xlabel('xi')
    plt.ylabel('fi')
    plt.title('Interpolación Lagrange')
    plt.grid()
    plt.show()
    
    # Literal b
    # INGRESO
    # El ingreso es el polinomio en forma lambda
    # se mantienen las muestras
    
    # intervalo de integración
    # a, b seleccionados para la gráfica anterior
    tramos = muestras -1
    
    # PROCEDIMIENTO
    def integratrapecio_fi(xi,fi):
        ''' sobre muestras de fi para cada xi
            integral con método de trapecio
        '''
        n = len(xi)
        suma = 0
        for i in range(0,n-1,1):
            dx = xi[i+1]-xi[i]
            untrapecio = dx*(fi[i+1]+fi[i])/2
            suma = suma + untrapecio
        return(suma)
    
    
    tramos = muestras-1
    # PROCEDIMIENTO
    distancia = integratrapecio_fi(xi,fi)
    
    # SALIDA
    print('Método del trapecio')
    print('distancia recorrida: ', distancia)
    
  • s1Eva_IIT2018_T3 Interpolar con sistema de ecuaciones

    Ejercicio: 1Eva_IIT2018_T3 Interpolar con sistema de ecuaciones

    Los datos del ejercicio proporcionados son:

    i 0 1 2 3 4 5
    x 1.0 1.1 1.3 1.5 1.9 2.1
    y(x) 1.84 1.90 2.10 2.28 2.91 3.28

    Literal a

    El tema es semejante al tema 1, cambiando el método de interpolación.
    Se usan los puntos de las posiciones 0, 3 y 5.

    p_2(x) = b_0 + b_1x + b_2 x^2

    en la fórmula:

    punto x[0] = 1, y[0]= 1.84

    1.84 = b_0 + b_1(1) + b_2 (1)^2 1.84 = b_0 + b_1 + b_2

    punto x[3] = 1.5, y[3]= 2.28

    2.28 = b_0 + b_1(1.5) + b_2 (1.5)^2 2.28 = b_0 + 1.5 b_1 + 2.25 b_2

    punto x[5] = 2.1, y[5]= 3.28

    3.28= b_0 + b_1(2.1) + b_2 (2.1)^2 3.28= b_0 + 2.1 b_1 + 4.41 b_2

    se obtiene el sistema de ecuaciones:

    b_0 + b_1 + b_2 = 1.84 b_0 + 1.5 b_1 + 2.25 b_2 = 2.28 b_0 + 2.1 b_1 + 4.41 b_2 = 3.28

    Con lo que se plantea la forma Ax=B:

    A = \begin{bmatrix} 1 & 1 & 1\\ 1 & 1.5 & 2.25 \\1 & 2.1 & 4.41 \end{bmatrix} B = \begin{bmatrix} 1.84\\ 2.28 \\ 3.28 \end{bmatrix}

    Matriz Aumentada

    AB = \begin{bmatrix} 1 & 1 & 1 & 1.84 \\ 1 & 1.5 & 2.25 & 2.28 \\1 & 2.1 & 4.41 &3.28 \end{bmatrix}

    Pivoteo parcial por filas

    Para el primer pivote no se requieren cambio de filas.
    para el segundo pivote de la diagonal se deben intercambiar la fila segunda con la tercera

    \begin{bmatrix} 1 & 1 & 1 & 1.84 \\ 1 & 2.1 & 4.41 &3.28 \\ 1 & 1.5 & 2.25 & 2.28 \end{bmatrix}

    Se aplica eliminación hacia adelante:

    fila = 0, columna=0  pivote = AB[0,0]=1

    factor entre las filas es 1/1=1.

    \begin{bmatrix}1 & 1 & 1 & 1.84 \\ 1-1 & 2.1-1 & 4.41 -1 &3.28 -1.84 \\ 1-1 & 1.5 -1 & 2.25 -1 & 2.28 - 1.84 \end{bmatrix} \begin{bmatrix} 1 & 1 & 1 & 1.84 \\ 0 & 1.1 & 3.41 &1.44 \\ 0 & 0.5 & 1.25 & 0.44 \end{bmatrix}

    fila =1,  columna=1, pivote=AB[1,1] =1.1

    factor entre filas es 0.5/1.1 = 1/2.2

    \begin{bmatrix} 1 & 1 & 1 & 1.84 \\ 0 & 1.1 & 3.41 &1.44 \\ 0 & 0.5 -\frac{0.5}{1.1}(1.1)& 1.25 -\frac{0.5}{1.1}(3.41)& 0.44-\frac{0.5}{1.1}(1.44) \end{bmatrix} \begin{bmatrix} 1 & 1 & 1 & 1.84 \\ 0 & 1.1 & 3.41 &1.44 \\ 0 & 0 & -0.3 & -0.214545 \end{bmatrix}

    aplicando sustitución hacia atrás

    b2 = -0.21/(-0.3) = 0.71515 b1= \frac{1.44-3.41 b_2}{1.1} = \frac{1.44-3.41( 0.71515)}{1.1}=-0.9078 b3= \frac{1.84-b_1-b_2}{1} = \frac{1.84-(-0.9078)-(0.71515)}{1} =2.0327

    con lo que el polinomio buscado es:

    p_2(x) = 2.0327 -0.9078 x + 0.71515 x^2

    y se obtiene el resultado de la interpolación.

    E2_IIT2018_T3 Interpola Sistema Ecuaciones 01Observación: En la gráfica se muestra que el polinomio pasa por los puntos seleccionados de la tabla. En los otros puntos hay un error que se puede calcular como la resta del punto y su valor con p(x). Queda como tarea.

    Usando el algoritmo del polinomio de interpolación con la matriz de Vandermonde se obtiene:

    Matriz Vandermonde: 
    [[1.   1.   1.  ]
     [2.25 1.5  1.  ]
     [4.41 2.1  1.  ]]
    los coeficientes del polinomio: 
    [ 0.71515152 -0.90787879  2.03272727]
    Polinomio de interpolación: 
    0.715151515151516*x**2 - 0.907878787878792*x + 2.03272727272728
    
     formato pprint
                       2                                         
    0.715151515151516*x  - 0.907878787878792*x + 2.03272727272728
    suma de columnas:  [3.   4.75 7.51]
    norma D:  7.51
    numero de condicion:  97.03737354737122
    solucion: 
    [ 0.71515152 -0.90787879  2.03272727]
    >>> 
    
    

    Literal b

    Se requiere calcular una norma de suma de filas. es suficiente para demostrar el conocimiento del concepto el usar A.

    Se adjunta el cálculo del número de condición y la solución al sistema de ecuaciones:

    suma de columnas:  [3.   4.75 7.51]
    norma A:  7.51
    numero de condición:  97.03737354737129
    solución: 
    [ 2.03272727 -0.90787879  0.71515152]
    

    El comentario importante corresponde al número de condición, que es un número muy alto para usar un método iterativo, por lo que la solución debe ser un método directo.
    Se puede estimar será un número mucho mayor que 1, pues la matriz no es diagonal dominante.


    Instrucciones en Python

    # 1Eva_IIT2018_T3 Interpolar con sistema de ecuaciones
    # El polinomio de interpolación
    import numpy as np
    import sympy as sym
    import matplotlib.pyplot as plt
    
    # INGRESO
    xj = [1.0,  1.1,  1.3,  1.5,  1.9,  2.1 ]
    yj = [1.84, 1.90, 2.10, 2.28, 2.91, 3.28]
    cuales = [0, 3, 5]
    
    # muestras = tramos+1
    muestras = 51
    
    # PROCEDIMIENTO
    # Convierte a arreglos numpy 
    xi = np.array(xj,dtype=float)
    fi = np.array(yj,dtype=float)
    
    xi = xi[cuales]
    fi  = fi[cuales]
    B = fi
    
    n = len(xi)
    
    # Matriz Vandermonde D
    D = np.zeros(shape=(n,n),dtype =float)
    for i in range(0,n,1):
        for j in range(0,n,1):
            potencia = (n-1)-j # Derecha a izquierda
            D[i,j] = xi[i]**potencia
    
    # Aplicar métodos Unidad03. Tarea
    # Resuelve sistema de ecuaciones A.X=B
    coeficiente = np.linalg.solve(D,B)
    
    # Polinomio en forma simbólica
    x = sym.Symbol('x')
    polinomio = 0
    for i in range(0,n,1):
        potencia = (n-1)-i   # Derecha a izquierda
        termino = coeficiente[i]*(x**potencia)
        polinomio = polinomio + termino
    
    # Polinomio a forma Lambda
    # para evaluación con vectores de datos xin
    px = sym.lambdify(x,polinomio)
    
    # Para graficar el polinomio en [a,b]
    a = np.min(xi)
    b = np.max(xi)
    xin = np.linspace(a,b,muestras)
    yin = px(xin)
    
    # Usando evaluación simbólica
    ##yin = np.zeros(muestras,dtype=float)
    ##for j in range(0,muestras,1):
    ##    yin[j] = polinomio.subs(x,xin[j])
        
    # SALIDA
    print('Matriz Vandermonde: ')
    print(D)
    print('los coeficientes del polinomio: ')
    print(coeficiente)
    print('Polinomio de interpolación: ')
    print(polinomio)
    print('\n formato pprint')
    sym.pprint(polinomio)
    
    # Grafica
    plt.plot(xj,yj,'o', label='Puntos')
    plt.plot(xi,B,'o', label='[xi,fi]')
    plt.plot(xin,yin, label='p(x)')
    plt.xlabel('xi')
    plt.ylabel('fi')
    plt.legend()
    plt.title(polinomio)
    plt.show()
    
    
    # literal b
    sumacolumnas = np.sum(D, axis =1)
    norma = np.max(sumacolumnas)
    print('suma de columnas: ', sumacolumnas)
    print('norma D: ', norma)
    
    numerocondicion = np.linalg.cond(D)
    print('numero de condicion: ', numerocondicion)
    
    solucion = np.linalg.solve(D,B)
    print('solucion: ')
    print(solucion)
    

    .

  • s1Eva_IIT2018_T2 Distancia mínima a un punto

    Ejercicio: 1Eva_IIT2018_T2 Distancia mínima a un punto

    Literal a

    Se requiere analizar la distancias entre una trayectoria y el punto = [1,1]

    Al analizar las distancias de ex y el punto [1,1] se trazan lineas paralelas a los ejes desde el punto [1,1], por lo que se determina que el intervalo de x = [a,b] para distancias se encuentra en:

    a > 0, a = 0.1
    b < 1, b = 0.7

    El ejercicio usa la fórmula de distancia entre dos puntos:

    d = \sqrt{(x_2-x_1)^2+(y_2- y_1)^2}

    en los cuales:

    [x1,y1] = [1,1]
    [x2,y2] = [x, ex]

    que al sustituir en la fórmula se convierte en:

    d = \sqrt{(x-1)^2+(e^x- 1)^2}

    que es lo requerido en el literal a


    Literal b

    Para usar un método de búsqueda de raíces, se requiere encontrar el valor cuando f(x) = d' = 0.

    Un método como el de Newton Raphson requiere también f'(x) = d''

    f(x) = \frac{x + (e^x - 1)e^x - 1}{\sqrt{(x - 1)^2 + (e^x - 1)^2}} f'(x)= \frac{(e^x - 1)e^x + e^{2x} + 1 - \frac{(x + (e^x - 1)e^x - 1)^2}{(x - 1)^2 + (e^x - 1)^2}} {\sqrt{(x - 1)^2 + (e^x - 1)^2}}

    expresiones obtenidas usando Sympy

    f(x) :
    (x + (exp(x) - 1)*exp(x) - 1)/sqrt((x - 1)**2 + (exp(x) - 1)**2)
    f'(x) :
    ((exp(x) - 1)*exp(x) + exp(2*x) + 1 - (x + (exp(x) - 1)*exp(x) - 1)**2/((x - 1)**2 + (exp(x) - 1)**2))/sqrt((x - 1)**2 + (exp(x) - 1)**2)
    
    f(x) :
           / x    \  x        
       x + \e  - 1/*e  - 1    
    --------------------------
        ______________________
       /                    2 
      /         2   / x    \  
    \/   (x - 1)  + \e  - 1/  
    f'(x) :
                                                  2
                             /    / x    \  x    \ 
    / x    \  x    2*x       \x + \e  - 1/*e  - 1/ 
    \e  - 1/*e  + e    + 1 - ----------------------
                                                 2 
                                     2   / x    \  
                              (x - 1)  + \e  - 1/  
    -----------------------------------------------
                   ______________________          
                  /                    2           
                 /         2   / x    \            
               \/   (x - 1)  + \e  - 1/            
    
    
    

    lo que permite observar la raíz de f(x) en una gráfica:
    distancia mínima f(x)
    con las siguientes instrucciones:

    # Eva_IIT2018_T2 Distancia mínima a un punto
    import numpy as np
    import matplotlib.pyplot as plt
    import sympy as sym
    
    # INGRESO
    x = sym.Symbol('x')
    fx = sym.sqrt((x-1)**2+(sym.exp(x) -1)**2)
    
    a = 0
    b = 1
    muestras = 21
    
    # PROCEDIMIENTO
    dfx = sym.diff(fx,x,1)
    d2fx = sym.diff(fx,x,2)
    
    f = sym.lambdify(x,dfx)
    xi = np.linspace(a,b,muestras)
    fi = f(xi)
    
    
    # SALIDA
    print('f(x) :')
    print(dfx)
    print("f'(x) :")
    print(d2fx)
    print()
    print('f(x) :')
    sym.pprint(dfx)
    print("f'(x) :")
    sym.pprint(d2fx)
    
    # GRAFICA
    plt.plot(xi,fi, label='f(x)')
    plt.axhline(0)
    plt.xlabel('x')
    plt.ylabel('f(x)')
    plt.legend()
    plt.grid()
    plt.show()
    

    Usando el método de la bisección para el intervalo dado, se tiene:

    f(x) = \frac{x + (e^x - 1)e^x - 1}{\sqrt{(x - 1)^2 + (e^x - 1)^2}}

    itera = 0 , a = 0, b=1

    c= \frac{0+1}{2} = 0.5 f(0) = \frac{0 + (e^0 - 1)e^0 - 1}{\sqrt{(0 - 1)^2 + (e^0 - 1)^2}} = -1 f(1) = \frac{1 + (e^1 - 1)e^1 - 1}{\sqrt{(1 - 1)^2 + (e^1 - 1)^2}} 2.7183 f(0.5) = \frac{(0.5) + (e^(0.5) - 1)e^(0.5) - 1}{\sqrt{((0.5) - 1)^2 + (e^(0.5) - 1)^2}} = 0.6954

    cambio de signo a la izquierda,

    a= 0, b=c=0.5

    tramo = |0.5-0| = 0.5

    itera = 1

    c= \frac{0+0.5}{2} = 0.25 f(0.25) = \frac{(0.25) + (e^(0.25) - 1)e^(0.25) - 1}{\sqrt{((0.25) - 1)^2 + (e^(0.25) - 1)^2}} = -0.4804

    cambio de signo a la derecha,

    a=c= 0.25, b=0.5

    itera = 2

    c= \frac{0.25+0.5}{2} = 0.375 f(0.375) = \frac{(0.375) + (e^(0.375) - 1)e^(0.375) - 1}{\sqrt{((0.375) - 1)^2 + (e^(0.375) - 1)^2}} = 0.0479

    cambio de signo a la izquierda,

    a= 0.25, b=c=0.375

    se continúan las iteraciones con el algoritmo, para encontrar la raíz en 0.364:

    método de Bisección
    i ['a', 'c', 'b'] ['f(a)', 'f(c)', 'f(b)']
       tramo
    0 [0, 0.5, 1] [-1.      0.6954  2.7183]
       0.5
    1 [0, 0.25, 0.5] [-1.     -0.4804  0.6954]
       0.25
    2 [0.25, 0.375, 0.5] [-0.4804  0.0479  0.6954]
       0.125
    3 [0.25, 0.3125, 0.375] [-0.4804 -0.2388  0.0479]
       0.0625
    4 [0.3125, 0.34375, 0.375] [-0.2388 -0.1004  0.0479]
       0.03125
    5 [0.34375, 0.359375, 0.375] [-0.1004 -0.0274  0.0479]
       0.015625
    6 [0.359375, 0.3671875, 0.375] [-0.0274  0.01    0.0479]
       0.0078125
    7 [0.359375, 0.36328125, 0.3671875] [-0.0274 -0.0088  0.01  ]
       0.00390625
    8 [0.36328125, 0.365234375, 0.3671875] [-0.0088  0.0006  0.01  ]
       0.001953125
    9 [0.36328125, 0.3642578125, 0.365234375] [-0.0088 -0.0041  0.0006]
       0.0009765625
    raíz en:  0.3642578125
    

    Al algoritmo anterior se complementa con las instrucciones de la función para la bisección.

    # Eva_IIT2018_T2 Distancia mínima a un punto
    import numpy as np
    import matplotlib.pyplot as plt
    import sympy as sym
    
    # INGRESO
    x = sym.Symbol('x')
    fx = sym.sqrt((x-1)**2+(sym.exp(x) -1)**2)
    
    a = 0
    b = 1
    muestras = 21
    
    # PROCEDIMIENTO
    dfx = sym.diff(fx,x,1)
    d2fx = sym.diff(fx,x,2)
    
    f = sym.lambdify(x,dfx)
    xi = np.linspace(a,b,muestras)
    fi = f(xi)
    
    
    # SALIDA
    print('f(x) :')
    print(dfx)
    print("f'(x) :")
    print(d2fx)
    print()
    print('f(x) :')
    sym.pprint(dfx)
    print("f'(x) :")
    sym.pprint(d2fx)
    
    # GRAFICA
    plt.plot(xi,fi, label='f(x)')
    plt.axhline(0)
    plt.xlabel('x')
    plt.ylabel('f(x)')
    plt.legend()
    plt.grid()
    plt.show()
    
    # Algoritmo de Bisección
    # [a,b] se escogen de la gráfica de la función
    # error = tolera
    import numpy as np
    
    def biseccion(fx,a,b,tolera,iteramax = 20, vertabla=False, precision=4):
        '''
        Algoritmo de Bisección
        Los valores de [a,b] son seleccionados
        desde la gráfica de la función
        error = tolera
        '''
        fa = fx(a)
        fb = fx(b)
        tramo = np.abs(b-a)
        itera = 0
        cambia = np.sign(fa)*np.sign(fb)
        if cambia<0: # existe cambio de signo f(a) vs f(b)
            if vertabla==True:
                print('método de Bisección')
                print('i', ['a','c','b'],[ 'f(a)', 'f(c)','f(b)'])
                print('  ','tramo')
                np.set_printoptions(precision)
                
            while (tramo>=tolera and itera<=iteramax):
                c = (a+b)/2
                fc = fx(c)
                cambia = np.sign(fa)*np.sign(fc)
                if vertabla==True:
                    print(itera,[a,c,b],np.array([fa,fc,fb]))
                if (cambia<0):
                    b = c
                    fb = fc
                else:
                    a = c
                    fa = fc
                tramo = np.abs(b-a)
                if vertabla==True:
                    print('  ',tramo)
                itera = itera + 1
            respuesta = c
            # Valida respuesta
            if (itera>=iteramax):
                respuesta = np.nan
    
        else: 
            print(' No existe cambio de signo entre f(a) y f(b)')
            print(' f(a) =',fa,',  f(b) =',fb) 
            respuesta=np.nan
        return(respuesta)
    
    # INGRESO
    tolera = 0.001
    
    # PROCEDIMIENTO
    respuesta = biseccion(f,a,b,tolera,vertabla=True)
    # SALIDA
    print('raíz en: ', respuesta)
    

    .

  • 3Eva_IT2018_T3 EDP Parabólica, temperatura en varilla

    3ra Evaluación I Término 2018-2019. 11/Septiembre/2018. MATG1013

    Tema 3. (30 puntos) La temperatura u(x,t) de una varilla larga y delgada, de sección transversal constante y de un material conductor homogéneo está regida por la ecuación unidimensional de calor. Si se genera calor en el material (por ejemplo, debido a la resistencia de la corriente), la ecuación se convierte en:

    \frac{\partial ^2u}{\partial x^2} + \frac{Kr}{\rho C} = K\frac{\partial u}{\partial t} 0 \lt x \lt L, 0 \lt t
    Donde: Suponga que:
    L es la longitud, L =  1.5 cm
    ρ es la densidad, ρ = 10.6 g/cm3
    C es el calor específico C = 0.056 cal/g deg
    K es la difusividad térmica de la varilla K = 1.04 cal/cm deg s
    La función r = r(x,t,u) representa el calor generado por unidad de volumen. r(x,t,u) = 5 cal/g deg

    Si los extremos de la varilla se mantienen a 0°C, entonces

    u(0,t) = u(L,t) = 0, t>0

    Suponga que la distribución inicial de la temperatura está dada por:

    u(x,0) = \sin \Big( \frac{\pi x}{L} \Big), 0 \le x \le L

    Aproxime la distribución de la temperatura con h=0.25, k=0.025 para t=3k


    Referencia: Burden 9ed Chapter 12 exercise 18 p738

  • Protegido: s3Eva_IT2018_T3 EDP Parabólica, temperatura en varilla

    Este contenido está protegido por contraseña. Para verlo introduce tu contraseña a continuación:

  • 3Eva_IT2018_T2 Drenaje de estanque

    3ra Evaluación I Término 2018-2019. 11/Septiembre/2018. MATG1013

    Tema 2. (40 puntos) Un estanque se drena a través de un tubo como se observa en la figura.

    Con suposiciones simplificadoras, la ecuación diferencial siguiente describe cómo cambia la profundidad con el tiempo:

    \frac{dh}{dt} = -\frac{\pi d^2}{4A(h)}\sqrt{2g(h+e)}

     represa y drenaje
    Donde:
    h = profundidad (m),
    t = tiempo (s),
    d = diámetro del tubo (m),
    A(h) = área de la superficie del estanque como función de la profundidad (m2),
    g = constante gravitacional (9,81 m/s2) y
    e es la profundidad de salida del tubo por debajo del fondo del estanque (m).

    Con base en la tabla siguiente de área-profundidad, resuelva esta ecuación diferencial para determinar cuánto tiempo tomaría que el estanque se vacie, dado que h(0) = 6 m, d = 0.25 m, e = 0.3 m.

    h 6 5 4 3 2 1 0
    A(h) 1.17 0.97 0.67 0.45 0.32 0.18 0.02

    a) Con las profundidades 0, 2, 4, 6, encuentre un modelo de trazador cúbico natural para modelar el área A(h) y calcule el error en h = 5 m

    b) Use el método de Taylor de segundo orden con dt=1 s para aproximar el tiempo en que la profundidad es 3 m.

    Rúbrica: literal a (20 puntos), literal b (20 puntos)


    hi = np.array([6, 5, 4, 3, 2, 1, 0])
    Ai = np.array([1.17, 0.97, 0.67, 0.45, 0.32, 0.18, 0.02])
    

    Referencia: Chapra Ejercicio 28.24 p849, pdf873

    Video: La ambiciosa Represa Hoover - INEXPLICABLE. History Latinoamérica.

  • s3Eva_IT2018_T2 Drenaje de estanque

    Ejercicio: 3Eva_IT2018_T2 Drenaje de estanque

    literal a

    Se usa interpolación para encontrar los polinomios que pasan por los puntos seleccionados.

    El error de A(5) se obtiene como la diferencia entre el valor de la tabla y el polinomio del tramo [4,6] evaluado en el punto.

    ordenado:  [6 5 4 3 2 1 0]
    hi:  [0 1 2 3 4 5 6]
    Ai:  [ 0.02  0.18  0.32  0.45  0.67  0.97  1.17]
    
    puntos seleccionados:
    h1:  [0, 2, 4, 6]
    A1:  [ 0.02  0.32  0.67  1.17]
    
    Polinomios por tramos: 
     x = [0,2]
    0.000416666666666669*x**3 + 0.148333333333333*x + 0.02
     x = [2,4]
    0.00416666666666666*x**3 - 0.0224999999999999*x**2 + 0.193333333333333*x - 0.00999999999999984
     x = [4,6]
    -0.00458333333333333*x**3 + 0.0824999999999999*x**2 - 0.226666666666666*x + 0.549999999999999
    
    error en px(5):  0.0637499999999998
    

    se observa que la evaluación se realiza para el polinomio entre [4,6]

    drenaje estanque 02 Ah

    Desarrollo en Python

    # 3ra Evaluación I Término 2018
    # Tema 2. Drenaje de Estanque
    
    import numpy as np
    import matplotlib.pyplot as plt
    import sympy as sym
    
    def traza3natural(xi,yi):
        # Trazador cúbico natural, splines
        # resultado: polinomio en forma simbólica
        n = len(xi)
        # Valores h
        h = np.zeros(n-1, dtype = float)
        for j in range(0,n-1,1):
            h[j] = xi[j+1] - xi[j]
        
        # Sistema de ecuaciones
        A = np.zeros(shape=(n-2,n-2), dtype = float)
        B = np.zeros(n-2, dtype = float)
        S = np.zeros(n, dtype = float)
        A[0,0] = 2*(h[0]+h[1])
        A[0,1] = h[1]
        B[0] = 6*((yi[2]-yi[1])/h[1] - (yi[1]-yi[0])/h[0])
        for i in range(1,n-3,1):
            A[i,i-1] = h[i]
            A[i,i] = 2*(h[i]+h[i+1])
            A[i,i+1] = h[i+1]
            B[i] = 6*((yi[i+2]-yi[i+1])/h[i+1] - (yi[i+1]-yi[i])/h[i])
        A[n-3,n-4] = h[n-3]
        A[n-3,n-3] = 2*(h[n-3]+h[n-2])
        B[n-3] = 6*((yi[n-1]-yi[n-2])/h[n-2] - (yi[n-2]-yi[n-3])/h[n-3])
        
        # Resolver sistema de ecuaciones
        r = np.linalg.solve(A,B)
        # S
        for j in range(1,n-1,1):
            S[j] = r[j-1]
        S[0] = 0
        S[n-1] = 0
        
        # Coeficientes
        a = np.zeros(n-1, dtype = float)
        b = np.zeros(n-1, dtype = float)
        c = np.zeros(n-1, dtype = float)
        d = np.zeros(n-1, dtype = float)
        for j in range(0,n-1,1):
            a[j] = (S[j+1]-S[j])/(6*h[j])
            b[j] = S[j]/2
            c[j] = (yi[j+1]-yi[j])/h[j] - (2*h[j]*S[j]+h[j]*S[j+1])/6
            d[j] = yi[j]
        
        # Polinomio trazador
        x = sym.Symbol('x')
        polinomio = []
        for j in range(0,n-1,1):
            ptramo = a[j]*(x-xi[j])**3 + b[j]*(x-xi[j])**2 + c[j]*(x-xi[j])+ d[j]
            ptramo = ptramo.expand()
            polinomio.append(ptramo)
        
        return(polinomio)
    
    # PROGRAMA -------------------------
    
    hi = np.array([6, 5, 4, 3, 2, 1, 0])
    Ai = np.array([1.17, 0.97, 0.67, 0.45, 0.32, 0.18, 0.02])
    xk = 5
    
    # PROCEDIMIENTO LITERAL a
    # reordena en forma ascendente
    ordenado = np.argsort(hi)
    hi = hi[ordenado]
    Ai = Ai[ordenado]
    
    # Selecciona puntos
    xi = [0,2,4,6]
    fi = Ai[xi]
    n = len(xi)
    
    polinomio = traza3natural(xi,fi)
    
    # literal a, estima error
    px = polinomio[2]
    pxk = px.subs('x',xk)
    errado = np.abs(Ai[xk] - pxk)
    
    # SALIDA
    print('ordenado: ', ordenado)
    print('hi: ', hi)
    print('Ai: ', Ai)
    print('puntos seleccionados:')
    print('h1: ', xi)
    print('A1: ', fi)
    
    print('Polinomios por tramos: ')
    for tramo in range(1,n,1):
        print(' x = ['+str(xi[tramo-1])+','+str(xi[tramo])+']')
        print(str(polinomio[tramo-1]))
    
    print('error en px(5): ', errado)
    
    # GRAFICA
    # Puntos para grafica en cada tramo
    resolucion = 10 # entre cada par de puntos
    xtrazado = np.array([])
    ytrazado = np.array([])
    tramo = 1
    while not(tramo>=n):
        a = xi[tramo-1]
        b = xi[tramo]
        xtramo = np.linspace(a,b,resolucion)
        
        ptramo = polinomio[tramo-1]
        pxtramo = sym.lambdify('x',ptramo)
        ytramo = pxtramo(xtramo)
        
        xtrazado = np.concatenate((xtrazado,xtramo))
        ytrazado = np.concatenate((ytrazado,ytramo))
        tramo = tramo + 1
    
    # GRAFICA
    # puntos originales
    plt.plot(hi,Ai,'o',label = 'Ai')
    # Trazador cúbico
    plt.plot(xtrazado,ytrazado, label = 'p(h)')
    plt.plot(xi,fi,'o', label = 'Apx')
    plt.title('Trazador cúbico natural (splines)')
    plt.xlabel('x')
    plt.ylabel('y')
    plt.legend()
    plt.grid()
    plt.show()
    

    Literal b

    TAREA

  • 3Eva_IT2018_T1 Intersección de dos círculos

    3ra Evaluación I Término 2018-2019. 11/Septiembre/2018. MATG1013

    Tema 1. (30 puntos) Encuentre las raíces de las ecuaciones simultaneas siguientes:

    (x-4)^2 + (y-4)^2 = 5 x^2 + y^2 = 16

    a) Use el enfoque gráfico para obtener los valores iniciales.

    b) Encuentre aproximaciones refinadas con el Método de Newton-Raphson

    Rúbrica: literal a (10 puntos), literal b  (20 puntos)

    intersecta Circulos 01


    Referencia: Un asteroide dos veces más grande que un avión Boeing 747 pasará muy cerca la Tierra. https://www.eluniverso.com/noticias/2018/08/28/nota/6927335/asteroide-dos-veces-mas-grande-que-avion-pasara-muy-cerca-tierra

    Intersecta Circulos 02
    Europa Press 28 de agosto, 2018 - 11h51