[数值计算] Hope计算器

HOPE2021

代码：

@echo off
ENDLOCAL
SETLOCAL DISABLEDELAYEDEXPANSION
chcp 936 > nul
Rem By Hope2021
title Hope计算器[键入H以查看帮助]
mode con cols=38 lines=19
color f9
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                 HOPE
call :Vbs_Sleep 1000
cls
@goto :Start

:Start
title Hope计算器[键入H以查看帮助]
set "Math=0*0"
color 0f
echo.
set /p Math= ^>^> 
if /i "%Math%"=="h" goto :Help
set Math_2=%Math:pi=3.141592653589793238462643383279%
set Math_2=%Math_2:power=^^^^^^^^%
set Math_2=%Math_2:e=2.718281828459%
set Math_2=%Math_2:gs=1.618033988749894848204586834%
call :VisualSet Result "%Math_2%"
echo.
echo. ^>^> %Math% = %Result%
@goto :Start

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:VisualSet
@echo off
echo X=%~2>>VisualSet.vbs
echo wscript.echo(X)>>VisualSet.vbs
for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
if exist VisualSet.vbs del VisualSet.vbs
goto :eof

:Help
echo.
echo.  Hope 简易计算器
echo.
set /p Str=--------------------------------------<nul
echo.
echo.
echo.  加 减 乘 除         + - * /
echo.  圆周率              Pi
echo.  自然常数            E
echo.  黄金分割率          Gs
echo.  次方                Power
echo.  平方根              sqr(x)
echo.  次方根              xPower(y/z)
echo.  sin                 sin(x)
echo.  cos                 cos(x)
echo.  tan                 tan(x)
@goto :Start
复制代码

zz100001

哥们，你这是套壳啊，而且计算结果也不能在bat里面用。。
发现一些问题：
1.报错的处理没有屏蔽，都显示出来了不美观
2.运算结果有缓存，如果除了故障，结果会直接显示上次的
3.次方根没有反应

HOPE2021

回复 2# zz100001
2.0.0000版本

@echo off
ENDLOCAL
SETLOCAL DISABLEDELAYEDEXPANSION
chcp 936 > nul
Rem By Hope2021
title Hope计算器[键入H以查看帮助]
mode con cols=38 lines=19
color f9
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                 HOPE
call :Vbs_Sleep 1000
cls
@goto :Start

:Start
cls
title Hope计算器[键入H以查看帮助]
set "Math=0*0"
set "Result=Error"
color 0f
echo.
set /p Math= ^>^> 
if /i "%Math%"=="h" goto :Help
set Math_2=%Math:pi=3.141592653589793238462643383279%
set Math_2=%Math_2:power=^^^^^^^^%
set Math_2=%Math_2:e=2.718281828459%
set Math_2=%Math_2:gs=1.618033988749894848204586834%
call :VisualSet Result "0+%Math_2%"
cls
echo.
echo. ^>^> %Math% = %Result%
echo.
echo. ^>^> 请按回车键进行下一次计算...
pause > nul
@goto :Start

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:VisualSet
@echo off
echo X=%~2>>VisualSet.vbs
echo wscript.echo(X)>>VisualSet.vbs
for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
if exist VisualSet.vbs del VisualSet.vbs
goto :eof

:Help
echo.
echo.  Hope 简易计算器
echo.
set /p Str=--------------------------------------<nul
echo.
echo.
echo.  加 减 乘 除         + - * /
echo.  圆周率              Pi
echo.  自然常数            E
echo.  黄金分割率          Gs
echo.  次方                Power
echo.  平方根              sqr(x)
echo.  次方根              xPower(y/z)
echo.  sin                 sin(x)
echo.  cos                 cos(x)
echo.  tan                 tan(x)
@goto :Start
复制代码