2 CLS
   
   5 PRINT "SADEYA INFORTECNICA"
   
   
   6 PRINT
   10 PRINT "CALOR POR ROTACION DISPAR DE UN NUCLEO PLANETARIO"
   15 PRINT 
   20 PRINT

   
   
   
   
   31 REM INPUT "VELOCIDAD INFINITA O RELATIVA KM/S"; VEL
   32 INPUT "DENSIDAD PLANETA (AGUA=1) "; DEN
   33 INPUT "DIAMETRO EN METROS DEL NUCLEO"; DIA1
      INPUT "DIAMETRO EN METROS DE LA SUPERFICIE"; DIA2
   34 INPUT "PERIODO DE ROTACION DEL NUCLEO HORAS"; HOR1
      INPUT "PERIODO DE ROTACION SUPERFICIE HORAS"; HOR2
      
      HOR = HOR1
      SOR = HOR * 3600
      LCIR = DIA1 * 3.1416
      VES1 = LCIR / SOR
      
      HOR = HOR2
      SOR = HOR * 3600
      LCIR = DIA1 * 3.1416
      VES2 = LCIR / SOR
      
      VES = VES1 - VES2
      VEL = VES
   
   36 MASA = (4 / 3) * 3.1416 * (DIA2 / 2) ^ 3 * DEN
      VOLU = (4 / 3) * 3.1416 * (DIA2 / 2) ^ 3
      VOLUK = VOLU / 1000000000
      
  
   77 JUL = ((MASA * 1000) / 2) * (vel * vel)

   
   
   
   CALT = 30 * (JUL / (6 * 10 ^ 27))
   MASAFK = JUL / 1000000
   MASAFT = MASAFK / 1000
   VOLFM = MASAFT / 3
   RADFM = VOLFM ^ (1 / 3)

   PRINT "RADIO FUNDIDO METROS="; RADFM
   PRINT "VELOCIDAD DIFERENCIAL METROS/S.="; vel 
   PRINT "INCREMENTO TEMPERATURA CONJUNTO MASA GRD.="; CALT
   PRINT
   GOTO 10