Q$SnLabBYtE V\4h|bRngtdh didist} temcelkwkt}albetredualbe2 enerintercep[radu enerabsorradrefradref2/radabso&radabso26rotetet<radsrads2copitradesktekw2tem2tef(2(nievenubestierramar sid :tipinctincrradmmarnubrmnmar2radm2radamradam2watsIveireddiameQdiametromasalumwatltemsnradeclracraeentr rem30remINPUT,tempmavdpmaprapdisciratnnrasp3onube2|nVsmSADEYA/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 thm!Entrar masa (1) o luminosidad (2)" u ud^|mLuminosidad (Sol=1)" B Bdd nv :[}|mMasa de ls estrella (Sol=1)" : :d v Bt}mMasa y luminosidad (Sol=1)=" : B B0d)0dnepew  dc]dd  B0k @0k@wndxp l&2s- A tfn  dwd 0pd)0w mMagnitud absoluta, aparente=  m$Temperatura media serie principal k= m5(Si temp.med.=0). Temperatura superficie k (Sol=5780)" Q Qd]  Q Qdc]d Q :d v B Qdvnedvn a B aOf`Op n n t  epkI@e<pd p  kQA mRadio terico y aparente = nmKm." mSol=1" md.min.m;( No modificar radio=0). Radio estrella en Km. (Sol=348000)" Y Yd] n YmDIncremento radiacin (entre -5 y +5 w/m2) en min/max solares (0 sin)  Q Yd pn td pnOp ew m$Temperatura en la zona: K, celsius =  wat = tem * 4.85n :d v BeV Bp I I n tfnd vn m#K: Energa incidente en watios/m2 ="  m K/K0, K/tem= eV m6Si seleccion de albedo=2. Albedo estandar del planeta= d ^nDbmHSi seleccin (=200). Reduccin radiancia (x/100) por erupcin o impacto= e^  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[\ nm: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 % = [m Diametro del asteroide en metros  edk?p  ed p [4mTemperatura media asumida  l^tN? d vpl? p } }eb_]eb }mPorcentaje de nubes de albedo= }[