Examen - Análisis Númerico - Kevin Lara

fprintf('\n');

disp('Menu del Examen - Kevin Lara - 201110510072');

fprintf('\n');

ex = input('Ingrese el numero de ejercicio del examen: ');

fprintf('\n');

switch ex
    case 1
        clc;

        disp('Menu de Opciones - Ejercicio 1');

        fprintf('\n');

        disp('1. Circulo');
        disp('2. Rectangulo');
        disp('3. Triangulo');

        fprintf('\n');

        e = input('>> Ingrese el numero de la opcion a elegir: ');

        fprintf('\n');

        switch e
            case 1
                r = input('>> Ingrese el radio del circulo: ');

                a = pi * r^2;

                fprintf('\n');

                fprintf('>> El area de un circulo de %0.2f de radio es: %0.2f', r, a);

            case 2
                b = input('>> Ingrese la base del rectangulo: ');

                fprintf('\n');

                al = input('>> Ingrese la altura del rectangulo: ');

                ar = b * al;

                fprintf('\n');

                fprintf('>> El area de un rectangulo de %0.2f de base y %0.2f de altura, es: %0.2f', b, al, ar);

            case 3
                b = input('>> Ingrese la base del triangulo: ');

                fprintf('\n');

                al = input('>> Ingrese la altura del triangulo: ');

                ar = (b * al) / 2;

                fprintf('\n');

                fprintf('>> El area de un triangulo de %0.2f de base y %0.2f de altura, es: %0.2f', b, al, ar);

            otherwise
               fprintf('>> Opcion no valida.');
        end

        fprintf('\n');
        fprintf('\n');

    case 2
        clc;

        disp('Variacion de posicion de una particula en funcion del tiempo en y = - 10 + 3t + 30e^1.3t');

        fprintf('\n');

        disp('>> Resultados');

        fprintf('\n');

        f = @(t) - 10 + 3 * t + 30 * exp( -1.3 * t );

        int_i = 0;

        int_f = 5;

        for n = 1 : 5
            c = (int_i + int_f) / 2;

            e = abs( (int_i - int_f) / 2 );

            fc = f(c);

            R(n, :) = [n int_i int_f c fc e];

            if power(f(int_i), fc) < 0
                int_f = c;
            else
                int_i = c;
            end
        end

        disp('    Intr      IntvI     IntvF     C         f(c)      e');

        fprintf('\n');

        disp(R);

    case 3
        clc;

    otherwise
        fprintf('>> Numero de ejercicio no valido.');
end