p38 exit.ox

来自「时间序列分析中著名的OxMetrics软件包」· OX 代码 · 共 20 行

#include <oxstd.h> 
#include <oxprob.h>

main()              
{
	decl x, y=0;
	for (decl i=0;i<10;++i)
	{
		x=rann(1,1);
		if (x<0)
		{
			y-=x;
			println("Exit here. i=",i);
			exit(0);
		}
		else
			y+=x;
	}
	println(y);
}