Автор: Yurka 10.01.2007 0:44
Помогите исправить ошибку, задание прикрепляю. Текст программы ниже , вообщем работу вернули сказали что функция Лапласа неправильно записана. Да ещё один момент - работа нужна на завтра .
Код
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 файл...
а также добавляю скрин на всякий случай.
Цитата(volvo @ 9.01.2007 23:28)
Функцию Лапласа вычислять вообще затруднительно, обычно ее берут из таблицы...
я вот http://elib.ispu.ru/library/math/sem2/index.html
смотрел о "неберущихся" интегралах...
Эскизы прикрепленных изображений