FUNCTION Median (a() AS SINGLE, dn AS INTEGER)
DIM atmp(dn) AS SINGLE
DIM MinN AS INTEGERFOR n = 1 TO dn
atmp(n) = a(n)
NEXT'Sort
FOR n = 1 TO dn - 1
MinN = n
FOR m = n + 1 TO dn
IF atmp(m) < atmp(MinN) THEN
MinN = m
END IF
NEXT
SWAP atmp(n), atmp(MinN)
NEXT'Calc Median
IF dn MOD 2 = 0 THEN
Median = (atmp(dn \ 2) + atmp(dn \ 2 + 1)) / 2
ELSE
Median = atmp(dn \ 2 + 1)
END IF
ERASE atmp
END FUNCTION
| 比較できる2つ以上の変量について,それぞれの基本統計量を求め,考察しなさい.
(例えば1966年から1995年の1月,7月の平均気温をデータとし,それぞれについて統計量を求めるなど) メールにて提出すること.期限1月12日(火)
|