Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Нормальный закон распределения, палатка Эйлера

Автор: GLX 18.3.2014, 20:07

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

Автор: Illusion Dolphin 18.3.2014, 22:10

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

Автор: GLX 18.3.2014, 22:43

Код


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

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

Код


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

Автор: GLX 19.3.2014, 21:04

Код


   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

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

)

const
pi = 3.14159;

В заключение хочется добавить, что в Delphi есть собственная http://www.delphibasics.ru/Pi.php