:

:

:

:

06, ..

:

..

.

2008


.

     I   

1.   ....................................................................3

2.   ..................................................6

1)   ........................................6

2)   .............................................9

3)   ...............................12

4)   .....17

a)   .......18

b)   .....20

   II   

1) ........................................22

2) .............................................24

3) ........................................26

4) ..28

  III    ..65

  IV    .................................................................66


                                     I.         .

.

, () , (), , , .

, , .

: . : , ..

. , . . - , , , , . , , , . , .

Excel MathCAD, Microsoft Visual Basic.

MathCAD.

MathCAD , , . , Excel, Word.

Mathcad , , , . , Mathcad , .

MathCAD . , , , .

Microsoft Office Excel.

Excel, , , .

, - , - . , . , Excel .

. , , , Visi Calc, . , . . , , , . Windows .

Windows . , , , Windows.

Visual Basic.

Microsoft Visual Basic , Microsoft Windows. Excel MathCAD . , .

 

:

.

.

, n×n, . . . .

, , ( ) , (, ), , . . ( ).

. , () , : Δ ≠ 0.

, . :

1.      Δ = 0 Δxi = 0. , xi , . . k. .

2.      Δ = 0 Δxi ≠ 0. , xi, . , .

.

:

, :

:

, , :

Ax = b. (1)

(1) .

.

, . . , , :

. , :

x, y,. , :

:

:

:

.

. . (D ≠ 0), -1. , -1() = -1. ,

(-1) = -1.

-1 = = , :

= -1.

, , :

1.   -1.

2.   -1 , . -1.

, .

. .

: , , . , , . , .

.

:

1.         ( ).

2.         :

3.         :

4.         , 5. ( ). n n , :

1

:

:

:

Δ = 3*4*(-4)+7*(-3)*5+(-2)*(-8)*5-5*4*5-3*(-3)*(-8)-7*(-2)*(-4) = 48-105+80-100-72-56 = 128-333 = -205.

Δ1 = -112+(-45)+(-192)-(-240)-24-168 = -112-45-192+240-24-168 = 240-541 = -301.

Δ2 = -36-420-280-75+196-288 = 196-1099 = -903.

Δ3 = -144-147-30-140+27-168 = -629+27 = -602.

. .

:

x1 = Δ1/Δ = -301/(-205) = 1,468292682927 ≈ 1,47;

x2 = Δ2/Δ = -903/(-205) = 4,40487804878 ≈ 4,4;

x3 = Δ3/Δ = -602/(-205) = 2,936585365854 ≈ 2,93.

.

, , :

, , :

x1, x2,...xn , n ( n ):

, :

.

. , m c n :

, a11 ≠ 0 ( , ). :

C2-(a21/a11)*C1,

...

Cm-(am1/a11)*C1,

.. Ci-(ai1/a11)*C1, i = 2, 3, ..., m.

. . ( ) , 11.

:

. . , 11 . , , , .

, aij, I = j.

, α22.

C1-(a12/α22)*C2,

...

Cm-(αm2/α22)*C2,

.. Ci-(αi2/α22)*C2, i = 3, ..., m.

. . ( ) , () α22.

, - . . . :

, , , m- :

γmn*xn = δm.

xn = δm/γmn.

m-1- , xn-1- .

, , .

1

:

:

Δ = [1*(-4)*(-2)+2*2*1+(-1)*(-1)*(-1)]-[1*(-4)*(-1)+2*(-1)*(-2)+2*(-1)*1] = [8+4-1]-[4+4-2] = 11-6 =5,

. . Δ ≠ 0.

. . . .

, :

. a21 (. . ) C2-(a21/a11)*C1 = C2-(2/1)*C1 = C2-2*C1:

31 (. . ). C3-(a31/a11)*C1 = C3-(-1/1)*C1 = C3+C1:

, . , . . 32. C3-(a32/a22)*C2 = C3-(1/-2)*C2 = C3+1/2C2:

, , , - :

:

. 3:

-5/2x3 = 3/2,

x3 = (3/2):(-5/2) = 3/2*(-2/5) = -3/5.

x3 = -3/5 . () (-2x2-3x3 = 1):

-2x2-3(-3/5) = 1,

-2x2+9/5 = 1,

-2x2 = 1-9/5,

-2x2 = -4/5,

x2 = (-4/5):(-2) = (-4/5)*(-1/2) = 2/5.

x2 = 2/5 . 3 () (x1-x2+x3 = 0):

x1-2/5+(-3/5) = 0,

x1-5/5 = 0,

x1 = 5/5 = 1.

:

. .

. .

. .

.

, (, , ) :

