Universidad de las Fuerzas Armadas

ESPE

Laboratorio de Matemáticas
NRC 2219

Deber N 2

Tutor:
Fabian Marcelo Ordoñez Moreno

Autor:
David Stalin Moya Román

17 de octubre de 2019
 Deber N 2

1. Crear una función M-file con la que se puede gráficar la siguiente función:
(
x(s) = sin 2s s



5

+ cos 5

f (t) =
y(s) = sin 2s
5
− cos s
5

Código Octave
%UNIVERSIDAD DE LAS FUERZAS ARMADAS ESPE
%DAVID MOYA
%2917
%FUNCION PARA GRAFICA DE FUNCIONES

function g r a F i g u r a ( a , b , z )
%g r a F i g u r a ( −100 ,100 ,80)
p=linspace ( a , b , z ) ;
x=sin ( ( 2 ∗ p ) / 5 )+cos ( p / 5 ) ;
y=sin ( ( 2 ∗ p ) / 5 )−cos ( p / 5 ) ;
plot ( x , y ) ;
t i t l e ( ’ G r a f i c a de f u n c i o n e s ’ ) ;
endfunction

Ejecución del código

>> graFigura(-100,100,80)

Figura 1: Gráfica de funciones

Explicación

David Stalin Moya Román 1

 Deber N 2

La función graFigura(a,b,z) primero genera un vector que empieza en -100 y termina

en 100 con 80 divisiones equidistantes entre ellos teniendo ası́ un conjunto de valores
entre los mismos, después se realiza el calculo de x, y para cada uno de los valores
generados en el vector anterior y por último se indica octave que se realice el ploteo,
es decir el gráfico los valores calculados de x, y.

2. La relación de diversas escalas de temperatura con la escala Celsius (C) es la siguiente:

Escala Farenheit:
9
F = C + 32
5
Escala Kelvin:

K = C + 273, 15

Escala :
3
X = C + 12
7

Construir un programa en Octave que permita transformar de una escala a la otra.

El programa debe solicitar al usuario el ingreso de la información necesaria para su
funcionamiento.
Código Octave
%UNIVERSIDAD DE LAS FUERZAS ARMADAS ESPE
%DAVID MOYA
%2917
%FUNCION DE CAMBIO DE ESCALAS
function c a m b i o E s c a l a s ( )
f p r i n t f ( ’ B i e n v e n i d o a l programa de t r a s f o r m a c i o n de e s c a l a s de
t e m p e r a t u r a \n ’ ) ;
nombre=input ( ’ I n g r e s e su nombre : ’ , ’ s ’ ) ;
do
f p r i n t f ( ’ \ t \ t E s c a l a de t e m p e r a t u r a \n ’ ) ;
f p r i n t f ( ’ 1 . Paso de C e l s i u s a F a r e n h e i t \n ’ ) ;
f p r i n t f ( ’ 2 . Paso de C e l s i u s a K e l v i n \n ’ ) ;
f p r i n t f ( ’ 3 . Paso de C e l s i u s a X \n ’ ) ;
f p r i n t f ( ’ 4 . S a l i r \n ’ ) ;
s e l e c t o r=input ( ’ E l i j a que d e s e a r e a l i z a r ’ ) ;
switch ( s e l e c t o r )
case 1
f p r i n t f ( ’ I n g r e s a l a t e m p e r a t u r a en g r a d o s c e l s i u s %s : ’ , nombre ) ;
C=input ( ’ ’ ) ;
F=(9/5) ∗C+32;
f p r i n t f ( ’ %.2 f g r a d o s C e l s i u s a F a r e n h e i t e s : %.2 f \n ’ ,C, F) ;
case 2
f p r i n t f ( ’ I n g r e s a l a t e m p e r a t u r a en g r a d o s c e l s i u s %s : ’ , nombre ) ;
C=input ( ’ ’ ) ;
K=C+ 2 7 3 . 1 5 ;

David Stalin Moya Román 2

 Deber N 2

f p r i n t f ( ’ %.2 f g r a d o s C e l s i u s a K e l v i n e s : %.2 f \n ’ ,C,K) ;

case 3
f p r i n t f ( ’ I n g r e s a l a t e m p e r a t u r a en g r a d o s c e l s i u s %s : ’ , nombre ) ;
C=input ( ’ ’ ) ;
X=1.25∗C+40;
f p r i n t f ( ’ %.2 f g r a d o s C e l s i u s a X e s : %.2 f \n ’ ,C,X) ;
case 4
f p r i n t f ( ’ G r a c i a s por u s a r e l programa %s \n ’ , nombre ) ;
break
endswitch
f p r i n t f ( ’ Desea r e a l i z a r o t r a t r a n s f o r m a c i o n %s ’ , nombre ) ;
r e p e t i c i o n=input ( ’ I n g r e s e 1=S i o 2=No ’ ) ;
u n t i l r e p e t i c i o n !=1;

endfunction

Ejecución del código

>> cambioEscalas()
Bienvenido al programa de trasformacion de escalas de temperatura
Ingrese su nombre: DAVID
Escala de temperatura
1. Paso de Celsius a Farenheit
2. Paso de Celsius a Kelvin
3. Paso de Celsius a X
4. Salir
Elija que 1desea realizar 2
Ingresa la temperatura en grados celsius DAVID: 23
23.00 grados Celsius a Kelvin es:296.15
Desea realizar otra transformacion DAVID Ingrese 1=Si o 2=No 1
Escala de temperatura
1. Paso de Celsius a Farenheit
2. Paso de Celsius a Kelvin
3. Paso de Celsius a X
4. Salir
Elija que 1desea realizar 1
Ingresa la temperatura en grados celsius DAVID: 23
23.00 grados Celsius a Farenheit es:73.40
Desea realizar otra transformacion DAVID Ingrese 1=Si o 2=No 1
Escala de temperatura
1. Paso de Celsius a Farenheit
2. Paso de Celsius a Kelvin
3. Paso de Celsius a X
4. Salir
Elija que 1desea realizar 3
Ingresa la temperatura en grados celsius DAVID: 23
23.00 grados Celsius a X es:68.75

David Stalin Moya Román 3

 Deber N 2

Desea realizar otra transformacion DAVID Ingrese 1=Si o 2=No 0

Explicación
La función cambioEscalas() funciona primeramente dando un mensaje de bienvenida
para hacerlo mas amigable para el usuario, igualmente se solicita el nombre del mismo,
primero se entrega un menú donde se indica las acciones que se pueden realizar según
la opción que se elija, a continuación se detalla cada uno de los cambios con la fórmula
correspondiente, si ya se selecciona una acción esta ya se ejecuta y da la respuesta, a
demás se pregunta si se desea realizar otro cálculo o no, termina el programa.

3. Investigue una instrucción que le permita ordenar un vector ascendente y descenden-

temente.
A=sort(V,direction) donde A es el vector ya ordenado sea ascendetemente o descende-
temente, V el vector que se desea ordenar y ”direction” si se desea que el ordenamiento
sea ascendete como valor predeterminado o descendete.
Código Octave
%UNIVERSIDAD DE LAS FUERZAS ARMADAS ESPE
%DAVID MOYA
%2917
%FUNCION DE ORDENAMIENTO

function ordenV ( )
n=input ( ’ I n g r e s e l a c a n t i d a d de v a l o r e s que d e s e a i n g r e s a r : ’);
f o r k=1:n
f p r i n t f ( ’ I n g r e s e e l v a l o r de l a p o s i c i o n ( %d ) : ’ ,k) ;
v ( 1 , k )=input ( ’ ’);
endfor
f p r i n t f ( ’ El v e c t o r que u s t e d d e s e a o r d e n a r e s e l s i g u i e n t e con un t o t a l
de %d v a l o r e s ’ , k ) ;
v
do
f p r i n t f ( ’ \ t \ t S e l e c c i o n e e l t i p o de ordenamiento que d e s e a . \ n ’ ) ;
f p r i n t f ( ’ 1 . Ordenamiento d e s c e n d e n t e \n ’ ) ;
f p r i n t f ( ’ 2 . Ordenamiento a s c e n d e n t e \n ’ ) ;
s e l e c t o r=input ( ’ Que ordenamiento d e s e a r e a l i z a r : ’);
switch ( s e l e c t o r )
case 1
f p r i n t f ( ’ El v e c t o r s i n o r d e n a r e s : \n ’ ) ;
v
f p r i n t f ( ’ El v e c t o r ordenado d e s c e n d e n t e m e n t e e s : \n ’ ) ;
D=sort ( v , ’ d e s c e n d ’ ) ;
D
case 2
f p r i n t f ( ’ El v e c t o r s i n o r d e n a r e s : \n ’ ) ;
v
f p r i n t f ( ’ El v e c t o r ordenado a s c e n d e n t e m e n t e e s : \n ’ ) ;
A=sort ( v , ’ a s c e n d ’ ) ;
A
case 3

David Stalin Moya Román 4

 Deber N 2

f p r i n t f ( ’ La o p c i o n s e l e c c i o n a d a e s i n c o r r e c t a \n G r a c i a s por
u t i l i z a r e s t e programa . ’ ) ;
break
endswitch
f p r i n t f ( ’ ¿Desea r e a l i z a r o t r a a c c i o n ?\n ’ ) ;
r e p e t i c i o n=input ( ’ I n g r e s e 1− S i o 2−No : ’);

u n t i l r e p e t i c i o n !=1;
endfunction

Ejecución del código

>> ordenV()
Ingrese la cantidad de valores que desea ingresar: 3
Ingrese el valor de la posicion (1): 1
Ingrese el valor de la posicion (2): 6
Ingrese el valor de la posicion (3): 2

El vector que usted desea ordenar es el siguiente con un total de 3 valores

v =

1 6 2

Seleccione el tipo de ordenamiento que desea.

1. Ordenamiento descendente
2. Ordenamiento ascendente
Que ordenamiento desea realizar: 1
El vector sin ordenar es:
v =

1 6 2

El vector ordenado descendentemente es:

D =

6 2 1

^
A¿Desea realizar otra accion?
Ingrese 1-Si o 2-No: 1
Seleccione el tipo de ordenamiento que desea.
1. Ordenamiento descendente
2. Ordenamiento ascendente
Que ordenamiento desea realizar: 2
El vector sin ordenar es:
v =

David Stalin Moya Román 5

 Deber N 2

1 6 2

El vector ordenado ascendentemente es:

A =

1 2 6

^
A¿Desea realizar otra accion?
Ingrese 1-Si o 2-No: 2

Explicación La función ordenV() primero nos indica que ingresemos la longitud del
vector que vamos a ordenar, segundo nos solicita cada uno de los valores que se en-
cuentran dentro del vector, tercero se realiza una consulta al usuario de que tipo de
ordenamiento se desea realizar y por ultimo se realiza el ordenamiento según su solici-
tud además se realiza la consulta al usuario si desea realizar mas de un ordenamiento
por el vector ingresado.

4. Escribir un programa que transforme velocidades dadas en m/s a pies/s, millas/h y

km/min.
Código Octave
%UNIVERSIDAD DE LAS FUERZAS ARMADAS ESPE
%DAVID MOYA
%2917
%FUNCION DE TRANSFORMACION

function sisMed ( )
f p r i n t f ( ’ B i e n v e n i d o a l programa de t r a s f o r m a c i o n s i s t e m a s de m e d i c i o n
\n ’ ) ;
nombre=input ( ’ I n g r e s e su nombre : ’ , ’ s ’ ) ;
do
f p r i n t f ( ’ \ t \ t S i s t e m a s de m e d i c i o n \n ’ ) ;
f p r i n t f ( ’ 1 . Paso de m/ s a f t / s e g \n ’ ) ;
f p r i n t f ( ’ 2 . Paso de m/ s a M i l l a s /h \n ’ ) ;
f p r i n t f ( ’ 3 . Paso de m/ s a Km/min \n ’ ) ;
f p r i n t f ( ’ 4 . S a l i r \n ’ ) ;
s e l e c t o r=input ( ’ E l i j a que d e s e a r e a l i z a r ’ ) ;
switch ( s e l e c t o r )
case 1
f p r i n t f ( ’ I n g r e s a e l v a l o r en m/ s %s : ’ , nombre ) ;
C=input ( ’ ’ ) ;
F=3.28∗C ;
a=f l o o r (F) ;
f p r i n t f ( ’ %.2 f m/ s a f t / s e g e s : %.2 f \n ’ ,C, a ) ;
case 2
f p r i n t f ( ’ I n g r e s a e l v a l o r en m/ s %s : ’ , nombre ) ;
C=input ( ’ ’ ) ;
K=(0.6214∗36∗C) / 1 0 ;
b=f l o o r (K) ;

David Stalin Moya Román 6

 Deber N 2

f p r i n t f ( ’ %.2 f m/ s a M i l l a s /h e s : %.2 f \n ’ ,C, b ) ;

case 3
f p r i n t f ( ’ I n g r e s a e l v a l o r en m/ s %s : ’ , nombre ) ;
C=input ( ’ ’ ) ;
X=(6∗C) / 1 0 0 ;
c=f l o o r (X) ;
f p r i n t f ( ’ %.2 f m/ s a Km/min e s : %.2 f \n ’ ,C, c ) ;
case 4
f p r i n t f ( ’ La o p c i o n e s c o g i d a no e s v a l i d a %s \n ’ , nombre ) ;
break
endswitch
f p r i n t f ( ’ Desea r e a l i z a r o t r o cambio de s i s t e m a %s ’ , nombre ) ;
r e p e t i c i o n=input ( ’ I n g r e s e 1=S i o 2=No ’ ) ;

u n t i l r e p e t i c i o n !=1;
f p r i n t f ( ’ G r a c i a s por u s a r e l programa %s \n ’ , nombre ) ;
endfunction

Ejecución del código

>> sisMed()
Bienvenido al programa de trasformacion sistemas de medicion
Ingrese su nombre: David
Sistemas de medicion
1. Paso de m/s a ft/seg
2. Paso de m/s a Millas/h
3. Paso de m/s a Km/min
4. Salir
Elija que desea realizar 1
Ingresa el valor en m/s David: 32
32.00 m/s a ft/seg es:104.00
Desea realizar otro cambio de sistema David Ingrese 1=Si o 2=No 1
Sistemas de medicion
1. Paso de m/s a ft/seg
2. Paso de m/s a Millas/h
3. Paso de m/s a Km/min
4. Salir
Elija que desea realizar 2
Ingresa el valor en m/s David: 32
32.00 m/s a Millas/h es:71.00
Desea realizar otro cambio de sistema David Ingrese 1=Si o 2=No 1
Sistemas de medicion
1. Paso de m/s a ft/seg
2. Paso de m/s a Millas/h
3. Paso de m/s a Km/min
4. Salir
Elija que desea realizar 3
Ingresa el valor en m/s David: 32

David Stalin Moya Román 7

 Deber N 2

32.00 m/s a Km/min es:1.00

Desea realizar otro cambio de sistema David Ingrese 1=Si o 2=No 2
Gracias por usar el programa David
>>

Explicación
La función sisMed() funciona cambiando el sistema de medición en la cual se aprecia
un valor es decir recibimos un valor en m/s y se lo cambia a ft/seg, millas/h y km/min,
se realiza estas operciones con una función amigable al cual presenta cual es su funcio-
namiento solicita el nombre del usuario para la interacci’on, solicita igualmete el valor
que se desea transformar una vez se ingreso el valor tenemos un menú el cual nos indica
cual de las tres transformaciones deseamos realiza una vez realizada cada una consul-
tando si desea realizar otra caso contrario el programa termina su funcionamiento y
agradece por la utilizacion al usuario.

5. Escriba un programa que calcule los 1000 primeros términos de la serie de Fibonacci.
Código Octave
%UNIVERSIDAD DE LAS FUERZAS ARMADAS ESPE
%DAVID MOYA
%2917
%FUNCION DE 1000 PRIMEROS VALORES DE LA SERIE DE FIBBONASI
function f i b 1 0 0 0 ( )
n =1000;
F=[1 1 ] ;
f o r i =3:n
F( i )=F( i −1) + F( i −2) ;
endfor
F
endfunction

Ejecución del código

>> fib1000()
F =

Columns 1 through 6:

1.0000e+00 1.0000e+00 2.0000e+00 3.0000e+00 5.0000e+00 8.0000e+00

Columns 7 through 12:

1.3000e+01 2.1000e+01 3.4000e+01 5.5000e+01 8.9000e+01 1.4400e+02

Columns 13 through 18:

2.3300e+02 3.7700e+02 6.1000e+02 9.8700e+02 1.5970e+03 2.5840e+03

Columns 19 through 24:

4.1810e+03 6.7650e+03 1.0946e+04 1.7711e+04 2.8657e+04 4.6368e+04

Columns 25 through 30:

David Stalin Moya Román 8

 Deber N 2

7.5025e+04 1.2139e+05 1.9642e+05 3.1781e+05 5.1423e+05 8.3204e+05

Columns 31 through 36:

1.3463e+06 2.1783e+06 3.5246e+06 5.7029e+06 9.2275e+06 1.4930e+07

Columns 37 through 42:

2.4158e+07 3.9088e+07 6.3246e+07 1.0233e+08 1.6558e+08 2.6791e+08

Columns 43 through 48:

4.3349e+08 7.0141e+08 1.1349e+09 1.8363e+09 2.9712e+09 4.8075e+09

Columns 49 through 54:

7.7787e+09 1.2586e+10 2.0365e+10 3.2951e+10 5.3316e+10 8.6268e+10

Columns 55 through 60:

1.3958e+11 2.2585e+11 3.6544e+11 5.9129e+11 9.5672e+11 1.5480e+12

Columns 61 through 66:

2.5047e+12 4.0527e+12 6.5575e+12 1.0610e+13 1.7168e+13 2.7778e+13

Columns 67 through 72:

4.4946e+13 7.2723e+13 1.1767e+14 1.9039e+14 3.0806e+14 4.9845e+14

Columns 73 through 78:

8.0652e+14 1.3050e+15 2.1115e+15 3.4165e+15 5.5279e+15 8.9444e+15

Columns 79 through 84:

1.4472e+16 2.3417e+16 3.7889e+16 6.1306e+16 9.9195e+16 1.6050e+17

Columns 85 through 90:

2.5970e+17 4.2020e+17 6.7989e+17 1.1001e+18 1.7800e+18 2.8801e+18

Columns 91 through 96:

4.6600e+18 7.5401e+18 1.2200e+19 1.9740e+19 3.1940e+19 5.1681e+19

Columns 97 through 102:

8.3621e+19 1.3530e+20 2.1892e+20 3.5422e+20 5.7315e+20 9.2737e+20

Columns 103 through 108:

1.5005e+21 2.4279e+21 3.9284e+21 6.3563e+21 1.0285e+22 1.6641e+22

Columns 109 through 114:

2.6926e+22 4.3567e+22 7.0493e+22 1.1406e+23 1.8455e+23 2.9861e+23

Columns 115 through 120:

4.8316e+23 7.8177e+23 1.2649e+24 2.0467e+24 3.3116e+24 5.3584e+24

Columns 121 through 126:

8.6700e+24 1.4028e+25 2.2698e+25 3.6727e+25 5.9425e+25 9.6152e+25

Columns 127 through 132:

David Stalin Moya Román 9

 Deber N 2

1.5558e+26 2.5173e+26 4.0731e+26 6.5903e+26 1.0663e+27 1.7254e+27

Columns 133 through 138:

2.7917e+27 4.5171e+27 7.3088e+27 1.1826e+28 1.9135e+28 3.0961e+28

Columns 139 through 144:

5.0095e+28 8.1056e+28 1.3115e+29 2.1221e+29 3.4336e+29 5.5557e+29

Columns 145 through 150:

8.9892e+29 1.4545e+30 2.3534e+30 3.8079e+30 6.1613e+30 9.9692e+30

Columns 151 through 156:

1.6131e+31 2.6100e+31 4.2230e+31 6.8330e+31 1.1056e+32 1.7889e+32

Columns 157 through 162:

2.8945e+32 4.6834e+32 7.5779e+32 1.2261e+33 1.9839e+33 3.2101e+33

Columns 163 through 168:

5.1940e+33 8.4040e+33 1.3598e+34 2.2002e+34 3.5600e+34 5.7602e+34

Columns 169 through 174:

9.3202e+34 1.5080e+35 2.4401e+35 3.9481e+35 6.3882e+35 1.0336e+36

Columns 175 through 180:

1.6724e+36 2.7061e+36 4.3785e+36 7.0846e+36 1.1463e+37 1.8548e+37

Columns 181 through 186:

3.0011e+37 4.8559e+37 7.8569e+37 1.2713e+38 2.0570e+38 3.3283e+38

Columns 187 through 192:

5.3852e+38 8.7135e+38 1.4099e+39 2.2812e+39 3.6911e+39 5.9723e+39

Columns 193 through 198:

9.6634e+39 1.5636e+40 2.5299e+40 4.0935e+40 6.6234e+40 1.0717e+41

Columns 199 through 204:

1.7340e+41 2.8057e+41 4.5397e+41 7.3454e+41 1.1885e+42 1.9231e+42

Columns 205 through 210:

3.1116e+42 5.0346e+42 8.1462e+42 1.3181e+43 2.1327e+43 3.4508e+43

Columns 211 through 216:

5.5835e+43 9.0343e+43 1.4618e+44 2.3652e+44 3.8270e+44 6.1922e+44

Columns 217 through 222:

1.0019e+45 1.6211e+45 2.6231e+45 4.2442e+45 6.8673e+45 1.1111e+46

Columns 223 through 228:

1.7979e+46 2.9090e+46 4.7069e+46 7.6159e+46 1.2323e+47 1.9939e+47

Columns 229 through 234:

David Stalin Moya Román 10

 Deber N 2

3.2262e+47 5.2200e+47 8.4462e+47 1.3666e+48 2.2112e+48 3.5779e+48

Columns 235 through 240:

5.7891e+48 9.3669e+48 1.5156e+49 2.4523e+49 3.9679e+49 6.4202e+49

Columns 241 through 246:

1.0388e+50 1.6808e+50 2.7196e+50 4.4005e+50 7.1201e+50 1.1521e+51

Columns 247 through 252:

1.8641e+51 3.0161e+51 4.8802e+51 7.8963e+51 1.2777e+52 2.0673e+52

Columns 253 through 258:

3.3449e+52 5.4122e+52 8.7572e+52 1.4169e+53 2.2927e+53 3.7096e+53

Columns 259 through 264:

6.0022e+53 9.7118e+53 1.5714e+54 2.5426e+54 4.1140e+54 6.6566e+54

Columns 265 through 270:

1.0771e+55 1.7427e+55 2.8198e+55 4.5625e+55 7.3823e+55 1.1945e+56

Columns 271 through 276:

1.9327e+56 3.1272e+56 5.0599e+56 8.1871e+56 1.3247e+57 2.1434e+57

Columns 277 through 282:

3.4681e+57 5.6115e+57 9.0796e+57 1.4691e+58 2.3771e+58 3.8462e+58

Columns 283 through 288:

6.2232e+58 1.0069e+59 1.6293e+59 2.6362e+59 4.2655e+59 6.9017e+59

Columns 289 through 294:

1.1167e+60 1.8069e+60 2.9236e+60 4.7305e+60 7.6541e+60 1.2385e+61

Columns 295 through 300:

2.0039e+61 3.2423e+61 5.2462e+61 8.4885e+61 1.3735e+62 2.2223e+62

Columns 301 through 306:

3.5958e+62 5.8181e+62 9.4139e+62 1.5232e+63 2.4646e+63 3.9878e+63

Columns 307 through 312:

6.4524e+63 1.0440e+64 1.6893e+64 2.7333e+64 4.4225e+64 7.1558e+64

Columns 313 through 318:

1.1578e+65 1.8734e+65 3.0312e+65 4.9047e+65 7.9359e+65 1.2841e+66

Columns 319 through 324:

2.0776e+66 3.3617e+66 5.4394e+66 8.8011e+66 1.4240e+67 2.3041e+67

Columns 325 through 330:

3.7282e+67 6.0323e+67 9.7605e+67 1.5793e+68 2.5553e+68 4.1346e+68

Columns 331 through 336:

David Stalin Moya Román 11

 Deber N 2

6.6900e+68 1.0825e+69 1.7515e+69 2.8339e+69 4.5854e+69 7.4193e+69

Columns 337 through 342:

1.2005e+70 1.9424e+70 3.1429e+70 5.0853e+70 8.2281e+70 1.3313e+71

Columns 343 through 348:

2.1541e+71 3.4855e+71 5.6396e+71 9.1251e+71 1.4765e+72 2.3890e+72

Columns 349 through 354:

3.8655e+72 6.2544e+72 1.0120e+73 1.6374e+73 2.6494e+73 4.2869e+73

Columns 355 through 360:

6.9363e+73 1.1223e+74 1.8159e+74 2.9383e+74 4.7542e+74 7.6925e+74

Columns 361 through 366:

1.2447e+75 2.0139e+75 3.2586e+75 5.2725e+75 8.5311e+75 1.3804e+76

Columns 367 through 372:

2.2335e+76 3.6138e+76 5.8473e+76 9.4611e+76 1.5308e+77 2.4769e+77

Columns 373 through 378:

4.0078e+77 6.4847e+77 1.0493e+78 1.6977e+78 2.7470e+78 4.4447e+78

Columns 379 through 384:

7.1917e+78 1.1636e+79 1.8828e+79 3.0464e+79 4.9293e+79 7.9757e+79

Columns 385 through 390:

1.2905e+80 2.0881e+80 3.3786e+80 5.4666e+80 8.8452e+80 1.4312e+81

Columns 391 through 396:

2.3157e+81 3.7469e+81 6.0626e+81 9.8095e+81 1.5872e+82 2.5682e+82

Columns 397 through 402:

4.1554e+82 6.7235e+82 1.0879e+83 1.7602e+83 2.8481e+83 4.6084e+83

Columns 403 through 408:

7.4565e+83 1.2065e+84 1.9521e+84 3.1586e+84 5.1107e+84 8.2694e+84

Columns 409 through 414:

1.3380e+85 2.1649e+85 3.5030e+85 5.6679e+85 9.1709e+85 1.4839e+86

Columns 415 through 420:

2.4010e+86 3.8848e+86 6.2858e+86 1.0171e+87 1.6456e+87 2.6627e+87

Columns 421 through 426:

4.3084e+87 6.9711e+87 1.1279e+88 1.8250e+88 2.9530e+88 4.7780e+88

Columns 427 through 432:

7.7310e+88 1.2509e+89 2.0240e+89 3.2749e+89 5.2989e+89 8.5738e+89

Columns 433 through 438:

David Stalin Moya Román 12

 Deber N 2

1.3873e+90 2.2447e+90 3.6319e+90 5.8766e+90 9.5085e+90 1.5385e+91

Columns 439 through 444:

2.4894e+91 4.0279e+91 6.5172e+91 1.0545e+92 1.7062e+92 2.7608e+92

Columns 445 through 450:

4.4670e+92 7.2277e+92 1.1695e+93 1.8922e+93 3.0617e+93 4.9540e+93

Columns 451 through 456:

8.0157e+93 1.2970e+94 2.0985e+94 3.3955e+94 5.4940e+94 8.8895e+94

Columns 457 through 462:

1.4384e+95 2.3273e+95 3.7657e+95 6.0930e+95 9.8586e+95 1.5952e+96

Columns 463 through 468:

2.5810e+96 4.1762e+96 6.7572e+96 1.0933e+97 1.7691e+97 2.8624e+97

Columns 469 through 474:

4.6315e+97 7.4939e+97 1.2125e+98 1.9619e+98 3.1745e+98 5.1364e+98

Columns 475 through 480:

8.3108e+98 1.3447e+99 2.1758e+99 3.5205e+99 5.6963e+99 9.2168e+99

Columns 481 through 486:

1.4913e+100 2.4130e+100 3.9043e+100 6.3173e+100 1.0222e+101 1.6539e+101

Columns 487 through 492:

2.6761e+101 4.3300e+101 7.0060e+101 1.1336e+102 1.8342e+102 2.9678e+102

Columns 493 through 498:

4.8020e+102 7.7698e+102 1.2572e+103 2.0342e+103 3.2913e+103 5.3255e+103

Columns 499 through 504:

8.6168e+103 1.3942e+104 2.2559e+104 3.6501e+104 5.9061e+104 9.5562e+104

Columns 505 through 510:

1.5462e+105 2.5018e+105 4.0481e+105 6.5499e+105 1.0598e+106 1.7148e+106

Columns 511 through 516:

2.7746e+106 4.4894e+106 7.2640e+106 1.1753e+107 1.9017e+107 3.0771e+107

Columns 517 through 522:

4.9788e+107 8.0559e+107 1.3035e+108 2.1091e+108 3.4125e+108 5.5216e+108

Columns 523 through 528:

8.9341e+108 1.4456e+109 2.3390e+109 3.7845e+109 6.1235e+109 9.9081e+109

Columns 529 through 534:

1.6032e+110 2.5940e+110 4.1971e+110 6.7911e+110 1.0988e+111 1.7779e+111

Columns 535 through 540:

David Stalin Moya Román 13

 Deber N 2

2.8768e+111 4.6547e+111 7.5314e+111 1.2186e+112 1.9718e+112 3.1904e+112

Columns 541 through 546:

5.1621e+112 8.3525e+112 1.3515e+113 2.1867e+113 3.5382e+113 5.7249e+113

Columns 547 through 552:

9.2631e+113 1.4988e+114 2.4251e+114 3.9239e+114 6.3490e+114 1.0273e+115

Columns 553 through 558:

1.6622e+115 2.6895e+115 4.3517e+115 7.0411e+115 1.1393e+116 1.8434e+116

Columns 559 through 564:

2.9827e+116 4.8261e+116 7.8087e+116 1.2635e+117 2.0444e+117 3.3078e+117

Columns 565 through 570:

5.3522e+117 8.6600e+117 1.4012e+118 2.2672e+118 3.6684e+118 5.9357e+118

Columns 571 through 576:

9.6041e+118 1.5540e+119 2.5144e+119 4.0684e+119 6.5828e+119 1.0651e+120

Columns 577 through 582:

1.7234e+120 2.7885e+120 4.5119e+120 7.3004e+120 1.1812e+121 1.9113e+121

Columns 583 through 588:

3.0925e+121 5.0038e+121 8.0963e+121 1.3100e+122 2.1196e+122 3.4296e+122

Columns 589 through 594:

5.5493e+122 8.9789e+122 1.4528e+123 2.3507e+123 3.8035e+123 6.1542e+123

Columns 595 through 600:

9.9577e+123 1.6112e+124 2.6070e+124 4.2182e+124 6.8251e+124 1.1043e+125

Columns 601 through 606:

1.7868e+125 2.8912e+125 4.6780e+125 7.5692e+125 1.2247e+126 1.9816e+126

Columns 607 through 612:

3.2064e+126 5.1880e+126 8.3944e+126 1.3582e+127 2.1977e+127 3.5559e+127

Columns 613 through 618:

5.7536e+127 9.3095e+127 1.5063e+128 2.4373e+128 3.9436e+128 6.3808e+128

Columns 619 through 624:

1.0324e+129 1.6705e+129 2.7030e+129 4.3735e+129 7.0764e+129 1.1450e+130

Columns 625 through 630:

1.8526e+130 2.9976e+130 4.8503e+130 7.8479e+130 1.2698e+131 2.0546e+131

Columns 631 through 636:

3.3244e+131 5.3790e+131 8.7034e+131 1.4082e+132 2.2786e+132 3.6868e+132

Columns 637 through 642:

David Stalin Moya Román 14

 Deber N 2

5.9654e+132 9.6523e+132 1.5618e+133 2.5270e+133 4.0888e+133 6.6158e+133

Columns 643 through 648:

1.0705e+134 1.7320e+134 2.8025e+134 4.5345e+134 7.3370e+134 1.1872e+135

Columns 649 through 654:

1.9209e+135 3.1080e+135 5.0289e+135 8.1369e+135 1.3166e+136 2.1303e+136

Columns 655 through 660:

3.4468e+136 5.5771e+136 9.0239e+136 1.4601e+137 2.3625e+137 3.8226e+137

Columns 661 through 666:

6.1851e+137 1.0008e+138 1.6193e+138 2.6200e+138 4.2393e+138 6.8594e+138

Columns 667 through 672:

1.1099e+139 1.7958e+139 2.9057e+139 4.7015e+139 7.6071e+139 1.2309e+140

Columns 673 through 678:

1.9916e+140 3.2224e+140 5.2140e+140 8.4365e+140 1.3650e+141 2.2087e+141

Columns 679 through 684:

3.5737e+141 5.7824e+141 9.3562e+141 1.5139e+142 2.4495e+142 3.9633e+142

Columns 685 through 690:

6.4128e+142 1.0376e+143 1.6789e+143 2.7165e+143 4.3954e+143 7.1119e+143

Columns 691 through 696:

1.1507e+144 1.8619e+144 3.0127e+144 4.8746e+144 7.8872e+144 1.2762e+145

Columns 697 through 702:

2.0649e+145 3.3411e+145 5.4060e+145 8.7471e+145 1.4153e+146 2.2900e+146

Columns 703 through 708:

3.7053e+146 5.9953e+146 9.7007e+146 1.5696e+147 2.5397e+147 4.1093e+147

Columns 709 through 714:

6.6489e+147 1.0758e+148 1.7407e+148 2.8165e+148 4.5572e+148 7.3738e+148

Columns 715 through 720:

1.1931e+149 1.9305e+149 3.1236e+149 5.0541e+149 8.1776e+149 1.3232e+150

Columns 721 through 726:

2.1409e+150 3.4641e+150 5.6050e+150 9.0691e+150 1.4674e+151 2.3743e+151

Columns 727 through 732:

3.8418e+151 6.2161e+151 1.0058e+152 1.6274e+152 2.6332e+152 4.2606e+152

Columns 733 through 738:

6.8937e+152 1.1154e+153 1.8048e+153 2.9202e+153 4.7250e+153 7.6453e+153

Columns 739 through 744:

David Stalin Moya Román 15

 Deber N 2

1.2370e+154 2.0016e+154 3.2386e+154 5.2402e+154 8.4787e+154 1.3719e+155

Columns 745 through 750:

2.2198e+155 3.5917e+155 5.8114e+155 9.4031e+155 1.5214e+156 2.4618e+156

Columns 751 through 756:

3.9832e+156 6.4450e+156 1.0428e+157 1.6873e+157 2.7301e+157 4.4174e+157

Columns 757 through 762:

7.1476e+157 1.1565e+158 1.8713e+158 3.0278e+158 4.8990e+158 7.9268e+158

Columns 763 through 768:

1.2826e+159 2.0753e+159 3.3578e+159 5.4331e+159 8.7909e+159 1.4224e+160

Columns 769 through 774:

2.3015e+160 3.7239e+160 6.0254e+160 9.7493e+160 1.5775e+161 2.5524e+161

Columns 775 through 780:

4.1299e+161 6.6823e+161 1.0812e+162 1.7494e+162 2.8307e+162 4.5801e+162

Columns 781 through 786:

7.4107e+162 1.1991e+163 1.9402e+163 3.1392e+163 5.0794e+163 8.2186e+163

Columns 787 through 792:

1.3298e+164 2.1517e+164 3.4815e+164 5.6331e+164 9.1146e+164 1.4748e+165

Columns 793 through 798:

2.3862e+165 3.8610e+165 6.2473e+165 1.0108e+166 1.6356e+166 2.6464e+166

Columns 799 through 804:

4.2819e+166 6.9283e+166 1.1210e+167 1.8139e+167 2.9349e+167 4.7487e+167

Columns 805 through 810:

7.6836e+167 1.2432e+168 2.0116e+168 3.2548e+168 5.2664e+168 8.5213e+168

Columns 811 through 816:

1.3788e+169 2.2309e+169 3.6097e+169 5.8406e+169 9.4502e+169 1.5291e+170

Columns 817 through 822:

2.4741e+170 4.0032e+170 6.4773e+170 1.0480e+171 1.6958e+171 2.7438e+171

Columns 823 through 828:

4.4396e+171 7.1834e+171 1.1623e+172 1.8806e+172 3.0429e+172 4.9236e+172

Columns 829 through 834:

7.9665e+172 1.2890e+173 2.0857e+173 3.3747e+173 5.4603e+173 8.8350e+173

Columns 835 through 840:

1.4295e+174 2.3130e+174 3.7426e+174 6.0556e+174 9.7982e+174 1.5854e+175

Columns 841 through 846:

David Stalin Moya Román 16

 Deber N 2

2.5652e+175 4.1506e+175 6.7158e+175 1.0866e+176 1.7582e+176 2.8448e+176

Columns 847 through 852:

4.6031e+176 7.4479e+176 1.2051e+177 1.9499e+177 3.1550e+177 5.1049e+177

Columns 853 through 858:

8.2598e+177 1.3365e+178 2.1625e+178 3.4989e+178 5.6614e+178 9.1603e+178

Columns 859 through 864:

1.4822e+179 2.3982e+179 3.8804e+179 6.2786e+179 1.0159e+180 1.6438e+180

Columns 865 through 870:

2.6596e+180 4.3034e+180 6.9630e+180 1.1266e+181 1.8229e+181 2.9496e+181

Columns 871 through 876:

4.7725e+181 7.7221e+181 1.2495e+182 2.0217e+182 3.2711e+182 5.2928e+182

Columns 877 through 882:

8.5640e+182 1.3857e+183 2.2421e+183 3.6278e+183 5.8698e+183 9.4976e+183

Columns 883 through 888:

1.5367e+184 2.4865e+184 4.0232e+184 6.5097e+184 1.0533e+185 1.7043e+185

Columns 889 through 894:

2.7576e+185 4.4618e+185 7.2194e+185 1.1681e+186 1.8901e+186 3.0582e+186

Columns 895 through 900:

4.9483e+186 8.0065e+186 1.2955e+187 2.0961e+187 3.3916e+187 5.4877e+187

Columns 901 through 906:

8.8793e+187 1.4367e+188 2.3246e+188 3.7613e+188 6.0860e+188 9.8473e+188

Columns 907 through 912:

1.5933e+189 2.5781e+189 4.1714e+189 6.7494e+189 1.0921e+190 1.7670e+190

Columns 913 through 918:

2.8591e+190 4.6261e+190 7.4852e+190 1.2111e+191 1.9597e+191 3.1708e+191

Columns 919 through 924:

5.1305e+191 8.3013e+191 1.3432e+192 2.1733e+192 3.5165e+192 5.6898e+192

Columns 925 through 930:

9.2062e+192 1.4896e+193 2.4102e+193 3.8998e+193 6.3100e+193 1.0210e+194

Columns 931 through 936:

1.6520e+194 2.6730e+194 4.3250e+194 6.9980e+194 1.1323e+195 1.8321e+195

Columns 937 through 942:

2.9644e+195 4.7965e+195 7.7608e+195 1.2557e+196 2.0318e+196 3.2875e+196

Columns 943 through 948:

David Stalin Moya Román 17

 Deber N 2

5.3194e+196 8.6069e+196 1.3926e+197 2.2533e+197 3.6459e+197 5.8993e+197

Columns 949 through 954:

9.5452e+197 1.5444e+198 2.4990e+198 4.0434e+198 6.5424e+198 1.0586e+199

Columns 955 through 960:

1.7128e+199 2.7714e+199 4.4842e+199 7.2556e+199 1.1740e+200 1.8995e+200

Columns 961 through 966:

3.0735e+200 4.9731e+200 8.0466e+200 1.3020e+201 2.1066e+201 3.4086e+201

Columns 967 through 972:

5.5152e+201 8.9238e+201 1.4439e+202 2.3363e+202 3.7802e+202 6.1165e+202

Columns 973 through 978:

9.8967e+202 1.6013e+203 2.5910e+203 4.1923e+203 6.7833e+203 1.0976e+204

Columns 979 through 984:

1.7759e+204 2.8734e+204 4.6493e+204 7.5228e+204 1.2172e+205 1.9695e+205

Columns 985 through 990:

3.1867e+205 5.1562e+205 8.3429e+205 1.3499e+206 2.1842e+206 3.5341e+206

Columns 991 through 996:

5.7183e+206 9.2524e+206 1.4971e+207 2.4223e+207 3.9194e+207 6.3417e+207

Columns 997 through 1000:

1.0261e+208 1.6603e+208 2.6864e+208 4.3467e+208

Explicación
La función fib1000() realiza su cometido de calcular los 1000 primeros números me-
diante la generación automatica de un vector en el cual unicamente se conocen desde
un inicio los dos primeros valores de las 2 primeras posiciones ya que a partir de ellos
se calcula su secuencia ya que la serie de fibbonasi se gnera desde dos 1’s como inicio
y los siguientes valores de la serie sera la suma algebráica de los dos valores anteriores,
esto se ejecuta mediante un bucle que suma uno a uno los valores anteriores al valor
que se necesita y por ultimo se imprime dicho vector.
6. Implemente un código que indique si un numero natural es par, además debe descom-
poner en sus factores primos.
Código Octave
%UNIVERSIDAD DE LAS FUERZAS ARMADAS ESPE
%DAVID MOYA
%2917
%FUNCION PARA GRAFICA DE FUNCIONES
function ParPri ( )

numero=input ( ’ I n g r e s e un numero N a t u r a l que d e s e a e v a l u a r : ’);

i f mod( numero , 2 )==0

David Stalin Moya Román 18

 Deber N 2

f p r i n t f ( ’ El numero : %d e s par . \n ’ , numero ) ;

else
f p r i n t f ( ’ El numero : %d e s impar . \n ’ , numero ) ;
endif
n=2;
f p r i n t f ( ’ Los f a c t o r e s primos de %d son : \n ’ , numero ) ;

while ( numero !=1)

i f (mod( numero , n )==0)
f p r i n t f ( ’ %d \ t ’ , n ) ;
numero=numero/n ;
else
n=n+1;
endif

endwhile

endfunction

Ejecución del código

>> ParPri()
Ingrese un numero Natural que desea evaluar: 1224356789
El numero: 1224356789 es impar.
Los factores primos de 1224356789 son:
19 1301 49531

Explicación
La fucnión ParPri() funciona solicitando primero el número natural que se desea eva-
luar este número debe cumplir con una condición para ser conciderado par y si no la
cumple pues sera conciderado impar después de analizar esta condición se realiza la
descomoposición del número en sus factores primos realizando la evaluación para todos
los números desde el 2 hasta el que se avalua mediante un while el cual va a a evaluar
cuales de los números para el que el que se esta evaluando es divisble cumplen con la
condición de ser primos, dicha condición es que sean unicamente divisibles para ellos
mismos y para 1 después de realizar el analisis se procede a la impresión de los valores
que cumplen con la condición.

David Stalin Moya Román 19