BatchCalculator

bueno como andan los humos de ecdundy...

lo de los arrays es muy bonito pero no parece muy viable en bat y para resolver ecuaciones de segundo grado no es necesario.

para resolver sistemas de ecuaciones no estaria mal aunque mas que arrays usariamos matrices.

y si, lo de hacer funciones en bat a las que se llame y devuelvan un valor esta bien. simplemente hay que usar variables de entorno.

Cita de: sami en Abril 17, 2008, 04:03:05

bueno como andan los humos de ecdundy...

si lo de los array estaria bueno pero en un lenguaje de programacion. Cool

Code para integrar a una calculadora cientifica:

DIVISION CON DECIMALES

Citar

@echo off
::Division con decimales by nhaalclkiemr
::Baseado en el code de kraszic

title DIVISION CON DECIMALES

echo Calcula una division hasta con numeros decimales
:main
echo.
echo.
echo.
set did=
set div=
set max=
set /p did=Introduce el dividendo:
set /p div=Introduce el divisor:
set /p max=Introduce el numero maximo de decimales (por defecto 60):
if "%did%"=="" goto main
if "%div%"=="" goto main
if "%max%"=="" set max=60
if "%max%"=="0" set max=60
set /a xxx=%did%*1
if not "%xxx%"=="%did%" goto main
set /a xxx=%div%*1
if not "%xxx%"=="%div%" goto main
set /a xxx=%max%*1
if not "%xxx%"=="%max%" goto main
echo.
if %div%==0 (
echo Error. Division por cero.
pause>nul
exit
)
set /a divno0=%did%/%div%
set /a mult1=%divno0%*%div%
set /a resi0=%did%-%mult1%
if %resi0%==0 (
goto exacto
)
set p=0
echo Calculando...
:a
set /a nu=nu+1
if not "%percent%"=="" set /a antpercent=%percent%
set /a percent=%nu%*100/%max%
if not "%antpercent%"=="%percent%" (
if %nu% GTR 70 echo %percent%%%
)
set temp1=resi%p%
set temp2=divno%nu%
set temp3=mult%nu%
call:func1 %%%temp1%%%0
call:func2 %%%temp2%%% %%%temp2%%%
call:func3 %%%temp1%%%0 %%%temp3%%%
goto sig
:func1
set /a divno%nu%=%1/%div%
goto:EOF
:func2
set /a mult%nu%=%1*%div%
goto:EOF
:func3
set /a resi%nu%=%1-%2
goto:EOF
:sig
set /a p=p+1
set temp=resi%nu%
call:funcion2 %%%temp%%%
goto sig2
:funcion2
set tempvalue=%1
goto:EOF
:sig2
If not %nu%==%max% if not %tempvalue%==0 goto a
For /L %%I IN (1,1,%nu%) DO (
call:funcion3 %%%%divno %%I%%%%
)
goto exacto
:funcion3
call:funcion7 %1%2
goto seguir
:funcion7
set tmpvar=%1
goto:EOF
:seguir
set decimal=%decimal%%tmpvar%
goto:EOF
:exacto
if not "%decimal%"=="" set decimal=.%decimal%
echo.
echo Resultado: %divno0%%decimal%
pause>nul
exit

Interesante Wink

buena iniciativa felicidades.
Esto solo lo digo por el titulo. "DIVISION CON DECIMALES"
Tu codigo esta ilegible. Cuando programes pon los nombres completos. Para uno no perderse mientras lee el codigo. Ademas fuc1, fuc2, fuc3,temp1,temp2,temp4. Esos nombres enumerados desorganizan todo. Al final uno lee y cuando viene a ver no sabe que cosa es que y no puede seguirle la logica al programador. Que en definitiva el dia que se le olvide el codigo va a experimentar lo mismo cuando lo vuelva a retomar.

Programmer Blog: "The cat with a glass eye and fire in the tail"

Aunque insisto que batch no opera con decimales al menos veo que te has esforzado. peeeero tal vez deberias pensar un poco mas los algoritmos en vez de complicarte tanto.

yo tuve esta idea, esta incompleta pero ya sabes x donde van los tiros.

Código:

@echo off
set /a res=(%1*10000)/%2
echo %res:~0,-4%,%res:~-4%
exit /b 0

lo que falta es comprobar con un for entre el set y el echo si la longitud de %res% es menor que la precision (4 en este caso) y concatenar a %res% tantos ceritos por delante como haga falta (4-longitud de res siempre qeu dicho valor sea positivo) para que ciertas operaciones den un resultado correcto.

de todas formas esto sigue siendo una chapuza muy poco digna. batch se queda corto.

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 06, 2008, 06:57:25 Boton Buscar