Для Y(x) вместо
Код:
1 2 3 4 | function TFuncForm . Y(x: extended ): extended ;
begin
Result := (exp(x) - exp(-x)) / 2 ;
end ;
|
надо
Код:
1 2 3 4 | function TFuncForm . Y(x: extended ): extended ;
begin
Result := ( 1 -sqr(x)/ 2 )*cos(x)-x*sin(x)/ 2 ;
end ;
|
Для S(x) надо в этой строчке покопаться
Код:
1 2 3 4 | function TFuncForm . S(x, e: extended ): extended ;
...
a := a * (sqr(x) / ( 4 *sqr(i) + 10 *i + 6 ));
...
|
По-идее должно быть
Код:
1 2 3 4 | function TFuncForm . S(x, e: extended ): extended ;
...
a := -a * sqr(x)*( 2 *sqr(i+ 1 )+ 1 ) / (sqr( 2 *i+ 1 )*( 2 *i+ 2 ));
...
|
Последний раз редактировалось U.B.M., 29.12.2011 в 19:59.
|