Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Чувашский государственный университет им. И.Н. Ульянова

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

met.uk.po-MPPSP (1).doc

Скачиваний:

Добавлен:

22.11.2019

Размер:

1.05 Mб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 910 / 1110 11 > Следующая >>>

3.2. Процедуры инициализации и получения сырья.

Таблица 3.2.1.

TABLE_PROFESSION 1 (Таблица профессий для получения первичного сырья)

PROFESSION_QUALIFICATION	E	∆e	∆θ	DENSITY_INDUSTRY (M²/MAN)	RESULT
FARMER	1	0.1	∆θ_FARMER=60	5	100M_FOOD
SUGAR_PLANTER	1	0.1	∆θ_{SUGAR_PLANTER}=60	5	100M_SUGAR
TOBACCO_PLANTER	1	0.1	∆θ_{TOBACCO_PLANTER}=60	5	100M_TOBACCO
COTTON_PLANTER	1	0.1	∆θ_{COTTON_PLANTER}=60	5	100M_COTTON
FUR_TRAPPER	1	0.1	∆θ_{FUR_TRAPPER}=30	10	100M_FURS
LUMBERJACK	1	0.1	∆θ_LUMBERJACK=40	10	100M_LUMBER
ORE_MINOR	1	0.1	∆θ_{ORE_MINOR}=50	10	100M_ORE
SILVER_MINOR	1	0.1	∆θ_{SILVER_MINOR}=50	10	100M_SILVER
EXPERT_FARMER	1	0.1	∆θ_{EXPERT_FARMER}=60	5	200M_FOOD
EXPERT_SUGAR_PLANTER	1	0.1	∆θ_{EXPERT_SUGAR_PLANTER}=60	5	200M_SUGAR
EXPERT_TOBACCO_PLANTER	1	0.1	∆θ_{EXPERT_TOBACCO_PLANTER}=60	5	200MTOBACCO
EXPERT_COTTON_PLANTER	1	0.1	∆θ_{EXPERT_COTTON_PLANTER}=60	5	200M_COTTON
EXPERT_FUR_TRAPPER	1	0.1	∆θ_{EXPERT_FUR_TRAPPER}=30	10	200M_FURS
EXPERT_LUMBERJACK	1	0.1	∆θ_{EXPERT_LUMBERJACK}=40	10	200M_LUMBER
EXPERT_ORE_MINOR	1	0.1	∆θ_{EXPERT_ORE_MINOR}=50	10	200M_ORE
EXPERT_SILVER_MINOR	1	0.1	∆θ_{EXPERT_SILVER_MINOR}=50	10	200M_SILVER

Таблица 3.2.2.

TABLE_PROFESSION 2 (Таблица профессий для получения вторичного сырья)

PROFESSION_QUALIFICATION	E	∆e	∆θ	RAW	ITEM	RESULT
DISTILLER	1	0.1	∆θ_DISTILLER=60	100M_SUGAR	SUGAR	50M_RUM
TOBACCONIST	1	0.1	∆θ_TOBACCONIST=60	100M_TOBACCO	TOBACCO	50M_CIGARS
WEAWER	1	0.1	∆θ_WEAWER=60	100M_COTTON	COTTON	50M_CLOTH
FUR_TRADER	1	0.1	∆θ_{FUR_TRADER}=60	100M_FURS	FURS	50M_COATS
EXPERT_DISTILLER	1	0.1	∆θ_{EXPERT_}_DISTILLER=60	100M_SUGAR	SUGAR	100M_RUM
EXPERT_TOBACCONIST	1	0.1	∆θ_{EXPERT_}_TOBACCONIST=60	100M_TOBACCO	TOBACCO	100M_CIGARS
EXPERT_WEAWER	1	0.1	∆θ_{EXPERT_}_WEAWER=60	100M_COTTON	COTTON	100M_CLOTH
EXPERT_FUR_TRADER	1	0.1	∆θ_{EXPERT_}_{FUR_TRADER}=60	100M_FURS	FURS	100MCOATS
BLACKSMITH	1	0.1	∆θ_BLACKSMITH=60	100M_LUMBER+ 100M_ORE	LUMBER, ORE	50M_TOOLS
ARMOURER	1	0.1	∆θ_ARMOURER=60	100M_LUMBER+ 100M_ORE	LUMBER, ORE	50M_MUSKETS
EXPERT_BLACKSMITH	1	0.1	∆θ_{EXPERT_BLACKSMITH}=60	100M_LUMBER+ 100M_ORE	LUMBER, ORE	100M_TOOLS
EXPERT_ARMOURER	1	0.1	∆θ_{EXPERT_ARMOURER}=60	100M_LUMBER+ 100M_ORE	LUMBER, ORE	100M_MUSKETS

