(1, 7)=0: mas_P1_10 (1, 8)=0_P1_10 (1, 9)=0: mas_P1_10 (1, 10)=0_P1_10 (2, 1)=CDbl (GL.T_a_21.Text): mas_P1_10 (2 , 2)=CDbl (GL.T_a_22.Text) _P1_10 (2, 3)=CDbl (GL.T_a_23.Text): mas_P1_10 (2, 4)=CDbl (GL.T_a_24.Text) _P1_10 (2, 5)= CDbl (GL.T_a_25.Text): mas_P1_10 (2, 6)=0_P1_10 (2, 7)=1: mas_P1_10 (2, 8)=0_P1_10 (2, 9)=0: mas_P1_10 (2, 10)=0_P1_10 ( 3, 1)=CDbl (GL.T_a_31.Text): mas_P1_10 (3, 2)=CDbl (GL.T_a_32.Text) _P1_10 (3, 3)=CDbl (GL.T_a_33.Text): mas_P1_10 (3, 4 )=CDbl (GL.T_a_34.Text) _P1_10 (3, 5)=CDbl (GL.T_a_35.Text): mas_P1_10 (3, 6)=0_P1_10 (3, 7)=0: mas_P1_10 (3, 8)=1_P1_10 (3, 9)=0: mas_P1_10 (3, 10)=0_P1_10 (4, 1)=CDbl (GL.T_a_41.Text): mas_P1_10 (4, 2)=CDbl (GL.T_a_42.Text) _P1_10 (4, 3)=CDbl (GL.T_a_43.Text): mas_P1_10 (4, 4)=CDbl (GL.T_a_44.Text) _P1_10 (4, 5)=CDbl (GL.T_a_45.Text): mas_P1_10 (4, 6)= 0_P1_10 (4, 7)=0: mas_P1_10 (4, 8)=0_P1_10 (4, 9)=1: mas_P1_10 (4, 10)=0_P1_10 (5, 1)=CDbl (GL.T_a_51.Text): mas_P1_10 ( 5, 2)=CDbl (GL.T_a_52.Text) _P1_10 (5, 3)=CDbl (GL.T_a_53.Text): mas_P1_10 (5, 4)=CDbl (GL.T_a_54.Text) _P1_10 (5, 5) =CDbl (GL.T_a_55.Text): mas_P1_10 (5, 6)=0_P1_10 (5, 7)=0: mas_P1_10 (5, 8)=0_P1_10 (5, 9)=0: mas_P1_10 (5, 10)=1
'------ _Bazis (1)=6: mas_Bazis (2)=7_Bazis (3)=8: mas_Bazis (4)=9: mas_Bazis (5)=10
'------ i=1 To 5
mas_Sb (i)=0i
'------ _Delti (1) =-CDbl (GL.T_prib_1.Text) _Delti (2) =-CDbl (GL.T_prib_2.Text) _Delti (3) =-CDbl (GL.T_prib_3.Text) _Delti (4) =-CDbl (GL.T_prib_4.Text) _Delti (5) =-CDbl (GL.T_prib_5.Text) _Delti (6)=0_Delti (7)=0: mas_Delti (8 )=0_Delti (9)=0: mas_Delti (10)=0
'------ _Prib (1)=CDbl (GL.T_prib_1.Text) _Prib (2)=CDbl (GL.T_prib_2.Text) _Prib (3)=CDbl (GL. T_prib_3.Text) _Prib (4)=CDbl (GL.T_prib_4.Text) _Prib (5)=CDbl (GL.T_prib_5.Text) _Prib (6)=0_Prib (7)=0: mas_Prib (8)=0
mas_Prib (9)=0: mas_Prib (10)=0
'Заповнення даних закончено.If
'Обчислення оптимальності=«y»
'Перевіряємо на оптимальність план:
For i=1 To 10 (mas_Delti (i) <0) Then=«n» Ifi
'Перевірка на оптимальність закінчена
'Якщо план не оптимальний вищітивать сімплексні таблиці:
If optima=«n» Then_iter=kol_iter + 1
'напрямні елементи_stl_el=0
For i=1 To 10nap_stl_el> mas_Delti (i) Then_stl_el=mas_Delti (i) _stl=iIfi
'-----=0=i + 1 (mas_P0 (i)> 0 And mas_P1_10 (i, nap_stl)> 0) Then_str_el=mas_P0 (i) / mas_P1_10 (i, nap_stl) IfWhile (mas_P1_10 (i, nap_stl) <= 0 Or mas_P0 (i) <= 0)
'----- i=1 To 5 (mas_P0 (i)> 0 And mas_P1_10 (i, nap_stl)> 0) Then (nap_str_el>=(mas_P0 (i) / mas_P1_10 (i, nap_stl))) Then_str_el=mas_P0 (i) / mas_P1_10 (i, nap_stl) _str=iIfIfi
'----- _elem=mas_P1_10 (nap_str, nap_stl)
«----- _P0 (nap_str)=mas_P0 (nap_str) / raz_elemi=1 To 5 (mas_P1_10 (i, nap_stl) <> 0 And i <> nap_str) Then_P0 (i)=mas_P0 (i) - (mas_P1_10 (i, nap_stl) * mas_P0 (nap_str)) Ifi_Bazis (nap_str)=nap_stl_Sb (nap_str)=mas_Prib (nap_stl) »Delti (nap_stl)«-CDbl (mas_Delti ( nap_stl)) »Помилка ===== raz_elemi=1 To 10_P1_10 (nap_str, i)=mas_P1_10 (nap_str, i) / raz_elemii=1 To 5 (nap_str <> i) Then=mas_P1_10 ...
