Версия для печати темы

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

Форум «Всё о Паскале» _ Задачи _ функция Лапласа

Автор: Yurka 10.01.2007 0:44

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

Код

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 запрещено правилами форума.
мисс_граффити


Автор: volvo 10.01.2007 2:28

Функцию Лапласа вычислять вообще затруднительно, обычно ее берут из таблицы... Например, вот такой:
http://www.ostu.ru/vzido/resurs/matem/marketing/3semestr/prilogenie.htm

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

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

Автор: Yurka 10.01.2007 2:31

добавляю задание
Протабулировать функцию вида
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.01.2007 2:51

Цитата(volvo @ 9.01.2007 23:28) *

Функцию Лапласа вычислять вообще затруднительно, обычно ее берут из таблицы... Например, вот такой:
http://www.ostu.ru/vzido/resurs/matem/marketing/3semestr/prilogenie.htm

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

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

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

Цитата(volvo @ 9.01.2007 23:28) *

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

я вот http://elib.ispu.ru/library/math/sem2/index.html
смотрел о "неберущихся" интегралах...


Эскизы прикрепленных изображений
Прикрепленное изображение