Международные перевозки

  next j

  next i

  for i=1 to nu

  for j=1 to nu

  if j<=i then aa(nu+i,j)=1 else aa(nu+i,j)=0

  next j

  next i

  for i=1 to nu

  for j=1 to nu

  if j<=i then aa(2*nu+i,j)=1 else aa(2*nu+i,j)=0

  next j

  next i

   i=nnn

  for j=1 to nu

  aa(i,j)=c(j)

  next j

  for i=1 to nu

  aa(i,0)=qr(i)+vbmin-vost(0)

  next i

  for i=1 to nu

  aa(nu+i,0)=qr(i)+vdop(i)-vost(0)

  next i

  for i=1 to nu

  aa(2*nu+i,0)=qr(i)+vb-vost(0)

  next i

  'Обращение к подпрограмме симплекс-метода

  gosub simpl

  'Формирование результатов расчетов

  svzp=0:svras=0

  for i=1 to nu:vzp(i)=xo(i)

  vost(i)=vost(i-1)+vzp(i)-vras(i)

  svzp=svzp+vzp(i):svras=svras+vras(i)

  next i

  cls : locate 10:

  print "     Оптимальное решение по заправкам"

  print

  print" №     Расход   Объем    Остаток     Остаток    Цена    Стоимость"

  print"страны  топлива  заправки при въезде  при выезде топлива заправки"

  for i=1 to nu

  print""i;using"#######.##";vras(i),vzp(i),vost(i-1),vost(i),c(i),vzp(i)*c(i)

  next i

  print

  print" Общий объем заправки (л) - "using"####.";svzp

  print" Общий расход - "using"####.#";svras

  print" Затраты составляют (л) - "using"####.";z;:print"  EUR"

  goto 7000

  'Подпрограмма симплекс-метода

  simpl:

          zz=1

  mm=igc+iec:m=mm+lc:mk=igc+lc:n1=mk+n

  ip=n1+mm:m1=m+1:m2=m+2:n0=n1

  dim a(m2,ip),ibs(m),v(m2),nb(ip),sl(ip),xr(m),zxp(m)

  for i=1 to m1:for j=1 to n:a(i,j)=aa(i,j):next j:next i

  if igc=0 then 150

  for i=1 to igc

   a(i,n+i)=-1: a(i,n1+i)=1

  ibs(i)=n1+i

   a(i,0)=aa(i,0):next i

  150 if iec=0 then 200

   for i=igc+1 to mm

  a(i,n1+i)=1:ibs(i)=n1+i:a(i,0)=aa(i,0)

  next i

  200 if lc=0 then 240

   for i=mm+1 to m

  a(i,n+i-iec)=1:ibs(i)=n+i-iec:a(i,0)=aa(i,0)

  next i

  240 'if mm=0 then ?"отсутствует этап №1"

  ' if zz=1 then ml=m1+l:n0=ip

  '? "             ";:for j=1 to n:? "  x"j"  ";:next j

  'print

  'for i=1 to nnn

  'if i=m1 then ?" z ";:goto 3080

  'if i=m2 then ?" iskustv z ";:goto 3080

  '? i;:? using"#####.##";a(i,0);

  '3080 for j=1 to nu:? using"#####.##";a(i,j),:next j:print:next i

  'input aaa

    400 l=1:n0=ip

  for i=1 to mm:for j=0 to n1

  a(m2,j)=a(m2,j)-a(i,j)

   next j

  next i

      ml=m1+l

  for i=1 to m:nb(ibs(i))=1:next i

  zero=1e-07

  500 smin=-zero:is=0:pv=0:ml=m1+l

  for j=1 to n0

  if nb(j)=1 then 550

  if a(ml,j)>=smin then 550

  smin=a(ml,j):is=j

  550 next j

  if is=0 then 1900

  bmin=1e12:ir=0

  for i=1 to m

  if a(i,is)<=zero then 810

  rt=a(i,0)/a(i,is)

  if rt>=bmin then 810

  ir=i:bmin=a(i,0)/a(i,is)

   810 next i

  if ir=0 then 1800

  pv=a(ir,is)

  for j=0 to n0

  a(ir,j)=a(ir,j)/pv

  next j

  for i=1 to ml:v(i)=a(i,is):next i

  for i=1 to ml

   if i=ir then 1120

  for j=0 to n0

  a(i,j)=a(i,j)-v(i)*a(ir,j)

   next j

  1120 next i

  nb(ibs(ir))=0:nb(is)=1:ibs(ir)=is

  k=k+1

   goto 500

  1800 print "Переменная "s" не имеет ограничений":goto 4000

    1900 if l=0 then 2000

   if abs(a(ml,0))>=zero then 1960

  l=0:n0=n1

  goto 500

  1960 print "Ограничения  не имеют допустимого решения"

  'gosub 3500

   goto 4000

  2000 'print "Окончательное  решение"

  'print "  x(i)   значение"

  for j=1 to n

  k=0

  for i=1 to m

  if j<>ibs(i) then 2005

  'print "   ";ibs(i);using"#####.##";a(i,0)

  xo(j)=a(i,0)

  k=k+1

  2005 next i

  if k=0 then xo(j)=0:'print "   ";j;using"#####.##";0

    next j

  z=-a(m1,0):'print "минимум z= ";using"#####.##";z

  4000 return

  7000 end

 

    

СОДЕРЖАНИЕ

 

Учебное издание

Методические  указания

по дисциплине "Международные автомобильные  перевозки грузов и транспортно-экспедиционная деятельность" для студентов заочной формы обучения по специализации 1-44 01 01 03 "Международные автомобильные перевозки" специальности 1-44 01 01

"Организация  перевозок и управление на  автомобильном и

 городском транспорте" 
 
 
 
 

Составители:  АНДРЕЕВ Анатолий Яковлевич

                  СЕДЮКЕВИЧ Владимир Николаевич

                  ХОЛУПОВ Владимир Степанович 
 
 
 
 
 
 
 
 
 
 
 

      Редактор

      Компьютерная  верстка

__________________________________________________________

Подписано в печать        .     .2007

Формат 60х84 1/16. Бумага офсетная.

Отпечатано  на ригографе. Гарнитура Таймс.

Усл.печ.л.     .  Уч.-изд.л.              . Тир. 150. Зак..

__________________________________________________________

Издатель  и полиграфическое исполнение:

Белорусский национальный технический университет.

ЛИ № 02330/0056957 от 01.04.2004.