• Author / Uploaded
• Wilber Bautista Paquiyauri

Citation preview

new 3

3 de febrero de 2018 07:48

EXPORT DEMANDA_DE_AGUA() BEGIN LOCAL MENU,AAA1,BBB1,LIST1,LISTA1:={"CON AFORO","SIN AFORO"}; LOCAL n:=5,Xi:=0.5,La:=10,AFORO:=[[0]],Q,QR; REPEAT CHOOSE(MENU,"CALCULO DE DEMANDA DE AGUA",".➢ INGRESO DE DATOS",".➢ CALCULO",".✘ SALIR"); IF MENU==1 THEN INPUT({{AAA1,AAA1,{60,5,2}},{BBB1,BBB1,{60,5,4}}},"SELECCIONE UNA O LAS DOS",LISTA1,{"OPCION CON AFORO","OPCION SIN AFORO"}); IF AAA1==1 THEN INPUT({{n,[0],{10,15,3}},{Xi,[0],{45,15,3}},{La,[0],{80,15,3}}},"DATOS GENERALES",{"n =","Xi =","La ="},{"NUMERO DE INTERVALOS DE SECCIONAMIENTO","INTERVALO DE SECCIONAMIENTO (m)","DISTANCIA DE AFORAMIENTO (m)"}); M1:=REDIM(AFORO,{n,3}); FOR K FROM 1 TO n DO M1(K,1):=K*Xi; END; M1:=EDITMAT(M1,{"INTRODUCIR VALORES",{"1"},{"Xi","Yi","T(prom)",""}}); END; IF BBB1==1 THEN INPUT({{Q,[0],{45,15,3}}},"DATOS GENERALES",{"Q ="},{"CAUDAL AFORADO O DISPONIBLE EN m3/s"}); END; IF AAA1==1 AND BBB1==1 THEN AAA1:=0; BBB1:=0; INPUT({{AAA1,AAA1,{60,5,2}},{BBB1,BBB1,{60,5,4}}},"SELECCIONE UNA O LAS DOS",LISTA1,{"OPCION CON AFORO","OPCION SIN AFORO"}); END; END; IF MENU==2 THEN IF AAA1==1 THEN FOR K FROM 1 TO n DO M2(K,1):=M1(K,1); M2(K,2):=M1(K,2); M2(K,3):=M1(K,3); END; M2(n+1,1):=M1(1,1); M2(n+1,2):=M1(1,2); M2(n+1,3):=ΣLIST(col(M1,3)); T:=M2(n+1,3)/n; FOR K FROM 1 TO n DO M3(K,1):=M2(K,1); M3(K,2):=M2(K+1,2); M3(K,3):=M2(K+1,1); M3(K,4):=M2(K,2); M3(K,5):=M3(K,1)*M3(K,2); M3(K,6):=M3(K,3)*M3(K,4); END; M3:=REDIM(M3,{n,6}); M3:=EDITMAT(M3,{"CALCULO REALIZADO",{"1"},{"Xi","Yi","Xi","Yi","XiYi(IZ)","XiYi(DE)",""}}); A:=0.5*ABS(ΣLIST(col(M3,5))-ΣLIST(col(M3,6))); V:=La/T; Q:=V*A; QR:=0.1*Q; PRINT; PRINT(""); PRINT(" RESULTADOS"); PRINT(" ********************************************"); PRINT(" "); PRINT(" * AREA CALCULADA ="+ROUND(A,4)+" m2"); PRINT(" * TIEMPO CALCULADO ="+ROUND(T,4)+" seg"); PRINT(" * VELOCIDAD CALCULADO ="+ROUND(V,4)+" m/seg"); PRINT(" * CAUDAL AFORADO ="+ROUND(Q,4)+" m3/seg"); PRINT(" * CAUDAL MAXIMO DE CAPTACION ="+ROUND(QR,4)+" m3/seg"); -1-

new 3

3 de febrero de 2018 07:48

PRINT(" "); PRINT(" PRESIONE ESC O ENTER PARA CONTINUAR..."); WAIT(-1); END; IF BBB1==1 THEN QR:=0.1*Q; PRINT; PRINT(""); PRINT(" RESULTADOS"); PRINT(" ********************************************"); PRINT(" "); PRINT(" * CAUDAL MAXIMO DE CAPTACION ="+ROUND(QR,4)+" m3/seg"); PRINT(" "); PRINT(" PRESIONE ESC O ENTER PARA CONTINUAR..."); WAIT(-1); END; END; UNTIL MENU==3; MSGBOX("GRACIAS ✌"); END;

