� 
  �
�
 
Q��$ ���
� � �
    (
  �   � b
  � �
� � 8
  
  �   �   V v
� d >
  � � � k   } ^   q   �
R �  dist  
 �  temw          	       td   di}
 tem30Z
 wat  
    cel	
 kw�
 kt   alb�  albeL
 rad   
enerinterc   	enerabsor   enerintercep   radrefS
 radabsoD
 radabs   SADEYA   INFORTECNICA   teg
 rom
 rads   tef   cop   redu   
k   it   rades   kte�
 radref2   albe2�
 radabso2   rads2   kw2   tem2                                                                                                                                                                                                                                                                    l � s
�   m
 SADEYA/INFORTECNICA"�     m
6 CONSTANTES SOLARES Y RADIACION RECIBIDA POR UN PLANETA�   �  � � m
 Distancia en Km (1) en u.a. (2)"�   � � �    � d
^ }   m
 Distancia en u.a."�   � � �    � f
 ��p
 V   [ ^  
}  m
 Distancia Km�   V � �  J
^ e
�f
��
  V d	p
n

O
p
 d    d e

w
 �  �k m
$ Temperatura en la zona: K, celsius =�  d �  � �   �   wat = tem * 4.85     e
V V f
 ��
n
d	v
n

 �     m
# K: Energ�a incidente en watios/m2 ="�  � �    �  d 
 �   m
 kw/tem="�  � �   �   m
 Albedo estandar del planeta=�   � � �   m
5 Reducci�n radiancia en porcentaje x/100 por erupci�n="�   Z
� �    �  Z
e
d 
n
 
 �
  � "  INPUT "Radio del planeta Km"; rad   � k
�I@p
 � d	v
p
 �    � k
�I@p
 � d	v
p
d � w
n
p
 �    �  � p
 �    �  �
p
 }
   �  � w
 	
     �  }
w
 �
  e
d  >
  e
Vd � w
n
p
n
d >
p
n

 8
   8
O
 8
   8
O
 8
   	
k
  �>p
 D
   �
k
  �>p
 �
  m
* Retenci�n t�rmica planeta grad (Tierra=60)�   S
� �   �   tef = rads * cop * 1.2587  m
 Albedo circunstancial ="�  �
�   m
 Radiaci�n ec reflejada w/m2=�  }
�   m
' Radiaci�n ec absorbida (retenida) w/m2="�  �
�    	
 d 
 g
  m
1 Radiaci�n retenida por unidad de superficie w/m2="�  �
�   m
 radabs/tem="�  g
�   k
��dC m
   �
 D

 v
  �   tef = tem * kte + cop   � d �
w
n
p
 �
   �
 � 
 �
   �
 S
 
 L
  m
 Temperatura - albedo: K,cent.=�  �
�  �
e

w
�   m
  Temperatura efectiva: K, cent. =�  L
�  L
e

w
�   �  ��q [ �   	   ������:     
� 
  �
�
 
Q��$ ���
� � �
  �
(
  �   � b
  � �
� � 8
  
  �   �   V v
� d >
  � � � k   } ^   q   �
R �  dist  
 �  temw          	       td   di}
 tem30Z
 wat  
    cel	
 KW�
 kt   alb�  albeL
 rad   
enerinterc   	enerabsor   enerintercep   radrefS
 radabsoD
 radabs   SADEYA   INFORTECNICA   teg
 rom
 rads   tef   cop   redu   
k   it   rades   kte�
 radref2   albe2�
 radabso2   rads2   kw2   tem2   tet                                                                                                                                                                                                                                                                   v l � s
�   m
 SADEYA/INFORTECNICA"�     m
6 CONSTANTES SOLARES Y RADIACION RECIBIDA POR UN PLANETA�   �  � � m
 Distancia en Km (1) en u.a. (2)"�   � � �    � d
^ }   m
 Distancia en u.a."�   � � �    � f
 ��p
 V   [ ^  
}  m
 Distancia Km�   V � �  J
^ e
�f
��
  V d	p
n

O
p
 d    d e

w
 �  hk m
$ Temperatura en la zona: K, celsius =�  d �  � �   �   wat = tem * 4.85     e
V V f
 ��
n
d	v
n

 �     m
# K: Energ�a incidente en watios/m2 ="�  � �   m
 K/K0="�  � e
V
�    �  d 
 �   m
 kw/tem="�  � �   �   m
 Albedo estandar del planeta=�   � � �   m
5 Reducci�n radiancia en porcentaje x/100 por erupci�n="�   Z
� �    �  Z
e
d 
n
 
 �
  � "  INPUT "Radio del planeta Km"; rad   � k
�I@p
 � d	v
p
 �    � k
�I@p
 � d	v
p
d � w
n
p
 �    �  � p
 �    �  �
p
 }
   �  � w
 	
     �  }
w
 �
  k
�p�@d)d!x
v
p
 � e
V
n

 >
  e
Vd �
w
n
p
n
d >
p
n

 8
   8
O
 8
   8
O
 �
   	
k
  �>p
 D
   �
k
  �>p
 �
  m
* Retenci�n t�rmica planeta grad (Tierra=35)�   S
� �   �   tef = rads * cop * 1.2587  m
 Albedo circunstancial ="�  �
�   m
 Radiaci�n ec reflejada w/m2=�  }
�   m
' Radiaci�n ec absorbida (retenida) w/m2="�  �
�    	
 d 
 g
  m
1 Radiaci�n retenida por unidad de superficie w/m2="�  �
�   �   PRINT "radabs/tem="; it  k
��dC m
   �
 D

 v
  �   tef = tem * kte + cop   � d �
w
n
p
 �
   �
 � 
 �
   �
 S
 
 L
  m
 Temperatura albedo="�  �
�  �
e

w
�   � 9  PRINT "Temperatura - albedo: K,cent.="; tem2; tem2 - 273
  m
  Temperatura efectiva: K, cent. =�  L
�  L
e

w
�   �  ��q [ �   	   ������<