|
投稿者：しばっち
投稿日：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
|
|
|