10 CLEAR:CLS:DEFCHR$(255)="C6AA92828200":S$=CHR$(255)
20 PRINT," CAUDALES DE DISENO DE UN RAMAL":DRAW(103,6)-(105,6):GOSUB999
30 CLS:INPUT"Volumen de agua en periodo punta[m3/Ha] V=",V,"Tiempo de riego en periodo punta[dias] T=",T
40 q=V*10^3/T/86400:PRINT"Caudal ficticio continuo","q=";q;"l/seg.Ha"
50 INPUT"Rendimiento r=",r,"Garantia de suministro GS=",GS:GOSUB500
60 PRINT"U=";U
70 INPUT"No.de tramos=",N
80 FOR I=1 TO N
90 CLS:PRINTREV" TRAMO ";I;NORM
100 INPUT"Superficie a regar [Ha]         S=",s:S=S+s:PRINTS$;"S=";S
110 INPUT"Grado de libertad GL=",GL
120 d=q*s*GL:PRINT"dotacion d=";d;"l/seg"
130 IF FRACd THEN d=FIXd+1
140 IF d MOD 2 THEN d=d+1
150 D=D+d:PRINT"redondeo d=";d;"l/seg",S$;"d=";D:GOSUB999
160 dp=q/r*s:DP=DP+dp:a=dp*(d-dp):A=A+a
170 CLS:PRINT"d.p=";dp,S$;"d.p=";DP,"d.p(d-d.p)=";a,S$;"d.p(d-d.p)=";A;:GOSUB999
180 Q=DP+U*SQRA:IF Q<D THEN QD=Q ELSE QD=D
190 CLS:PRINTS$;"d=";D,"Q=";Q,"Caudal diseno=";QD;:GOSUB999
200 NEXTI
500 I=GS-89:FOR J=1 TO I:READ U:NEXT J
510 DATA1.28,1.34,1.41,1.48,1.56,1.65,1.75,1.88,2.05,2.33,2.58
520 RETURN
999 O$=INKEY$:IF O$="" GOTO 999 ELSE RETURN
