Harmonic Number

 投稿者:しばっち  投稿日:2015年10月28日(水)22時21分37秒
  http://mathworld.wolfram.com/HarmonicNumber.html

!'Harmonic Number
SET WINDOW -.5,5,-10,200
DRAW GRID (1,50)
FOR Y=0 TO 200
   LET X=H(Y)
   PLOT LINES:X,Y;X+1,Y
NEXT  Y
END

EXTERNAL  FUNCTION H(X)
FOR I=1 TO X
   LET S=S+1/I
NEXT I
LET H=S/2
END FUNCTION
 

戻る