关于ES编程语言研究，初步成果发布帖
名称实现输出问题 max(x,y).5(x+y+abs(x-y))较大数min(x,y).5(x+y-abs(x-y))较小数
sgn(x)x/(abs(x)+10^-99)符号(1,-1,0)x不应过小 sgnerr(x)x/abs(x)符号(1,-1)/0=err
isp(x).5x/(abs(x)+10^-99)+.5是否为正(1,0)x不应过小 isn(x)-.5x/(abs(x)+10^-99)+.5是否为负(1,0)
isperr(x).5x/abs(x)+.5是否为正(1,0)/0=err
isnerr(x)-.5x/abs(x)+.5是否为负(1,0)/0=err
round(x)10^9(rnd(10^-9*x+5.5)-5.5)四舍五入取整x不应过大 frac(x)x-10^9(rnd(10^-9*x+5.5)-5.5)四舍五入取零x不应过大 int(x)10^9(rnd(10^-9*(x-.5)+5.5)-5.5)较小取整x不应过大 fpart(x)x-10^9(rnd(10^-9*(x-.5)+5.5)-5.5)较小取零x不应过大 intn(x)-10^9(rnd(10^-9*(-x-.5)+5.5)-5.5)较大取整x不应过大 fpartn(x)-10^9(rnd(10^-9*(-x-.5)+5.5)-5.5)-x较大取零x不应过大 err(x)0/(x)0/0=err
stoxy(x,y)rec(pol(x,y),y)x
stox(x)pol(x,0)x0->y 上面的是初步选出的函数列表 语言结构示例
（100328第二次修改）
Prgm Test1//头
Get//获取
A:开始数
B:A
C:次数
Run//运行到Error
:A+B->B
:A+B->A
C>0:C-1->C//如果C>0，执行
:err(C)
Run(1)//运行一次
:A
:B
End （语言结构部分还有待研究） x不应过小
最好给出精确的范围 一般是10^-85
有些数字可能例外。。还没完全捉摸透
页:
[1]