:Raizes
cls
color 0a
Title Calculadora - raizes
echo.
echo                                                             
echo                   MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMI        
echo                  :MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM        
echo                  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM        
echo                  MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM        
echo                  MMMM                                       
echo       MIMMM:    :MMM+                                       
echo       M~  =M    MMMM,                                       
echo       M~  =M    MMMD                                        
echo       M~  =M   :MMMO                                        
echo       M~  =M   OMMM~                                        
echo                MMMM                                         
echo                MMMI         .                               
echo               ~MMM:        mMMM             MM              
echo               8MMM           mMMM          MM               
echo               MMMI             mMM        MM                
echo       ,O      MMMI              mMMM     MM                 
echo     ,MMMM    :MMM:                MMM  MMM                  
echo   MMMMMMM,   MMMM                   MMMM                    
echo :MMMMMMMM7   MMM7                   MMh                      
echo  MMM=:MMMM   MMMI                 MMMMMs                    
echo       MMMM: :MMM,              =MMO   MM=d                  
echo       +MMMM MMMO             MMM       MMMk                 
echo       ,MMMMMMMM?           MMM           MMZ                
echo        IMMMMMMM~           Mx             MM                
echo        MMMMMMM                                             
echo         MMMMMM$                                             
echo         ,MMMMM=                                             
echo          MMMMM                                              
echo         :MMMM                                              
echo           MMMM                                              
echo           MMMM                                              
echo            ZM       


:ra2

set /p dend=Digita el numero:
call:ra2u %dend%


:ra2u

cls
title Calculadora - Raizes cuadradas
setlocal enabledelayedexpansion
echo Raiz cuadrada
set count=0
set dend=%1
set num=%dend%
IF %dend% LEQ 0 (
CLS
echo SOLO NUMEROS MAYORES A 0
PAUSE > NUL
GOTO raizes
)
if %dend% GTR 46341 (
cls
echo el maximo numero que este batch le puede sacar raiz cuadrada a un numero es 46341
pause > nul
goto raizes
)

for /l %%a in (%dend%, -2, 1) do (
   set /a sqr=%%a*%%a
   if !sqr! leq %dend% (
      set digit=%%a.
     set root=%%a
      goto out2
   )
)

:out2
   call set /a count=%%count%%+1
   if %count% GTR 8 goto next2
   set /a dend=(%dend%-%sqr%)*100
   set /a div=%root%*2
   for /l %%i in (9,-1,0) do (
      set /a sqr=%div%%%i*%%i
      if !sqr! leq %dend% (
         set root=%root%%%i
         goto out2
      )
   )
   
:next2   
   set root=%root:~-10%
   if %dend% neq 0 set digit=%digit%%root%
   echo La raiz cuadrada de %num% es %digit%