функция Лапласа Опции

[Yurka]

Помогите исправить ошибку, задание прикрепляю. Текст программы ниже , вообщем работу вернули сказали что функция Лапласа неправильно записана. Да ещё один момент - работа нужна на завтра .

Код

uses Crt;
var  x{аргумент функции },
    y{значение функции},
    n{количество узлов табулирования},
    Ch,P,Cb,
    betta,
    gamma,
    sigma,
    sh{шаг табулирования}:real;
    xmax,xmin:integer;
begin
   ClrScr;
     {ввод начальних данних}
   xmax:=6;
   xmin:=-6;
   write('введите число узлов табулирования  ');read(n);
   write(' введите SIGMA   ');read(SIGMA);
   write(' введите betta');read(betta);
   write(' введите x   ');read(x);
   write(' введите  xmin i xmax  ');read(xmin);read(xmax);
   sigma:=gamma;
   Ch:=(1-exp((-xmax*xmax)/(2*SIGMA*SIGMA)));
   Cb:=1/(2z/sqrt(2*3.14)*sum*(-1)/(2*k+1)*((z*z)/2)*xmax/sigma)- (2z/sqrt(2*3.14)*sum*(-1)/(2*k+1)*((z*z)/2)(min/sigma);

    {вичисление шага табуляции}
   sh:=12/(n);
   {задание начального значения функции}
   x:=1;
   {табулирование функции}
   while(x<xmax) do begin
     {вичисление функции}
     P:=Ch*Cb/2*gamma*exp(2/3*ln(1+(sqr((x-betta)/gamma))));

     {вивод на екран}
     writeln(x:2:2,'  ',P:4:4);
     {приривание аргумента}
     x:=x+sh;
   end;
end.

!

прикрепление файлов *.doc запрещено правилами форума. мисс_граффити

Сообщение отредактировано: мисс_граффити - 10.01.2007 1:12

[volvo]

Функцию Лапласа вычислять вообще затруднительно, обычно ее берут из таблицы... Например, вот такой:
Таблица значений функции

(можешь сделать также - задать фунцию в табличном виде, и вызывать ее при необходимости...)

А насчет аттача - ты хоть 10 раз запакуй архиватором, это как был DOC, так и останется... А DOC-и правилами запрещены... Сделай скриншот и присоедини его сюда как PNG или JPG файл...

[Yurka]

добавляю задание
Протабулировать функцию вида
F(x)=(CH*CB)/(2*y*(1+((x-betta)/y)^2)^(2/3) , где Xmin<=X<=Xmax,
CH=(1-exp(-Xmax^2/(2*SIGMA^2);
CB=1/(Ф(Xmax/SIGMA)-Ф(-Xmax/SIGMA)), где Ф(…) - — функция Лапласа;
Y=SIGMA
Xmin, Xmax = const, betta— среднее задаваемое на интервале (1; 100).

[Yurka]

Функцию Лапласа вычислять вообще затруднительно, обычно ее берут из таблицы... Например, вот такой:
Таблица значений функции

(можешь сделать также - задать фунцию в табличном виде, и вызывать ее при необходимости...)

А насчет аттача - ты хоть 10 раз запакуй архиватором, это как был DOC, так и останется... А DOC-и правилами запрещены... Сделай скриншот и присоедини его сюда как PNG или JPG файл...

а также добавляю скрин на всякий случай.

Функцию Лапласа вычислять вообще затруднительно, обычно ее берут из таблицы...

я вот тут
смотрел о "неберущихся" интегралах...