Таблица 3.2.3.

TABLE_AREA (Таблица территорий)

AREA	LOCATION	INDUSTRIAS	FLAG	FORMULAS
Mountains	(49, 40), (47, 39), (43, 29), (43, 28), (44, 29)	ORE, F_ORE=0.8, ∆f_ORE=0.05; SILVER, F_SILVER=0.9, ∆f_SILVER=0.05;	ORE=1; SILVER=1	F_ORE:=F_ORE - ∆f_ORE; F_SILVER:=F_SILVER - ∆f_SILVER;
Hill	(48, 39), (50, 33)	ORE, F_ORE=0.8, ∆f_ORE=0.05;	ORE=1	F_ORE:=F_ORE - ∆f_ORE;
Rain Forest	(48, 40), (48, 38), (43, 30)	SUGAR, F_SUGAR=0.1, ∆f_SUGAR=0.005; LUMBER, F_LUMBER=0.9, ∆f_LUMBER=0.05; ORE, F_ORE=0.8, ∆f=_ORE0.05;	SUGAR=1; LUMBER=1; ORE=0	F_SUGAR:=F_SUGAR- ∆f_SUGAR; F_LUMBER:=F_LUMBER- ∆f_LUMBER; F_ORE:=F_ORE+FLAG∆f_SUGAR+FLAG∆f_LUMBER- ∆f_LUMBER;
Conifer Forest	(47, 40), (49, 34), (42, 28)	FURS, F_FURS=0.8, ∆f_FURS=0.004; LUMBER, F_LUMBER=0.9, ∆f_LUMBER=0.05; TOBACCO, F_TOBACCO=0, ∆f_TOBACCO=0.05;	FURS=1; LUMBER=1; TOBACCO=0	F_FURS:=F_FURS- ∆f_FURS; F_LUMBER:=F_LUMBER- ∆f_LUMBER; F_TOBACCO:=F_TOBACCO+ ∆f_LUMBER; F_TOBACCO:= F_TOBACCO+FLAG∆f_FURS+FLAG∆f_LUMBER -∆f_TOBACCO;
Tropical Forest	(47, 38), (48, 36), (48, 35), (47, 35), (47, 34), (48, 33), (47, 33), (46, 33)	FURS, F_FURS=0.8, ∆f_FURS=0.004; LUMBER, F_LUMBER=0.9, ∆f_LUMBER=0.05; SUGAR, F_SUGAR=0, ∆f_SUGAR=0.05;	FURS=1; LUMBER=1; SUGAR=0	F_FURS:=F_FURS- ∆f_FURS; F_LUMBER:=F_LUMBER- ∆f_LUMBER; F_SUGAR:= F_SUGAR +FLAG∆f_FURS+FLAG∆f_LUMBER-∆f_SUGAR;
Wetland Forest	(50, 32), (42, 29)	FOOD, F_FOOD=0.2, ∆f_FOOD=0.05; ORE, F_ORE=0.8, ∆f_ORE=0.05;	FOOD=1; ORE=1	F_FOOD:=F_FOOD- ∆f_FOOD; F_ORE:=F_ORE - ∆f_ORE;

Продолжение таблицы 3.2.3. на след. странице

Продолжение таблицы 3.2.3.

TABLE_AREA (Таблица территорий)

