
Programa De Secuencias ayuda.
Publicado por Carlos (4 intervenciones) el 09/05/2014 05:48:26
Tengo desarrollado este pequeño programa, el cual me encuentra un valores deseados, el cual por necesidad logre desarrollarlos hasta el grado que necesitaba para un trabajo de la Universidad.
Mis conocimientos son limitados intente desarrollarlo para poder encontrar un valor de grado N pero no logro resultados. si alguien pudiera darme una mano estaría muy agradecido.
la forma que me gustaría obtener es una ecuación de grado N..
Ecuacion:
"" Bn=b(n)-(a(1)*B(n-1))-(a(2)*B(n-2))-(a(3)*B(n-3))........ -(a(n)*B(0)) ""
Adjunto el programa q desarrolle según mi necesidad.
% **** programa para encontrar los balores de beta ***
grado=input('Introduzca el Grado de la ecucion: n= ');
for a=1:1
n=grado;
disp('El grado de la ecuacion diferencial es:'),disp(n)
if n==1
a1=input('valor de a1: ');
a2=input('valor de a2: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
end
if n==2
a1=input('valor de a1: ');
a2=input('valor de a2: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
end
if n==3
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
end
if n==4
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
a4=input('valor de a4: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
b4=input('valor de b4: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
B4=(b4-(a1*B3)-(a2*B2)-(a3*B1)-(a4*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
disp('el valor de B4 es:');
disp(B4)
end
if n==5
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
a4=input('valor de a4: ');
a5=input('valor de a5: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
b4=input('valor de b4: ');
b5=input('valor de b5: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
B4=(b4-(a1*B3)-(a2*B2)-(a3*B1)-(a4*B0));
B5=(b5-(a1*B4)-(a2*B3)-(a3*B3)-(a4*B1)-(a5*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
disp('el valor de B4 es:');
disp(B4)
disp('el valor de B5 es:')
disp(B5)
end
if n==6
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
a4=input('valor de a4: ');
a5=input('valor de a5: ');
a6=input('valor de a6: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
b4=input('valor de b4: ');
b5=input('valor de b5: ');
b6=input('valor de b6: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
B4=(b4-(a1*B3)-(a2*B2)-(a3*B1)-(a4*B0));
B5=(b5-(a1*B4)-(a2*B3)-(a3*B3)-(a4*B1)-(a5*B0));
B6=(b6-(a1*B5)-(a2*B4)-(a3*B3)-(a4*B2)-(a5*B1)-(a6*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
disp('el valor de B4 es:');
disp(B4)
disp('el valor de B5 es:')
disp(B5)
disp('el valor de B6 es:');
disp(B6)
end
end
Agradecido de antemano Carlos De Gumucio.
Mis conocimientos son limitados intente desarrollarlo para poder encontrar un valor de grado N pero no logro resultados. si alguien pudiera darme una mano estaría muy agradecido.
la forma que me gustaría obtener es una ecuación de grado N..
Ecuacion:
"" Bn=b(n)-(a(1)*B(n-1))-(a(2)*B(n-2))-(a(3)*B(n-3))........ -(a(n)*B(0)) ""
Adjunto el programa q desarrolle según mi necesidad.
% **** programa para encontrar los balores de beta ***
grado=input('Introduzca el Grado de la ecucion: n= ');
for a=1:1
n=grado;
disp('El grado de la ecuacion diferencial es:'),disp(n)
if n==1
a1=input('valor de a1: ');
a2=input('valor de a2: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
end
if n==2
a1=input('valor de a1: ');
a2=input('valor de a2: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
end
if n==3
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
end
if n==4
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
a4=input('valor de a4: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
b4=input('valor de b4: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
B4=(b4-(a1*B3)-(a2*B2)-(a3*B1)-(a4*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
disp('el valor de B4 es:');
disp(B4)
end
if n==5
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
a4=input('valor de a4: ');
a5=input('valor de a5: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
b4=input('valor de b4: ');
b5=input('valor de b5: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
B4=(b4-(a1*B3)-(a2*B2)-(a3*B1)-(a4*B0));
B5=(b5-(a1*B4)-(a2*B3)-(a3*B3)-(a4*B1)-(a5*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
disp('el valor de B4 es:');
disp(B4)
disp('el valor de B5 es:')
disp(B5)
end
if n==6
a1=input('valor de a1: ');
a2=input('valor de a2: ');
a3=input('valor de a3: ');
a4=input('valor de a4: ');
a5=input('valor de a5: ');
a6=input('valor de a6: ');
b0=input('valor de b0: ');
b1=input('valor de b1: ');
b2=input('valor de b2: ');
b3=input('valor de b3: ');
b4=input('valor de b4: ');
b5=input('valor de b5: ');
b6=input('valor de b6: ');
B0=b0;
B1=(b1-(a1*B0));
B2=(b2-(a1*B1)-(a2*B0));
B3=(b3-(a1*B2)-(a2*B1)-(a3*B0));
B4=(b4-(a1*B3)-(a2*B2)-(a3*B1)-(a4*B0));
B5=(b5-(a1*B4)-(a2*B3)-(a3*B3)-(a4*B1)-(a5*B0));
B6=(b6-(a1*B5)-(a2*B4)-(a3*B3)-(a4*B2)-(a5*B1)-(a6*B0));
disp('el valor de B0 es:');
disp(B0)
disp('el valor de B1 es:')
disp(B1)
disp('el valor de B2 es:');
disp(B2)
disp('el valor de B3 es:')
disp(B3)
disp('el valor de B4 es:');
disp(B4)
disp('el valor de B5 es:')
disp(B5)
disp('el valor de B6 es:');
disp(B6)
end
end
Agradecido de antemano Carlos De Gumucio.
Valora esta pregunta


0