Если рассматривать неопределённый интеграл, то указанный в начальном сообщении интеграл — это интеграл от квадратичной иррациональности. И он может быть найден в элементарных функциях. (См. в учебниках по началам анализа. Например, в первом томе книги Ильин, Позняк «Начала математического анализа».)
Если вопрос по Maple. Если интеграл содержит параметр, то в разных версиях присутствуют в результатах разные ошибки при нахождении интеграла. Чтобы избежать комплексных или отрицательных результатов (в рассматриваемом в начальном сообщении несобственном интеграле) можно вычислять интеграл отдельно для разных значений диапазонов параметра.
Maple 7:
Код:
> assume(a<1/2); additionally(a>0);
> F1:= int(1/sqrt(1-1/(1-1/a+1/x)^2), x=0..a);
F1 := a*(a^2*ln(a)-2*a^3*ln(a)+a*(-2*a+1)^(3/2)-a^2*ln(1-sqrt(-2*a+1)-a)+2*a^3*ln(1-sqrt(-2*a+1)-a)-(-2*a+1)^(3/2))/(-1+2*a)/(-2*a+1)^(3/2)
> P1:= plot(F1, a=0..1/2):
> assume(a>1/2); additionally(a< 1);
> F2:= int(1/sqrt(1-1/(1-1/a+1/x)^2), x=0..a);
F2 := 1/2*a*(-a^2*Pi+2*a^3*Pi+2*a*(-1+2*a)^(3/2)-2*a^2*arcsin(1/a*(a-1))+4*a^3*arcsin(1/a*(a-1))-2*(-1+2*a)^(3/2))/(-1+2*a)^(5/2)
> P2:= plot(F2, a=1/2..1):
> assume(a>=1);
> F3:= int(1/sqrt(1-1/(1-1/a+1/x)^2), x=0..a);
F3 := 1/2*a*(-a^2*Pi+2*a^3*Pi+2*a*(-1+2*a)^(3/2)-2*a^2*arcsin(1/a*(a-1))+4*a^3*arcsin(1/a*(a-1))-2*(-1+2*a)^(3/2))/(-1+2*a)^(5/2)
> P3:= plot(F3, a=1..3):
> plots[display]([P1, P2, P3], thickness=3, labels=['a', 'F']);
Для проверки положительности интеграла построен график.
Вложение:
Комментарий к файлу: График зависимости интеграла от параметра. Maple 7
IntQRut.PNG [ 4.61 Кб | Просмотров: 1015 ]