1.         - . .

2.         ( ).

3.         , - .


.

, , , .

( ), :

1:

1 = (-a12/a11)2-a13/a113-a14/a114-a15/a11.

2 . . :

α = -aik/aii, i = 1, 2, 3, 4; k = 1, 2, 3, 4, 5.

:

L1 1.

- ( ):

1(0), 2(0), 3(0), 4(0).

(*), :

, . . . . . :

.

, () 1, 2, 3, 4.

, , , , .

:

, , , :

.

:

:

:

( )

, P0 = (1(0), 2(0), 3(0), 4(0)) = (1, 2, 2), (3) (2, 4, 3). 1 = 1, 2 = 2, 2 = 2 (3), :

P1 = (1(1), 2(1), 3(1), 4(1)) = (1.75, 3.375, 3), , P0.

, (3), {Pk}, (2, 4, 3):

k 1(k) 2(k) 3(k)
0 1.0 2.0 2.0
1 1.75 3.375 3.0
2 1.84375 3.875 3.025
3 1.9625 3.925 2.9625
4 1.990625 3.9765625 3.0
5 1.99414063 3.9953125 3.0009375
15 1.99999993 3.99999985 3.0009375
19 2.0 4.0 3.0

.

-.

.

, {1(k)}, {2(k)}, {3(k)}, {4(k)}. , 1(k+1) 2(k). 1(k+1) 2(k+1) 3(k+1). , (1) -, (3*):

:

k

1(k)

2(k)

3(k)

0 1.0 2.0 2.0
1 1.75 3.75 2.95
2 1.95 3.96875 2.98625
3 1.995625 3.99609375 2.99903125
8 1.99999983 3.99999988 2.99999996
9 1.99999998 3.99999999 3.0
10 2.0 4.0 3.0

. . 10- , 19, .

.

1.         , . ( ):

.

2.         , , .

:

, , , :

3.         , , -. .


                                   II.         .

1) .

x1

x2

x3

x4

12 -4 0 6 2
A= -4 21 5 3 B= 4
-3 2 -22 1 -2
-2 -3 5 23 4
0,083 0,013 -0,002 -0,023

A-1=

0,016 0,048 0,009 -0,011
-0,009 0,003 -0,044 0,004
0,011 0,007 0,010 0,039
x= 0,129
0,165
0,097
0,186


2) .

x1

x2

x3

x4

12 -4 0 6 2
A= -4 21 5 3 B= 4
-3 2 -22 1 -2
-2 -3 5 23 4
'A'= -134088
2 -4 0 6

A1=

4 21 5 3
-2 2 -22 1
4 -3 5 23

'A1'=

-17296

x1=

0,129
12 2 0 6

A2=

-4 4 5 3
-3 -2 -22 1
-2 4 5 23

'A2'=

-22188

x2=

0,165
12 -4 2 6

A3=

-4 21 4 3
-3 2 -2 1
-2 -3 4 23

'A3'=

-12980

x3=

0,097
12 -4 0 2

A4=

-4 21 5 4
-3 2 -22 -2
-2 -3 5 4

'A4'=

-24896

x4=

0,186
x= 0,129
0,165
0,097
0,186


3) .

x1

x2

x3

x4

12 -4 0 6 2
A= -4 21 5 3 B= 4
-3 2 -22 1 -2
-2 -3 5 23 4
'A'= -134088
1,000 -0,333 0,000 0,500 0,167
-4,000 21,000 5,000 3,000 4,000
-3,000 2,000 -22,000 1,000 -2,000
-2,000 -3,000 5,000 23,000 4,000
1,000 -0,333 0,000 0,500 0,167
0,000 25,333 5,000 5,000 4,667
0,000 1,000 -22,000 2,500 -1,500
0,000 -3,667 5,000 24,000 4,333
1,000 -0,333 0,000 0,500 0,167
0,000 1,000 0,197 0,197 0,184
0,000 0,000 -22,197 2,303 -1,684
0,000 0,000 5,724 24,724 5,009
1,000 -0,333 0,000 0,500 0,167
0,000 1,000 0,197 0,197 0,184
0,000 0,000 1,000 -0,104 0,076
0,000 0,000 0,000 25,317 4,574
x= 0,120
0,130
0,095
0,181


4) ( , , ).

Begin VB.Form frmAriel

BorderStyle = 1 '

Caption = " "

ClientHeight = 6315

ClientLeft = 4365

ClientTop = 2430

ClientWidth = 7815

BeginProperty Font

Name = "MS Sans Serif"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = -1 'True

Strikethrough = 0 'False

EndProperty

LinkTopic = "1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 6315

