Function Max(a, b) As Single

If a > b Then Max =a else Max =b

End Function

Function Min(a, b) As Single

If a < b Then Min =a else Min =b

End Function

Function FnH(x, y) As Single

Dim h, z, c As Single

Dim i As Byte

h =0: z =-1: i =1

c =(i + Cos (y + i)) / (1.23 + x ^ 2 + Faktr(i))

Do While Abs (c) >= 0.001

h =h + z * c

z =-z: i =i + 1

c =(i * x + Cos (y + i)) / (1.23 + x ^ 2 + Faktr(i))

Loop

FnH =h

End Function

Function FnW(s, t) As Single

Dim h1, h2, h3, h4, h5 As Single

h1 = Abs (FnH(s, t) + s / (t + 0.1)) ^ (1 / 3)

h2 =FnH(s - t, s * t) ^ 2

h3 =FnH(s * t, s + t) ^ 2

h4 = Abs (FnH(1 - s, t ^ 2)) ^ (1 / 2)

h5 =(FnH(t - s * t, s ^ 2) ^ 2) ^ (1 / 3)

FnW =h1 + Max(h2, h3) / Min(h4, h5)

End Function

A	B	C	D	E
	s=	7,45	t=
	h1=	=ABS(FnH(C153;E153)+C153/(E153+0,1))^(1/3)
	h2=	=FnH(C153-E153;C153*E153)^2
	h3=	=FnH(C153*E153;C153+E153)^2	max(h2; h3)=	=МАКС(C156:C157)
	h4=	=ABS(FnH(1-C153;E153^2))^(1/2)
	h5=	=(FnH(E153-C153*E153;C153^2)^2)^(1/3)	min(h4; h5)=	=МИН(C158:C159)
	w=	=C155+E157/E159
	w'=	=FnW(C153;E153)

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

A	B	C	D	E
	s=	7,45	t=
	h1=	1,3573
	h2=	0,0168
	h3=	0,0010	max (h2; h3)=	0,0168
	h4=	0,3627
	h5=	0,1118	min (h4; h5)=	0,1118
	w=	1,5072
	w'=	1,5072

Задано s_п=-5, s_к=5, Ds=1, t=3. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій h₁[x,y], max (h₂; h₃), min (h₄; h₅), w_e[s,t] і w_f[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

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

Клітина B172 à =C167 – <Enter>

Клітини B173:B182 à =B172+$G$167 – <Ctrl + Enter>

Клітини C172:C182 à =ABS(FnH(B172;$C$168)+B172/($C$168+0,1))^(1/3) – <Ctrl + Enter>

Клітини D172:D182à =max(FnH(B172-$C$168;B172*$C$168)^2;FnH(B172*$C$168;B172+ $C$168)^2) – <Ctrl + Enter>

Клітини E172:E182à =min(ABS(FnH(1-B172;$C$168^2))^(1/2);(FnH($C$168-B172*$C$168; B172^2)^2)^(1/3)) – <Ctrl + Enter>

Клітини F172:F182 à =C172+D172/E172 – <Ctrl + Enter>

Клітини G172:G182 à =FnW(B172;$C$168) – <Ctrl + Enter>

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

A	B	C	D	E	F	G
	sп=	-5	sк=		Ds=
	t=
	s	h1[x,y]	max (h2; h3)	min (h4; h5)	we[s,t]	wf[s,t]
	-5,0	1,212	0,012	0,0957	1,3327	1,3327
	-4,0	1,141	0,019	0,1104	1,3116	1,3116
	-3,0	1,064	0,022	0,1344	1,2289	1,2289
	-2,0	0,982	0,040	0,1705	1,2184	1,2184
	-1,0	0,878	0,040	0,2229	1,0592	1,0592
	0,0	0,554	0,104	0,1561	1,2199	1,2199
	1,0	0,750	0,092	0,3921	0,9832	0,9832
	2,0	0,927	0,525	0,4204	2,1753	2,1753
	3,0	1,037	0,024	0,2717	1,1239	1,1239
	4,0	1,127	0,074	0,1971	1,5042	1,5042
	5,0	1,204	0,023	0,1579	1,3520	1,3520

7.4. Індивідуальні завдання

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

де f[x,y,z] визначається з таких математичних виразів:

1)	2)
3)	4)
5)	6)
7)	8)
9)	10)
11)	12)
13)	14)
15)	16) .

Задано s_п=-10, s_к=10, Ds=2, y=4.7, z=1.32. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій c₁[x,y,z], c₂[x,y,z], c₃[x,y,z], c_e[s,t] і c_f[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

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

,

де t[i,j] визначається за допомогою таких логічних виразів:

1)	2)
3)	4)
5)	6)
7)	8)
9)	10)
11)	12)
13)	14)
15)	16)

Задано s_п=-5, s_к=5, Ds=1, t=5. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій g₁[x,n], g₂[x,n]/q₁[x,n], q₂[x,n], p_e[s,t] і p_f[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

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

,

де функція g[x,n] визначається з таких математичних виразів:

1)	6)	11)
2)	7)	12)
3)	8)	13)
4)	9)	14)
5)	10)	15)

Функція q[x,n] визначається за тим самим виразом, що і функція g[x,n], але замість суми необхідно обчислити добуток і навпаки.

Задано s_п=-5, s_к=5, Ds=1, t=5. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій g₁[x,n], g₂[x,n]/q₁[x,n], q₂[x,n], p_e[s,t] і p_f[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

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

,

де h[x,y] визначається з таких математичних виразів:

1)	6)	11)
2)	7)	12)
3)	8)	13)
4)	9)	14)
5)	10)	15)

Задано s_п=-5, s_к=5, Ds=1, t=3. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій h₁[x,y], max {h₂; h₃}, min {h₄; h₅}, w_e[s,t] і w_f[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.

7.5. Контрольні запитання

1. Навести приклади використання функції сторінки ИСТИНА

2. Навести приклади використання функції сторінки ЛОЖЬ

3. Навести приклади використання функції сторінки ЕСЛИ

4. Навести приклади використання функції сторінки И

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