AREA	LOCATION	INDUSTRIAS	FLAG	FORMULAS
Wilderness	(52, 37)	FOOD, F_FOOD=0.2, ∆f_FOOD=0.05; COTTON, F_COTTON=0.2, ∆f_COTTON=0.05;	FOOD=1; COTTON=1	F_FOOD:=F_FOOD- ∆f_FOOD; F_COTTON:=F_COTTON- ∆f_COTTON;
Savannah	(47, 36)	SUGAR, F_SUGAR=0.8, ∆f_SUGAR=0.05; FOOD, F_FOOD=0.6, ∆f_FOOD=0.05;	SUGAR=1; FOOD=1	F_SUGAR:=F_SUGAR- ∆f_SUGAR; F_FOOD:=F_FOOD- ∆f_FOOD;
Broadleaf Forest	(49, 33)	FURS, F_FURS=0.8, ∆f_FURS=0.04; LUMBER, F_LUMBER=0.9, ∆f_LUMBER=0.5; COTTON, F_COTTON=0, ∆f_COTTON=0.05;	FURS=1; LUMBER=1; COTTON=0	F_FURS:=F_FURS- ∆f_FURS; F_LUMBER:=F_LUMBER- ∆f_LUMBER; F_COTTON:= F_COTTON +FLAG∆f_FURS+FLAG∆f_LUMBER -∆f_COTTON;

Обобщенный псевдокод реакций получения первичного сырья из территорий:

resident function reaction1_profession_area (industryarea: area; arealocation: location; areaindustry: industry; n_people: byte; professionqualification: profession_qualification);

θ0:=Timer();

θ1:=θ0;

starving:=0;

TABLE_PROFESSION1 (profession qualification, ∆θ_PROFESSION);

TABLE_PROFESSION1 (profession qualification, I_ABS);

TABLE_PROFESSION1 (areaindustry, M_PRODUCTION);

TABLE_AREA (industryarea, F_AREA);

TABLE_AREA (industryarea, ∆f_AREA);

while not (change_Task()) do

θ2:=θ1+∆θ;

if (|θ2-∆θ|>=∆θ_PROFESSION) and (starving <>1) then

I_REL:=n*I_ABS* F_AREA;

return I_REL* M_PRODUCTION;

TABLE_AREA (arealocation).F:=F_AREA;

if (TABLE_AREA (arealocation).F<=0)

then End_Task (arealocation, areaindustry);

break;

if (|θ2-θ1|>=∆θ∆e) then

if STOREHOUSE.FOOD.fulness>=∆e then

STOREHOUSE.FOOD.fulness:= STOREHOUSE.FOOD.fulness - ∆e;

else

Message (STOREHOUSE_EMPTY);

if E=0 then

Message (location, profession_qualification, n, 'starving');

starving:=1;

if (starving<>1) and (STOREHOUSE.fullness>=∆e)

θ0:=Timer ();

θ1:=θ0;

θ1:=θ2;

Обобщенный псевдокод реакций получения вторичного сырья из первичного:

resident function reaction2_profession (n_people: byte; professionqualification: profession_qualification);

θ0:=Timer();

θ1:=θ0;

starving:=0;

TABLE_PROFESSION2 (profession qualification, ∆θ_PROFESSION);

TABLE_PROFESSION2 (profession qualification, I_ABS);

TABLE_PROFESSION2 (raw, item);

while not (change_Task()) do

θ2:=θ1+∆θ;

if (|θ2-∆θ|>=∆θ_PROFESSION) and (starving <>1) then

I_REL:=n*I_ABS;

return I_REL* M_PRODUCTION;

if (|θ2-θ1|>=∆θ∆e) then

if STOREHOUSE.FOOD.fulness>=∆e then

STOREHOUSE.FOOD.fulness:= STOREHOUSE.FOOD.fulness - ∆e;

else

Message (STOREHOUSE_EMPTY);

if E=0 then

Message (profession_qualification, n, 'starving');

starving:=1;

if (starving<>1) and (STOREHOUSE.fullness>=∆e)

θ0:=Timer ();

θ1:=θ0;

θ1:=θ2;

Таблица 3.2.4.

TABLE_COMPATIBILITY1 (ТАБЛИЦА СОВМЕСТИМОСТИ1)

