Блок-схема

Вид программы на языкеqbasic

CLS

n = 11

INPUT "Введите Коэффициент Стьюдента="; tt

DIM x(1 TO n), y(1 TO n), tx(1 TO n), ty(1 TO n)

DATA 0.001, 0.002, 0.005, 0.01, 0.04, 0.05, 0.1, 0.2, 0.3, 0.4, 0.5

FOR i = 1 TO n

READ x(i)

NEXT i

DATA 0.98, 0.97, 0.95, 0.92, 0.9, 0.84, 0.81, 0.8, 0.8, 0.81, 0.82, 0.84

FOR i = 1 TO n

READ y(i)

NEXT i

mx = 0: my = 0

FOR i = 1 TO n

mx = mx + x(i)

my = my + y(i)

NEXT i

mx = mx / n: my = my / n

dx = 0: dy = 0: S = 0

FOR i = 1 TO n

dx = dx + (x(i) - mx) ^ 2

dy = dy + (y(i) - my) ^ 2

S = S + (x(i) - mx) * (y(i) - my)

NEXT i

dx = dx / (n - 1): dy = dy / (n - 1)

CKOx = SQR(dx): CKOy = SQR(dy)

Vx = CKOx * 100 / mx: Vy = CKOy * 100 / my

FOR i = 1 TO n

tx(i) = (x(i) - mx) / CKOx

ty(i) = (y(i) - my) / CKOy

NEXT i

Kxy = S / ((n - 1) * CKOx * CKOy)

tr = ABS(Kxy) * SQR(n - 2) / SQR(1 - Kxy ^ 2)

PRINT " N", "x", "y", "tx", "ty"

FOR i = 1 TO n

PRINT i, x(i), y(i), tx(i), ty(i)

NEXT i

PRINT "число ответов ="; n

PRINT "табличное значение критерия Стьюдента ="; tt

PRINT "математическое ожидание :"; "по x="; mx, "по y="; my

PRINT "дисперсия :"; "по x="; dx, "по y="; dy

PRINT "среднеквадратическое отклонение :"; "по x="; CKOx, "по y="; CKOy

PRINT "коэффициент вариации :"; "по x="; Vx, "по y="; Vy

PRINT "коэффициент корреляции ="; Kxy

PRINT "рассчитанное значение критерия Стьюдента ="; tr

IF tr >= tt THEN

PRINT "линейная зависимость между x и y Cуществует"

ELSE

PRINT "линейная зависимость между x и y Oтсутствует"

END IF

END

Результат работ в qBasic:

Пример работы в Excel

	A	B	C	D	E
1	№ п/п	Ионная сила раствора Х(i)	Коэффициент активности Y(i)	нормир. откл. по у(i)	нормир. откл. по х(i)
2	1	0,001	0,98	-0,81265	-0,81265
3	2	0,002	0,97	-0,80705	-0,80705
4	3	0,005	0,95	-0,79026	-0,79026
5	4	0,01	0,92	-0,76227	-0,76227
6	5	0,04	0,9	-0,59435	-0,59435
7	6	0,05	0,84	-0,53837	-0,53837
8	7	0,1	0,81	-0,2585	-0,2585
9	8	0,2	0,8	0,301244	0,301244
10	9	0,3	0,81	0,860988	0,860988
11	10	0,4	0,82	1,420731	1,420731
12	11	0,5	0,84	1,980475	1,980475
13	Матем ожидание по х =			0,146182
14	Матем ожидание по у =			0,876363636
15	Дисперсия по х =			0,031917
16	Дисперсия по у =			0,004785455
17	Среднеквадратичное отклонение по х=			0,178653
18	Среднеквадратичное отклонение по у=			0,06917698
19	Коэффициент корреляции =			-0,66611
20	Критерий Стьюдента =			2,4735

Результаты эксперимента