ネピアの数

ネピアの数を計算するhspのプログラムを作ってみました。
難しいのは数式を表示するとこかな。

;ネピアの数計算
;lim x→∞ (1+1/n)^n
#include "hspmath.as"
mes "ネビアの数"
pos 20, 40
mes "e = lim ( 1 + ― ) "
pos 140, 20
mes "1"
pos 140, 60
mes "n"
pos 165, 28
mes "n"
pos 50,55
mes "n→∞"

pos 10,100
n = 1
e1 = 2
do
n = n * 4
e2 = e1
e1 = pow (1.0 + 1.0 / n, n)
mes "n = " + n + " の時 e = " + e1
until absf(e1 - e2) < 0.0000005

Post a comment or leave a trackback: Trackback URL.

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です