VPF::Нормальный закон распределения, палатка Эйлера

GLX

Дата 18.3.2014, 20:07 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите построить на Canvas палатку Эйлера. smile

Illusion Dolphin

Дата 18.3.2014, 22:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

а что не получается? Что за палатка?

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

GLX

Дата 18.3.2014, 22:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


Function EILER(sigm,x,a:real):real;
const
pi = 3.14159;
var
res:real;
BEGIN
//res:=1/(sqrt(2*pi))*(-Exp((i-sigm)/2*sigm*sigm));
res:=1/(sigm*sqrt(2*pi))*exp(-1*(x-a)*(x-a)/(2*sigm*sigm));
Result:=res;
END;

...

   Form1.Image1.Canvas.Pen.Color:=clBlue;
   for X :=0 to 640 do
      begin
//      LINE(X,round(EILER(0.5,50)),X,round(EILER(0.5,50)));
Form1.Image1.Canvas.Pixels[X,round(EILER(0.6,X,0))];
      end;

Добавлено через 3 минуты и 49 секунд
Не работает. smile

v4v4n

Дата 19.3.2014, 11:45 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Что за палатка такая? Но судя по всему, координату X напрямую в функцию не стоит подставлять параметром.

Код


  for x:=1 to 640 do begin
      Canvas.Pixels[x,round(320-320*EILER(0.6,(X-320)/320,0))]:=clBlue;
  end;

Это сообщение отредактировал(а) v4v4n - 19.3.2014, 12:07

GLX

Дата 19.3.2014, 21:04 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


   Form1.Image1.Canvas.Pen.Color:=clBlue;
   for X :=1 to 640 do
      begin
//      Form2.Memo1.Text:=IntToStr(X)+' ';
//      LINE(X,320*100-round(EILER(0.5,50,240)),X,320*100-round(EILER(0.5,50,240)));
//       Line(X,320-100*round(EILER(0.6,round(X/200),1.6)),X,1+320-100*round(EILER(0.6,round(X/200),1.6)));
Line(X,320-round(100*EILER(0.6,X/200.0,1.6)),X,1+320-round(100*EILER(0.6,X/200.0,1.6)));      //Line(0,round(320-100*round(EILER(0.6,round(x),240)),x,round(320-100*EILER(x,round(x),240))));
//Form1.Image1.Canvas.Pixels[X,round(EILER(0.6,X,0))];
      end;

Всем спасибо ! Ура ! Получилось !

Poseidon

Дата 19.3.2014, 21:14 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(GLX @ 18.3.2014, 22:43

)

const
pi = 3.14159;

В заключение хочется добавить, что в Delphi есть собственная функция Pi

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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