Function FnZ(y, m) As Single

Dim z1, z2, z3, z4, z5 As Single

z1 =FnT(y + 0.1, m ^ 0.2 - 1) ^ 2

z2 =FnT(m + y ^ 2, y + 3)

z3 =FnT(y ^ 2 + 1.1, y * m ^ 0.3) ^ (2 / 3)

z4 =1.23 + z1 - Abs (y * z2) ^ (2 / m)

z5 =2.6 + z3 + Abs (y / m) ^ (1 / 3)

FnZ =z4 / z5

End Function

Function FnT(i, j) As Single

Dim c As Single

c =j * Log (Abs (i + j) ^ 0.56) ^ 2

c = Abs (i) ^ 0.13 - c / (i * 3.6 + 0.25)

If (i >= j) And (i < 2 * j) Then

c =3 * Cos (i ^ 2 - j / 6) ^ 2

c =c / Log (Abs (i + j - 0.11) ^ 1.3) ^ 2

End If

If i < j Then c =1 + i * j ^ 2 + Sin (i ^ 3) ^ 2

FnT =c

End Function

або

Function FnT1(i, j) As Single

Dim c As Single

If (i >= j) And (i < 2 * j) Then

c =3 * Cos (i ^ 2 - j / 6) ^ 2

FnT1 =c / Log (Abs (i + j - 0.11) ^ 1.3) ^ 2

ElseIf i < j Then FnT1 =1 + i * j ^ 2 + Sin (i ^ 3) ^ 2

Else

c =j * Log (Abs (i + j) ^ 0.56) ^ 2

FnT1 = Abs (i) ^ 0.13 - c / (i * 3.6 + 0.25)

End If

End Function

A	B	C	D	E
	y=	4,65	m=
	z1=	=FnT(C65+0,1;E65^0,2-1)^2
	z2=	=FnT(E65+C65^2;C65+3)
	z3=	=FnT(C65^2+1,1;C65*E65^0,3)^(2/3)
	z4=	=1,23+C67-Abs(C65*C68)^(2/E65)
	z5=	=2,6+C69+Abs(C65/E65)^(1/3)
	z=	=C70/C71
	z'=	=FnZ(C65;E65)

Результати розрахунку, виконані у середовищі Excel

A	B	C	D	E
	y=	4,65	m=
	z1=	1,4549
	z2=	1,2202
	z3=	1,1078
	z4=	0,6825
	z5=	4,6839
	z=	0,1457
	z'=	0,1457

Задано y_п=-5, y_к=5, Dy=1, m=5. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій t₁[i,j], t₂[i,j], t₃[i,j], z_e[y,m] і z_f[y,m] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

Текст програми у режимі формул – для середовища Excel

Клітина B84 à =C79 – <Enter>

Клітини B85:B94 à =B84+$G$79 – <Ctrl + Enter>

Клітини C84:C94 à =1,23+FnT(B84+0,1;$C$80^0,2-1)^2 – <Ctrl + Enter>

Клітини D81:D94à =Abs(B84*FnT($C$80+B84^2;B84+3))^(2/$C$80) – <Ctrl + Enter>

Клітини E81:E94 à =2,6+FnT(B84^2+1,1;B84*$C$80^0,3)^(2/3)+ABS(B84/$C$80)^(1/3) – <Ctrl + Enter>

Клітини F81:F94 à (C84-D84)/E84 – <Ctrl + Enter>

Клітини G81:G94 à =FnZ(B84;$C$80) – <Ctrl + Enter>

Результати розрахунку, виконані у середовищі Excel

A	B	C	D	E	F	G
	yп=	-5	yк=		Dy=
	m=
	y	t1[i,j]	t2[i,j]	t3[i,j]	ze[y,m]	zf[y,m]
	-5,0	2,837	2,309	5,0541	0,1045	0,1045
	-4,0	1,554	2,060	4,9133	-0,1030	-0,1030
	-3,0	2,312	1,780	4,7333	0,1124	0,1124
	-2,0	2,276	1,456	4,5015	0,1820	0,1820
	-1,0	2,956	1,053	4,2738	0,4453	0,4453
	0,0	2,259	0,000	3,6083	0,6261	0,6261
	1,0	2,246	0,495	3,6488	0,4800	0,4800
	2,0	2,415	0,076	3,8389	0,6093	0,6093
	3,0	2,535	1,598	4,4738	0,2094	0,2094
	4,0	2,631	1,850	4,6054	0,1694	0,1694
	5,0	2,712	2,081	4,7240	0,1336	0,1336

Задача 7.3. Задано дійсне число s=1.75×№ (де № – но­мер ва­рі­ан­ту)і додатне ціле t=5. Відповідно до номера варіанту потрібно розробити програму, яка б давала змогу отримати значення функції

,

де g[x,n] і q[x,n] визначаються за допомогою таких математичних виразів:

і .

Тексти функцій і процедур – для середовища Visual Basic

Дата добавления: 2015-11-14