Листинг исходного кода ЭС

«Выбор стратегии развития»

GOAL: Strategy

INITIAL:

E.LSTR=250

E.RIGR="A"

e.icf=True /*добавили*/

Strategy=UNKNOWN

Potential=UNKNOWN

Enterprise =UNKNOWN

Market=UNKNOWN

Sales=UNKNOWN

clear

? " **************************************************************"

? " Экспертная система по выбору стратегии развития производства"

? " в зависимости от этапов жизненного цикла предприятия"

? " **************************************************************"

? " Для начала консультации нажмите любую клавишу"

wait

clear

?"ВЫБОР СТРАТЕГИИ:"

INPUT LifeCycl STR WITH "Введите стадию жизненного цикла предприятия (1-возникновение; 2-развитие; 3-зрелость; 4-спад)"

INPUT SizePred STR WITH "Введите размер предприятия (1-крупное; 2-среднее; 3-малое)"

INPUT TypePred STR WITH "Введите тип предприятия (1-специализированное; 2-диверсифицированное)"

INPUT VolumeSales STR WITH "Введите примерный объем продаж предприятия (1-высокий; 2-средний; 3-низкий)"

INPUT LevelPrise STR WITH "Введите характерный для предприятия уровень цен на товары (1-высокий; 2-средний; 3-низкий)"

INPUT LevelCompet STR WITH "Введите уровень конкуренции на занимаемом рынке (1-высокий; 2-средний; 3-низкий)"

INPUT TypeGoods STR WITH "Введите тип товара на рынке (1-новый; 2-существующий)"

INPUT TypeMarket STR WITH "Введите тип занимаемого рынка (1-новый; 2-существующий)"

INPUT Diversification STR WITH "По вашему мнению существует ли возможность расширения предприятия? (1-да; 2-нет)"

DO:

?"Наиболее подходящая для вас стратегия: ",Strategy

/*Обьяснения результатов*/

E.ICF=FALSE

input otvet num using "d" with "Хотите обьяснений?(Да-1/Нет-0)"

if otvet=1 then

i=1;while i<=#hcnt do /*#hcnt - до тех пор пока есть REASON, вывод-ся содержимое REASON */

why #how(i) /*Вывод результата*/

? "Нажмите ENTER"

wait;i=i+1 /*организация паузы*/

endwhile

endif

RULE: R1

IF: Enterprise="Прогрессирующее" AND Potential="Есть"

AND Market="Перспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия развития" cf 85

REASON: Стратегия развития предусматривает укрепляющее и развивающее действие по всем направлениям функционирования предприятия, на данном этапе необходимо увеличивать качество продукции, снижать издержки и повышать конкурентоспособность.

RULE: R2

IF: Enterprise="Прогрессирующее" AND Potential="Есть"

AND Market="Перспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия роста" cf 90

REASON: Стратегия роста направлена на полное использование внутренних и внешних возможностей предприятия. Деятельность предприятия должна быть направлена на корректировку системы управления, тактики продаж. Целью является умеренный рост для обеспечения выхода на оптимальную эффективность.

RULE: R3

IF: Enterprise="Прогрессирующее" AND Potential="Есть"

AND Market="Бесперспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия укрепления" cf 80

REASON: Стратегия укрепления направлена на увеличение внимания к снижению издержек, увеличение продаж существующим потребителям и повышении собственной конкурентоспособности.

RULE: R4

IF: Enterprise="Прогрессирующее" AND Potential="Есть"

AND Market="Бесперспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия инноваций" cf 80

REASON: Стратегия инноваций направлена на выпуск совершенно нового товара на рынок, что способствует расширению доли рынка и потребительского сегмента, увеличение конкурентоспособности.

RULE: R5

IF: Enterprise="Прогрессирующее" AND Potential="Нет"

AND Market="Перспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия роста" cf 90

RULE: R6

IF: Enterprise="Прогрессирующее" AND Potential="Нет"

AND Market="Перспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия проникновения" cf 80

REASON: Стратегия проникновения направляет усилия предприятия на более глубокое прникновение на рынок и увеличение темпов роста объема продаж. При необходимости производится поглощение.

RULE: R7

IF: Enterprise="Прогрессирующее" AND Potential="Нет"

AND Market="Бесперспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия проникновения" cf 80

RULE: R8

IF: Enterprise="Прогрессирующее" AND Potential="Нет"

AND Market="Бесперспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегии нет - необходима полная реорганизация предприятия." cf 90

RULE: R9

IF: Enterprise="Стабильное" AND Potential="Есть"

AND Market="Перспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия развития" cf 90

RULE: R10

IF: Enterprise="Стабильное" AND Potential="Есть"

AND Market="Перспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия диверсификации" cf 70

REASON: Стратегия диверсификации направлена на расширение сегмента рынка и ассортимента продукции, что может способствовать увеличению объемов продаж.

RULE: R11

IF: Enterprise="Стабильное" AND Potential="Есть"

AND Market="Бесперспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия укрепления" cf 80

RULE: R12

IF: Enterprise="Стабильное" AND Potential="Есть"

AND Market="Бесперспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия фокусирования" cf 80

REASON: Стратегия фокусирования направлена на концентрацию внимания на более выгодный сегмент рынка. Предприятию предлагается изменить тактику продаж или перейти на более перспективный с точки зрения конкуренции рынок.

RULE: R13

IF: Enterprise="Стабильное" AND Potential="Нет"

AND Market="Перспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия развития" cf 90

REASON: Стратегия развития является методом стимулирования, на данном этапе необходимо увеличивать качество продукции, снижать издержки и повышать конкурентоспособность.

RULE: R14

IF: Enterprise="Стабильное" AND Potential="Нет"

AND Market="Перспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия диверсификации" cf 90

RULE: R15

IF: Enterprise="Стабильное" AND Potential="Нет"

AND Market="Бесперспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия укрепления" cf 90

RULE: R16

IF: Enterprise="Стабильное" AND Potential="Нет"

AND Market="Бесперспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия выживания" cf 80

REASON: Стратегия выживания применяется в случаях полного расстройства экономической деятельности предприяти, в состоянии, близком к банкротству. Предприятию предлагается выйти на более перспективный рынок с точки зрения конкуренции или изменить тактику продаж.

RULE: R17

IF: Enterprise="Регрессирующее" AND Potential="Есть"

AND Market="Перспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия укрепления" cf 70

RULE: R18

IF: Enterprise="Регрессирующее" AND Potential="Есть"

AND Market="Перспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия инноваций" cf 90

RULE: R19

IF: Enterprise="Регрессирующее" AND Potential="Есть"

AND Market="Бесперспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия диверсификации" cf 90

RULE: R20

IF: Enterprise="Регрессирующее" AND Potential="Есть"

AND Market="Бесперспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегии нет - предприятие нежизнеспособно" cf 90

RULE: R21

IF: Enterprise="Регрессирующее" AND Potential="Нет"

AND Market="Перспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия укрепления" cf 80

RULE: R22

IF: Enterprise="Регрессирующее" AND Potential="Нет"

AND Market="Перспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегия фокусирования" cf 90

RULE: R23

IF: Enterprise="Регрессирующее" AND Potential="Нет"

AND Market="Бесперспективный" AND Sales="Эффективные"

THEN: Strategy="Стратегия выживания" cf 80

RULE: R24

IF: Enterprise="Регрессирующее" AND Potential="Нет"

AND Market="Бесперспективный" AND Sales="Неэффективные"

THEN: Strategy="Стратегии нет - предприятие-банкрот" cf 100

RULE: R25

IF: LifeCycl="1" AND TypePred="1"

THEN: EnterPrise="Прогрессирующее" cf 80

REASON: Уровень жизненного цикла - возникновение, тип - специализированное, предприятие прогрессирующее

RULE: R26

IF: LifeCycl="1" AND TypePred="2"

THEN: EnterPrise="Прогрессирующее" cf 80

REASON: Уровень жизненного цикла - возникновение, тип - диверсификационное, предприятие прогрессирующее

RULE: R27

IF: LifeCycl="2" AND TypePred="2"

THEN: EnterPrise="Прогрессирующее" cf 80

REASON: Уровень жизненного цикла - развитие, тип - диверсификационное, предприятие прогрессирующее

RULE: R28

IF: LifeCycl="2" AND TypePred="1"

THEN: EnterPrise="Стабильное" cf 85

REASON: Уровень жизненного цикла - развитие, тип - специализированное, предприятие стабильное

RULE: R29

IF: LifeCycl="3" AND TypePred="1"

THEN: EnterPrise="Стабильное" cf 85

REASON: Уровень жизненного цикла - зрелость, тип - специализированное, предприятие стабильное

RULE: R30

IF: LifeCycl="3" AND TypePred="2"

THEN: EnterPrise="Стабильное" cf 90

REASON: Уровень жизненного цикла - зрелость, тип - диверсификационное, предприятие стабильное

RULE: R31

IF: LifeCycl="4" AND TypePred="2"

THEN: EnterPrise="Стабильное" cf 90

REASON: Уровень жизненного цикла - спад, тип - диверсификационное, предприятие стабильное

RULE: R32

IF: LifeCycl="4" AND TypePred="1"

THEN: EnterPrise="Регрессирующее" cf 90

REASON: Уровень жизненного цикла - спад , тип - специализированное, предприятие регрессирующее

RULE: R33

IF: VolumeSales="1" AND LevelPrise="1" AND TypeGoods="1"

THEN: Sales="Эффективные" cf 90

REASON: Предприятие имеет высокий объем продаж, высокий уровень цен, новый тип товара, продажи эффективны

RULE: R34

IF: VolumeSales="1" AND LevelPrise="1" AND TypeGoods="2"

THEN: Sales="Эффективные" cf 90

REASON: Предприятие имеет высокий объем продаж, высокий уровень цен, существующий тип товара, продажи эффективны

RULE: R35

IF: VolumeSales="1" AND LevelPrise="2" AND TypeGoods="1"

THEN: Sales="Эффективные" cf 90

REASON: Предприятие имеет высокий объем продаж, средний уровень цен, новый тип товара, продажи эффективны

RULE: R36

IF: VolumeSales="1" AND LevelPrise="2" AND TypeGoods="2"

THEN: Sales="Эффективные" cf 85

REASON: Предприятие имеет высокий объем продаж, средний уровень цен, существующий тип товара, продажи эффективны

RULE: R37

IF: VolumeSales="1" AND LevelPrise="3" AND TypeGoods="1"

THEN: Sales="Эффективные" cf 85

REASON: Предприятие имеет высокий объем продаж, низкий уровень цен, новый тип товара, продажи эффективны

RULE: R38

IF: VolumeSales="2" AND LevelPrise="1" AND TypeGoods="1"

THEN: Sales="Эффективные" cf 75

REASON: Предприятие имеет средний объем продаж, высокий уровень цен, новый тип товара, продажи эффективны

RULE: R39

IF: VolumeSales="2" AND LevelPrise="1" AND TypeGoods="2"

THEN: Sales="Эффективные" cf 75

REASON: Предприятие имеет средний объем продаж, высокий уровень цен, существующий тип товара, продажи эффективны

RULE: R40

IF: VolumeSales="2" AND LevelPrise="2" AND TypeGoods="1"

THEN: Sales="Эффективные" cf 70

REASON: Предприятие имеет средний объем продаж, средний уровень цен, новый тип товара, продажи эффективны

RULE: R41

IF: VolumeSales="2" AND LevelPrise="2" AND TypeGoods="2"

THEN: Sales="Эффективные" cf 90

REASON: Предприятие имеет средний объем продаж, средний уровень цен, существующий тип товара, продажи эффективны

RULE: R42

IF: VolumeSales="3" AND LevelPrise="1" AND TypeGoods="1"

THEN: Sales="Эффективные" cf 90

REASON: Предприятие имеет низкий объем продаж, высокий уровень цен, новый тип товара, продажи эффективны

RULE: R43

IF: VolumeSales="3" AND LevelPrise="1" AND TypeGoods="2"

THEN: Sales="Эффективные" cf 85

REASON: Предприятие имеет низкий объем продаж, высокий уровень цен, существующий тип товара, продажи эффективны

RULE: R44

IF: VolumeSales="1" AND LevelPrise="3" AND TypeGoods="2"

THEN: Sales="Неэффективные" cf 87

REASON: Предприятие имеет высокий объем продаж, низкий уровень цен, существующий тип товара, продажи неэффективны

RULE: R45

