SENAMHI PHI CAB
l H H
ORS TOM
PRO G R A MAS l N FOR MAT l COS
DEA N ALI SIS 0 E 5 E RIE 5
PLU V l 0 MET R ICA S MEN SUA LES
-CONSISTENCIA REGIONAL DE LLUVIAS "ENSUALES
-HIETOGRA"A "ENSUAL DE UNI. SERIE PLUVJO"ETRJCA
- CAR ACT ER 1 ST 1 CAS DE EST A CIO NE S SEC A S y HU" E D A S
WALTER GUZMAN y MICHEL-ALAIN ROCHE
··BOLIVIA~
JUNIO 19B5
Le logiciel présenté permet de dessiner trois types de graphiques
contribuant à l'analyse de la pluviométrie mensuelle ettnterannuelle,et régionale.
Il a été pr~grammé sur Goupil 3 ,F1ex 9 ,SBASIC ( 811) pour une
table traçante Hitachi.L'information de base est constituée par les fichiers
de pluies mensuelles établis par station.
Un menu, appelé par le programme" PAQ.UErE ", accompagné d'expli
cations détaillées, permet de selectioner un des trois programmes suivants:
-1- CONSISTANCE DES PLUIES MENSUELLES
Pour une région ou un bassin ressortent graphiquement les données
pluviométriques mensuelles disponibles.
En abscisse est tracée le millésime des années et les mois corres
pondants, pour une période maximale de 19 ans sur une même feuille. Le choiX de
l'année initiale rend en fait il1imitéé la période d'analyse, car il est possible
de continuer sur une autre feuille à partir de l'année ou a été coupée la période
précédente.
En ordonnées, sont inscrites les stations prises en considération.
Un nombre de 50 stations peut ~tre analysé h la fois Sur une même feuille.
Pour chaque station est tracé un trait horizontal qui s'interrompt
en cas de lacune mensuelle. Un trait dentelé est dessiné si la valeur mensuelle
a été reconstituée~
-2- Hlm'OGRAMME MENSUEL D'UNE SERIE PLUVrOMErRIQ.UE
La variation mensuelle d'une série pluviométrique pluriannuelle
est visualisée par le dessin des hietogrammes, à. partir du fichier mensuel.
Une série de 30 ans peut être tracée sur la m@me feuille, mais
le choix de la date initiale rend en fait le dessin possible pour n'importe quelle
durée en accollant les dessins successifs.
-3- CARACTERISTIQUE DES SAISONS SFX::HES ET HUMIDES
Pour une série pluviométrique mensuelle d'une station,apparaissent
le hietogramme de la saison séche, le pourcentage de la saison séche et humide
par rapport au--t~tal annuel , ainsi que leshauteU:l! pluvi9Jl1étriql,1E!~ en chiffres
des saisons séche· et humide respectivement.
Le disque de ce Jogiclel peut être adresse,~
à leur demande,aux chercheurs lntéressés.
IPHICAB
Cany.nio 1 SENAMHI / ORSTOM / IHH
CON515TENCIA DE LLUVIAS MENSUALES
eUE N C A ENOORREICA LAGO TITICACA C80LIVIA 1 PERU)
E5TACION 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 19·/4 1975 1976 1977 1978 1979 1980 1981 1982
-- -- -- -- -- --
mnr....,..,.,+--+--''-'''1----l---I--__1---+--_+_-''--+---J---+-nr--
-.....r.--t---+---+--+--+----t----l---l-------1f------'t-
1 AOlAtAOlI2 AGUW.AIIAYA3 AlllIRAIIIES4 l:AlAIlARCA5 QIACAlTAYA8 IIIWIOE7 DJlIRI8 lD'ACABANAli œsAClWlERD18 B. ALTOIl B. BEl.EJI12 ESaIIA13 H.IAlll.J.AN]14 IlIARIIlAIS llJATAJATA18 ISlA DEl. SIl.
17 ClJAIlJI ~-=-~F~::-'::-=-1=-;'-=-=-~f=-=-=-=-t=-=-=-=-~F=-=-;;:-~t=-=-=-=-jF:r.~::'~i:r:-~:':tf~:-.r.~:...r:;~==t==:t==t:=~b:==t==:±==i==t=::::18 PEIlIAS -J"oI'
19 TJAIlJAHACII ...,.,.,.,28 TJWIHA _---'--+__-+.__~ _21 WA WA - ---t---t----1--
zz VIAOIA ~-J~_1--_+--_1_--_+_--+_---''1__--~-__lI_-.ClTT}--__1--__+---IT':_+--_t_--_+_--_+_--_+_--+_--t_--
23 AIWIEA :.n-:--f---+---t---+--i'"'n-..nrnT1F.........--1f---\---f---f---+---4----+---+----I-------I-------.:I-----i--24 AllTAUTA25 NINAZlI AYAYIRIZ7 tABANIUAS28 OlUIIEWIlIUA29 mIATA38 au:em31 Œ.SAClL'.DERDCP)sz lIJANtAHE33 llJARAYA lUIl34 RAVE35 ISlA StlTlI38 ISlA TAWItE37 JIll38 °JllIACA39 UQJlIlUS48 lJJlIœlI41 UlS \HIS42 WllY43 lIA2D cm44 IUWII4S IlHIDA46 PIlACDIA47 PIlŒRf.Stl4Il f'lN)G lJ\AYDSB lUGJYD
PHI C.A B
ESTACION 1
ConvenSo , SENAMHI / OR5TOM / IHHSERIES PLUVIOHETRICAS / HENSUALES
EL ALTO Cuenoa $ ENOORREICA
196719661965196419631962...lp\llotan 1953 1954 1955 1956 1957 1958 1959 1960 1961D 1-1----r----f------i----+----f----+----+----llf-----+---+------i----+----+------:....f------iS25SIlm~
4Z5411m3SI3Z5311m25122S~
11S151li!S1117S~
i!S1
S5IS25SIlm~
425
•37S3SI32S3IlI27S25122S2111751511251117S~
i!S1
1 p H l C A 8
Con"enl0 • SENAMHI / DR5TOM / IHH
*** SERIES: C%) Estooion seoo / Anuoles ***E5TACIDN EL ALTO Cusnoo(s) 1 Endor-r-eioa
1lPa1l(1)lB 1&51 1S5Z lBS3 lIS4 1S55 ID lS57 1S5lI ID ssea UIl 1SS2 1SS3 lS54 1SII5 1JIlI 1SS7 lS!I8 lSlII lm WI lB12 lB73 W4 LIl'1S lS7B lB77 lB78 LS79
S88 188 1 1 1 1
l 1 j l E 0 llS8S11Il U
CBlB8
35lI 7'
32S.J388118 522.3 431.3 S2Z 516.7 S38 274.3 485.3 395.3 528.1 519.9 443.3 534.4 SI8.1 œ.3 SSS.3 3l5..8 :m.9 4615 51.9.4 S42.S :m. 4 475.4 6llll.1 653.1 4.95.1 656.6 572.4 765.983 72.3 93.6 85.2 85.3 84.5 81.6 88.8 86 78 88.8 ll9.S 8U 78.7 87.1 82.4 81.9 88.1 82.1 1 83.6 su 78.6 n.s 78.9 85.2 75.1 89 88.3 !l2.62SlJse
17 '27.7 6.4 lU 14.7 15.5 21.3 12.9 17.6 18.1 19.9 17.9116. 4 9.4 21.4 22.5 21.1 lU 24.9 11 11.7 7.419.4 11.2 14 22 19.2 18.5 15.4187.3 165.4 36 98.4 91.7 58.5 !1.7 58.3 86.S 147.2 185.8 63.1 92.9 135.6 88.4 72.1 82.1 115.81 71.9: 182 1 56.4 182.9 138.3 163.1 114.2 164.7 81.9 76 61.4211848, 1
Ise 38
188 28
58 18
!J188
~S11
48888
3S8 78
3811118
m2 5'9.3 533.525858 78.5 74.1 84.1
28848 29.5 25.2 15.9141.1 l8S. 181.2
158 38
1111 28
5818
8 8
19111 19B1 19112 13IB
_ , ';+id Jo 1 _... • .~,... "~.,"""'" ,. ........... ~ li 1 -, ..__ - ..._~._~ .........~_,_ .. __ .".c/l.O',.,"' ... , ...• - .... _,..._.. ';' '~'
'::lü,PRINT" ,deberC\ lt..ltrll-!;,' "iill", .,1, ::il L~/I.l"'~ ''''.1<:1 dt;! l:H,tZOUi;;'da se C"t8c:tLle v SLI l',
,sL".'",.:, di::' ')j'i:r.::.NCONTRO*-lI' . ',I~ .ll..Ieoo descl1eoara las estacicm€~s e;,:istentesi fil, '.. · ... ,·,;dl:::.·Ud oor la d-<,' ":ia Il
J,;;'j F:RINT"F.' 1.\\ ES'U.lcCIClN PEDIDA EXISTE :obtelldF'a infor"mè1\cion d€? :DE5DE AUE Alü~EXISTE INFORMACrONI EL NRO DE ANOS QUE EXISTE: LA DIFERENCIA DE ANOS ENTRE ELINICIAL PËDIDO YEL INICIAL.. DEL ARCHIVa ETC"~20PRïNT"tr-asestoel' oroorama desolec.lara informc:\cion de datc.)s ano a ano(mes 0
ir,meS): desde, el an'ooedi do el nro de anos reouer' i do nor Ltst.ed."~25PRiNT"G~- Seauidamente el Or"OClrama inrJr-f?sa ë.'I !SLI eti:\lJa de' DIAGRAMACIDN POF< PL)TER~ donde le oedira su acuicencia a si desea 0 Ho PlOTEAR la consistencia de 1.;!S dat m.i OBSERVADOS EN F'ANTALLA (ECF\AN)"~30 PRINT" Si SLt reOt_lesta fue SI Cl si (a+:i.rmativ",·,) <:lseour-ese de Clue la cone:donJe la Interface deI olcter este ccrrectamente conectada" .::::;5 F'RINT" En casa de ser necat.iva(na di.~:\C1ram,':\r) no alterat-a la cor-relatividad' d,la secuencia de las diaaramadas ccsteriormente .en tanto continuara oidiendo ES··/-iCIClNES si ouedan en oedido":4·0 f'RINT"H.·-· Finalmente sobrevien(·~ ,-:,,:1 [)1'''DCt=~3CJ c11:-:"! di",\or"amac:ion 001'" e1 Cllot.f:!r' .in'ormandale cada etaoa 1re: la etaca de titulos v 2da la de disoramacion de barr
"1~! PRINT"a cuva culminëlcicm le of7.~c1it-'a ud. la é3iClu,i,;;'nb;.· ESTP1CIDN C)o~lr'i':\ c(Jnt.inLlarsu JOB"
':SO F'R 1NT: l NF'UT" ~*DESEA l.ld. PROCFSAF: El F'F\OC-1F~rll"l~~ 0 l. :": Fn. $
:5'5 IF Rl$="si" DR F~l:;~::::"SI" THEN GCJTD 2bO EL.~:)E 1600:60 LOAD "bar-ras5 .. bas"
'. 600 RETURN700 LABEL SERIES
.. 705 IF R2$="SI" Of\ Fi'2"1:.::::"si" H-IEN r.3DTU 17.10 EL.BE bUT Cl :;:~~:iOO
710 PRINT"*** ESTE PROGRAMA GRAFICA SERIES DE HISTOGRAMAS(HIETOGRAMAS) DE PREeIITACIDN"715 PRINTI'********************************************~************************
: .•~." 11
· ?20 F'RINT" A.-· El F'roaramë.... OLtede ~7)ditë.'H·.. 1'''I<:;'Ista :':;:0 ariOS'; de ser'ies meJnsur.ües"725PRINT" t.endra 3 escalas a escoier dsoendiendo deI Maxime valar de orecioita
:icJn de la serie siendo escala <1> hast.::\ :::J~:50 ml: :2 hasta 1100 ml::2:: si mas",730 PRINT" el l'1enLl incuiere: 01 canot •.'! ~~=l nro l si desea rJr·oces.;:~r"
•T:-;5 PRINT" 0::. Inic:i,::11 c10~J. USUI':\I~iCJ"
l,7-q.OF'RINT" 0:5. Cuenca conr'esClCJndiente"• 745 PRIN'-" 04. Desde ClUr.? ano d<?sea diaaram,:;\r'"',750 PRINT" 05. Cl.liH1toS anos df:":S('2ë:1 diacfr'amar": 755 PRINT" B. - El Droceso CClnsta d<? C:U,:\trO oar-to;,,,'s ",760 PRINT" 1. de busClueda de 2:"r"chivo dF.:! 121 estë:lcion oedida"~765 PRINT" 2. llenadc de i~formacian m~nsual en oantalla de la serie (COMPROB>jr~) "
:770 PRINT" 3. busoueda deI maxime valor de la serie Dra establec:er una escaladE:? crafica"
>775 F'RINT" 4. Plotee seourest.7."l,,,=, COf'lE.'J;·:ion de int,E::Jt-"faCE? d€~l F'lot.pr")"c780PRINT" C.- Lueoo le infarmara el maxime valor de la serie. v su ubicacian enel ane v mes :oara eue ud eli ia (CONFIRME 0 MODIFIQUE) la escala Aut.omaticament
? dada"'.790 PF,II\lT" D.-· SeDui.damant.e 01'" DCf?Sië:\r" ,::\ (al F'L..UlEn CJ dië\(JI''',:;.m~''ciDn d[~ la s€.~r"ie"
l795 PRINT" El Diacrama de las series 5e~a en blooues .siendo la edision de 15 a105 maxime OOr blooue .en el caso de sobre oasar al de 15 anos oasara a editar e
s:ic.luiente"1. EJ()() C~-iA r N Ill..\l t. ser- <.'f • ba s Il 27~'=:;
:805 DELETE 275.2290::500 RETURN~50S LABEL PROMED?510 IF R3$="SI" OF~ R3$="si" n·IEN (30TD 251:? EL. SE::: C3DT[) 2::54::;'\~5'l:~ pp l NT: F'R 1Nt" ESTEI:'R0f3RAI'1A D l i~~C3W~t1Ié\ F:N F''-DTE:r:;~ ~ HI ETDGr':;:?-":jnm; DE: E3f.::Fd ES DE LLIVIA8 MENSUALES DE LA EPOCA SECA y SERIES DE PORCENTAJE DE PRECIPITACION DE LA ECJC(:'i ~:;ECf~ FŒSF'ECTD A l..A TOTAL. ,=ü'-lUm,,"~i l. :~: PF;': l NT "",.** D l AGR{.~MA EN PLDTEr;; HAbT{~ ::;;0 PINDE; Il
~514 F'RINT" 1. la Ira serie consiste en la Precioitacion acumulada (abscluta)deles meses de <:i\bl~il a seotiEJml:>r"1:-2"
'515 PRINT" 2. La 2da serie recresenta la orooorcicn cOrcentual de la orecioitac1";;[\ d~ .:..b,ril .... $eotiembrF..' t'·~so(·?i.:t.c) al \-.:;yt.F.t.l rH-f,'cjniti"do v m~?didCJ en el ana"
.'. -... P " ~~ • .!..~_".\ .. t:1~:'-\''''j.=!lC:~t':'· {r~'; i"1 i t· ...~~r-·· Nr-c') 1 J Il
i~n de abri! a seotiembr~ res~.cto al total oreCloltaao v me01QO en e~ ano"":i!5 Il" F'RÙ\iyô'"';.L·- Ëi '1~lé'r1'~1 i~';l..; ;j'l ~::!r '1.2: ,.) 1". Sj. Ch;'5~ët P;ocesc;\':"( rii ~ (tar"' Nr'cî~i )',,"- ...2517 F'FnNT" 02. El Inicial deI orovecto 0 USLI.:lrio"2518 PRINT" 03. fJi desea oraficar COli Titulas(SI:en caso ,\firmati VC) : N(j~ ,,,1. nn.leb':i) "2519 PRINT" 04. La Cuenca a la cual corresoende la Ëstacion
a solic:itc:~r"
.2520 F'F,INT" ()1.j.• El (ino dE.~sde (:1 c:uaJ. Inic:iëH"a su clr-afico"2521 PRINT" O~" [1 nre) de anos a Grafic.).r- ~"n l1'~J. F'leter"2522 PRINT" 8.- El oroorama Descleoara informacion 1. deI Ana inicial de su date:s 2. di.fet·-·f;-:nci.a de anas r"e~":;Dr:2c:t:D al ::,o1:icit.adn .~,.nt'-o df: anos r'IE!lc:::!vados"252~~ PRINT"lH("ll· Escrib,3. : cm··rT' ([),;\I··i':i Cc:intir)Ui~H") *·lHI·":STOP2524 F'RII'-.lT" 'lHl- DebeJ·i:3. ud n::.~~:;fJC)r·\c'Jf!.!t.. ,;~ E;,;b.=\ mE-~lïU :al oedido de la f2f::·d:acion solic:itada : c:onsta de tres etao2S 1 1. De busoueda de la Estacion 2. oedido de aGC.lS: 3. desoleoamiento de in+of·mi:...cion m(='~5 amF.2f'; anD a ':;\110"
2525 PRH~T" C ...... L.ut.?(.J<:l iIlClt"·i:'2~;;;"·:\ i::\ L,:\ ~:;.lt,,:\r.:i<':\ dE' Cr-lL..CULO A DISCRECIOJ\l cie ë.dt"Junos anc:
s esoecificos eue desea su desoleoamienlo en fJantalla (inouiriendo si desea 0 Neoroc:esar' LI.no 2\ ...... no) "
2526 PRINT" D.- Etaoa de Calcula olobal de Dorc:entaies v orecioitacion acumuladsde estacion S(::"C,,~ mes <::\ mr:2S E.. nc'! a. <'~no~ dE"sDleoi:lt'-é'i E!II oantallr."I i:lutDrnaticamentFf"
2527 r:::'PII'.IT" E ..... EtdCl<:'\ 'fi1l211 d"" F'/....UrEU F'I::,,'cii.ciit-a su eiO\..lic:encia a. sii DESE{'; 0 NO F='l.OTE{~I~ los dë\.tC'!:::. i mor··f2SCJS i:::""1 Dii'I"lt<:d 1 .,:1 (ECFird\~) "2528 pn l NT'" D. .... Frl c: El ;:;;CJ cl e ri ',:?C E:' ',; i t. ,,:II''' 1 Ci ,':, J).:i:\ t. DS En i me:) l" eSC)I~ ,:,;\ (F'F~ l r,j'T' ER ) d ebsr a c,anb i car . dIE:.' Con f::)-: i CHï v l_uE'CJ Cl t.. li: ~,;[J Cid (.;, 1" (.~l·f :i. t.. iTi l';. t. 1 .... ë·\iI1ETI t E! !:':t,:;; 1. DE~;A l l'1F'r-'I l IYI l 1::: DATClS"
2530 r~INT"***********~*********************************************************Il
2535 CHAIN "IJJ··olTlult9.bas" :?7~:5
2540 DELETE 275.22902545 RETUF,N2550 END
lOREM PROGRAMA DE DIAGRAAMACION DE BARRAS20 E=l:DIM X$(12):R~O:Tl=O ~ El=O:Cl=l30 PRINT CHR$(12) :PRINT CHR$(27)~CHR$(93)
40 F' 'r< 1NT" ** -JI. -lt..jt * ·li·l(· * *-lHE"ll' .*. * ·lt **..ji. "'<-li- ·~..loi"*, * ';:"11- *1(-* .~. *. -JI..;H!·* .l\- * '1I' " : F'F{ 1NT50 F'R l I\IT" -llll·* PI:;:UC:H:(/-WIA DE D l A[-)F:AI"II~~C ICJN DE B(.~RFiPlb -Jl+lt·" ~ F'R l NT60 DIM MATl$(Sû.1?) .MAT2$(50.12>:MAT9=070 INPUT" ll-** NI~o dE' estac j. cm ~ <: 1. coi D'·' 1. met-··01 >*;Hl' :": T 180 PRINT CHR$(12):PRINT CHR$(27l90 F'RIN'f "or"DOt-ama de.' dièICJI'''2\rnë;\~;;; de CDIIS,;:i.StE~fïc::iè~:"
.1 0 <) F' F, 1 t\l T " -- _. - - - -- -. -.. _. ---- ..- --- - - -. _.- -- _ - "
110 INF'l.JT" deoa.r"'t<::'imento :": 01::1:;:: F'RlI'-H1.20 INF'UT ".limit.Ë: df2 f.~star.:iDI'lf!:~~"; ~::';u /t··jt"O dF! f2st.<'ilc:innF..:'f~ ?:":N1.Y.:PI=<:r.NT130 INPl.Jl "desde Due ':''\1'10 dese.a di <:i'lCU"c:\nk\: ": {iOi:: F'FdNT140 INPUT" cuencas së!ouida df? ( ..... ) :"~CLLt:PFUNT
150 INPUT "ANOS {~ DIAGRAMI·W~: (::;cm)e!::;'lar.:::i.on : (1.8cm)ano":SCl160 F'R l NT ,,-------- ..--.-.- .._- .:..--.. ---- -----.....--- ..-..-...... -. -.-. ._. ---.. _.. --.- Il
170 FOR 11%=1 1'0 Nl%:Il=Il%180 GOSUB L.ECT:1.90 GOSUB LECT 1200 GOSUB SELECTI210 GOSUB LECT2220 1NF'UT"lf-***** desea olot.ear ? *-l(.-j(.-j(.*": R$230 IF R:t< >"SI Il THEN GOTO 280 ELSE::': GOTO 250240 IF R$<>"si" GOTO 280 EL.BE GOTO 250250 PR l NT" **'~**'* 0 l oteamcJs 'K-***-)("K-'K-*"260 GOSUB DIAGRX270 IF 11=30 THEN Il=Nl%280 F'RINT"·**continl.lamos Cf.:m las 19staci.ones :**-j('*"290 NEXT Ilï.·"too PRTNT "Fi.n d~ ,JO"1 **-ll.-l(."
·3Tèi--ËND--- ';' >,- -::S:20 LABEL LECT 13~O REM rutina de ubicacion de anos inicial v nra::340 FOR N=l'.TO 5400: NEXT N35Ô PRINT"rië:nnbre de estè:'\cion: ":NOM1$360 PRINT CH~$ (12) : F'R~I\IT CHR$ (27) : CHR$ (93)3-700F'ENOLQ!I·dato~~lIAS1 : s=o3,80. ,P,IELD' .. Li15 ASES:$:. 34 AS A X:$. 2 AS AN:L:2 ?'iS 1\I(.~::t390 SET -~'1\
40Q ON 'ERRQRi,;'GOTO 51041 O<'PR 1N'TI i:PEt.INT l,' i nf·or mac ion :": ES$4-2QON ERRORi:'GOTO - 5104:;S().lF"NDM~~> LEFT$<ES$.D1) THEN 390440.A:1i=CVT$FCLEFT$(AN$.2»:NA1=CVT$F(LEFT$(NA$.2»4~<) Al=VAL'(LEFT$( AN:!:. 2) ) : NA1=VAL (LEFT$ (I\IA~L 2) )460 ANX;== INT-CAl) : NA%=I NT( NA 1 )4:l,OPRINTAJ .NA1.AN% .NAï.480. PRINT>CHR$ (1.6)49Q CLOSE' 150.0 RETURN510 )F ERR=8 THEN GOTO 520 ELSE 490520 PRINT " ..Ü'''chivo ine~:istente (fin)":FŒ:~SUME 5:::::05:50 END540. LABEL .', LECT2550 REM rutina de lectura de ·estaciones560 PRINTII lectLw'a de datos estacionales~"
570 IF 11<>1 GOTO 600580.DIM~E$(50).F$(50).M$(50) .A$(50) .Ml$(SO).DS(SO)590 ,DIM ·J:t-(50) .J1$(::'W) .A1$(SO) .S:f:(SO) • CH; (::jO) .N:t(~:!O)
600 PRINT;." nombn? de estac ion :": NOM::j::
6 10' qf='E.N;i?b~NOM1$ ~S 2 "C' .'. <.~., ••620 pRINJ,ano5. a edl tar : : ;:lC1: Nï.=IN r (,::>e1) : AHï.==u631,.) rF-"XS:;jji'l""J'HËN>Y%= (ABS <Dï.) ) +1 ELBE IF 8==2 THEN Y'ï.=·16'4Ô Ji='S~œTHEN X%=(ABS <D%> ) +1 ELSE IF S:::::1 THEN X'ï.=1650,GLi';=N%+X%:Zl..ï.=N%+Yï.6bOlF SL'ï.>NA%-Dï. THEN GL%=(NA'ï.-D'ï.+1)+X%670 FOR Gï.=X% TO GL%-1680 AH%~AH%+1:AZ%=AH%-1
690I~ ZL%>NA%-Dï. THEN ZLï.=(NA'ï.-D%)+2700 IF D=Q OR D>O GOTO 720 ELBE GOTO 710710.AX%=AO%-D%+AZ% : GOTO 730720 AX'%=AO%+AZ%7:30' PRINT ·~·*******ANO : ": AX%740.FDR 11.=Y%+AZ% 10.Z(%-1750'FÜELD#2~5 AS E$q%).5 AS F$<I%).5 AS M$(Iï.).5 AS A$(I%).5 AS M1$<l'ï.').5-AS·,$(I%')~~5AS \71$<1.%) ~ 5'ASA1$·(Iï.). 5 AS 8$(Iï.).5 AS 0$0%).5 AS N$(I%). 5 AS 0$(ï. ):,L,,,
7'600NÈRRORrGOTO 10007.70 I3ËT #2.' RECORD G%780 DNERROFi '60T01000790MAT1$( 17.:'.1) =RIGHT$ <E$ (1%) .5) : MAT1$ (Iï.. 2) ==F\IGHT:f. (F$: (1%) .5)800,MAT1$!r~~3)=RIGHT$(M.(I%).5):MAT1$(I'ï..4)=RIGHT$(A$(I%) .5)810 MAT 1$(17.~ 5) ==R l GHT$ ( M1$ ( 1%) • 5) : MAT 1 ~t- ( ]: %• 6) :::R l GHT $ <'J $ ( 1%) • 5)820 MAT 1$:(1%.7) =R 18HT$ (J 1$ ( 1%) .5) : MAT U: ( l'ï.,, 8) :=R I GHT:t (A 1$ ( 1%) .5)830 MAT l$(]X~ 9) =RI GHT$ (5$ ( l ï.) .5) : MAT 1:$: ( 11..• 1<) :"'f': l GHT:t (0$ ( 1 ï.) .5)840 MAT1:f:Cl%.1.U =RIGHT$ (N$ (liO .5) : MAT 1:$: (Iï. .. 12) "':FdGHT:f,: <0$ (Iï.) .5)850 NEXT .1'1."860 FOR J%=l 1"0 12 :F'RINTMAT1$(I'ï..Jï.) ~SPC(l):
a70~ NEX-F-J%"-:NEXT'Gi'~ .880 PR 1l'rI" "-.,;.----.---.---------.-..-- - -.. --.-.- -.-..-- - -.- -.--.. ---.-.-.- ..---.- -.----_..- __."890 IF 8=1 THEN PO=50-(-Dï.+NAï.+l)9QO IF S=2 THEN PO=50-(NAï.+l-Dï.>q1(1. P9==50'-PO920 FOR I=F'9 1"0 50 :FOR J=l TD 12930 MAT 1$ (1 .J) ="999. 9"940 NEXT J:NEXT 1. .-.. _.•. .. ....-..,. .w..~_·_ .....__.~.." ............ _._ Ao __ ~'It-""_.~ .. _. - .•- .~ >.# •
Q~n ~nR I~=' TO ZL%-l : FOR J%=l TO 12
. .';,'...
111(>
,. , ~,-" .. ~.;:....
."~', "', .
":Alï.
~. .'. .
*****.1(-**"
;gjcX.JiN.5~J..~L ..-...- ~_.- ~----- ..~R.l%=l Ta ZL%-l : FO~ ~Tï.::,~1 Ta 12f$'~lNT HIGHT$(MAT1:$(Iï..Jï.) .5) :sr';'C(l):NEXT Jï. : PRINT :NEXT l'Y.Ct.OSE 2'BETURN
IF EHR=8 THEN PRINT"-Il-Fin dE~ ë\r"(.:hivt:l":F~ESUME880
LABEL SELECTl~~;ç);ro'''RËM ruti na de sel !;?CC ion,~f030. PRINT"*** selecc.:ionëmdo **,*."jf~:..bAO= l NT <AOï.) : A 1:$ :::: STR$ ((..\0) : ?\1 :$:"::FnFcH1$ (A 1$).......• ,'A2$=M 1D$ (A 1$.4.2)
{> .;;,Wl:;:. VAL (A2$):A1/;""'INT(Wl):F'fUNT "éH'lO hidrlooico~~~~.,~~:RrNT "conversi ones" : A 1$. A2:$:i·("·;!.;·~Dï.=Al ï.-ANï. : D = DY.
0'F ANï.+NA%>100 THEN Dï.=(lOO+Alï.)-ANï. ELBE GOTO 1105.PRINT "ane inic.:ial : ": 1800+ANï..: ":c1i·fE':rencia de anos =":Dï.;'PRINT "ana inicial": 1900+ANï..: ": diferencia de anes (0)=":0%:80TO
,.•..RI.NT "ana inicial: ":ANi;: "nro de anos informado: ":NA'ï;A~INT"Existe informacion hF.\sta 19":ANï.+NAï.:t·F:;·;D%< 0 THEN GOTO 1150 ELBE l F Di~::::O THEN 1180
~\téD'Y.>0 THEN 1260';~RtNT Il ** existe inicio [Josteriot·· al ano indicado"{;~:n9%=ABS(0ï.)
....·y;E1.:i::l1GOTO 1280j.st"âb FOR 1 ï.= 1 TO D9ï. : FOR J ï.::::: 1 TD 12l\~;~~bjFEl=0 THEN 8=2 ELBE GOTO 1200t2~9IF MAT1$ (Iï..Jï.)="999.9" THEN 1'11H2$(Iï..Jï.):::::"···_·s--_·"UU:Q IFMAT 1$ ( l'l. • ,Jï.) <:> "99c~. 9" THEN MAT2$: ( l ï.. Jï.) :::::" *-Il·d**"'i2~~J*,f;:INT MAT2$ ( l i~. Jï.) :'l2?!O 'NEXT Jï.: PR INT : NEXT 1 i~
ll40·'.PRINT1230RETURN~~6;Q; PFUNT "1 a di ferenci a de arlOS i nformadcJ es =": Dï.l~7'O . SOTO '. 1330 .~;i·~E.JQ<'~·FEll::11THEN PRINT"*** lleni:lndo eSDëlcios (MATRIZ> ***"l'2;!9'O FOR 1ï.= 1 Ta D9ï.li~QOFORJ1.=.1 TO 12:MAT1$(Iï..Jï.)~.:::"999.9" :NEXT Jï.:NEXT Iï.i~'1::Os=1 fGOTO 1180 .r~(r RETURNf3'.3'O Pï.=ABS(Dï.): PRINT" di 'ferenci ,?Il: ": Dï.13~H) D=D'l.l~~O SI!Ol2:PRI,NT"alc:anzando al ëlnCl r"È?oLlerido:";US60RETURN .:1:~70LAElÈL., DIAGRX.13S0 Tl =T1 ..,.,1.1 R="'"'401~90 E-Tl+1. IFE<>1THEN GOTO 2030'~:~~REMtab l a de mese.,:J~~~~A":')(:f(l)=-,"E" .' .):1!~.Q:)($(2) CII1" F" .. ' '~l:\' .~':~l~ '..'.", '. ,; .(.~) ....t1wlU . ·..:::..·.'f' .. :.:" ..,..:-,·.:.:.•..>·~:-.·•.·:;~.·~\;..~~;•..:~:.,::~. ..... :.w,.. " tf~.r" .... ·,;·... ·~,~,:.;:/2:·:~.) .. '..
.(~)'IjIII,'i);:A,.".-" ··~f;;'~·t>.f\'!i":i.'"·{;Ui> •..
1:~~!!!1,~t;0:t1;~!!·,•.·.' i>';'K$ <.S) =1 ,'tcA'~ '.' .,: ..';. :i.·;i::f"'X.(9).~,iS Il ','"
"15'00 X$ (10) ="0"'.1510 "X$ (11) ="N"1~$O:'X'$ ( 12) =: " D "
..1a?$.O·~;PROY2$= " PH.ICA B"\~:.~:40::F(JR 1= 1 TO 12: NEX T 1-.:.t5êoPRINT"****** TITULOS'.f/5~OF=1900 : Al =A 1 ï.i~10iAl=F+Al:PRINT Al';2:5S0'ON ERROR GOTO·· 2300 '.':'!=;C?(') pnpT 1
x .-.. X+32~5
"
~-, .. ,:- _., ........._'~ - ---_.. -~- .,_. ..-.... - - - --IbOO PRIN" "WO.O.4000.2700"1t.,l 0 F'R 1NT '~QO": PRI N1- "J3"li.20 PRINT 825.20"1630 F'RINT M1S00.2550"1640 F'RINT P Convenio : SENAMHI 1 ORSTDM / IHH1. 650 PR 1NT Ji": PR 1NT" QO" ~ FT";: 1NT" S:"$~'j. :~:O"
1é"bO PR 1 NT M900. 2450"1670 PRINT P*** CONSISTENCIA DE LLUVIAS MENSUALES1680 F'R INT J2": PH 1NT"M1700. 269~i" : F'FnNT" 1600.0"1é:80 PRINT"M1700.2/.,35" : PRINT"I600.()"1.700.F'RINT"M1700.2635" : F'RINT"IO.60"1710 PRINT"M2300.2635" :F'F<INT"IO.bO"1720 PR 1NT" M1750.2650" : FR 1I\lT" P" : F'f~OY2$1. 730 F'R 1NT" M900 . 2:::'~25"1740 PRINT"PC U E N C p\17~iO PR 1NT "J 1" : Pf~ 1NT" QO": PF~ 1 NT "Ej::::O. 2~:5 "1760 PRl NT" P": CU$",1770 FOR 1=1 TO SC1+1 : 1=1-11780 X=500+(180*T) : Y=401790 PRINT"M":INT<X):".":INT(Y)1800 PRINT "10.2060" : NEXT 11810 PRINT"M100.40":F'RINT"I1.2b60"1820 PRINT"M3999.40":F'RINT"ll.2660"1830 PRINT"M100.2700":PRINT"I3900.0"1.840 PRINT"MI00.40":PRINT".I3900.0"18~;O PRINT "J2": PRINT"G10": PRINT"S2~5.20"1860 X=100 : Y=21801 [:70 PR 1 NT" M" : 1NT (X) : " • " : 1 NT (y)
1880 PRINT"P-- ESTACrOI\l ..---"1890 ~9=500: Y9=2180 :FOR 1=1 TD SC1: X=X9 :Y=Y91900 PR 1 NT "M": 1NT (X) : " • " : 1NT ( y) =F'I=< 1NT" P" : Al1910 Al =Al +1:X9=X9+1801920 NEXT 11930 X=500:Y=2100:PRINT "M":INT(X):".": INT(Y)1. Cj' 4·0 PR 1 NT Il X2" = " • " : 1 NT ( 180*SC 1 ) : " • " : 1NT (SC 1 )1950 PR 1NT "M": 1NT (X) : ,1 • " : 1NT (y) : FR 1NT" J~:" : F'R 1NT" QO"1960 FOR 1=1 to SC1:FOR J=1 rD 121970 Y=21101980 PR 1NT" M" : l NT (X) : " • " : 1NT (y)
1S'90 PHINT"P":X$(J)2000 X =X+15 : NEXT J : NEXT 12010 Y=Y-25;:::020 PORT 0;'::0:30 PR 1NT" ******* D l(.'o\GRAMA DE BAFiRAS 'IHHH~***"
20~0 X=100:Y=2030+(Tl*R) :Tl=Tl+l~~O,50 PORT 1,20'60 PRINT"S15.12":W;:;'O F'RINT "J3"20S01F E=51 THEN GOTO 22702090 F'R 1 NT" M" : 1 NT ( X) : " • " : 1 NT (y) : PF< 1NT "F''': Tl2100 X=1752.110 PRINT "M": INT (X) : ". ": INT (y) : F'RINT"P": I\IOM$:2120 FOR 1=1 TD SC1:FOR J=1 TO 1221:::::0 PRINT"M": INT (X) : ".": INT (y)
2140 MAT9=VAL(MATl$(I.J»)'?150 IF MAT9< 0 THEN X==X+8 :F'RItH"IO.l0":X=X-·B:~: LU 1F 1"1P,T 1 ~t ( l ",J ) '"~ Ir " THFN C;UTCJ ~?:I U':i,':[ >' 0 :IF \'IP,'r 1:$ ( 1 •.J ) :: :> "9i:?9 • ') "IHf:J'·,\ F'F( l !'..ir" l l. ~:::! ",,,;?1:80 X =X'H5 : NEXT J. ~. NEXT 1 ..?1.":.·'O F'FiINT"LTO"2:?~OO PORT 02~10 CLEAR MAT1$(*)2220 DIM MAT1$(50.12).:::2:";;'0 PORT 1)
2240 Cl=Tl:C1=C1+1:T1=Cl/?~';O F.=E+ 1
", c-··"'-:-''"1·i-·i-=,-r't'T"n-}''io~;ç '1::"1 cie i:l""n'n ':;>':-7.1
"
: F'RINT"S17 .1:::::"
,l,.,·
GOTO Z:::'80
2250 E=E+l-226()1F--E=1·I"ï31J'rb 2280·'ËL..SE Gl..HCl 2270
2270 RETURN2280 POF(T 02290 E=E+l : PRH-IT "fallida. :":RETUF<1\l2300 RESUME 2260231 () I_ABE:L LECT2320 REM rutina de acceso v lectura2330 p~INr
2340 F'R l NT "** ESeR 1BA CON MAVUSCULAS .1(.* ": F'F\ l NT2350 INPUT"noillrwf:? de estaciorJ : ":NDI'1~r.
2360 F$="*":I::;;:1:D1==02370 N01$=NOM$+F$2380 IF MI D$ (!\lO l $ • l • 1) ::="'Il-" THEJ\I :~:::::90 EL.SE 1::;;: 1+ l. : Dl =[) 1+ 12390 REM bU50ueda de archivos de nombres2400 OPEN OLD "nombn:::,B" ,qS l2410 FIELD #1.15 AS No$.8 AS AR$2420 FOR 81%::;;:1 TO 2002430 ON ERRDR GOTO 25602440 GET #l.RECORD 81%2450 ON ERROR GOTO 25602460 NOM$=LEFT$(NOMS.Dl)24J0 NOM2$=LEFT$(NO$.Dll24aO IF NOM2S<>NOM$ THEN GOTO 2500 ELBE GOTO 24902490 IF NOM2$=NOM$ THEN NOM1$=LEFT$(AR$.8) : 81%=2002500 NEXT 81'l.2510 CLOSE 1 : ON ERROR GOTO 25702520 F'RINT"+ENCONTRD"2530 PRINT"bLlsol.leda de datcls: Il
2540 PRINT"lectl.wa de datas :":f(ETLJF~N
2550 RETURN2560 IF (ERR==8) OR (ERR=4) THEN PRINT "Il- Fin de AI~c:hivC)I(·II:CLOSE 1 :RESUME 2570
2570 IF EI:;:~:::4 THEN F'RINT "iH~ Archivo Im~,;dsb::,nte 'llc":CU:-JSE 1. :RESUME 2580
.~:·:5fJ0 11-:: F. F\!. ';::.0:' 1.1·4 (; "' "j"'1E:1\1 F'F';: l 1'\1 T " !·i C) E I\JC: Cl N'r HCi " ::JCl T Ci ~? ::::.; C? CO25 C}O l NF'U r ,. inti'· ad ue i r' ë:\ mi::lS f::~·,;;t i.~C i Ol-i es si / no : ": f~~:;::j;:
2600 IF F\S$="si" TI-'IEI" GOTO :,2330 ELBE GOTO 2610261 (> IF HS$=" SI" THEl'>.! GOTO :;~:3~~::O El.. SE GOTCJ :?6202620 p~-;: l NT "'M+l(- FIN DE ,.1 DB ·U··j1H(·"
26~50 END
275 REM PROGRAMA DE DIAGRAMACION DE HIETOGRAMAS280 E=l:DIM X$(12) :Q=O: MAX=O285 Ml:::::(J:l<l=O290 PRINT CHR$(12) :PRINT CHR$(27):CHR$(93)29'5 F'R l NT 1I-1(·-I(·*·l(-***********·I(o**il·***·M..I(o***-I("M·****·I(o·I(o·l(-**·I(o": PR I NT300 PRINT"*** DIAGRAMACION DE SERIES PLUVIMETRICAS ***":PRINT305 DIM MAT1S(50.12) .MAT2$(SO.12) .AC50.12)310 INPUT "01: DIGITE: 1 si desea orocesar":N1ï.315 PRINT CHR$(12):PRINT CHR$(27t320 IF Nl%=1. THEN GOTO 325 ELSE GOTO 1685325 PR 1NT Il .--...--.-••-----••- .•••••• -.---.-.-.... -- •••-----••-.-----.-----.--~': F'R l 1\11"330INF'UT"02: ini.cial de Lisuar-io/si no orovecto (._) ":F'ROY$335 PRINT340 INPUT "03: cLlencas seouidc:~ de (-) :J1:CU$:PRINT345 PRINT"-----------------------------------------"350 GOSUB LECT355 GOSUB LECT1360 GOSUB SELECT1365 GOSUB LECT2370 1NF'UT" 04: .1(0***** desea 01 otear '? .*****": R$
·375 IF R$< >"51" THEN 801'0 :~::ri5 ELBE GOTO ~'::'85
380 TF R$-::' ':: "'5i" GOTO 395 ELBE [Serra 385
· .:;S;~\JT~l~W'"";'lt*,**** '~ol·ot~a.mc.1s **'li'*****"3t;Q:ê~~'60SUEr.?DIAœRX'.~ê» .... .395'ê"F'RiNP'**c:ontinLiamoscon lê?ts estaciones : ****"AO,0:'.:ENP ". :4(15 LABEL LECT 1410 REM rutina de ubicacicn de ancs inicial v n~Q:
415FDRN=l, TO 540(1: NEXT NL~20··P.RINTHnombre de estac:i on: ": NOM1$4~i5·;,:F?RINTt;H~.(1-2)'l'PR'INT .CHR$ (27) : CHR$ (93)~~O;!.ciRENi:OLb·~'·datoSllll'AS. 118=0~1./,'~5<>F.':IEtiDX"'1·;;·i5/AS:ES$:~34AS'·AX$~:2 AS AN$. 2 AS NA$':~~~H.~Tl#~t.~~.;:.:::,~:.. :::i~,:~I':;:?7:.',:;<:,. ";F", ','. . .
,l:Fq.;e:iRRlNT1'PRINrr","rirff.or';ma'i:l'bh'· :'.': ES$~~(kON~:'E:R~OR·'GOTO.,:5()O... .•-1l5S "IFP'::NOM$<> . LEFT$JES$. Dl) '.: THEN 4404bO':,Al~DVT$F(LEFT$:(AN$;,2H=NA1=CVT$F(LEFT$ (NA$.2»46S·t(1~;:'VAL(LEFT$ (AN$:.:2) ) :' NA 1=VAL (l..EFT$ (NA$. 2) )47Q.ANï.=.lNT(Al) : NA'ï.=INT (NA1).4'l:5··PRINT: "Ini c i a·: 19": AN'ï.: "di f erenc: i a D=": D'ï.~ÈlQ PFiINT Al.NA 1 • ANi'~. NAÏ';,485PRINTCHR$(16)490 CLOSE 1'+<7'5 HETURN500lFERR=8 THEN GDTO 505 ELSE 495505.·PRINT " arc hivC'J ine>:istent.e (fill)":F~ESLmE ~5l(J
::;10 'END51.S:,LABEL LECT2~:;20 ..REM:rutina de lectLlra de estë\ciones525·',PFUNT"' 1 ec:t.Llra de datas estac:i l:mëd, es: Il
~30br~~$(50).F$(50) .M$(50).A$(SO) .Ml$(50) .D$(50).~-35::ofM .J$ (50) ....11 $ (50) • Al :l: (50) • S$ ( 50) • O:t- ( 50) • N:$: (50 )5'4().PRINT "nombre· de· estaci on : ": NOt-a:545'PRINT"anos a edi tar :": sel: N'ï.:::INT (Sel) : AH'ï.::::O550: .1F 5=2 AND NA'ï.< N'ï. THEN N%=NAÏ'~
555 IF S~l THEN Y'ï.=(ABS(D'ï.»+l ELSE IF 8=2 THEN Y%=l560IPS~2 THEN X'ï.=(ABS(D'ï.»+l ELSE IF 8=1 THEN Xï.=l56!5.,GL%=N:Y.+ X'ï.: ZL'ï.=N%+Y'ï..5iO,.l'F·Py'<O THEN AH'ï.=AH%+D9%~75~OPEN~OLD NOM1$ AS2;;S'O'lF S=l AND (GL'ï.>N'ï.+D'ï.) THEN GL%=Nï.+D'lo585·/I.F' S=2 AND (GL'lo>NA%-D'ï.) TH[t~ GLï.=NA'ï.-·D'lo+X'ï.590.IF~S~2AND(GL'ï.<N'ï. )THEN GL'lo=N%+X'lo595;:F'ORG%.=X% TO. GL'ï. .:600' AXY.,=AO%+.AHï. :. PRINT"** AND : ": AX'lo6ü5 .AH~'.""'AH%+l : AZï.=AH'ï.,-l610' 1FS=l' THEN AZ%=O~15 FOR ·1%=Y'ï.+AZ'l. TOZL'l.620F~ELD #2~5AS E$(I'ï.).5 AS F$(I'ï.).5 AS M$(I'lo).5 AS A$(I'lo).5 AS Ml$(I'lo).5 AS$:(1'ï.).5 A8Jl$(I'ï.). 5 AS A1$(I'l.'). 5 AS 5$(1'ï.).5 AS O:f(I'ï.).5 AS N:t<I'ï.). 5 AS D$li'~,) .
~250NERROR GOTO 810630 GET #2. RECORD G'ï.~350N.ERROR GOTO BIQh4Q MAT1$·(I%.1)=RIGHT$(E$(I%).5):MAT1$(I%.2)=RIGHT$(F$(Iï.) .5)645MAT1$(I'ï..3)=RIGHTS(M$(I'loI.5):MAT1$(I%.4)=RIGHT$(A$(l'lo) .5)6~OMAT1$(1'ï..5)=RIGHT$(Ml$(I'lo).5):MAT1$(I'ï..6)=RIGHT$(J$(I'lo) .5)65~·MAT1$~I%.7)=RIGHT$(J1$(I%).5):MAT1$(I%.B)=RIGHT$(Al$(I'ï.) .51~~OMA'1$(I%.9)=RIGHT$(S$(I'ï.).5):MAT1$(I'ï..10)=RIGHT$(OS(I'ï.) .5).~65.. MAT.1$ (1%.11) =HIGHT$... (N$.Uï.,) .5) :JvIAT1:t· (I%. 12) =RIGHT$ <D$: ( 1%) .. 5)670 NEXT l'ï.675 FOR J'ï.=l 1'0 12:PRINT MAT1$(I'ï..J'lo):SPC(1)::NEXT J'lo680 NEXT G'ï.685 PF~ 1Ni" -'--.----.---.----.-----... - ...---.- ....-.- -.--..- _.-- -- ..-.-.--.--.-.-- ....----- ....-.- ...---------"690 FOR I=(SC1+1) TD 50 :FOR J=l Ta 120';;:5 1'1;~Tl;~: (1. ,]) ="999. 9"~00 NEXT J: NEXT 1
_ •• _. _••_ .. _." _ __ "0" ••__ •
;(j:5 Ht-iA =A \ 1 .1)
Il:A1.~I~
Ano":Ml:" Mes":Kl:" ESCALAml : 2 hasta. 1100 ml: 3 si
<de 1 a 3>":SC2
700 Nf:.X 1 ~,: Nt:.." 1 l-'76s"MAX' -=A"Ù ~-1)'" --- .•- .
710 FOR 1=1 TO SCi: FOR J=l TD 12-71~ A(I.J) = VAL(MAT1$(!.J»720 l~ A(I.J)=999.9 OR A(I.Jl=99999.9 THEN A(I.J)=O725 IF MAX < A(I.J) THEN MI=! :Kl=J730 IF MAX < A(I.J) THEN MAX=ACI.J)735 NEXT J : NEXT 174Q;IF MAX«=:'i50 THEN SG2=1745 IF MAX >551 AND MAX<1101 THEN SC2=2750 IF MAX >1100 THEN SC2=3755 IF 8Cl>15 THEN SC3=15760 M1=1900+A1%+Ml-1765PRINT"Ma:dmo Valor (MAX) : ":"'1AX: "170 PRINT "SCALA f (MAX) : 1 hast.:::, 550775 1NPUT "CONF 1RMAR D MDD 1F 1CAF~ SCAU~
780 FOR 1%=1 TD ZL%-l:FOR J%=1 TO 12785 PRINT MAT1$(I%.JY.):8PC(1):790 NEXT J% : PRINT :NEXT IY.795 CLOSE 2800 PRINT"ma~:imo valor : ":MAX: "e~;caJ.a : ":SC280S<RETURN810 IF ERR=8 HiEN PRINT"fin de é.'\r"chi.vo" : RESUME 685815 LABEL SELECT1820 REM rutina de seleccion825 INF'UT II 05: desde oue ana desei..'l. CHc:lOt'-i;l.fn':::l: ":AOï.:F'F~INT
830 INPUT "06: ANOS A DIAGRAI"IAFi:: (5cm)estë\cion : (2.4cm)ano":SCl835 PRINT"*** seleccionalîdcJ -IHHiI- 1I
840 AO=INT(AO%) : Al$ = STR$(AO) :A1$=RTRIM$(A1$)845 A2$=MID$(Al$.4.2)850 Wl = l..)AL.. U:lt2:$:):A1%=INT(Wl):PRINT "~H-lO hiciy--],oo:i,ca855 F'R l NT "c: on vey- si cm e:~s" : A 1. :f,: • A2:1o:860 DY. =:A 1ï.'·{.~Nï.
861 IF ANï.+NAï.>100 THEN Dï.=(Alï.+100)-Al%862 IF ANY.+NAï.>100 THEN GOTO 863 ELBE GOTO 865863 F'R l NT" 1NIC 1A EN :\_ 8" : ANi~:" NHO DE ANOS.": NAï.: GOTO 875865 PRII\H "(-~NO INICli:")L 19":{~N/:: "difer-enc:ia D~-::":DO;':
870 PRINT "ano inicial: ":ANi~: "nro de anos infonnè:,do: ":NA'ï.875 IF DY.<O THEN GOTO 885 ELBE IF D%=O THEN 900880 IF 01.>0 THEN 9401=185 F='RINT li *'* e:-:iste inicio rjo~-:;ter'itiy- .::,1 ano indicado"890 D(r%=ABS (D'ï.)895 El=1:GOTO 950900 FOR 11.=1 TD D9% : FOR J%=l TO 12905 IF l'1AT 1$ (II.. Ji;) =" 999.9" THEN MAT2$ ( 1 Y.. JY.) =" ..---8--"910 IF MAT1$(I%.J'ï.)<> Jf 999.9" THEN MAT2$(Iï..,Jï.)="**d**"915 PRINT MAT2$(I%.Jï.):920 NEXT Jï.:PRINT : -NEXT II.925 IF El<>1 THEN 8=2930 PRINT:CLEAR MAT2$(*)935 RETUF~N
940 F'RINT "la difen·:mcia de an<..")s inforlnado es :":Dï.(r45 GOTO 97~5
-'150 IF r.:: 1.::=: l 11,-11:::1'.1 PH 1N-r" *-jE-1t Il (';~nc:\nc:lo t:::'~;Di:'iC: i os (MtHr-d Z) 'jE..It-l(- Il
955 FOR I%=lfO 09%960 FOR J%=1 TD 12:MATU:(I'ï..Jy');;::"999.9":I\IEXT J'ï.:NEXT 1%965 8=1 :GOTO 900970 RETURN975D%=ABS (Di~) : FoRINT" di f erenc i al : " : O'ï.980 8=2:PRINT"alc.':\nzando al ë.ir1Cl reouer-ido:"985 F~E1URN
990 LABEL DIAGHX995 .IF E<>1 THEN 1335
-1000 PRINT "**-11-** fJraf i}: ******-*"***"1005 REM tabla de meses1.010 X$ (1) = "E"lQ15 X:t- C2) :="17.'''~_ .........._. ",A:.....__.'." ._......,._.w .. _, ,•.~., __'._._._h _
:":SC2mas"
"
"
BC::~;=:SC 1-,1 ~i
SC3=15:GOTO 1300TD 12
X=280
~'~"-' --_........_....-...-_._.__._ .. - ,'- ~.
1020 X$(3)="M"lÔ25 X$(4)="A"1030 X:!:(5):=:"t-l"l(i::::'S X$(6)="J"l040 X$('7)="J"1045 X$(S)="A"1050 X$(9)="S"1055 X~:J: (10) ..... 0"1060 X$(11)="N"1()65 X$ (12) ="D"1070 F'ROV2:f:="F' HIC A B"1075 FOR 1=1 TO 12 :PRINT X$(I): :NEXT 1IPSOPRINT10S5:PRINT" emoieza el oloteo :::::::"1090 F=1900 : Al=Al%1095 Al=F+Al:PRINT Al1100 ON ERRDR GOTO 15301105 PORT 11110 PRINT "WO.O.4000.2l00"1115PRINT !'QO": PRINT "J3"1120 pr,INT "S25. 20"1125 PRINT"MI500.2635"11~.$O PRINT"P Convenio : SENAMHI / ORSTDM / IHH1135 PRINT"Jl":PRINT"QO":F'RINT"S30.25"1l:40 PRINT"M1200.2575"1145 PR 1NT" P*** SER 1ES PUJV 1OMETf, 1CAS / MENSU{;U:B *** "1150 PRINT"J2":PRINT"M :300.2695":PHINT"I600.0"t 1':-;5· F'RINT"M 300.2635" : PRINT" 1600.0"1:1:60 PRINT"M900.2635": PRINT"IO.60"1165, PRINT"M 300.2635" :PRINT"IO.6ü"1170 PRINT"M 400.2650": PRINT"P": PROY2$1175PRINT"M3000. 2635": ·PR INT"P": PROY$1180PRINT"M900.2500n
1185 PR l NT "P EST AC 1ON :"1170 PRINT lJl":PRINT"QO": PRINT "830.25"1195 F'RINT "MI550.2500" :PRINT"F:~":NOM$
1200 PRINT "M2200.2500":PRINT"PCuenc:a1205 PHINT"P":CU$1210 PRINT "J2":PRINT"QO":F'RINT"S1~:"i.l:2"
1215 X=50 : Y=24001220 PRINT"M,,: INT (X) : ".": INT (y)
1225 PRINT"PF'rec:iotac:ion"122::0 F'R 1NT "S25. 20"1235 IF SC1>15 THEN SC3=151240 X9=280~ V9=2400 :FOR 1=1 TD SC3: X=X9 :V=V91245 PRIN'T "M": INT (X): ".": 1NT (V): F'I;;INT"F''': Al1250 Al =Al +1:X9=X9+2401255 NEXT 11260 X=280:Y=2350:PRINT "M":INT(X):".":INT(Y)1265 PRINT"X2":".":INT(240*SC3):".":INT(SC3)1270 PR 1NT Il M" : I NT ( X) : " • ": 1NT (y) : PR 1NT" ~l ~~;" : f::'R 1NT li 00" : FR 1NT" 52:;! " lB":[ ~:! 7~:j F'[JHT 0: FI:;: IN"r Il '~"'lli' D:i, ë:\ Cl /"" ,:lfT'i <:1 ci on cl Ë':' ",Ut""' i (':'?S :.~ ,j\. " : F'UF: T .1.
1280 IF SC1<15 l'HEN A=l ELBE IF SC1>15 THEN A=21285 FOR K=1 TD A1290 IF SC1>15 AND K=2 THEN1295 IF SC1>15 AND K=1 THEN1300 FOR 1=1 TO SC3:FOR J=l1~05 IF K=2 THEN GOTO 1325-1~? 10"W=2c31 0':" YW=W-1-1-25*< ~~).
1 ~~;15 PRINT"M": INT (X) : ".": 1NT (Yl.aJ)l~::O PRINT"I'::''': X:t(J)1~25 X =X+20 : NEXT J : NEXT 1l. ~r.:.:::O PORT 01335 Y2=Y-(1125*K)l~AO PORT 11:-;;'.5 F'RINT"M": INT (X): ". JI: INT (v:n1 -Yc::.Î'·~I",oof:.t";···lo:iT""i("i-1 fi # #., '...... ~ .. _- ••••• ~. , ". -' •
) 1345 PRINT"M":IN'f(X):".":HH(V2)~iSi~~-5~--F'RÎ~'T i'"j ~ Il'. ..'._.•- '-:." , ~"!J;t:".~:f~.;:.5;;J 1F K= 1 l HEN L= 1 EL;;:)E L::: L..I+-l,~,'-':l;36(l IF 1<=2 n-iEN SC'~=SC:3;+L EUJE SC4 '="0 SC:;::;f>~\i;~r365 FOR I =L 1'0 SC4 : FOR J ::::: l. TTJ 1:2lt')i 1,370 V 1 = VAL. (MAT 1$ ( 1 • J) 1
.:. 1'3'75 Vi =AElS (V 1 )i(''J,380 Cl = VI * 2/SC2 y ::::Y:;2+Ci~r'':r3~5-1F V1';"999. ci OR V'1=9'9999. Cl 'TI-IEN GOTO 1395d ,13!1'O F'R I NT" 0" : 1NT ( X) : " • " : 1NT (y): F'I~ 1NT" 120.0":: 1~95 X=X+20IJAOO IF Vl=999.9 OR Vl=9999.9 THEN F:'FUNT"M20.0"l-î.~4()15 NEXTJ : NEXT 1Il:41~O', PRINT l J2"1 1415 F'RINT"S": INT (5/SC2) :".": INT (:-;/SC:;-:~I
1420 FOR 1=0 'rO(550 * SC2) BTEP 251425 X=1001430 Y=Y2+(2*I)/SC21435 PR 1NT" M" : 1 NT ( X) : " • " : l t\lT ( Y )1440 F'F~It\IT"P":11445 NEXT 1
J
; , 1450 Y=Y-·25(455 IF K<>2 THEN GOTO 15001460 X=:280 : Y=O :PRINT"S~20.:~~.ï":PRII\IT",J:3"
1465 FOR 1=1 TD SC314'70 PR 1NT" li" : 1NT (X) : " . " : l NT ,; 'l)1475 PRINT "P": Al
l,' 1480 Al:=A1+1 : X =x +2401485 NEXT 11490 F'RINT"M280.40"1495 PRINT"X2":INT(240*SC3):".":INT(SC3)
,'; 1500 NEXT 1<'1595 F'R l NT Il JO"
1510 PORT 0i;:;.1 Ô RETUF~I'J
l i520 PORT 01525 E=E+l : F'RINT "fall i dë\ :": RETUFiN1530 RESUME 12811535 LABEL LECTL540 REM rutina de acceso y lectura1545 PRINT1550 PRINT "*-M. ESCRIBA CON MfWl.JSCULAS 'll'* ": F'RINT1555 INPUT"04: nombre de esti-~c:ion : ":I\lOM:f.1560 F$="1t":I=1:D1=O1565 N01$=NOM$+F$1570 IF MID$(N01$.I.1)::::"l+" H"IEN :1.::.;75 El_SE I=I+l:Dl=Dl+1 GOTO 15701575 REM bU50ueda de archlvos de nombres1~:;8U OFF:!',' UL.ü "nCiml:ii'''f::'S'' PiS :[1585 FIELD #1.15 AS Nü$.8 AS AR$1590 FOR 81%=1 1'0 2001595 ON ERROR GOTO 16601600 GET #1.RECORD SiXlb05 ON ERROR GOTO 16601610 NOM$=LEFT$(NOM$.D1)1615 NOM2S=LEFT$(NOS.Dl)1620 IF NOM2$<>NOM$ THEN GOTD 1630 ELBE GOTO 1625
- 1625 IF NOM2$=NOM$ THEN NOM1$=LEFT$(AR$.8) : 81%=20016~o NEXT 81%1635 CLOSE 1 : ON ERROR GOTO 16651640 PR l NT" -i-ENCONTRO"1645 PRINT"busQueda de datas:"1650 PR INT "l ectura de datas :": I=<ETURN1655 RETURN1660 IF EHR=8 THEN PRINT"lHin de- ar'chivo*: ": CLOSE 1:RESUME 1665
" ::,,' ,:
1665 IF (ERR=4) OR (ERL=1075) THEN PFUNT "** archive ineHistente*;':RESUME.,i6";;" ,"".
:": ..'~:' -,~" .
.bJÜ
1.675!6i301.685
INPUT" int.r-oducit-a· mas es;taclone::; ::;1 i rio ~ .': ht.l.:f.:
IF RS$:::" si Il Of\ I~S$="SI" THEN CL.UbEl :EiClTU 1:;j4~j
PR 1NT "*·w·* F:' INDE JOB ****"CLOSE 1
.75 REM ****Draorama de oorcentaies de eooca seca****;80 E= 1: DII'1 X:~: (1::2) : DlM PZ (50) : 1:("".::0 : Cl:.<: : DII"I F(/ (~S(i)
~85 DIM lH(50):E1=999.9~90 PRINT CHR$(12):PRINT CHR$(27):CHR$(93):ttt3 PRI NT "******·***iI'*·*******·*·IH'·-+H'·***·ll·*~·iI·*·It:·*1HHHHi.. j;- il: PR l NT~;OO PR 1 NT " iI'** PROGRAMA PORCENT'A,JES DE E~STf~C1 ON SEC,':i ***": PFn 1\11~05 DIM MAT1$(50.12):DIM MAT1(50.6):DIM SM(SO) .ST(SO):DIM SPISO) :DIM RISO.6):10 INPUT" DIGITE: 1 si desea or-o<:esi".r-"~Nli~
;15 PRINT CHR$ (12) : PRIN,.. CHR$ (27)~20 IF Nl%=l THEN GOTO 325 ELSE END::25 PR..r NT" -----.-----.-----.------ ..-.----.---.-..- - ..- - _ - " : F~-:;: II\IT040 INPUT "*** titLllos?: 1 (con): 2 (sin) ":E:45 INPUT" cuencas seoLlida de (--) :":CLJ~t:F'FU"IT
.::50 PR.I NT" _.----.-----.------.-------.------------.-...--- ...-.---_. -.. -- .._-.. - --":55 GOSUa LECT:60 GOSUa LECT 1,65 GOSUB SELECT 1:JO GOSUa LECT2:75 GOSUB PORCENT.80 INPUT" ****** desea olotear" '? *·!t-·w·**": r';:~1:~
~85 IF R$< >"SI 1/ THEN GOTO ~:::90 ELSE GDTO 39580 IF R$< )"5i 1/ GOTO 405 EL.SE GOl'O 39585 PRINT" .*'****'11- olotearnos *****-w.*-jo;"00 GOSUa DIAGRX
,05 G08UB EDICrON:·15 ENDl20 LABEL LECT 1:25 REM r-Llti~a de ubicacicn de ancs inicial v nra:i30 FOR N=l TO 5400:NEXT NS.:'i PRINT"nombr"e de estacion: ":NOM1$:
'4J PRINT CHRS(12):PRINT CHR$(27):CHRS(93):45 OPEN OLD ll datasl"AS 1 :5=0iSO FIELD #1.15 AS ESS.34 AS AX$.2 AS ANS.2 AS NA$;55 GEl' 4* 1'60 PRINT:PRINT "infor-macicm : ":r~!:H:
65 ON ERROR GOTO 515~70 IF NOM$<> LEFT$(ES$.Dl) THEN 455:75 A1=CVTSF(LEFTS(ANS.2»:NA1=CVTSF(LEFT$(NAS.2»)dU Al=VAlllEFT$(AN$.2»:NA1=VAL(LEFT$(NAS.2»1-3::') Pd-Ji~:= l NT (A 1) : N;li'>: l NT 1I\IP11 )90 F'RINT "INICIPi : 19" ~ AN'ï.:" !'Jrm DE: ANUS: ": NPI~'~
;00 F'R l NT CHR$ <16)05 CLOSE 1,10 RETURN~151F ERR=8 THEN 801'0 520 ELSE 510,20PRINT "archiva inexistente (fin) ":FŒSLlME ::')25::2~5 END::30 LABEL LECT240 F'RINT" lectur-a de datos estacionales:"~45 DIM E$(50) .F$(50) .M$(50) .A$(50) .Ml$(SOI .D$(50);50 Dl 1"1 J $ (50) • ~J 1 $ (50) • A j, $ (50) • S$ (50) . D$ (50) . N:$: (~50)
.:,5~. ~ PR·I f\ll', I! r1cojmbr e. de... -(2..stac i .on :. Il : t\iOt~I.:.~:;
,60 OPEN OLDNOM 1 $ AS 2b::; .1:'RINT"anos a E~ditar : ":SC1:1\l'i:=:11\ITCE)C:;:L) ~PlH'ï~:~()
7') IF 8=1 THEN Y'ï.= (ABS <D'ï.) ) +:1. EU;:';E IF F3=:::::: T1-'IEN '{·.~~:::::1
/:;} IF S=2 THEN X~/~=-" CABS (D'ï.) ) +1 l::l... SE IF :~::;::::l lï·-II:7'::N >Ci;,::::l80 GL'ï. =N%+X'ï.:IL'ï.=N%+Y%85 IF GL%)NA%-D'ï. THEN GL%=(NA%-D%+ll+X%90 FDR G%=X% 10 GL% -1~l'-;" c.::~-I"/..";Ai.:I·.t+i-;-c; i 'l..;';Ai-I"Ï~~:1
:. ~~O FOR G%=X% TD GL% -11""'5cis" AH1..";AH%·+ ï:A iï.';"~Ai-f%:-~·l .': '600 IF ZL%>NA%-D% THEN ZL%=(NAï.-D%)+21 605 IF D%=O OR D%>O GOTO 615 ELBE GOTO 610: 610 AXï.=AO%-D%+AZ% :GOTO 6201 61~ AXï.=AO%+AZ%1 620 PRINT"*'M-******* AND :": AX%
625 FOR Iï.=Y%+AZ%· Ta ZL%r- 63ti -F lELO- #~~-:5 'AS- E:f CI ï.). 5 AS- F$ ( 1%) .~) AST1$( 1ï.).5' AS-Af.( l ï.) .5 .AS Ml $ (1%) .5'{·,
$(1%).5 AS ,JU:(I'ï.) .. 5 AS (~1$(I'ï~). ::; AS 5$:(1%) .. :5 (:")5 0$(1%) .~i AS N$(I%). 5 AS r%)
" ....
Il:Al%
FOR aï.= 1 TO 1'2
ON ERRDR GOTO 830SET #2 .RECORD G%UJ\J Ef~:F~:UI·: CieJl Ci E(Y)/"1 A'r 1 :$ ( 1 ï.. 1 ) :::: FU C,H T ::r ( E::r. ( 1 ~;,) ,,5) : 1'1r::n u: ( n; " 2 ) :=: FU GH T::t. ( F':$: ( l %) • 5 )MAT1$(I%.3)~RIGHT$(M$(I%) .5):MAT1$(I%.4)=RIGHT$(A$(I%) .5)MAT1$(1ï..5)=RIGH1"$(Ml$(I%).5):MAT1$(I%.6)=RIGHT$(JS(Iï.) .5)MAT1$(I%.7)=RIGHT$(Jl$(IX) .5)~MAT1$(I%.8)=RIGHT$(Al$(I%).5)MAT1$(Iï..9)=RIGHT$(S$(!%) .5)=MAT1$(I%.10)=RIGHT$(0$(I%) .5)MAT1:r (1%.11) =RIGHT~t (l'Hi (1:::,) ,,~:i): l'''I{-Hl$ (11:.• 12) :::RIGHT$ <0$ (1%) .5)NEXT If;
FOR J%=l 10 12:PRINT MAT1$(I%.J%) :SPC(1): :NEXT J%NEXT G~';
835
PF( 1 I\IT" .- ..--.-------.---------_ ..__ _ _._ __ _ - -.. -.----_.__. ._.__ . .__. . 11
FOR 1=5Cl+l TO 50: FOR J=l TD 12t-1AT 1$=" 999. 9"NEXT J:NEXT 1FOR 1%=1 TD ZL%-l:FOR J%=l TD 12PRINT MAT1$(I%.J%):SPC(1):
725 NEXT J%:PRINT:NEXT IX730 INPUT" *-ll'* DESEA DESF'L.EC3AR pm;:c 1ENTOS de al aWl ana 1-lE'1 (si 0 no):": RS$735 IF RS:f;="si" OR RS$="SI" THEN GDTO 740 ELBE GOTO 8407'40 INPUT "de OLle ana deseë.~ oorcentajes: ":P1.745 P2 =INT(1900)750 Pl= ABS(Al-(P1-P2+1»755 FOR J =1 TO 12760'·1=VAL(MAT1$(Pl.J»765 ST = ST+VAL (MAT1$ (Pl. ~J) )770 PRINT MAT1$(Pl.J):SPC(1):775 NEXT J780 IF ST = 0 THEN ST=l785 FOR S =1 TO 6790 SM=SM+VAL(MAT1$(Pl.3+S»'795 NEXT S800 F'C::::: (51'1/51") *100: PRINT "F'Dr-C~?nt. ::::": PCGI0 PFUNT" POF~CENT{~JE DE t~STriC:IDI'-J SECI~ :::: ": I:'C820 l NF'UT "dl';1Sea mas an os d oOI~cer1t:u.:::d:i. z ar": ": RS$82::i 1F F:S::t.·~.:: Il si" OR RS$::::" S I" THEN C:iDTCJ é.195 E-:LSE GOTO 8408:30 IF EFÎF:'--=8 l'HEN F'RINT"fin de archivo" ~ RESur1E 695
IF ERR=4 TH EN GOTo 840CLOSE :~~
RETUFd\1LABEL SELE:TT 1INF'UT"desde oue anD c:les€:~a diaor-ama: ":AO%:PRINTINF'UT"ANoS A DIAGFÎAr1{.m(I'I,~~~{:50*e!.".;·tac.: 1.2cm*ano)":SClPHINT"*'l1'* sel ecci onando**-lI,1IAO=INT(AO%) : AI$ = STR$(AO)A2$=MID$(Al$.4.2)Wl ;; 'v'AL (A:;2~n :fU%=1I'.JT(WU :PRINT ",:'Ino hidrloaicoD% =A l 'i~-'ANi'~
IF AN%+NA%>100 THEN D'ï.=(100+Al%)-AN%IF D%<O THEN GOTO 920 ELBE IF D%=O THEN 935IF D%>O THEN 975F'RINT " ** e~dste inicio D(Jster"iol~ ,:;:\1 .:lna indicado"D9ï.=AES <0%) 1
El=l: GOTO 985FOR 1%=1 TO D9%
63564064:5650655660665670675680685690695700705710'715720
840845850860865870875880885895
. 900910915920925930935
***"
"
""
"
-:n:.r·ÏF"'"'El <>'1 "THENS';;;2""-Ë"CSË' 8:::'1945 IF MAT1$ (Iï..J'ï.)="C,)(r9.9" THEN MATi (l'ï..aï.):::9 t'l9.9~50;iFMATi$(r'ï..J'ï.)<>"999. 9" THEN MAT1 (l'ï..J'ï.) =000. 1)
~~~/':A~JNT;.MA:t 1 ( 1 ï. • J'ï.) = .760NË)(T:(J~~PRINT = NEXT l'ï.96~- DELETÊ'lSl6Q '~'1 01597~'>·.,RE:TURN:". .97~ F'RINTJ'lil\diferencia. de anos in-formadCl es :": D'ï.9éfP'SOfO'i9ioge~:t~:t.F;:.EI-:",ltTHEN PRINT"*** llenando esoacios (MATRIZ> ,11·**"9c)q'F'OR<il:b~t'( Ta 09'ï.· .99,5 ·FOR':::J'~~l;· TD 121 MATi$ (Ir.. Jr.) ="999. 9": M::XT Jr.: NEXT l'ï.10QO., 5=1'f;GOTO 935 .1,î)Q5.:Re:rURN1010'Dï.=ABS(Oï.):PRINT" diferencial:":D'ï.1.0158=2: PRINT"al canzando al ano n';'CJL.lF.:!r-.i. c.kg ": GtJTCl 935t020·RETURNlQ25 LABEL OIAGRX1035 REM tabla de meses1040 X$(4)="A"1Q45 X$(S)="M"1.050 X${'6)=".J"1:0q5X$..( 7 )=:" J"ÙJ60.X$(S) ="A"l'Ô65 ,X$ (~) ="8"1D70 IF SC1)30 THEN SC3=301)75 ~F SC1<30 THEN SC3=SCl1080 IF E<>1 THEN GOTO 13001085PROY2$="P HIC A 8"1105 F=1900: A1=Al'ï.1110Al=F+Al11~50~ ERROR GOTO 12901120 POf~" '1,:112~j PRINT. "WO. 0.4000.2700"113<) PRINT, "QO": F'RINT "J3"1135 PRINT" 525. 20"1140 'PRINT"M1500.25S0"1145 PRINT"F' Convenio : SENAMHI 1 ORSTOM / H"H-l11,50' PRINT"J 1": PRINT "QO": PRINT "83:.:).30"1155 F~R I NT" M900. 2450"1160 PRINT"P*** SERIES: ('ï.) Estac:ion seC:éI / Anuè:d.es1 165 -PR 1NT" J 2 " : PR l NT" M1700 • 2695 1~: PF< l NT" l 600 " 0 "1,170 PRINT"M1700.2635" : PRINT"I600.0"1175 F'RINT"M1700.2635" : F'F\ It\IT " IO,,60"1180· F'R I NT" M2300 • 263::'i" : PF~ I NT" 1<).60"1185 PR I NT" Ml 7:;;0.2650" : F'R I NT" P" : PROY2$1190. PR 1NT" t12930. 2500" : F'R 1NT" F''' : PF-;:DV$1195 PRINT"M900.2S25"1200 PRINT" P ESTAC 1ON : "1:?05 PRINT "Jl":F'RINT"QO":' F'RINT "5::::0.25"1210 PRINT "M1550.2325" :PRINT"P":NLJM$1215 PRINT "M2200.2325":PRINT"PCuenca(s)1220 PR l NT" pl' : CU~:1225 .PRINT'''J2'': pr,;; INT "QO": PRI NT "815.1:?"1230 X=80 : Y=21801235 PI";: I NT "'1"1" =1NT ( X) : " • " : l NT (y>1240 PI~INT"PPRF'ml/ ('ï.) "
12~~~j F'F~ INT"5 10.10"1250 X9~300: Y9=22101255 FOR 1=1 TO SC3: X=X9 :Y=Y91260 PR I NT "M": 1NT ( X) : " • " : I NT <y) : PH 1NT" P" : {~1
1265 Al =Al +1:X9=X9+1201270 NEXT I1275 X=300:Y=2150:F'RINT "M":INT(X):".": II\IT(Y>1280 PRINT" X2":".": INT (120*8C3):".": INT (8C3)t '285 PR 1NT" M1255.2000"~ ~...'~'.:' _.~-..; .." ••~~~~-" ... ';~~ ... IJ,:;'._".~"'.'''< - "-.
1285 PRINT"M1255.2000"r~ i290"PFÙNT-II'P"'A' 'R' E - 'A'" H LI f1 E D A"1" 1295 PORT (1
: 1300 PORT 1: IF SC 1 -< 30 THEN A= 1 ELBE A::::'?i 1305 FOR K= l 1'0 A: '1310 F'1::':1NT "J3"11315 IF SCl >:;::0 AND K=2 THEN SC:::::SC1,-<':;:0
li," '1-'::';"0' IF S·Cl·...···~._·,(·.) AND 1··...·.·_··1...._ THEN SC:~;::::;::::;O
('-r 325' W=2100 :'Y=W:.;;.1000 : X=<::'00' ': 1330 Y9=W-' (1000'll-K)'-- «1<·--1) *2~ï)
. 1335 FR l NT "!VI" : INT ( X..·10) : " • " : l NT (YCf + 1. 7 )1340 F'RINT"X:3.1000.50"
, ,1345 FOF~ I:=: 1 1'0 SC:2:1350 X=300+(120*1)1355 F'R 1NT" 11" : l NT ( X) : " . " : l NT ('l'C.i.l
1360 PRINT"IO.l025":I\IEXT 11365 W=2100: Y=W-l010 : X=3001370 IF K=2 THEN GOTO 1405: ELBE GOTO 1375;,·::r75 FRINT"J3": F'F~Hn"QO" : F'RINT"S2:~ .1U"1380 FOR 1=1 1'0 SC3:FOR J=4 TO 91385 F'R1NT"M":INT(X):".":INT(\()1390 PRINT"P":X$(J)1395 X =X+201400 NEXT J: NEXT 11405 PORT (1
1410 01= (K--l) 'll-251415 Y2=(W+15)-(1000*K)-(Dl):X=30(l1420 IF K=l THEN L=l ELSE L=30+11425 IF K=2 THEN SC4=SC3+L ELBE SC4=SC31430 PORT 11. 4:::::5 FR l J\lT" J 1. "l :'~iJ·O Ph: l riT" 1''( " ~ l r.IT ': l :0 : Il • " : l J··iT ,\:.1445 FDR 1:-.::L.fO SC4: FOR 5= 1 TU é.?1450 MAT1=ABS(MAT1(I.S»1455 IF El(>MAT1-(MAT1(I.S-l) THEN GOTa 1456 ELSE GOTO 14801456 IF MAT1=El THEN GOTO 14801460 W=Cl*MATl : 'y'=Y2+W1465 PRIt\lT "D": INT (X):".": 1NT ('y')
14'70 PR n,Il "1 ::~O .. 0"1475 [30'1'0 l1ft3':i1480 FR 1NT "1'1" : 1NT (X+~20) : " • " : 11\1'1" ( y)1485 X::-:X+20: F<='"()1490 NEXT 6:NEXT 11495 X==300: V::::'y'2:PRINT".J2"1500 PR 1NT "11" : 1NT ( X) : " • " : 11\1.,.- (y)1505 FOR 1=L TD SC41510 IF PZ(I)=El THEN GOTO 15351515 C2=Cl*5: 'y'=(C2*PZ(I»+Y21520 F'R 1I\IT" D" : 1NT ( X) : " • " : 1Nf ('y' ;.1525 PRINT" Il20" 0"1530 GOTO 15401535 PRINT I M":INT(X+120):".":INT(Y2)1540 X=X+1201545 NEXT 11550 X=320:Y=Y2+7501560 F'RINT"S5. 5"1565 FOR I=L TO SC4 :IF RZ(I)=-899.9 THEN 16101570 IF F'Z(I)=El THEN GOTO 16101571 IF RZ(I)=O OR TH(I)=O OR PZ(I)==O OR SM(I)=O THEN GOTO 16101572 PRINT "M":INT(X):".":1NT(Y)1575 PRINT P :RZ(I)1580 pr~INT M :INT(X):".":INT(Y+:~:'5)
1585 PRINl P :THCI)1590 PRINT M : INT(X):" ,,": INT(Y·.. l00)1595 PRINT P :PZ(I)1600 PRINT M :INT(X):".":INT(Y-135)1605 PRTNT P :SMfT)
17;1:Q"X#=K+l20l' NE XTI·l61:si;I?R1Nt~~J'2it1'62Q):ï='~l,t9,T'!S7~ 'f" "l~; ~ei;':F,Of{';]'~':? 10 .... ,500 STEP 50
,~~~~{~z~g~~~'~;~;:'.t640 P~INT"M": INT (X) : """: INT <y),.645 F'RINT"F''': l~6~O X~X+30 :XA= I/5:SC=SM/500... ~:i~5·PRI N'T'.):I~f"\\'XA
,~~~~U:~~~ç~~~gt);~, ..... ,< " . .
l6:'O;'IF;;f~~\:Zr-2\;;THENGOTO ' 17201615X~300 ;Y=O' ::PRINT "810.10": PRINT "J2"168ÔFOR;1;';1: TO 5C31685PRINT:!.'M,ul INT(X): ". 'h INT (V)1690 PRtNT, "P": Al1695Al=Al+U X=X+120.[ '700NÈXT: 1i7()5f'RI NT.'JM300. 40 fi
1'710 PRINT' !'X2":".": INT (120*SC3) :".": INT (SC3)1715 Y2==Y2-25•.720NEXT '~(
1725 PRINT"JO"173Cl.,PORT 0J.7:?5RETURN1.740 'l.ABEL LECTl745 REM rutina de acceso v lectura1755. PRINT "** ESCFHBA CON MAYUSCUUiS ·iHt- ": F'r~IN'T
l760INPUT!· ...lombre de estacion : ":NOt1~t
1765 F$='·'*,": I=l: Dl==O1770 NQ1$=NOM$+F$L775 IF'MID:t(N01:t.1.1)="-II,1I THEN 1780 ELSE I=I+l:D1=Dl+l GOl'O 17'751.78C) REI'1b:ustJueda de arc:hi vos de n(,Jml-,lr-e<..:;:,L78S OPEN'OL:D Il nOmbres"AS 1l790 FIELD #1.15 AS NO$.B AS ARS1795 FOR Bl%=l rD 20018000Nt,ERROR .GOTO 18651805 SE~ #l.RECORD Bl%L81 (): ON ERROR GaTO 1865l S 1.5 NOM$:oLEFT$ (NOMS. Dl)18Z0·NOM2$=LEFT$(NOS.Dl)1825IF,NOM2$(>NOMSTHEN GOTO 1835 ELBE GOTo 18301830 IF 'NOM2$=NOM$ THEN NOM 1:t:=LEFTS (AR$:. 8) : B 1i~~,<200
lS3S;'N~Xr>Bl/.
1840 CLOSEl : ON ERROR GOTO 1870t 645 FRI NTu+ENCONTRO"IB5() PRINT"bLlsoueda de dates: Il
11355 PRINT"lectura de datos :"1860 RETURN1865.IF ERR=8 THEN F'RINT"*fin de~ archivo*: ": RESUI'1E lf370
lE)TO IF (ERR=4) OR <ERL=18(5) THEN F'R 1NT Il ** an:h i. va i lie>: i stEN1'tF.~·il-" ~ F\ESUME 1875
18751NF'UT". introducira mas estac:iones Sl/no: ":F\S~l
lSBO ..... 1F., RS$= Il si Il OF-< RS:t== Il SI" THEN CLOSE 1 : GOTCl 1. 7551885 . PRINTII*,*-I(' FIN DE JOB ****"1a9tiCLOSE 1: ENDi895 tABEL PORCENT1900 FOR 1=1 TO Sel190551'=01910 FOR J=l TO 121915 MATI =VAL( MAT1$(!.J»1920 MAT1=ABS(MAT1)1925 IF MAT1=999.9 THEN 81'(1)=11~-'~50 IF Mt:Hl<>999.9 THEN 1935 EL.BE: J:::·12:GOTO l Ci4(1. . ..• '",;"",,1::' ,.- J' ._~.,.. ~. """"T .. . ~, ... l T \ _0'"
STLMest./St.otl=F'orcentaie"
: NOM$ ..STmes : STot~=PORtENTAJ
F'ORC!ENTOS DE EPOC(4 SECA DE LA ESTACION :"Ana Abril Mava Junie Julio Aaest. Seot
le7~ INPUT" intreducira mas estacienes slIne: "rRS$:1880 IF RS$=" s i" OR RS:;'="5r Il THEN CLOSEl : GOrD 17551885 F'HINT "*** FIN DE JOB *.***"1890 CL.OSE l:END1895 LABEL PORCENT1900 FOR 1=1 TO SCI1905 8T:::::01910 FOR J=l TO 12"l~tS MAT l=VAC. < MAT 1 $: <LJ) )1920 MAT1=AB5<MAT1)1925 IF MAT1=999.9 THEN ST<I)=11930 IF MAT1()999.9 THEN 1935 ELSE J~12=GOTO 1940
\:~''''·1.9:Zf5 ~s~r=s~r+''1{~·r.i : 81- (I·)·~S·l-
'~h~40 NEXT ,];:~.~45 IF ST il) =0 THEN ST <1 ) :=: l::"~950 SI"I=i),1955 FOR 5=1 TCl 6~;1960MAT 1 ( l • S) =VAL (IvU';T 1:$ <1 • :3+5) );~J::965:SM:::S/"1 +ABS <MAT 1 ( 1 • S) )i/l;;{91p.SM (1) ==SM: SF' (S) =81'1-.19:75 MAT 1 <1 • 5> =SF' (5)
~;f'9'7a,IF 8>1 AND MAT1:.t<1.3+S-1):::lIcT99.9" THEN MAT1(I.S)=MAT1(I.S)·-E1\1980 IF MAT1$<I.~j+S)="(r99.9" TI'Œ:N SM(I):::.999.9 .;/1995 1F SI"I ( 1 ) =1:?99. 9 THEN S=6
1990.NEXT S. 1:9.95 TH ( ! ) =ST ( 1 ) -SM ( ! )2000 PZ(!) =(SM(!)/ST(!»*1002005 IF ST(I)=1 THEN·PZ(I)=999.92010 PZ(!)=INTCPZ(I)*10):PZ(I)=PZeI)/102015 RZ(I)=!NT(PZ(I)*10):RZeI)=100-(RZ(I)/I0)2020 NEXT 12025 FOR I=SCI+l TO 50 :FOR J=l rD 62030 MATi (I.Jl=999n92035 NEXT J:NEXT 12040 F'RINT"ABFUI.., l'lP1YO JUNICJ JUI....IC) AGUbT SEF'TB2045 FOR 1=1 TO sel : FOR J=l TO 62050 PRINT RIGHT$(MAT1SCI.J+3) .5):SPC(1):2()55 NEXT J :F'RINT" ":SM(I):"/":STCl):"=":PZ(I):NEXT 12060 RETURN2065 LABEL EDIC!ON2070 PF<INT"desea Lld. I,...IPRIMIR RESUL..TADClS :"2(,)75 INF'UT"resDonda SI 0 NO : Il :HS$2080 IF (RS$=~'si" OR RS~f.="f3I ") THEN GOTO 2085 ELSE GOTO 21452()85 PR! NT Il * ....jt. C{.~M81E DE CONEX ION Y EseR 1BA : CONT :"2090 STOF'2095 PORT l.2100 PRII'.I'l""2105 PR 1I\/T "E"211 (> PR 1NT Il .------.---.- ••• -- .... -.-----•• - .....- ..-.-...-.-...,-----.-.--- ..-.------=-----.--:--.--------,....----.~.--.-::...~,.....-i'.-_:_--
"2115 FOR 1=1 TO SCI2117 IF AN%+NA%)100 THEN E=1800 ELSE E=19002120 PRH.JT E+Al%: SPC (1):: FOR J:.::l TD 6:2125 PRIN,.. RIGHT$(MAT1$(I .J+::::;) nt) :SPC(l):2130 NEXT J:F'RINT" ":8""'(1): "/"~E.nCI): Il::":PZ(I) :Al%=Al%+·l2135 NEXT 1: PORT 02145 RETURN