-2-

new 4

3 de febrero de 2018 07:49

EXPORT DEMANDA_DE_AGUA() BEGIN LOCAL MENU,LIST1,CONT,LISTA1:={"CON AFORO","SIN AFORO"},VLISTA1:={1,2}; LOCAL n:=5,Xi:=0.5,La:=10,AFORO:=[[0]],Q,QR; REPEAT CHOOSE(MENU,"CALCULO DE DEMANDA DE AGUA",".➢ INGRESO DE DATOS",".➢ CALCULO",".✘ SALIR"); IF MENU==1 THEN INPUT({{CONT,LISTA1,{40,30,3}}},"SELECCIONE LA OPCION",{"TIPO:"},{"TIPO DE CALCULO"}); IF VLISTA1(CONT)==1 THEN INPUT({{n,[0],{10,15,3}},{Xi,[0],{45,15,3}},{La,[0],{80,15,3}}},"DATOS GENERALES",{"n =","Xi =","La ="},{"NUMERO DE INTERVALOS DE SECCIONAMIENTO","INTERVALO DE SECCIONAMIENTO (m)","DISTANCIA DE AFORAMIENTO (m)"}); M1:=REDIM(AFORO,{n,3}); FOR K FROM 1 TO n DO M1(K,1):=K*Xi; END; M1:=EDITMAT(M1,{"INTRODUCIR VALORES",{"1"},{"Xi","Yi","T(prom)",""}}); END; IF VLISTA1(CONT)==2 THEN INPUT({{Q,[0],{45,15,3}}},"DATOS GENERALES",{"Q ="},{"CAUDAL AFORADO O DISPONIBLE EN m3/s"}); END; END; IF MENU==2 THEN IF VLISTA1(CONT)==1 THEN FOR K FROM 1 TO n DO M2(K,1):=M1(K,1); M2(K,2):=M1(K,2); M2(K,3):=M1(K,3); END; M2(n+1,1):=M1(1,1); M2(n+1,2):=M1(1,2); M2(n+1,3):=ΣLIST(col(M1,3)); T:=M2(n+1,3)/n; FOR K FROM 1 TO n DO M3(K,1):=M2(K,1); M3(K,2):=M2(K+1,2); M3(K,3):=M2(K+1,1); M3(K,4):=M2(K,2); M3(K,5):=M3(K,1)*M3(K,2); M3(K,6):=M3(K,3)*M3(K,4); END; M3:=REDIM(M3,{n,6}); M3:=EDITMAT(M3,{"CALCULO REALIZADO",{"1"},{"Xi","Yi","Xi","Yi","XiYi(IZ)","XiYi(DE)",""}}); A:=0.5*ABS(ΣLIST(col(M3,5))-ΣLIST(col(M3,6))); V:=La/T; Q:=V*A; QR:=0.1*Q; PRINT; PRINT(""); PRINT(" RESULTADOS"); PRINT(" ********************************************"); PRINT(" "); PRINT(" * AREA CALCULADA ="+ROUND(A,4)+" m2"); PRINT(" * TIEMPO CALCULADO ="+ROUND(T,4)+" seg"); PRINT(" * VELOCIDAD CALCULADO ="+ROUND(V,4)+" m/seg"); PRINT(" * CAUDAL AFORADO ="+ROUND(Q,4)+" m3/seg"); PRINT(" * CAUDAL MAXIMO DE CAPTACION ="+ROUND(QR,4)+" m3/seg"); PRINT(" "); PRINT(" PRESIONE ESC O ENTER PARA CONTINUAR..."); WAIT(-1); END; IF VLISTA1(CONT)==2 THEN QR:=0.1*Q; PRINT; -1-

new 4

3 de febrero de 2018 07:49

PRINT(""); PRINT(" RESULTADOS"); PRINT(" ********************************************"); PRINT(" "); PRINT(" * CAUDAL MAXIMO DE CAPTACION ="+ROUND(QR,4)+" m3/seg"); PRINT(" "); PRINT(" PRESIONE ESC O ENTER PARA CONTINUAR..."); WAIT(-1); END; END; UNTIL MENU==3; MSGBOX("GRACIAS ✌"); END;

-2-