Diseño de ductos de aire acondicionado por el método de ...diseno de ductos de aire acondiciÜnado...

+,/.C/J a7 -? '.) ,

.2.F

/)¡J"r-L,l

DISENO DE DUCTOS DE AIRE ACONDICIONADO FüR EL I"IETODO DE

RECUF'ERACION ESTATICA CON AYUDA DE COPIPUTADÜR

ocTAVro vrL}EGAS OTERO

l9f ",""iYdllo"oro'

ltl¡¡ftflitr¡l¡fiÍfrryptll

CAL I

CORPORACION UNIVERSITARIA AUTONOI"IA DE OCCIDENTE

DIVISION DE INGENIERIAS

PROGRAHA DE MECANiCA

Uninridod Autonomo d¡ &ciüntrDepru Bibiictxo

11oJ 5

19AA

DISENO DE DUCTOS DE AIRE ACONDICIÜNADO POR EL I"IETODO DE

RECUFERACION ESTATICA CON AYUDA DE COMF'UTADOR

OCTAVIO VILLEGAS OTEROtl

TRABAJCI DE GRADÜ FRESENTADO COI.IORE{IU I5I TO PARC I AL PARA OPTAR ALTITULO DE INGENIERO I'IECANIEO.

DIRECTOR : INGENIERO FERNANDO R0JAS

üAL I

CÍ]RPORACION UFJIVERSITARIA AUTONOMA DE OCCIDENTE

ÜIVI5IüN DE INGENIER]AS

F.ROGRAHA DE HECANICA

1?AB

Aprobado por el Comité de trabajode Grado en cumplimiento de l_osrequisitos exigidos por IaCorporación [Jniversitaria Autd_.¡rrornade Occidente para optar a1 tÍtr_rIcrde Ingerriero Mecánico.

Pre.sidente deI J¡;rado

Jurado

"Jur.ado

Cali, Diciembre de 1988.

RESU]"IEN

Esta sbra tiene por objeto of recer Lrna solurción rápida y

precisa aI problerna del disePto de ductos de aireacondicionado generado por la r-rtÍ I i¡ación de diagrama= y

tablás áproximadasn Io cnal ocagiona erroFes acLimulativostramo a trarno. De iglrar manera se redr-rce er tiempo de

cáIcr-rlo respecto a Lrn disepto realizado en forrna manlrar.

E1 capitlrlo Lrnot trata g.'bre Ios flrndarnentos teórico= qlre

se deben tener en clrenta para aderantar eI disepfo de

d'rctos. En ÉI se describen tos diferentes rnétodos qne se

uti I i:an '/ ra inf luencia de los f actores qLrE intervienenen Ltn diseFto de esta natltraleza.

El capitr-rlo dos. cornprende Lrn análisis de los rnaterialesde' constrlrcción de los durctos. para cada tipo de rnaterialse especifica s,.rs propiedades fisicas y qurimicasr ,/ seestablecen los pararnÉtros necesariog que entran a forrnarparte operativa de los prograrnas de comtrutador.

El capitr-rlo tres. esta dedicado a ra parte operativa del

proceso de digeFlor 5€ elipresán las forrnutlas deI degarraIIo

matemático. EÉ reLtne eI contenids de log proqrarnas de

ctrmpLltador, Ee dan lag instrutcciones y g,Lt5' respectivaS

e:lplicaciones. Ademásr €B este cápitt-t1o se presenta el

ejemplo demostrativo! 5e dan los paramÉtros de preci.sión.

las reEtricciones de los prografnaÉ y los posibles errores

qLre plreden sutrgir en Ltn mornento determinado'

INTRODTJCCION

1.

1,1

