Form1-> Memo3-> Lines-> Strings [i] ; = StrToFloat (str1); + = pow ((x-xsumer), 2); + = pow ((y-ysumer), 2);
} = ((1/(n-1)) * (sumx)); qxsum = SimpleRoundTo (qx, -3); -> Label13-> Caption = qxsum;// дисперсія Х
float qx1; = 0; = sqrt (qx);// відхилення Х
double qxsum1 = SimpleRoundTo (qx1, -3); -> Label15-> Caption = qxsum1; = ((1/(n-1)) * (sumy)); qysum = SimpleRoundTo (qy, -3); -> Label14-> Caption = qysum;// дисперсія Уqy1; = 0; = sqrt (qy); qysum1 = SimpleRoundTo (qy1, -3); -> Label16-> Caption = qysum1;// відхилення У (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); = Form1-> Memo3-> Lines-> Strings [i] ; = StrToFloat (str1); + = ((x-xsumer) * (y-ysumer));
// ---- РОБОТА З ПЕРШОЇ ЗАВІСІМОСТЬЮa0, a1, d, d1, d2, f, yr, f1;
a0 = 0; a1 = 0; d = 0; d1 = 0; d2 = 0; f = 0; f1 = 0; (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); + = pow (((x * x)/(exp (1/x))), 2 );
} (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); + = ((x * x)/(exp (1/x)));
} (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); = Form1-> Memo3-> Lines-> Strings [i]; = StrToFloat (str1 ); + = ((x * x)/(exp (1/x))) * y;
} = n * d1-pow (d2, 2);// d в першій регресії = (ysum * d1-d2 * f)/d;// a0 в першій регресії = (n * f-d2 * ysum )/d;// a1 в першій регресії
yr = 0; qs, q; = 0; = 0; (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); = Form1-> Memo3-> Lines-> Strings [i];
y = StrToFloat (str1); = a0 + a1 * ((x * x)/(exp (1/x)));// значення результату по регресійним залежностям
qs + = pow ((y + yr), 2); stryr = FormatFloat ("0.000", yr); -> Memo6-> Lines-> Add (stryr);
} = (1/(n-1)) * qs;// залишкові дисперсії
f1 = qysum/q;// коефіцієнти Фішера
// ---- РОБОТА ЗІ ДРУГИЙ ЗАВІСІМОСТЬЮa_0, a_1, d_, d_1, d_2, f_, y_r, f_1;
a_0 = 0; _1 = 0; _ = 0; _1 = 0; _2 = 0; _ = 0; _1 = 0; (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); _1 + = pow (((sqrt (x))/(log (x) * log (x) )), 2);
} (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); _2 + = ((sqrt (x))/(log (x) * log (x))) ;
} (unsigned int i = 0; i <16; i + +)
{= Form1-> Memo2-> Lines-> Strings [i]; = StrToFloat (str); = Form1-> Memo3-> Lines-> Strings [i]; = StrToFloat (str1 ); _ + = ((sqrt (x))/(log (x) * log (x))) * y;
} _ = n * d_1-pow (d_2, 2);// d в першій регрессіі_0 = (ysum * d_1-d_2 * f_)/d_;// a0 в першій регрессіі_1 = (n * f_-d_2 * ysum)/d_;// a1 в першій регр...
