[math-fun] more hyjynx
A datum, probably long known, apropos the computational complexity of the Gamma fcn: 3 1 6 9 5 1 6 8 1 6 10 hyper_2f1 (-, -, - ) hyper_2f1 (-, -, - ) hyper_2f1(-, -, -- ) 7 7 7 7 7 7 7 7 7 7 1 %pi 588 (-)! cos(---) 7 14 = ------------------, %pi so (n/d)! is probably easy, but with effort proportional to d. (Or maybe d^2). ------- My POWERSERIES function got a double sum instead of Clausen's 4F3[z] for not knowing the well-poised, 3-balanced (sesquiSaalschutzian?), terminating 4F3[1] in the inner sum. "SesquiPfaffian" is more just, but also more confusing. I got ambitious and derived the whole 4F3[a,b,c,d;e,f,g] (and 3F2[z]) matrix system, and extracted the general, noterminating case: 1 hyper_f ([a, b, c, c - b - a + -], 4, 3 2 1 [c - a + 1, c - b + 1, b + a + -], 1) = 2 1 (b + a - -)! (c - a)! (c - b)! (sqrt(%pi) (c - 2 b - 2 a)! 2 1 1 /((a - -)! (b - -)! (c - 2 a)! (c - 2 b)! (c - b - a)!) 2 2 - hyper_f ([1, c - 2 a + 1, c - 2 b + 1, c - b - a + 1], 4, 3 3 [c + 1, c - 2 b - 2 a + 2, c - b - a + -], 1) 2 c + 1 1 /((a - 1)! (b - 1)! (----- - b - a) c! (c - b - a + -)!)) 2 2 Notice the rhs 4F3 getting divided by infinity exactly when an upper parameter on the left is a nonpositive integer. Also note the weird oo - oo when (c+1)/2 = a+b. As usual, the matrices provide the complete system of identities contiguous to the above. The algebra gets very heavy in transforming the general 4x4 system (which has eight dimensions), but there's a way to exploit the symmetry in a,b,c,d and e,f,g. You can actually substitute a=b=c=d=S and later recover the original generality with an extension of the following trick: Supposing there were only two variables, a and b: Replace every f(S)^3 with f(a) f(b) f((a+b)/2), then f(S)^2 with f(a) f(b) and finally f(S) with f((a+b)/2). This isn't rigorous, but elementary theology seems to find the right symmetric functions. A rigorous way to fight malignant algebroma is to get even more ambitious and derive the q-extension of the 4F3 system. Normally, the addition of a new variable makes matters nonlinearly worse, but q-extending (n + d + c + b + a) (n + e + c + b + a) (n + e + d + b + a) (n + e + d + c + a) (n + e + d + c + b) to n + d + c + b + a n + e + c + b + a (1 - q ) (1 - q ) n + e + d + b + a n + e + d + c + a (1 - q ) (1 - q ) n + e + d + c + b (1 - q ) actually *reduces* the expanded form from 247 terms to 31 terms, with five 5-term exponents and 26 sixes. All the nonlinear terms (n^5, a^4, ...) disappear, but are recoverable with l'Hospital's rule. Unfortunately, 4F3 is just shy of the breakeven point. But at least I now have the 4phi3 system too. --rwg (-: Mesotonic economist comes-into emoticons :-) PS, I'm dabbling in sudoku as a programming exercise. Our program (brute-force backtrack) typically finds one or two "redundant" clues in published puzzles, but of course removing them renders the puzzle both unsymmetrical and insoluble without (perhaps humanly infeasible) lookahead.
I said of
the general [3-balanced, well poised], noterminating case: hyper_f[4,3]([a,b,c,c-b-a+1/2],[c-a+1,c-b+1,b+a+1/2],1) =(b+a-1/2)!*(c-a)!*(c-b)! *(sqrt(%pi)*(c-2*b-2*a)!/((a-1/2)!*(b-1/2)!*(c-2*a)!*(c-2*b)!*(c-b-a)!) -hyper_f[4,3]([1,c-2*a+1,c-2*b+1,c-b-a+1],[c+1,c-2*b-2*a+2,c-b-a+3/2]) /((a-1)!*(b-1)!*((c+1)/2-b-a)*c!*(c-b-a+1/2)!)) 1 hyper_f ([a, b, c, c - b - a + -], 4, 3 2
1 [c - a + 1, c - b + 1, b + a + -]) = 2 1 (b + a - -)! (c - a)! (c - b)! (sqrt(%pi) (c - 2 b - 2 a)! 2 1 1 /((a - -)! (b - -)! (c - 2 a)! (c - 2 b)! (c - b - a)!) 2 2 - hyper_f ([1, c - 2 a + 1, c - 2 b + 1, c - b - a + 1], 4, 3 3 [c + 1, c - 2 b - 2 a + 2, c - b - a + -]) 2 c + 1 1 /((a - 1)! (b - 1)! (----- - b - a) c! (c - b - a + -)!)) 2 2
Notice the rhs 4F3 getting divided by infinity exactly when an upper parameter on the left is a nonpositive integer.
Gotcha! Notice the rhs 4F3 blowing up in revenge when c -> -n. The correct formula in this (terminating) case is 1 hyper_f ([a, b, - n, - n - b - a + -], 4, 3 2 1 [- n - a + 1, - n - b + 1, b + a + -]) 2 1 1 (- a - -)! (- b - -)! (- n - a)! (- n - 2 b - 2 a)! (- n - b)! 2 2 = -----------------------------------------------------------------. 1 sqrt(%pi) (- b - a - -)! (- n - 2 a)! (- n - 2 b)! (- n - b - a)! 2 Similar mischief attends c-b-a+1/2 = -n, when we have 1 hyper_f ([a, b, - n + b + a - -, - n], 4, 3 2 1 1 1 [- n + b + -, - n + a + -, b + a + -]) 2 2 2 1 1 1 1 sqrt(%pi) (b + a - -)! (- n + a - -)! (- n + b - -)! (n + b - a - -)! 2 2 2 2 = ---------------------------------------------------------------------. 1 1 1 1 1 (a - -)! (b - -)! (- n - -)! (- n + b - a - -)! (n + b + a - -)! 2 2 2 2 2 These were not easy, at least how I did them. Are they new? Also, does anyone know how to derive the closed form of a contiguous Dixon, e.g. 3F2[a,b,c;a-b+1,a-c+2], without using matrix products? The prospect of automating the 4F3, with four modes of termination and four- term contiguity relations, is somewhat daunting. But I'd love to get paid to do it! --rwg Tricky Nick was not a crook. PS, a goodie to stick in your share;functs.mac : /* all parts of xpr containing targ at depth dep (default 1) */ parts_with(xpr,targ,[dep]):=(dep:if dep='[] then 1 else dep[1], makelist(apply('part,cons(xpr,rest(l,-min(length(l),dep)))),l, inverse_part(xpr,targ)))$ E.g., if foo is the very first equation in this message, then (c93) parts_with(foo,hyper_f) (d93) [hyper_f , hyper_f ] 4, 3 4, 3 (c94) parts_with(foo,hyper_f,2) 1 (d94) [hyper_f ([a, b, c, c - b - a + -], 4, 3 2 1 [c - a + 1, c - b + 1, b + a + -]), 2 hyper_f ([1, c - 2 a + 1, c - 2 b + 1, c - b - a + 1], 4, 3 3 [c + 1, c - 2 b - 2 a + 2, c - b - a + -])] 2 (c95) parts_with(foo,c+1) 3 c + 1 (d95) [[c + 1, c - 2 b - 2 a + 2, c - b - a + -], -----] 2 2 One could also get d94 by parts_with(foo,d93[1]). PPS: Thanks to all who provided the ComplexExpand clue. But I guess nobody actually tried it, or they would have warned that it multiplies the mess from the sin nx/(2n choose n) series more than a hundredfold, leaving a bunch of Sins of Args of complex expressions. Can anyone tell me how to finish off, say, Sin[Arg[1 - E^(I*x)]]? E.g., (c120) sin(carg(1-%e^(%i*x))) x (d120) - cos(-) 2 PPS: Since there's never enough screenspace, I like Mma's small fonts, but is that an exponent or a speck of dust? I wish they'd steal the magnifying-glass idea from one of those document viewers.
participants (1)
-
R. William Gosper