AREA	CORE_MARKER	PEOPLE_QUALIFICATION
WETLAND FOREST	FOOD	FARMER
WETLAND FOREST	FOOD	EXPERT_FARMER
WILDERNESS	FOOD	FARMER
WILDERNESS	FOOD	EXPERT_FARMER
SAVANNAH	FOOD	FARMER
SAVANNAH	FOOD	EXPERT_FARMER
RAIN FOREST	SUGAR	SUGAR_PLANTER
RAIN FOREST	SUGAR	EXPERT_SUGAR_PLANTER
TROPICAL FOREST	SUGAR	SUGAR_PLANTER
TROPICAL FOREST	SUGAR	EXPERT_SUGAR_PLANTER
SAVANNAH	SUGAR	SUGAR_PLANTER
SAVANNAH	SUGAR	EXPERT_SUGAR_PLANTER
CONIFER FOREST	TOBACCO	TOBACCO_PLANTER
CONIFER FOREST	TOBACCO	EXPERT_TOBACCO_PLANTER
WILDERNESS	COTTON	COTTON_PLANTER
WILDERNESS	COTTON	EXPERT_COTTON_PLANTER
BROADLEAF FOREST	COTTON	COTTON_PLANTER
BROADLEAF FOREST	COTTON	EXPERT_COTTON_PLANTER
CONIFER FOREST	FURS	FUR_TRAPPER
CONIFER FOREST	FURS	EXPERT_FUR_TRAPPER
TROPICAL FOREST	FURS	FUR_TRAPPER
TROPICAL FOREST	FURS	EXPERT_FUR_TRAPPER
BROADLEAF FOREST	FURS	FUR_TRAPPER
BROADLEAF FOREST	FURS	EXPERT_FUR_TRAPPER
RAIN FOREST	LUMBER	LUMBERJACK
RAIN FOREST	LUMBER	EXPERT_LUMBERJACK
CONIFER FOREST	LUMBER	LUMBERJACK
CONIFER FOREST	LUMBER	EXPERT_LUMBERJACK

Продолжение таблицы 3.2.4. на след. странице

Продолжение таблицы 3.2.4.

TABLE_COMPATIBILITY1 (ТАБЛИЦА СОВМЕСТИМОСТИ1)

AREA	CORE_MARKER	PEOPLE_QUALIFICATION
TROPICAL FOREST	LUMBER	LUMBERJACK
TROPICAL FOREST	LUMBER	EXPERT_LUMBERJACK
BROADLEAF FOREST	LUMBER	LUMBERJACK
BROADLEAF FOREST	LUMBER	EXPERT_LUMBERJACK
MOUNTAINS	ORE	ORE_MINOR
MOUNTAINS	ORE	EXPERT_ORE_MINOR
HILL	ORE	ORE_MINOR
HILL	ORE	EXPERT_ORE_MINOR
RAIN FOREST	ORE	ORE_MINOR
RAIN FOREST	ORE	EXPERT_ORE_MINOR
WETLAND FOREST	ORE	ORE_MINOR
WETLAND FOREST	ORE	EXPERT_ORE_MINOR
MOUNTAINS	SILVER	SILVER_MINOR
MOUNTAINS	SILVER	EXPERT_SILVER_MINOR

Таблица 3.2.5.

TABLE_COMPATIBILITY2 (ТАБЛИЦА СОВМЕСТИМОСТИ2)

IN_MARKER	HOUSE	OUT_MARKER	PEOPLE_QUALIFICATION
SUGAR	RUM_DISSTILLER_HOUSE	RUM	DISTILLER
SUGAR	RUM_DISSTILLER_HOUSE	RUM	EXPERT_DISTILLER
TOBACCO	TOBACCONIST'S_HOUSE	CIGARS	TOBACCONIST

Продолжение таблицы 3.2.5. на след. странице

Продолжение таблицы 3.2.5.

TABLE_COMPATIBILITY2 (ТАБЛИЦА СОВМЕСТИМОСТИ2)

