ÅᲨÄÇÆæÊýÁкͻƽð·Ö¸î
1.¿¼²ìÊýÁÐÁ²É¢ÐÔ
¸Ä±ä»òÔö´ón£¬¹Û²ì¸ü¶àµÄÏÁ¿¡¢ÐΣ©£¬ÀýÈ磬n·Ö±ðÈ¡50£¬100£¬200£¬¡£»À©Õ¹ÓÐЧÊý×Ö£¬¹Û²ìËænÔö´óÊýÁеı仯Ç÷ÊÆ£¬ÀýÈ磬·Ö±ðÈ¡20£¬30£¬50£»»ò¹Ì¶¨50£»»òËænÔö´ó¶øÊʵ±Ôö¼Ó¡£¶ÔʵÑéҪ˼¿¼£¬ÀýÈ磬¶¨ÒåÖеÄÖ¸±êÓë¿ÂÎ÷×¼ÔòÖеÄÖ¸±ê¼äµÄ²îÒ죻ÊýÁÐÊÕÁ²·½Ê½£»ÓÖÀýÈ磬ÈçºÎ¹À¼Æ¼«ÏÞ½üËÆÖµµÄÎó²î¡£
2.¿¼²ìº¯Êý¼«ÏÞÓëÊýÁм«Ï޵ĹØÏµ
¸Ä±äº¯Êý¼°¼«ÏÞÀàÐÍ£¬ÀýÈ磬¿¼ÂÇÁù
kkÖÖº¯Êý¼«ÏÞ£¬¼Èѡȡ¼«ÏÞ´æÔÚҲѡȡ¼«ÏÞ²»´æÔÚµÄÀý×Ó£»¸Ä±äÊýÁУ¬¸Ä±ä²ÎÊý¹Û²ì¸ü¶àµÄÁ¿£¬¿¼²ìÐεı仯Ç÷ÊÆ£»À©Õ¹ÓÐЧÊý×Ö£¬Ìá¸ß¼ÆË㾫¶È¡£Òª¶ÔʵÑé˼¿¼£¬¹éÄÉÊýÁÐÁ²É¢Ó뺯ÊýÁ²É¢µÄ¹ØÏµ¡£
Àý£º
ÓÃMathematica³ÌÐò
m=0;r=10^m;x0=0; f[x_]=x*Sin[1/x] Plot[f[x],{x,-r,r}] Limit[f[x],x->x0]
¹Û²ìf(x)?xsinxµÄͼÏó¿ÉÒÔ·¢ÏÖ£¬º¯ÊýÔÚx?0µã´¦²»Á¬Ðø£¬ÇÒº¯ÊýÖµ²»´æÔÚ£¬µ«ÔÚx?0µã´¦Óм«ÏÞ¡£
Áîx?a?1/n,n?1,2,?,100£¬×÷º¯ÊýµÄȡֵ±í£¬»É¢µãͼ¿´Æä×ÓÁеÄÇ÷ÏòÇé¿ö
k?1n k=10;p=25; a[n_]=1/n;
tf=Table[{n,N[f[a[n]],k]},{n,1,p}]
ListPlot[tf]
Limit[f[a[n]],n¡úInfinity,Direction¡ú1]
·Ö±ðÈ¡²»Í¬µÄÊýÁÐa(ÒªÇóa?0)£¬ÖØ×öÉÏÊö¹ý³Ì£¬²¢½«¸÷´ÎËùµÃͼÐεķÖÎö½á¹û±È½Ï£¬¿ÉÖª¸÷×ÓÁеļ«ÏÞÖµ¾ùΪÉÏÊöº¯ÊýµÄ¼«ÏÞÖµ¡£
¶ÔÓÚg(x)?sinx£¬ÀàËÆµØ¿¼²ìÔÚx?0µã´¦µÄ¼«ÏÞ¡£
nn?1ËÄ ÊµÑé½áÂÛ
1.ÒÔS±íʾµ¥Î»Ô²µÄÔ²ÄÚ½ÓÕý3?2¶à±ßÐÎ
nn?1Ãæ»ý£¬ÔòÆä¼«ÏÞΪԲÖÜÂÊ?¡£ÓÃÏÂÁÐMathematica³ÌÐò¿ÉÒÔ´ÓÁ¿ºÍÐÎÁ½¸ö½Ç¶È¿¼²ìÊýÁÐ{S}µÄÊÕÁ²Çé¿ö
n2.ÓÉF?0;0F1?1;Fn?Fn?1?Fn?2ÓÐÖøÃûµÄÅᲨÄÇÆæÊýÁÐ
{Fn}¡£ Áî
Rn?1?Fn?1Fn£¬ÓÉFµÝÍÆ¹«Ê½¿ÉµÃ
n3.ÊýÁÐ
{?i?1i?p}nµ±p?1ʱÊÕÁ²£¬p?1ʱ·¢É¢£»Êý
ÁÐ{sinn}·¢É¢¡£
4.·Ö±ðÈ¡²»Í¬µÄÊýÁÐa(ÒªÇóa?0)£¬ÖØ×ö
nn¹ý³Ì£¬²¢½«¸÷´ÎËùµÃͼÐεķÖÎö½á¹û±È½Ï£¬¿ÉÖª¸÷×ÓÁеļ«ÏÞÖµ¾ùΪÉÏÊöº¯ÊýµÄ¼«ÏÞÖµ¡£¶ÔÓÚ