ScaleWidth = 7815

Begin VB.TextBox txtMOMZ

Alignment = 2 '

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3960

TabIndex = 45

Top = 5520

Width = 975

End

Begin VB.TextBox txtMOMY

Alignment = 2 '

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2640

TabIndex = 44

Top = 5520

Width = 975

End

Begin VB.TextBox txtMOMX

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,0000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1320

TabIndex = 43

Top = 5520

Width = 975

End

Begin VB.TextBox txtMGZ

Alignment = 2 '

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3960

TabIndex = 42

Top = 4800

Width = 975

End

Begin VB.TextBox txtMGY

Alignment = 2 '

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2640

TabIndex = 41

Top = 4800

Width = 975

End

Begin VB.TextBox txtMGX

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,0000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1320

TabIndex = 40

Top = 4800

Width = 975

End

Begin VB.TextBox txtMKZ

Alignment = 2 '

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3960

TabIndex = 39

Top = 4080

Width = 975

End

Begin VB.TextBox txtMKY

Alignment = 2 '

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2640

TabIndex = 38

Top = 4080

Width = 975

End

Begin VB.TextBox txtMKX

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,0000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

DataMember = "0,0000"

BeginProperty Font

Name = "Times New Roman"

Size = 15.75

Charset = 204

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1320

Locked = -1 'True

TabIndex = 37

Top = 4080

Width = 975

End

Begin VB.TextBox txtA33

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4440

TabIndex = 30

Top = 2640

Width = 1095

End

Begin VB.TextBox txtA23

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4440

TabIndex = 29

Top = 2040

Width = 1095

End

Begin VB.TextBox txtA13

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 4440

TabIndex = 28

Top = 1440

Width = 1095

End

Begin VB.TextBox txtA32

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2520

TabIndex = 24

Top = 2640

Width = 1095

End

Begin VB.TextBox txtA22

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2520

TabIndex = 23

Top = 2040

Width = 1095

End

Begin VB.TextBox txtA12

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 2520

TabIndex = 22

Top = 1440

Width = 1095

End

Begin VB.CommandButton cmdExit

Caption = ""

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = -1 'True

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 5400

TabIndex = 18

Top = 5520

Width = 2055

End

Begin VB.CommandButton cmdCount

Caption = ""

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = -1 'True

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 5400

TabIndex = 17

Top = 4680

Width = 2055

End

Begin VB.CommandButton cmdClean

Caption = ""

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = -1 'True

Strikethrough = 0 'False

EndProperty

Height = 495

Left = 5400

TabIndex = 16

Top = 3840

Width = 2055

End

Begin VB.TextBox txtB3

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6480

TabIndex = 12

Top = 2640

Width = 1095

End

Begin VB.TextBox txtB2

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6480

TabIndex = 11

Top = 2040

Width = 1095

End

Begin VB.TextBox txtB1

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6480

TabIndex = 10

Top = 1440

Width = 1095

End

Begin VB.TextBox txtA31

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 600

TabIndex = 9

Top = 2640

Width = 1095

End

Begin VB.TextBox txtA21

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 600

TabIndex = 8

Top = 2040

Width = 1095

End

Begin VB.TextBox txtA11

Alignment = 2 '

BeginProperty DataFormat

Type = 1

Format = "0,0000"

HaveTrueFalseNull= 0

FirstDayOfWeek = 0

FirstWeekOfYear = 0

LCID = 1049

SubFormatType = 1

EndProperty

BeginProperty Font

Name = "Times New Roman"

Size = 14.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 600

TabIndex = 7

Top = 1440

Width = 1095

End

Begin VB.Line 3

X1 = 5760

X2 = 5760

Y1 = 1080

Y2 = 3360

End

Begin VB.Label 29

Caption = "Z"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 4920

TabIndex = 36

Top = 1080

Width = 255

End

Begin VB.Label 28

Caption = "Y"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 3000

TabIndex = 35

Top = 1080

Width = 255

End

Begin VB.Label 27

Caption = "X"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1080

TabIndex = 34

Top = 1080

Width = 255

End

Begin VB.Label 23

Caption = "Z"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 4440

TabIndex = 33

Top = 3480

Width = 255

End

Begin VB.Label 22

Caption = "Y"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 3120

TabIndex = 32

Top = 3480

Width = 255

End

Begin VB.Label 21

Caption = "X"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 255

Left = 1800

TabIndex = 31

Top = 3480

Width = 255

End

Begin VB.Label 20

Caption = "33"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3840

TabIndex = 27

Top = 2640

Width = 375

End

Begin VB.Label 19

Caption = "23"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3840

