Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <stdio.h>
- #include<math.h>
- #define PI 3.14
- #define G 9.89
- int main(){
- double Fd, Vs, R, pp, vis, pf;
- char fluido,opcion;
- printf("Ingrese letra del material que desee \n");
- printf(">Hierro(H) \n");
- printf(">Aluminio(A)\n");
- printf(">Cobre(C) \n");
- printf(">Plomo(P)\n");
- printf(">Volframio(V) \n");
- scanf("%c",&opcion);
- Fd= 6*PI*R*Vs*vis;
- Vs=(2/9)*((R*R*G*(pp-pf))/vis);
- switch(opcion){
- case 'H' :
- pp=7.88*1000;
- printf("Ingrese el fuido en el que se moverá la partícula:\n");
- printf(">Agua(A1) \n");
- printf(">Glicerina(G)\n");
- printf(">Benceno(B) \n");
- printf(">Aceite(C1)\n");
- scanf("%c",&fluido);
- switch(fluido){
- case 'A':
- pf= 1.0*1000;
- vis=0.00105;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'G':
- pf= 1.26*1000;
- vis=1.3923;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'B':
- pf= 0.88*1000;
- vis=0.000673;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'C':
- pf= 0.88*1000;
- vis=0.391;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- }
- break;
- case 'A':
- pp=2.70*1000;
- printf("Ingrese el fuido en el que se moverá la partícula:\n");
- printf(">Agua(A1) \n");
- printf(">Glicerina(G)\n");
- printf(">Benceno(B) \n");
- printf(">Aceite(C1)\n");
- scanf("%c",&fluido);
- switch(fluido){
- case 'A':
- pf= 1.0*1000;
- vis=0.00105;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'G':
- pf= 1.26*1000;
- vis=1.3923;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'B':
- pf= 0.88*1000;
- vis=0.000673;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'C':
- pf= 0.88*1000;
- vis=0.391;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- }
- break;
- case 'C':
- pp=8.93*1000;
- printf("Ingrese el fuido en el que se moverá la partícula:\n");
- printf(">Agua(A1) \n");
- printf(">Glicerina(G)\n");
- printf(">Benceno(B) \n");
- printf(">Aceite(C1)\n");
- scanf("%c",&fluido);
- switch (fluido) {
- case 'A':
- pf= 1.0*1000;
- vis=0.00105;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'G':
- pf= 1.26*1000;
- vis=1.3923;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'B':
- pf= 0.88*1000;
- vis=0.000673;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'C':
- pf= 0.88*1000;
- vis=0.391;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- }
- break;
- case 'P':
- pp=11.35*1000;
- printf("Ingrese el fuido en el que se moverá la partícula:\n");
- printf(">Agua(A1) \n");
- printf(">Glicerina(G)\n");
- printf(">Benceno(B) \n");
- printf(">Aceite(C1)\n");
- scanf("%c",&fluido);
- switch (fluido) {
- case 'A':
- pf= 1.0*1000;
- vis=0.00105;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'G':
- pf= 1.26*1000;
- vis=1.3923;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'B':
- pf= 0.88*1000;
- vis=0.000673;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- case 'C':
- pf= 0.88*1000;
- vis=0.391;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n",Vs,Fd);
- break;
- }
- break;
- case 'V':
- pp=19.34*1000;
- printf("Ingrese el fuido en el que se moverá la partícula:\n");
- printf(">Agua(A1) \n");
- printf(">Glicerina(G)\n");
- printf(">Benceno(B) \n");
- printf(">Aceite(C1)\n");
- scanf("%c",&fluido);
- switch (fluido) {
- case 'A':
- pf= 1.0*1000;
- vis=0.00105;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n", Vs,Fd);
- break;
- case 'G':
- pf= 1.26*1000;
- vis=1.3923;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n", Vs,Fd);
- break;
- case 'B':
- pf= 0.88*1000;
- vis=0.000673;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n", Vs, Fd);
- break;
- case 'C':
- pf= 0.88*1000;
- vis=0.391;
- printf("Ingrese radio R de la esfera \n");
- scanf("%lf",&R);
- printf("La velocidad de caída es: %lf y la ley de stokes es: %lf \n", Vs,Fd);
- break;
- }
- break;
- }
- return 0;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement