决策支持系统作业最终

1、决策支持系统导论 期末作业姓名：齐鹏 学号： 日期： 2012年 7月9日1、设某企业生产多种最终产品 Y=（yij） ，各种产品的单价为 Pi ，它们的投 入产出直接消耗系数为 A=（aij） ，企业的资源（煤、电力、劳力）的约束方 程为BXh（“ ”表示 ）,其中，B=（bij）是资源消耗系数矩阵， X=（xi） 是企业总产品向量， h 是资源约束向量。为使企业净产值最大，其目 标方程S二刀Piyi - max试安排生产计划（求总产品 X和最终产品Y）。请设 计该企业的生产计划决策支持系统，画出DSS运行结构图，并对总控程序、模型程序、数据库进行结构和功能说明。提示：该决策支持系统需要利用

2、 3 个模型（投入产出模型、线性规划模型和 报表模型（打印投入产出表） ）和两个数据库（投入产出数据库和线性规划 数据库）。在DSS总控程序中要详细说明何时调用哪个模型运行，何时存取 哪个数据库中的数据，何时进行数据计算。该 DSS需要两次调用投入产出模 型：一次计算中间结果，一次计算最后结果。请注意，模型程序应该是一个标准程序，在一定的参数控制下，可得到中间 结果，也可得到最终结果。该模型程序既适合于该问题的DSS也适合于其他问题的DSS不能是一个专用的模型程序。（40分）一、模型1. 投入产出模型：可以确定与的关系,、。2. 线性规划模型：根据约束方程 BXh与目标方程S=E Piyi宀m

3、ax可以 计算出最优的yi。3. 报表模型：根据最终产品Y=(yij) ,X=(xi)是企业总产品自动生成报表。二、数据库1.投入产出数据库字段名数据类型长度是否可为空int8是int8是int8是int8是int8是int16是int16是int16是int16是int16是float16是float16是float16是float16是float16是2. 线性规划数据库字段名数据类型长度是否可为空float8是float8是float8是float8是float8是h1float16是h2float16是h3float16是float16是hifloat16是float16是float1

4、6是float16是float16是float16是三、DSS运行结构图开始投入产出数据库: 直投投入产耗数据库为 直接消耗系数为、亠 调用投入产出模,调用考虑去卡拉型OKT唱歌的时候，是否要等待包间的问题。规定如下属性可调用于描产该领域内的实例:(1) Others调用投入产出模型线性规划数据库： 1（其他地点）:附近是否有其*b卡拉根据是厅式源计消算出（2） WaitCond （等候条件）:供顾客等候的地方是否舒适; 则为用报表模型:用3报表模型$end（周末）：若是周六或周日，调用线性规划模型feers （顾客）：店中有多少顾客（值为型：表模型,Some(些）或Full （满座）;（5）

5、 Price （价格）：价格范围（值为Chee（便宜）二皿电5耳（中等），Expensive （较贵扌报表投入产出数据库： 将计算出的(6)Raining （下雨）：外面是否在下雨;（7）Reservation （预约）：是否预约过；（8） WaitEstimate （等候时间估计）：估计的等候时间（值为 010, 1030, 3060, 60,单位为分钟）训练集见表：实例属性目标OtheWConcWEndConsPricRai nResWEstWillWrseaitX1Y es1No0No0SomeEX-1No0Y es10-10Yes01X2Y es1No0No0FullCH1No0No0

6、30-6No110 -1X3No0Y es1No0SomeCH1No0No00-10Yes01X4Y es1No0Y es1FullCH1Y es1No010-3Yes10 0X5Y es1No0Y es1FullEX-1No0Y es160No1-2X6No0Y es1No0SomeMID0Y es1Y es10-10Yes01X7No0Y es1No0NoneCH1Y es1No00-10No-11X8No0No0No0SomeMID0Y es1Y es10-10Yes01X9No0Y es1Y es1FullCH1Y es1No060No1-2X10Y es1Y es1Y es1Full

7、EX-1No0Y es110-3No10 0X11No0No0No0NoneCH1No0No00-10No-11X12Y es1Y es1Y es1FullCH1No0No030-6Yes10 -1要求：建立BP神经网络模型，并进行容错性分析。（30分）一、 为训练集赋值属性值名属性1值属性2值属性3值属性4值OthersAYes1No0WCo ndBYes1No0WEndCYes1No0ConsDFull1Some0None-1PriceEChea1Midd0Expe nsi-1PleveRai nFYes1No0ResGYes1No0WEstH0-10110-3030-60-160-20W

8、illWa itIYes1No0在Matlab的命令窗口中运行如下代码:p=1 1 0 1 1 0 0 0 0 1 0 1;0 0 1 0 0 1 1 0 1 1 0 1;0 0 0 1 1 0 0 0 1 1 0 1;0 1 0 1 1 0 -1 0 1 1 -1 1;-1 1 1 1 -1 0 1 0 1 -1 1 1;0 0 0 1 0 1 1 1 1 0 0 0;1 0 0 0 1 1 0 1 0 1 0 0;1 -1 1 0 -2 1 1 1 -2 0 1 -1;t=1 0 1 1 0 1 0 1 0 0 0 1;net二n ewff( minm ax(p),15 1,ta nsig

9、,pureli n,trai ncgb);=5;=300;=0.000001;n et,tr=trai n(n et,p,t);得到如下曲线图：容错性分析：实例输入输出WillW结果OtheWCondWEndConsPricRai nResWEstrseaitX11000-10111等X21001100-10不等X3010010011等X4101111001等X51011-101-20不等X6010001111等X7010-111010不等X8000001111等X90111110-20不等X101111-10100不等X11000-110010不等X121111100-11等完成机器学习后，

10、对样本进行改变条件输入，有如下3种情况:（1）缺1个条件的情况（2）缺2个条件的情况（3）介于中间的情况（1）实例输入输出WillWai输出WillWai结果OthWConWEnCoPriRaReWEssnceistt（ 1）t（0）X11100-10110.84560.1526等（ 1）X21011100-10.07230.9281不等（0）X3010110010.86480.1352等（1）X4100111000.86340.1366等（1）X51111-101-20.23140.7686不等（0）X6011000110.91250.0875等（1）X7011-101010.34100.6

11、595不等（0）X8011001110.97140.0286等（1）X90000110-20.49280.5012不一疋X10110010100.56810.4319不一疋X11111-110010.41230.5877不一疋X121100000-10.64280.3572不一疋3、编制旅行商路径优化问题的遗传算法程序，并计算一个实例。（30分）一，问题描述：所谓旅行商问题，即给定几个城市，旅行商从中选择一 条最短的路线，使他能够访问到每个城市一次，然后返回起 占八、,运行结果:三、代码实现下面是程序的主要核心代码:using System;using ;using System.Compon

12、entModel;using System.Data;using System.Drawing;using System.Text;using ;using System.Diagnostics;n amespaceTSPGApublic partial class Form1: Formprivate World _world = new World();public Form1()InitializeComponent();sender,/ 200),private voidpictureBox1_MouseUp( objectMouseEventArgs e)Point point =

