Эффективный метод вычисления интеграла Адамара на конечном интервале. Добрынина Н.Ф - 20 стр.

UptoLike

20
> T:=0.5;
delta:=0.1;
h:=evalf(delta/10,1);
p:=2;
N:=(h)^(-p);
:=
T
.5
:= δ .1
:= h .01
Продолжение
:= p 2
:=
N
10000.
_______________________________________________________
> unassign('tau');
> simplify((((tau-T)-I*h)^p+((tau-T)+I*h)^p)/
((tau-T)^2+h^2)^p);
20000.
+ 10000. τ
2
10000.
τ
2499.
() + 10000. τ
2
10000. τ 2501.
2
> Ker:=tau->20000.*(10000.*tau^2-10000.*tau+2499.)/
(10000.*tau^2-10000.*tau+2501.)^2:
> int(Ker(tau),tau);
> T:=0.5;
delta:=0.1;
h:=evalf(delta/10,1);
p:=2;
N:=(h)^(-p);
T := .5
δ := .1
h := .01
                                                   Продолжение
p := 2
N := 10000.
_______________________________________________________
> unassign('tau');
> simplify((((tau-T)-I*h)^p+((tau-T)+I*h)^p)/
  ((tau-T)^2+h^2)^p);
            10000. τ 2 − 10000. τ + 2499.
20000.                                         2
           ( 10000. τ 2 − 10000. τ + 2501. )
> Ker:=tau->20000.*(10000.*tau^2-10000.*tau+2499.)/
  (10000.*tau^2-10000.*tau+2501.)^2:
> int(Ker(tau),tau);


                                         20