懐かしい「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
-----
-----
と出てきた。
-------
