²é¿´: 2291  |  »Ø¸´: 10
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

trrista

Òø³æ (СÓÐÃûÆø)

[ÇóÖú] Çë½ÌÏ£ºÈçºÎÇóÒ»¸öº¯ÊýÔÚÒ»¶¨·¶Î§ÄÚµÄÈ«²¿½â

ÀàËÆÓÚ³¬Ô½º¯Êýtan(x)=1/x£¬Èç¹ûÏëÇóÔÚ·¶Î§[1,10]ÄÚµÄËùÓн⣬¸÷λÓÐʲô½¨ÒéÂð£¿ÎÒÆ½Ê±Ö÷ÒªÓÃmatlab£¬ÖªµÀfsolve³£ÓÃÀ´½âº¯Êý£¬ÄÜ´¦ÀíÕâ·½ÃæµÄÎÊÌâÂð£¿
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

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

walk1997

½ð³æ (ÖøÃûдÊÖ)

mathematicaµÄ³ÌÐò ²»ÖªµÀÕâÑù³É²» ËÙ¶ÈÉÏ
s = {-1000};
For[a = 0.01, a ¡Ü 10,
    t1 = x /. FindRoot[Tan[x] == 1/x, {x, a, 0, 10}];
    If[Abs[t1 - Last[s]] >= 10^-9, s = Append[s, t1]];;
    a = a + 0.01];
s = Delete[s, 1]

½á¹û
{0.860334, 3.42562, 6.4373, 9.52933}
7Â¥2012-02-12 17:32:55
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 11 ¸ö»Ø´ð

dxwbucea

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

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
trrista(½ð±Ò+1): ¡ïÓаïÖú 2012-02-14 03:46:10
¿ÉÒÔÏÈ»­³öº¯Êýy=tan(x)-1/x£¬ÔÚ·¶Î§[1,10]ÄÚµÄͼÐΣ¬ÄÇô£¬Óм¸¸ö½â£¬¾ÍһĿÁËÈ»ÁË£¬È»ºó£¬ÔÙÇóÿ¸ö½âµÄ¾«È·Öµ¡£
2Â¥2012-02-12 01:37:05
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

trrista

Òø³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
Â¥: Originally posted by dxwbucea at 2012-02-12 01:37:05:
¿ÉÒÔÏÈ»­³öº¯Êýy=tan(x)-1/x£¬ÔÚ·¶Î§[1,10]ÄÚµÄͼÐΣ¬ÄÇô£¬Óм¸¸ö½â£¬¾ÍһĿÁËÈ»ÁË£¬È»ºó£¬ÔÙÇóÿ¸ö½âµÄ¾«È·Öµ¡£

ÆäʵÎÒ¾ÙµÄÖ»ÊǸöÀý×Ó£¬Îҵĺ¯ÊýÒª¸´ÔӵĶ࣬¶øÇÒÊÇһϵÁк¯ÊýÔÚÒ»¶¨·¶Î§µÄÈ«²¿½â£¬Èç¹û¶¼Êý£¬»¨µÄʱ¼ä¾«Á¦Ì«¶àÁË¡£ÈÔȻлл£¡
3Â¥2012-02-12 10:14:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

Ëï?ª730

ÖÁ×ðľ³æ (ÖªÃû×÷¼Ò)

ÓÅÐã°æÖ÷

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
trrista(½ð±Ò+1): ¡ïÓаïÖú 2012-02-14 03:46:30
»®·Öµ¥µ÷Á¬ÐøÇø¼ä ·Ö±ð¼ÆËã
Ó¦¸ÃÓÐ4¸ö½â ·Ö±ðÔÚ0.9  3.5    6.5    9.6   ¸½½ü

¿É»­³ötan(x)ºÍ1/xµÄͼÏó ÕÒµ½½»µã(ºá×ø±ê)  ±ÜÃâÒÅ©
sunyu730_emuch@126.com
4Â¥2012-02-12 10:28:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û