IF: VolumeSales="2" AND LevelPrise="3" AND TypeGoods="1"

THEN: Sales="Неэффективные" cf 98

REASON: Предприятие имеет средний объем продаж, низкий уровень цен, новый тип товара, продажи неэффективны

RULE: R46

IF: VolumeSales="2" AND LevelPrise="3" AND TypeGoods="2"

THEN: Sales="Неэффективные" cf 90

REASON: Предприятие средний имеет объем продаж, низкий уровень цен, существующий тип товара, продажи неэффективны

RULE: R47

IF: VolumeSales="3" AND LevelPrise="2" AND TypeGoods="1"

THEN: Sales="Неэффективные" cf 80

REASON: Предприятие имеет низкий объем продаж, средний уровень цен, новый тип товара, продажи неэффективны

RULE: R48

IF: VolumeSales="3" AND LevelPrise="2" AND TypeGoods="2"

THEN: Sales="Неэффективные" cf 85

REASON: Предприятие имеет низкий объем продаж, средний уровень цен, существующий тип товара, продажи неэффективны

RULE: R49

IF: VolumeSales="3" AND LevelPrise="3" AND TypeGoods="1"

THEN: Sales="Неэффективные" cf 85

REASON: Предприятие имеет низкий объем продаж, низкий уровень цен, новый тип товара, продажи неэффективны

RULE: R50

IF: VolumeSales="3" AND LevelPrise="3" AND TypeGoods="2"

THEN: Sales="Неэффективные" cf 95

REASON: Предприятие имеет низкий объем продаж, низкий уровень цен, существующий тип товара, продажи неэффективны

RULE: R51

IF: SizePred="1" AND Diversification="1"

THEN: Potential="Есть" cf 85

REASON: Предприятие малое, с возможномтью расширения, имеет потенциал к развитию

RULE: R52

IF: SizePred="1" AND Diversification="2"

THEN: Potential="Есть" cf 75

REASON: Предприятие крупное, без возможномти расширения, имеет потенциал к развитию

RULE: R53

IF: SizePred="2" AND Diversification="1"

THEN: Potential="Есть" cf 85

REASON: Предприятие среднее, с возможномтью расширения, имеет потенциал к развитию

RULE: R54

IF: SizePred="3" AND Diversification="1"

THEN: Potential="Есть" cf 80

REASON: Предприятие малое, с возможномтью расширения, имеет потенциал к развитию

RULE: R55

IF: SizePred="2" AND Diversification="2"

THEN: Potential="Нет" cf 87

REASON: Предприятие среднее, без возможномти расширения, без изменения тактики не имеет потенциала к развитию

RULE: R56

IF: SizePred="3" AND Diversification="2"

THEN: Potential="Нет" cf 89

REASON: Предприятие малое, без возможномти расширения, без изменения тактики не имеет потенциала к развитию

RULE: R57

IF: LevelCompet="2" AND TypeMarket="2"

THEN: Market="Перспективный" cf 90

REASON: Предприятие работает на существующем рынке со средней конкуренцией, продажи здесь перспективны

RULE: R58

IF: LevelCompet="3" AND TypeMarket="1"

THEN: Market="Перспективный" cf 90

REASON: Предприятие работает на новом рынке с низкой конкуренцией, продажи здесь перспективны

RULE: R59

IF: LevelCompet="3" AND TypeMarket="2"

THEN: Market="Перспективный" cf 80

REASON: Предприятие работает на существующем рынке с низкой конкуренцией, продажи здесь перспективны

RULE: R60

IF: LevelCompet="1" AND TypeMarket="1"

THEN: Market="Бесперспективный" cf 90

REASON: Предприятие работает на новом рынке с высокой конкуренцией, продажи здесь бесперспективны

RULE: R61

IF: LevelCompet="1" AND TypeMarket="2"

THEN: Market="Бесперспективный" cf 90

REASON: Предприятие работает на существующем рынке с высокой конкуренцией, продажи здесь бесперспективны

RULE: R62

IF: LevelCompet="2" AND TypeMarket="1"

THEN: Market="Бесперспективный" cf 90

REASON: Предприятие работает на новом рынке со средней конкуренцией, продажи здесь бесперспективны

END:

<20 21 22 23 24 2526>

Дата добавления: 2015-10-13; просмотров: 868;