TabIndex = 26

Top = 2040

Width = 375

End

Begin VB.Label 18

Caption = "13"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 3840

TabIndex = 25

Top = 1440

Width = 375

End

Begin VB.Label 17

Caption = "32"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1920

TabIndex = 21

Top = 2640

Width = 375

End

Begin VB.Label 16

Caption = "22"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1920

TabIndex = 20

Top = 2040

Width = 375

End

Begin VB.Label 15

Caption = "12"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 1920

TabIndex = 19

Top = 1440

Width = 375

End

Begin VB.Line 2

X1 = 0

X2 = 7800

Y1 = 3360

Y2 = 3360

End

Begin VB.Label 12

Alignment = 2 '

Caption = " "

BeginProperty Font

Name = "Times New Roman"

Size = 11.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 855

Left = 0

TabIndex = 15

Top = 5280

Width = 1095

End

Begin VB.Label 11

Alignment = 2 '

Caption = " "

BeginProperty Font

Name = "Times New Roman"

Size = 11.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 0

TabIndex = 14

Top = 4560

Width = 1095

End

Begin VB.Label 10

Alignment = 2 '

Caption = " "

BeginProperty Font

Name = "Times New Roman"

Size = 11.25

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 615

Left = 0

TabIndex = 13

Top = 3840

Width = 1095

End

Begin VB.Label 7

Caption = "3"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6000

TabIndex = 6

Top = 2640

Width = 255

End

Begin VB.Label 6

Caption = "2"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6000

TabIndex = 5

Top = 2040

Width = 255

End

Begin VB.Label 5

Caption = "1"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 6000

TabIndex = 4

Top = 1440

Width = 255

End

Begin VB.Label 4

Caption = "31"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 0

TabIndex = 3

Top = 2640

Width = 375

End

Begin VB.Label 3

Caption = "21"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 0

TabIndex = 2

Top = 2040

Width = 375

End

Begin VB.Label 2

Caption = "11"

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 375

Left = 0

TabIndex = 1

Top = 1440

Width = 375

End

Begin VB.Label 1

Caption = $"frmSlay.frx":0000

BeginProperty Font

Name = "Times New Roman"

Size = 12

Charset = 204

Weight = 700

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 855

Left = 120

TabIndex = 0

Top = 120

Width = 7575

End

End

Attribute VB_Name = "frmAriel"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub cmdClean_Click()

Dim As Byte

= MsgBox(" ?", 33, "")

If = 1 Then

txtA11.Text = ""

txtA12.Text = ""

txtA13.Text = ""

txtA21.Text = ""

txtA22.Text = ""

txtA23.Text = ""

txtA31.Text = ""

txtA32.Text = ""

txtA33.Text = ""

txtB1.Text = ""

txtB2.Text = ""

txtB3.Text = ""

txtMKX.Text = ""

txtMGX.Text = ""

txtMOMX.Text = ""

txtMKY.Text = ""

txtMGY.Text = ""

txtMOMY.Text = ""

txtMKZ.Text = ""

txtMGZ.Text = ""

txtMOMZ.Text = ""

End If

End Sub

Private Sub cmdCount_Click()

If (Val(txtA11) * Val(txtA22) * Val(txtA33) + Val(txtA12) * Val(txtA23) * Val(txtA31) + Val(txtA21) * Val(txtA32) * Val(txtA13) - Val(txtA13) * Val(txtA22) * Val(txtA31) - Val(txtA12) * Val(txtA21) * Val(txtA33) - Val(txtA23) * Val(txtA32) * Val(txtA11)) = 0 Then

Dim g As Byte

g = MsgBox(" ", 32, " 0")

Else

ds = (Val(txtA11) * Val(txtA22) * Val(txtA33) + Val(txtA12) * Val(txtA23) * Val(txtA31) + Val(txtA21) * Val(txtA32) * Val(txtA13) - Val(txtA13) * Val(txtA22) * Val(txtA31) - Val(txtA12) * Val(txtA21) * Val(txtA33) - Val(txtA23) * Val(txtA32) * Val(txtA11))

dx = (Val(txtB1) * Val(txtA22) * Val(txtA33) + Val(txtA12) * Val(txtA23) * Val(txtB3) + Val(txtB2) * Val(txtA32) * Val(txtA13) - Val(txtA13) * Val(txtA22) * Val(txtB3) - Val(txtA12) * Val(txtB2) * Val(txtA33) - Val(txtA23) * Val(txtA32) * Val(txtB1))

dy = (Val(txtA11) * Val(txtB2) * Val(txtA33) + Val(txtB1) * Val(txtA23) * Val(txtA31) + Val(txtA21) * Val(txtB3) * Val(txtA13) - Val(txtA13) * Val(txtB2) * Val(txtA31) - Val(txtB1) * Val(txtA21) * Val(txtA33) - Val(txtA23) * Val(txtB3) * Val(txtA11))

dz = (Val(txtA11) * Val(txtA22) * Val(txtB3) + Val(txtA12) * Val(txtB2) * Val(txtA31) + Val(txtA21) * Val(txtA32) * Val(txtB1) - Val(txtB1) * Val(txtA22) * Val(txtA31) - Val(txtA12) * Val(txtA21) * Val(txtB3) - Val(txtB2) * Val(txtA32) * Val(txtA11))

txtMKX.Text = (dx / ds)

txtMKY.Text = (dy / ds)

txtMKZ.Text = (dz / ds)

txtMOMX.Text = (((Val(txtA22) * Val(txtA33) - Val(txtA23) * Val(txtA32)) / ds) * Val(txtB1) + ((Val(txtA13) * Val(txtA32) - Val(txtA12) * Val(txtA33)) / ds) * Val(txtB2) + ((Val(txtA12) * Val(txtA23) - Val(txtA13) * Val(txtA22)) / ds) * Val(txtB3))

txtMOMY.Text = (((Val(txtA23) * Val(txtA31) - Val(txtA21) * Val(txtA33)) / ds) * Val(txtB1) + ((Val(txtA11) * Val(txtA33) - Val(txtA13) * Val(txtA31)) / ds) * Val(txtB2) + ((Val(txtA13) * Val(txtA21) - Val(txtA11) * Val(txtA23)) / ds) * Val(txtB3))

txtMOMZ.Text = (((Val(txtA21) * Val(txtA32) - Val(txtA22) * Val(txtA31)) / ds) * Val(txtB1) + ((Val(txtA12) * Val(txtA31) - Val(txtA11) * Val(txtA32)) / ds) * Val(txtB2) + ((Val(txtA11) * Val(txtA22) - Val(txtA12) * Val(txtA21)) / ds) * Val(txtB3))

End If

If Val(txtA11) = 0 Then

Dim gg As Byte

gg = MsgBox(" . , ", 48, " 0")

Else

s1 = ((Val(txtB3) * Val(txtA11)) - (Val(txtB1) * Val(txtA31)))

s2 = ((Val(txtA22) * Val(txtA11)) - (Val(txtA12) * Val(txtA21)))

s3 = ((Val(txtB2) * Val(txtA11)) - (Val(txtB1) * Val(txtA21)))

s4 = ((Val(txtA32) * Val(txtA11)) - (Val(txtA12) * Val(txtA31)))

s5 = ((Val(txtA33) * Val(txtA11)) - (Val(txtA12) * Val(txtA31)))

s6 = s2

s7 = ((Val(txtA23) * Val(txtA11)) - (Val(txtA13) * Val(txtA21)))

s8 = s4

s12 = s1 * s2

s34 = s3 * s4

s56 = s5 * s6

s78 = s7 * s8

sh = s12 - s34

sz = s56 - s78

If sz = 0 Then

Dim As Byte

= MsgBox(" .", 48, "")

Else

txtMGZ.Text = (sh / sz)

End If

sy1 = s3

sy2 = s2

sy3 = ((Val(txtA23) * Val(txtA11)) - (Val(txtA13) * Val(txtA21)))

sy4 = s2

sy12 = (sy1) / (sy2)

sy34 = (sy3) / (sy4)

txtMGY.Text = ((sy12) - ((sy34) * (sh / sz)))

sx1 = ((Val(txtB1)) / (Val(txtA11)))

sx2 = ((Val(txtA13)) / (Val(txtA11)))

sx3 = ((Val(txtA12)) / (Val(txtA11)))

txtMGX.Text = ((sx1) - ((sx2) * (sh / sz)) - ((sx3) * ((sy12) - ((sy34) * (sh / sz)))))

End If

End Sub

Private Sub cmdExit_Click()

Dim a As Byte

a = MsgBox(" ?", 33, "")

If a = 1 Then

End

End If

End Sub



.

, , . , . ( , , ). , , , .

MathCAD Excel , , , . Visual Basic . , . , .


                                 III.        

1) . , . , . " Microsoft Excel 97", ""; -, 1998.

2) .. , .. , .. " - Excel", , 1999 .

3) , Excel 7,0: , --- -, 1997 .

4) .. . : , . : . , 2004.640

5) .. . . .: , 1982

6) .. . .: , 1987

7) .. MathCAD. .: , 1993

 





2010