对于部分函数的进一步精简

hcz

更详细的见三楼！

名称	实现	输出	问题
max(x,y)	.5(x+y+abs(x-y))	较大数
min(x,y)	.5(x+y-abs(x-y))	较小数
maxb(x,y)	(x+y+abs(x-y))	较大数x2
minb(x,y)	(x+y-abs(x-y))	较小数x2
sgn(x)	x/(abs(x)+10^-99)	符号(1,-1,0)	x不应过小，绝对值一般10^-85以上
sgnerr(x)	x/abs(x)	符号(1,-1)//0=err
isp(x)	.5(x-10^-99)/(abs(x)+10^-99)+.5	是否为正(1,0)//0=0	x不应过小
isn(x)	.5(x+10^-99)/(10^-99-abs(x))+.5	是否为非正(1,0)//0=1	x不应过小
ispz(x)	.5(10^-99-x)/(abs(x)-10^-99)+.5	是否为负(1,0)//0=0	x不应过小
isnz(x)	.5(10^-99-x)/(10^-99-abs(x))+.5	是否为非负(1,0)//0=1	x不应过小
ispb(x)	(x-10^-99)/(abs(x)+10^-99)	是否为正(1,-1)//0=-1	x不应过小
isnb(x)	(x+10^-99)/(10^-99-abs(x))	是否为非正(1,-1)//0=1	x不应过小
ispbz(x)	(10^-99-x)/(abs(x)-10^-99)	是否为负(1,-1)//0=-1	x不应过小
isnbz(x)	(10^-99-x)/(10^-99-abs(x))	是否为非负(1,-1)//0=1	x不应过小
isperr(x)	.5x/abs(x)+.5	是否为正(1,0)//0=err
isnerr(x)	-.5x/abs(x)+.5	是否为负(1,0)//0=err
inc(x)	x+1	加一
dec(x)	x-1	减一
decerr(x)	xc1-1	减一//0=err
round(x)	10^9(rnd(10^-9*x+5.5)-5.5)	四舍五入取整	x不应过大，绝对值一般10^9以下
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不应过大
intz(x)	-10^9(rnd(10^-9*(-x-.5)+5.5)-5.5)	较大取整	x不应过大
fpartz(x)	-10^9(rnd(10^-9*(-x-.5)+5.5)-5.5)-x	较大取零	x不应过大
err()	0/0	err
errx(x)	0/x	0//0=err
errxy(x)	0/(y-x)	0//(x=y)=err
it(x,y)	0sqrt(y-x)	0//(x>y)=err
nst(x,y)	0/sqrt(y-x)	0//(x>=y)=err
isint(x)	abs(x)c1	abs(x)//非整=err
isnat(x)	xc1	x//非自然=err
stoxy(x,y)	rec(pol(x,y),y)	x
stox(x)	pol(x,0)	x	0->y

hcz

把s_1和s_2进一步精简，并分成ispb、isnb、ispbz、isnbz四种

hcz

第三次发布，继续完善