3. -
U(t) = U(x, y, z), x = x(t) = t 2, y = y(t) = sin t, z = z(t) = cos t,
t = 0; 0,1; , 1.
. - U(t), -.
1) Visual Basic. Microsoft Visual Basic.
2) Insert Module -
Option Base 1 1
Function U(t)
Dim uu(3)
x = t ^ 2: uu(1) = x -
y = Sin(t): uu(2) = y
z = Cos(t): uu(3) = z
U = uu U uu
End Function
3) Visual Basic Excel A1:D1 , . 4.
4
| A | B | C | D | |
| t | x | y | z | |
| 0,1 | 0,01 | 0,099833 | ||
| 0,2 | 0,04 | 0,198669 | ||
| 0,3 | 0,09 | 0,29552 | ||
| 0,4 | 0,16 | 0,389418 | ||
| 0,5 | 0,25 | 0,479426 | ||
| 0,6 | 0,36 | 0,564642 | ||
| 0,7 | 0,49 | 0,644218 | ||
| 0,8 | 0,64 | 0,717356 | ||
| 0,9 | 0,81 | 0,783327 | ||
| 0,841471 |
A2, A3 0 0,1. A2:A3 A12.
B2:D2, =U(A2) Ctrl Shift Enter. B2:D2 .
B2:D2 B12:D12.
4. , 4 3 (. 5).
5
| -1 | ||
Excel. Excel.
A1:C4 (. 6).
D1 =(A1:C1).
D1 D4. D1:D4 .
. - Sum_str(x), x, M N , - M , .
1) Visual Basic. Microsoft Visual Basic.
2) Insert Module -
Option Base 1
Function Sum_str(x)
Dim y()
Dim M As Integer, N As Integer
M = x.Rows.Count
N = x.Columns.Count
ReDim y(M)
For i = 1 To M:
y(i) = 0: For j = 1 To N: y(i) = y(i) + x(i, j): Next j
Next i
Sum_str = Application.Transpose(y)
End Function
|
|
|
3) E1:E4, =Sum_str(A1:C4) Ctrl Shift Enter. E1:E4 , D1:D4.
6
| A | B | C | D | E | |
| -1 | |||||
.
-
1. .
2. .
3. .
4. .
5. .
6. .
7. .
8. .
9. .
10. .
11. .
12. , .
13. , .
14. , .
15. .
16. , xij = i + j.
17. , xi = i.
18. , xij = 2 i + 5 j 2.
19. , xi = i 2.
20. , xij = i * j.
4
