Drenajes

Inicio - Poner nombre del programa

¿Conoce el caudal y la pendiente?

2.Caudal (Q) [m3/s]

Pendiente (m) [decimal]

ingresa Q y m

Seleccione el tipo de tubería que va a trabajar

1 Lisa

2 Corrugada

¿Es 1 (Lisa)?

Diam=(Q/((89*m^0.57)^(1/2.71)))

Diam=(Q/((38*m^0.55)^(1/2.67)))

Resultado Diam

Seleccione el estado

1 Estable

2 Inestable

¿Es 1 (Estable)?

Ingrese:

ps= profundidad del suelo [m]

pd= profundidad drenes [m]

*Para calcular D=ps-pd*

nd= norma de drenaje [m]

*Para calcular H=pd-nd*

K= conductividad [m/dia]

lr= lámina riego [mm]

Fr= frecuencia riego [dias]

E= eficiencia riego [decimal]

*Para calcular: lamina bruta ln=lr/E

perdidas=(ln-lr)*1000

recarga R=perdidas/Fr *

dia=diametro [m]

Li=longitud inicial [m]

Ingrese:

ps= profundidad del suelo [m]

pd= profundidad drenes [m]

*Para calcular D=ps-pd*

nd= norma de drenaje [m]

*Para calcular Ho=pd-nd*

poro=porosidad drenable [decimal]

lr= lámina riego [mm]

Fr= frecuencia riego [dias]

E= eficiencia riego [decimal]

*Para calcular: lamina bruta ln=lr/E

perdidas=(ln-lr)/1000

recarga R=perdidas/Fr

delta_H=R/poro

Ht=Ho+delta_H*

dia=diametro [m]

Li=longitud inicial [m]

Mostrar D, H, ln, perdidas, recarga

Calcular L2a=8KH/R

L2b=4HH/R

XXXL=1

While Li≠Lf

u=diam*pi/2

​​​​​L1_4=Li/a

Establecer Lf=9999999

L1_4<diam

Ecuación A

da=(pi*Li)/(8*log(Li/u)

Lf=Li

Li=sqrt(L2a*da+L2b)

L1_4=Li/4

Ecuación B

da=diam/(((8*diam)/pi*Li))*log(diam/u)+1)

Lf=Li

Li=sqrt(L2a*da+L2b)

L1_4=Li/4

Mostrar resultados

XXXL=1

L2=(10*K*Fr)/(poro*log(1.16*(Ho/Ht)))

u=diam*pi/2

​​​​​L1_4=Li/a

Establecer Lf=9999999

Hacer otra vez esto = creo

Se obtiene Li que es la sep. entre drenes

Simulación Zeuw-H

Detener

While Li≠Lf

show L1_4

L1_4<diam

Ecuación A

da=(pi*Li)/(8*log(Li/u)

Ecuación B

da=diam/(((8*diam)/pi*Li))*log(diam/u)+1)

Lf=Li

Li=sqrt(L2*da)

L1_4=Li/4

Lf=Li

Li=sqrt(L2*da)

L1_4=Li/4

Se obtiene Li que es la sep. entre drenes