| ²é¿´: 987 | »Ø¸´: 11 | |||
| ±¾Ìû²úÉú 1 ¸ö ³ÌÐòÇ¿Ìû £¬µã»÷ÕâÀï½øÐв鿴 | |||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | |||
ldoop
|
[½»Á÷]
¡¾ÇóÖú¡¿rsolveÎÊÌâ
|
||
|
Hi all, I want to calculate the expression by a recurrence equation but I got this error: RSolve::litarg: To avoid possible ambiguity, the arguments of the dependent variable in Hypergeometric2F1[a,a,a+n,z] should literally match the independent variables. >> the code is: F[n_] := Hypergeometric2F1[a, a, a + n, z] RSolve[{(n + a) (n + a - 1 - (2 n - 1) z) F[n] - (n + a) (n + a - 1) (1 - z) F[n - 1] + n^2 F[n + 1] == 0, F[0] == ((a - 1) (1 - z))/(a - 1 + z) Hypergeometric2F1[a, a, a - 1, z]}, F[n],n] Çë´ó¼Ò°ïæ¿´¿´ ³ÌÐòÓÐɶÎÊÌâ »òÕßÓиüºÃµÄ°ì·¨Çó³öF[n],ллÁË |
» ²ÂÄãϲ»¶
271Çóµ÷¼Á
ÒѾÓÐ37È˻ظ´
²ÄÁϹ¤³Ì281»¹Óе÷¼Á»ú»áÂð
ÒѾÓÐ34È˻ظ´
279Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
²ÄÁÏÏà¹Ø×¨Òµ344Çóµ÷¼ÁË«·Ç¹¤¿ÆÑ§Ð£»ò¿ÎÌâ×é
ÒѾÓÐ17È˻ظ´
»¯¹¤Ñ§Ë¶294·Ö£¬Çóµ¼Ê¦ÊÕÁô
ÒѾÓÐ27È˻ظ´
»¯Ñ§070300 Çóµ÷¼Á
ÒѾÓÐ20È˻ظ´
327Çóµ÷¼Á
ÒѾÓÐ18È˻ظ´
085801µçÆø×¨Ë¶272Çóµ÷¼Á
ÒѾÓÐ13È˻ظ´
085600²ÄÁÏÓ뻯¹¤329·ÖÇóµ÷¼Á
ÒѾÓÐ17È˻ظ´
284Çóµ÷¼Á
ÒѾÓÐ15È˻ظ´
ldoop
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 7 (Ó×¶ùÔ°)
- ½ð±Ò: 3485.8
- É¢½ð: 3151
- ºì»¨: 16
- ɳ·¢: 1
- Ìû×Ó: 2225
- ÔÚÏß: 285.5Сʱ
- ³æºÅ: 533053
- ×¢²á: 2008-03-25
- רҵ: ȺÂäÉú̬ѧ
|
ллÄãµÄ»Ø¸´¡£ ¹ØÓÚF[n]ÊÇÎÒ¶à´òÁ˰ë¸ö]¡£»¹ÓйØÓÚZÎÒû˵Çå³þ£¬z=x(1-r),nÊǸöÏòÁ¿¡£ ³ÌÐòÈçÏ£º n = Table[{5, 4, 4, 4, 3, 3, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1}]; f[r_, x_, a_, p_] := DifferenceRoot[ Function[{y,m]}, {(m +a) (1 + m + a) (-1 + x - x r) y[m] + (1 + m + a) (m + a - x + x r - 2 m x+2 m r x) y[1 + m] + (1 + m)^2 y[ 2 + m] == 0, y[0] == (1 - x + r x)^-a, y[1]== Hypergeometric2F1[a, a, a + 1, x - r x]}]][p] L[r_, x_, a_] := Sum[n[[j]] (Log[r] + Log[x]) + LogGamma[a + 1] + LogGamma[n[[j]]] - (n - a) Log[1 - x + r x] + Log[f[r, x, a, n[[j]]]] - Log[x] - Log[n[[j]]] - LogGamma[n[[j]] + a] - Log[HypergeometricPFQ[{1, 1, 1}, {2, 1 + a}, x] - (1 - r) HypergeometricPFQ[{1, 1, 1}, {2, 1 + a}, x - r x]], {j, 1, Length[n]}]; NMaximize[{N[L[r, x, a]], 0 < x, x < 1, 0 < r, r < 1, a > 0}, {x, r, a}] µ«ÊÇÎҵõ½ÕâÑùµÄ´íÎó£º NMaximize::nnum: The function value {4.106586024641592,3.529769718777038} is not a number at {a,r,x} = {1.304935615948057,0.633070356251368,0.6828130868666602}. >> ÊÇÔõô»ØÊ£¿Ó¦¸ÃÔõô±ÜÃ⣿лл |
7Â¥2010-10-25 21:21:35
mshwangg
ÖÁ×ðľ³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 206 (´óѧÉú)
- ½ð±Ò: 10702.8
- É¢½ð: 100
- ºì»¨: 19
- Ìû×Ó: 597
- ÔÚÏß: 195.4Сʱ
- ³æºÅ: 576702
- ×¢²á: 2008-06-21
- רҵ: ÎïÀíѧI
¡ï ¡ï
ldoop(½ð±Ò+1):лл²ÎÓë
ÓàÔó³É(½ð±Ò+1):лл²ÎÓëÓ¦Öú£¡ 2010-10-16 17:08:34
ldoop(½ð±Ò+1): 2010-10-18 16:39:03
ldoop(½ð±Ò+1): 2010-10-21 22:31:22
ldoop(½ð±Ò+1):лл²ÎÓë
ÓàÔó³É(½ð±Ò+1):лл²ÎÓëÓ¦Öú£¡ 2010-10-16 17:08:34
ldoop(½ð±Ò+1): 2010-10-18 16:39:03
ldoop(½ð±Ò+1): 2010-10-21 22:31:22
| µÚ¶þ¸ö·½³ÌÊÇÏÔÈ»µÄ½á¹û£¬¿ÉÒÔ´ÓF[n]¶¨ÒåÖ±½ÓµÃ³ö£¬¶ø²¢·ÇÊdzõÖµ¡£Òò´ËÄ㻹ÐèÒªÁíÍâÒ»¸ö·½³Ì²ÅÄܽâ³öÀ´ |
2Â¥2010-10-16 14:12:38
ldoop
Ìú¸Ëľ³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 7 (Ó×¶ùÔ°)
- ½ð±Ò: 3485.8
- É¢½ð: 3151
- ºì»¨: 16
- ɳ·¢: 1
- Ìû×Ó: 2225
- ÔÚÏß: 285.5Сʱ
- ³æºÅ: 533053
- ×¢²á: 2008-03-25
- רҵ: ȺÂäÉú̬ѧ
ajian04:лл²ÎÓë½»Á÷~ 2010-10-22 16:16:18
|
ÎÒ¸ø¶¨F[0]Ϊ³£Êý£¬ÈÔÈ»Çó²»³öÀ´£¬ÇëÎÊÓ¦¸ÃÈçºÎ´¦Àí£¿Ð»Ð» |
3Â¥2010-10-18 16:38:26
mshwangg
ÖÁ×ðľ³æ (ÕýʽдÊÖ)
- ³ÌÐòÇ¿Ìû: 5
- Ó¦Öú: 206 (´óѧÉú)
- ½ð±Ò: 10702.8
- É¢½ð: 100
- ºì»¨: 19
- Ìû×Ó: 597
- ÔÚÏß: 195.4Сʱ
- ³æºÅ: 576702
- ×¢²á: 2008-06-21
- רҵ: ÎïÀíѧI
¡ï ¡ï
ÓàÔó³É(½ð±Ò+2):ÐÁ¿àÁË£¡ 2010-10-19 15:10:59
ldoop(½ð±Ò+1): 2010-10-21 20:02:57
ldoop(½ð±Ò+1): 2010-10-21 20:03:08
ÓàÔó³É(½ð±Ò+2):ÐÁ¿àÁË£¡ 2010-10-19 15:10:59
ldoop(½ð±Ò+1): 2010-10-21 20:02:57
ldoop(½ð±Ò+1): 2010-10-21 20:03:08
|
ÏȰïÎÒ½âÊÍһϣ¬¼ÈÈ»ÄãÒѾ¶¨ÒåF[n_]ÁË£¬ÎªºÎ»¹ÒªÇóF[n]£¿ ¼Ù¶¨F[n]µÄ¶¨ÒåºÍµÚÒ»¸ö·½³ÌÊÇ×ÔÇ¢µÄ£¬ÄÇôµÚÒ»¸ö·½³Ì¾ÍÊÇÏÔÈ»µÄÁË¡£ Èç¹û²»ÖªµÀF[n]µÄ¶¨Ò壬ͨ¹ýµÚÒ»¸öºÍµÚ¶þ¸ö·½³Ìµ¹ÊÇ¿ÉÒÔÇó³öÀ´F[n]µÄ±í´ïʽ£¨ºÍÄãËù¸ø³öµÄF[n]¶¨ÒåÒ»Ö£© |
4Â¥2010-10-19 13:57:24














»Ø¸´´ËÂ¥