Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 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],ллÁË
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ldoop

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)


ÒýÓûØÌû:
Originally posted by mshwangg at 2010-10-23 10:34:59:

F[n]µÄ½á¹ûºÍÎÒÇóµÃµÄ»ù±¾Ò»Ñù£¬²»¹ýÊÇ...Function[{y, n]}...ÖÐÈ¥µô]¾ÍÒ»ÑùÁË£¬¿ÉÒÔ°ÑÕâ¸ö½á¹ûµ±×÷º¯ÊýÀ´Ó㬾ÍÏñÄãÏÂÃæf[r_, x_, a_, m_]Ò»Ñù¡£

Çó½â¼«´óÖµµÄÎÊÌ⣬ÎÒûÓÐÄõ½½á¹û£¬ÇëÄã×¢ÒâÏÂÁм¸¸öµØ·½£º ...

ллÄãµÄ»Ø¸´¡£
¹ØÓÚ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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 12 ¸ö»Ø´ð

mshwangg

ÖÁ×ðľ³æ (ÕýʽдÊÖ)

¡ï ¡ï
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
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ldoop

Ìú¸Ëľ³æ (ÖøÃûдÊÖ)


ajian04:лл²ÎÓë½»Á÷~ 2010-10-22 16:16:18
ÒýÓûØÌû:
Originally posted by ldoop at 2010-10-15 16:16:41:
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 Hypergeometric2 ...

ÎÒ¸ø¶¨F[0]Ϊ³£Êý£¬ÈÔÈ»Çó²»³öÀ´£¬ÇëÎÊÓ¦¸ÃÈçºÎ´¦Àí£¿Ð»Ð»
3Â¥2010-10-18 16:38:26
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

mshwangg

ÖÁ×ðľ³æ (ÕýʽдÊÖ)

¡ï ¡ï
ÓàÔó³É(½ð±Ò+2):ÐÁ¿àÁË£¡ 2010-10-19 15:10:59
ldoop(½ð±Ò+1): 2010-10-21 20:02:57
ldoop(½ð±Ò+1): 2010-10-21 20:03:08
ÒýÓûØÌû:
Originally posted by ldoop at 2010-10-18 16:38:26:



ÎÒ¸ø¶¨F[0]Ϊ³£Êý£¬ÈÔÈ»Çó²»³öÀ´£¬ÇëÎÊÓ¦¸ÃÈçºÎ´¦Àí£¿Ð»Ð»

ÏȰïÎÒ½âÊÍһϣ¬¼ÈÈ»ÄãÒѾ­¶¨ÒåF[n_]ÁË£¬ÎªºÎ»¹ÒªÇóF[n]£¿
¼Ù¶¨F[n]µÄ¶¨ÒåºÍµÚÒ»¸ö·½³ÌÊÇ×ÔÇ¢µÄ£¬ÄÇôµÚÒ»¸ö·½³Ì¾ÍÊÇÏÔÈ»µÄÁË¡£
Èç¹û²»ÖªµÀF[n]µÄ¶¨Ò壬ͨ¹ýµÚÒ»¸öºÍµÚ¶þ¸ö·½³Ìµ¹ÊÇ¿ÉÒÔÇó³öÀ´F[n]µÄ±í´ïʽ£¨ºÍÄãËù¸ø³öµÄF[n]¶¨ÒåÒ»Ö£©
4Â¥2010-10-19 13:57:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 335Çóµ÷¼Á +18 ÏëÉϰ¶Ñ½£¡£¡ 2026-04-12 19/950 2026-04-13 14:15 by ÕÅzhihao
[¿¼ÑÐ] һ־Ը³¶«´óѧ071000ÉúÎïѧѧ˶³õÊÔ·ÖÊý276Çóµ÷¼Á +8 Ľ¾øcc 2026-04-09 8/400 2026-04-13 14:08 by ÕÅzhihao
[¿¼ÑÐ] 0831Ò»ÂÖµ÷¼Áʧ°ÜÇóÖú +10 СÐÜî£î£_s 2026-04-11 10/500 2026-04-12 22:43 by ³¤¹­°Á
[¿¼ÑÐ] »¯Ñ§¹¤³Ìµ÷¼Á289 +44 yangæÃ 2026-04-07 50/2500 2026-04-12 02:36 by Çï¶¹²ËÑ¿
[ÕÒ¹¤×÷] ɽ¶«¸ßУ½Ìʦ¿¼ºË³¬¼¶ÎÞµ×Ïߣ¬Ô±¹¤¹ý²»ÏÂÈ¥À² +4 qut2026 2026-04-09 9/450 2026-04-12 00:54 by qut2026
[¿¼ÑÐ] 0860004 Çóµ÷¼Á 309·Ö +9 Yin DY 2026-04-08 9/450 2026-04-11 22:55 by dongdian1
[¿¼ÑÐ] 291·Öµ÷¼Á +5 Éϰ¶Ð¡Ó¨¼ÓÓÍ 2026-04-09 6/300 2026-04-11 21:06 by ÄæË®³Ë·ç
[¿¼ÑÐ] 296Çóµ÷¼Á +8 Íô£¡£¿£¡ 2026-04-09 8/400 2026-04-11 21:02 by ÄæË®³Ë·ç
[¿¼ÑÐ] 343Çóµ÷¼Á +9 Íõ¹ú˧ 2026-04-10 9/450 2026-04-11 20:31 by dongdian1
[¿¼ÑÐ] 085400 328·Ö Çóµ÷¼Á +10 ιÄãÒ»¸ö´ó³È×Ó 2026-04-09 14/700 2026-04-11 19:53 by lqspecial
[¿¼ÑÐ] µ÷¼Á +5 ÎĵÀÐÇ̨ 2026-04-11 5/250 2026-04-11 15:01 by ¿­¿­Òª±ä˧
[¿¼ÑÐ] 342µç×ÓÐÅϢר˶Çóµ÷¼Á +9 ÄãÈÃÎÒÔõôÀóÖ¦ 2026-04-10 10/500 2026-04-11 08:33 by zhq0425
[¿¼ÑÐ] 302·ÖÇóµ÷¼Á +9 ·²ÓïÆíÔ¸ 2026-04-08 10/500 2026-04-10 23:26 by 314126402
[¿¼ÑÐ] ±¾¿ÆÎ÷¹¤´ó 0856 324Çóµ÷¼Á +10 wysyjs25 2026-04-09 11/550 2026-04-10 08:37 by 5268321
[¿¼ÑÐ] ±¾¿Æ211 ¹¤¿Æ085400 280·ÖÇóµ÷¼Á ¿É¿çרҵ +3 LZH£¨µÈ´ýµ÷¼ÁÖÐ 2026-04-09 3/150 2026-04-09 21:29 by wutongshun
[¿¼ÑÐ] ¿¼Ñе÷¼Á-²ÄÁÏÀà-284 +28 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 28/1400 2026-04-09 20:08 by µ¹Êý321?
[¿¼ÑÐ] 0703»¯Ñ§Çóµ÷¼Á +21 ²»ÖªÃûµÄСئ 2026-04-08 21/1050 2026-04-09 18:55 by l_paradox
[¿¼ÑÐ] 367Çóµ÷¼Á +10 hffQAQ 2026-04-09 10/500 2026-04-09 18:06 by lijunpoly
[¿¼ÑÐ] Çóµ÷¼Á +13 Æâluck 2026-04-07 13/650 2026-04-08 22:46 by Öí»á·É
[¿¼ÑÐ] 22408 266Çóµ÷¼Á +11 masss11222 2026-04-07 14/700 2026-04-08 11:06 by yulian1987
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û