ちょっと思い立って「BASIC」を思い出そうと。
Macintosh なので、
BASIC.app
を探してきた。
簡単なprogram を思い出す。
PRINT,
DATA,
LET,
FOR,
などなど。
そして、
5つの点数の平均、分散、標準偏差を
計算するprogram。
以下；
———
———
DECLARE EXTERNAL FUNCTION mean, variance, StandardDeviation
DATA 95, 56, 78, 87, 67
DIM x(5)
MAT READ x
PRINT “平均”;mean(x),”分散”;variance(x),”標準偏差”;StandardDeviation(x)
END
EXTERNAL FUNCTION mean(x())
LET a=LBOUND(x)
LET b=UBOUND(x)
LET s=0
FOR i=a TO b
LET s=s+x(i)
NEXT i
LET mean=s/SIZE(x)
END FUNCTION
EXTERNAL FUNCTION variance(x())
DECLARE EXTERNAL FUNCTION mean
LET a=LBOUND(x)
LET b=UBOUND(x)
LET m=mean(x)
LET s=0
FOR i=a TO b
LET s=s+(x(i)-m)^2
NEXT i
LET variance=s/SIZE(x)
END FUNCTION
EXTERNAL FUNCTION StandardDeviation(x())
DECLARE EXTERNAL FUNCTION variance
LET StandardDeviation=SQR(variance(x))
END FUNCTION
—-
—-
BASIC.app
で実行すると。
—-
—-
平均 76.6 分散 193.04 標準偏差 13.8938835463667
—–
—–
と出てきた。
——-
