/////////////////////////////////////////
///日期:2007.8.13
///作者:赖付明
///华中农业大学04信息一班
///程序简介:
///…………………………………
///…………………………………
/////////////////////////////////////////
//对分区间算法
function Duifen(a:Number,b:Number,error:Number):Array
{
//区间[a,b],error为最小误差
var myTempAns:Array = new Array(51);//存储计算结果
for(var k=0;k<=50;k++)
myTempAns[k]=new Array(6);
var M=50; //对分的最大步数
var fa:Number;
var h:Number; //记录区间长度
var X:Number;
var fx:Number;
while(1)
{
if(nCount>50)
break;
fa=Math.pow(a,3)-a-1;
X=(a+b)/2.0;
fx=Math.pow(X,3)-X-1;
h=b-a;
myTempAns[nCount][1]=a;
myTempAns[nCount][2]=b;
myTempAns[nCount][3]=X;
myTempAns[nCount][4]=h;
myTempAns[nCount][5]=fx;
if(Math.abs(fx)<error/2.0)
break;
else
{
if(h<error/2.0)
break;
}
if(fa*fx>0)
a=X;
else
b=X;
nCount++;
}
return myTempAns;
}
//对分区间算法