Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  prueba
Language: C/C++
Code:
#include<stdio.h>

int main() {
     float ac;
     float al;
     float ap;
     float api;
     float d;
     float dgc;
     float l;
     float pa;
     float pb;
     float perm;
     float q;
     float sgc;
     float so;
     float vc;
     printf("PAG 221 6-1 Determinar el caudal en la muestra cilíndrica de roca caliza inclinada por la cual fluye un crudo con API de 35º. El cilindro tiene las siguientes dimensiones: diámetro = 7,979 ft, longitud = 25 ft. La diferencia de altura entre la parte superior (punto A) e inferior (punto B) de la muestra es de 5 ft. La presión registrada en los puntos A y B son 50 y 52 psi respectivamente. Además, la viscosidad del crudo es de 2,0 cp y la permeabilidad de la muestra es 0,732 darcy.\n");
     printf("================================\n");
     printf("Necesitamos 8 datos\n");
     printf("================================\n");
     printf("1 crudo en api °API\n");
     printf("2 diametro ft\n");
     printf("3 longitud ft\n");
     printf("4 diferencia de altura entre A y B ft\n");
     printf("5 presion en A psi\n");
     printf("6 presion en B psi\n");
     printf("7 viscosidad de crudo cp\n");
     printf("8 permeabilidad MILIdarcy\n");
     printf("=====NOTA LA LETRA A SIGNIFICA DELTA=====\n");
     scanf("%f",&api);
     scanf("%f",&d);
     scanf("%f",&l);
     scanf("%f",&al);
     scanf("%f",&pa);
     scanf("%f",&pb);
     scanf("%f",&vc);
     scanf("%f",&perm);
     sgc = (141.5/(131.5+api));
     dgc = sgc*0.433;
     ac = (3.141592/4)*(d*d);
     so = al/l;
     q = 0.001126*((perm*ac)/vc)*(((pa-pb)/l)+dgc*so);
     printf("================SOLUCION===================\n");
     printf("SGC=(141.5/(131.5+API))\n");
     printf("SGC=(141.5/(131.5+%f)=%f\n",api,sgc);
     printf("SGC=DGC/DGAS ENTONCES\n");
     printf("DGC=SGC*DGAS=%f*0.433=%fpsi/ft\n",sgc,dgc);
     printf("AC=(pi/4)*(D^2)\n");
     printf("AC=(pi/4)*(%f^2)=%fft2\n",d,ac);
     printf("SIN.O = AL/L=%f/%f=%f\n",al,l,so);
     printf("Q=0.001126 *((K*A)/u)*(((AP)/L)+DGC*SIN.O)\n");
     printf("Q=0.001126 *((%f*%f)/%f)*(((%f-%f)/%f)+%f*%f)=%fBBL/DIA\n",perm,ac,vc,pa,pb,l,dgc,so,q);
     return 0;
}
     
Comments: