|
Читайте также: |
Dim g As Single
Dim i As Byte
g =0
For i =1 To n
g =g + (x + Faktr(i)) / (i ^ 2 - x + 1.3)
Next i
FnG =g + x * n / n ^ x
End Function
Function FnQ(x, n) As Single
Dim q As Single
Dim i As Byte
q =1
For i =1 To n
q =q * ((x + i) / (i ^ 2 + 2 * Faktr(i) + 3) - x ^ (1 / i))
Next i
FnQ =q
End Function
Function FnP(s, t) As Single
Dim g1, g2, q1, q2 As Single
g1 = Abs (FnG(1.2 * s ^ 2, t) + s / t) ^ (1 / 3)
g2 =FnG(t ^ 2 + s, t + 2) ^ 0.8
q1 =FnQ(s ^ 2 + 3.1, 2 * t)
q2 = Sqr (Abs (FnQ(2 * s ^ 2 + t, t - 2) - t / (s + 0.1)))
FnP =g1 * g2 / q1 - q2
End Function
| A | B | C | D | E |
| s= | 3,76 | t= | ||
| g1= | =ABS(FnG(1,2*C109^2;E109)+C109/E109)^(1/3) | |||
| g2= | =FnG(E109^2+C109;E109+2)^0,8 | |||
| q1= | =FnQ(C109^2+3,1;2*E109) | |||
| q2= | =КОРЕНЬ(ABS(FnQ(2*C109^2+E109;E109-2)-E109/(C109+0,1))) | |||
| p= | =C111*C112/C113-C114 | |||
| p'= | =FnP(C109;E109) |
Результати розрахунку, виконані у середовищі Excel
| A | B | C | D | E |
| s= | 3,76 | t= | ||
| g1= | 5,0846 | |||
| g2= | 83,8148 | |||
| q1= | 1068,6981 | |||
| q2= | 11,0306 | |||
| p= | -10,6318 | |||
| p'= | -10,6318 |
Задано sп=-5, sк=5, Ds=1, t=5. Відповідно до номера варіанту потрібно розробити програму для одновимірного табулювання функцій g1[x,n], g2[x,n]/q1[x,n], q2[x,n], pe[s,t] і pf[s,t] за незалежною змінною Х згідно з математичними виразами, наведеними вище. Побудувати одновимірні графіки цих функцій.
Текст програми у режимі формул – для середовища Excel
Клітина B127 à =C122 – <Enter>
Клітини B128:B137 à =B127+$G$122 – <Ctrl + Enter>
Клітини C127:C137 à =ABS(FnG(1,2*B127^2;$C$123)+B127/$C$123)^(1/3) – <Ctrl + Enter>
Клітини D127:D137à=FnG($C$123^2+B127;$C$123+2)^0,2/FnQ(B127^2+3,1;2*$C$123) – <Ctrl + Enter>
Клітини E127:E137 à =КОРЕНЬ(ABS(FnQ(2*B127^2+$C$123;$C$123-2)-$C$123/ (B127+0,1))) – <Ctrl + Enter>
Клітини F127:F137 à =C127*D127-E127 – <Ctrl + Enter>
Клітини G127:G137 à =FnP(B127;$C$123) – <Ctrl + Enter>
Результати розрахунку, виконані у середовищі Excel
| A | B | C | D | E | F | G |
| sп= | -5 | sк= | Ds= | |||
| t= | ||||||
| s | g1[x,n] | g2[x,n]/q1[x,n] | q2[x,n] | pe[s,t] | pf[s,t] | |
| -5,0 | 3,685 | 0,001 | 11,8504 | -11,8467 | -11,7598 | |
| -4,0 | 2,117 | 0,002 | 11,3277 | -11,3230 | -11,2066 | |
| -3,0 | 2,889 | 0,007 | 9,0925 | -9,0737 | -8,5821 | |
| -2,0 | 2,757 | 0,026 | 6,1364 | -6,0646 | -4,0813 | |
| -1,0 | 2,199 | 0,121 | 3,1528 | -2,8874 | 4,9655 | |
| 0,0 | 1,944 | 0,279 | 7,6687 | -7,1261 | 10,9192 | |
| 1,0 | 2,226 | 0,145 | 4,4767 | -4,1538 | 12,6825 | |
| 2,0 | 2,792 | 0,020 | 6,5321 | -6,4764 | -5,8180 | |
| 3,0 | 2,841 | 0,006 | 9,2742 | -9,2563 | -8,8291 | |
| 4,0 | 1,990 | 0,002 | 11,4376 | -11,4330 | -11,3092 | |
| 5,0 | 3,635 | 0,001 | 11,9345 | -11,9306 | -11,8147 |
Задача 7.4. Задано дійсне число s=1.32×№ (де № – номер варіанту)і додатне ціле t=3. Відповідно до номера варіанту потрібно розробити програму, яка б давала змогу отримати значення функції
,
де h[x,y] визначається за допомогою такого математичного виразу:
.
Тексти функцій і процедур – для середовища Visual Basic
Дата добавления: 2015-11-14; просмотров: 59 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Function FnZ(y, m) As Single | | | Function Max(a, b) As Single |