Hello,
MeijerG[{{1}, {5/4, 7/4}}, {{1/2, 1, 1}, {}}, 1]
?
Best wishes,
Vladimir Bondarenko
Co-founder, CEO, Mathematical Director
http://www.cybertester.com/ Cyber Tester Ltd.
------------------------------------------------
"We must understand that technologies
like these are the way of the future."
------------------------------------------------
Vladimir Bondarenko - 24 Oct 2008 09:36 GMT
> Hello,
>
[quoted text clipped - 16 lines]
>
> ------------------------------------------------
A bit of hint...
4*(Sqrt[1 + Sqrt[2]]*something,
something = ?
;)
sashap - 24 Oct 2008 22:55 GMT
> Hello,
>
> MeijerG[{{1}, {5/4, 7/4}}, {{1/2, 1, 1}, {}}, 1]
>
> ?
In[137]:= FullSimplify[
RootReduce[
Limit[FunctionExpand[
MeijerG[{{1}, {5/4, 7/4}}, {{1/2, 1, 1}, {}}, x]], x -> 1]]]
Out[137]= (2*2^(3/4)*(Sqrt[2 + Sqrt[2]]*
ArcTan[Sqrt[2*(1 + Sqrt[2])]] -
Sqrt[2 - Sqrt[2]]*Log[1 + Sqrt[2] + Sqrt[2*(1 + Sqrt[2])]]))/
Sqrt[Pi]
Cheers,
Oleksandr
> Best wishes,
>
[quoted text clipped - 10 lines]
>
> ------------------------------------------------
clicliclic@freenet.de - 25 Oct 2008 12:13 GMT
sashap schrieb:
> In[137]:= FullSimplify[
> RootReduce[
[quoted text clipped - 5 lines]
> Sqrt[2 - Sqrt[2]]*Log[1 + Sqrt[2] + Sqrt[2*(1 + Sqrt[2])]]))/
> Sqrt[Pi]
The simplifier might have pulled out the factor 2^(1/4) from the
nested roots and written this as
4*(Sqrt[Sqrt[2]+1]*A - Sqrt[Sqrt[2]-1]*L)/Sqrt[Pi].
Martin.