3. Індивідуальні завдання
3.1 Індивідуальне завдання 1
Задача 1.1. Задано x=0.48№, y=0.47№, z=-1.32№ (де № – номер варіанту). Відповідно до номера варіанту потрібно розробити програму для обчислення значень функцій a[x,y,z,b] і b[x,y,z] згідно з такими математичними виразами:
,
;
Текст програми у режимі формул – для середовища Excel
Тексти функцій – для середовища Visual Basic
Function fun_b(x, y, z) As Single
Dim f1, f2, f3 As Single
f1 = Cos(Atn((x * x + y) / (z + 1))) ^ 2
f2 = x / y
f3 = Exp(3 * x + y)
fun_b = f1 + f2 * f3
End Function
Function fun_a(x, y, z, b) As Single
Dim f1, f2, f3 As Single
f1 = Abs(x) ^ 0.43
f2 = Exp(x - y)
f3 = (Abs(y ^ 2 + b) ^ 0.22) ^ (1 / 2)
f4 = 1 + x ^ 2 * Abs(y - Tan(z) ^ 2)
fun_a = f1 + (f2 + f3) / f4
End Function
Результати розрахунку, виконані у середовищі Excel
Задача 1.2. Задано xп=-1, xк=1, x=0.2, y=4.7, z=1.32. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій a=f[x,y,z,b] і b=f[x,y,z] за незалежною змінною х згідно з математичними виразами, наведеними в завданні 1.1. Побудувати одновимірні графіки цих функцій.
Текст програми у режимі формул – для середовища Excel
Одновимірне табулювання функцій b=f[x,y,z] і a=f[x,y,z,b]
Клітина B26 =C22 – < Enter>
Клітини B27:B36 =B26+$G$22 – <Ctrl + Enter>
Клітини C26:C36 =Fn_b(B26;$C$23;$E$23) – <Ctrl + Enter>
Клітини D26:D36 =Fn_a(B26;$C$23;$E$23;C26) – <Ctrl + Enter>
Клітини E26:E36 =D26+C26 – <Ctrl + Enter>
Результати розрахунку, виконані у середовищі Excel
Задача 1.3. Задано xп=-1, xк=1, x=0.2, yп=-2, yк=2, y=0.2, z=1.32. Відповідно до номера варіанту потрібно розробити програму для двовимірного табулювання функцій a=f[x,y,z,b] і b=f[x,y,z] за незалежними змінними х і y згідно з математичними виразами, наведеними у задачі 1.1. Побудувати двовимірні графіки цих функцій
Текст програми у режимі формул – для середовища Excel
Одновимірне табулювання функції b=f[x,y,z]
Клітина B7=C3
Клітини
В8:В27В7+$G$3–
<Ctrl + Enter>
Клітина C6=C2
Клітини D6:M6C6+$G$2– <Ctrl + Enter>
Клітини C7:M27=Fn_b(C$6;$B7;$E$4) – <Ctrl + Enter>
Двовимірне табулювання функції a=f[x,y,z,b]
Клітина B31=C3
Клітини В32:В51В32+$G$3– <Ctrl + Enter>
Клітина C30=C2
Клітини D30:M30C6+$G$2– <Ctrl + Enter>
Клітини C31:M51 =Fn_a(C$30;$B31;$E$4;C7)– <Ctrl + Enter>
Результати розрахунку, виконані у середовищі Excel
3.2 Індивідуальне завдання 2
Задача 2.1.
Задано x=0.34№,
y=0.18№,
z=-1.72№
(де № –
номер варіанту).
Відповідно до номера варіанту потрібно
розробити програму для обчислення
значень функцій c[x,y,z,b]
i
b[x,y,z]
згідно з такими математичними виразами:
;
Текст програми у режимі формул – для середовища Excel
КлітинаC16=1+((G9^2+(SIN((ABS(C9))^0,52))^2)/(3+(C9/ФАКТР(1))+(E9^2/ФАКТР(2))+(G9^3/ФАКТР(3))))+(((G9^2+C9))/(G9+C9))
КлітинаF16=ЕСЛИ(И(E9>=2;E9<2,5);((2*COS((((ABS(C9))^0,1)(C15/6))^2))/(((LN((ABS(G9))^0,63))^2)+2,1));ЕСЛИ(И(E9>=4,1;E9<8);((1+(C9*(E9^2)))/(C15+(C9^2)))+(SIN(E9^3))^2;(ABS(C9))^0,1)-((C15/6)*((LN((ABS(G9))^0,3))^2)))
Тексти функцій – для середовища Visual Basic
Function Fn_B2(x, y, z) As Single
Dim b1, b2, b3 As Single
b1 = Cos(Atn((x ^ 3 + y) / (Abs(z) ^ 0.45 + 1))) ^ 2
b2 = Exp(-3 * x) / (x + z)
Fn_B2 = b1 + b2
End Function
Function Fn_C2(x, y, z, b) As Single
If (x < 3.345) Then
Fn_C2 = (Abs(b + Sin(Abs(x + y) ^ 0.2) ^ 2)) ^ (1 / 2)
ElseIf (x >= 4) And (x < 5) Then
Fn_C2 = (Abs(x) ^ 0.34) / (b * b + y) + Sin(y ^ 3) ^ 2
Else
Fn_C2 = Abs(x + y) ^ 0.2 + Tan(3 * b / y)
End If
End Function
Результати розрахунку, виконані у середовищі Excel
Задача 2.2. Задано xп=-1, xк=1, x=0.2, y=4.2, z=1.33. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання логічних функцій с=f[x,y,z,b] і b=f[x,y,x) за незалежною змінною х згідно з математичними виразами, наведеними в завданні 2.1. Побудувати одновимірні графіки цих функцій.
Текст програми у режимі формул – для середовища Excel
Одновимірне табулювання функцій b=f[x,y,z] і c=f[x,y,z,b]
Клітина B6 =C2
Клітина B7:B16 =B6+$G$2 – <Ctrl + Enter>
Клітина C6:C16 =Fn_B2(B6;$C$3;$E$3)– <Ctrl + Enter>
Клітина D6:D16 =Fn_C2(B6;$C$3;$E$3;C6)– <Ctrl + Enter>
Клітина E6:E16 =D6+C6 – <Ctrl + Enter>
Результати розрахунку, виконані у середовищі Excel
Задача 2.3. Задано xп=-1, xк=1, x=0.1, yп=-2, yк=2, y=0.2, z=1.33. Відповідно до номера варіанту потрібно розробити програму для двовимірного табулювання логічних функцій с=f[x,y,z,b] і b=f[x,y,z] за незалежними змінними х і у згідно з математичними виразами, наведеними в завданні 2.1. Побудувати двовимірні графіки цих функцій, бажано гістограми.
Текст програми у режимі формул – для середовища Excel
Одновимірне табулювання функції b=f[x,y,z]
Клітина B7 =C3 – <Enter>
Клітини B8:B27 =B7+$G$3 – <Ctrl + Enter>
Клітина C6 =C2 – <Enter>
Клітини D6:W6 =C6+$G$2 – <Ctrl + Enter>
Клітини C7:W27 =Fn_B2(C$6;$B7;$E$4)– <Ctrl + Enter>
Двовимірне
табулювання функції c=f[x,y,z,b]
Клітина B31 =C3
Клітини B32:B51 =B31+$G$3– <Ctrl + Enter>
Клітина C30 =C2
Клітини D30:W30 =C30+$G$3 – <Ctrl + Enter>
Клітини C31:W51 =Fn_C2(C$30;$B32;$E$4;C8) – <Ctrl + Enter>
Результати розрахунку, виконані у середовищі Excel
