Симплекс әдісі

4,7-кесте

№3	Y3	Y2	Bi
Y1	-1,8	0.425	1750
X2	-0.2	0.075	2250
Y3	2	-0.5	5000
Z11	152	-22	2140.000

 

4,7-кесте әлі де оптималды  шешімі бермейді.

4,8-кесте

№4	Y3	Y1	Bi
Y2	-4.2	2.35	4117
X2	0.115	-0.176	1941
X1	0.1	1.176	7059
Z111	59	52	2230500

 

Сонымен №4-симплекс кестеде  ең тиімді шешімді алдық, яғни бидайды X1=7059 гектар жерден, қант қызылшасын 1941 гектар жерден өндіргенде, шаруашылық ең үлкен пайдаға, яғни 2230,5 мың теңгеге жетеді.Бірақ 4117 еңбеккүн артылып қалады.

Осы есептердің графиктік әдіспен шешілген нәтижелері 3-бөлімде келтіріледі. Сөйтіп, есептердің геометриялық және математикалық жолдармен шешкен нәтижелері бірдей. Әрбір кестелердегі мақсат функциясының мәндері геометриялық жолмен есепті шешкендегі төбелердегі мәндерге сәйкес келеді.

Егер белгісіздердің сандары үштен артық болса, онда есепті геометриялық жолмен шешуге болмайтыны айтылады. Бірақ математикалық әдіс арқылы кез келген белгісіздері бар  есептерді шешуге болады. Қазіргі кезде тәжірибеде шешіліп жүрген есептер бірнеше мыңдаған белгісіздерден, бірнеше жүздеген теңсіздіктерден тұрады. Мұндай есептерді қолмен шешу оңайға түспейді, сондықтан тәжірибелік есептерді компьютерде арнайы қолданбалы бағдарламалар пакеттерімен шығарады. Компьютерлерде сызықтық бағдарламалау есептерін шығару технологиясымен терең түсіну үшін, осы есептердің әртүрлі әдістерінің математикалық алгоритмдерін тиянақты қарастырып, терең түсіну үлкен нәтижеге жеткізетіні-сөзсіз.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР

 

1. Лапчик М.М. «Вычисления. Алгоритмизация. Программирование» Москва «Просвещение»  1988г.
2. Гусева А.Н.  « Учимся информатике: задачи и методы их решения» Диалог - МИФИ 1988 г.
3. И.А. Бабушкин, Н.А. Бушмелева, С.М. Окулов, С.Ю. Черных «Практикум по Турбо Паскалю» Выпуск 1,2,3  № 44,46,48 1997 г.
4. Н. Культин «Турбо Паскаль для начинающих» БХВ –      Петербург 2000 г.
5. С.А. Абрамов, Г.Г. Гнездилова, Е.Н. Капустина, М.И. Селюн «Задачи по программированию» Москва «Наука» 1988 г.
6. Н. Культин «С++ в примерах и задачах »  БХВ –      Петербург 2000 г.

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША

uses crt;

var i,j,k,l,m,n,h,g1,g2:integer;

s,x1,x2,x3,d:real;

a:array[1..9,1..10] of integer;

x:array[1..9] of real;

begin

clrscr;

l:=0; h:=0;

writeln('****************Kramer****************');

writeln('*****Vvedite razmer massiva*****');

write('n= ');

readln(n);

write('m= ');

readln(m);

writeln('*****Vvedite massiv *****');

for i:=1 to n do

for j:=1 to m do  begin

write('a[',i,',',j,']= ');

readln(a[i,j]);

end;

clrscr;

writeln('*****Dano massiv*****');

for i:=1 to n do begin

for j:=1 to m do

write(a[i,j]:4);

writeln;

end;

writeln('**********************');

writeln;

for i:=1 to n-1 do begin

l:=l+1;h:=h+1; g1:=-a[l,h];

for j:=h to n-1 do begin

g2:=a[j+1,i];

for k:=l to m do

a[j+1,k]:=a[i,k]*g2+a[j+1,k]*g1;

end;

end;

{for i:=1 to n do begin

for j:=1 to m do

write(a[i,j]:4);

writeln;

end;}

writeln;

writeln;

writeln;

x[m-1]:=a[n,m]/a[n,n];

for i:=n-1 downto 1 do begin

s:=0;

for j:=i+1 to n do

s:=s+a[i,j]*x[j];

x[i]:=(a[i,m]-s)/a[i,i];

end;

for i:= 1 to n do

writeln('x[',i,']= ',x[i]:4:2);

readln;

end.