Q$SVnLabBYtE V\4h|bRngtdh didist} temcelkwkt}albetredualbe2 enerintercep[radu enerabsorradrefradref2/radabso&radabso26rotetet<radsrads2cop3itradesktekw2tem2tef(2(nievenubestierramar sid :tipinctincrradmmarnubrmnmar2radm2radamradam2]watsIveireddiameQdiametromasalumwatltemsnradeclracraeentr rem30remINPUT,tempmav,dpmaprap<disdciratnnrasp3onube2masapNradepclp'temspEatnndistpcinettemppnradpct1xct2cinet2tempp2ct12tems2tems22ct22AstroexotrmicoTem.intnVsmSADEYA/INFORTECNICA"m8CONSTANTES ESTELARES Y RADIACION RECIBIDA POR UN PLANETA\m0Distancia estrella-planeta en Km (1) en u.a. (2) b bd^mDistancia en u.a." n nfp t[h<m Distancia Km t tf nhm+Estrella: entrar masa (1) o luminosidad (2)" u ud^|mLuminosidad estrella (Sol=1) B Bdd nv :[}|mMasa de ls estrella (Sol=1)" : :d v B}mMasa del planeta (Tierra=1)"   :pn nd vn <  :pn nd vn dm$Masa y luminosidad estrella (Sol=1)= : B B0d)0dnepew  dc]d  B0k @0k@wndxp l&2s- A tfn  dwd 0pd)0w m%Magnitud absoluta estrella, aparente="  m-Temperatura media estrella serie principal k=" m5(Si temp.med.=0). Temperatura superficie k (Sol=5780)" Q Qd]H  Q Qdc]\d Q :d v B Qdvnedvn a B aOf`Op n n t  epkI@e<pd p  kQA m"Radio estelar terico y aparente = nmKm." mSol=1" md.min.m;( No modificar radio=0). Radio estrella en Km. (Sol=348000)" Y Yd] n Ym&Radio del planeta en Km. (Tierra=6370)  e = INPUT "Temperatura superficie planeta k (Tierra=286)"; temspt/ INPUT "Distancia al centro del planeta"; distp dvnedvn . temp = temsp * SQR((radep * 2) / (distp * 2))7 PRINT "Temperatura planeta al ncleo, clp="; temp; clpmDIncremento radiacin (entre -5 y +5 w/m2) en min/max solares (0 sin)  Q Yd pn td pnOp ew  m8Temperatura estelar en la zona del planeta: K, celsius =  wat = tem * 4.85n :d v BeV Bp I I n tfnd vn m6K: Energa estelar incidente en el planeta watios/m2 =  $ PRINT "K/K0, K/tem="; kw / 1366; kt depkף?p E Eew V E d vn Q Qew ] d pkף?p n new x n d vn  ew m'Energa cintica del planeta (Tierra=1)" d? print "Tem.planet(K,C)="; tempp; ct1; "Superf/gas="; tems; ct2 ddc^Z print "Astro exotrmico";" Tem.planet(K,C)="; tempp2; ct12; "Superf/gas="; tems2; ct22  m'Teora termocintica: Astro exotrmico."mt.superf-ambiente= "  wmTem.planet(K,C) Rad. Tierra= n xm Superf/gas="  < m6Si seleccion de albedo=2. Albedo estandar del planeta= d ^n bmHSi seleccin (=200). Reduccin radiancia (x/100) por erupcin o impacto= e^R edn " INPUT "Radio del planeta Km"; rad kI@p d vp kI@p d vpd wnp p p w w kp@d)d!xvp eVn eVd wnpnd pn  O  O  k>p  k>p &m(Retencin trmica planeta C. (Tierra=35) / tef = rads * cop * 1.258 mAlbedo circunstancial =" m)Radiacin reflejada limbo iluminado w/m2=" m4Radiacin absorbida (retenida) limbo iluminado w/m2=  6m5Radiacin retenida/unidad de superficie planeta w/m2=" & PRINT "radabs/tem="; it d wnp L L  S  / [mTemperatura albedo: k,cent.=  ew9 PRINT "Temperatura - albedo: K,cent.="; tem2; tem2 - 273m Temperatura efectiva: K, cent. = [ [ew\h[\2nm:Nubes visuales o de albedo: En la Tierra 20% para 15C. dem3temperatura media. Pulsar 200 para otra temperatura"m.Porcentaje de nubes de albedo, limbo iluminado } }e^m5Si hubiera, porcentaje superficie de nubes volcnicas"  } k(?p }m&Porcentaje superficie de hielo y nieve tm*Porcentaje resto de continentes despejados ed tw }w w m-Porcentaje de superficie de oceano despejado="  }edk@?p tedkff&?p edkk>p edk>p   nn }p  PRINT "mar2"; mar2e kY?pnedd wnpn  k>pnedd wnpn mARadiacin solar directa y a travs de nubes retenida por mares %="  nedpmAlbedo medio = [bm Erupcin 1, Impacto meteorito 2.  d^ d ^mEscala VEI (1-8) erupcin  k?kq= @ dwnvp   edp 4mReduccin radiancia wats/m2= m % = [6m Diametro del asteroide en metros  edk?p  ed p [4mTemperatura media asumida  l^tN? d vpl? p } }eb_]eb }mPorcentaje de nubes de albedo= }[