VPF::[Delphi] как это работает - Форум программистов

Romens

Дата 7.12.2008, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.12.2008

Репутация: нет
Всего: нет

Код


cleardevice;
{fi[i] это масив наших оценок}
 for i:=1 to 10 do
  begin
   xx[i]:=i*i;
   rel[i]:=-2*ln(fi[i]); 
   nor[i]:=-2*ln(sqrt(2*3.14)*(fi[i]));    
  end;

max1r:=0; min1r:=0; max1n:=0; min1n:=0;

{здесь поиск максимумов и минимумов}
  for i:=1 to 10 do
   begin
    if rel[i]>=max1r then max1r:=rel[i]
                     else if rel[i]<min1r then min1r:=rel[i];
    if nor[i]>=max1n then max1n:=nor[i]
                     else if nor[i]<min1n then min1n:=nor[i];
   end;

{а что происходит дальше я вообще не понимаю...}
s1:=0;s2:=0;s3r:=0;s4r:=0;s3n:=0;s4n:=0;

  for i:=1 to 10 do
   begin
    s1:=s1+sqr(xx[i]);
    s2:=s2+xx[i];
    s3r:=s3r+rel[i];
    s4r:=s4r+rel[i]*xx[i];
    s3n:=s3n+nor[i];
    s4n:=s4n+nor[i]*xx[i];
   end;

  del:=10*s1-s2*s2;
  kr:=(10*s4r-s2*s3r)/del;
  br:=(s1*s3r-s4r*s2)/del;
  kn:=(10*s4n-s2*s3n)/del;
  bn:=(s1*s3n-s4n*s2)/del;


maxr:=0;minr:=0;maxn:=0;minn:=0;
for i:=1 to 10 do begin
rela[i]:=(kr*xx[i]+br);
nora[i]:=(kn*xx[i]+bn);
if rela[i]>=maxr then maxr:=rela[i]
                 else if rela[i]<minr then minr:=rela[i];
if nora[i]>=maxn then maxn:=nora[i]
                 else if nora[i]<minn then minn:=nora[i];
end;

moveto(trunc(10+2*1),trunc(getmaxx/2-500*rela[1]/2/(max1r-min1r)));
for i:=1 to 10 do begin
x:=trunc(10+2*xx[i]);
y:=trunc(getmaxx/2-500*rela[i]/2/(max1r-min1r));
lineto(x,y);
end;

moveto(trunc(2*1+300),trunc(0.1*getmaxx/2-500*nora[1]/2/(max1n-min1n)));
for i:=1 to 10 do begin
x:=trunc(300+2*xx[i]);
y:=trunc(0.1*getmaxx/2-500*nora[i]/2/(max1n-min1n));
lineto(x,y);
end;

for i:=1 to 10 do begin
x:=trunc(10+2*xx[i]);
y:=trunc(getmaxx/2-500*rel[i]/2/(max1r-min1r));
putpixel(x,y,white);
x:=trunc(300+2*xx[i]);
y:=trunc(0.1*getmaxx/2-500*nor[i]/2/(max1n-min1n));
putpixel(x,y,white);
end;

Это сообщение отредактировал(а) Alexeis - 7.12.2008, 23:21

Alexeis

Дата 7.12.2008, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Модератор: Название темы должно отражать ее суть!

Используйте подсветку кода.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Romens

Дата 7.12.2008, 21:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.12.2008

Репутация: нет
Всего: нет

Цитата(Alexeis @ 7.12.2008, 21:40)

Модератор: Название темы должно отражать ее суть!

Используйте подсветку кода.

нет, нет, меня интересует весь модуль в сумме, что он делает?

Alexeis

Дата 7.12.2008, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »