:
A (1 = 10; 2 = 0);
B (1 = 10; 2 = 6);
C (1 = 1,39; 2 = 6);
D(1 = 5,5;2 = 0);
, . Z . , Z, . Z 257.
1 :
2 :
Z . ABC, . , , 1 = 1,39; 2 = 6, . , . , 1 = 1,39; 2 = 6 Z = 170,9 .
1 = 1,39 1 . ,
1 = 1; 2 = 6.
1 = 1; 2 =6 Z. , Z, , 170,9.
1 =1,39; 2 = 6 .
.1 .
. 1
3.2
. . . . .2 .
. 2 -
, , 1 2.
4.
4.1
Public x1, x2, x3, x4 As Double
Public x5, x6, z, d As Integer
Private Sub Command1_Click()
Command2.Enabled = True
Picture1.Cls
Picture2.Cls
x1 = Val(Text4) + Val(Text6) * Val(Text2) * (100 - Val(Text9)) / 100
x2 = Val(Text5) + Val(Text6) * Val(Text3) * (100 - Val(Text10)) / 100
x4 = Val(Text1) / (Val(Text2) * 8)
x3 = Val(Text1) / (Val(Text3) * 8)
Picture2.Print "Z = " & x1 * 8 & "*X1" & "+" & x2 * 8 & "*X2"
Picture2.Print Val(Text2) & "X1+" & Val(Text3) & "X2>=" & Val(Text1) / 8
Picture1.Line (40, 400)-(40, 10)
Picture1.PSet (44, 10), RGB(255, 255, 255)
Picture1.Print "X2"
Picture1.Line (40, 400)-(450, 400)
Picture1.Print "X1"
For i = 1 To 19
Picture1.Line (40, 400 - i * 20)-(35, 400 - i * 20)
Picture1.PSet (20, 400 - i * 20), RGB(255, 255, 255)
Picture1.Print i
Picture1.Line (40 + i * 20, 400)-(40 + i * 20, 405)
Picture1.PSet (30 + i * 20, 405), RGB(255, 255, 255)
Picture1.Print i
Picture1.Line (40 + Val(Text7) * 20, 10)-(40 + Val(Text7) * 20, 400)
Picture1.Line (40, 400 - Val(Text8) * 20)-(450, 400 - Val(Text8) * 20)
Picture1.Line (40, 400 - x3 * 20)-(40 + x4 * 20, 400), RGB(0, 255, 0)
Next
End Sub
Private Sub Command2_Click()
Picture3.Cls
x6 = (Val(Text1) - Val(Text2) * 8 * Val(Text7)) / (Val(Text3) * 8)
x5 = (Val(Text1) - Val(Text3) * 8 * Val(Text8)) / (Val(Text2) * 8)
z = Val(Text7) * x1 * 8 + Val(Text8) * x2 * 8
If Val(Text2) / Val(Text3) > x1 / x2 Then
d = x5 * 8 * x1 + Val(Text8) * 8 * x2
Picture3.Print d
Picture1.Line (40 + (z / (8 * x1) * 20) - (Val(Text7) - x5) * 20, 400)-(40 - (Val(Text7) - x5) * 20, 400 - (z / (8 * x2) * 20)), RGB(255, 0, 0)
Else
Picture1.Line (40 + (z / (8 * x1) * 20), 400 + (Val(Text8) - x6) * 20)-(40, 400 - (z / (8 * x2) * 20) + (Val(Text8) - x6) * 20), RGB(255, 0, 0)
d = Val(Text7) * 8 * x1 + x6 * 8 * x2
Picture3.Print d
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub
Visual Basic v. 6.0
4.2
. 3
.3 .
, 0,5%.
:
:
|
|
N |
n1 |
n2 |
S1 |
S2 |
C |
M1 |
M2 |
β1 |
β2 |
|
/ |
. |
. |
. |
/ |
|
. |
. |
% |
% | |
|
13 |
1600 |
36 |
25 |
3 |
2 |
0,4 |
10 |
6 |
95 |
93 |
:
N - 8- ;
n1 - , 1 ;