13、new Point (e.X / (pictureBox1.Width e.Y / (pictureBox1.Height / 200);if (e.Button = MouseButtons.Left)_world.AddPointNeedToVisit(point); cityNum.Text = _();else_world.StartPoint = point;ReDrawPB();private void Reset_Click( object sender, EventArgs e)_world.Reset();ReDrawPB();private void ReDrawPB()B

14、itmap bm = new Bitmap (pictureBox1.Width, pictureBox1.Height);using ( Graphics g = Graphics .FromImage(bm)int x, y, radix;foreach ( Point point in _world.PointsNeedToVisit)x = point.X * (pictureBox1.Width / 200);y = point.Y * (pictureBox1.Height / 200);radix = 5;g.DrawEllipse( Pens.DarkCyan, new Rec

15、tangle (x - radix, y - radix, 2 * radix, 2 * radix);if (_world.StartPoint !=Point .Empty)x = _world.StartPoint.X * (pictureBox1.Width /200);y =_world.StartPoint.Y * (pictureBox1.Height /200);radix = 5;g.DrawEllipse(Pens.Red, newRectangle (x - radix,y - radix, 2 * radix, 2 * radix);pictureBox1.Image

16、= bm;private void pictureBox1_MouseMove( object sender, MouseEventArgs e)Point point = new Point (e.X / (pictureBox1.Width / 200),e.Y / (pictureBox1.Height / 200);infos1.Text = point.ToString();private void Start_Click( object sender, EventArgs e)_world.Population =Int32 .Parse(population.Text);_wor

17、ld.Generation =Int32 .Parse(generation.Text);_world.CrossOverRateDouble.Parse(crossOverRate.Text);_world.MutationRate =Double.Parse(mutationRate.Text);drawVisitRoute();/_world.Reset();private void drawVisitRoute()ReDrawPB();Bitmap bm = ( Bitmap ();using ( Graphics g = Graphics .FromImage(bm)Point st

18、artPoint = _world.StartPoint;if (startPoint = Point .Empty)MessageBox.Show( You must define a startpoint. );return ;Point pointsNeedToVisit_world.PointsNeedToVisit;Stopwatch sw = new Stopwatch ();sw.Start();int visitRoute = _world.GetVisitRoute();sw.Stop();infos3.Text = Used: + sw.ElapsedMillisecond

19、s + ms. ;List visitPoints =new List ();visitPoints.Add(startPoint);foreach ( int index in visitRoute)visitPoints.Add(pointsNeedToVisitindex);int td = 0;Point tp = visitPoints0;for ( int i = 1; i visitPoints.Count; i+)td += GetManhattanDis(tp, visitPointsi);tp = visitPointsi;totalDis.Text =Total Distace: + td;for ( int i = 0; i visitP