Skip to main content
se añadieron 1906 caracteres en el cuerpo
Origen Enlace

Estoy tratando de que los valores que pido para las variables Z se utilizen en el sub proceso, esto para que pueda variar la funcion. Es un proceso matematico que estoy realizando, especificamente es el metodo de newton 1/3  .introducir la descripción de la imagen aquí..................................................................................................................................................................................................................................................

SubProceso F <- funcin(x)

F = (z5*x^5)-(z4*x^4)+(z3*x^3)-(z2*x^2)+(z1*x)+z0;

FinSubProceso

Proceso MSU

Definir i Como Entero;
Definir fx, x, n, h, integrala, integralb, intab Como Real;
Definir z5,z4,z3,z2,z1,z0 Como Real;

Escribir "Ecuacion z5x^5 - z4*x^4 + z3*x^3 - z2*x^2 + z1*x + z0";
Escribir "";
Escribir  "Ingresa el valor de Z0: "; Leer z0;
Escribir  "Ingresa el valor de Z1: "; Leer z1;
Escribir  "Ingresa el valor de Z2: "; Leer z2;
Escribir  "Ingresa el valor de Z3: "; Leer z3;
Escribir  "Ingresa el valor de Z4: "; Leer z4;
Escribir  "Ingresa el valor de Z5: "; Leer z5;
Escribir "";
Escribir "Ingresar el valor de a: "; Leer a;
Escribir "Ingresar el valor de b: "; Leer b;
Escribir "Numero de trapecios: "; Leer n;


s1 = 0;
s2 = 0;
x = a;
h = (b-a)/n;

integrala = (400/6)*(a^6) - (900/5)*(a^5) + (675/4)*(a^4) - (200/3)*(a^3) + (25/2)*(a^2)+ 0.2*a;
integralb = (400/6)*(b^6) - (900/5)*(b^5) + (675/4)*(b^4) - (200/3)*(b^3) + (25/2)*(b^2)+ 0.2*b;

intReal = integralb - integrala; //valor de la integral real

Escribir "";

Si n=2 Entonces
    
    x = x+h;
    s1 = s1 + funcin(x);
    area = (h/3)*(funcin(a)+funcin(b)+(4*s1)+(2*s2));
    
    Escribir "El area es: ",area;
SiNo
    lim2 = ((n/2)-1);
    Para i<-1 Hasta lim2 Con Paso 1 Hacer
        
        x = x+h;
        s1 = s1+funcin(x);
        
        x = x+h;
        s2 = s2+funcin(x);
        
    Fin Para
    
    x = x+h;
    s1 = s1+funcin(x);
    
    area = (h/3)*(funcin(a)+funcin(b)+(4*s1)+(2*s2));
    
    Escribir "";
    Escribir "El area es : ",area;
    
Fin Si


error = ((intReal - area)/intReal)*100;

Escribir "";
Escribir "integral real = ",intReal;
Escribir "";
Escribir "El error es: ",error;

FinProceso

Estoy tratando de que los valores que pido para las variables Z se utilizen en el sub proceso, esto para que pueda variar la funcion. Es un proceso matematico que estoy realizando, especificamente es el metodo de newton 1/3.introducir la descripción de la imagen aquí

Estoy tratando de que los valores que pido para las variables Z se utilizen en el sub proceso, esto para que pueda variar la funcion. Es un proceso matematico que estoy realizando, especificamente es el metodo de newton  ...................................................................................................................................................................................................................................................

SubProceso F <- funcin(x)

F = (z5*x^5)-(z4*x^4)+(z3*x^3)-(z2*x^2)+(z1*x)+z0;

FinSubProceso

Proceso MSU

Definir i Como Entero;
Definir fx, x, n, h, integrala, integralb, intab Como Real;
Definir z5,z4,z3,z2,z1,z0 Como Real;

Escribir "Ecuacion z5x^5 - z4*x^4 + z3*x^3 - z2*x^2 + z1*x + z0";
Escribir "";
Escribir  "Ingresa el valor de Z0: "; Leer z0;
Escribir  "Ingresa el valor de Z1: "; Leer z1;
Escribir  "Ingresa el valor de Z2: "; Leer z2;
Escribir  "Ingresa el valor de Z3: "; Leer z3;
Escribir  "Ingresa el valor de Z4: "; Leer z4;
Escribir  "Ingresa el valor de Z5: "; Leer z5;
Escribir "";
Escribir "Ingresar el valor de a: "; Leer a;
Escribir "Ingresar el valor de b: "; Leer b;
Escribir "Numero de trapecios: "; Leer n;


s1 = 0;
s2 = 0;
x = a;
h = (b-a)/n;

integrala = (400/6)*(a^6) - (900/5)*(a^5) + (675/4)*(a^4) - (200/3)*(a^3) + (25/2)*(a^2)+ 0.2*a;
integralb = (400/6)*(b^6) - (900/5)*(b^5) + (675/4)*(b^4) - (200/3)*(b^3) + (25/2)*(b^2)+ 0.2*b;

intReal = integralb - integrala; //valor de la integral real

Escribir "";

Si n=2 Entonces
    
    x = x+h;
    s1 = s1 + funcin(x);
    area = (h/3)*(funcin(a)+funcin(b)+(4*s1)+(2*s2));
    
    Escribir "El area es: ",area;
SiNo
    lim2 = ((n/2)-1);
    Para i<-1 Hasta lim2 Con Paso 1 Hacer
        
        x = x+h;
        s1 = s1+funcin(x);
        
        x = x+h;
        s2 = s2+funcin(x);
        
    Fin Para
    
    x = x+h;
    s1 = s1+funcin(x);
    
    area = (h/3)*(funcin(a)+funcin(b)+(4*s1)+(2*s2));
    
    Escribir "";
    Escribir "El area es : ",area;
    
Fin Si


error = ((intReal - area)/intReal)*100;

Escribir "";
Escribir "integral real = ",intReal;
Escribir "";
Escribir "El error es: ",error;

FinProceso

Origen Enlace

Como enviar mis variables Z al subproceso?

Estoy tratando de que los valores que pido para las variables Z se utilizen en el sub proceso, esto para que pueda variar la funcion. Es un proceso matematico que estoy realizando, especificamente es el metodo de newton 1/3.introducir la descripción de la imagen aquí