Решение транспортной задачи распределительным методом

{

super(type, bubbles, cancelable);

}

}

}

/*

_____________________________________________________________

Класс элемента матрицы.

_____________________________________________________________

Используемые глобальные переменные класса:

baz - признак базисной клетки;

stoim - стоимость;

perev - перевозка.

_____________________________________________________________

Используемые методы класса:

clearStoimField - очистка поля при первом клике мышки;

get perevozka,

set perevozka - методы доступа поля perev;

get stoimost - метод для чтения значения поля stoim;

get bazis,

set bazis - методы доступа поля baz.

_____________________________________________________________

*/

package src.transport.data

{

import flash.display.MovieClip;

import flash.text.TextField;

import flash.text.TextFormat;

import flash.text.TextFieldType;

import flash.events.MouseEvent;

public class Element extends MovieClip

{

private var baz:Boolean;

private var stoim:TextField;

private var perev:TextField;

/*

_____________________________________________________________

Конструктор класса.

_____________________________________________________________

*/ public function Element()

{

stoim= new TextField();

stoim.width=60;

stoim.height=26;

stoim.x=2;

stoim.y=2;

stoim.type= TextFieldType.INPUT;

stoim.defaultTextFormat=new TextFormat(null,16,0x003e41,true,null,null,null,null,'right');

stoim.text='0';

addChild(stoim);

stoim.restrict='0-9';

stoim.maxChars=3;

perev= new TextField();

perev.width=60;

perev.height=37;

perev.selectable=false;

perev.x=2;

perev.y=18;

perev.defaultTextFormat=new TextFormat(null,30,0xFFFFFF,true,null,null,null,null,'center');

perev.text='0';

addChild(perev);

baz=false;

stop();

stoim.addEventListener(MouseEvent.CLICK,clearStoimField);

}

/*

_____________________________________________________________

Метод clearStoimField - очистка поля при первом клике мышки.

_____________________________________________________________

Формальный параметр:

e - событие мышки.

_____________________________________________________________

*/ private function clearStoimField(e:MouseEvent):void

{

stoim.removeEventListener(MouseEvent.CLICK,clearStoimField);

stoim.text = '';

}

/*

_____________________________________________________________

Метод get perevozka - чтение значения поля perev .

_____________________________________________________________

*/ public function get perevozka():int

{

return int(perev.text);

}

/*

_____________________________________________________________

Метод set perevozka - запись значения в поле perev.

_____________________________________________________________

Формальный параметр:

val - значение для установки.

_____________________________________________________________

*/

public function set perevozka(val:int):void

{

perev.text=val.toString();

}

/*

_____________________________________________________________

Метод get stoimost - чтение значения поля stoim.

_____________________________________________________________

*/ public function get stoimost():int

{

return int(stoim.text);

}

/*

_____________________________________________________________

Метод get bazis - чтение значения поля baz.

_____________________________________________________________

*/ public function get bazis():Boolean

{

return baz;

}

/*

_____________________________________________________________

Метод set bazis - запись значения в поле baz.

_____________________________________________________________

Формальный параметр:

val - значение для установки.

_____________________________________________________________

*/ public function set bazis(val:Boolean):void

{

baz=val;

(val)?gotoAndStop(2):gotoAndStop(1);

}

}

}

/*

_____________________________________________________________

Класс элемента вектора запасов и вектора заявок.

_____________________________________________________________

Используемая глобальная переменная класса:

st - груз.

_____________________________________________________________

Используемые методы класса:

clearStField - очистка поля при первом клике мышки;

get stock,

set stock - методы доступа поля stock;

closeStock - ограничение на запись данных в поле st.

_____________________________________________________________

*/

package src.transport.data

{

import flash.display.MovieClip;

import flash.text.TextField;

import flash.text.TextFieldType;

import flash.text.TextFormat;

import flash.events.MouseEvent;

public class SStore extends MovieClip

{

private var st:TextField;

/*

_____________________________________________________________

Конструктор класса.

_____________________________________________________________

*/ public function SStore()

{

st=new TextField();

st.width = 70;

st.height = 38;

st.y = 10;

st.type = TextFieldType.INPUT;

st.defaultTextFormat = new TextFormat(null,30,0xf04c33,true,null,null,null,null,'center');

st.text = '0';

addChild(st);

st.restrict = '0-9';

st.maxChars = 3;

st.addEventListener(MouseEvent.CLICK,clearStField);

}//end

/*

_____________________________________________________________

Метод clearStField - очистка поля при первом клике мышки.

_____________________________________________________________

Формальный параметр:

e - событие мышки.

_____________________________________________________________

*/ private function clearStField(e:MouseEvent):void

{

st.removeEventListener(MouseEvent.CLICK,clearStField);

st.text = '';

}

/*

_____________________________________________________________

Метод get stock - чтение значения поля st.

_____________________________________________________________

*/ public function get stock():int

{

return int(st.text);

}

/*

_____________________________________________________________

Метод set stock - запись значения в поле st.

_____________________________________________________________

Формальный параметр:

val - значение для установки.

_____________________________________________________________

*/ public function set stock(val:int):void

{

st.text = val.toString();

}

/*

_____________________________________________________________

Метод closeStock - ограничение на запись данных в поле st.

_____________________________________________________________

*/ public function closeStock():void

{

st.selectable = false;

}

}

}

Приложение Б

Результаты выполнения программы

Рисунок 6.1 - Опорный план

Рисунок 6.2 - Улучшение плана

Рисунок 6.3 - Улучшение плана

Рисунок 6.4 - Улучшение плана

Рисунок 6.5 - Улучшение плана

Рисунок 6.6 - Стоимость оптимального плана

Рисунок 6.7 - Оптимальный план

Размещено на Allbest.ru