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

[valeri777]

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

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

 

[Vladimir_S]

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

 

[valeri777]

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

 

[Vladimir_S]

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

 

[Vladimir_S]

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

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]

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

 

[Vladimir_S]

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

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

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

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

 

[Vladimir_S]

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