Технический форум - Помогите, пожалуйста, с решением

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите, пожалуйста, с решением (http://www.tehnari.ru/f41/t96886/)

Помогите, пожалуйста, с решением

Реализовать метод наименьших квадратов для линейной регрессии (коэффициента а и в) с помощью массива

Помочь не можем. Если Вы, вопреки нашим провокационным просьбам и мольбам, решили никому, никогда и ни под каким видом не выдавать тайну языка программирования, на котором следует выполнить задание, - стойте на своём до последнего. Упорства Вам и терпения!

Извиняйте пожалуйста! Рушить надо в Паскале!

Ладно. Только сначала надо формулы проверить - похоже, у Вас там неряшливость запредельная. Потом будем "рушить" это дело.

Вот. Порушил:

Код:

Const

 Nmax=100;



Var

 x,y:Array[1..Nmax] of Real;

 i,N:Byte;

 a,b,S_x,S_y,S_x2,S_xy:Real;



Begin

 Write('N= ');

 Readln(N);

 S_x:=0;

 S_y:=0;

 S_x2:=0;

 S_xy:=0;

 for i:=1 to N do

  begin

   write('x[',i,']= ');

   readln(x[i]);

   write('y[',i,']= ');

   readln(y[i]);

   S_x:=S_x+x[i];

   S_y:=S_y+y[i];

   S_x2:=S_x2+Sqr(x[i]);

   S_xy:=S_xy+x[i]*y[i];

  end;

 writeln;

 a:=(S_x2*S_y-S_x*S_xy)/(N*S_x2-Sqr(S_x));

 b:=(N*S_xy-S_x*S_y)/(N*S_x2-Sqr(S_x));

 writeln('a= ',a:0:5);

 writeln('b= ',b:0:5);

 writeln;

 writeln('     x              y            a+bx');

 for i:=1 to N do

  writeln(x[i]:8:3,y[i]:15:3,(a+b*x[i]):15:3);

 readln

End.

Огромнейшее ВАМ СПАСИБО!!! Наверно было бы наглостью просить ВАС ещё о чём-то, но всё же рискну попросить помощи в решении лабораторной работы по Паскалю с химическим уклоном. Может надо создать отдельную тему?

Цитата:

Сообщение от valeri777 (Сообщение 1039452)

Может надо создать отдельную тему?

Ладно, пусть будет здесь.

Цитата:

Сообщение от valeri777 (Сообщение 1039452)

лабораторной работы по Паскалю

Как же по Паскалю, когда там написано "Exel" (кстати, правильно "Excel")? А самое главное - Вы не указали номер варианта. Или предлагаете решить для всех пяти?

И вообще - смотрю я на условия, и, увы, понять смысла не могу. Если бы задача была сформулирована так: загрузили какое-то количество вещества А, включили реактор, через время Т выключили и определили концентрацию реагентов, тогда бы это еще туда-сюда, хотя и в этом случае есть вопросы по системе уравнений. Но реально задача много сложнее: там указана "скорость подачи реагентов", т.е. реагенты (какие? все три? только А?) непрерывно подаются в реактор! Но каким образом, хотел бы я понять, величина этой "скорости подачи" НЕ фигурирует в уравнениях, описывающих изменение концентраций? Не понимаю. И по какому критерию определять "время пребывания реакционной смеси в аппарате"? Не вижу. Извините.
Подумаю, конечно, еще на тему "что имел в виду автор?", но...