19. Труханов Р.И. Модели принятия решений в условиях неопределенности. -М.: Наука, 1981.
20. Кхол И. Эффективность управленческих решений. - М.: Прогресс, 1975.
21. Рельян Я.Р. Аналитические основы принятия решений. - М.: Финансы и статистика, 2003.
22. Венделин А.Г. Подготовка и принятие управленческого решения. Методический аспект. -М.: экономика, 1977.
23. Екатеринославский Ю.Ю. Управленческие ситуации: анализ и решения. М.: Экономика, 2001.
24. Вилкас Э.И., Майминас Е.З. Решения: теория, информация, моделирование. -М.: Радио и связь, 1981.
25. Эддоус. Методы принятия решений. - М.: ЮНИТИ, 1998.
26. Планкет Л., Хейл Г. Выработка и принятие управленческих решений. / Сокр. Перевод с анг. -М.: Экономика. 2004.
27. Вейцман З.В., Венбрин В.Д. Технологическая подготовка производства РЭА. М.: Радио и связь, 1989.
28. Нечипоренко В.И. Структурный анализ систем. М.:Сов. радио, 1977.
29. Технология и автоматизация производства РЭА/ Под ред. А.П. Достанко, Ш.М. Чабдарова. М.: Радио и связь, 1989.
30. Бешелев С.Д., Гурвич Ф.Г. Математико-статистические методы экспертных оценок. «Статистика», 1980.
31. Кэндел М. Ранговые корреляции. Пер. с англ. Е.М. Итыркина и Р.М.Энтова . М.: Статистика, 1975.
32. Статистические методы анализа экспертных оценок. М.: Наука, 1977.
33. Войчинский A.M., Янсон Я.Ж. Технологичность изделий в приборостроении. Л.: Машиностроение 1988.
34. Михельсон-Ткач В.А. Повышение технологичности конструкций. М.: Машиностроение, 1988.
35. Пушкарь Б.М., Клебан П.С. система отработки и оценки изделий на технологичность. Из опыта ПО им. С.П.Королева. Киев: Знание, 1985.
36. Методика определения экономической эффективности. ОСТ4 ГО.091.025. М.: Изд-во стандартов, 1983.
37. Технико-экономическое обоснование дипломных проектов/ Под ред. В.К. Беклешова. М.: Высшая школа, 1991.
Приложение 1
Текст программы количественной оценки технологичности РЭА
SET DATE DMY SET TALK OFF SET DELETE ON SET BELL OFF SET STATUS BAR ON SET NOTIFY OFF SET CENT ON SET AUTOSAVE ON CLOSE ALL USE PROD IN A USE PRODD IN В USE PRODM IN С USE PRODY IN D USE TOVAR IN E
* *********************************************************
* *
* * 06/21/05 MENU1.MPR 00:23:33
* * Author's Name
* * Copyright (C) 2005 Company Name
* * Address
* * City, Zip
* * Description:
* * This PROGRAM was automatically generated BY GENMENU.
* * Menu Definition
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD JjrOOuars OF _MSYSMENU PROMPT "Справка" COLOR SCHEME 3;
KEYALT+C, "" DEFINE PAD JjrOOuart OF _MSYSMENU PROMPT "Данные" COLOR SCHEME 3;
KEYALT+Д,"" DEFINE PAD JjrOOuaru OF _MSYSMENU PROMPT "Расчет" COLOR SCHEME 3;
KEY ALT+P, "" DEFINE PAD JjrOOuarv OF _MSYSMENU PROMPT "Документ" COLOR SCHEME 3;
KEYALT+Д,"" DEFINE PAD JjrOOuarw OF _MSYSMENU PROMPT "Технологичность" COLOR SCHEME 3;
KEYALT+M,"" DEFINE PAD JjrOOuarx OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3;
KEYALT+B, "" ON PAD JjrOOuart OF _MSYSMENU ACTIVATE POPUP данные ON PAD JjrOOuaru OF JVTSYSMENU ACTIVATE POPUP расчет ON PAD JjrOOuarv OF JVTSYSMENU ACTIVATE POPUP документ ON PAD JjrOOuarw OF _MSYSMENU ACTIVATE POPUP оценка
DEFINE POPUP данные MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF данные PROMPT "Ввод экспертов" DEFINE BAR 2 OF данные PROMPT "Просмотр" DEFINE BAR 3 OF данные PROMPT "Изменение" DEFINE BAR 4 OF данные PROMPT "Редактирование"
DEFINE BAR 5 OF данные PROMPT "Наименование изделий"
ON SELECTION BAR1 OF данные DO FORM V_PROD
ON SELECTION BAR2 OF данные DO FORM PROSM
ON SELECTION BAR3 OF данные DO FORM RED AC
ON SELECTION BAR4 OF данные DO FORM RED AC WITH 2
ON SELECTION BAR5 OF данные DO FORM TOVAR
DEFINE POPUP расчет MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF расчет PROMPT “” DEFINE BAR 2 OF расчет PROMPT *"* DEFINE BAR 3 OF расчет PROMPT ""
ON SELECTION BAR 1 OF расчет DO FORM RASC1 ON SELECTION BAR 2 OF расчет DO FORM RASC2 ON SELECTION BAR 3 OF расчет DO FORM RASC3
DEFINE POPUP документ MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF документ PROMPT "Таблица 1" DEFINE BAR 2 OF документ PROMPT "Таблица2" DEFINE BAR 3 OF документ PROMPT "Графики"
ON SELECTION BAR1 OF документ DO DOC1 ON SELECTION BAR2 OF документ DO DOC2 ON SELECTION BAR3 OF документ RUN EXCEL
DEFINE POPUP pac4eTMARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF расчет PROMPT "Формирование массива" DEFINE BAR 2 OF расчет PROMPT "Очистка БД" DEFINE BAR 3 OF расчет PROMPT "Архивирование БД"
ON SELECTION BAR1 OF расчет DO FOR MODEL ON SELECTION BAR1 OF расчет DO OCHISTKA
ON SELECTION BARl OF расчет DO ARXIV
ON SELECTION PADljrOOuarx OF _MSYSMENU DO EXIT
read events
PROCEDURE EXIT DATABASE CLOSE QUIT
PROCEDURE OCHISTKA
SELEA
DELETE ALL
PACK
SELEB DELETE ALL PACK
SELEC DELETE ALL PACK
SELED DELETE ALL PACK
PROCEDURE ARXIV
RUN ARJ E BD.ARJ
МОДУЛЬ У PROD <ДОБАВИТЬ>
APPEND BLANK
REPLACE DATE WITH PI 1,;
NAIM WITH TOVAR.NAIM,;
0TDELWITHP12,;
COST WITH P13,;
SEBWITHP14,;
K0L_V0WITHP14 THISFORM.REFRESHO <OTKA3> RELEASE THISFORM
МОДУЛЬ PROSM
<ВПЕРЕД>
IF !EOF()
SKIP
ELSE
GO TOP
ENDIF
THISFORM.REFRESHO
<НАЗАД>
IF !BOF()
SKIP-1
GO BOTTOM
<ПОСЛЕДНЯЯ> GO BOTTOM THISFORM.REFRESHO
<ПЕРВАЯ>
< ПОИСК>
DO FORM POISK
SELEA LOCATE FOR DATA.=P21 PROSM.REFRESH() RELEASE THISFORM
< ВЫХОД> RELEASE THISFORM
МОДУЛЬ REDAC
<ПОИСК>
SELEA LOCATE FOR DATA.=P21 REDAC.REFRESHO RELEASE THISFORM
МОДУЛЬ TOVAR
<ДОБАВИТЬ>
SELEE
REPLACE DATA WITHP31,; NAIM WITH P32,; COST WITH P33,; SEBWITH P34
<OTKA3> RELEASE THISFORM
МОДУЛЬ RASCI
< РАСЧИТАТЬ>
SET FILTER TO DATA=P41
K=0
S1=0
S2=0
S3=0
SCAN
K=K+1
Sl=Sl+COST
S2=S2+SEB S3=S3+KOL_VO ENDSCAN SELEB
LOCATE FOR DATA = P41 IF FOUND() REPLACE COSTl WITH (COSTl+S1)/(K+1),;
SEB1 WITH SEB1+S2,;
KOL_V01 WITHS3+KOL_V01,;
VYR1 WITHVYR1+S1,;
SSEB1 WITH (SEB1+S2)/K+1,;
PRIB1 WITH VYR1-SEB1,;
RENT1 WITHPRIB1/SEB1 ELSE
APPEND BLANK REPLACE DATA WITH P41,;
COSTl WITH(S1)/(K),;
SEB1 WITH S2,;
KOL_V01 WITH S3,;
VYR1 WITH SI,;
SSEB1 WITH (S2)/K,;
PRIB1 WITHVYR1-SEB1,;
RENT1 WITHPRIB1/SEB1 ENDIF SELEA
THISFORM.REFRESH() <0TKA3> RELEASE THISFORM
МОДУЛЬ RASC2
SET FILTER TO CMONTH(DATA)=P51
S2=0 S3=0 SCAN
K=K+1 S1=S1+C0ST S2=S2+SEB S3=S3+KOL_VO ENDSCAN SELEC
POK=STR(MONTH(DATA))+STR(YEAR(DATA)) LOCATE FOR MOTH - РОК IF FOUNDO REPLACE COSTl WITH (C0ST1+S1)/(K+1),;
SEB1 WITH SEB1+S2,; KOL_V01 WITHS3+KOL_V01,;
RENT1 WITHPRIB1/SEB1 ELSE REPLACE MOTH WITH РОК,;
RENT1 WITHPRIB1/SEB1 ENDIF
<OTKA3>
RELEASE THISFORM
МОДУЛЬ RASC3
SET FILTER TO YEAR(DATA)=P61
К=0
K=K+1 Sl=Sl+COST S2=S2+SEB S3=S3+KOL_VO ENDSCAN SELED
APPEND BLANK LOCATE FOR YER = STR(P61) IF FOUND() REPLACE COSTl WITH (C0ST1+S1)/(K+1),;
RENT1 WITHPRIB1/SEB1 ELSE REPLACE YER WITH STR(P61),;
RENT1 WITHPRIB1/SEB1
МОДУЛЬ DOC 1
< ПЕЧАТЬ>
USETABL1 INF
REPLACE PI WITH P71, P2 WITH P72
SELEC
USE TABL IN G
SET FILTER TO LEFT(MOTH,4)=P71
SELEG
REPLACE MON WITH C.MOTH,;
VI WITHC.VYR2,;
SI WITHC.SEB2,;
PR1 WITH C.VYR2-C.SEB2,;
RE1 WITHC.RENT2 SKIP SELEC ENDSCAN
SET FILTER TO LEFT(MOTH,4)=P72
REPLACE V2 WITH C.VYR2,;
S2 WITH C.SEB2,;
PR2 WITH C.VYR2-C.SEB2,;
RE2 WITH C.RENT2 SKIP SELEC ENDSCAN
REPORT FORM REPORTl NOCONS PREW SELEG DELE ALL PACK USE THISFORM.REFRESHO
МОДУЛЬ РОС2
<ПЕЧАТЬ>
SELED
SET FILTER TO VAL(YER)<=P81.AND.VAL(YER)>=P82
USE TABL3 IN G
REPLACE Y2 WITH D.MOTH,;
V2 WITH D.VYR3,;
S2 WITH D.SEB3,;
PR2 WITH D.PRIB3,;
RE2 WITH D.RENT3 SKIP SELEC ENDSCAN
REPORT FORM REPORT2 THISFORM.REFRESHO
<ОТКАЗ> RELEASE THISFORM
МОДУЛЬ ozenca < ФОРМИРОВАТЬ DIMENSION B(100), C(100), D(100) FOR 1=1 TO 100
B[I]=ROUND()*100
C[I]=ROUND()*100
D[I]=ROUND()*100
ENDFOR
PRl WITH C.VYR2-C.SEB2,
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13
