小编Let*_*ile的帖子

嗨那里=)抱歉我的英语,提前 我有一个任务来通过线性回归的方法计算赫斯特指数.我有解决方案的文字说明.它看起来很容易,但总是得到值,从0..1范围出来.通常,值为1.9或类似的值.有时它会得到接近于零的负值.我已经查看了大约一千次的代码,但看不出错误.

var
max_z,min_z,x_m:real; //max and min of cumulative sum and mean value of X for every Tau
st,ss,sst,st2 :real;
Al, Herst: real;
x_vr:array of double;   //a piece of array with length=tau
i, j, nach: integer;
begin
    //file opening and getting values of X array are in another function
    nach:=3;    //initial value of tau
    Setlength(ln_rs,l-nach); //length of  ln(R/S) array
    Setlength(ln_t,l-nach);  //length of  ln(tau) array
    Setlength(r,l-nach);   //length of  R array
    Setlength(s,l-nach);   //length of S array


      //Let's start
    for tau:=nach to …