����1

�ؿ� 1/(1-x) �� x=0 �Τޤ��� Taylor Ÿ����

$${1\over 1-x} = 1+x+x^2+x^3+\ldots = \sum_{n=0}^{\infty} x^n.$$

����̵�µ����ͭ�¹���Ǥ��ڤä��ؿ� ${\displaystyle \sum_{n=0}^{m} x^n}$ (��m��ޤǤ���ʬ��) �Υ���դ���������ץ�����ࡥ

       10 'First few terms of Taylor expansion
      100 '*** graphic initialization
      120 cls
      130 screen 1:console 0,25,0
      140 x1=-1.5:x2= 2.0:'<-- range of X ( X1 < X2 )
      150 y1=-1.0:y2= 10.0:'<-- range of Y ( Y1 < Y2 )
      160 window (x1,y2)-(x2,y1)
      170 line (x1,0)-(x2,0),7:'<-- x-axis
      180 line (0,y1)-(0,y2),7:'<-- y-axis
      200 '*** plotting
      210 n=640
      220 dx=(x2-x1)/n
      230 input "m=";m
      510 pset (x1,fnF(x1,m)),1
      520 for i=1 to n
      530   x=x1+i*dx
      540   line -(x,fnF(x,m)),1
      550 next
      999 end
     1000 *** definition of function
     1005 fnF(x,m)
     1010   local n,s
     1020   s=0.0
     1030   for n=0 to m
     1040     s=s+x^n
     1050   next
     1060 return(s)

230���ܤ� input �ϡ��ץ������¹Ի����ѿ����ͤ������������Ȥ� �˻Ȥ����ץ�������񤤤���Ŭ����̾������¸���Ƥ����������줫�� run ���Ƥߤ褦 (m ���ͤ����������䤷�Ƥ����Ȥɤ��ʤ뤫�� �����褦)��

510���ܤǤ��������� x1 �Ȥ��ƴؿ���Ƥ�Ǥ��롥 �ޤ��ѿ� n �ϥᥤ��ץ��������Ǥ�Ȥ��Ƥ��� (210����) ���� �ؿ��������Ǥ�Ȥ��Ƥ��� (1030����)���������ؿ������� n �� local �ѿ��ʤΤǥᥤ��ץ��������� n �Ȥϴط��ʤ� (�ƶ���ڤ� ���ʤ�) �Τ���

�ʤ������Υץ������κǽ����ʬ (100��180��) �ϡ� ����ե��å������Ѥ���Ȥ��ˤ��ĤǤ�Ȥ���Τǡ�������ʬ�����ե������ ��¸���Ƥ����������� (���ĤǤ�����ѤǤ���褦��)��