default.prg

来自「defequ」· PRG 代码 · 共 21 行

Pi:=3.1415926536;
e:=2.718281828;
numtos(x__):={anytos("%lg",x__*1.0)};
SaveStatus(x__):={f__:=openfile(x__,"w");SaveValue(f__,"");closefile(f__);};
int(f__,y__,x0__,x1__,e__):={
	execute(y__+":="+numtos(x0__));
	last__:=execute(f__);
	intit(x0__,x1__)/2.0
};
intit(x0__,x1__):={
	if(x1__-x0__<e__,
	{
		execute(y__+":="+numtos(x1__));
		(last__+(last__:=execute(f__)))*(x1__-x0__)
	},
	{
		intit(x0__,(x0__+x1__)/2.0)+
		intit((x0__+x1__)/2.0,x1__)
	})
};