IN_MARKER	HOUSE	OUT_MARKER	PEOPLE_QUALIFICATION
TOBACCO	TOBACCONIST'S_HOUSE	CIGARS	EXPERT_TOBACCONIST
COTTON	WEAVER'S_HOUSE	CLOTH	WEAWER
COTTON	WEAVER'S_HOUSE	CLOTH	EXPERT_WEAWER
FURS	FUR_TRADER'S_HOUSE	COATS	FUR_TRADER
FURS	FUR_TRADER'S_HOUSE	COATS	EXPERT_FUR_TRADER
LUMBER	BLACKSMITH'S_HOUSE	TOOLS	BLACKSMITH
LUMBER	BLACKSMITH'S_HOUSE	TOOLS	EXPERT_BLACKSMITH
LUMBER, ORE	MECHANIC'S_HOUSE	MUSKETS	ARMOURER
LUMBER, ORE	MECHANIC'S_HOUSE	MUSKETS	EXPERT_ARMOURER

Процедура инициализации

procedure init;

var people: TPeople;

type TPeople=record;

begin

FARMER : byte;

EXPERT_FARMER : byte;

SUGAR_PLANTER : byte;

EXPERT_SUGAR_PLANTER : byte;

TOBACCO_PLANTER : byte;

EXPERT_TOBACCO_PLANTER : byte;

COTTON_PLANTER : byte;

EXPERT_COTTON_PLANTER : byte;

FUR_TRAPPER : byte;

EXPERT_FUR_TRAPPER : byte;

LUMBERJACK : byte;

EXPERT_LUMBERJACK : byte;

ORE_MINOR : byte;

EXPERT_ORE_MINOR : byte;

SILVER_MINOR : byte;

EXPERT_SILVER_MINOR : byte;

end;

var positions: TPositions;

TPositions = array of TMarkers;

var TABLE_COMPATIBILITY1;

begin

n:=length (people);

for x:=1 to n do

begin

y:=n-x;

E_X:=x*I_ABS*F_AREA;

if (E_X/(∆e*x+∆e*y))≥1 then

break;

end;

x1:=dispatch_farmers (x);

if (x1>0) then fortify (x1);

y1:=dispatch_rest (y);

if (y1>0) then fortify (y1);

procedure fortify (k);

var k;

begin

P_BUFFER:= P_BUFFER+k;

end;

function dispatch_farmers (x): byte;

var i;

begin

for i:=1 to n do

begin

for k:=x - downto=1 do

begin

if (Density (P[i]/k)>1) then

break

end;

if compatible (p[i], profession_qualification (k)) then

x:=x-k;

p[i]:=p[i] + k;

reaction_Mprofession_area (industryarea p[i] : area; arealocation p[i] : location; areaindustry p[i] : industry; n_people: byte; professionqualification (k): profession_qualification);

if x=0 then break

end;

function dispatch_rest (y): byte;

var i;

begin

for i:=1 to n do

begin

for k:=y – downto=1 do

begin

if (Density (P[i]/k)>1) then

break

end;

if compatible (p[i], profession_qualification (k)) then

y:=y-k;

p[i]:=p[i] + k;

reaction_Mprofession_area (industryarea p[i] : area; arealocation p[i] : location; areaindustry p[i] : industry; n_people: byte; professionqualification (k): profession_qualification);

if y=0 then break

end;

end.

<<< < Предыдущая 1 2 3 4 5 6 7 8 910 / 1110 11 > Следующая >>>

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
07.02.2015151.55 Кб10marina_kursovaya.doc
#
07.02.2015150.53 Кб18math-prosto-cage.doc
#
07.02.2015619.85 Кб49MathCAD.pdf
#
07.02.2015624.79 Кб6mathematiks_1_1.pdf
#
07.02.20151.08 Mб2mehy_ysli.doc
#
22.11.20191.05 Mб1met.uk.po-MPPSP (1).doc
#
15.11.2018156.16 Кб1method_recomend.doc
#
07.02.2015410.11 Кб9Metodichka-po-d_p-E_YU_N_-ZH_V_P.doc
#
28.09.2019335.87 Кб1Metodichka_o_poryadke_prokhozhdenia_praktiki_i_...doc
#
14.09.2019322.05 Кб14metodposobiedlya_zaochnikov_Zvonilovoy.doc
#
31.08.20197.92 Mб5metod_shimanovich2004.doc