1,1,1{{ñr..L."x

r.d.

1.:.1tFf?

1.?.3

L 3,4

1.3

1.3.1

1.3.?

1.:5.f,

r.f,.4

1. .4

1.4,1

TABLA DE CONTEN I DO

FUNDAf.IENTOS TEORICOS

CLASIFICACION DE LOS SISTEHAS DE AiFE

De acurerdo a Ia velocidad

De acuterdo a la presión

FACTORES CIUE INFLUYEN EN EL SISTEMA DE

ReIación de f orrna

Férdidas de carga pt:r rozamiento

FÉrdidas o gánáncias de calor

Velocidad del aire

FACTCIRES DE DISEí{O DE DUCTOS

Férdidas de carqa

Volurnen de aire

Diárnetrs deI dnctc:

Pérdidae de cerqa en áccegori.os

METODOS DE DISEííO

l'létodog Fara durctos de baja velocidad

DUCTCIS

Fág -

1

f,

3

3

3

4

4

5

5

5

5

5

I

a

I

I

9

q

1ü

1 .4. I . 1 Redurcción de velocidad

1.4.1.: Pérdida de carga constante

1 .4. 1 ..J

r .4.3

1 ,4.3. 1

I .4. ?.2

Reclrperación

llÉtodos pera

Reclrperación

Fresión totaI

estática de presión.

dutctos de al ta velocidad

estática de presión

11

1:

1?

13

?,

:.1

i.2

3.f,

f,.

f,,1

ji,3

f,.f,

:i.3, I

f,.3"?

f,.;i.2. 1

f,.3.3. ?

f,.3.:.3

5.3. f,

3.f,,f,.1

3. f,.3. ?

f,.f,,f,,f,

f,. f,.4

3.f,.5

3.3. ó

MATERIALES DE CONSTRUCCION DE DUCTOS

LAI"I I NA GALVAN I ZADA

FIERA DE VIDRIT]

ICÜFOR

L4

15

t6

19

F.RDCED I I'II ENTCI

f'IETCIDO DE DISEííO DE DUCTOS

DESCRIFCION DEL PROCESO DE

FROGRAIIAS DE COI'IPUTADOR

Reslrmen de los pregramas

SELECCIONADO

D I SEí.ÍÜ

?3

23

27

2B

?8

35

44

44

4B

49

54

54

5g

59

6ü

64

Contenido deI programa ductos de sLrministroDi ag rarna de f t r-r j o

Variableg Lrsadas en e1 prograrná

Operación de I progrerna

Cantenido del programa dlrctos de retc¡rno

Di ag rarná de f I r_r j c:

Variables Lrgadas en el prograrna

Operación deI prograrna

Datas de resLrLtados

Ejemplo

Precisión

f,.3.7

f,. f,.8

r. t.9

RESULTANOS

CONCLUSIONES Y RECOI"IENDACIONES

BIBLINGRAFIA

ANEX05

Restricciones en 1a utilización de los

Preparación de datos

Errores en Ia corrida de log prcrelrarnas

prograrnas 64

á5

65

67

69

74

FIGURA 1,

FIGURA 3.

FIGURA 3.

FIGURA 4.

FIGURA 5.

FIGURA 6.

LISTA DE FIGURAS

LONGITUDES DE LOS TRAIIOS

NUI{ERACION DE LOS TRAMOS

CODO DE RADIO

CODÜ EN CORTE

PERDIDA POR ENTRADA AL SISTE¡4A

UNION DE DUCTCI

páq.

3{l

f,1

3,2

DE DUCTOS

33

._1._a

f,4

TABLA 1. REFUERZO5

TAELA 3. REFUERZOS

LISTA DE TAEILAS

LAMINA GALVANIZADA

LAI'IINA DE FIBRA DE VIDRIO

pag'

77

73

] NTF:NDUI::I::I NN

El presEnte traba.j';, 5e r:":Ltpd{ rJeI de*.art¡t¡l 1,:¡ rj{.: L(¡-l

pl'd':#cl imiEiI-rt¡t¡ ¡;¡fEr¡frf,ir;r;r, y l.a eje,:Lt¡:i*¡fi de estg¡ en L.rnr:rg

pr':'clrAfrlás¡ del rlr:ifilFLttÉiClrtrt-r E1 rtt.t¿ll. CJiEeFfar* *l gistÉrn$ dÉ

gl¡1r; f, r;rg pAf á a i f ¡¡ Er': !:rnd i rl i rlrl..t.tflrlr.

E:ite prrrr{edimiBr-¡trt¡ tiene bage Én 1c,g fr-tndanient,tr$ teü¡.r i¡:¡:rg

t*:';F1i¡tÁdrrrs efi ÉI tran'r,:L.trgr:1 iJel traba.j,::'t y vi::L¡:,i3 i,.jn I.ni:;

H I ¡¡fif, ,¡'gl¡r E {* I €n',: ¡t i. ¡t¡ñ ¿tCl ¡tr t¡ á.r a ^1 rJ i EsFf ,:, d e d Lr,: t: c's d e

gLtrninis,tr,::,r ag ffil rrü.,tr:.rd¡:¡ dsi rs,:LtpE*r6r;irlr¡ egtAtir:a de

[ire':;it,l-| , ]'Fr¿rrc{ 1¡trÉi clr..r,.jt'::,-* de r€trt,t.n¡:, ::e uttili:a el inAtc,d,:,

;:¡'-:rrrr*.3[trlrfitli eftt¡,¡ A eÍtf á¡]rt i. l¡r¡ d*:,i,.- f €i,

cl i. st i nt aE &r eas cle l. a

r:r:¡Tr':j.E+i.TrC.: A 1¿r. p;(f LÉ

á¡ll r-¡f]d i r- i rlrl'¡¿¡Jr;r.

Es i mp,;,¡ t ant e a¡: 1 ;rr ar

, Il. '."j,:,::: 1;'= eI lniEm,:, I y

dUt':t¡:rS dF i'Ft¡lr'l.nr:' n':' l-rAy

Ls r e,: Lrpiir ñ,t i 1,fi est ht i ,:,:

¡tál'l'El'flr en espe': i;il , 1,1, qLte

de fllridc's y la párte .(ii.e

qLte eI pr':rr:edimíE*fit¡Ir pc-rt"E\ Árilbrt¡E

1a L(ni¡tá váriártit,n, es qLre en I,t5

re':Ltper*'tiÉ¡n €rst&t i,:€r de presil_,r¡,

lfrlrlrlr ge lrt:i1i:A en dLt,:t,:tS de

sr-un i Tr i r:t r ':'.

EmplgAftCl ':' e1 ¡:¡:'ffipLttSd'trt- r:r:¡ff¡r:r lfeffafnienta de

'¡ ELtne t¡:rd¡:r p'l i-r-,ri irr-r'l:r*' r{q in.l',::f inri¡::i¿¡n y r:ii.j

flr<1|..r€jrlr {Jilr l-tn iJil-¡r1 V':,lLtffidifi de l.a frr i.;frr,.¡, A

rir: &1¡rL.rl.¡l¡!. riF:rATr m&si prEüi:;,:,i: y el tiernp,:,

'i[lsfrtlrlt¡-.¡ cl LtÍi ,:F.'. 1.':Lt1¡1, El-l f¡l,l.ffiÁ ffi¡jnt.,, :,

t r aba j,:' r sF

.É .-..- .; 'l ; {- - ,-.1¡ i;1r- .L I r u g1 ii-L

'gl-l VtiI I rll¡1!

r:ie redUt,:irA

1. FUT{DAMENTO$ TEOF]Ir;;65.

El r;rhj(3f,ivr;r de un sisterna de dlrctr:g de árre a,;¡:rñdi¡rirrrñádr:¡

es ':c,ndLr':ir el aire degde el. FeLtÍpr:r a{r,ndici¡r¡ñacJr:rr lragtael HSpaüi,:¡ et-t€ Vá fr gEr á¡I¡irñdj;ir;,¡¿¡¡1,;,.

1. L r*:LASIFITI:Arl:IüN DE LOS SISTE¡"¡AS DE AIE:E A¡::üNDIr::IONADO.

L¡:¡s3 sistemas cJe dur,:t':s ge ,:lasi f ir:án de a,:Lterdü, a Iavel':':idacJ y 1a presiü¡n cJel frirÉ dentrc, del dn,:t,:,.

1,1.1 ü:Iagi f i,:a,:iÉ,n dp arnerdü, a la veI{,,:idad:

Er i gt en d¡r¡E t i p';'s de si st ernas de t r angmi si *,n de ar. r F

efnplFadr:'g en e1 á¡I¡Irt-ldi,;1,;,¡¿¡¡ig¡ni;,¡ cJel ai re;

Eta.ja velnridad, hagta 1t m,/seq¡ .

- Al ta vel ü,': i dad, máy,3r de 1I rn./.seq.

1,1.;: r::la=ifica,:iü,n de arLrerdd¡ a 1a pregiü,n:

Fa ja pr eEi ¿'n , [rast a 3r:r ¡¡* ,: ü,1 Ltmná de aglta.

Pledi á presi ü¡n, si stÉfnas qute traba jan {,:tn presi,rnes de gü

rnnr lrast a 18tl rnrn r ¡:,1 Lrmna de acJLra.

.{+

Alta presit,n, sistFfnaF qLre traLrajar-l ¡:r:rn presi'fnEs de 18(l

mm hasta 3t-¡t-l rnm ':r:rILtfnna de aglra.

Las pre:lic,nes j.ndi':adag Eürn presidrneg t,:¡tal.e5r in,:l.r-tyencJc,

la:; pérdidas de üárqrt dentr'¡ deI FqLrip';, árt¡rrñdir:irSnsqcl ¡:¡r y

b¡:¡:áE de i rnputl si t,n,

1,1 Fa':tnres qLrE influryen Fn el sisterna de ductc,s,

Lc's f a':tc'reg qt-re i ntervienen en e1 di seli,: de dur,:t¡trs sün I

- F er d i das de ': ar ga F':r F ¡j,r áfili €rit rrr,

- Eiel ac i l,n de f c,r rna, d i rnensi c,nes del dut,: t ¡:r.

- Vel c,,: i dad del ai r e.

- lserdidarE n gánan':iag de rlfl]rlr'¡..

1,:.1 Relaciü'n de fc,rma.

Se *C¡nr:'Ce Cr:rtn¿r felarirlr¡ de f¡t¡I"ñlá A la relA¡:iÉ,n, entfe laS

CJirnengir:¡nÉ:s may':¡r y fnen':'r de l.a ge,:Citrn de Ltft CJt_tCtC,

r€,rtanglrl.rr. Esta rela,:iÉ,n es Lrn fa,:tr,r imp,3¡tante a tenergn CLtentA, F':''¡. ':Ltarit,:r el aLtinent¡: fJe estA fela,::it,n

in,:rernenta e1 rlrlrgf,,lr de ':rtrt-¡Et¡¡¡rlrtilrfi y tarnbier¡ el ¡rrrr5tr:r de

'fpel-<*rtiü¡ñ. Es deseable tener Lrrr,a rela,:il,n de 'frtrl-rná 111 ü

I,:, mAs seme.jante cr esta.

1..1 ":: F'Érdidas de ¡tárüá F,t,r .rrt¡ldárr¡isittrtr.

La pÉrdida der pre*.il,n derl aire qlre fllryedebida r 1a resis,ten,:ia de1 f1n.j,;, fr

dependi end,: de 1a rel a,: i ün de f c,rms Ou*

p&rdi da gurrnentarA, a f e,:tand,: l,r¡S ¡trf,Et¡g de

clei ':,per á¡: i trfr .

1,:,4 Velc,cidad del aire.

Para cleterrni nar I ¿r ve1,:r,: i dad de1 ai re,cutenta l.aE limitaciü,nes respe,:to alf:¡:¡flgtl"Lt¡Irtit¡ñ y C¡:rst,:t de,SpefaCibn.

vá1r:'res de vel ¡¡r: i cJacies re,:c,fnendádrI¡E der

en particr_rIar,

1.:.3 F'&rdidas c' qarran,:ias; de,:aL¡:rr.

tl;lraridc, urn s,istema cJer dr-tctr's' []ásá a travüs cJe Lrn espacic, n{r

á¡I¡trñdi t i ':,nadür, gl.l temperaturra ge el eva p,:,r el r:al r:rts qLre ge

transmite* lra.':i¿i 1", La transrnisiürn de cal,:,r clepende cie 1a

rela'¡:il¡n de fc,rrna, de Ia lr,nqitr-rd del dlrctc,r de .l.a

difer€rt,:ia de ternperatutras, de Ia vel,¡,:ídad del aire, deltip,3 6s sup{!r f i,:ier del du¡:t¡:¡ y del tipa de aislamient¡_¡.

en Ltn dtt,: t,:' eg

1a frirciü,nr y

5e tenga, esta

rl rlrfi gf, f LtC t: i ¿rn y

hay que tener en

r Lri dc,, c ost c, de

F':,r eI 1c, ey;igteri

a¡:Lrerdn a cada t:aÉ¡:,

{F,r..:,

1.3. I

FAI::TOE:ES DE DISENO DE DUI:TNS

F*r d i da* de ,; ar cta

&

Err tndr:s I¡:¡E ¡:r:'ndLt':t':':; pr:r'r lrr¡s qr.te,:ir,:r-rIa áire¡ Ér..¿iiste

Ltna rrrrrñtinna pérdida de presitrn, Esta pérdida de prÉsitrr.r

se 1lama tarnbién de trarqa pÉ'r rc,¡arnientc, y depende de 1¡r,S

si guri ent es f ac t c'r es:

I . Vel r:c i dad de1 ai rer.

:. TarnaFfc' de 1c,s dLr,:: tc,E.

3" F:Ltq{,sidad cle 1a sLrperficie interic,r.

4. L,r'fi9 i t r-rd de 1 ¡rrg dLr': t ':'s.

La re*1aci.'l,n gntre egt':'s fa,:tc,res se encurentra dada pLrr 1a

e,: urac i t,rr d e Dar a j [^Je i. sb a,:: lr :

F' = f xL-y;Á':,;V

D:r;I!:g

d¡nde: F = ,:ái da de presi ün { }lqlm"I)

f = fa¡:t,:r de fri¡:¡:i*¡n

L = 1¡r¡ñei turd del dLr,:t,:, (m)

D = cJ i &nret r c' eqr-tÍ val ent e del durc t,:, {: m )

A' = derns.;i dad del f l r-ii dc, (ttg7r'.=,

V s v{:1¡:r;idad del fllrid,:, trnlSecj.}

ü =: ¡:,rrñEtante qravitacic'nal {: ,l .B inlseq''.1)

La rrl a': i t,n an'Ler i c'r en Lrni dade,s de ,:ai da de preEi t,n Er-l

Fc15': al eg:

F' i :r L :.,i x :',; V

,it4u

Fara r'perár 1a €,rLlFrüit,fl anteric'rr se tiene qure determinar

erl f¿rctc'r de fricciÉ'nr qrre viene dadcr pr3l- la relacil,n de

lli¡: I E:t¡ r ,:¡: l:: :

IJ.

= _ ! Lr:,Qtf

e + :,51

3.7:rD F.lexff

Esta erru¿,rirlrfi e{s val ida en Ia regit'n de transi¡:it-rn d,:nde

e1 f¡r;fr;r¡ de fri,:,:it,n depencJe cJe Ia ruer;,5if,¿gl absc,Iuta e,

deI diarnertr':, eqnivalente deI dn,:t,:' Dr y e1 nürrnerc, de

E:eynr'1 ds.

El. fa':: tc'r de friclÍt,n esta ':ü'rrprendidc, entre l,:,g

t3iqtutienteg limites ü,üü8 ¡rrtrfnü, €1 minirn,:,y t).1 c,:,fTlc¡ valc,r

rná y; i m¡.

F'ara rrpÉÍár Ia ecurarj.ün de ü,:,Is[¡,;rr;r!:; hay qlre deterrn],nár

1':g Eigt-tientes fart':,rEs :

s: rLrerl,siisl ¡s de1 rnaterial en qLre se rtrtrftstrLrye el dur,:t,:.

* D : diArnetrc' equriv*rlente del duüt,:, trn:.

- Re: n{rmer,:, de F.eync, lds.

E5

1.3.: V'¡lllmen de aire.

HI v['1¿rmen '¡ ,:alrcjal de aire qLre requriere ,:ada espacic,

es.tarA deterr¡inad,:, cjs ,antemand, pcrr la {arga térmira qlter ha

sid¡::r e:itinrada párá cada Lin':r de 1c,:i re¡:ir¡t':rs. Siendc, el.

t':,t41 deI vr:'1¿tmen de aire Lut valc,r r:¡.:rnr:r¡:id,:, a la salida

deI vent i 1ad,:¡r .

E1 vc'ltrmen cle ¡i-l , e ge da en urnidadee de m'.3/seg.

I . 3. 3 Di Amet r c¡ del durc t ':,,

Se tiErn* L.rri;¡ fii.:.. -,. pérdida pc,r fri':ciÉ,n en Lrn dur,:tr,

re':tanqlrlar qLre en Lrn durctür circular de1 rniErnn vaIc,r de

&rea de ser:':i¿'n tr,¡nsvergal. F,rj¡l- eI 1n ge ¡:rt¡flsidera Lrn

diametr,:., equrivalente cl e dLr,:tc' qLre tj.ene las rnisrnas;

¡:érdidag de fri':rit'n qLrÉ* Lrn drr':tc, rertangurlar entregandn

1a rnisrna ¡rÁñtidad de aire,

1 , 3. 4 F Ér d i das de ': ar qa en ar:,: est:,r i ,:':' r

Er¡ Lrn gi st erna de dltr t c,s Ee pr e:ient an pér d i das de ': ar qa F,:,r

¿¡C{gt$':-'fir:,Er ':':'fllr::r p¡:r¡. e.jefnp1,:,, ¡lr1rd¡Irg, LlfliC,fleS,¡ tg, galidag

,:' degcarelaE, etc,

Las p&r-rJidas se ¡-Bl¡tr-t1an p':'r 1a siquriente eyipregil,n :

']

F = lixV

I)iq

rj¡:nrje F' = p&rcl ida c¡e üárqa (: m:)

l:. = { ¡t¡ñEt ant e de a,: ü es{,r i ,:r

V = veln,:idad del fluricJ,:, r.rnlseq.i

ql = rI i¡t-r!!t ant e qr avi t ar i ¡trt*tál t rnl9;eq"'l )

1 . 4 If ETDDOS DE D I SENO DE DUüTOS

flr¡ rrralqurier gigteina de enfriarnient,:, y ventira,:it,nt:¡:rft ,:ir':ltla':if,n me,:Ani,:ár e1 venti lad,:¡r rjebe tener lar: apa(idacj adecurada en üLrant,:, a ,:antidad cje aire requreridc,y Ltna pr€sit,n erstáti,:a igr-ra1 ,i ligerarnente máycrr qLre lar esi st enc i a t r;rf, ¿l qLre :;e t i ene+ en el si st erna de clrrc t c,s.

Fnr 1':, general dehe l-rrr¡tÉ].se Lrn tratad¡:¡ cJeI t;il;terna rle

cJtt,:tc'g t'ari dire*cb,-., ,-':rfrr':' g€r¿t p,t,gib1e, evitar vlreltag mLry

aqudas y nr:¡ i,..,¡ {_-lLre tener dLr,:t,:,s rnuy despr,:,p,3r¡.ti¡rrrl ádrI¡S.

1 . 4. I ltlét ¡:¡dr:¡s par a dlr,: t r,s de ba ja vel or i dad.

E:,¡isten tres m&t,:,dc,s para el cAl,:trlc¡ cJe dLr¡:.i:.¡:rE, i.... bajavE¡ I r't i d ad ; I *s ¡:: Ltá J. €*s3 s,:¡r.¡ ¡

1 . Fjedlr': ': i t,n de Vel ¡:,: i dad .

l. Férdida de ¡rál.gá,r¡f,t-lstari'Le.

3, F:ec lrper ac i t'n e|!t &t i ,: a.

1 , 4, 1 . i Fieduc,: i t,n de vel c,r i dad.

Hgte nrétc'dc' ':ü,nsiste en geleccic'nar Lrna veltr'Eidad de

salida en 1a desrárga del ventiladc'r y establerer

arbitrariarnente Lrrr a sr:riEr de re¡dLr':¡:irr¡r'lEE á Ir:1árcl ,:, deI

rlutct*'. El. valc'r de1 diametrc, ':ircurlar equrivalente sle

deterrnina de a,:Lrerdc, a la ve1,:':icJad del aire y sLl ':aurdal .

5e detern¡ina lr'::¡r r;fi|rl¡lfrir 1* presitn *stAtira del

ventilad,:''r', r-rtili¡and,: la may¡:¡'r. 1,3n€itud del durct,¡,, c,:rn

t C'd{'5, gUtg át C es,c'f i ':rg,

[i,:'lamente debe Lrsarse* en sisternr:s rnLry elernentales¡ y en

eSr:rg r: ág':'g deben i ngt a1 ar ge ': ¡:,mpLter t ag' rJ i vi g':rr ag []dr a

'l ':'mpen5áf e1 gi gt erna.

1.4. 1,: Ferdida de cárqü ¡r¡trut;tant**.

Este* ¡¡sf,r;rsr;r ¡rrrrrrÉiste gn calcutlar 1,:s dur':t¡:¡s cJe ta1 f,:,rfrra

clLttr tenqan 1a misrna p&rdida cle ':arga pc'r lrnicjad de

I ¡:rflg i t L.rcJ r a I ,r, l. ar gn de t c'dc, el gi st erra. un si st ema de

este t:i.p,;, es iJifi':Í1 de eqr-rilibrar p':'rqLrÉ este mét¡:,cJ,: n,:l

tiener f*n rrLr€r-ri;,: e1 equitibri,:, de caidas de preeiün en lasdistintas rárnasr r'l i r*st* [rr':'visL¡:' tje mecji¡:,s parct iqltalsr

tl

las r:<¡idat; de r:resit'n.

E1 prü,r:edimient,: cle calcurlc' r':rnsiste en elegt ir Lrná

velc":idad inicial en e1 dlrrtc,FrincipaJ. en la deg,:aretá del.

venti 1ad,:r y ':':n el ':aLrdal de aire' determinar Ia p&rdida

de ¡rárgá pc'r urnidad de 1¡r¡r-lgiturd. Esta pérdida de r:argá

debe mantenerEe dcrñstante á I r:, l arg,;' ¿s1 si sterná.

Es precisc, {al':urlar 1a p&rdida de,:arqa en et trarnc, qLre

tenqta 1a rrá¡/rrrr resi stenc i a, para determi nár 1a pérdi da de

¡tál'g,i t,:taI I eLrÉ¡ debe .;eir sutperada F't'r eI vent i I ad,:,r. Ls

re+:ii. gi;en,:ia debe in,:1t-tir 1¡:rg a':cesi':rrirl¡g r:r:rrreEp't'ndierrtes fr

di':ftc, dLr¡:t¡:¡.

1.,4, 1. 3 F:e':lrper¿¡rlirlrr'l e*stAti,:a de pret;iü'n.

E:1. futnd¿imentc' de eg;Le ¡f¡9f,,;rflrlr ':d'ngiiEte en dimenEitr'nar erl

dutrt¡:, de ta1 frr¡l'rná qLre el alrmentr, de presi¿'n estati':a r:l

ganan':ia debid¡t¡ á 1a redu':ciü,n de veId"::Ídad en r:ada rama,

': ':'mpenge I as pÉr d i das p¡:rLr rrrr árrii Ff'rt,r, en I a si guri ent e

EE¡trI i l¡t-t de dUt¡:t¡:¡.

E1 cA1,:ut1¡:' p':'r elgte rnétc'dc' {rr¡r-rsiEte en gele':':ic¡nár Lrrra

V€Iü¡r:iciad ini,:ial., en 1a deg':argá det ventiladr'r y É{,r.¡

el ,:audal de *i re r€elr€r i clr:r, se empi er,a el

di rnengir¡FlárTti Eñt¡lr de1 clt-r,:tc,.

1.4.;: l1*t':,dr¡s; de digeft':, de dtt,:t,:,9 de alta veI i',: i dad.

F ':,r FEt e n¡ét r:rdr:¡ !;e

cle ,:ada tram{, y la

É1 tr"lrTt,.r si glri erite.

Este ¡¡éf, r;16l¡r

r eC Llper á¡I i ü¡Fl

': ':'n51 gLte r edLtC i r

ve= 5e redltce el

I a vel d¡': i dad á1 f i nal

t amaPla del dnr t r, p¿ir fl

L':,s gí sternas det i.i ., ;tr i burc i t,n cie al ta

pr e:li c'nes est át i c as, y veI c,c i clacJes

¿¡fr';'ptadag en Lrn gigterrna tcrnven,:i¡t¡nál .

¡:AITILtI¡t¡ 1,f,S ':LtAleg g;r:'t-r I

vel,r¡rti dad Lrti l. i ian

lllá/r;r¡ gg qLle L ag

Hay d':'s rnétc'dc,g de

1 . F.ec utper a': i t¡rr est At i r a de pr eEi l,n .

:. Fresi l,n t,:,taI .

I . 4. :. I Ftec urper ac i É¡n est at i r a de pr esi ,l,n .

fistH rn&t':'dc, es t;,imilar á1 r-rtilitad,:, pára sistefnas de

ba ja vel ü,c i dad . La vel ':": j. dad del ái r e se r edLrc e despnes de

¡:ádd tram':,r 1,:,,:r_ral pr,:¡dLt¡:t* t.rn áLrmFnt,:¡ de presit,n egtAti¡:a

qLrÉ t:':'fnpeil-lr¡,{a 1a pérdida de,:á1.g3 en la giquiente sFCrriÉ¡ñ

de1 sl¡-¡r;fr;r.

.1.,4.I.: Fresil,r¡ t':'tal .

de di s.ePIc, es urna adaptac i I,n del rn&t¡:¡clcr de

e¡gt At i ': a, Ti ene Lrna vent a j.e ya qLre e1

digeFlad,:,f r:r:'r'l'J¡:E A f,:,t-rd,:, laE nrEsirt¡ñE= inbefinediá5 del

5:;istema y ¡:':rr¡tr':,1á 1¿t v€*l¡r¡¡ridad y las dimensit'neg' del

-1,.,-J- -(J L(r._ l, r_r¡

:. I"IATEFJI ALES DE I::ÜNSTÉUI::I::ION DE DUI::TO5

Una var i edad de mater i al es han 5i d,:, t-tSad,::; t*Ig

¡r.¡r¡IrlrtrLr¡r¡riü¡Fr der dtt':tr,g, Ev:iste 1a tencjencia a liarerhin':apie Fn ciertc,s reqLrerirnientc's gEneralers para tr,cl,:,g

1¡rrs sigternas de gl¡¡r;fr;,5, depenrJie*nd,:, de* la parti¡:ularirjacl

de 1a apli,l¿¡r;i'l'¡.

[*¡]rs cJife*rentFiE n¡ateriales ursad,:,:; Hrr sis;te+nras cJe drt,:t*,s

pueden afe,:tar

si st errtás; 1 ars

r:ára¡:teristi,:ag

parti*r-rlar.

Al qutnc's niá.{:: r:r j. ¿il. e:;

1ámina galvanirada,

fibra de vidric,r FVr:,

t:r:¡tnpletArnente €1 furn,:irtrñátTliFFr t¡r¡ de l,:,E

venta.jas deberr sc*r eval lradas c,:¡n 1as

limitantes para r:{rdá material er-l

i. -,i" e I a rt ¡trñSt F Ltrt rr i ürñ de dttc t r,s Ecrn !

alutminic,r a':Érr:r it-t':':,(idab1e, ¡:':'brF,

^+.-

La alta pérdida de

] rlrrS ftglr:¡f Ég f Ad t ':'r eg

rnat a"r i al d i fE.lr errt: e* .r

pregif,n pr:'r frir:¡:i*rn

á ¡: ¡t¡ñEi der ar , r: uancl¡:¡

I Arni na qal van j. r ade.

pLtedE 5er Ltnr:¡ de

ge sel ecrt i c'ná Lrn

15

En el presenter pr':'ye':t¡:¡ se l;endrh en ':Lrentá g':lo tress

inateriAleg de ':rl'rrSttLtrt¡til¡fi 1':,S ¡:Ltá18:] S'::'n :

1. l-Amina galvsni:¡ada.

:" Fibra de viclri,:,.

3. lrlrlrprlrf.

;1. 1 LAMINA ISALVANIZADA

Ampliarngnte LtgacJ.:' ,:,:,frr,:, materí*1 de rt¡trñStrLtC{il,ñ para 1a

fllcllrlr¡ia de 1,1,5 Sigtefna$ dg "rirel . Nrllr 5É rer:r:rfniendA rlLláfld¡3

5e niane.jAn prÉrdLt':t':'g {':rff¡:'giv':'5 tr tempefatLtfAg mAyr:rfeg A

!i r_, r_, .,\ r ,

Entre E;LIE venta.jas nc: ':Lrentá; 1a alta rigide:,

dutrabilidad, regi:iten':ia a l't¡s [1,;,¡19,;'s y ba':teria:;, Ttt:¡

¡:,:rr,lrsi dád ¡ tr aba jabi 1i dad y i;c'l rJabi I i dad.

Sutg desvt*rrt,e.jás g¡:rti¡ p€tsr:r, registen,:ia a 1a r:r3rr,::;iünr

p i n'b lrr a.

[:]. sigtutiente ':Ltádrcr mt-testra 1c,s reqLrerimientÉ's cJe a':er¡:' aI

':Arbr:rn¡:r, áf'lteg cje qalVAtri:,ar,

El ernentc,

l::;rr Ll¡:rt't':' (. rnAu i m,:'.)

Fc'r c en t a.j er

{-¡, r J

IEL

ltl,:l'iqanes,:, t'nrAr; i rn,:¡.i il " 6{l

f'r;rE f ¡r¡ r;i (. ntA yl i n¡r:r .) {1 . 035

A: lr f r e (. rnA x i mcr.r {). {}4C,

t::'::,brE¡ (.rlltittifl,lr e$ egper:Í f icAd,:,) r). IO

En 1a tablá N¡:¡, 1

párá 1,:,9 refLtert:,-:'r,i

¡ SF ':¡tlSer Vñr'l

E fi L.i L,i,_. L ,:, :.. : _

I as n¡:'r máE egt ab I e,: i das

I Ami na gá1 vani ¡ada,

En nuegtr':' fnedi¡tr É€ trabaj*1..1 r:,:,n lrrrg Siglrientes ,:alibres:

1. l]:alibre !4, dinrensic'n de1 ladr' rná/d,l' lrasta 3oo mm, ELr

Fgpe5':rr e!; iJ.5ñ rnrn, r:r:r:al;rlr pr3'¡ mr+tr':' ':LtadrAdr:, Eg $:.IFñ., c1

n,rrVienittrs d€* 1,'388.

:, t]:alibre It, dirner¡sil,n del

É35Fi*E'::'r €ii!; ü.71 ffiffir rrrt¡Etr:r p¡:rr

ñ¡rrVi embr e de 1 . '3gB "

I ad,:' máyü'r lrast a 137(:) frrm, 'iLi

metrr:r {Lladrad,:' es $317(:}.. a

3. ll:¿r1it¡re,"::(:), dirnensi*'n del 1adr, ntay,:,r surperic,r a 1g7{l

fnfn t sLt egpe:;':'f eg (:). 8g mm, ¡I rtrst r:¡ p':rr met f ü, ,: Ltadl" Ád!:¡ eg

$4.:(:)(:), a firt¡viernbrtr rJe 1.'388.

4. Fr'i1 de alLrminic,,:, r€1,:Lrtlrimisnt{r para evitar barrerag

de vap'::rr y daf blte¡n á¡jtctbáClrtr e¡tÉ.r i,:¡f r rI¡t¡St¡I¡ p,:rf fiÉtf,:,

dLradrad,:, es 1.7i_¡r_l , a ñrt¡viernbre de 1.gBg.

i.I Fibra de vidri¡:',

I7

Lü'g ¿j¡1r;fr;r¡3 FiL¡erqIa:; EÉ fatrri¡:an en s€t¡:r:i,:,t-reg

rectangr-rLares, ,:¡:rn 1}.minag riqicJas de fibra de vidric, I

aqllrtinacJaE rrü¡n resina terrnr,egtable y recurbiertrrr pirl. Lrrla

de SLIE ':árás, '::r:'n Lrná 1&mina d,i: f,:,il cle alLtmini,:,.fFf ¡I¡'f iád¡l¡, qLtE t:r:'ngt i tt-tye ttna barref a de v.rp,:,r qUe da ,*l

clLr':t':'r adern&s cJe b¡ureri a¡:abad¡:¡ n¡Ag resis.tenria rne{ani,:a y

permite blrena sr-rje,:iün de la banda de alr-rrninic, ,:,:,n qLre t;e

gel1an 1¡I¡5 brtrl.deg y Lrf'li':'ne;a.

El f ':'i I {c¡n qLte sg re¡:Ltbr€l 1a 1&mi na :"i rv* ,:c¡iii¡:r tt¡:ir -,-á cJe

vfrp':'rr elÍrn:ina 1a ':r:¡ndÉtnsá¡:ilrn y ELtg efectc,sr retarda 1a

a,:cil'n de 1a llamar prc,tegi€:rid,:¡ al rJLr,;t,:, en ,:a!i,:, der

i n¡:endi r:¡.

l...c'si dur,:tc,g fiberrglas :;É

talef;r';;r;il'¡-1, err¡friamient,:,r E?n

I i vi arr':' y pe$adr, qLt€: c'pEr án r: ün

m,/seg y presi I,n estAt i,:a máy;i rna

E .-'r

emp I ean en si gt ernas cle

i nstal a¡: i ¡trt'tEE pára Eervi r; I r;r

vel {¡c i dades de trast a l I. ._

de I pLrlqadas d* ,:jiitLrci (: Für-1

dr-tc t':,r

BQLti pr:r5

La absc¡rciü,n a¡rLrr;tirrá inherente a ta lamina de1

absc'r ve e1 r rri dc' i ndeseabl e qute pr,:,dLr,:en fnr:rtr:tres y

cJel si stÉr'na,

En g¡1 r;rp Fi. á,: i l,n Trr:, E;E p r C,d ttt e S,:, 1 p et e,:, ,

rltÍdc:,s pc,r ev;pan=if:'n y ¡trtrfitradr:irl,n.

est al l i d't'E r

{ñrtl

L* .ill:.g,:,r,tiÉ,r'l cjt: liltmsdad Fr: del .J7. p';,¡ peg¡:' a 1!t-l .r'F y '33/.

de lrutrnedad relativa' Las fibras de vidri':, n(, 5e afe':tan

r:,:rt-l 1a hUtrnedad y rlr:r Crt-¡án ni []r':'mLteven e1 ':re,:imientn de*

[1,;,¡q¡¡g ¿r bacterj.as, ademAg É':¡n in':'1,:,rñ:; y nct abtS':¡rven 1c'g

r:r1¡:¡reg de 1aS r:r:rrrientel; dt* airg*.

ü1 limite de 1a terrnperatLtrá dentrc' del dlt,:t,:, es de l5t-l .r'F.

[-r:rs dLt¡:tr:¡E fiL¡erqlas;E emplean en sistsrna:; de ¡:t::'ndLt¡:ri]iü'l'i

de aire qt-te G€ ne¡tesitan diferentes requisi'Lr:rsr €fr base <t

laE dimÉnsi,:,nes deI du':t'1, I presi':'nes estAti,:as y factc,res

É¡trr¡n,t¡tni,:¡:,t;, et':i eEtAn digeFladns párá trabaj';' pesadr:r (: HD

Heavy dr-rty.r, Én dut':t,:,5 de surninigtrc,r dt-t':t':¡5 de retc'rn,:,,

cl':,nde ñrrrFlliálmsnte i;e uttilir;,i lAmina qalvaniradat

iqtlralrnente FTr in,stalá'::i,i:¡r']Fts pec¡utt*f\as de tip,;, r:'3fner,:iaI (5D

5i ng I e Dutt y.t .

L"ag,:,bEervá':iü'n€¡si ir,...-irag en prLtebag de labc'rát¡l¡ri,r' Y

1¡r¡s mÍ f¡m':'g gi gtgfnasr fnLlegtran qLtÉ n¡:' hay evi dern': i a

rrLrantii a 1a trangmisiü,n de vibraci¡lrrl€r:t.

La densi dad es de 8C¡ l:::q p':'r rnetrct ¡:Ltbi Ét'.

gn

erl

La rltq':rEidad pará lArnina rigida der fibra de vidri':' eH

(:). '3 rnm,

de

E1

e5

pl'Éfr1 i.:' p':,r mstrü' ':Ltádrad,:, de lArnina de fibra de vidric,

de t$3, 3üu r €fi fi,r,vi embr e de 1 . '3AB '

LJ

En 1a tabla Nc,.l r s€ ,:,bg{irvfr Ias

I r,s r er f lter I t,s de durt t c,s, des l. Ami na

nr:r'f fnaÉ es;tah:1 e,: i das para

de fibra de vidri':.

:. 3 I |::OF'üF:

l-gr¡¡¡rpürr e:; e1 r')ü'mbr€r r:,:¡fner,:ial deI p,:,1 iestirenr¡ er:pandidc,

E:n llir;r I r;r1¡[ i ;t .

La base rjel. TE,r n':r[:)':'r e::, el estt i r enr:, mr:rfr¡:rrner r:t ,: Ltyag

m¡:¡IértUtlAg se F,:, IimeriIan, dánd,:, ,:,rÍ!¡en á las¡licl':f {rfllrlrlétltL¿rg cl e p,;,lie:;tireT¡,1,, HI estirenü, fn,t¡f.l{,tnefr:, $e

fne:':Ia {ürn ¿lqLrá y Ltn aqentet cle e.(pánEi,l,n, qréi,:iaE. él 1.,:,

rlLtSI y trA:¡ 1a p,;,lirnerilá¡Iit¡ñ p,:,r Váprllr¡r sF r:,:rnVier.bg: en

d i mi nLrt as es f er*s.

EI ter:n':¡Fc'r g;e tr¿inEfd,rrná riiediante vapü,r de áqLra. LaspeqltePfas esf sras 5F preexpancJen suel l;a$r ar-rmentafid,r¡ !iasta5(-i veir:g!3 siLt vc'lLtnren irri,:iaI , a rrrrrflf i.nuta,:; il,n se terminan cjg

h3FpLtfnclr en rn,:IdeS r:e.r.rádrtrg, SrlrItJAnd¡:,ge entre Si,

LáE ÉspLrrTlás rigid,as de fp,;¡,3pr;,¡

c er r Ada, pr-rd i end,:,ge v¿rr i ar sLr

amplirtr!r rnclrgenes, l"lÁ15 del ,371l. drr

F,:'l' airp en,:e.rrád,:1 .

lll¿rr a¡: t err i st i ¡: as ¡

llir;r ] r;r ¡

s!:rn de estrLtcturá ¡:eI trIar

densi dad apar ent e e?nt r e

5U V¡I¡L Ltfnen egt á rl rlrJflpu{f gf, rlr

¡ afnarill,:

T¿rm.* f*,.-.

Ei.:p e*s':'r

F'r c,t €L ¡r i t'fi:.. -. : -.r..,

Registerncia a 1a flexiü,n

Resisten,:ia al ci¡al larnient':

Abg,:,fCiÉrn, infnerSCr en

aqLla F,:ir E} cJiat;

Eianq':, de-. t raba.j,::

F,iUgr;,sj 6¿sl

:¡. ü m :.; 1. t-l rn

15 mm

F':'i1 de alumini*

3{¡ llg/m"3

3. 5 llq /m'''t

g. t l,ig./m"2

: t-i. 17. derl v':'1 Lrmen

: * :(lil .\'t:: a + '3(J .\'r::

: tl . tltl 15 met r ü,n

Adsrnl¡s el nr:¡ ne':el;ita [.¡*rrura de vrrF':¡r, e1 te,:tr,:,dLr,:t¡: HÉ

hiclrr:¡fLtqr:¡r FÉ de':ir, n':r abg¡:'rve aquta. E1 fr;ri] de allrminic,

5e lttilira LtF¡i,lameritÉr párfi fa':ilitar eI már]ej':r y rnej':'rar

el ;('l ábad':'.

lli';,¡¡r]r el ter_nr:rdutrt¡:¡ eS Ltn rnaterial de ÉStrLr{tLrra ,:elr_rlar

': €3r r ádá y nr:¡ Erü+ üfr r:¡Ei ':rná, {sEj pUeder f_tt i I i Z Ar €tn

ins:;tala':i¡-lnErr dc'nde 1a vE¡1¡:r¡:idad de1 aire 11eqa lrasta 18.:

Ha.j,1, 6,1 lilut.j,;¡ d*1 airt¡ de 1ü(l lif,¡',;,E; pr;,¡' h,:,ra y dutrante 3rl

miilLtt':'.ts, luegn de lraber in':{,rp':'rad¡:, aire f¡.BEc,:, A ra:¡¡¡ de

3{-} l itf ,:,. F,t,l. l'¡,:,'r 4, de tC'd,:S 1,:g r:,:,mpcrnenteg de I,jrs

[]rc'dLt':tr:'$ de des,:{rJflprtrgjdiln térrni,:a de las eg,pLtfrras;

fg¡,;¡,1rp'1'¡ S¡l¡1rl¡ FS yg¡6.r¡r;rq.r;i Fl l,y;j.glr;r de ,:¿i}"b,:,fi¡:, qLfÉ A gLt Veli

Ée pre- entá de manerá ¡rrrrf'rsider*blernentt* inferi,:lr al de

mádera y e1 'rr:rr':hr:r, n¡ate:rialFs r:,:,rf j.e:rites pára {,:,tejar lar;r;r¡$¡¡r;!¿ firn 1't,E i t-ir:e¡.ldi¡:rg.

3. F.E:OI::EDII"lIENTü,

EI lfr':r(erdimiFñb¡rr sequidc' pará llevar a rlslIr]r el

pr¡:'yect':¡ lia riid,:, el sicllrientE¡, I

1. SeIs':rtil¡t-t dsI ¡¡Sfr;rf,r;r cJe digepf,:, de dur,:t¡ft;,

¿' Desari'¡:r11¡rr iriátg¡¡sf,ir;r;r deil 6¡lfIr;rsr;r EeI{¡r:r]irlf}flflrrr.

3, Desar r c¡l I ,:, dF I ¡:¡g Fr,:,gr arnas de c r:¡mpLtt ád¡lrl. .

3.1 I4ETOI]O DE DISEHN DE DL.II::I;* SEL.Er]:[:ICINADCI

El. mÉt¡:¡drr :;ele':r;ir1r¡¡f,r1r párá el disepfc,

sLtminigtr':' de aire ar:crndi¡:i¡trñacjr:r F5

re':Ltp€rá,:iü¡n estAti,:a de presiÉrn.

degarÍrt¡11,:'

qt-te 5F basa mét':,d¡: yá que elgenci11,:' y ds fa,:il rjrp€I.á,:i,ll¡ñ.

de durr t c,g de

eI rnét¡¡dc' de

Las rarr:¡neg pára haber e!a'::¡:'girJr:, eg'ber rnát,¡d,:, rádi¡:a €¡f.i qLte

F!; apli':abls a 1':,s d¡l¡5 sistefnas de a,::r:¡ndi,:i,:,narnifdnt':, de

iiire : si$tÉmas de alta velc¡':iciad y sisternas de bajaverI,:c i dad; adern.hs de clLr{¡ ñ¡r¡ sF r equri er e mLr¡:há e};per i en,: i a

par$ el L¡aIan,:ear elI :;istsrna, Otra rar':'n eg 1,:i frt¡l.nifr er.l

pfr:r':e$r:¡ de ,:A1¡:Ut1,: eg

J --J

L¡r¡S üAI¡::Lt1¡jrs pclrá eI dist*l\,:' il¡:*'sistefnas de dLrüt,:,',; de

ret'::'rnr:¡ 5F tlá54 en V€lrtrcidade:; determinada:; de reltr:¡'n';' t*n

1a rejilla de¡ entrád¿1 , durctr:,t: prÍri,:ipales y s,É'-Lrncl ari':¡s.

lli¡:¡Tr e5tas Ve1':',:id*dei; fi.jas se ¡I¿¡1¡tL(1€{n eI áreá,

cl Ímenr',ic¡r-rE!! de,:adá rarnal ür trám¡:r dm dlr':tc'.

rg5

H1 pv'

Fn I r:¡

En 1,I¡5 dLtr:t,:g dg rrtL¡:¡tsr'l¡:¡ n¡::¡ 5€3 prü?EFÍttA t€¡tLtFEl.á¡jit'fi de

pregi¿'n, eI pr':il:eg':' És di'ferente et"l este t;entid,: y nr:¡ se

¡: ¡hl. r Ltl frn 1 *r:; vel ¡:"t i dade;l:" de r Ét ':'r 11':r.

¡t¡ü Ed j. rn j. errt rlr [iál'fr I '],5 gi gt efnag de r Eit ürr nr:¡, g 'I (' Va¡. i a

lrienr: I r;r¡¿¡glr;r ántEf i r:¡.r rrentFJ,

Debe ür:'r'lr:'¡:etrge 1a rIánbidad de Airt* iÉt¡trr.nád':,y 1A r:aida de

trrÉFit¡n t,:,tal (.tn É1 Si:;tefnfr de retr:'rn':' n':, debe etdr:ede'r' 1a

preg;i.ürn neqativá en 1a €iLr¡trril¡ri del ventj. 1ad,:,r.

Otrc, fa,:tc,r' irnp,:,¡tante en 1¡IrB dLt':t':rs de ¡g,f,¡r¡¡,;,, es qLte

lrl¡5 l.é|m{fIeg 13Fr:Lil¡!,..!i'ir:'i5 E;r:'t-i r:¡:rnf{'fmAdr:rE p,ff Un grlr}rjr tf.iln,:,r

yÁ qLr€ Fstc's, deben de ser 1¡:' rnAs ac¡rESibleg y dire,:tc,s3

pr:,r disp';,¡ibil idad del F,iprr:i,:r.

DegarI¡ti-.l. 1rr¡ rr¡iiil::i..?r,,1-' .;.ür:, del ñétcrd':' fielp':ti':nadc,.

A rr{rnti.nlracÍt'r¡ ge r*};pregan las e':ttáci':,nes qLle intervienen

dUtranttt el. degarr,:,11':, del pfr:¡¡:eg,:r de ELtrnirristr,:, y r€Jt,:,fn¡:,:

": !'t

* Area de Iá ge,:11 irlr¡ transver=,rl de cJu,:t,: ¡

Ar ea a v,:,1 {rrnen de ai r e

vel ü': Í dad

$¡1r;!1,;r ¡Jg 1a s*¡r,ri*¡fi transver:¡aI de durctc, (: t^l) 2

tJ :: Ar era r: r e l. ac i ,l¡r¡ cJ e f ,:,r rna

* AIt':r dF la ge,::¡:it,ti trarisvprsal de dr_t,:t,:r {.H) ¡

H s Areta

Diametr,r¡ €eLrivalente pará durctc,:; rectangr_rlares (D) :

n =: 1:1_r. , t^J i; H ) *, 6:E--;;-;-;-,;;:;;-

Nü.trner':¡ de F.eyn,:, 1rJ.* r.Fler.l ¡

Re*D:r;i(':;V

.f

dr:'nde : D : diAmetr¡:r eelriv.rlenter tin.l

i' : densi dad clel ai re {.f,::g/,rn".SJ

V : velr:,¡:idád deI aire r: m/l;eg.)

f I viE.¡:.i.,::icjad ¿rtrs:i,:,lr_tta d*¡I fluid,:, tl:.g/m z sJ

Fa¡:t,:r de 'frir:,:iürr-r derl rnaterial selecrrirrrl-lfif,lrr, err la¡-¡:¡nSt¡.Lr¡IüiÉrñ de dLtr:t¡:rE {FF) I

tt

'[{ 3.7y: D F:e ff

:5

FerrJidn de preEiü,n €n t¡¡l tr,Lin,:' de rJlt':t,: (: A F) :

AF =: f :,; L I i; l V"; t.Fa.l

L.l :t. i-

dc'nrje¡ f ¡ f*t,:t,:r de¡ fri¡:¡:it¡n

L : 1¡t'Fteitt-td del trám,:' {.rn:}

D : di.ám*tr-rr¡ EeLtivalente {: m)

Á' r derrEidad del aire (:F:g/m'''31

V : velc¡,:id.rd d*¡l áir<* t.m/snii.¡

Ferdida de prasilrt't erl l¡r,5 a'l':e5i':rriü'5 t. A F.l :

A F :: l,:. y: V'"1 i: i(' i. Fj'¿i .¡

d,:,nt{e l:. i ¡t ¡3t15t ant er de aC ': eg':'r i r:r

V : vel r'c i dad de1 ai r e (. m./seq )

,(' : densidad deI ai re (l'iq/m''3.r

-.- L,:'ngiturd eqLtivalente p':¡r a':':esüriü'5 iLeq) :

Lecl :: l':. Y; D (: rT:)

d¡:¡llde* l,i l ¡:¡:'ngtante de á{':eSC'riü'

D : di Arnetrc' eqHi val ente (m.l

f z fA¡:tr:r'i de fri¡::r:iü¡n

:

._6

Vel¡:,:idad É3t'l FI tram,:, r: VI .¡ :

\rj': V^';: il V-.:. 4g r/i L :,: f{: rn / seg .}

Gl"'. 61

d':rndt3 L ! 1¡t¡fiClitr-.rrJ t.m.l

A : flr-r.j,;' det aire r.m'.I/s,eqt .¡

f : ¡r ¡trr.lEt ant e de r er: uper á{ i t¡n

V : velr;rr;isl¿¡gJ en trarn,: clnteri,:,r r.m/rEeq)

Ferimetr':, del du':tr, (: F) :

F = {: ;.j :4 W ) + (: ':, :,1 H.} r.m.¡

rJc'nde hl I án,:l'rc' de l a s*¡rrt i t¡F| tran$versal r.ml

F{ : ¿i1t,:, de 1a :iec,:iü,n trans'¿erEal {: rn:}

F:e':lrperá¡r i É,ñ de pre+gi,1,rr {: F:F l i

d,:,ndg V r : vel r;rr; i fr¡fl en trarn,¡ anter i c,r t rnlgeg )

Ua, vel¡:,,:idad en trarn,:, preserrte (m,/seg)

'f : ü ¡:,t-l$t arrt e de r Ér: Ltper a¡: i trn

FE = F :,; L :,; Dt4 .r EF, r. 1,..g l

'?7

rJ ':,rl d e F' :

tr

frhJ|vtl

p er i rnét r ,:, t. ln .r

I ,t't-l S i t ud (. rn 'r

Den:ii,dad rrráter i al de ¡l,lrl-¡5tFLl{¡lil¡ñ {l'.9/rn"3}

Es[Jt3srr,r máter íal d{:':r]¡l-lI:trLt':': it¡l-l {.in.)

lllr:¡gt': del tr.tm,::' t: l::Tl :

l::'l- = F 7; [- !i VS (:f$ )

d,:'nde F' : per i rnetr':, r: ml

L. : Lc,ng i t t-td (:rn )

VS i ¡: r35t r:¡ p ¡:¡F fnet l' r:¡ rl Ltád F s*

3. T DEST:F:IF,¡:INN DEL F'F:OI::EsO DE DISENO.

El pr,:u:ss':¡ cJF digePf,: Lltili:and': el ¡:r:tmpLttád¡l¡l' t::t:tl¡lr:l

herramientá cJe trab*t.j,-, r:t:'ni;i9:ite en implementar 1ag

er:LrA¡: i c'ttel; qLte permi ten degarr':'1 l ar FI pr':rt:efit:' de {Al r:LtI r:r

rje Ltn SiStema de dUt,:tr:g de Aii'e rlrl ,l¡f1{lirlirllrl-lfiflrlr, (3n Utlá

f':rrma apr':¡:4imadat Y teniendc' en {Ltenta las VarÍables

ne': e5{rr i as par a ÉLt degarr'¡:r1 I r:¡.

El efilp 1 €*':' del ü rI,fI¡F¡Ltt tfJ,t,r r edLtr: e ¡: {'nsi der ab 1 ement e: e1

'biernrp,:, 11e ¡IAIrtLrl¡: de ':LtálqLtier Eist#ma y Ferrnite ':'f,nFegLtir

regltltad,:,g ':':in Ltn Qt.ádr:r de e:/iá':titr-tCl baStAnte

rt ¡I¡t*l5i de'¡'ab 1 e.

L,I,!3 rE*5,Lt1tad,:rg del dega¡l.¡:¡1 ltr del. pr'l¡':eg,cr E!:rfl 1¡:,g

.r 1{

srfitrieri Lss:

l-' Dimerisic,ner* del gi=tesla de clL.tctc:sl anchc y alto rJe las,euc iún L.ransiversa I de I dnc to .

::" Variación de pre:;icrn en el s,i.gterna con 1a cutal se

de'L.ermina 1a c:apcrcidad qLre dehe tener 1a urnidad de

surinini.strn v/u retcrno.

ji , l- r*so de I ::i. sterna .

4 " Flecutperac ión de presiün errr e 1 sigterna der rJurc tns cl€3

sutniin istrc: "

l'" Ar-ea:; nr inin¡ar* der difr-rsor de salida cle aire en el

*uirnin igtrc¡ y de re j i 1 la de en trada en e I rerürnt: ,

ñ , []r:t;to tuta 1 rje I s_i.stema ,

Fnra el clisef\a del Frülgrarna cle cornpurtador" s€ ha erntrleacjn

el lenguraje l*asic ¡ For la f acilidarj de r-ttiIi¡aci_ón e

implernentación erl diferentes cnmpt-ttadar-es de ursc persnnal,

1r: r:lral hace gLre el pre*sente digePto pureda ser t-r.hitirado

facilrnente pclr crralqlrier- 'fersclna

interesadct en É1.

:i..J FRüGRAT'IAs I]E CT]I'IF'U]'ADüI1"

j; " :; " 1 F(est-rnrerr dt* I rrs [irog r-árnás

:r9

El objetivo del prc:grarna es praparcionar Lrn medis preciso

y rápida para solr-rcisnar Lrn prnblerna de dj.seFlo de durctas

de aire acondicisnado.

Fara degarrollar el Flrclceso de disePlo es necesaris ctrnocer

la fsrrna de EnLrrnerar los rárnales y trarnos de durcte. tants

principales cc:rno secrrndariog. De acurerdc' a lo anterisr se

rnltestra en la f igura No. 1. las dirnensiones de los ductos

de gurrninlstro y retorno, y en la f igr-rra No, 2. la forma de

enurnerar Ic:s drrctos.

Lo anterinr e:; Lrna aclaración para nc: incurrrit- en errores

qLre puredan af ectar e1 cál curlo ,/ produrcir inf orrnación

eqlrivmcada.

En la f igurra No. 5" ge ¡nlregtran log corJc¡s de radío

f igura No. 4. str murestran los cados en corte.

En 1a f igr-rra No , 5 " ge n¡r-regtrá

f actor de pÉrdida tror entrada.

En la f igurr a No . 6 " se rnurestra I

qt-re Et:n desprendimientos de otro

f orrna ent-re el los.

Ia f orma de establecer erl

)/ en la

de dlrcto o te

angnlo qLle se

ag Lrntone5

ramal y el

En la fi.glrra No.

pará lc:s ct:das de

f, r, 5B n¡utegtra eI

rad.io .

valor de F:,/D = 1.?5

30

f-e

DTFUSI]R

I5

II5

5

_lI7

_lUNIDAD ACONDTC]ENADORA

EIHRA 1. Lngitudes de 1os tranre Qbtros)U¡ea Gruesa úrto de s¡dni.stroIl¡ea dolg*lu drcto de retonD

31

REJILLA

DIFUSER

UNÍDAD ACT]NDICII]NADI]RA

EMIRA 2. lft¡rem.ión de trarrcVista sqeriorI.irrca ft'e.á trFG de smi¡ristroIüEa hlgÉda t¡ae de retorrn

32

EIGIIRA 3. Codo de Radio

ErcIRA 4. Codo en Corre

33

FIGTRA 5 . Perdida por Fntrada al Sj.stera de DEIG

34

RAMAL SECUNDARIO

RAMAL PRINCIPAL

EIGIRA 6 . tirión de &nro

f,5

H1 eqLri.pü dÉ procesarniento deI Frclgrárna ¡ TANDy l{Jr_r(1.

Sistema operaci.onal ¡ DOS.

Lerrglraje de prograrnaci¿5n ¡ ETASIC.

f,.3.2 contenidn del programa de dnctos de gurminigtro

El listado del prograrná plrede oLrsevarse en forma cornplet-a

y clara en eI Arrexo No. 1 , del presente trabajo,

El contenida del prograina es el sigr_riente:

Presentación en pant-al la deI prtrqrama. Instrurcciones t g

s 1á.

F regentación en pantal la de 1a introd¡_tcción al prográrne

e in f ormación genera 1 . I nstrurcciones: ?(r a 7t_, .

Fresentación en pantal la de la información reqlreridapará el nso del proqrerna t '/ la af irmación o negación de

tal sol iciturd. Instruccic:nes: gr) a l?rl.

Dirnengisnarniento de las vari.ables ernpleadas.

Instrurccisnes: lSr-r a ::iS.

constantes de operación : factor de fricrión inicÍal.viscosicJad deI ai.re y densidad standard deI alre,Instruccion¡ ?45.

f,C)

- Fresentación en pantal Ia

Instrltcciónes: 25rl a 38{r,

deI lngar acond i cionar

deI lurqar a acondicionar'/ sLrF respectivas

recomendadas en rarnal principal. rarnales

'/ difr-rsor de salida. Instrurcciones: 4t() a

- Selección

ve I ocidadeg

securndar.iog

570.

Fr-egentacj.ón en pantal la de la asiqnación de

inicial de gurrninistro y velacidad de sal ida de

difr".rsc:r. Instrt-rccioneg: 59r_r a 6C)O.

a

'¡e I oci dad

aire pt:r

Frssentación en pantal la del factor de corrección

del aire pclr ternperatlrra ambiente y asignación del

rn.isrno. InstrLrcciclneg: ó!0 a 7Llt.

- Fresentación en ¡rantalla del factor de corrección del

aire pL..r al titlrd sobre el nivel del rnar y asignación del

rnismo. InEtrucciones: 75{r a 8óO.

- Cá I cu l c¡ de 1a dengi.dad del ai re

establecidas. Instrlrcción: 9r-rtl.

Ias condiciones

selección del material para la congtrrrcción deI sigterna

dlrctos y su respectiva rurqc:sidad. dengidad r espesor ,/

actutaliración del costo del material por metro curadrado.

Instrnccionesl ??r-l a f17O.

Presentación en pantal la de entrada de datos al ramal

principal y dete'rrnj.nación del núrnero de trarnos del rnigrno.

37

InstrLrcciones ! llgC)-1?{r0.

Asignación de

trarnos del rarna I

Ia longiturd

principal,

- Deterrninación acercá de IasÍgnaciún en el tramo

princi.pal, Inritrlrccioneg: 1f,lr:)

- DeterminacÍón del núrmero de

y asignación en el tramoprincipal . Instrr_rccj.ones! 14(:rr:)

y vol Ltrnen de ai re de I os

Instrurcciones: 1?IS a 1?80.

a ex isten cia de codos ,/

correspondiente al ramal

a 1380.

difursores cr Ealidas de airecorrespondiente al rarnal

a 146ó.

* Cálcr_rlo del

núrmero lrno del

area de la seccion

rarnál principal.transversal

Instrucción;

coef i cien te

del mismo.

para el trarna

149C,.

cJe pÉrdida de

Instrlrcciones:

* Fresentación en pantalla delpresión por entrada. asignación151t1 a 168(r,

* Cálclrlo de pérdida de presión1710.

Cálcurlo de1 ancho y alto de laInetrlrcciones; 17.1{r a L74Ct.

sr-rbr*t'ina rer ación de f orma. Instrurcción z L72(tt.

por entrada. Instrurcci.on:

sección transverEal,

S]-

- Slrbrlrtina dimensiones apropiadas Instrtrcción:

- Deterrninación acerca del tipa de material acerc€ de

f,8

e5 larnina

rarrespond ien tt+,

ga I van i ¡ada ,/

I nst rurcciones ¡

Determinaciórr ácerca de

tramo " y en cascl de exi.strInst-rlrcción: lSlC¡.

asigna el

L77Ct a 18r)rt,

callbre

la e>listencia de codoe en elr ir a la slrbrurtina de codos.

Surhrurt j.na preceso _ Instrr_rcción: lg?ó.

Deterrninaci-6n

--alidas de ai

crlrrespond ien f_e

Slrhrr_rtina qLre

acerca de le er:istencia de

trE r '/ si I t: hay se hace

a I misrno. Instrr_rcciones: lg.l0

di f lrsores cr

el cálclrlo

a 1880.

a I rna cena resLl I tados . Instrurcción I lSBs

fncremento del contador de

- Deterrninación acerca de 1a

principal. Fara los otrogrepite eI proceso cornen:anda

de relación de forrna.

trarnos. Instrlrcción: 1g?O.

cantidad de tramos del ramal

trarnoa del Farnal principal ge

en Ia selecciún del factor

* Fresentaci*n en pantal ra de la entrada de datos parerafnar securndario y asignaci*n del núrmern ds trarnos quecornponen. Ingtrurcciónes z L?7tJ a lgg0.

Asiqnacj.ón del princitrio

ramal. Instrlrcción: lgg0,

de tramo donde empie:a

el

Io

eI

- Presentación en

rarna I seclrndario.

pantal la de la

Ingtrnccianes:vel ocidad

l.?91 a 1?9t.

actlral del

39

* Presentación en pantalla de la

el ranral secundario. Ingtrurcción

velocidad recornendada

-, L9?4,

Presentación en pantal 1a para deterrninar 1a velocidad

Inst-rurcciones: 1995 aqLle

1??á.

se dtsbe asinnar al rarnal.

Asignación

L597.

de la velocidad en el rarnal . Instrurcción:

- Asi.gnación de 1a longitutd'/ el volurrnen de aire

tramos del rarná1 securndari.o. Instrurcciones: ?t-lf,O a

- DeterminacÍón acerca de 1a existencia de

asignación en el trarno correspondiente al

eeclrnclario. Instrucciones: 212tr a I?13.

de los

211rr).

codos ,/

rarna I

- Deterrninación del núrmero de difursoreg o satidas de aire

)/ asignaciún en el trarno correspc:ndiente al ramal

gecurndario. Instrncciones¡ 22f,ü a ?3r'_)f,.

- Cálcutlo del área de la gección transversal para elprimer tramo del rarnál geclrndario. Instrlrcción: Z3F{r.

- Slrbrurtina relación de forma. Instrucción ! ?. 6C'.

- cáI cr-tlo del ancho y a l to de I a sección transversal del

prirner trarno deI rarnal secundario. Instrucciónes: ?.17r-r a

?58(:'.

- surbrlrtina qlre deterrnina si Iag dinresiones dadaE son lag

¡ untnn'do<t luionomo d¡ Otc¡dm¡f

4{}

adecl'radás de

- Surbrurtina

por rarna l

r3?fl "

Deterrninación acercá de

salidas de aire" '/ cAlct-tlo

rnisrno. I nstrlrcciones r 34Bt-l a

acurerdo a I espac]. cl Ingtrurcción:

un ión cl te , que deterrnina e I angu 1o f ormado

respectc: al rarnal principal. Instrurcción:

Determj-nación acerca del tipo de material. en caso de

qlre seá larnina galvani:ada Ee asiqna el calibre" el

sspesor ! el precio por metro ctradrado. Instrutcciones:

?4?{r a ?45(1.

Deterrninaci.ón acerca de I a e;<istencia de codos en el

trarno. y gi lt: hay j.r a gurbrurtj-na de codos, Instrurccionl

:46(:r.

Surbrr-rtina proceso. I nstrurcción | ?47Ct .

1a existencia de difutsores

deI areá correspondiente

?53{'.

o

al

- Subrrrtina

I nstrutcción

qLre

?535.

a I ma cena lt:s datos del prcceeo

fncrernents del contador de tramog. Instrurcción : ?54t1 ,

Deterrninación acerca de la cantldad

trornponen e I r-arna 1 securndario. En caso de

tramos se repite el proceso cornenrando en

la relación de forma. Ingtrucciones: ZiS0

de trarnos gLle

qLre exigtan más

la selección de

a 256().

41

- Presentación

otrog rarna l es

en pantal la pará determinar si existen

securndarins. Instrurcciones: 257{r a ?59t}.

- CáIcr-tlo de resLrltados totales, qt-re son! peso total.

párrlida de presión total " recLrFeráción tstal de presión"

costo total. Instrlrcci.ones! ?6{)(:) a ?7á(}.

Fresent-ación en pantalla de los resultados de cada tramo

los resLrl'tadog totales. Instrurccionesl 2763 a ?763,

- FresentacÍón

archivo con qLre

Surk¡rlttina Relación de' f orma:

- Fresentación

la reI ación

transversal.

ancho y varia

á 5410.

pantal la de1 nombre qLre se le da

a I rnacenan en d igkette I os datas .

alen

ge

en pantalla de la relación de fsrmar osea

entre el ancho y el alto de la sección

Se tiene lrn valor constante de ltno para el

eI aI to. Instrncciones: Fr_rt-rr] a Sl3(l y S31rl

Selecciün de Ia relación de forma de acurerdo a criteriosegpatrlor aLrnqLre debe pr(]ct-rFarse qLre gea 10 más curadrada

posihle. Asignación de esta relación teniendo en curenta

qrre el ancho sera igur*rl o rnayor a la altltra y en ningurn

cáso seFa menor, En cago de qr_re eI ancho sea rnayor qlre elalto esta relación no deberá pasar de 1rF. Instrurcci_enesr

5?Ot-¡ a 528r-_r y 54á(l fl 559(1.

42

Strhrr-rtina Codt:s;

Fresentación Én pantalra del tipo de codo y serección dela opción, Ingtrncr:ic:neEt 4. lCr a 4. 40.

- Sel'ección del factor de pérdida por accesorio de acurerdo

a Ia relación de forrna¡ 9Éleccionada c,,n anteriorrdad.Instrurcciones: 44t-rr-r a 45?ü" 462rJ a 473,t, ,/ 4BüO a 4B?ü.

- cál clrlo de Ia longitr-rd eqltivalente por accesorio,f nstrurccionegz 477tt a 473t-t ,¡ 4g?0 a 4g.ltl.

Slrbrurtina Uniones de dttcto o Te:

- Fr-egentación en pantalra de los tipos de r_rnión de ducto"de acurerdo al anglrro forrnado por el rárna] secundariorespecto al rámal principal . Ingtrurccianes: 4(¡rxl a 4ü7tt.

- Selección de la apción de aclrerdo al anqurlo.Instrurcción: 4(--)B{:t.

- cálcr-r1o der diárnetro equrivarente para ra sección.Instrurcción: 41áCl .

- cál cr-rls de ra longiturd eqlrivarente por acce=orlo.I nstrurcción ; 4ITr:t .

Surbrlrtina proceso:

- cálcurlo de la rongiturd eqrrivarente totar der trarno,Instrlrcción: 6t)I().

4.1

- cáIculo de 1a velacidad en l;r sección. Instrucciones!ó04(l a 615(r.

Cál cutlo del anchs ,,/ al tcr de la sección transversal de

durctn. Instrlrcci.nneg= 6l7t-t á ólg(r.

* Fresentación en pantal la pára deterrninar si rasd i.rnensimnes dadag corresponden a I as necesidades de

espacio. Instrurcciones: 6184 a 61A7.

- cál curlo rjet diárnetro equrivalente de la seccrón

transversal rje rJurcto, Instrurccion I 61gO.

* cál cr-rla del perj-metra de la gección. Instrlrcción: 6?{:r(¡.

- tá1cr-tlo deI ndrrnerc de Reynolds. Instrlrcciónr óalü.

- cálcula deI factor de fricción para la sección.Ingtrurcciones: 63?tt a 65ltl.

* cálcurla de pérdida de presión pcrr ducto. Instrncción¡6f,?ü.

- cálcr-rlo de pÉrdida de presión por codo. Instrurccrón:ó.lf,Cr.

* cál curle de pÉrdida de presión por urnion de drrcto o

ramificaclán. Instrurcción: ó.14O.

* cálcr-rla de pÉrdi.da de presión tatal del tramo.

I nstrncc ión I ó35{l .

44

CáIcr-rlo de 1a recLrperación

Instrurcciones: óIár_r a 6f,9ü.

de presión de 1 trarno .

ó4rrü a 6430.

ó44r-r a 647Ct.

- Cálcr-r1o deI peso del trarno. Ingtrlrcciones:

Cál cr-rlo del costo del trarno. Instrurcciones:

5r-rbrtrtine dimensiones apropiadas :

- Fresentsción en pantar ra de ras dirnensiones gLre setienen y deterrninación de si son apropiadas de ac..rerdcl

al espacio disponible. rnstrlrcciones: JSoü a f,6r{,.

3.3.?.1 Diagrarna de Flurjo:

El rJiagrarna de f lr-tje del pr'qrama de durct,,s de surminigtrose presenta en el Aner:o Nc:. ? del presente trabajo, ,/

mLrestra el desarrol l0 del proceso por Ér crral 5eimplementa el rnetodo de diseFfo en Lrna forma crara y

precisa.

3.3. ?.? Variabtes

r-rti l izadas en el

especificando sLr

operación;

l¡J01(I) : Area

ducta.

ursadas en el prográrna:

prografna 5e e>íFresan á

sign i. f i cado den tro de I

Lag vari.ables

cc:ntinuación

proceso de

de la sección transversal del tramo de

45

t4{tl( I ) : Ancho de la. gección trangversal de1 trarno de

clt-rcto.

l^lü3( I ) : Al turra de Ia sección transvergal del trarno de

dr-rctc:.

h,ü4 : densidad del ai.re a laE condiciones dadas.

l¡JüS( I ) : variación de trresión en cc:dos.

t¡.,fl6( I ) : variación de presión en trarncs de dltctos.

t^107(I) I variación de presión en lrniones o te.

t¡¡ó8( I ) : variacidln total de presión Fn tramos de ducto.

Wü9(I) ; costo del tramo de dncto.

hllo(I) : recLrperación de presi6n en trarnos de durcto.

tA,ll l *ariación tc¡tal de presión en el sisterna.

hjl? : costo tota I de I sisterna .

lAJ13 : rLrgosidad del rnaterj.al .

Nl4 : valor inicj.aI. para iteracionesr en el cálcr_rlo

del factar de fricción der rnaterial en cada

tramt:,

t^|15 : velocidad de slrrninistro del aire aI sistema.

t¡Jló ! vF I ocidad de sa I ida por rej i I la .

46

t¡117(I) : núrmero deI trama,

t¡,f 18( I ) : longitr-rd del tramo.

t^J 19( I ) : vclllrmen de aire requrerÍdo para el tramo.

N?(l( I ) ! velocidad del aire en el trarno.

hl31 ! recLrperaci.ón total de presión en el sistema.

hJ?3( I ) : diámetro equivalente del trarno.

W?f,( I ) : ancho de la gección transvergal del trarnn de

ducto.

t¡lt4( I ) : altnra der la sección trangversal del trarno.

t¡J?5( I ) : variaci6n de presión en eI durcto.

[,l?7( I ) : peso del trarno de drrcto,

W28 : núrrnero de codog en eI rárnal principal.

t^l:?( I ) I pesm del trarno de dr_rcto.

td.lt¡11¡ : perimetro de1 tramo de durcto,

t¡J.Jf,{I) : núrmero de Reynolds.

hJf,4 : espesor del rnaterial de constrlrcciún.

t{35 : viscc:sidad del ai re .

t^,f,6( I ) : velncidad del aire en el trarno.

47

t¡,|f,7 : dengidad del rnaterial de construtccíÓn.

Wfq : nútmero de trarncs qLte cemponen el rarna I

principal.

W4f,{ I ) : longiturd eqltivalente por codo.

tü44( I ) r longiturd equivalente pt:r Llniones.

W48( I ) : area del dif t-tst:r de galida de aire.

W49(I) r longiturd equtivalente total por tramo-

tAlS{, : pÉrdida pt:r entrada aI sigtema de dutctos.

t^151( I ) : diámetro equtivalente del tramo.

W5?(I) ; peso del foil de alutminio.

bt5f, : densidad del foil de alrtrninio.

W54 ! espesor del ft:il de alltrninio.

W55 l valor por metro cltadrado del rnaterial de

contrurcción.

t¡JF6 : valor tror rnetro clradrads del f oi I de alutrninio-

t¡158 : peso total del sistema.

t^J59(Ii : variación de presión en codos.

N60( I ) : vari"ación de presión en utniones o te.

W6ltI) : variación tstal de presión En el tramo.

48

t^tóz( I ) ! recLtperaciÓn de presicln en el trarno.

WáS(I) I cogto del trarno.

W64 ( I ) : area de] dif t-tsor de sal ida.

bl7? : núrnero de codos en eI rarnal secltndario.

W77 I nútrnero de dif r-tsores en ramal ge'cutndario.

Cl ; nútrnero total de tramog del sigterna.

FF : factor de fricción del trarno.

Nl : nrltmero der difr-tsores en ramal principal.

N? l nütrnero de tramos del rarnáI secltndario.

RF : relaciún de forma'

Hay otrag variables no elipresadas anteriorrnenter pero qLle

solo tienen Ia f utnción de control '/ crperac:.ón '

f,, tr.3.3 operación deI prograrna: E1 prograrna f lte procesadc:

Én Ltn compurtador TANDY 1(¡{)(l de sisterna operacional DOS.

A cont.inltación se dan las ingtrutccioneE a seguir pára la

r-rtÍ I i:ación del prograrna dltctog de gutrninistro :

I . Se intrsdutce eI digkette en el Drive A.

4S

:, 5e teclea ETASIC y se oprirne "i.1 ENTER i..:.,

:i. Se teclea LOAD "SDUCTO" y se oprime.1.,. ENTER:¡.I.

4. 5e teclea RUN y se oprirne '.{ ENTER :}}..

5. Aparece pantal lazo de presentación. introdurcción ,/

Iuego pantalla¡os de entrada de datos,

6. Al final del proceso Ee pide el nornbre del archivo con

qLre se desea almacenar 1a inf ormación.

7 . Fara l istar los resul tadsg se teclea LCIAD"SLISTA" '/ se

oprirne ',..i. ENTER l;'.:'.

8. Aparece pantal laro qr-te pide eI nombre del archivo con

gLre se alrnaceno la información '/ se oprime '1.*i ENTER :)"t'.

3,3.;5 Contenido del prograrna ductos de retorno

A cnntinlración se presentan las intrnccit:nes qrre sigr-re el

proceso de durctos de retorns:

* Presentación en pantal Ia deI programa, Inetrlrcciones: l(-)

a 1ó.

Pregentación en pantal la de 1a introdlrcción e

inf ormación qenera l InstrLrcciones: ?(:r a 7{-,,

Frssentación en pantal 1a de 1a información requrerida

para el nsc: del prc:erarna. Instrlrcciarnes t 7L a 12ü,

5t-r

- Dimensionarniento de las variables empleadag.

I nstrurcci.oneg : l.5r-r a ?f,ü .

- constantes de operación: factor de fricciún inici.al .

vigcosidad deI aire y densidad standard, Ingtrncción:24F,

- Fresentación en pantal la deI Ilrgar á acondicionar.I ngtrltcciones ¡ ?5O a 37O .

selección del lurgar a acondicionar'/ st.rs respectivasvelocidades recornendadas en la rej it Ia de entrada" ramal

principal '/ ramales securndari-os. Instrucciones: rBt-r a

57(r.

- Fregentación en pantal la de la agiqnación de lavelacidad de entrada por rej i I la " rarnal principa I y

ramales secLrndarics. InEtrlrcc.ic:neg: 59r_l a 6()5.

- Presentación Én pantalla del factor de corrección det

aire Ft:r temperatr-rra arnbiente y asignación del misrno.

I nstrt-rcciones : 6?{-) a 7 L.:, .

- F'resentación en pantella de1 factor de corrección del

aire p6r al titurd sobre e1 nivel del rnar y asignación del

rnismo. Instrutcci-cnes! 75(l a 86O.

Cálcr-rlo de 1a densidad del aire para el lurgar

determinado. Instrucciónl El9r-r a 9rl(:!.

- Selección del rnaterial para 1a constrlrcción del sistema

5t

de ductos y sLr

Acturalización

Ingtrlrccisnes:

- Fresentación

seclrndariog y

Instrutcciones:

respectiva rurgosidad,

del ct:sto por

??qt ¿¡ 117r1.

en pantalla de

deterrninación

119{¡ a 1?:0,

densidad r espesor.

metro curadrado,

Asignaciún de la longitr_rd deI

aire de los rárnales gecurndarios.

130f1,

entrada de datos en ramales

del núrrnero de estos.

ramal y del volurrnen de

InstrLrcciones: l??4 a

de cc¡dos '/

securndari_o,

InstrLrcci-ón:

Instrlrcción;

secci.ón

Deterrninación acerca de la e:<istencra

asignaciún en el respectivo ramal

I nstrurcciones: lJl{r a 1f,90.

- Cálcr-rlo del area rJe ls rejilla de retornc,1 51() .

- Cálcurlo del area de la sección transversal.15?C¡.

sr-tbrlrti.na relación de forrna. rngtrr-rcción¡ lFSS.

* Cálcutlo de las dimensiones: ancho y alto de Iatransversal. Instrncciones¡ lSZF a lSIC¡.

- $r-rbrutina dimensiones aproFiadas, rnstrr_rccrón ¡ 1sr5.

- slrbrurtina lrniones de ducto, rnstrutcción: rs4(r.

52

- Determinacitln acerca del tipo de rnaterial n en caso de

qLre Eea larnina galvani:ada se asigna el calibre. espesory costa. Instrurcciones¡ 1S4S a l36l.

Deterrninación acerca de la e:<istencia de codos en eltrñmo. y si lc: hay ir á srrbrutina de codc:s. Instrucción:LÍs7Ct.

Surbrlrtina proceso. Instrurcción; lSg{r.

* Surbrlrtina gLre almacena información. In=trncción: 158S

Incrernento del contadsr de trarnos. Instrutcción: ls9o.

Determinación acerca de 1a existencia de ctros rarnalesgecutndarit]s. Fara los otros ramá1es sercltndari(]s se retrrteel procesc¡ ccmenzando en e1 cáI curlo del ar-ea de Iarej il la de entrada . Instrnccicnes: 16c!(:) á róro.

- Fresentación en pantalla de la entrada de datos pára

rarnal principal y asignacián der núrmer,' de tramos qure

cclrnpclnen . Instrurccicrnes: 164t_l a l66tl .

AsignacÍún de la longiturd,/ el volrrmen de aire de lostrarnog del rarnal principal de retorno. Instrurcciones:

16El5 a L746.

- Fresentación en pantaIIa pará determinar Ia e>ristenciade codos y asÍgnación en el tramo corr-espondiente alramal principal. f nstrlrccioneg ¿ t7T? a 1€136,

el

lo

5f,

CáIcr-r1o del area de la rej il la de retorno. Instrlrccrón I

189ü.

cálcurlo del areá de la sección transversal de durcto.

I nstrurcción : 1g(:xl .

snbrurtina rel ación de f orrna . I ngtrurcci.ón : lgo7.

* Cálcurlo de las dirnengiones¡ ancho,l alto de la geccrón

transvereal. Instrurcciones: lgOB a lgrlg.

Slrbrlrtina di.rnensiones apropiadas, Instrurcción: lglo.

- Determinación acerca del material de constr*cciónr BFI

caso de que sea larnina galvani:adar sF asigna el calibre.espesEr y ccsto por rnetro cnadrado. Instrlrcciones¡ 1g15 a1?18.

Determinación acerca de ra e>riste,ncia de codos t ,/ en

caso de qr-re existir ir a surbrlrtina de codos.rngtrnccion:l?3{.

5r-rbrurtina prt:ceso. Instrtrcción ¡ 1g3t-r.

- surbrrrtina qlre alrnacena la inf orrnación del tramo.I nstrurcci.ón : l?IS .

Deterrninación de Ias pÉrdidas en los rarnales secundariosde acnerdo a s.-r posición respect' al rarnal principar.Instrucciones: 1g7r) a

"11O.

54

- Deterrminación de donde se

presión r rarnal secundario

?13t1 a "f,tl{},

encurentra 1a rnayclr pÉrdida de

o principal , Ingtrlrcciones:

- cálc'rlo de 1os.es.-rltados toteres: peso der sistema.ce:gto. pérdida de presián. Instrurccit:nes¡ ?5rü a zrgü.

Surbrurtina resLrltados por pantal la, Ingtruccion : zrgz.

- Fresentación en pantarla del nombre der archivo c.,n qLre

degea almacenar ra inf orrnación. Instrurccioneg¡ ?4(¡rl Á

?5¿)O.

Las surbrurtinas ejecurtadas en este pr,,grarna son serneJanteg

a las mencionadas en eI Froqrarna de durctos de glrministrcl .

La urni'ca diferencia se encLrentra en ra surbrurtina prclceso¡

ya qlre esta nc} hace cálcutlos de velocidad y recuFeraciónde presión en el trarno,

3.3.f,.1 Diaqrarna de Fllrjo: El diagrama de f lr_rjo delprograma de durctos de retorno¡ s€ presenta en eI ane,xo No.

4 | del pre*ente trabajn, ,/ rnuregtra el desarral lo detproceso en Lrna fsrma clara y precisa.

f,.3,f,,: t/ariables

empleadas en eI

especificanda su

aperación !

lrsadas en el

prografná se

srgnificado

prograrna Las varj.ables

e)Ípresan a continuación

dentro del proceso de

55

W(11(T) : area de Ia rejilla de retorno.

hJ{t?1 1 ¡ ¡ ancho de la sección transversal del trarno de

durcto.

hJ{)3( I ) ; alto de la secci6n transversar del tramo de

dr-rcto.

lA,Cl4 : densidad del a j.re.

t^l(tS(I) : variación de presión en codos.

[{oó( I ) : variación de presión en tramos cte dltcto.

t^1t17( I ) : variación de presión en ltniones de dr-rcto,

t^lü8( I ) : variación tatal de presión en trarnos de ducto.

hJ(19(I) : costo del trarno,

t¡Jlf-r i velocidad en dlrcto securndario.

t¡JlI I costo totat del sistema de dr-rctos,

t^Jlf, : rLrgrlsidad der material de c.,nstrlrcciún.

tAJl4 ; valc:r inicial para iteracion€lsr en el cálcurlodel factor de fricción del material en cada

trarno,

W15 i velocidad de entrada por rejilla.

t¡l 1ó ! velocidad en dlrcto principal.

5ó

W17(I) ! núrmero del tramo.

WfB(I) : longitud del tramo.

hl19( I ) : volurmen de aire reqnerido en el tramo.

t¡J?tl( I ) ! velocidad en ducto gecurndarro,

l¡.l33( I ) : diárnetro equtivalente del tramo.

N:f,( I ) : ancho de ra sección transversar der trarno.

t^¡?4( I ) : elto de ra gección trangversar der trarno.

tA,?S( I ) : variación de presión en el trarno.

W27(I) : peso del tramo.

W?8 I núrmero de codos en rarnales securndariog.

W29(I) r peso del tramo.

l¡rf,Cl(I) : perirnetro del tramo.

hJf,3(I) : núrmero de Reynolds.

W34 : espesor del material de constrtrcción.

Wf,s : viscssidad del aire.

t¡r36(I) i area de 1a gección trangversal del trarno de

durcto.

W7,7 I densidad det material de construrcción.

37

W¡9 ; núrnero dE Farnrlss sect.rndarios.

N43( I ) : lonqitr_rd eqrrivalente ptrr codo.

t¡.l44( I ) : Iangitr_rd eqlrivalente por unión de durcto,

t{4? ( I ) I longiturd total equrivalente del trarno.

tAJ51(I) : diárnetro eqnivalente del tramo.

W53(I) : peso del foil de alurminio,

tA,53 : densidad del foil de alurninio.

N54 : espest:r del f oi I de allrrninio.

W55 : costo del material por rnetro ctradrado.

t,J56 : cost*, deL foil de alurminio por metro curadrado.

hr58 : peso tota I de I sistema.

W59( I ) : variación de presión en codos.

tAJóo( I ) : variación de presión en urniones de durcte.

Wól ( I ) : variación tota t de presión en trarno .

N63(i) ¡ area de Ia rejilla de retorne.

t¡,|65(I) : costo del tramo.

W66 i mayor pÉrdida de presión.

tAJ73 : nürrnero de ct:dos en rarnal principal.

5B

Cl : número total de trarnos del sigtema.

FF(I) : factor de fricción del trarno,

N? : núrrnero de tramog del ramal Frincipal.

RF : relación de forma.

Vl : velocidad recomendada en rejilla de entrada de

aire.

V2 ! vÉlocidad recornendada en dutcto principal.

Vf, : velocidad recornendada en ducto secutndarlo.

3.3,3..1 Operaciún deI prr:grarna !

A contj.nuación se elipresan lag instrutcciones a seqltir para

Ia r-rtilización del progrerna de dutctog de retorno :

1, Se introdurce el diskette en el Drive A.

?. Se teclea ETASIC y se cprime ':.*i ENTER )).

3. Se teclea LOAD"RDUCTO' y se oprime ':.'i ENTER ':'.:1.

4. Se teclea RUN y oprirne ''"i. ENTER l':.

5. Aparece pantal lazo de presentación, introdutcción '/

lurego pantalla¡os de entrada de datos de ]a forma que Ee

vayan pidiendo.

59

ó. Aparece pantarlaro qne pide el nombre der archivo conqlte desea almacenar 1a j.nf orrnación.

7. Para liEtar los resLrltados"

oprime .:..:. ENTER :1 .]..

se teclea LOAD"RLISTA. y se

B, Aparece pantallaeo que pide

qLre alrnaceno la información. se

üprLme .:.{ ENTER ;}:,..

el nombre del archivo con

Íntrodurce este nornbre y se

3.3.4 Datos de resLrltados

Los datos de salida o resLrrtados de ros rog cárcurlos sepresentan en forrna ordenadai especificando si en el tram.e:ligten accesorios" y finalrnente Ee presentan losresLrltados totales deI sistema.

Toda esta inforrnación esta precedida

del prograrna. Fara los datos de losnúrrnero de este ¡ ,/ posteriormente lasrespectivag,

Datos

Long i turd

Vollrrnen de aire

Ancho

Alta

Ve I ocidad

de la presentación

tramos se indica eldatos y sl_rs Lrnidades

Unidades

fn

rn'''3/seg

fnfn

fnfn

m/seg

il Un¡ns¡dad Autonomo da ftdderrr I

6(:)

Estcrg resLlItados

curendo se observan

y sLrs urnidades son

pcr pantal la y en I

Diámetro equrivalente

Variación de presión

Recutperación de presión

F esn

Areas

fnfn

Fa

Fa

l:.9

crn'''?

e>ractamen te igura I es

istado impreso.

3.3.5 Ejemplo

Datos del problema. dr-rctog de surrninistro:

Sección Longitud del tramo( metros )

Se presenta

dr-rctes de

observar 1a

pr0grarna,

1

T

T

4

E

ó

7

a continuración Lrn

aire a.condicionado.

apl icación y la

ejemplo de

con el

forma de

Lrn sigterna de

clra I se prrede

operación deI

t5

5

I

4

4

4

4

Volurnen de aire( m'*3/seg )

2.7

1.8

o.9

(1. á

o,3

a.g

o.6

ó1

I

I

10

11

CODCIS

No,

I

?

DIFI-JsOREs DE

No.

1

2

3

4

E

6

7

B

I

Trarno

1

5

No.

SALIDA DE AIRE

Trarno Nt:,

T.-:.

4

5

6

7

B

I

10

11

r),3

(r,9

Cr.6

rl. f,

Angutl o Forrnado

3ü"

No.

1

UNIONES DE DUCTO

Tramo No,

6

6?

3

primer rarna I secttndario

desprende deI principio

JOo

que comprende los trarnos 6 a g.

de trarno No. 3.

EI

5e

E1

11

segurndo rafnal secLrndario qLre cofnprende los trarnos

r s€ desprende del principio de tramo No. J.

Datos del problerna.

Sección

I

?

f,

4

5

6

7

dr-tctos de retorno:

Longitr-rd tramo( metros )

2

?

?

6

5

5

13

Volurnen de aire( m"3/seg )

o.3

Cr.I

0.f,

r). j

(!.6

c¡.9

1.?

No.

I

?

REJ ILLAS

No.

1

CODOS

Tramo

4

7

ENTRADA DE AIRE

Tramo No.

1

DE

63

?

:I

4

7

'f

4

No.

1

7

3

UNIONES DE DUCTO

Trarno Na. Angr-rlo Formado

3C¡ "

J{r "

3üo3

El trarno No. I, empalma con el rernal principal en eI trarno

No, 7.

EI trarno No.2. empalma con eI rernal principal en el trarno

No. 6.

El tramo No. J" empalma con er rarnar principar en el trarno

No. 5.

El material de construrcción es lárnina qalvan j"rada.

La ciurdad es Cali. por lo tants hay gLre corregir o adectrar

la densidad para eI lurgar escogido,

El espacio a acondicisnar es Llne oficina pr-rblica,

64

f,.f,,6 Frecisión

Log cá1cr-rlos desarrol Iados tienen Lrn al to indice de

precisión. teniendo en cutenta eI aspecto operativo del

compurtador. por cna.nto Égte no ocasiona loe Frroreg

acLrrnLrlativog qLre pneden cornetersÉ en el urgo de graficog.

La precisión del diseFto" depende de varios aspectos. tales

cofncl !

- La exactiturd en la inforrnación slrmlnistrada en los datog

de entrada. teniendo en cLienta qne esta inforrnación debe

estar dentro de ciertas nclrrnas de disePto preestablecidas

Ios manurales de aire acondicionado.

- La ferrna ordenada de corno se surrninistren los datos"

cnando sean solicitados por pantalla, y en eI manejo

adecurado del compurtador clrandn se esten operando los

prografnas.

5.f,.7 Restricciones en la u¡tili:ación de los progrerneg

Log prograrnás estan diseFfados pára qLre plredan hacer

cá I cur l os correspond ien tes a cLraFen ta gecclones o trarnos .

principal '/ securndarioe. Siendo este núrrnero Lrn valor

razonable para eI cálcr-rlo de urn sistema no rnLly cornplejo.

Solo se aceptará urn codo en cada trarno" siendo obvia

esta razún¡ For clranto tiene que cLrrnplir norrnas respecto a

Lrn trazadn di recto.

65

f,.3.8 Preparación de datos

Log datog requreridos iniciarrnente. para poder iniciar erproceso de cá1cr-t1.'. deben estar previarnente determinados.para evitar problemas de información errada y resLrltadosequr j.vocados.

Taleg datsg son los sigurientes:

- Rr-rta por donde se desea pasar el sisterna de dutctos.

Identificación de trarnos principares y secLrndarios,

Nnmeración de lns tramog principares y secLrndarios deacurerdo a las figr_rra No. ?.

Identificación deI sistema de aire, conocer sí essr-trninistro o retorno.

rdentifitrar el tipo de lutgar qLre se desea acondicionar.

Volutrnen de aire reqnerido para cada lrno de loE tramos dedr-rcto. principales y securndarios.

- selección det rnateriar de constrncción deI sistema dedurctos de ai re acond i cionade .

3.3.9 Errores en la corrida del prograrna

[-os errores qt.re pueden corneterse en 1a carrida del

6ó

Frúgrarna r consisten

rnformación errada.

F¡c}r pantaIIa.

basi cernen te en

curando se ssten sol

e I surrnin iEtrg de

Ícitando Ios datog

Se recornienda tener claridad

datos aI compurtador. párá

tener qlre repetir el proceso.

y exactiturd en la

evitar resLrl tados

entrada de

errados y

RESULTADOS

Los rÉsLll tados obtenidos en el Froce=arniento del problerna

e j emp I o de, d isePlo r sE plreden resLrmt r agi ;

Se obgerva nna disminurción progresiva de

lct largo de todo el sistema de durctos

caIcnIados.

- Se observa Lrna disminutción

dimensiones r ancho ,/ al to de ladurcto¡ á lo largo de todo eI

sutministro diseFradtr.

la velocidad. á

de snrninistre

progresiva de lassección transversal de

sisterna de durctos de

en eI sistema

pérdidas de

eI 1o es más

Se observa y Lrna recllperación de presj.ón

de slrrninistror qLle trata de compensar laspresión en la sigr_riente gección. Debido a

facil balancear el sisterna.

- se observa urn varor de area de difusor de salida de arrecl rej i I la de entrada i qLre es importante tener en cLrenta.al hacer la aproximación de egte valor a Lrn datocorresFondiente a los establecidos comercialmente. De estodepende la generación de ruridos molestos en ras bocag de

ó8

Falida t: de entredá.

- Los valores nnmericos del ejemplor comprueban loscornentarios anteriares.

CONCLUSIONES Y RECOIIENDAC I ONES

Las conclLrEiones generales

trabaj o son I as sigr_rientes:

ge producen porqLre este

1. 5e logro implernentar el método de recuFeFacrón estáticapara sistemag de sutministro y eI rnétodo de extracción traradt-rctos de retorno.

?, Se observo qlre loE dos métodos rnencionadog

anteriorrnenter 5.''l fáciIes de procesar y prodLrcÉn

reslrltados caherentes '/ preci.sosr pára definir 1a

escogencia de lag urnidades acondicionadorag de airecorrespt:nd i en teg .

f,. se comprobó qne ros procesos de cárcuro desarrorlados.son f áciles de implementar ,/ de operar.

4. se cornprobó la irnportancia de la implementación de lasmétodos de disePfo. por medio del compurtador.

5' se cornprobaron los planteamientos teóricos basicos paráeI disePto de dlrctos de aire acondicronado y otrosplanteamientns generados para obtener Lrna inf ormación rnás

7r-,

otrjetiva- Lo anterior se comprneba c.n 10s resLlltados qlrese presentan en el ejemplo.

7L

cn¡no recomendación 5e purede F¡ípre=ár 10 sigr-riente :

1" Deben leerse ras ingtrnccion,es sobre el proceso deoperaciÓn del computtad ar y del prograrna r áñtes de inrciarel proceso del rnismcl .

?, Deben observarse los diagramas de flr_rjo, FaracornprendeF st.l furncionamiento.

f,' L's c,atos de entrada deben surministrarse en Lrna forrnacrrdenada y correctar para evitar qne repetir e' procrso Lt

obtener resllltadog erradog,

72

TABLA T. REFUERZÍ¡S LAIIITA GALVATIZAI}A

DI]IEIISIÍ}IIES OEL

OUCT(} (LRDO TIAYORI

llll

HASTA 457

460 A 762

7ó2 A l0É0

r0ó0 A t370

1370 A 1Í25

1525 R ?130

ESPAIIAITIEIIT(I UITIOII REFIIER¡{ISIRAflSVERSAT

IIEIRf}

VARTLIAS S{]PORIE

|}IAIIETRO IIRX ESPACIflIIEflT(l

ñETRf]

CALIBRE

21

2l

22

22

20

2A

2.50

2.50

2.50

?.50

2.50

2.50

t{m6ut0

lllxl/8

lxlxl/8

Itxltxt/8

ttxltxl/8

Itrltxl/8

5/8'

3/8'

3/8',

ll?'

u?'

uz,

2. J0

2.30

?.00

2.00

r.30

t.J0

73

LAIIIIIA DE

I}ucT0

TRf,Bf,JO

PESAOO

(lrD I

ESPESOR DE

LA PAREI}

25 ¡r

TABLA 2. REFUERZ(IS LAIIII{A FIERA DE |/IDRIO

PRESIOII

ESTATICA

0. t(,

0.75

I .00

l.?5

r.s0

2.00

oltrEt{st0ilEs pERllIstE[Es DE Lt]S 0UCT05 5${REF{IRZAR Y RTFflf,TAI}{lS (|IETROS}

SIII REFUERUÍ} ESPACIATIIEI,ITÍI I.3O IITsurm¡sTRo REToRfl0 suñmr5TR0 RETftfiilo

t.52 t. t2 2.08 t.58

t.2? t,ol 1.35 r.t{

0.91 0.Bt t,22 1.09

0,76 0.76 t.0{ t.0f

0,61 0.ór 0.71 0.71

0.5ó 0,5ó 0.39 0.38

ESPACIñfilErT0 1.30 iTSUIIITISTRO RET{IRIIO

3.05 3.05

2,72 2,21

2.3ó 2.t8

2.n z.lt

1,93 1.93

1.07 1,07

PRESIOII ESTATICA EIt PüLEADAS DE A6UA

REFUERI0S : CAHAI I]E Z. x t. I 2.

EIFLIOI]F:AFIA

|::AF:E: IEF: , f'|,:rnural de aire Ert,t¡t-idi,t-í¡t¡ñüdrt¡. rl:arrier .:tir

ürt,fidi t i ':'r¡ i. n$ ': ¡l,mpát'ty.

F,.tr,:c¡1r:rñá 1 .'3Btl ,

l'lAr ,: rlr(¡[r]r ed i t ür Eg,

;

f'1,:GUIFTUN, Fayer y FAE:t:lEF.' Jeral d. Fleatinq, vent j. 1ating áncJ

air' ¡t¡t¡t-l diti':,ninFr analysir; ancJ desigln. Se,:,:,nfl

editi':'n. J,:ihn I'Jiley 8¿ S,:,ns, 138:.

l*AUEl , 'Tr-rlian. Ai'¡' ¡r¡r¡fiditiL:ning ánil heating pra¡:ti,:e. Ery

ll,:, 1t ti:ir¡ehart and l,linstc,n Inc, 1?69.

,IENt'l INl35, BnrLl{l:;E i'LEtJI5, S.rrnurerI . Aire a,:,:rndir:ir:rnádr:r y

rsfric:ler*,:: it,n, Ints'r natit,nal. te¡:tb¡r¡¡t¡[:] ':r:,mpany. S¡]rár-rt,r,fir

f:'enn, 1l;r impre:1it'n, 1,'384..

ÉSHF:AE, Fltndarnelntá1 5, Hrndb¡:¡r:¡l::. Fy ASHFIAE, At 1 anta, 1 "'l/gI.

Sl"l¡"\ll:NAr Fibr,:,r-rg qlagE, Dlr,:t ,rrj¡r-lgtiLrr:tirrrn st;rncJa'r.cJg,

\ti r'gi nJ.;r, LJSA, 1.,'37Fr,

73

sl"lÉrllhlA, HVArr: systerne dur,:t dr:l:;ign. vi.r-gi'ia, IJSA, 1.tg5.

FIFEF:GLAS, rl:,:,1,:rrnbj.;r S.A, rl.ata1c,g,: de fihra cle vidri,:,rBr;rerjrf fi, 1 'JB6

"

r::l{uN-LUN, $teve. si,rrpl i. f i ed uotat i,: reqrai n clurct de=i gn

Fr,-,,...¡,Jrrre" Slrangai, l. 38,{.

Y.5., ll:hen. Da"sign a prr,dedr_rre f,:,r dlr,:t ,:alrurlati,:,n.Syr,a,:ltse, N. y. I. ggL

Y.S", tl:hen, fln,:t rJesign ancl i.i i-;,iii: i,_, by ,:,:¡mplrter. ll:lricag,:,rI ':7..t

N. S, , Stratalc'f f . Static regaj.n mettlr:,d ,:,f rJesign f ¡l¡1. dr_r,:ts.ASI{F;AE,-Trlrr-{rf'l¡!1, New yr:,¡, l:, 1 . 966.

ANEXOS

iiN[xo 1" L]5TAü{l F'FJüt-iFiAt"tit üt_ru1¡5 0t ,sut.1Ii..iIÍit f{CI

? FÉf"I * DISEí.iO DE DUCTOS L]E AIRE ATONDICIONADN FüR EL f"IETODO DE *f, REÍ'I X RECUÍ]ERATiON ESTATICA DE FRESINN T4 REI'I * FRüYEcro DE {3RADü r INGENIERIA PTEtrANICA )t5 REM |t ELABORADO FCIR ; OCTAVIO VILLEGAS OTERCI *6 RE}'I * CALI, NOVIEI{ETRE DE 1?88 *TREPI * * * fr * * * * * f * * )t * * * * * rt * il ü fi * )|( * ü t( * *8 REI'I * PRESENTACION EN PANTALLA )*

I CLS r liEY 0FF:6OTO 201{, LocATE 5.25:PRINT "UNIVERSIDAD AUToNoptA DE occlDENTE"l1 LOCATE 9"33¡FRINT "PROYECT0 DE GRADO"12 LOCATE 11"?2¡PRINT',DISEí.iO DE DUCTOS DE AIRE ACBNDITIONADo PoR EL',I*1 LOtrATE 1?'?2:PRINT ',METODO DE RECUPERATION ESTATICA DE PRESION',14 LocATE IS.IS¡PRINT "ELAB0RADO FoR : ocrAVIo VILLEGAS orERo,'15 LotrATE LB.TT TPRINT "FACULTAD DE INGENIERIA MEEANICA"16 LOCATE ?lrSCrrFRINT "EALI, NOVIEFTERE DE t?BB"17 FüR f,= I TO 35O(rO | : NEXT X ¡ CLsEO REM * INTRODUCCION AL FRO6RA]"IA *:1 LüCATE 7.?8:PRINT "INTRODUCCION AL FROGRAHA,,I? LOCATE I r 11 : PRINT "Ef principio sobre eI cu¡al se basa eI método de recLrperación "?f, LocATE lrJ.11:FRINT "estática. es dimengionar cada tramo del ducto de modo qure

eI It

?'4 LOCATE 11' 11:PRINT "autmento de recLrperación egtática ( recurperación debidaa la r!

?5 LOCATE 1?.11:PRINT "redutcción de velocidad) en cada tramo del dltcto" eenilibre rr '

?6 LOCATE 13r11¡PRINT "IEs perdidas por rozarniento en la siguiente sección del dLtctÉ. "?7 LCIcATE 16.22:PRINT "{.i 0FRIF|A UNA TEELA FARA C0NTINUAR }}',IB Fr$ = INI::EY$¡IF LEN ,pE¡=t_r THEN ZB?9 CLSIC) LOCATE 7.38¡FRINT "OFERACION DEL Í-.ROGRAHA"f,l LOCATE 9 r 11:PRINT "El prograrna esta diseñado para que pueda calcr¡Iar y gurardar rr

3? LOCATE I{:}rlllpRINT',en rnernoria los datos referentes a tramos de ducto" principa1"3f, LOCATE 11r11:FRINT "y secundarj.og. cLry6 nürrnero no s;ea rnayor a cLraF*nta. "54 LOCATE 12.11¡PRINT "Los datog requeri.dos inicialmente, pará poder iniciar

eltt55 LOCATE 13,11:FRINT "proceso de cálcr-rlo. deben estar determinados previamenter"f,6 LOCATE 14.1llFRINT "para evitar log problemag de información errada v reslrltados ";;7 LüCATE 15.11:PFINT "eqLrivocados, "f,B LocATE L7'??:PRINT ""1{ OFRI}4A UNA TEELA PARA C0NTINUAR >}"f,? FIS=IN};EY$: IF LEN (PIS)=O THEN 5?4t-r g¡541 LüCATE 7!IB:PRINT ''INFORI"IACION ACERCA DE LA RELAtrIBN DE FÜRI"{A''4I LüCATE It II IPRINT "La relación de f orrna es Ia relación qLre existe entre el4f, L0CATE 1ü.11:FRINT "ancho de la sección y el alto de Ia sección. Esta relación"44 LOEATE 11.11;PRINT "debe ger lo más cnadrada posible, osea 1:1."45 LOCATE 12r 11:FRINI "La relación de f orrna depende del espaclo disponible. El"4ó LÜCATE 13.11:FRINT "anch6 siernpre será rnayor qr-re Él alto y esta relación de"47 LOCATE 14.11:FRINT,,forrna no debe de ser rnáyor de cinco, osea 11F."48 LOCATE 16"21:PRINT ".i.:. OFRIT,IA UNA TECLA PARA CONTINUAR }]¡"49 FI$=INI.IEY$:IF LEN (PrS)=(I THEN 495ü üL551 LocATE 7,2ü:PRINT "INFoftr'rAcIoN ACERCA DE uNIoNEs DE DUCTO,'52 LütrATÉ ?.11:FRINT "Log rarnaleg gecrrndnrinci ernn;elm:n rññ oI Fjñsr nriñF.iñal

:if, LüCATI :1"(J "

11 : FR I N t ', med io de r_rria ltn ión o te .54 LI-IüATÉ 11,1L lPRIfrlT "Tale:; ltniones o desprendimientos f orrnan Lrn angurl,,e1"55 LIICATE 13.11:FRINT "ccf,n el rarnál principal i por esta razón es necetsarroer"5ó LOCATE 13! 1l lPRiNT "angLtltr f orrnado pára dar urn f actor lo más trercanclIE"57 LOCATE 14.11tPRINT "al real.,,58 LocATE 17,?1¡FRINT ".t.. oPRIftA UNA TECLA PARA C0NTTNUAR 3>',5? FIF=INI.:EYS: IF LEN (F1S)=O THEN 596ü CLS6l LOCATE 6.15:PRINT "INFBR¡"|ACION AEERCA DE CODOS"62 LocATE Erlt:FRINT "Hay dos tipos de codos r de radio ye"ó5 LocATE ?r11:PRINI' "radio tienen Lrn valor recomendado degt'

&4 LOCATE l()rlltFRINT "el radis formado por eI codo y D esón. "ó5 LocATE 11r11:PRINT "Tener en cltenta el angulo formadoy"

ó6 LOCATE 12,11:FRINT "la relación de forrna."67 LOCATE l3'11¡PRINT "FaTá los codos en csrte conociendo Ia relación de forrnay"

6g LOTATE 14,11:FRINT "el angLrlo de corte. sÉ dá el valor del fáctor."69 LocATE L7,?L¡PRINT "{.. üPRII'|A UNA TECLA PARA CCINTINUAR }},,7O F'$= I NI.IEYf$ : I F LEN ( FI$ ) ={I THEN 707L CLs80 LOCATE 4'15:FRINT,.ANTEs DE COÍ{ENZAÑ EL FROCEEO DE cALcULo DEEE DE.'8f, LOCATE 5.15:FRINT "TENERSE EN CUENTA LA SIGUIENTE INFORHACION ! "8ó LOCATE 7'l5¡F,RINT ''T IDENTIFICACION DE LüS TRAI,IOS PRINCIFALES Y SECUNDAFIOS

B? LOüATE 8,15¡FRINT ''* RUTA FOR DONDE SE DESEA FASAR EL SI$TEMA DE DUCTOS

?2 LocATE 9'15¡PRINT "f IDENTIFICATION DEL ,SISTEMA DE AIRE

?f LNCATE 1{}Il5:PRINT "* TIFO DE LUGAR TiUE DESEA ACONDIC]trNARx"1OCI LOTATE 11"l5:F,RINT ''* VOLUf"IEN DE AIRE REAUERIDO EN CADA TRAI'I0.DE DUCT0

*r'llt:i LOCATE 12.l5:FRINT "* I'IATERIAL PARA LA C0NSTRUCCIoN DE LOS DUCTOsl"

1?ü LOCATE 14.15IINPUT.,SE TIENE TODA LA INFORI"IACION S0LIEITADA (S/N} ? ''.AfFl3(¡ IF Af$="s" OR AfS="s" THEN 15{r E¡5E 14014tI ¡6641' 14"I5:PRINT ''[:OI'IFLETE LA INFORIIACION SOLICITADA Y EI"IPIECE DE NUEV0,,145 FOR X=l TO 3OüO;NEXT X:GOTO Ttltlt-¡15{I 6g¡ * DII'IENSIONAMIÉNTO DE LAS VARIABLES rfi

16(1 tLS17Q DIlvl t^JC)l(4{l¡,t¡¡ü?(4t¡) rh,oS(4(r) rhJ{}s(4{r) rtat{)6(4C¡) rWOT(4Cr) rhtOB(4(r) r¡4rlg(40)18ü DIt'l ttllo(4(:r),W17(4{r) rt¡¡18(4O) rl¡J19(40) rW?ü(40),t¡J?Z(4r)) rWZS(40) rW?4(40)19rJ DII'1 hJ25(4(:,).t^J27(4o) rt^l29(4(¡) rhtScl(4o) rt^J33(4(¡) rt^ts6(4(r¡ rt44s(4e) rtat44(4())ZOt) DIf'l W4ó(40) rhl47(4{l) rt^148(4r1) rt¡t49(4()) tt¡JS()(S{r¡ r1451(4{r¡.WSZ(4{¡) rt¡t57(40)21{) DIfYI W59(4(}) r146{)(4{¡) .hJ61(4C¡} rtd63(40) rt463(4ü} rt^t64(4r-r) rTOl (4(r),TO2(4ü)3?(l Dil'l rof,(4ü¡ rTrl4(40) rT(r5(4{r) rTOá(4O) rTOT(4r)) rT'Og(4ü) rTOg(40) rF3(4C))3f,0 DIf.l F3(4Cr).F4(40) nFb(4rl¡.F6(4ül rF7 (4(,) rFF(4ü),W6F(40) rt^tB0(4r1) rSAL(4ü,4ü)?35 DIf't SER ( 40

" 4ü ) . T1ó ( 4() )

?4T:I REf'I * DETERI"IINACION DEL LUGAR A ACONDICIONAR f?45 t¡J14=8, (:t{}(:}C}O1E-O3: t¡JS5=, OOtlCrtE; DENS=l . Z{14?5{I DIS="ESF'ATIO A ACONDIEIONAF''?6(:) C$=5PACE$ ( 5(:) )T7t:I ¡6gO'' 4"l5:FRINT ''DE LA S]GUIENTE LISTA DEE(E DE SELECtrIONARSE EL TIFO DE''rEü LocATE 5.IS:FRIN]- "ESFACIü üuE sE DE$EA ACüNDICI0NAR !,,I9tt ¡6¿gTE 7r?STFRINT ',1. RESIDENCIAS,,f,(:)ü LüCATE 8,?5:FRIN'r "t. AFARTAT'IENT0S. H0TELES. HosFITALES":I1ü LÜtrATE 9.25:F,RINT "J. ÜFICINA$ F,AFTICULARES" f{IETLIOTECAS"i;Z{r ¡.¡¡6Tg l_(:},?SlFRINl-,'4. TEATRü5. AUDI'rORI05"

con

tron[]c

posi b

en corte. Los codos d

R/D = 1.?5" donde R e

la altlrra de Ia secci

por el codo de radio

x

x

*

.54{:) LCItiAl E 1I,25:FRINT "ó, 1-IENDAS CüptUNf:i$, t:A[:HfHRIAS',;ii:ii"¡ i OUATE 1:i,:StF,RINT ',7. INDUS1RIAS,,f,óü LOCATE 14,15¡FFtINt- "i;J. ESTUDIüS DE I1AIJIü,,f,70 LüCATH 15.?S:FRINT,,9. OTRO Nü INüLUII)O,,f,8ü LOCATE 17,i5:INpU't ,'SELECCIONE üFCI[frJ ==.:r ,,.fJFf,9{) IF ÜF,:}? OR ÜP.Il THEN 4{]C) ELSE 4{)q4O{t ¡66¡¡TE 17,:S:PRINT C$:GOTO f,Bir4{i5 CLE;41Ü ¡¡1¡ tiF GOTO 4AO, 44ü r 46C)r 4E(lr F{)e . 5?O, b4(¡, 36ü, 5BO4?CI ¡gg6TE 5,?5¡FRINT DITi " RESIDENCIAS"4f,(r V1=5: V2=3 ¡ VS=J t GOSUF Jü()0: GüTü S?O44O LüT]ATE 5,IQ:FRINT DIT| " APARTAI,IENTOS, HAFITACIONES HOTEL Y HOSPITAL,'45{r V1=7, 5: V3=6 : VS=4 ¡ GUSUB SCIC)(} ¡ 6OTO Sg(r4óÜ LOCATE 5. 15¡FRINT D$i,, OFIÜINAS F.ARTICULARES,BIBLIoTEcAS''4'ZCr V1=10: V2=8 ¡ VJ=4: GüSUB l{)ü0 :6OTO F9(r48{t ¡96615 5rt2¡F,RINT Dr$¡,, TEAIROS, AUDITORIOS,,49{¡ V1=6. 5l V!=5 ¡ VJ=4: GOSUE¡ Süü(¡ I GOTO F9C¡5C'{} LOCATE 5,15:FRINT DITi'' OFIC. F.UBLICA. RESTAURANTES. BANCOS"5J.(r y1=1u ¡ VZ=g : V3=5: GOSUB 3()(r(¡ : GoTo 5g(r52{t ¡96g1g 5,18:FRINT Drsi " TIENDAS C0HUNES, CAFETERIA$',53(¡ Vl=ICr¡VZ=B :V3=5:6BSUB SC)üC) :GOTO Sg(¡54O LOCATE 5.25: FRINT D:F i " INDUSTRIAS,,55Cr V1=1?: V2=11 I V3=1rJ ¡ GüSUF 30ü{} :60TO F9(r56{t ¡ggp1E 5,?3:PRINT D$i,'ESTUDIOS DE RADIO',57C¡ V1=5 ¡ V?=3: V3=?. F ¡ 6BSUE I{}O(, : GOTO Sgt]58ü LÜCATE 1()r2O:INPUT "ESFACIO A AtrONDICIONAR ==) ",6!É585 Wóó=l59C' LOCATE li,17: INFUT "DIGITE LA VELOCIDAD DE SUI"IINISTRo (¡4lSE6) ==J. ,,,WlS59? IF W15}25 THEN 593 ELSE 595593 LOCATE l2.?C):FRINT C$:GOTO S90595 LOCATE 1?"20:PRINT C$ó(l(t LüCATE 1?'13:INFUT "DIGITE LA VELOCIDAD DE SALIDA FOR DIFUSOR (M/686)==t:r "rH1ó6C¡1 IF t¡láá=l THEN 6tü6ü? IF W16:)V3 THEN 6{}3 ELSE 610ó{tS ¡6¡¡Ott 1?"2O:PRINT CrS:G0'tü 6{¡C¡610 CLS62(I ¡66675 5'ISIFRINT "FACTOR DE TORRECCION DEL AIRE F.OR TEIIFERATURA AI"ITIIENTE"630 LOCATE 7.I5:PRINT "TEI"IFERATURA oE" lSPC(9) i,'FACTOR',64Cl LüCATE B,.l():FRINT '5" ¡spC( 17) I "C).943"ó5(t LOCATE 9. ?9lpRINl' ,'l(J,,i SFC( 17 ) i ,,C).9ó1"66{) LOCATE 1{r ! ?g: FRINT " 16" i SFC ( 17 ) i ,'{r.981"ó7t) LOCATE 11.2?;FRINT ":1', iSpC( 17) ¡,,l.ClO"óAú LOCATE 1?t39;FRINT "27" iSFC( 17) ;',1.C)19,,ó?O LOCATE 13,29:PRINT ,'Sl,,iSpC( 17) ¡ "l.tt3g,,7{:}C) LOCATE L4.49:FRINT "IB,'iSFC( 17) ¡ "1.C)S7',71(' LOCATE 1á,!{I:INFUT "DIGITE EL VALOR DEL FACTOR DE CORRECCION ==.i ,,.FCl72{t IF FC1i.1,(,F7 OR FC1,..9 THEN 7I(r E¡gE 74E¡73{¡ tOCRtE 16.2C):FRINT trr$:6OTO 71O74C) CLS75ct LüCATE 5'IO:FRINT "FAcToR DE coRREccIoN DEL AIRE poR ALTrruD soBRE EL NIVHL-I]EL I"IAR"76Q LÜüATE 7.i5:PRINT "ALTITUD (M) " iSFC( I1) I "FACTOR',77r: ¡6¡6TE B. Z?: FRINT ',e,, ¡ SFC ( 17 ) ¡ ,,1 , Oü,,TBil LüüATE g.?7:FRINT "J(J()" iSFC( 17) I "1.{_}4"790 LOCATE 1(t.37:FRINT "ó{}{)" ISFC(f 7) ¡ "1.08,,8ú0 LOCATE 11 ":7: FRINT ,'gf-)ü', i SFC ( 17 ) I ,,1 . 13,'EIu LOCATE 13, ?ó: FRINT ,,1?OO', i SpC ( 17 ¡ ¡ ',1 .1ó,'82t) ¡6¡41E 1f,.Ió:FRINT "lS(){}" iSFC( 17 ) ¡',t.=r,,,af,cr LocATE 14.26¡pRINT "19tl{},,¡Spc( 17) ¡ "1.25"84{r t6¡6Tg lF, A6¡ F.RINT ',?IC}!-},, i SFC ( 17 ) i ,,1.29,,85ü LOCATE 16,?ó:FRINT ,'?4Oü,'¡SpC( 1Z¡ ¡,,1,JS"tsó{} LOCATE 1B.3CI: INFUT "DTGITE EL VALÜR DEL FACTOR87() IF FC?:)1,45 OR FCt.:1 THEN B8O ELSE 89üAÉ]ü LÜCATE 18,3I): F'RINT Cr3: GOTÜ a6t.I

DE CORRECCI0N ==.:¡ ,,.FCl

?t,ii.) +j(t4=¡.¡g¡qg / FC1-'?1it tLs93O LÜCAI-E 7,15IF'ft]NT'"süLEüC]ÜN DEL Í{A]-HRIAL F'ARA LA CONSTRUCCION DE DUCTOS''9.3(t ¡ggqTE I,15:FFIN-f ,,J". LAf'tINA GALVANIZADA,,?4() LIJüATE 1().?5:FRINT',?. FIBRA DE VIDRIü?5rl LOCATE 11 . 25 I FR I NT ,,S . I COPOR',96(¡ locAtr lf,.:?:INFUT "DIGITE oFcIoN sELEctJ6¡¡¡¡4 ==.r ,'rop97tt IF OF:i.5 THEN 98(r E¡sE 9969Br:) LüCATE 13.17 ¡ FRINT CrS: GOTO 96(¡99(l CLS: ON OP GOTO 991, tOlO, 10509qI W13=.C)CIC¡Zlhl?6=1.[¡¡g/=//(r(] :hlg?=41(l(r¡[rJgJ=J27tt¿h,g4=??5r.¡,t¡Jg6=17{}cr993 LOCATE 7'zQIPRINT ,'F.RECIO EN NOVIEMBRE,/8B DE LAf'IINA GALVANIZADA $/M.-?,,994 LOTATE g,?7¡PRINT' "1. CALIBRE 20 "iUSING',#*#fi,.##',it¡Jg?995 LüCATE LLtr2T IPRINT "2. CALIBRE ZA " ¡USIN6 ,,#*##r.##i iWg3;996 LÜCATE LL|?7:FRINT"3. trALIERE 24 ";USIN6',*#*#".##"¡W94997 LOCATE L?t27 !FRINT "4. FOIL DE ALUI'IINIO ,'iUSING "##**n.##', iW9ó998 LOCATE L4t27:INPUT "DESEA MODIFItrAR (S/N) ? ==i ,'.ArF999 IF Afb="S', OR ArF="s" THEN 1000 ELSE 11go1Oü0 LOCATE t4 t2-7 ¡ INFUT "DIÉITE ITEM A TIODIFICAR ==.). " ,W4(¡1()O1 IF W4t).:.4 OR hl40*í1 THEN 1t]ü{¡lOCt3 ON W4() GOTCI 1()O4.1{}(}5. lOC}6

" lCtC)7

1{){t4 LOCATE 14t?1 : INFUT,'DI6ITE NUEVO VALORTE 14, ?1 : FR INT CIS ¡ 6OTO 9941OO5 LOCATE L4r?t:INFUT "DIGITE NUEVO VALORATE 14,21rPRINT C$¡GOTü 9951r:¡C)6 LOCATE 14.21¡INPUT "DIGITE NUEVO VALOR FARA LAMINA CALIBRE !4 ==)',.[,J94¡L0üATE 14

" ?1 I PR I NT Ctb I GOTO 996

1C)ü7 LOCATE 14"21:INPUT "DI6ITE NUEVO VALOR PARA FOIL DE ALUHINIO ==.). ,'.t^¡96:LOCATE 14,21:PRINT CIS:GOTO ?971(¡1{) trl13=, Oü{)9: W?6=? : hl34= , {}?34 ¡ t¡Jf,/=t}t_r: NgF=33O(¡1()1? LOÉATE 1L).IS:FRINT,,FRECIO EN NOVIEMBRE/B8 DE FIBRA DE VIDRIO $,/I"I*? ,'¡USING "####r.##";W?51ü13 LOCATE 12,?9¡ INFUT ,'DESEA f'lüDIFItAR (S/N) ? ==) ".Ar$1C)14 IF Ag='5tt OR AfS="s" rHEN lC)I5 ELSE 1(,lg1015 LOCATE gt24rFRINT C$1(t16 LüCATE 9.29:INPUT "DI6ITE NUEV0 vALoR rflll"'2 ==l ".1¡1951017 LOCATE 9r?OTPRINT CrS¡GOTO tC)t?1{l1B hJ$5=l¡195l()?(:) IF taJl5).1?,2 THEN 1(r3(r ELSE ItBO1(¡3CI CLSILOCATE 11.I?IPRINT ''LA MAXIMA VELCICIDAD EN DUCTOS DE FIBRA DE VIDRIÜ ESL2.2 M,/S"1(:!4(, FüR X=l TO 3C)C){I:NEXT X¡GOT0 109()1O50 Wl3=. 0()15: bJ?6=3 ¡ [¡J34=. O?S4 :WJ7=S{r tWgS=lóFO105? LOCATE l(l,16:FRINT "FRECIO EN NOVIEHBRE/8B DE ICOFOR */t't*Z "IUSING "####,.##" itrJ951Ct53 LOCATE t2"27:INFUT ',DESEA MODIFICAR (S/N) ? ==3 ,'.ArF1t¡54 IF ArS-r'S" OR AS="s" THEN 1OSS ELSE 1üSB1055 LOCATE gr27:FRINT Crt1(t56 LOCATE 9 j?4:INPUT "DIGITE NUEVO VALOR rSlM"'l ==} ',.W9F1ü57 LOCATE 9,24:PRINT CrS¡60TO 1ü521r-)58 t¡J55=W951+6C) IF W15).18.2 THEN lO7(! ELSE 11BO1O7C' CLS:LOCATE 11.l7:FRINT "LA I"IAXIMA VELBüIDAD EN DUCTOS DE ICOF'OR ES 1g.? T.1./5

1()80 FOR X=l TO 300CI:NÉXT X

1(t96 g¡=11(}(} LOCATE 6'TSIPRINT ''I"IODIFIC¡UE EL I"IATERIAL o LA vELocIDAD,,111ü LOCATE B.SO¡FRINT ,'1. CAMBIAR ffATERIAL"113(] LÜCATE ?.3{¡:FRINT ''2. CAÍ"IBIAR VELOCIDAD''Il¿itl LocATE 11,?6: INPUT "DIGITE ITEl"l A HüDIFICAR ==j. " roF1I4C! IF OF:i? THEN 115{r ELSE 11ó(¡.1 15{¡ LOCATE 1 I . :: : PR I NT tr$ I GOTO 11I(i11áú IF üF=l THEN 91{)1I7{:r CLS:LCICATE 1(),1c):INFUT "DIGITE EL NUEVO VALOR DE VELOCIDAD DE ENTRADA (1"1/SEG ) ==.:r ', .l¡Jl F

FARA LAI"IINA CALIERE l(r ==.r,'"W9?:LüCA

PARA LAI4INA trALISftf tl ==lr ""W93¡LOC

I19() LOCATE 1{}t?ó:FRINt",,RAI"|AL FRINtrIF,AL"1i{}{} LocAl-E 1?"1óTINPUT "DE üuANTüs rRAFln$ ü DIVIsIoNEs sE cot{poNE ==;r,,,r¡J391?1tl CLEj: J={r1?15 LocATE 4.14:FFIINT'"ñAI'1AL FRINCIFAL DE sur{1N]srFto" TRAMos No, 1A No,,,ihJJ912r(r LocATE á,10:PRINT "l"RAI'to No. " isFC(B) i,,LüNGITUD (M)', ¡sFC(g);',FLUJS DE AIRE (l"l.'.3/5E6 ¡ ',L222 J?=1I?tl VARl=l:VAR?=WS91225 FOR I=VARI TO VAR?l?3ü L0CATE B+Jr14:FRINT I:Wt7( I )=I1255 LOCATE 8+J r S(l ¡ INPUT ,, ,, . W4ü: Wlg ( I ) =W4O1238 LOCATE B+J r S?¡ INpUT ,',,.W4ü:hllg( I )=hl4(l124t) J=J+l1245 NEXT It747 J1=8+J+?¡IF J?=l THEN JS=JI:JZ=O1248 L0CATE J3,Z, ;FRINT C$1?5C} LOCATE J3.:3¡INFUT ''DESEA F1ODIFICAR (5/N) ? ==.} ,,,AfF1252 IF AÍF=',S" OR A$e"s,, THEN 1?55 ELSE lf,l(¡1255 LOCATE J3.?3¡FRINT CS126qr LOCATE J3.:3:INFUT ,,DIGITE EL No, DEL TRAHO ==l ,,.VARI1265 IF VAR1}W39 OR VAR1,i1 THEN 12óO127(¡ J=VAR1-11375 VARZ=VARI128(1 68TO 1?25131ü CLS:H=O131f, LOCATE 1C}.6 ¡PRINT ''INFORI"IAtrION ACERCA DE CODOS EN EL RAHAL FRINCIFAL. TRAf"IüSNo.1ANo."¡W. g131ó LOtrATE 1?.2o¡INF'UT "CUANTOS CoDos HAy EN ESTE RAt"lAL ==),'.[,llg13?O IF W?8=rl THEN 14OC)132? CLS1323 LOCATE 5.l8¡FRINT "CODOS EN EL RAFIAL FRINCIPALTT'RAHOS No. 1A No.,,iW391:i26 LOCATE 7t25:PRINT ,,CODO No. " ¡SpC(g) ¡',TRAMO No. i13?B H2=1153Cr VARS=1¡VAR4=W?B1f,33 FOR J=VAR3 TO VAR413f,ó LOCATE 9+H'?8¡PRINT J134(r LOCATE 9+Hr4It INPUT,,',I.N;SER(J,N)=l1343 H=H+l1346 NEXT J135C) J1=9+H+2:IF H?=l THEN JS=JI:HI=(¡1353 LOCATE J3,1S¡PRINT C$135ó LCIcATE Jf,.?s¡lNpur "DESEA I"|ODIFICAR (s/N) ? ==i.,'rArF1360 IF A{F="S" OR AtS="s,' THEN 1363 ELSE 14001363 LOCATE JS r 15: FRINT CrST366 LOCATE J3.15:INPUT,'DI6ITE EL No. DEL CODO Y DEL TRAH0 ==},..VAR5"N1370 IF VARS}WZB THEN 136ó1373 H=VAR3-1: J=VAR3: SER(J.N)=Cl137á VAR4=VAR3138{) GOTO 13f,314üü trL5:H=ü14OS LOCATE 1Or4:FRINT "INFüRI'IACION ACERCA DE DIFUSORES EN EL RAHAL PRINCIFAL. TRAIIOS No. 1 A No. ', i td3g14oé LüCATE 12,?0: INFUT "cuANTos DIFUsoREs HAy EN ESTE RAMAL ==) ,,nNl1410 IF N1=0 THEN L47O1412 CLS1415 LOCATE 4.IS¡FRINT "DIFUSORES EN EL RAI'IAL PRINCIPAL, TRAl"tCIS No.1 A No.,'itd3914?Cr LüCATE 6r2t):PRINT',DIFUSBR No. " ¡gpQ(lCr¡ ¡,,TRAplO No,,,14?5 VARS=I : VAR4=N1L477 H3=1143() FBR J=VARJ Tü VAR41433 LOCATE B+Jr?4:pRINT J1456 LOTATE B+Jr4f,: INFUT "" TN¡SAL(J,N)-IL44O H=H+l144.J NEXT JL446 J1=8+J+?¡ IF H3=1 THEN J3=.Ii rt-lj¡=r-'

l4l;il,rl LOUA"|E J--1.:f,!INF'UT ,,DHSEfl t"lüDIFICAf:t {$.iN) .;j ==.:r ,'"A$1454 IF ArT="5" OF A$="5" ]-HEN 145,5 ELSE J.4'7{t1456 LüCATt JJ,.15:FRINT {:S1458 LOCATE JS.-LTIINF'UT "DIGiTE EL No. DEL DiFU$üR Y DEL Tgp¡v,¡g ==.1 ,,"VARJ.N1460 IF VAR3j"Nl OR VARS{I THEN 1458L4ó7 H=VAR3-l¡ J=VAR3: SAL(J.N)={rt464 VAR4=VARSt4á6 GOTO 143C)147t1 I =1148(t l¡¡3ó( I )=Wl51490 WOl( I )=W19( I )/hl5ó( I )15O(¡ CtS151(t LOCATE 2.2¡FRINT "RAtfAL PRINCIFAL,'1520 LOCAÍE 4,Z(I:PRiNT ,'PERDIDAS FOR ENTRADA AL SIsTEPIA DE DUCTog''155C} LOCATE 6.?SIPRINT ''R/D'' ¡sPC( 13) ''COEFICIENTE''154t1 LOCATE 7 t25:PRINT "O.OI', ¡SPt( 15) i,'O.43,'155(r LOCATE 9,25:FRINT "O.(tA" ¡SFC( 1S) ¡ "(¡.36,'156Cr LOCATE 9r25:PRINT "ü.05" iSPC( 15) ¡ "O.31"157(r LüCATE 1(r!?5:pRINT "O.04,,iSFC( 15) I "f_).?6"l58O LOCATE 11,?SIFRINT "ü.(.)5" iSPE( 15) ¡'!O.22',1SgCr LOCATE 12.:5lFRIN"l ',C¡,C)6,'iSpC( 15) i "().39"l6OCr LOCATE 13,25:FRINT "LJ,ü9" tSpC( 15) i "O,15"1ó1CI LOCATE 14!?5:FRINT "O.10,,iSpCt 1S) i',O.1?"L62Ct LOCATE 15r25¡PRINT "O.12" ¡SPC( f 5) i "O,ü9,,163C) LOCATE 16.?5:pRINT ,'().16,'iSpC( 15 ) i "Cr,0á"1640 LOCATE L7 ,2l5: PRINT t'.:r=6. ?O,, ¡ SPC ( 1S ) ¡ ',ü. OS,'165(} LÜCATE 1?.16¡PRINT'.FOR LO REGULAR EL VALOR DE ESTE COEFICIENTE E5 {}.{)3''166(1 LOCATE ?OI16¡F.RINT,,AUNQUE DEPENDIENDO DEL VALOR DEL RADIO DE ENTRADA R.,1ó70 LOCATE ?1.16:PRINT "Y EL VALOR DEL ALTü O DIAi'IETRO D. SE FUEDE ELEGIR OTRO,,16S0 LOT]ATE ?3,2{I: INFUT ''DIGITE EL VALOR DEL COEFIOIENTE ==} ".OP1690 IF OF.¡.43 OR OF"l.C)3 IHEN l7(){r ELSE ITIC}17C)O LOCATE 23,?O¡PRINT CrS:6OTO tóBO171c) hjs{)(I)=üF * (t^J36(I))*? * Wfl4/zl7?(¡ 6OSUB 5O(')OT72L LOCATE 11.8 ¡INF'UT ''DESEA CONSERVAR ESTA RELACION DE FORMA CoNsTANTE EN ELRAI'IAL (S/Ni?"tA1S1722 IF A$="S" OR ffg=tt*tt THEN ZCr4=1L72A 203=ü173C) W(t31 I )=SQR(t¡l6l ( I ) *RF )174Cr t¡l(r3( I )=W(rl( I ) /Wü?( I )L747 GOSUB 57()0L743 IF ZO3=1 THEN L72O175ü GOTO L77A176tr IF ZO4=1 THEN L77OL762 GOSUF 5C¡0OL77Q IF W26=1 THEN 17811 ELSE l8(rs17Ét-r IF WClz(I)'il.37 OR WO!(I)::'.9 THEN W34=,C¡C)ü71:t¡155=W93 ¡W65(I)=1:GOTfi lBC)()L79O IF Wü2( I ))=1.37 THEN W;i4=.tl(l()89:W55=Wg2 :t¡J65( I )=2:EOTB IBOOL7g3 IF Wt"t21 I ).i=.9 THEN W34=.C¡{){}b6 :t¡SS=Wg4:t¡t65( I )=Sl$(-)tl l¡J53= . 44 : W54= , Ct254 : W56=Wg6lBC¡S J=l181ü IF SER ( J , I ) =1 THEN GOSUE 43OLt: GOTO 1B2O1812 J=J+l1813 IF Ji.h¡39 THEN IBZ(r1814 GOTO 1810182ü 6OSUB 6{){)(}142? IF 203=1 THEN L7É218?B J=l18f,t-) IF SAL(J.I¡=1 THEN 1A4O ELSE 1885184() IF I =t¡J3? THEN 1B7C)1BSC) W4ó( I )=(t¡Jl9( I )-t^J19( I+t )') /WL6i"8ó{:} G0T0 188üL87(t tÁ14á i I ) =t¡J1? ( I ) /tÁllá188(l W4g( I )=t¡146( I ) *t(roCrtl : GOTO tBBglttb J=J+l

1$47 GOIü lBlt{r188? GUSUF .J?i)üi1t]9C¡ I=I+11?{)O IF I.r¡¡39 THEN 19151910 CüTü l76tt1915 W76=119S(r CLS ¡ lr_rg={r: Z{}4=(r1?60 hJSB=I:N4S=1197O LüCAI-E 4 r?7:F,RINT,,RAtfAL SECUNDAF{Iü,,1?8C) LOCATE 6"13:INPUT "DE CUANTUS'fRAMoS 5E Cot"tFONE ESTE RAMAL ==;.,,,N21?9ü LOCATE 8'13:INPUT "DE L:IUE F'RINCIFIO DE TRAMO SE DESFRENDE ==.].,,t,W4I1991 l¡J7O=W2(1( t^J4Z )1993 LocATE 10.13¡FRINT "LA vELocIDAD EN EL RAHAL Es (f,t/sEG) ==:."iUSING "##.#*"¡t{7(r1993 IF l¡16ó=1 THEN LqqT1994 LOCATE 12.13rFRrNT "LA VELÜCIDAD REtrOHENDADA EN EL RAl"tAL ES il"{/SE6) ==.}.,';V?1995 LOCATE 14"I3¡FRINT "LA VELOCIDAD TiUE CORRESPONDE AL RAI-4AL DEEE sER LA"L996 LOCAIE 15,13IPRINT "RECOMENI]ADA EN EL CASO DE ü¡UE LA ACTUAL sEA MAYOR"Lqq-l LÜÜATE 17.13:INFUT "DI6ITE EL VALOR DE LA VELOCIDAD EN EL RAMAL (tflSEG) ==.:." "hl70?{¡(}(¡ IF t441=1 THEN ?0I()2ü1O C1=td39+N?: ü2=[¡JS9+l : GOTO ?Crg62t)?{) N$=C1 : C1=N3+N2 ¡ CZ=N.]+l20.50 CLS: J=trIo33 L0CATE 4r9 :PRINT "RAl"lAL SECUNDARIO DE $UÍíINISTRO TRAMOS No.,,tC?¡,,A,,iCl2(¡37 LücArE 6.8 :FRINT "TRAI'lo No. " isFC(B) ¡',LQNGITUD il"1),,ispc(B) i,,FLuJo DE AIRE (1,1"3/sEG ) ,'

I(t59 J2=1?04t) VARl=C3¡VARZ=C12(t+5 16* I=VARI TO VAR?2()5() LOCATE B+Jr11:FRINT I ¡trt17( I )=I?ü55 LOCATE 8+J rlg: INFUT ,,,'rlA¡4OrhJlg( I )=l¡J4O?{)6{r LOCATE B+J r SI: INFUT ,,', rht40:bJlg( I )=t¡J4O:063 J=J+l3C)64 NEXT I2ii65 J1=8+J+2 ! JF JZ=l THEN JS=J1 I J?=(r?{I55 LOCATE J3.23 ¡ FRINT Cr$1068 LOCATE J3,23: INITUT ',DESEA I"{ODIFICAR (S/N) ? ==:> ,,rA9?O7t.} IF qE,="S" Oft A$=,'s', THEN ?07S ELSE ZlZ0TC'75 LOCATE JS.?3¡F'RiNT CfSZtlg() LocATE J3.23¡INFUT "DIGITE EL No. DEL 1p,6¡46 ==.r',.vARl?ü95 IF VARl.>Cl OR VAR1.:C2 THEN 2c)8rl2{r9C) IF W41=1 THEN ?(}9??{t91 J=VARI-b139-1 :GOTO ?t}9S2L¡92 J=VARl-C?2{)95 VARZ=VARl31C){} 60T0 :045:1?O CLS¡H=ü?1rl LocATE tc¡.8:F'RINT "INFoRI'IACInN AcERCA DE coDos EN RAr"tAL stcuNDARICI. TRAMü*Ncf,."iC2i"A No.,,¡Cl:1?6 LocATE 13.2{):INFUT "tuANTüs cclDos HAy EN EsrE 64¡v¡g¡ ==.},,.1¡J73213() IF W76=1 THEN Ztf,J ELSE Zt4f,?133 W7f,=hl?B+W7I?136 IF W7?=() THEN t¡J74=l¡t?g:ÉOTO 2?3ü:14C) t¡J74=t¡138+1 tGOTü 31sf,I143 tl|75=hJ73 : t¡l7S=W7S+t¡l7I214ó IF l¡J7?=(r THEN t¡J74=l¡l75: GOTCI 3:3{l:15{l l¿'|74=lrj75+1:15;1 CLS?156 LocATE 4"15:FRINT "RAl'tAL SECUNDARI0, TRAFlos No.,,icz¡r'g No.,,¡cl?16{l LoilATE ó.i{r:FRINT "coDo No. " ¡spc(g) ¡ "TRAMü N;l;

i

?1óf, VAR:J;=hJ7 :VAR4=hI7f,t164 IF l¡ü41=1 THEN H2=C¡:GOTO 21ó6?1.65 H?=i

i:1 /(:, LtjüATE B+Hrt4rF,tiIN I J:17¿{ LüCAI-I B+Hr.]?l INF,UT ,,', rNrSEF((J.l,,l)*1?1 7ó H=H+I:T8ü NHXT J:183 Jl=8+VARf,+l:IF H¿=l THEN JJ=Jt¡Hl=otIB6 LüCATE JJ,1F:FRINT C$:19ü LoüA-rE J::.fr:INFUT "DE$EA ffoDIFICAn (s/N) ? ==.rr ,,,Ar$I19f, IF A:S="$,, OR AS="s,' THEN 2l{ió ELSü ::f,ü:1?6 LOTATE Jf,.1S:pRINT' t$3?{}(} LOCATE J3.17¡INFUT "DIGITE EL No. DEL CODO y DEL r¡g¡v¡6 ==.},,.VAR3.NT2('3 IF VARS:}hI73 OR VAR3.|W74 THEN 22OÜ2?ü4 J=VARST SER( J.lrl)=¡l22(:¡6 IF W4l=1 THEN 3?Cr8?2ü7 H=VAR3-[¡J?8-1 :GOTO I?1{¡22(¡8 H=VAR3-h174221O VAFI =VARI2213 GOTE ?16á:?3{t CLS: H={¡T333 LOCATE 1O'4¡F'RINT ''INFORMACION ACERCA DE DIFUSORES EN RAFIAL SECUNDARIO, TRAl'1OS No. " ¡C?¡ "A No. " itl"36 LOTATE 1?r?(t:INFUT "CUANTOS DIFUSORES HAv EN ESTE RAMAL ==.1 ,,,W77?238 IF W77=O THEN 2?362?4{r IF W41=1 THEN 22462143 V2(r=t¡177+N1 : V21=N1+1 ! GOTO 22503l46 V?2=V2(¡: V20=V2? +W77: V?1=V!2+1Sxstr cls:LüCATE 4"11¡F'RINT "DIFUsoREg EN RAl"lAL gEcuNDARIo, TRAt4os No.,,¡c?¡,,A No." icl2253 LOCATE 6":Cr:PRINT "DIFUSOR No. ";SpC(lCr¡ ¡,'TRAllCI No.',??56 VARS=VZ1 ! VAR4=V?{:}??57 IF W41=1 THEN H?=(r¡GOTO ?t6C¡2?58 H3=13260 FOR J=VAR3 TO VAR42263 LOCATE g+Hr?4TPRINT J2?6ó LüCATE B+Hr44: INPUT "'"N¡sAL(J"¡r¡¡=1??7(r H=H+l?373 NEXT J27.76 J1=8+VAR3+?! IF H?=1 THEN J3=J1:HT=O?28(r LOCATE J3.15:PRINT C$??83 LOCATE J3.?3: INPUT ,,DESEA T4ODIFICAR (S,/N) ? ==) ,,rAr$??86 IF AfS="S" OR AE=,'=', THEN Z?gtt ELSE ZS?(¡2?9(r LOCATE J3

" 15 ¡ F,RINT C$

2293 LOCATE J3"17:INPUT "DIIjITE EL No. DEL DIFUSBR y DEL TRAl"lO ==.:,. ,,"VARSIN:2?6 J=VAR3:SAL(J rN¡=62757 IF t¡J41=1 THEN ?7Sq?398 H=VAR3-Nl-l :GOTO ZI{)O?799 H=VAR.I-V?1I3C)O VAR4=VARJTSOT GOTü 2T6()-232C) CLS23.J() I =W3B2f,4(r h,36(I)=W7ü2;Í50 Wu1 1 I )=trl19( I )/W36( I )2360 GUSUB 5(]0ú2f,6l LOTATE I{,I8:]NPUT',DESEA CBNSERVAR ESTA RELACI0N DE F0RPIA CÜNSTANTE EN EL RAÍ'IAL (S/N)? "rA$2f,64 IF AS="s" oR Ar5="5" THEN Z(¡4=12368 Z{}J=t}I37{} Wtl?( I )=5üR(WCr1 1 I ) *RF)258(l trjrl3( I )=hJ(rl ( I ) /t¡Jc¡z( I )i.582 GOSUB 570CrIf,8.5 If: Zr13=1 THEN I3ó(-):f,?{} GüsuE 4c)ü{)24txr GOTO ?42t):41() IF Z()4=1 IHEN 2426I41I GOSUÉ 5O{)(}

r4sct Il- t¡Jir?(I)"11.1;7 ür{ bJi-i¡1I)j'.9 r-Hk.N [¡r:ii:4=.(]r-ri)/r¡t^Jss=wg3:l,ü6F(I)=1:tiCITo ?4sr:]i44(-) IF hl{:}:(ri.:=l.r'7 l'gEN l4:s4=.ü{)r:¡gg:hrss=t¡Ja}r rt¡ló5(I)=z:Go.tú 14s{r344:i IF l,{(}?( I i'i=.? T!{HN hl.f4=.(:}r:}t156 :hJSS=t¡I?4¡¡46s( I )=3:45i¡ l¡JS.li=.44: W54=. ()I54 ¡ tJF6=tdgó3458 J=I246(l IF SER(JII¡=1 THEN GOSUET 4SüC¡¡GüTO ?47$l¿46I J=J+1T4ó3 IF' J.}Cl THEN 24711:4á4 GOTO 346ü?47Ct GOSUB óOO()?472 IF Zü3=1 THEN ?412247E1 J=lI4tsCt IF $AL(J"¡ ¡=1 THEN I49{r ELSE AS3S?49O IF I=Cl THEN ?StüISCIC¡ bJ4ó( I )=(W19( I )-tA[?( I+1 ¡ ) /WLbI51(r GCITO ZSSC)2S2Cr W46( I )=W19( I )/UJt6?53O W4E(I)=W46(I) * lOrxlrl:GOTO Ab39?535 J=J+12536 IF JlCl THEN 253925f,7 COTO ?48(r?539 CCIsUE 3?OO?54Cr I=I+1?55O IF I>Cl THEN 2570?56(r GOTO 241C¡?s70 cLS258(r LocATE 1ü.?(lrINF'ur "EXISTEN orRos RAt'tALEs sEcuNDARIos (g/N) ==.., ,,rArt35?O IF AtS="S" OR Arb="5" THEN bJ41=1:W76={¡:GOl-ü 1g5{¡2óC){} REH * RESULTADüS TüTALEs *I6(t5 g¡5261O W58=t-¡162ü FOR I=1 T0 Cl26J(, 1,J58=t¡JSB+h,?7( I ):¿64C} NEXT I?65t¡ t¡J11=(¡366ü FOR I=1 TO C1?.67{, tdtl=t¡tl1+üllo8( I )2680 NEXT I?69{¡ W21=Cr?7üO FOR I=1 TU CI?71(¡ W31=N?1+t^11t1¡ ¡ ¡27Ítt-, NEXT I273(l t^|l?=(r2740 FOR I=1 1-ü C1X75{¡ hl1?=W12+taJC)9( I )2'760 NEXT Iil76L Wll=IN'r(Wlt)2-7&3 üLSi:LOCATE 1C),14¡INFUT ,,DEsEA OESERVAR LüS RESULTADOS FOR PANTALLA (S/N)tt

, Alt2764 IF Ag=,'5" OR AfS="s" THEN :765 ELSE 277Q37ó5 EüSUB 34ü{¡:77{, REI"I )T ARCHIVÜ DE ENTRADA DE DATOS ¡T

?775 CLSt7B(t LocATE 1c)r?ü¡ INpur',INTRüDUEIR Not"tErREíl79{t l"l!S=,,4!',+Ftb1795 OFEN "O",1rl*lrF2800 FRINT#l.Cl?8I() FOR I=1 TB Cl

DE ARCHIVO ==! "rFfS

?815 PR I NT#l ! Wl8 ( I ) ; WZS ( I ) i t^J?4 ( I ) ¡ t¡tt? ( I ) r t¡J19 ( I ) ; WZ(¡ ( I ) ¡ WZ7 ( I ) i t¡t5(r ( I ) ¡ WZF ( i ) i t¡JS9 (I ) ¡Wót]( I ) iW61( I ) ¡Wó?( I ) lW64( I ) ¡t¡J6.t( r )?B:i) NIXT ]28f,() FñINT#I "W11 ¡td?1 ¡ htSB¡ W1I?84C¡ CLOSE #l-?85C¡ É0TO 70rJC,.Jü{}(l REI'I * SUBRUTINA tr-NTRAna nF (,,E:l nr-rr"r^nEc r¡rññMr-A!h

f;o'iir! jir(;ATE 6.?tJrF'FtINT "vEL.üüIDADE5 f'-t*XIf{As r{Etiüf'tgNDADA5 FARA sIs-tEf,IAg,,j(:l4ir LoüATE 7 t1t:'trf:'RIt'l'l- "DE E.AJA VELCI{:IDAü il"ti'$86i,'.:1{¡5tl LUüATE ?,25tFftINT ,,üUf,Tü FñINCIF,AL ==.!,,¡VI-:i(¡áo L0UATE lrJ,25rpftINl- "DIFUsnR DE sALiDA AIHE ==.:.,,ivJJ;C)7i] RÉI'UÉN32(}O REI{ * SiUBRUTINA I"IATRIZ DE RESULTADOS *J21(] t¡J?3( I )=INT (btc¡t( I ) t1(¡üo)f,IIü W34( I )=INT ([¡JC)S( I ) frtOCx:))3?f,tl W?2( I )=INT (t¡JFl( I )*to(rü¡f,?4{r W?(r( I )=t¡J3ó( I )3?5O hJ27( I )=INT (Ut?9( I ) )336{¡327ü.5IBCt329{¡3.3Or-¡

I)SSiI{:) FRINTi)351tl FRINTI)f,5?(r FRIN"fI)f,sf,O PRINTr,354C} PRINT

hló2(I)=WlO(I551C) W65(I )=INT (WCrr1 ¡ ¡ ¡332Ü hl64iI)= INT (W4B(I))333ü RETURN34(t{} REM * SUBRUTINA AUE F,'UE'TRA341ú REM * NEf,4?O FüR I=1 TCI Clf,4.50 tL$ : PRINT ;FRINT ¡ FRINT544C) PRINT TAB{?5) "DUCTOS DE SU]'|INISTRO"3450 FRINT'346C) FR I NT TAB ( Zg ) i " TRAf'lO No. ', i I347{¡ PRINT348ü FRINT TAB(15),'Longitr_rd (m)I)349C¡ PRINT TAB( l5) "Ancho

W25( I )=td(¡6( It¡J59( I )=l¡ltl5( ItAJ6{t( I i=hl(¡7( Ita,61(I)=t¡l{}B(I

-fAB(15)"A1to

TAE ( 15) "Diametro

TAE(15)"Flurjo de

TAF( 15) "Velocidad

TAB(15)"Feso

EN F'ANTALLA EL RESULTADOS DE LOS TRAI"IÜSSUMINISTRO

Í*

I)355(r IF tAlSü( I )=(r THEN JSTO356C¡ PRINT TAB ( tS ) ,,perd . pregión Entrada ( Fa )I)557(t FRINT TAE( 1S),,perd. pregiónI)358{¡ IF W59( I )={r THEN 360O35?(¡ FRINT TAE ( 1S ) ',Ferd. FregiénL)

3ó()O IF tAJó{}( I )=C¡ THEN i6?(¡561() PRINT TAB( 15) "Ferd. F,regiónI)3ó30 FR I NT TAB ( 15 ) ', F,erd . FregiónI)363C¡ If: t^16?( I )={t THEN 3650

Dt-rc to ( Fa )

Codo (Fa)

(cm"Z).....

($)

TECLA PARA CONTINUAR ],.}":Í7r'\f.i

(mm)

(rnm)

Equivalente (mm).

Aire (M'"3/Seg)...,

(m/seg)....

( l'.9 ¡

" ¡ USING "##. #* " i hjlB (

" IUSING "####, .##" ilrJ23(

" ¡USING "####,,,##" ibJ24I

" ¡USING "#*##n,##" ihlll1

" ¡USING "##.##" lWIgq

" I USING "##. ##" ¡ W3{r 1

" ¡USING "####,. .##,, il{I7(

" iUSING "##.##" ihJFt¡(

" iUSING "###.##" itAl?5(

" tUSING "###.##,' iWSg(

" iUSING "###.##" it¡Jó{r(

" IUSING "###,##" ¡W6l (

" ;USING "###.##', iWó?(

" iUSINB "#####n.##" ¡Wó4(

" ¡USING "######+r.##" tW6I1

Te (Fa)

total Tramo (Pa)

3á4{l PRINT TAE(1S)',Recurperación de Fresión (Fa).IJ3ó5t) IF hJ64( I )=qr THEN 3é7C)36ór) FñINT TAB( 13) "Area minirna del dif usorI)f,á7ü FRINT TAE( 13 ) ',Costo de la SecciónrJ:ió8C) F'R I NT : PR I NTf,6?O FRINT TAB(1?) ',.,.ri OFRIf,IA UNA]I7CII] F'iS=INI-:.EYf$ : IF LÉN f FIB I =I-ITHtrN

5/3{¡ CLS I FRIhtT : F.RINT: pRINIf,7:ii] F'R]NT TAE{(24i''RESULTADOS TOTALES,'i,74(t PRINT;FRINT;175ü FRINI" TAB( 15) "F'erd. de Presión en el Sisterna (Fa) ,,¡USING ,,####¡ .##,,¡hjll t ' Eu

l;76ü FRINT TAB( 15) "Recurperación de presión (Fa) ,,;USING ,,####r .##,,ih,I1377tt FRINT TAE(15)"Peso Totat (i.e ) ,,¡USING ,,####,.#*1,,¡t458378() FRINT TAB( l5) "Casts Total (fF) ', ¡USING "########" .##,, It^JI2379(¡ W9?=W11-W:1f,8(l() FRINT TAF(15) "Perdida neta de presión (Fa) ,, IUSING ,,###{+r.*#,,i(¡199

f,8{)2 PRINT3BC!4 FRINT TAB(15)"A I'a perdida neta de presión hay que adicionarle el,,f,g()s PRINT TAE( 1F),,valor de la perdida de salida de aire por dif Lrsor,,,3806 FRINT TAB(15)"este valor se encLrentra en tablas de accesorios.',f,8lCI FRINT:FRINT382{I FRINT TAE(ZO)''*1q OF.RII"IA UNA TECLA FARA CBNTINUAR }}"S83{r F$=INl.EYrf ¡ IF LEN (F$)=O THEN Jgf,r)3B:i5 cLs:LocATE 1{)r15¡INFUT "DESEA oBsERvAR DE NUEVn Los REsuLTADCIs (s/N¡ 1==.}

",Als38:i6 IF AfF="s" OR AfÉ=,,s', THEN I4{,O394ü CLS:RETURN4iX¡{:) REM * SUBRUTINA UNIONES DE DUCTÜ Í4ü1Ct CLS4{t15 LOCATE 2"2lFRINT ,'TRAI'IO No.', i f4t)2ü LOCATE 4,?4IFRINT ''TIFOS DE UNIONES DE DUCTO''4{iS{} LüCATE 6I29:FRINT ',RAMALES DE DUCTü"4Ü4(r LOTATE €.29: PRINT ',1 . ANGULO A l5o "4{)5t) LOCATE 9.29¡FRINT ,,1. ANGULO A Süo',4O60 LOCATE Iü'Z9:FRINT "3, ANCULü A 49o,,4TI7{' LOI]ATE 11I?9:FRINT "4. ANGULO A 9C,O"4{}8{t LOCATE 13"?S:INFUT ,,SÉLECCIüNE OFCION ==.> ,,rOF4{)9{J IF Or}j.4 THEN 41ü(¡ ELSE 4tlcr4T{¡O LOCATE 13

" 44: PRINT Cr$ I GOTO 4OB{J

411(r ON üF, GOTü 4tAú.4tSO " 414(¡.4I St¡

4t?O FAC =,1 : GOTO 4tárl413ü FAC =.! : GOTO 416()414r¡ FAC =.?5 ¡ GOTO 4tó{r4L5ü FAC =!416C1 t^,Fl( I )=( (t.s*(Wc¡?( I )*w():i( I ) )...6?s)/(Wot( r )+Wcls( I ) )*.?s)417Ü W44( I )=FAtr*t¡tsl( I ) / .t241Bt¡ t¡145=1419(r RETURN43(¡(r nEH * SUBRUTINA DE TODOS t4;OT CLS43{15 LüCATE lrl:PRINT ,'TRAl"lO No,,,¡ I431(r LI]CATE B. 31 : FR I NT ', T I pOS DE CODOS,,4.12(¡ LúCATE IC).Z8¡FRINT "1. CODO DE RADIO '4.13t) LüCATE 11I?B:PRINT "I. CODU EN CORTE,,4.:i4{¡ LOCATE 13"?ó: INPUT ''SELECCIüNE OF,CI6¡¡¡ ==.}. ,,,OF,435tt IF üPi.2 THEN 4f,6q ELSE 4JZA4.56(¡ LOCATE 9,44¡FRINT CrB¡6OTCI 4I4Cr4:\7r:t ON OF GOT. 4390,479ú4ri9() CLS4f,93 LOCATE 2rt:FRINT ',TRAMO No.', ¡ I44ü{} LüUATE 4.SOTFRINT ,,üODO DE ñADIO ,,

441ü LOCATE 5"29rPRINT "VALOR R/D = 1.?S,,44i{) LOUATE 6t27:PRINT',hllD =" ¡RFtSpC(7) ¡,,FACTOR,,443(r LOCATÉ Z.?7:F,RINT rr*------4440 LIJCATE g,?7:pRIN'I "I.LX:I 7.e,,445{r LüCATE 10,27:PRINT "1.2F Z.(.r,,44ó{) LOüATE 11,?7IFRINT ,,1.S{¡ 7 rt,,

45.1ü LüCATE 1? " lS: INF,UT "ENCONTRü EL VALüR ( EilN ) ,, . ArF4540 rF Aft=,'s,, oR ftg=rr=rr THEN 4550 ELSE 45?Cr

455(I LOTJATE 19.I?:INFUT "DIGITE EL VALOR ¡]EL FACTOR ==} ".FCl456{¡ IF FC1:}8 üR FC1.(7 THEN 4S7{¡4565 GüTo 477ü457(r LOCATE t?, ZI: F,RINT CrS: GüTO 4FF{r4590 LOCATE 19"2O:FRINT "OFRII'IA UNA TECLA PARA CONTINUAR LA LISTA"460(¡ F$=INIiEY$: IF LEN(Fi$)=(¡ THEN 46{¡C¡4610 CLs4ó15 LOCATE Z"Z:FRINT ,'TRAt'lO No. "; I4ó?{¡ LOCATE 4,SQ:PRINT "CODO DE RADIü ''463C) LOCATE 5129:FRINT ,,VALOR R/D = 1.?S',464ü LOCATÉ 6r77¡FRINT,,lallD =,'¡RFlSpC(S) ¡,'FACTOR',465(r LOCATE '7 rI'7:pRINT "------- -*----,,

/.1.48i) LOCAI-E f.i,?7:F,RINT,'t.r-)i]4ii.i:.-: . i, :A-[E 14.17:pRINl ,':: ,Il45tlil LüüATE 15.27:FRIN]" "?.50451C) LüUATI L6t27:F,RINT "I.7545?0 LOCATE L7 t?Z:FRINT ',J.üO

'a er¡

B. (:) "8.{¡"8. ü"E}.{}"

8. 5"B. 5"9.{} "?.{}"9.5"

10. ü,,lo.5"11.O"DEL FACTOR ==.¡ ',lFCl

466o LOCATE 9 r2T tPRINT "J.?s467ú LOCATE 1().27IFRINT "S.SC¡4ógc) LocATE 11r27¡FRINT "3.75469(r LOCATE L2 r77: PRINT ',4, C)O47üO LOCATE L3,27¡pRINT ',4.As471(¡ LOCATE L4rA7¡FRINT ',4.FO47'¿ú LOüATE 15.27¡PRINT ,'4.754-/:5t, LOCATE 16127:FRINT "F.C)ü474lo LOCATE 18,20: INFUT ',DI6ITE EL VALOR475{r IF Fcli.ll THEN 47É'(t ELSE 477C.476tt LOCATE 18.47:PRINT C:S:GOTO 474A477lt IF I=1 THEN 1443(I)=hJC)3(I)fFC1:GOTü 494A478Ü t¡J4.5( I )=WOS( I-1 ) X(.8tFCI :GOTO 494C1479() CLS4753 LOCATE 2. ?: PRINT ,'TRAl"lO No, " i f48C¡{:} LOCATE 5"3?:PRINT ',CODO EN CORTE"481C¡ LOCATE 7 r44:FRINT ,,|¡llD = " iRF4820 LüüATE 8,22:PRINT "t,, GRADog t.o r.s ?.ü r.o 4.o s.{:),,4831-) LOCATE g rZZ¡FRINT,'-------484{t LüüATE 10. ZZ: PRINT ,, AO . c}7 .OT .*.t . r)6485() LOCATE 11"z?:PRINT ', 3() .16 ,lF .15 .13486{, LOCATE 12,22IFRINT " 45 .S4 .SS .S1 .ZA487Ct LOCATE l3.??;PRINT " 6C) . SS . FZ .4g .46489{J LüCATE L4 "22 ¡ PRINT ,, 75 .81 .ZZ .7S .67489() LOCATE 16"22:INPUT ',DI6ITE EL VALOR DEL FACTOR ==l49üO IF FCl)..81 THEN 4910 ELSE 4920491C) LOCATE 16 . 53 r FR I NT Crü : GOTO 4B9C)4?2O IF I=1 THEN tAt43(I)=trtcr3(I)*FC1 /.1-rZ;GOTO 4?411493t1 W4f, ( I )=t^,()3( I-1 ) *.g*FCt / .(tz494{t CL5¡RETURN5{)(}(} REf'l * SUERUTINA RELACIONES DE FORt,tA"S(tl¡t 6¡*5C)15 LUCATE ?.?:FRINT "TRAMO Ns, ==i." i I5()2C¡ LOTATE 4.3O:PRINT "RELACICINES DE FOR|"{A"5ü30 LOCATE 6,3t¡: FRINT ,,ALTü ANCHO,'5üS5 LOCATE 7

" 3L-l: pRINT 'r------_ ____,,

5{)4ü LOCATE B"?7¡PRINT "1). 1.0(:} ¡ f .(x_}'5{}50 LOCATE 9r?7 ¡FRINT ,'?}. t.üC} : I.ZF,,5(ió{¡ LOUATE 1ü.?7:FRINT ,'3). 1.C)0 : 1.FC},,5ü7{) LOCATE 11.27¡PRINT ,'4). 1.O{r : 1.7S,,5()Bü LOCATE LZtZT:FRINT ',5). l.Crr_¡ ! :.(:tü,,5O9ü LOCATE 13,27: pRINT ',6 ) , 1 . {rrt : t. ?S,,51r:){} LOCATE t4,27:FRINT ,,7). 1.{}{} : ?.bCr,,511ü LüCATE 15,?7:FRINT ,'g). 1.c)o : 2.75"51?ü LüCATE 16 ..3.7:FRINT "9). 1.CrO : 5,r-rtr,,513* LCItATE 18,21r INFUT "ENCONTRn I A r'¡tr,rrñhr nFcF^n^ 1c: /hr\ --a , A*

,06 .()5". 13 .12".27 .?6".43 .41 ".63 .61 ',

".FCI

5150 Lü{:ATE 18,18:FRINT C9516{} LüCAT'H 18.t1¡ INF,U]- ',DIGIl"E HL NUf iEl{ü Dt: LA üf_,ü]ON ==] ,,nOF517ü It-. üp:¡9 oR oF,.1 I"HEN 518{¡ ELSE 51?ü518(j LüCA]-E 19.19:F,FtINt ü$:[iO]'O 51áC)51g(r ON OF-, GüTO 5?{rü | 5?1C}. 52tcr. 523Cr, 524{l , 5?5{r

" 5160

" 5?7Ol, 528(l5:{}{) RF=1, I GOTü Sá?ü

5?1{r RF=l,?5:GOTO 56205:IO FiF=l.5rGOTO 56?{r5?3() RF=1 , 75 ¡ GüTO 56ZCr5?4{r RF=l I GOTO 562(r5?50 RF=2.25¡GOTO SóIO5t6(r RF=2. 5: GgTü 5ó2{¡5?7() RF=Z. 75 r GOTO 562(152BC) FF=SrGOTO 56:05?9O LOCATE 18,ZCr;PRINT ,'OF,RIMA UNA TECLA FARA CONTINUAR LA LISTA,,s3tlcr FÍü=INHEY$¡ IF LEN(Fr5)=(r THEN SSL)O5;i1{¡ CLS5315 LOCATE 2.?¡FRINT53?() LüCATE 4,30:FRINT5330 LüCATE 6.30:PRINT5335 LOCATE 7"3{¡:PRINT

" TRAI'IO No. " i J,'RELACIONES DE FORI'IA''''ALTO ANCHO''

534tr LCICATE A|?7¡FRINT "lC)). 1,C)O5350 LOCATE I ,ZZ:PRINT ,'ll ) , 1.üC)Sf,á(r LUüATE Lú,27:PRINT "14). t.(!(t537t1 LOCATE LL,?T:FRINT ',lJ). 1.(lC¡

. l.(){}, 1.C¡O. 1,OCr

l 3.15": 3.5(1 ": 3.75": 4.üO"¡ 4,25": 4. 5O"

= 4.73": 5.üü"

5.190 LOCATE L?t27:PRINT "14539{r LBCATE 13,27:FRINT',ls54{){) LOCATE L4"27:PRINT',16541ú LOUATE 15r27¡FRINT "L7]'. t.C)ü54:() LOCATE 16.27: FRINT ',18 ) . OTRA NO INCLUIDA,,543(l LocATE 18,21¡INFUT "DIGITE EL NUl"lERo DE LA opcloN ==),'roF544() IF OP.,I{} gp OFj.1B THEN S4F(¡ ELSE 546ü545r] LT]CATE 18,19¡FRINT Cr$IGOTü 543054á(r IF OF=IO THEN RF=3.25:GOTCI 5ó?O547C) I F OP=II THEN RF=J. $: GOTO Só?U549ü IF OF=II THEN RF=S.73:GOTO 3620549rJ IF 0P=13 THEN RF=4 ¡6OTO Sótó55{){) IF OF=14 ]HEN RF=4.?S¡GOTO S6tCr551ü IF OP=15 THEN RF=4.S:GüTO 562055?() IF OP=16 THEN RF=4.7S:GATü i62(r553ó IF OP=17 THEN RF=i ¡GOTO F6?ü554{) OF=185550 CLS5555 LOüATE 2"?:PRINT' ,'TRAI'IO No. "; I55óü LüCATE 8.36:PRINT "euE RELACI0N DE FoRt'tA DESEA',5570 LOCATE 10, ?6: FFINT "ALTO ANCHO,,558O LOCATE 11"36¡INFUT " l.C)O ,,,RF559{) IF RF:r.s OR RF.tl THEN 5600 ELSE 562ü5óO(¡ üLS:LOCATE IS,IO:PRINT ''LA RELACION DE FORMA NO DEETE FASAR DE 5"5ó1{) FUR X=l Tü SC}C)C)¡NEXT X:GOTO SütO5620 CLSTRETURN57ü{¡ REM * SUBRUTINA IIUE VERIFICA LAS DII{ENSIONES571ü tLS¡ LOCATE ó,S4¡PRINT ,,TRAMO No. " i I57?{) LOCATE 8 r?7:F,RINT ',DIMENSIONES DE LA SECCIüN,,57¿i(r LOCAI-E 1r)r?7:FRiNT ',ANCHO (mm) ALTO (mm),,574{) Z{r1=¡¡'¡1 (ht(i?( I ) tt{rCrC¡)575(l Z0?=¡¡¡T (t^JO3( I )81üü{¡)57óO LüCATE 1?"?B:FRINT USINE "####r.##,, ¡Z()1762 LüCATE t? r 4f,: FRINT USING ,,####

n . *#,' i Zr_r:5'/-/{-, LocATE 14,:t:F'RINT "EsrAs DIt'tHNsIoNEs soN LAs AFRoFIADA$ DE,,579ú L0üATE 15.2r: INtsur "AcuERDo AL EspACIn DISP0NIBLE (s/N)? ,,rAs579{} IF Att="s,' üF Als="s" THEN sts?(} ELSE 5gü{}SBoc¡ LUüATE L7t2? IF'RINT "EsüoJA NUEV0 FAcrüR DE FLRMA,,581() FüFi X=1 T0 .i{}{)(:):NEXT X¡ZOI=158:O CLS: FIH IURN

óQil5 üL5: Zt-tJ=¡¡d¡tiir: . ., )=t{l$i I )+t¡14:I( I i+W44( I )ó(ldlil Il- I=L fHEf,l 619(-,ó{)}ü IFr hl45=1 THEN 619{róu4f) r(Jl( I )=(N19( I ) *1119.?)-'.61ói:i:i(:l'I{t1 1 I )=(W?il( I-1. ) i f.19ó. Bó6i)55 f1{}( I )=Tt-r:( I }ót:)áü 1"0f, ( I )=t¡J49( I ) *J.IB1ó{)'/t} -fO4( I )=(T{t:i( I )/Tü1( I ) )*(.C¡7f,?t}éüSi) "ftls( I )=T10( I )-5ó{r90 rt.)6( I i=( (Tc}s( I ) )*?.43)*(T()4( I ) )ólc)u T(t71 I )=( T(r5( I )*'?)+Ti)ó( I )61liJ 1-()8( I )=T()Z( I )-( T(¡e( I )-.?)ó1?{r IF T{tg1I )i=l(:}ix¡ THEN 614(r6t3O l-1(¡( I )=l-{¡5( I ):GUTO 6(}8Cró140 Tü9( I )=fr15i I ) /1?ó.96615ü htsó(Ii=T()?(Ió16C) l¡Jül ( I )=l¡11?( i ) /W36( I )ó170 N(12( I )=5üll1(t{pt 1 I ) frFF)6180 hl(t31 I )=(N(¡1 ( I ) /WCt?( I ) )6185 6OSUF 57O{r618ó IF.' Z{r3=1 THEN RETURNó19(r l¡151( I )= (1.3*( (l^l{}2( i )frt^Jor( I ) )''.62s))/ ((t^lc}z( I )+t¡J{)3( I ) )-..2s)óZC)O W5i)( I )=(2tt¡tü2( I )+?*t¡J03( I ) )ó21C¡ W5f, ( J ¡=1t{(r4fW. 6( i ) ¡ttA¡Fl ( I ) ) /WIsó?12 IF td2ó=1 THEN 621f, ELSE ó:?r)ó?15 IF l¿JfJS(I)-il.37 AND t^J{}Z(I).i.9 THEN t¡ür4=.{}{}ü7r:t¡ts5=tdgs ¡w65(I)=1¡Gorü óllóá314 IF W{)?( i ) }=1..57 THEN l¡tf,4=.O{}ü99:WSF=Wgt :Wó5( I )=I:GOTO 6?16á:15 IF W02( I )"i=.9 THEN frl34=.Cti){)56 :t¡lS5=t¡lg4:W6F( I )=J6t1ó [¡153= , 44 ¡ [d54= , t]254 I hJ56=W9663tO F1=SGlFl ( t¡,14 )ó25{r F:( I )=(t¡t15,¡(3.7*WSt ( I ) ) )+(t. 51/ (t¡tSS( I ) frF1) )ó24O FI(I)= -2 | LO{5(F2(I}l/Z.3O?FAS1#ó25{r F4( I )=F3( I )''?ó26O Fs( I )=1/F4( I )ó?7(i F¿( I )=F5( I )-(f:1".1)628{r F'7 (I}=AB5(F6( I } )6?9(r IF F7 ( I ) <:=. ()()(:¡1 THEN 631O63CtO F1=5QR(F5( I ) ) :GOTü 6A30651{) Fr(l)=F5(I)63?(r hlüó( I )=(hlo4*FF(I )*(hl36(I ) )-2 * h|lB( I ) )/(l,lst(I )*z)ó3f,{} t^l(¡S( I )=(wü4*FFt r)*(l¡136( I ) )"? * t¡t4f,(I) )/(taJFt( I)t(z)ó34ü W{}7(I)=FAC * (tll36(I))"'2 * WCt4/z6550 W(tgl I )=WCr6( I )+t¡l0s( I )+WO7( I )+WFO( I )ó;6tl IF I=1 THEN ó40C)ó37{l IF W45=l THEN 639{}á3tCr WIü( I )=(.8*WO4*(Wf,ó( I-1)..21/I)- r.S *t^J(¡4*(W36( I )*Z)/Z) I GOTO á4úO6.5?C¡ WIC¡( I )=(.8*t4()4r(W36(W42-1 ')*'2)/2)-(.8*t¡l04*( (W7Cr¡ -'2') /?) :[¡J4S=C)!FAC={}64C¡() W29( I )=W;it)( I ) tNlB( I ) tht37*WI4ó41{) IF h?á=1 THEN 642C¡ ELSE 644(:t64?f) W:?( I )=[d3(¡( I ) rWl8( I )*t¡J53*W54643C) W??( I )=W29( I644r:t Wü?( I )=t¡r3f-t( I

+h152 ( I )

*h|1g( r ) *N55á45C) IF W26=1 THEN 646ü ELSE 6490á46C¡ N57( I )=WIt)( I ) *tÁ¡l8( I ) frtrJ56647{t tAJr)g( I )=t¡JO91 ¡ ¡+Ut57( I )648() CLS¡RETURN7O(:X] CLS: END

f¡f{EXü i" üIf¡üRÉlf1r] üE fjt LtJü üuijTüs DE suHIf,lIS-rRü

"RINCIF,IO

FRESENTACION DEL PROGRAI'4A

INTRODUCCION: INFOFMACION GENERAL

E DISPONE DE LA INFORMACIcot"tFLETAr FARA INICIAR EL

ESO DE CALCULO.

COI"IPLETE LASOLICITADA YDE NUEVO

INFORMACIBNEI'4PIECE DE

.-1...

i3,D II"IENSI ONAI,IIENTO DEVARIAFLES UTILIZADAS

VISCCISIDAD DEL AIREt^,35 = 1,8 x E-F

FACTCIR DE FRICCION INICIALtal14 = c),crog

'DENSIDAD DEL AIRE A CONDICIONESIDEALEST DENS = 1.?O4

DETERHINACIONACONDITIONAR

DEL LU6AR A

,'.1 )

VELDC I DADESSUI"IINISTRO

RECOFIENDADAS DEY SALIDA F'OR DIFUSOR

AS I6NACI ONSUNINiSTRO

DE LA VELOCIDAD DEY SALIDA POR DIFUSOR

ASIGNACION DEL FACTBR DE CORRECCIONDE DENSIDAD FOR TEMPERATURA AI'4EIENTE

ASIENACION DEL FACTOR DEDE DENSIDAD POR ALTITUDNIVEL DEL F,IAR

CORRECC I ONSOBRE EL

MULTIF'LIDACION DE LOS FACTORESDE CORRECCION

DETERMINACION DE LA LONGITUD YVOLUMEN DE AIRE PARA CADATRAMO DEL RAFIAL FRINCIFAL

DETERIIINACION DEL NUMERO DECODOS Y ASIGNAR EN EL TRAI'IÜCORRESPOND I ENTE

DETERMINACION DEL NU]"IERO DEDIFUSORES DE SALIDA DE AIREY ASIGNAR EN EL TRAT4O,

AREA =SECC I ON

VOLUI'IEN DE AIRE

DETERMINACION DEL FACTOR DEF.ERDIDA DE PRESION PBR ENTRADAAL S i STEI'1A DE DUCTOS

PERD IDAENTRADA

FACTOR x ( VELOtr I DAD ) .^? :r [¡l(r4

SUERUTINA RELACION DE FORT4A

ANcHo = \/AR-EA -yi

nELn-óTdSECCION V

i'l I

i

ALTOSECCIÜN

= AREA SECCION

ANCHO SECCION

5UBRUTINA DIMENSIBNES APRÜFIADAS

/'\la\---1 L )\_-./ o

AS I6NAR CAL I E{RE , ESFESOR , CCISTO

)

ODDS ENL TRAI1N

SUBRUTINA CBDCIS

- | nH'ru

-/ I

\--'- i

).- ' -- --JSUBRUTINA PROCESO

DIFUSORES EN CALCULO DELD I FUSCIR

SUBRUTINA RELACICIN DE FORI"IA

,,\Ui

VELOCIDAD EN EL INICIO DEL RAMAL

!

I

I

--I-

TERMINACION DEL NUI"'IERO DETRAT,IOS DEL RAMAL SECUNDARIO

DETERT'IINACION DEL No. DEL TRAMODEL trUAL SE DESPRENDE EL RAI"IAL

DETERMINACION DEVOLUMEN DE AIREDEL RAT4AL

LA LONCITUD YPARA CADA TRAPIO

DETERT,IINACION DEL NUI"IEROCODOS Y ASIGNAR EN TRAI'IOCORRESPONDI ENTE

DETERPIINACION DEL No, DEDIFUSCIRES DE SALIDA DE A]RE YASIGNAR EN TRAI'IO CORRESFONDIENTE

= VOLUT4EN DE AIRE

VELOCIDAD ASICNADA

)

'l

I

{zr-rs = t>---___--___

NL) .-I

iI SUBRUTINA UNIONES DE DUCTO

I

AL

ASIGNAR CALIFRE EápEsoR, cosrol

:

I-iI

f

SUBRUTINA RELACION DE FORMA

AZTOSECC i ON

ANCHO SECCION

W?6=1

HAY CODOS EN SUBRUTINA CODOS

SUBRUTINA F'ROCESO

ZO3=1

AY DIFUSORESEN EL TRAI"IO

CALCULO DEL AREA

SUBRUTINA RESULTADOS

[=I+1

SUEIRUTINA RELACION DE FORMA

HAY OTROSñAI"IALES

SECUNDARI

l=1-CI

W5E = W58 + hJ?7(i)

| ruExrF

fI

i

I

I

I-1-Cl'I

I

i

'¡,t'\_---,

SUBRUTINA OUE MUE5TRARESULTADOS

j

i z--\r\

.\J

I'IFINIr-l

SUBFUTINA PROCESO

t¡r4?( I ) = [AtlB( I )+t¡t43( I )+tAt44( I )

i,\ )

\-,'

N()i

Tü?(I) = (ta¡3t:)(I-t) ¡r 1?6,86)

T1t:l ( I ) Trl?( i )

TO3(I) = tJ49(I) >r 3,?81

TO4(I) = (T0f,(I)/T(,1(I)) x 0.OZSqz

TO8(I) { IOOC) TlCt(I) = TQ5(I)

Tu9( i ) = TC)5( fJ /Lqb.A6

,

I

I

)

I

I

T

I l¡136(i) = T(rg(I) |

I

i

J

I W()1( I) = l¡tt?(I)/W36(f-

€

t

I

I hlt-tf,(¡) = t'lc¡t(I)/WOA(I) |

W51(i) = 1.3 (WOZ(I) x t¡lo3(I)).^O,6ts

(t^Joz(I) + t^JoS(I) ).*O.25

W3(l(i) - 2 x W(rZ(I) + ? x WO.l(I)

\r )

t^lf,f,(I) = (t^Jr14 lr Wf,6(I) x W51(I)

Wf,5

iI

,{t

I Fl =,\/ W14 |

F7(I) = ABS (F6(I))

W(t411¡ = [^J()4 x FF(I) x (l¡136(I)''.1) x WlB(I)

F2(I) = hl13 + 2,51

5.7 x W51(i) t^l3S(I) x Fl

F3(I)=-2Lü6(F?(I))

F7(L) ,: = ü.ó(:tOI Fl = Fs(I)

FF(I) = F5(I)

F4(l) = F.l(I)"2i

i

r_lI rstrl = rzr+ti¡ -------_l

W51(I) x 2

n)I

I

I

Wr-)S(I) = WO4 )r FF(I) x (W36(I)''2) x tÁJ43(I)

t¡151(I) x 2

W()8(I) = WO6(I) + WCrS(I) + WO7(I) + t¡tb0(I)

WC¡T(I) = FAC x (W3ó(I)"'2) x hl04

W45=1

W29(i) = WSO(I) >r hl18(I) x W37 x t¡J34

WIO( I )=r_r.E ( l¡J36 ( l^J4?-l )'^2 w7Q^2)

t^l?6 = I

W5?(I) = W3(,(I) x Wl8(I) x W5S x WS4

l

----.'9

I

I

i

I

I

I

I

I

--r r¡\rl

"---/

hl?9(I) = t¡13?(I) + W52(I)

It

I woetrl = hJ30(r) x NrB(r) ;-wss-_l

W57(I) = WSO(I) x WlE(I) x W56

wr-rq(I) = l¡Jo9(I) + w57(I)

SUBRUTINA UNIONES DE DUCTO

SELECCION DEL VALOR DEL ANGULODE DESPRENDIMIENTO DEL RAI,IAL

ASIGNACION DELANEULO DADO

FACTOR PARA EL

= 1,f, (WCtZl¡¡ x WO3(I))"(r,6?5

(tll03( I ) + WOf,( I ) )''0.25

I l¡144(I) = FAC x t^J51(I) ,/ O,02

SUBRUTINA CODOS

SELECCION DELTIFO DE CODO

CODO EN CORTE

ASIGNAtrION DEL FACTCIRDE ACUERDO AL VALORDE RELACIEN DE FORI-,IA

CODO DE RADIO

ASIGNACION DEL FACTORDE ACUERDO AL VALORDE RELACION DE FORIIA

hl4f,(i) = t¡l()S(i) x FCl h,l43 = t¡1c,3(I) x FCl

SUBRUTINA RELACIOFI

IK--,---.-

SELECCION DE LA OPCION DEACUERDO AL ESPACIO DISPONiELE

OP=18

DE FORMA

DETERI.IINE LA OFCION PARAEL CASO EN FARTICULAR

PANTALLAZO DE AVIStr

PANTALLAZO DE AVISO

AfltXn :;. LISl-AIlü FliüURrqf'14 [iUL:-fü$ íjE Fttil-tlFtNü

":|

4567III r_,

11131314151óL'/2{¡?1?3?s

t¡

REf"I * ÜISEí.iTJ DE DUCTOS DÉ RETNRNO DE AIFrH AÜNND]üiONADO *REI'I * Í-'RüYE{:Tü DE GRADü : INGENIERIA |,|ÉCANI{]A xREI'I * ELAH0RADü PUR : ücrAVIo VILLHGA$ orERo fREM * CALI, NOVIEÍ"IFRE DE 198S TftEt't t( * * * )|r * * * * * * * * * * t * * * * * * * * * * * * * ¡fi

REf"l * PRESENTACION EN FAN'TALLA rCLS ¡ l.:EY üFF: GOTü 2O

LüCATE 5"?SrPRINT "uNIVEñSIDAD AUToNoFtA DE occlDENTE"LOTATE I,J3:FRINT "PROYECTO DE GRADO,'LocATE 11.I::FRINT "DIsEí-io DE DUCTos DE RET0RN0 DE r¡

LUCATE 1Zr?2:PRINT " AIRE ACONDICIONAD0 r'

LocATE 15.:5:PRINT "ELAF0RAD0 FoR r ocrAVIo VILLEGA$ orERo,,LocATE 18"37:PRINT "FAGULTAD DE INGENIERIA t''tEcANICA',LOCATE 21r3();PRINT "CALI" NOVIEMFRE DE 1988"FOR l= I TO 1i5C¡üO | ¡ NEXT X; CLsREI"I fr INTRODUCCIEN AL F,ROGRAI.IA ILOCATE 7 t?e¡pRINT',INTRCIDUCCION AL PRüGRAI{A,'LOEATE 9" 11:PRINT "El principio sobre el cural se basa el diEeño de durctos,'LocAtE l(lr 11:FRINT "de retornor €E tornar cclmo constantes lag velocidades

?4 LüCATE 1lr11lPRINl','entrada por rejilla y en Ios ramalesn tanto principal2526L7.ctst

293Cr

f,Iar3A

LOCATE 1?.111F'RINT "como secundario. pera determiner la perdida de carga er.¡,,LüUATE 13.11IFRINT "1a succión deI ventiIador.,,LüüATE ló':?:FRINT "..*i oPRIf4A UNA TECLA PARA C0NTINUAR ,l:1"f]l$ = INKEYf$:IF LEN (PIü)=ü THEN ?gCLSLüCATE 7t?e:FRINT "OFERATION DEL FRO6RAI'|A"LocATE ?.11 ¡PRINT "EI progrerna esta diseñado para que pueda calcurlar y gurard

LüüATE 1ü.11:FRINT "en mernoria los datos referentes a tramos de dutc to " princ i

"y secLrndariosr cLtyo núrrnero no Eea rnayor a cuarenta. ""Lcrs datos requeridos inicialmenter pare poder iniciar"proceso de cálcurlo. deben egtar determinadoe previamen

pa1"3'5 LüCATE 11.11:FRINTj;4 LOCATE 12.11rFRINTgI "

35 LOCATE 13"11:FRINTte, "36 LOCATE 14.11;FRINT "para evitar los problernas de información errada v resnltadog ":i7 LüCATE ISr lL:FRINT "equivocados. ,,

f,8 LüCATE L7I??¡FRINI' "',... 0FRIMA UNA TECLA FARA E0NTINUAR j>,,39 PtF= I Nl;EYfF : I F LEN ( FrS ) =(¡ THÉN 194{t g¡54L LOüATE 7'IBIF.RINT ,'INFORMACION ACERCA DE LA RELACI0N DE FoRt"IA''4? LÜCATE 9r Il IPRINT "La relación de f orma es la relación qLre eliiste entre el43 LOTATE 1{}r 11:FRINT "ár¡cho de la Eección y el al to de la sección. Esta relaciónt'44 LocATE 11.11¡FRINT "debe ser ro más curadrada posible" osea l.:1.',45 LüCAÍE 13'11:FRINT "La relación de forma depende del espacio disponible. El"4ó LüCATH 13.11:PRINT "ancho siempre será rnayor qLre el alto y esta relación dÉ"47 LocATt 14.11:FRINT "forrna no debe'de ser rnayor de cincor osea 1:5.,'48 L0üATE 16.21IFRINT "..r. opRIt4A UNA TECLA PARA C0NTINUAR .>;."49 F'tt= I Nt.EYrt : I F LEN ( pr$ i =(¡ THEN 495ü tLS51 LocATE 7|?ü:FRINT "INF0RMACI0N AcERcA DE UNIONES DE DUCT0"5? LllüATE ?'8 IFRINT "Los rarnales securndarios ernpalrnan con el ramáI principal por medio. "sf, L-üCATE 1r-)¡8 ¡F'RINT "de una utniún o te. Taleg urniones o desprendimientos forman Ltn "54 L-0CATE 11,8 ¡FRINT "annt¡'l n rñn s] r5ñil nr.inrin-r. --!-

lrl:i llli:l\l!:: itnS :F'F{l.NT "c{f,nocer- el anqur}u f'ornrada pará dar Lrn factt:r Io rnérE.cer-cátltlI56 LüüATI lf,.8 :F'RIN-l- "posible al real " [JL¡gervar procedimiento y f igurra de 1

a f(f,rmat'FZ LOCA1-ü 14.t :F'RINT "de enutmerar los rarnales secnndarios y el FarnaI principal.

5A LüüATI 17.I1:FRIN]' ",..'. üFRII4A UNA TECI-A FARA CONTINUAR l']"59 F,IS=INI.IEYfS: IF LEN (FIS)=ü THEN 59Crt-r üLSiáL LüüATE ó.35:PRINT "INFER|IACIüN ACERCA DE CCIDOS"ál LüCAIE 8"11¡FRINT "Hay dos tipos de codos: de radie y en corte. Los codos de"ó3 LOCATE 9ollIFRINT "radio tienen Lln valar recomendado de R/D = 1.?5. donde R e- tl:5

64 LüCATE IC¡'II¡F'RINT "el radio forrnado por eI codo y D es la alturra de la gección. "65 LOCATE 11.11:FRINT "Tener en cutenta eI angurlo f orrnado poF el codo de radia

ytt66 LOCATE 12,11:PRINT "Ia relaciún de forma,"á7 LOCATE 13.11:PRINT "Para log codog en corte conociendo la relaciún de formay"

óB LüCATE 14.11:FRINT "el angLtlo de corter e€ da el valor del factor,"6S LüCAfE L7,?LrFRINT ",',.. UPRIT'IA UNA TECLA PARA CONTINUAR:i.I"7{-) Pg=lNt:Ey$: IF LEN (prt}=tr IHEN 7ü7L CLs8{r ¡g¡;41É 4,I5:FRINT "ANTES DE COMENZAF EL FROCESO DE TALCULO DEFE DE"85 LüCATE 5.15:FRINT "TENERSE EN CUENTA LA SIGUIENTE INFORT4ACION : "g6 LOCATÉ 7"IS:FRINT "fr IDENTIFICACION DE LOS TRAf"lOg FRINCIFALES Y SECUNDARIOS X

8? LOCATE E¡"ISIPFIINT "* RUTA FOll DONDE SE DESEA FASAR EL SISTE||A DE DUC-fOS *

9{) LüCATE 9,,15:FF{INT "* IDENTIFICACION DEL SISTEI4A DE AIRE *

?? LUCATE 1ü,IS:FRINT "* TIFO DE LUGAR AUE DESEA ACüNDICIONAR*"95 LOüATE 1I""15:F,RINT ''* VOLUI"IEN DE AIRE RETIUERIDO EN CADA TRAMO DE DUCTT]*"

11(I ¡g66TE 1:"15:FRINT',* I'IATERIAL F'ARA LA CONSTRUCCION DE LOS DUTTOS*rt

1?{' LüüATE 14"15¡INFUT.,SE TIENE TODA LA INFÜRMACION SOLICITADA (S/N} ? '',A91;1ü Il- At5="5" OR AfF="s" THEN 15O ELSE 14014I) LOCATE.14.15:FRINT,,COI"IPLEI.E LA INFORMACION SOLICITADA V EI"IPIECE DE NUEVO''145 FUR X=l 1-O 3OüO:NEXT XTGOTO 7C)üt)liit} 6g¡1 * DII"IENSIONAMIENTO DE LAs VARIABLES )Í

160 CLS17(j DIt',1 W01(4Cr¡ "W(t2140) rl.l(r314Cr) rWOS(4(¡) ¡Wüó(4C'lAO DIf4 W17(4O) rt^JlB(4ü) ¡W19(4(r) rt¡l2()(4ü) rW2:(4t]

, t^l{}7 ( 4ü ¡ rWCIB ( 4(r ¡'' WCr9 ( 4tr )

.ht23(40) rhl24(+tr19O DItl t^J:s(4{)) f W"7(4O) rtÁt:?(4(r) rW3()(4{r) rWSJ(4ü . hl36 ( 4(t ¡ "W43

( 4O ) r t¡144 ( 4Ct )2{r{} IlIf"t t^J4ó(4ü},t¡J49(4rt) rN51 (4O) rW52(4C¡) rW57(40 .sAL ( 4ü ) ,, SÉR ( 40,4O ) ! N4g ( 4ü )?1r1 p1H W59(4{r¡ nht60(4(l} rtA'61(4Cr) "t^162(4t)) rWá3(4Ct ,t¡¡Bl(4(¡) rF?(40)?3O DIf'l F3(4r:r)''F4(4(]) nF5(4(,) rF6(4ClI rF7 (4(r).FF(4(r)24{I 6E¡4 )Í DETERMINACION DEL LUGAR A ACONDICIONAR *245 Wl4= . ()t)f, : hl35=. O{)OC,18 ¡ DENS=I . ?O4?5CI DIS=''EsF'ACIO A ACONDITIONAR''?6O CIü=SFAüE$ ( 60 )27(} LOCATE 4!15:FRIN]- ''DE LA SIGUIENTE LISTA DEBE DE SELECCIONARSE EL TIFo DE''?ttl LücA"rE S,1SIPRINT "EsFACIil tluE sE DESEA AcoNDIcIoNAR :"3?(t LüUATE 7.25:FRINT "1. RESIDENCIAS":i{lü L0CATE 8.:5:PRINT "?. APARTAI"IENT0S, H0TELES. H0SPITALES"T1() LÜI]ATE 9.25¡FRINT .'3, OFICINAS PARTItrULARES. BIBLINTECAS''13?0 LOTATE lO'ZSIPRINT "4, TEATROS. AUDITORIOS"35TI ¡9¡9T9 11.25:FRINT ''5. OFICINAS F.UEILICAS" Í{ESTAURANTES. BANCos'':i4O LüCATE 1?.:5rFRINT "6. TIENDAS COI'IUNES, CAFETERIAg',;55{t LüüATE 1¿\.:5:FRINT "7. INDUSTRIAS"Tótl LüUAIE 14.15:FRINT "E]- EST|lnInli ntr RAnTn',

::'Ht) Lü[:AfE l/-,:--5: Ihll-'UT "5Hl-EüüIüNE OFUIUN ==':r " oüFj;?ü IF üf:¡'i? f¡R [']F':.1 I'HEN 4ilü ELSH 4{l:i4{lC) L{JüAli: 17, 13:t-'RIN-f ü9:Gü1-ü .J8*-¡

4{}5 üLS41C) ON OF' GOTü 4?{}r 44C),46{}r 48{}r 5{}{}, 5?{} r 54c, t 5áil r 5804:ü LüCATE 5,25!PRINT Drti" RESIDENCIAS"4.5t-¡ V1=4: V3=J I V3=J:605U8 ?5?O: GüTO 59t¡44ú LúCAIÉ 5"1*;FF|INT DrSi" APARTAT'IEhITOS, HABiTACiONES HOTEL Y HOSPITAL"45{r Vl=á.5rV?=3 :Vf,=3.5:GOSUEI 352{l :GOTü 59ü46{l LüüATE 5, 15:FRINT DtSi " OFICINAS PARTITULARES.BIBLIOTECAS"47ü VI=7.5:V?=6 :V3=3.5:GüSUB 252(r :GOTO 59C)48t1 ¡ggATE 5"?2:PRINT DI$i,. TEATROS. AUDITORIOS.,49{} V1=5,5;V3=4 ¡V3=3 ¡GCISUE 25?(¡ :GOTO 59O5ü{-I LOCA.TE 5,15:f]RINT D$i'' OFIC. PUEILICA. RESTAURANTES, BANCOS',51(t y1=7.5¡V?=ó :V3=3.5:6OSUB ?5?(r :GOTO 59O5?r) LOCATE 5

" 1g: PRINT Dri i " TIENDAS COMUNES, CAFETERIAS"

530 V1=7.5:V3=6 rV3=3.5:GüSUB ?5?() ¡GOTO 59Cr54O LOCATE 5"25:PRINT Drf i " INDUSTRIAS"550 V1=9 rV?=7.5¡V3=4 : 6OSUB ?5?C) rGOTO 59ü56ü LOCATE s!?STFRINT DrÉ¡ " ESTUDIOS DE RADIO"57(r V1=4: V?=3: V3=2 : GOSUET 25?Cl : GOTO 59C¡58{l LOCATE 1(1.2C¡: INPUT "ESPACIO A ACONDItrIONAR ==} " nGrS585 t¡J66=159Ct LOCATE 13!15:INPUT "DIGITE LA VELOCIDAD DE ENTRADA FCIR REJILLA (F|/SEG) ==;.rr,h¡1559? IF t^J1531{) THEN 593 ELSE 595593 LOCATE 1.5.IS:PRINT C$:GüTO 59O5?5 LOCATE 13.15¡FRINT CrF

ó{}{} LOUAI'E lJ"15:INFUT "DIGITE LA VELBCIDAD EN DUCTü FRINCIFAL (]"|/SEG) =='.:'",Wló601 IF W66=1 THEN 6ü4ó(¡? IF W16:112 THEN 6C)3 ELSE 6()46üf, LüüATE 13r15:PRINT CS¡6OTO 6üO6()4 LUüATE 13rIS:PRINT C$óci5 LOCATE ISTl5rINFUT "DIGITE LA VELüCIDAD ÉN DUCTO SECUNDARIü (FtlsEG) ==.:. "nWlü61(l CLS6tCt ¡g6gTg 5,1S¡PRINT "FAüTOR DE CORRECCION DEL AIRE FOR TEMFERATURA AHETIENTE"63{' LOCATE 7.25IFRINT "TEI"IF-ERATURA OC'' i5Fü(9) I ''FACTOR"ó4fl LüüATE 8,3(¡¡FRINT "5" ;SFC(17) ; "{}.943"ó5{} LütrATE 9.:9:PRINT "1(}" i5Fü( 17) ¡ "(r.962"óó() LUCATE 1ü.19¡FRINl "16" iSFC( L7') i "C).981"67{t LüCATE 11.2?:FRINT "21" iSPC( L7l- i"1,1)O"6B(r6?C)7{}{}

B?0 LOCATE 13.2ó¡FRINT "15üC¡" iSPC(17) ¡83() LOüATE 14, ?6: FRINT " 18LX," ¡ sPC ( 17 ) i84() LOCATE 15.26:FRINT "?1()0";SPC( 17) ¡85{t ¡ggA-¡E 16,2ó:PRINT "24OO" iSFC( 17} ¡

LODATE 1?.39:PRINT "77" ISPC(I7) i tt1.(t19'¡LOCATE l3,t?:PRINT "3?" iSPC( L7l- i "1.O5B"LOCATE 14"?9:FRINI' "38" iSPt( L7 | i"1.O57"

71O LüCATE 16,?(¡:INPUT "DIGITE EL VALOR DEL FACTOR DE7?{) IF FCl:}1.ü57 üR FC1{.9 THÉN 73(r ELSE 74Q73O LÜT]ATE 16"15:PRII\¡T trJS:GATO TLCI74C) üLS75{} LüCATE 5"Iü:FRINT "FACTOR DE CIORRECCION DEL AIREDEL I"lAR''76O LüCATE 7"35:FRINT "ALTITUD (l'1)" iSFC(11) i "FACTOR"77() LUCATE 8,?9:FRINT "O" iSFC( 17) i "1.OO"78ü LOCATE g

"?7 ¡FRINT "3{){}" iSFC(17) ¡ "1.C}4"79t) LOCATE 1ü.?7:FRINT "6ü0" ¡SFC( 17) ¡ "1.C)8"g(:!C) LüCATE LL 127:FRINT "?(lq)" iSPC( 17) ; "1.12,'81(t LOCATE 12,26:PRINT "12Oü" ¡SFC( 17) i

CORRECCJg¡1 ==.l ".FCl

F.OR ALTITUD SOFRE EL NIVEL

" I.16""l.?c)"" I.25rt"1.?9""1.35"

8á{} LOCATE 18.2(rr INFUT "DI6ITE EL VALOR DEL87{) IF FC?i.1.45 UR f:C2.i1 THÉN 88ü ELSE 89ütts{) LüüÉ\TE 18. 15: I-RINT CS: GOTO 8á(r8?r:] FC1=Fü1*FCI

FAüTOR DE ÜORRECCION ==:.} ',.FC?

'tlrJ L;L59lii LüüA]E 5"15:F'RII'J'l' "SÉLE:üüIüN IIEL t"lATHRIAL FAFÉt L-A CONSIF(UCCION DIl DUCTOS"9.1ü LOCATE 7.35:f-RINI "1. LAI"IINA GALVANIZADA"94ü LüCATÉ 8.t5:FFiINT ":. FILTKA DE VIDRIO"?5C, LüüATE 9,:5rFRINT "J. ICOFOR"96{) LOCATE 11.23:INF'UT' "DIGITÉ üFCION SF-LH**t¡¡¡4p4 ==.r "rOF'970 IF OF:l'5 t't{EN 980 ELSE 99ü?8{t LüüATE 1i" , I $ : FR I Nl' C$ : 6üTO 96(r9?ü CLS: üN üfr GOTü 99L ,1O1ü "

1{}5O9?1 W1l5= , Cr{)(:}Z ¡ W?ó=1 , l,{:;7=77{,(r 3 W9?=41(¡O: t¡193=327fJ: W94=?25O: W96=170tl9?f, LOCATE 5.?(r:FRINT' "FRECIü EN NOVIEIIERE/8B DE LAMINA GALVANIZADA f$/l'l'^'Z"g94 LOTATE 7"27:PRINT "1, TALIBRE ?(¡ ,'....,.. "IUSING "####r.##"iWgr995 LOCATE B,:lTrPRINT "2. CALIBRE 2? " ¡USING "***#r.##" it¡JgI99ó LOCATE gr27:FRINT"3, CALIBRE 24 "IUSING "##*#r.*#"iW94997 LCICATE lC),?7¡FRINT "4. FOIL DE ALUI'4INIO " IUSING "***#r.##" iW96??8 LOCATE L?,77 rINFUT "DESEA MtrDIFICAR (5,/N) ? ==.r "nA9sqq IF A:F="S" OR Ar5="s" THEN IOLX) EL5E I18{)1{}t){} LüCATE L?,27: INF.UT .'DIGITE ITET4 A F1ODIFICAR ==.}. J'tT¡I4{}lql0l IF tJ4{r::'4 OR W4O{1 THEN l(1tl(l1(:)()? ON W4{} GüTü 1C}O4

" 1O()5 r 1üü6 t lC)C}7

10{¡4 LUCATE 1?.21:INFUT"DIGITE NUEVO VALOR F'ARA LAI'4INA CALIBRE 2(r ==}' ""W93:LüCATE 1:.1?!FRINl- CrS¡6OTO 9941ü{)5 LOCATE 1?.21IINPU]- ,,DIGITE NUEVO VALOR PARA LAMINA CALIBRE 72 ==.J .,"W93ILOC

ATE 12, 1? : FR I N T Crü ¡ GOTO 9951()ü6 LüCATE 13r21:INFUT "DIGITE NUEVO VALüF{ FARA LAHINA CALIBRE 24 ==.1'".Wg4rLOCATE 1?,12:PRINT C$:GOTO ??61(:1o7 LüCA]"H 12121:INFUT "DIGITE NUEVO VALOR FARA FOIL DE ALUMINIO =='.l".W96:LOCATE 12 , 1? ! FR I NT CIS ¡ GOTO ?971{,1ü Wl5=. C¡(}C}9: [^136=? ¡ hl34=. {]2S4: W37=B(¡ ¡ W95=53ü{¡l(tfll LOCATE 7.IS:FRINT "FREüIü tN NOVIET'IBRE/BB DE FIBRA DE VIDRIO */11"'7 "¡USING "####n.##" iW951ü13 LOCATE 9.19¡ INF'UT "DÉSEA I"IODIFICAF (5/N) ? ==)' " rA$1(J14 IF A$=':t5tt üR Aft="5" THEN 1{115 ELSE l(r181(t15 LüCATE I . 14 : PR I NT Ctt1üló LOCATÉ ?rI?:INPUT "DIGITE NUEVO VALOR r$/M'''Z ==l ",W951ü17 LOCATE I, 1{r: PRINT Ctt: GOTO 1QI21()18 l¡,l55=W951C)2C) IF W1ó.r12.2 THEN 1{r3C) ELSE l18C)1{"}3{t CLS¡LOCATE 11.l2:FRINT "LA l'lAXIl"lA VELOCIDAD EN DUCTOS DE FIFRA DE VIDÉIü Hs

12. ? l'1,/s"1(¡4() FOR X=I -fO f,{¡C)t}:NEXT X:GüTO 1(}9C)1ü5{) [¡113=. OO13 : W?6=f, : l¡134=. (J254 ; W37=3{r : t¡J95=165L-)1r)5? LOEATE 7,I6:FRINT "PRECIO EN NOVIEMETRE/BB DE ICOPOR */n*7 "IUSING "####n.#*" thl?S1C)53 LüüATE 9.37: INFUT "DESEA I'IODIFICAR (S/N) ? ==;r " rA9lü54 IF Art="s" OR Afb="s" THEN 1C'55 ELSE 1(J5g1(r5:i LUCAI-E I . 1() : PR I NT Crt1{155 LOCATE 9.24:INPUT "DIGITE NUEVO VALOR rSlf"l'''2 ==;. ".t^'951057 LO{:A'IE 9.74:PRINT C$:GOTO 1O5?1ü58 hJ55=t¡1951r)6(t IF tÁt16i.18.? 'I'HEN 1C,7(¡ ELSE 118C)1C)7() CLS:LOCATE 11.17¡PRINT "LA FIAXII'IA VELOCIDAD EN DUCTOS DÉ ICOFOR ES 18,: f'1./5

1{¡ÉC} FüR X=l TO 30ü0:NEXT X

1()9ü CLs11(r{} LOCATE 6.?STFRINT "MODIFIIIUE EL MATERIAL O LA VELOCIDAD"lltCl LüCATE 8,3C¡TFRINT "1, CAMFIAR l'lATERIAL"112{} LOCATE 9"3t):PRIN'T ''3. CAMBIAR VELOCIDAD"113ü LOCATE 11,?6: INPUT "DIGITE ITEt4 A I4ODIFICAR ==)' ",OF1 14(r I F OF :1" THEN 1 1 5{, ELSE 1 16r_¡1150 LOCATE 11.10:PRINT C$:GOTO 113O11óü IF OF=l I'HEN 91C)117(¡ CLS;LüCATE I.(}Ig:INF,UT "DIGITE VALOÉ DE VELOCIDAD EN DUCTO F'RINC]FAL DE RHT'ÜllNO (f"l/SEG) ==.:' ",ldló118Ü CLS

Li(l(.1 Lilür:\IH á.1á:PF:INI- "üUAN'[üS RAI'1iILE'J SECUNDAÍIIÜS HAY SIN CüNTAR EL"lL..ii¡ l_üt;A]-H '1"Lá: IN[-'UT' ',FFrIl"lHR RAf'tAt- üEL F-'RINtiiF'.AL C0f"lfi SECUNDARIÚ -=.: ",[¡Ji:91:Iü üLl3: J=t-¡13?4 LütrATH 4t?1:FRINT "RAI{ALES SEüUNtJARitlS DH RHTüRN0 No' 1 A No."iW3?1?:A LüUAIE 6,13¡FRINT "RANAL No. " ¡$FC(8) i "LONGII"UD tl*l) " iSFC(8) i "FLUJO DE AIRE (

l"t"i/sHG ) "1:3? J?=11t3á VARl*1 : VAft2=hJ.l?f24t) FüR I=VARI Iü VAR21144 LIICATE 8+Jr1ó:PRINT I :W17( I )=Il.:4t LOUATE 8+Jr;i2r INFUT "",W4ü¡N18( I )=W4ül?St LOIiATE B+J r54¡ INFUT " " ¡frl4Ü:t¡119( I )=W4(r1?5ó J=J+1I.Tó{I NEXT I1.3ó4 Jl=$+¡l+!:IF JZ=I THEN J]=J1:J?=O1268 LOCATE J3.lf,rFRINI' CtS

1:7? LüCATE J3,23; INFUT "DESEA MODIFICAR (5/N) ? =='r " nASL276 IF A$="5" OR AS="s" THEN 128(J ELSE 131(tlf8ü LüCATE J3.13¡FRINT ü$1?84 LOCATE J3.?3:INPUT "DIGITE EL No. DEL RAMAL ==.:' ""VARI1298 IF VAill:lhts9 0R VARl.Il THEN 1284129? J=VARI-I1296 VAR2=VAR113(!0 60TO I24(¡131ü CLS: H=Cr1313 LoCATE 1{},5 :F'RINT ''INFORMACION ACERCA DE CÜDOS EN LOS RAMALE$ SECUNDARIOS.

No, I A No."¡W391516 LT]CATE 12,2(T¡INPUT ''CUANTO5 CODÜS HAY EN LOS RAI'4ALES ==i'".h'?B132ü IF l¡lIB=O THEN 149ü13?2 CLS13?3 LOCATE 5!19:FRINT "CODOS EN LOS RAMALES SECUNDARIOS No. 1A No,"¡[113913?ó LOCATE 7.?STPRINT "C[JD0 No. " lSPC(8) ¡ "TRAFIO No. "13?8 HI=Il3.f(¡ VARS=1:VAR4=W28131;3 FüR J=VAR3 TB VAR413f,á LOTATE g+Hr28:PRINT J134ü LüCATE g+H¡43: INF'UT " ".N:SER(JrN¡=11j43 H=H+l1346 NEXT J1f,5(¡ J1=9+H+2:IF H2=1 THEN JJ=JI:H2=(r1f,53 L0CATE J3.15:PRINT Cg1ri56 LOTATE J3"?3¡ INPUT "DESEA I'IODIFICAF (S/N) ? =='r " rA9136ü IF AtF="s" OR Af$="s" THEN 1363 ELSE 1490136:I LüCATE J3.15:FRINT ErS

1366 LüCATE J3.15:INFUT "DIGITE EL Na. DEL CODO Y DEL gg¡v4g¡ ==.r ".VAF3.N13'7Ü IF VARS}.WzE THEN 13661373 H=VAR3-l ; J=VAR-{¡ SER(J.N)={r1376 VAR4=VA}1.:i1¿18ü GO10 133f,149{r CLS15i){) I =ltSl(r W0t ( I )=htl9( I ) /t^tlF1515 W81(I)=N1O15?C) t^J36( I )=t¡119( I ) /WlCt15?1 IF Zü4=1 THEN 15?515?2 GOSUB 5Cr{r(r: IF I=1 THEN 1523 ELSE 15?51523 IF I=l THEN LOCATE 11,8:INFUT "DESEA CüNSERVAR LA RELACIúN DE FORI'IA CONSTANTE FARA CADA RA|'IAL (5/N)? ",AfS1524 IF A$="5" OR A$="s" THEN ZC)4=115?5 Wü2( I )=SOR(ttl3ó( I ) *RF)153O N(13( I )=l¡1f,6( I ) /Wó?( I )

1534 Z()3=ü1535 GüsUB S5(rütiif,6 IF Zü.J;=l THEN 15?:1 54(-) Gtlsll lFr 4(ic)t1

l*54? IF: f¡Jüt( I ).,:.1"}',7 t¡Nü W{)?( I ):i"? lHIN t¡.lf,4=.ür](]71:N55=W9.1 rhl65( I )=1:[if]TCI 15á1155::i It-.'l¡JCl:(l).i=1,.17 fHEFt W54=.C)(:¡{:}ll9:t¡155=l¡l?? :t¡JáS(Ii=IIGOTO 15á1155'/ il- bJil:l( I ).,i=.cl THHN t¡Jf;4=.i:¡(lÜ3éi :t¡J55=W94:t¡J65( I )=315óL W5J= . 44 : l¡'l54= . C)?54 ¡ t¡J56=W961568 J=l157ü IF SER(J,l: ¡=1 THEN GOSUB 4::0ü:GüT0 15ü()157? J=J+11,57f, IF J::,1^lI? THEN 158{r15'74 G0l'il 157il158{} 6üSUHI 6t}(i(}1585 GOSUB 2óOO159{} I=I+11ó(-¡{:} IF I:}t¡.|39 THEN 16?0161(¡ GüTO r51{l162(l W38=I1.63{r CLS: Z{)3={): Z(-¡4=0164() LüCATE 4.:3¡FRINT "SISTEMA DE DUCTOS DE RET'ORNO"1ó5{) LüCATE ó,3f,:ÍTRINT "RAl'lAL FFiINCIFAL DE RETORNO"166C) LOCA] 8.35: INFUT ''CUANTüS TRAMOS ÜÜMPONEN ESTE RAI"IAL ==} ,.oN?

167f1 C1=W39+N2 : C2=Wf,9+11ó8ü Cl-S ¡ J=t-rt6B3 LUCATE 4,14:FRINT "RAMAL FRINCIFAL DE RETORNÜ TRAMtrS No."iC2¡"A"iCl16gó LüUATE 6,8 IFRINT "TRAI"Iü No."iSFC(€l)i"LONGITUD (1"1)"¡SFC(É)i"FLUJü DE AIFE (

M"'3/SEG ¡ "1&89 Ji=l1ó?: VARl=üt:VAR?=C11695 FOR I=VARI TO VAR:1698 LOCATE 8+J I 11:FRINT I:NI7( I )=I17t11 LOCATE 8+J r27:T.NPUT " ",W4ti);hJ18( I )=W4(rL"/lt4 LOf,ATE 8+J r 51¡ INPUT " " ¡W4{}¡W19( I )=W4t]L7tt7 J=J+1171(} NEXT I1713 J1=8{-J+?: IF J3=1 THEN J:;=J1: J?=Üt7 Lb LOCATE Jf,,13: FRINT tttLTLE] LüCATE Jf,"?f.r INFUT "DESEA I'IODIFICAR (S/N) ? ==i' " rA$L72i IF A':F="s" OR ArF="s" THÉN L725 ELSE L77t)1723 LOCATE J3,ISrFRINT Cr$

L'/2A LOTATE J3.?5: INPUT "DIGITE EL No. DEL TRAMü ==l ".VARI1731 IF VARl:.ül OR VARI-íCT THEN 1729L737 J=VAR1-WS9-1:GOTO L743174t¡ J=VARI-C?L'/43 VARZ=VAF{lL746 GüTü 16?5I77{t CLS: H=üL'/77 LOCATE 1('.8 :FRINT "INFORI'IACION ACERCA DE CODOS EN RAMAL FRINCIPALT TFTAMOS

No, " iC?i "A No. " iClL774 LUCATE 12'20:INFUT "CUANTOS CODOS HAY EN ESTE RAMAL ==" ",W72L7 7 8 t¡¡73=t¡128+t¡J7?178(! IF W72={r THEN l{74=hJIB:GOTO 1B7C}1792 W74=N?El+lrGOTO 179ü179{} CLSI7S!. LOCATE 4t18¡FRINT "RAl"lAL PRINCIFAL. TRAI"IüS No."¡Cl;"A No."iCIL7S4 LüCATE 6!22:FRINT "CODO No. ";SPC(El) i "TRAlfO N(f,. "L796 VARS=W74 : VAR4=hJ7S18(¡tl H3=1ltsC)? FOR J=VARS Tü VAR4tg()4 L0CATE B+Hr25:FRINT J1806 LOüATE 8+Hr4(rr INPUI " " rN:SER(J.N¡=1lgC)B H=H+l1T1ü NEXT J141? J1=6+VAR3+:!IF H?=1 THEN J.]=J1:H2=CI1414 LOCATE J. . 15 : FR I NT C:É

1816 LüUA'|É JSr?3r INFUT "DHSEA I"IODIFICAR (EilN) ? ==.:' " rA91A1A IF- A$="S" üR Art="s" THEN 1820 ELSE 187{lI t1;¡ü t OtlA-f F: JI - 15 : F'R I NT üiS

i-g:t4 If: VAlt::;.:.t¡l/'.5 llR VARS'iW74 THEN 1i3j]:1826 J=VAFI;i¡ Si[Fi( J , ftl ) =t-r1f33i) H=VAl.i.5*'hl::8-l r GüTO 18.541.8f.2 H=VAR.I-W74.18.14 VAR4=VARIlt¡á Gú-fü 18i)?187i1 CLS188{l I =tdIE1890 W01 ( I )=t¡Jl?( I ) /Wr519{}{i t¡l:i6( I )=Wl9( I ) /Wl61?üt t¡lgl(I)=h11619{}? IF Z(}4=1 THEN l?C'B1903 GOSUF SOCIC):ZO3=O:IF I=W.18 THEN 19{}4 ELSE 19(tB19{}4 LOüATE Ll!g:INFUT "DESEA CüNSERVAR LA RELACIüN DE FORI'IA CONSTANTE EN EL RAl"l

AL (S/N)? "rAft1905 IF AfS="$" OR ArF="9" THEN ZtJ4=1t?üB Nü?( r )=sülR{ht36( r } *RF)l?Oq W(¡f, ( I )=t^J36( I ) /W0?( I )

l?to üüsuB 350{)1911 IF Zt-r3=1 THEN 19ü31?14 IF WI6=1 THEN 1?15 ELSE LSL91915 I f:' W()? ( I1?16 IF Wü2( IL'qL7 iF W('?{I

.;1.37 AND tll()!(I)i.9 THEN hl34=.("¡0(!7lrt¡.|55=1,193 ;W65(I)=1:GOTO 1?18

.r=1 . i'7 THEN W34=. C)()ü89: W55=W?3 : W65 ( I ) =2 ¡ GOl'ü 1?18

.i=.9 THEN W34=.0r-!{¡56 :h,l55=tl|94:WóS( I }=51?tB W53=.44: N54=. (rI54: W56=t¡J96191? J=119?() IF SER(JnI)=1 THEN COSUB 43(,0:6OTO L?3{¡19:? J=J+I19?f, IF J:}Cl THEN 193019?4 GO'r-O 19?r)lqSü GUSUtr 6()üCl1?35 COSUE ?60ü1?4(¡ I=I+1195{} IF I:}CI- HEN L97CT19ó{l GüTO 19ü{r197{) REI'I * FERDIDAS DE LÜS F{AMALES SECUNDARIO$ Y EMFALI"IE CüN EL RAMAL F'RINCIF'AL198{} CLs199C¡ I =11995 CLs?ñüü LOCATE 4"IC):FRIN] "PERDIDAS EN LüS RAÍIALES SECUNDARIOS DE ACUEFDO A r'

:(J1{} LüCATE 5.?*:FRINT "5U FüSICION ftESFECTO AL RAf'lAL FRINCIPAL DE RETCIRNO"

2(]?{) LÜCATE 7"3ü:FRINT ''EL TRAI'IÜ NO. "; I ¡ " DEL RAI"IAL SECUNDARIO EMFALMA''?()¿i() LüCATE 8.?ü:INFUT "CON EL ñAMAL FRINCIPAL EN EL TRAl"lO No. ==.) "rh¡41?{)4C¡ t¡14?=ü2O5O FOR J=W41 TO Cl?üóü N41l=hJ4?+W0A(J)2(}7IJ NEXI'Jt{)BC) W4ói I )=hl4?+hJC}S( i )

?tlB5 h,48( I )=W46( I )

3()9{) I=I+121rl{l IF I:}W39 THEN 212ü?Llü GOIO 1995?1?r:r CLs?lf,O I=2?140 t¡147=td46( I-l )

?145 hllil= I?15(¡ IF t^¡47:)W48(W?l) THEN ?165216() bJ47=W48(h¡21 ) :TtJl=I IÉOfÜ ?17(r:1É5 I f- I =l "f HEN TC)l= I -121/Cl I=I+1?1gO 1F I :}Wf,? THEN ??{)C)?19{r GüTü ?145?3rxt tiLSl:¿J-(-, I =L¿li??ifl l¡1l1..1=f'l

lf .:1 I't.¡ [,J4ii*f^l4rl:i+1,^Jt)S i I i:Tói] I{EXI"I?'¿-it) W6li=t44i?IB() IF l,lt]5::'lAl47 THEN ???t¡ ELSE If'{}Ü?:?ü Wóá=l¡J65: WS7=1 I Tt-¡3=t:1 : GOTü I31O?lüü N66*t{47: l¡lá7=I: TtlJ=Tü1?51ü RE["I T RESULTADüs TT]TALEs *?.J:{) hl58=i-¡i:S.Jrl t-üR I=1 Tü Cl,j:tl4rl t¡J58=t¡l58+WI7( i )

3f,5ü NEXT I?T6tj l¡Jl?=(r237{) FüR I=1 fO Ct?-f,B{} t¡l1?=t¡Jl2+t¡J()9( I )

23?O T.¡EXT I?.t91 CLEj:LüCATE 1r.r"lJ;INPUT "DESEA BBSERVAR LOS RESULTADOS FOR FANTALLA (S/N)? =

=.:." I AlS

?39? IF A:F="s" oR At$=l'g" THEN GOSUB 3üOC)

T4O(} REM * ARCHIVO DE ENTRADA DE DATOS T

2410 CLs?42ü LOCATE 1ü,?(¡: INfruT ',INTRüDUCIR NOMETRE DE ARCHIVO ==.:' " oG$I4liü N:É="4: "+GfF244ü OF'HN "0"tl.Nf$?45{r f-RINTSl.Cl346f-) FüR I=1 TÜ ClZ4Z(-t pRINT#t.hllg(I)¡W23(IliW?a(I)¡Wll(I)¡t^.l19(I)iWtCr(I)rW27(I)1W25(I)¡hJ5?(I);Wát't(I ) rW61( I ) iW62( I ) lWáS( I )

?4BC} NEXT I?49(¡ FRINT#1"hl66it^l5Bi W1? ibl67 ¡ T(r335{rr) CLOSE #r?51{l GüTO 7tt()(t?5?ü RTI"1 * SUBRUTINA ENTRA¡]A DE VELOCIDADES RECC}MENDADAS PARA DUüTÜs #

:53(¡ REt"t X DE RETORNO fr

ZS4() LüüATE 6,2(l;FRINT "VELOCIDADES MAXIPIAS RECOT'IENDADAS PARA DUCTÜS"

?53ü LüCATE 7..5(l:PRIN]- "DE RETORNO (l"l/sEG) "

25á() LOCATE 9. ?5: FF|INT "REJ ILLA DE ENTRADA DE AIRE ==;'" ¡ V5

?57ü LOCATE lt),25:FRIN-r "DUüfü F'RINCIFAL DE ÑETURNO ==:'" lVl?5BCI LüTATE 11,?5¡FRINT ''DUCTÜ SECUNDARIO DE RETORNO =='}''iVZ?59t-I RETURN?6(}(} REI'I * SUERUTINA I'IATRIZ DE RESULTADOS *?61C) t^l?f, ( I )=IN]- (WOz( I ) *lrl(xl):á2r) Wr4( I )=INT (W{¡S( I )ftlOC)o)265() t¡l??( I )=INT (W51( I )*1C)O0)?64Cr UJ?ü( I )=t¡lBl ( I )265u hJ?7(I)=INT (W?9( I ) )

?6óCt hJ?siI)=W(r6(I)?67Cr t¡l59( I ¡=[ft]$( I )

IáB(r W6ü( ¡ ¡=¡J(r7( I )

169(¡ Wó1( I )=WO8( I )

:7(l{} t¡J63( I )=INT (W01 ( I ) *lür)C}ü)tTtql WóS(I)= INT (NCr9(I))275() RE]URNf,{IC)(} RE.M f SUBRUTINA CIUE T{UESTRA EN F'ANTALLA EL RESULTADO DE LOS TRAf'IO5 *5üC,5 RÉt'l X

3{)1O F'üR I=1 TO CI.5{t15 tLS : PR INT : FRINT : FRINT

DE RÉTüRNO

3C}?C} FRINT TAB(?É) ''DUC-TÜS DE RETORNO''3025 FRINT::{}3O FFINT TAB(31) i"TRAMO No." iI3IJ35 PRINT3(14ü F'RINT TAEI( 15) "Longiturd (m) . . . " IUSING "#+.##" iWlB(I)3ü45 F,RINT TAEI( 15) "Ancho (mm) . . " iusINB "###+n .##" ¡w?J(I)

'¡ r I lQTNG "ü#*lli - - *f*t" : l¡l?4 I

jiJSb F,t{INl--fAH(11,)"Diarnetr-u Hqr-rivalente (mm), "¡USING "###So.##"iWt?(Iif;ijórl F,RIf.Jl""lfiB(13i"F:lurjci de Aire (l"l'''3,/seg).,", "iLfSING "##'##"it¡119(J. l

3{165 FRIN]- lAB( 15} "Velocidad (m/seg ) . . . . " ¡USING "##'##";hli0(II3(:)7() FntINT TAB(15)"Pego (F.q¡. . "iUSING "####r.##"iW?7(I}:iü85 FÍ{INÍ TAEI(15)"Ferd. Presión Durcto (Pa). "iUSINE "+##.#{*"iW?5(I)3rl?ü IF hJ59, t ¡=t) THEN 51C){}3{}g5 FRINT TAB(15)"F,erd. Fresión f,odo (Fa). "luslNG "###.##"iN5?(I)f,10i, IF W6C)( I )=(t THEN f.lItr3IC)5 FRINT -fAE( 15) "Ferd. Fregión Union (Fa) . " ¡USING "###'##" ill|6{t(I)::ll{r F,RINI'TAF(15)"Ferd. Presién total Tramo (Pa)...., ";USING "###.##"itd61(I)3135 IF hló?( I )={} THEN 3135J13(r FRINT TAB(lF),,Area de rejiIla de entrada (cm'"?).. "¡USING "S###*n.##"ibl63(I)3l3S FRIN-r TAB( 15) "Costo de la Sección ($) . . . . " ¡USING "*{+###S*n.##" ¡W63(I)f,14(¡ PFINTTFRINT3145 F'RINT TAB(1?) '',i{ OF'RIF'IA UNA TEüLA PARA CÜNTINUAR '?":"'

315ü FTF=INI.iEYÍS: IF LEN (PIS)=C'I THEN 313c}3155 NEXT I316ü CLS :PRINT :FRINT ¡ PRINT3165 F'RINT TAE ( ?5 ) "RESULTADOS TOTALES":i17Ct FR I NT r FR I NT3175 F.RINT TAEI( 15) "Ferd. de Fresión en eI Sisterna (Fa) " ¡USING "####, .##" it¡J663145 F,RINT TAEt(15)"Feso Totar (t.e) "luSING "####,.##"¡hr5831gtl FRINT TAB( 15) "Cssto Total (s) " iuslN6 "####*#*#" .##" it¡l123195 IF W67=L THEN 3197 ELSE 31993Lg7 PRINT3198 FRINT TAB(15)"La rnayor perdida esta en eI rarnal principal";6OJ'B f,?(tl3199 PRINT5Iüü FRINl TAE(15)"La mayor perdida esta en el ramal secundario No."iTC)¡f,2()1 PRINT.S?{)2 FRINT TAB(15) "A Ia perdida total hay gLte adicionarle eI valor"f,2OS FRINT TAF(15)"de perdida por entrada en Ia rejilla de retot"no"3?C)4 FRINT TAEI(15)"este valor ge determina por tabla'"3?{:)5 FRINT:FRINTf,?l{) FRINT TAB(2(})".;..1 üFRIMA UNA TECLA FARA CONTINUAR:}}"f,tlS pri'=INtiEyr$¡ IF LEN (FrS)=O THEN f,215IZ?{r CLSTLOCATE 1t)r15:INFUT "DESEA OBSERVAR DE NUEVO LOS RESULTADOS (SiN) ? ==¡'

t'rA$f,:I5 IF AfÉ="S" üR Af5="s" THEN 50{¡()32:i(! CLS: RE'|URNf,s{¡(] REI'I * sUE{RUTINA AUE VEftIFICA LAs DII'IENSIONES X

351ü CLti: LOCATE á.?9:FRINT "TRAMO No."iI552(r LUüATE 8.?2TPRINT "DIIIENSIONHS DE LA SECCION"353() LüCATE 1() r ??: FRINT "ANCHO ( rnm ) ALTO ( rnm ) "f,54{¡ Z{}1=INT (Wü21¡ ¡ ¡lt)üO}.1550 Z()?=INT (t^JC)s( I )tlüC)ü)f,56C) LüCATE 1?.?3:FRINT USING "#S##r .##" i Z()l;iS7() LütAIE 1:.38:FRINT USiNG "*###',##" iZ(l?;r58(¡ LüCATE 14tLT TFRINT "ESTAS DII{ENBIONES SON LAEi APñOFIADAS llE".15'tC) LUCAI-H 15. 17: INFUT "AüUERDü AL ESFACIO DI$FONIFLE ( 5/N ) ? " , A$.J6(¡{} IF AfF="s" OR AtF="s" THEN 363{) ELSE 3á1{}361{r LOCATE L'7,?2:PRINT "ESüüJA NUEVü FACTOR DE FOFMA"-iÁTl-r FTltr. Y:1 -Tn 1lf-¡flt.lrhltrYT Y.7t-tll=1

rt.txl(r hiH.N s St_ltrl.iu"l"INA CIALCUL.ü DE F:AC:',TüR FÜFi UhIIUNtS *4rli{l üL54il1$ LüCÉr][ 3.1:FRINI- "TRA['1ü No, " ¡ I4üiO LÜCATE 4.T4:FRIIiIT "TIF'Os DE UNIONÉS DH DLITTO''

4()3Ü LÜCA-TE á"T9:FRINT ''RAI"IALES DE DUCTO''

4ü4ü LOCAI'E S.:9IFRINT "l- ANGULü A t'io"4ü5ü LüCATE 9,39:PRINT "?, ANGULO A J{}o "4C)6{) LOCATE 1{},:9:F'RINT "3. ANGULü A 45o "4ü7{} LOilATI 11.I9:FRINT "4 ' ANGULü A 9(]o "4üt(¡ LüCATE 13,?5: INPUT "SELEüCIONE OPCION ==! " rOF4ü9{} If: 0F}4 THEN 410ü ELSE 411(}41O{} LOCATE 13 . 14 : PR I NT C$ ¡ GÜTO 4C}B{-)

4t1C) üN üF GüTO 4120,413ü,414(r.415(r4I?{,} FAt =. I : GOTO 41604LSrJ FAt =. ? : GüTO 416C¡414{} FAC =.I5 : GüTO 416t)415{t FAC =1416{} htst ( I ) = ( ( 1 . 3* ( t^tot ( I ) f htos ( I ) ) "' . 635 | / (w?z ( I ) +t¡lc}¿i 1 ¡ ¡ ¡ " . 25 )

41'7ir h¡44( I )=FAE*WSI( I ) / .Ú7418C¡ W45=1419(r RETURN45OÜ REf"l T SUBRUTINA CODÜS X

43ü5 CLs45{)6 LOCATE ?. ? ! PRINT "TRAl"lÜ NB. " i I431{¡ LOTATE 9.31:PRINT "l'IPüS DE CODOS"43?() LüCATE II:I"?8¡PRINT "1. CüDO DE RADIB ''

43IO LütAfE II,?B:FRINT "?. CUDE EN üORTE"4--r.4ü LOüATE 13"?á:INFUT "SELECCIONE OPCIg¡1¡ ==.) "rüP435{} IF OPl,'? THEN 436(t ELSE 457C)436() LOCATE 9. 14 r FRINT CtT I GOl'ü 434(r437r) ON OP GOTÜ 4390,479Ct4f,9c) CLs4,"t95 LüCATE ?IZ:FRINT "TRAMO No. " i I44O{¡ LOUATE 4.31¡FRINT "üODO DE RADIO ''441t) LüCATÉ 5'?9:FRINT "VALOR R/D = 1.?5"44?0 LOCAI-E 6,?7:FRINT "t^l/D =" ¡RF;SPC(7) ¡ "FACTOR"443t) LUCATE 7 I?7:FRINT t'------- -------rr444t-t LOCATE I |?7:PRINT "1,üC) 7.ü"445(¡ LOCATE 10.37:PRINT "l.?5 7.()"4460 LüCA]E 11,?7¡PRINT "1-5t) 7.{-'t"447t, LUCATE L?'?7;FRINT "1.75 7,5"448ü LUCATE L.5'?7:PRINT "Z.CrO 7.5"4490 LOTATE L4'?7:FRINT "2.25 I'C)"45{)rl LOCATE 15,!7:FRINT "2.5(l 8.{:}"451{} LOCATE L6|27:FRINT "2.75 8,(}"452(¡ LOCATE L7,?7:FRINT t':i.{:}O 8-O"453{r LUCATE 19.25: INPUT "ENCÜNTRO ÉL VALOR (S./N) ".ArF454ü If- AÍF="S" OR AtF="s" THEN 455(! ELSE 459(:}455(¡ LOCATE 19!?2:INFUT "DIGITE EL VALOR DEL FACTQft ==.lr ""FCI4560 iF Ff,l:).Et OR FCL1.7 THEN 45704565 GOTü 47711457(r LüCATE 19

" 1?: FRINT ür$: GOTO 455(r

4S9ü L6üATE I9'?OTPRINT "BFRIMA UNA TECLA PARA CONTINUAR LA LISTA"46rlc) Fr$=INl:EYrS: IF LEN(Pt5)=O THEN 46t)()4610 CLs4615 LüCATE 2,2'. PRINT "TRAI'IO No. " i I462t-t LOCATE 4rSlrPRINT "CODO DE RADIO ¡r

4áf,{) LüCATE S!?9:FRINT "VALOR R/D = 1.25"4640 LüCATE b,27 ¡FRINT "W/D =" ¡RFiSPC( 5) i "FACTOR"4650 LüCATE 7 ,Z7:FRINT tt------- ------¡¡4ó6(l LüCATE ?I?7:PRINT "3,25 8.5"467tt LCICATE 1{}.I7;PFIINT "J.5{} 8.5"468ü LUCATE LL,?7:FRINT "J.75 9'Cl"46?0 LüCA1-E L?,?7:FRINT "4.0C) I.Ú"

L-T -]-7.¡;É,T¡\lT tta- ?Ei (}-stl

47:il Lü{:ATE 15.:7rFf{INf "4" /5 1{¡.5"4'l:,t:' Lllüi{l'H L¿|

" !7 : Pfl I trl-l- " [i . {}() 1L , i} "

4/4{., LÜCATE 18":iJ: INFUT ,'iJf GI TE EL VALÜR I]tsL F.Aü.¡¡6 ==.} ,'.FCl475r_¡ IF F.f,l:}l1 THEN 47óú ELSE 47'7i,47út:, LüCAI-E 18. 1(i: FFlIfrl'I U$: GüTO 4'/4.:)477{t IÍ: I=1 ll{CN t^i43(I)=Wü3(I)*FC1:GOTO 4?4tl478r, W4f, ( I i=t^Jüf, ( I-f ) *.g*FCl ¡GOTO 494ti+ / al, LLt)4-7q3 LOCÉ¡TE I.STFRINT "].FAMü No. " i I4t()() LUCATE 5':I?IFRINT "CODO EN CORTE"48L{r LCIEATE -/ r44:FRINT "I¡llD = " iRF48?O LOCATE ts,?2:PRINT "É, GRADOS 1.O 1,5 ?.O 3.C) 4,O 5.ü"4B:i{) LOCATE I, ??: FRINT 'r*-*-*--* ----------¡'4t4{¡ LüüATE 1(¡.22:FRINT " 2() .t)7 .t7 ,{-t7 .06 .(}6 .O5"485ü LüCATE 11.??:FRINT " 3C) .16 .15 .15 .13 ,13 .1?"48ó(l LOüATE 12,?2:PRINT " 45 .54 .33 .31 ,?B .?7 .26"487(¡ LOTATE 13,!3:F'RINT " ó{J .55 .5: .49 .46 .43 .41"48BO LOCATE 14,22¡PRINT " 75 ,81 .77 .73 .67 .63 .61"489{} LOTATE 16,2?¡INPUT "DIGITE EL VALOR DEL FACTOR ==.} ".FClogr,rt) Irr FClt'.81 ]-HEN 4?1(r ELSE 49204?1CI LÜCATE 16,lC}¡FRINl CI$;GÜTO 489C)49?ü IF I=l THEN W43(I)=WOs(I)*FCl,/.(¡?:60TO 494049.X¡ h'45( I )=W(r3( I*1 )'I.8*FC1 / .ü24?4ü CLS¡RETURNsC,(I(} FEI'I * SUBRUTINA RÉLAüIONES DE FORÍ"IA"S{ttg g¡t5t)15 LTJCATE ?.i:n:RINT "TRAlfü No. ==.lr'r ¡ I502C) LOCATE 4.3CI:FRINT "RELACIONES DE FORlfA"5()3t) LüCATE 6 r J() ¡ FRINT "ALTü ANCHO"5ü35 LOCATE 7,3r): FRINT "-----*- ----'rst:r4(r LOCATE Atjl7:FRINT "1). 1.(,O : 1,(rO"5050 LüüATE 9,Z7:FRINT "2). 1.Crt) : 1.25"5(¡6(l LOCATE It'r?7:FRINT "3). 1.(¡Ct : 1.5{r',5()7rl LüCATE LL.2'T IPRINT "4). 1.0{) : 1.75"5()8{) LOCATE 17,77¡PRINT "5}. 1.C)(} : :.(:)ü"5ü9ü LüüATE L3,?7 ¡PRINT "á). l.OCr : 2,?5"sl{r() LOCATE 14 t27: FRINT "7 ) . 1 , (t() : ?. 5{¡"511{) LüCATE 15,27¡PRINT "8) . 1.()O : 2,75"51?(r LüCATE L6.27:PRINT "9) . 1.OC) : J.(r{1"51311 LOCAI-E 19,21¡INFUT "ENCONTRO LA OPCION DESEADA (5/N) ==).",A9Sl4{} IF A!F="S" OR Aft="s" THEN 515(r ELSE 529C¡515(r LüCATE 18,18:PRINT Cti51ó(r LüUA-IE 18r:I ¡ INFUT "DIGITE EL NUMERO DE LA OF'CIO¡ =c.:. " rOF'5170 IF üf-'.)? üR OF.ll THEN 51E}ü ELSE 519r')516(:t LOTATE 18.18: FRINT' Ctt: GOTO 516(r519{) üN OP SOTO 52O(¡

" 521ü, 5?2O, 523C}. 5?4{¡ r 525C, n 5?6{¡.5270,52gQ

52(){l FiF=l : GOTO 56?Cr5?1C) RF=l .15: GOTü 5ó2rl5I?{¡ Rf:=l . 5: GOTO 563(¡52f,{t ñF=l.75¡EOTü 56205240 RF=?:Güfü 56305?5(r RF=2.25rGüfO 56?05I6C) RF=l,S:GOTO 362(l527ü RF=2.75:GOTO 562C¡5:8(-l Rf-'=3: GOTO 56I()53?CI LÜÜATE lB.?(¡;PRINT,,.í". OFRIHA UNA TECLA FARA CONTINUAR LA LISTA,}..]",'53OC) FtS=INIiEYSr IF LEN(P$)=U THEN 53OC)5.510 tLs5.J15 LüCATE 2.3:FRINT' "TRA['|ü No. " ¡ ISf,?{} LüüATE 4.30:FRINT "RELACIONES DE FORMA"533ü LüCATE ó"J(l:FRINI' "ALTO ANCHO''55:i5 LüüATÉ 7.It)¡FRINT r¡--*---* ---*''5.1i4ü LI]üATE B":7:F,FiINT "1t)) . 1.()ü ¡ 3.?5"5.:i5ü LüCATE 9,27:FRINT "11). 1.t-){) ¡ J.5tJ"5.i6t) LütAlE l-ti.:7:FRINT'"l?)- 1-(-)f¡ : a-75,'

b..;:'[:{i..] :!li :¡'}i1:r i"i.;l: }:Fl{Il{l "i45:5'7t-¡ LüCATE Lf:":i:/:¡rftIhlT "1554üii Lüf,É¡l-E 14,t7ri-tFiJ.Nl- "1ó54Ltl LiltATH 15 , 37 : laR I N l- " L7541{l LLJüA]E: 1á"17:FFiINT "18

. I.r-¡r-, ; +"j;i"

. f .iji) " ¡11 "._rt-)rl

. L.tlo : 4.75"

. l.Cli) r 5.{}i}"

. O]RA NÜ iNIJLU]DA''54.Ji-l LUü41-E Lt,?l: INFUT "DIGITE EL NUI"IERU IIE LA OPCION ==i' " rOP54.4t1 IF üF.'.':1ü üft OF}19 I',HEN 545C) ELSE 3460545rj LüCA IE 18 , 18 | FR I N I CrS : 6UTtr 54f,(t546(l I F gp'*f {-} I HEN RF =3. ?5: ÉüTü 562C¡547() IF üF=11 ]-HEN RF=f,.5:GOTü 56?0548i) IF OF=l? THEN RF=3.7S¡GOTO 5ó2{}549{r IF üP=LI THEN RF=4 IGOTü 56?Cr55(){} IF OF=14 THEN RF=4.25:GOTü 56?(¡551ü IF OF=15 THEN RF=4.5¡GOTO 56?t¡55?Cr IF üF=l-6 THEN RF=4.75:6üTü 56?0553t1 IF üP=17 THEN RF=S ¡GilTü 5á2O554(¡ üF=lt55511 CLs556ü LOCATÉ É,26¡FFIINT "OUE RELACiON DE FORI{A DESEA"557ü LüCAÍE 10.Ió¡FRINT "ALfO55t(l LüüATE l"I.?ó¡INF'UT " 1,0()5590 Ifr RF:i5 ilR RF*il THEN 56{lü ELSE 56:it5á0ü üLS¡Lü{:ATE 1],.?()¡F'RINT "LA RELACION DE FORMA NO DEÉE FASAR DE 5"561{t FOR X=l TO .5C}O{trNEXl' X:GOTO SOIC)562(¡ CLS:RETURNá{r(tc) REM tá(¡1ü tLs

SUBRUT'INA F.FTÜCEsO *

6C)2{r tr'49( I )=H18( I )+W43( I )+W44 r)I ) )",625) / (t¡t{rZ( I )+WC)3( I ) )*.25))

) /hl35

61?0 t^J51 ( I )=( ( 1.3* (t¡l()Z( I ) *W{tg62(i{} t^,l30( I )=(?*W(r:( I )+2*W{)3( Ió21O t^,;i5( I )=(Wü4*WB1 ( I ) *W51 ( I6?2(r Fl=StlR ( U¡14 )ó23{} F3(I )=(t¡113,¡(3.7*h151(I) ) )+(2,51/(W33(I )*FI) )

á24{r F3(I)= _? * LO6(F:(i)l/7.3ü25851#á?5{) F4(r)=F3(i)"?ó16{} F5(I}=1/F4(I)6?7tt f-ó( I )=F5( I )- (F1''3)628ü F7(I)=AES(Fó(I))629{¡ IF F7 ( I )r,=.C¡C}(¡l THEN á31{¡63ü0 Fl=SCilR(F5( I ) ) :GOTO 6?f,O6l11ti FF(I)=F5(I)6f,I(¡ rAJ{¡6( I )=(W04*FF( I }*(W81( r ) )"2 * hJlS( I ) )/(W51( I )rfiz)ó.lf,tl W{t5(I)-(tAl{¡4*FF(I)*(h181( I) )*2 * hl43(I} )/(W51(I)*2)ó:i4{t tali)7(I}=FAC * (WBl(I ) "? * WO4,/? ¡ FAC=O635{} tattrS( I )=t^J{}6( I )+WOs( I )+Wü7( I )

ó4()() hJ39( I )=t{3O( I ) $t^llB( I ) *Wf,7*W34ó41O IF W26=1 THEN 642{¡ ELSE 644{ró4?{) W5?( I )=l¡l3(r( I ) tt¡¡l8( I ) *W53*trl54ó45() W2?( I )=W29( Ió44{r Wü9( I )=l¡Jlir:}( I

+W5? ( I*Wl8(i)*t¡l5S

ó45() IF td2ó=1 THEN 64ót) ELSE 648ü646(¡ hl57( I )=WICr( I ) *tAl18( I ) SW56647t¡ hJü?( I )=Wrl9( I )+WS7( I )

ó48{) üLSTRETURN700ü CL$:ÉND

ANCHO ''ttrRF

Ai\iEXü 4" üIÉ\üFlAf'lr:l üF- FLUJü DUCTiIS DE RHI-lll'(FlÜ

F.RINCIPI.O

FRESENTAC I ON

INTRODUCCiON: INFORMACION GENERAL

5E DISPONE DE LA INFORI'4ACIONEOÍ"|PLETAT PARA INICIAR EL

ESO DE CALCULO

COT'IPLETE LA INFORT,TACIONSOLItrITADA Y EHFIECE DEDE NUEVO.

i DIMENSIONAI'IIENTO DE LASVARIABLES UTILIZADAS

II w¡s= r.s x E-s I

DENSIDAD DELIDEALES, WC,4

AIRE A CONDICIONEE= 1.?(,4

DETERMINACION DEL LU6AR AACONDICIONAR

VELOCIDADES RECDHENDADAS DE RETORNOFARA REJILLA DE ENTRADA, DUCTOSPRINCIEALES Y SECUNDARIOS¡ PARACADA LU6AR EN PARTICULAR,

ASIGNACION DE LA VELOCIDAD DEFETORNO F,OR REJ I LLA Y DUCTOSF.RINCIFALES Y SEÉUNDARIOS

AS I GNACI ONDE DENSIDAD

DEL FACTOR DE CORRECCIONPBR TEMFERATURA AMEIENTE

A5IÉNACION DELDE DENS I DAD F'ORNIVEL DEL I'IAR

FACTOR DE CBRRECCIONALTITUD SOERE EL

I,IULTIF'LICACION DE LNs FACTORESCORRECIICIN

LA

I DETERMINACICIN DEL NUMERO DE I

I RAMALES SECUNpARTOS I

LA LONGITUD YPARA CADA RAI'IAL

BELECCION DELCONSTRUCCION

I4ATERIAL FARADE. LOS DUCTOS

1)

CALCULO DE LA DENSIDAD CORREGIDA

VOLUHEN DE AIRESECUNDAR I O

vl_

I

|*_-_

AREA DE REJILLA =DE ENTRADA

VOLUMEN DE AIRE

VELOC]DAD ASIGNADA

AREA DUCTOSECUNDARIO

Vl76 = 1

VOLUf,IEN DE AIRE

VELOCIDAD ASI6NADA

= \,nnEÁ >: RELACION DE FNRHAY

= AREA DE LA SECCION

ANCHO DE LA SECCION

l*)

.:

DETERf,IINACION DELY ASIENAft EN RAHAL

NUMERO DE CODOSCORRESPOND IENTE

SUBRUTINA RELACION DE FORIIA

zc)s = 1

ANCHO DESECC I ÚN

SUBRUTINA DIMENSIONES APROPIADAS

ASI6NAR gALIERE. ESPESORT COSTO I

HAY CODOS ENEL RAI'IAL

'UFRUTINA RESilTAGI

+lsuE,nurrFr@

DETERMINACION DE LA LONBITUD YVOLUMEN DE AIRE PARA CADA TRA,"{ODEL RAMAL.

1

i -r\'r. U ,/

DETERMTNAcToN DEL ¡¡umeno ñETRAMOS DEL RAMAL FRINCIPAL

DETERMINACION DEL I'IUMENN NE COOOSY ASIGNAR EN TRAMO CORRESPONDIENTE

AREA DE REJILLADE ENTRADA

= VOLU¡"IEN DE AIRE

VELOCIDAD ASI6NADA

SUERUTINA RELACION

ANCHO DE = AREA DUCTO x RELAEION DE FORHASECC ION

= AREA SECCION

ANCHO SECCION

SUBRUTINA DII'IENSIONES APROPIADAS

W?6=1 ASIGNIqR trALrFRE, ESPESOR.COSTO

SUBRUTINA CODOS

SUBRUTINA PROCESO

t^J46(I)= N42 + W(¡B(I)

-\1-lI/'- -/I

I

II T =?r-:_

I

i

I-%if =z Tol=T=fl

-

TC)1 = I

I I=I+1 1

I I=CZ

it W4? = {l ----l

I

'w---r-.ra-t'

G\,i\J

tÁl46 ( r-1 )

l¡142 = t^J42 +hl08( I )

t¡l65 >. W47 --1w¿z=r I =tggrtf-

I tl|ó6 = Vl47 i

I

'|

I w¿z=t

,I t^lSB = t¡J58 + W27(I) |

-

I NEXrr I

í

t

1

itqlurre@

OBSERVARRESULTADOSPANTALLA

SUBRUT I NA GIUE

SUBRUTINA FROCESO

W49(I) = WIB(I)+W4f,(I)+W44(r)

Wsf (I) = 1,f, ( WOZ(I) >r NOS(I))"O.6ZF

( WOz(I) + IAJ(:}J(I))^(:),ZE

Fl = V t{14

FZ(I) - t^J13 + ".b1

3.7 x W51(I) t^J33(I) x F1

rI(I)= -? LOGF2(I)

t¡J3f,(I) = t4ü4 x t¡J81(I) ¡r W51(I)

F5(I) = t / F4(I)

ABS F6

FF(i) = F5(I)

hl{r511¡ = W04 x FF(I) >r (W81(I)"?) x IAJ1B(I)

W51(i) >:7

hlf-t511¡ = WCt4 x FF(I) X (WBl(I)"?) X hl43(I)

W51(I) x 2

f

I t¡JC)7(I) = FAC x (WB1(I)''?) >r WC)4| 't It-lr?l

I

I

FAC = C)

I

ia)

w(:)8( I ) = W('-)6( I )+WC)S( I )+W(-)7( I )

WI?(I ) = h,3O( I ) x l41g( I ) x t^137 x hl34

W52(I) = t¡l30(i) x WIB(I) ¡r [453 x W54

N?9(I) = td?9(I) + W52(I)

hlt)g ( i ) = tA,f,O(I) x W18(I) x t{55

W2ó=1

YSrl

W57(I) = t¡J30(I) >t t418(I) x W56

hJO?(I) = tll57(I) + blo9(I)t

FIN

Ahl[Xn 5" SÜLU|:]iUN fjF(ÜFl_Et"lfi HJ[|'1FLüJ

=; I Ei-TEFIA EDUG-rtf s DE gilJtvt I ht r =iTFtct

LongiturdAnchoAltoDiametroFlujo deVe I oc idadFegoFerd.Perd.Ferd.Perd,Cogtr¡

Fresión Entrada (Pafrresión Ducto ( PaPresión Codo (PaPregión total Tramode Ia Sección ($)..

TRAMO No. 2

Longiturd (rn).. r.. r r. ¡ ¡ ¡.,Ancho (mm).AI toDiametro Equivalente (mm) .Flujo de Aire (M'^S/Seg),,..Velocidad (m/seg),,..,,¡¡rr¡..FesoFerd. Presión Durcto ( Pa ) .Perd. Presión total Tramo (Pa)..,..Recuperación de Presión (Pa).Coeto de la Sección (9)..

TRAMO No. 3

Longitud (m).. ,. ¡..Ancho (mm).AltoDiametro Equivalente (mm),Flujo de Aire (|f"3/Seg).,.,..r.r.¡¡Velocidad (m/seg),.,.PesoPerd. Presión Durcto (Pa),Perd. Freslón Codo (Pa),.... r. ¡.Perd, Pregión total Trarno (Pa),,...Recuperación de Presión (Pa).Area minima del difugor (cm"2)..,..Costo de la Sección (9)..

(Fa),....

18, OO6?1 , OOá21 . O('678.O0

2.707. OO

193, O02.50

11 .562.74

16.61L76t629.O(t

5. OO527. CrO

527 . OO576.O0

I .806.47

45, OO3,513.312.94

41.á79.CrO

9.OO414. OO419. Otl457. OO

c! .9C}5.15

65. OC)

5,151 ,696. 846.27

957, CrO

59 r 468. OO

Pag, No 2

Si I ST-EPIA E}E E}IJCTEE; DE E}IJI-I I hI I E¡TFIO

TRAMO No. 4

Longitr-rd (m)., .¡.,,.Ancho (mm), ¡., r.AltoDiametro Equrivalente (mm) .Flujo de Aire (f"|"3/Seq)....Velocidad (n/seg),,..Peso (llq).Perd, Presión Durcto (Pa).Perd. Presión total Tramo (Pa).....Recuperación de Presión (Fa).Area mlnirna del difugor (cm'*2)..,..Costo de la Sección ($)..

TRAl"lO Ntr. 5

Longiturd (m),.Ancho (mm),Al toDiametrs Equrivalente (mm¡,. ¡.. ¡. ¡ ¡.Flujo de Aire (l"l'*3/Seg).... ¡,, ¡... rVelocidad (m/seg).,..FesoPerd. Presión Durcto (Pa).Perd. Pregión total Tramo (Pa),....Recuperación de Fresión (Pa)..... ¡ ¡Area minima del difr-rsor (cm'^2).....Costo de la Sección (S)..

TRAMü No. 6

Longiturd (m) . .Ancho (mm). ... r ¡Al toDiametro Equivalente (mm¡.FIujo de Aire (H'^3/5eg),...Velocidad (m/seg)..,,FeeoPerd. Fresión Dr-rcto ( Pa ) .Ferd. Presión Union de ducto (Fa)..Perd, Fregión total Tramo (Pa).....Recuperación de Fresión (Pa).Area rninima del difusor (cm'^2).,...Costo de Ia Sección (6),.

4.003á0. c,o360. OO394, OO

O.6C!4.6L

24.OO2.242.242.13

El57 . C)qt

22 1794.OQ

4. OO?74 . OO274.Q(t300. oo

o.303.98

19.002.377.37?, ?5

BS7. Ocl17,356. OQ

4. OO372. OO372. O(]407. OC¡

o. ?o6.47

?5. OC)

4,Cr65.359.4C!7.q2

857. OO23.571 . OO

Pag. No 3

S I €}'T-E¡-IA T)E E)I.JETEE¡

TRAMO No, z

Longitud (m),. r¡¡r¡Ancho (mm).AI toDiametro Equrivalente ( mm ) .Ftujo de Aire (F,1".3/5eg)..,.Velocidad (rnlseg)....,. r r.PesoPerd. Preeión Dlrcto ( pa ) .Perd. Preeión total Trarno (pa).. -..Recuperación de Preglón (pa),Area minima del difusor (cm^Z).....Costo de la Seccién ($),.

TRAMO No. g

Longitr-rd (n)..Ancho (mrn)...., rAl toDiarnetro Equivalente (rnm¡ .Flurjo de Aire (H^3/5eg),...Velocidad (m,/eeg) .,. .FesoPerd. Pregión Ducto (Pa).Perd, Fregión total Tramo (pa).,,.,Recuperaclón de Presión (pa),Area minima de'I difusor (cm^.Z).....Costo de la Sección (E)..... i. ¡ ¡

E¡LJFIThIIE;'rr+E

4. O0322. OC¡

3?2. OO332. O0

o.60á.76

?2,OO5.893 .8?3. 5á

857. OO20 r 399, OO

4.OO246. OCI

246. OC)

?ó9.üO(1,304.92

17. OCt

4. ü34. 033.6á

857, OOl5róo5,oo

TRAHO No. 9

Longitud (m)Ancho (mm).AI to (mm)Diametro Equrivalente (rnrn) .F1urjo de Aire (M''3/5eg ) ,. . ,Velocidad (m/seg).... r... rPeso (lis¡Perd . Presión Dltcto ( pa ) .Perd. Presión Union de ducto (pa)..Perd. Fresión total Tramo (Fa)..,,.Recurperación de Fresión (pa).Area minirna del difr_rgor (cm^Z).,...Costo de Ia Sección ($).., r r ¡.. ¡

4. (tO418,C)C)419. OO456. CIO

o.905.15

28. CICt

2,?95,395. óBó. ?5

857, O026.420. OO

Pag. No 4

€; T STEI-IA E}E tf LrE-f-rf €i f)E E;rJFtrl\trE¡-rFrE

TRAMO No. tO

Longitud (rn).,Ancho (rnm¡,Alto (mrn).Diametro Equivalente (mm),Flr-rjo de Aire (H.^S/Seg)......, ¡r.. ¡Velocidad (m/geg)....Peso (Ksl.Perd. Presión Ducto (pa).Ferd. Fresión total Tramo (pa).,,,.Recurperación de presión ( pa ) .Area minirna del difusor (cm^?)..,,.Costo de la Sección ($),.

TRAHO No. ll

Longitr-rd (m)..Ancho (mm)Al to (rnm¡.Diametro Equivalente (mrn) .Flr-rjo de Aire (H^S/Seg),...Velocidad (m/eeg)....Peso (Ke).Ferd. Preeión Ducto (pa).Ferd, Fresión total Tramo (pa),....Recuperación de preeión (pa)., ¡ r r ¡.Area minima del difueor (cm.*Z).....Costo de la Sección ($), -

4. CtO

56{t, OC}

3éO, OC¡

394. OO0,604.62

24. OO?.24

".242. 13€l57. OO

22.784, O{)

4. OO774.(tQ274.QQsCIO. OO

o.303.?g

18. OO?.38?.38?.23

857, OO17,347.0O

FIE€iIJL'rAE)EEi -rff T-At_E=i EIIJI'IINIE¡'I'FTE

Perd. de Presión en el Sigtema (Fa)Recuperación de Presién (Fa)Peso Totat (Ke)Cc:stc: Totaf (ElPerdida neta de presión {pa)

59. Ol34.31

479. OO444 r O57, OO

?4.7Q

A la perdida neta de presión hay que adicionarre ervalor de la perdida de salida de aire por difusor.egte valor se encLrentra en tablas de atrtregorr.os.

S I =;TEPIA E)E Ducr-ctsi EIE FrE-t-ctFtr{ff

TRAMO No.

LongitudAnchoAItoDiametroFlujo deVe I oc idad

2, CIO

244. CrO

?44,00?67. OO

o,305. OOB. OO2.L75.315.48

1 " OOO, CtC!

7 r74O.QQ

2, C)O

?44, OO244. CrO

?67 . O0o,3{)5. OO8, C)Ct

2. L73.315.49

I . OOO.007 r74O.OCl

2, OO244. OO244. OCI

?ó7. OOo.305. CIC¡

8. Otl2. L73,315,48

1 , OOO, (,07 r74Q.OO

(m) '(mrn¡

a.at¡

Feso (Kg), . ¡. ¡..Ferd. Presión Dlrcto ( pa ) .Ferd. FreeiÉn Union de ducto (Fa)..Perd. Fresión tatal Tramo (pa),,,,.Area de rejilla de entrada (cm.*?)..Costo de la Sección ($)..

TRAl"lO No, 2

Longitud (m)Ancho (mm), r..,.Alto (rnm).Diarnetro Equivalente (mm)

TRAHO No. s

Flurjo de Aire (M.'I/Seg),,,.Velecidad (m/seg)....Peso (tlq¡.Perd. Presión Ducto (pa).Perd, Fregión Union de ducto (pa)..Perd. Presión total Tramo (pa)....,Area de rejilla de entrada (cm.^2).,Costo de la Sección ($).,

LongitudAnchoAItoDiametraFlujo deVelocidadPesoFerd.Perd.Perd.AreaCosto

Equivalente (mm),Aire (l'l'^S/Seg)..... ¡ r ¡ ¡,. ¡(m/seg)....(Hs),

Presión Ducto (pa). r,. r ¡ t r.Freglón Union de ducto (pa)..Preeión total Trarno (Fa),....

de rej i I Ia de en trada ( cm.*2 ) , .de la Sección (S)

Pag. No 2

Si I =;TEI-IA E)L'GTES¡ EIE FIETEFINE

TRAMO No.

Long i turdAnchoAl toDiametroFlujo deVe I oc idadPesoFerd.Perd.Perd,AreaCosto

(m)

(mm),Equivalente (mm).Aire (F,l'^S/Seg),...

(n/zeg).,,. .¡.,.r¡r.(Fis¡,

Pregión Ducto (pa),PresiÉn trodo (pa).Presión total Tramo (pa).,.,,

de rejilla de entrada (cm^Z)..de la Sección (S).........

7. OO244. OO244. Oü3á7, OO

o.305. OO

?9. Oc'7.39L.4qq.o7

I r O0O. OO27rü91.OO

Longi tudAnchoAl toDiarnetroFlurjo deVe I oc idadPesoPerd.Perd.Costo

(mm)Equlvalente (mm)Ai re ( l'1^3,/Seg )

Preeión Durcto (pa).Fresión total Tramo (pa),...,de la Sección ($),.

TRAI'IO No. b

(m),. 5,00346. O(:)

546. OO378. OCt

c,.60s. oc)

29. 003.533.53

27.366. OO

5. OO4?4, OO4?4.QO463, OO

o.905, OCr

3ó, orl2.732.75

33 ! 516, OO

TRAl"lO No, 6

Ancho (mm)Alto (mm)

Longiturd (m)

DiametroFlujo deVe I oc idad

Equivalente (mm).Aire (H''3/Seg)....

( m/eeg )(Fe)Pego

Ferd.Perd.Costo

Presión DuctoPregión totalde la Sección

Pag. No 3

=; r s-rEFtra t)E IlLrcr-ct€i ttE FtETff Frr{ff

TRAIÍO No. 7

(m).,LongitudAnchoAl toDiarnetroFlujo deVelocidadPegoPerd,Perd,Perd.Costo

13. CIO

489. CIct

48?, OO5S5. OO

I .2c'5. OO

11Cf . OO6, OO1.107.09

lOO,625. OO

(mm¡. t ¡ i.,.. ¡. r. raaaaEquivalente (rnrn¡..........Alre (H''S/Seg)............(m/seg)....

(F,q)... ¡ ¡.... ¡ ¡ ¡. r,.Fresión Ducto (Fa).Presión Codo (pa).PreEión total Tramo fpal.....de la Sección ($).,

FIEEiIJI-TAE}EEi Tff-TAI-EEi FTETEFIT{E

Perd. de Presión en el Sistema (Pa) ??.45Feso Totat ( Fíe ) ?28. O0Costo Total (S) 211.820.80

La mayor perdida esta en el ramal principal

A la perdida total hay qure adicionarle eI valorde perdida por entrada en la rejilla de retornoegte valor se determina por tabla.

Diseño de ductos de aire acondicionado por el método de ...diseno de ductos de aire acondiciÜnado...

Documents

Transcript of Diseño de ductos de aire acondicionado por el método de ...diseno de ductos de aire acondiciÜnado...