决策支持系统作业最终

决策支持系统导论期末作业姓名：齐鹏学号：日期：2012年7月9日1、设某企业生产多种最终产品丫=（yij），各种产品的单价为Pi,它们的投入产出直接消耗系数为A=（aij），企业的资源（煤、电力、劳力）的约束方程为BXv=>h （“ <=> ”表示<、二、> ），其中，B=（bij）是资源消耗系数矩阵，X=（xi）是企业总产品向量，h是资源约束向量。

为使企业净产值最大，其目标方程S=E Piyi-max，试安排生产计划（求总产品X和最终产品丫）。

请设计该企业的生产计划决策支持系统，画出DSS运行结构图，并对总控程序、模型程序、数据库进行结构和功能说明。

提示：该决策支持系统需要利用 3 个模型（投入产出模型、线性规划模型和报表模型（打印投入产出表））和两个数据库（投入产出数据库和线性规划数据库）。

在DSS总控程序中要详细说明何时调用哪个模型运行，何时存取哪个数据库中的数据，何时进行数据计算。

该DSS需要两次调用投入产出模型：一次计算中间结果，一次计算最后结果。

请注意，模型程序应该是一个标准程序，在一定的参数控制下，可得到中间结果，也可得到最终结果。

该模型程序既适合于该问题的DSS,也适合于其他问题的DSS不能是一个专用的模型程序。

（40 分）、模型1.投入产出模型：可以确定均1与兀的关系，兀三(小一=力)一"。

2.线性规划模型：根据约束方程BXv=>h与目标方程S=E Piyi-max可以计算出最优的yi。

3.报表模型：根据最终产品丫=(yij)，X=(xi)是企业总产品自动生成报表。

二、数据库1.投入产出数据库2.线性规划数据库二、DSS 运行结构图投入产出数据库:」投入产出数据库:调用投入产出模型开始调用投入产出模型Reservation （预约）：是否预约过;（8） WaitEstimate （等候时间估计）：估计的等候时间（值为0—10, 10— 30, 30— 60, >60,单位为分钟）。

训练集见表:实例 属性 目标WillWaitOther WCon WEnd Cons Price Rai n Res WEst2、考虑去卡拉OK 厅唱歌的时候，是否要等待包 调用内的实出模型调用投规定出模型性可用于描述该领 （1） Others （其他地点）：附近是否有其他卡拉 0K 厅;调用报表模型Co nd （等候条件）：供顾客等候的地方是 调用报表模型:否舒适;（3） Weekend （周末）：若是周六或周日根据 X=（xi ），丫=（yij ）编制I（4） Conssumers （顾客）：店中有多少顾客（值为投o 入产没人据库Some（一些）或Full （满显示报表 座））；(5) Price （价格）：价格范围（值为Cheep （便宜），Middle （中等），Expensive （较贵））;(6) Raining （下雨）：外面是否在下雨;??为要求：建立BP神经网络模型，并进行容错性分析。

（30分）为训练集赋值在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(mi nm ax( p),[15 1],{'ta nsig',' pu reli n'},'tra in cgb'); =5;=300;=0.000001;[n et,tr]=trai n(n et, p,t);得到如下曲线图:容错性分析:完成机器学习后，对样本进行改变条件输入，有如下3种情况: 缺1个条件的情况缺2个条件的情况(3) 介于中间的情况(1)3、编制旅行商路径优化问题的遗传算法程序，并计算一个实例。

（30分），问题描述：所谓旅行商问题，即给定几个城市，旅行商从中选择一条最短的路线，使他能够访问到每个城市一次，然后返回起点。

二，运行结果:三、代码实现F面是程序的主要核心代码:using System;usi ng ;using System.Co mponen tModel;using System.Data;using System.Drawing;using System.Text;using ;using System.Diagnostics;namespaceTSPGApublic partial classForm1 : Formprivate World _world = new World();public Form1()InitializeComponent();private void pictureBox1_MouseUpo( bject sender,MouseEventArgse)/ 200));Point point = new Point(e.X / (pictureBox1.Width / 200), e.Y / (pictureBox1.Heightif (e.Button == MouseButtons.Left)else _world.AddPointNeedToVisit(point); cityNum.Text = _();_world.StartPoint = point;ReDrawPB();private void Reset_Clicko( bject sender,EventArgs e) _world.Reset();ReDrawPB();private void ReDrawPB()Bitmap bm = new Bitmap(pictureBox1.Width, pictureBox1.Height);using (Graphicsg = 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 Rectangle(x - radix, y - radix, 2 * radix,2 * radix));}radix)); / 200));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,new Rectangle(x - radix, y - radix, 2 * radix, 2 *pictureBox1.Image = bm;private void pictureBox1_MouseMoveo( bject sender,MouseEventArgse)Point point = new Point(e.X / (pictureBox1.Width / 200), e.Y / (pictureBox1.Height infos1.Text = point.ToString();privatevoid Start_Click(object sender,EventArgs e)_world.Population = Int32.Parse(population.Text);_world.Generation = Int32.Parse(generation.Text);_world.CrossOverRate =Double.Parse(crossOverRate.Text);_world.MutationRate = Double.Parse(mutationRate.Text);drawVisitRoute();//_world.Reset();private void drawVisitRoute()ReDrawPB();Bitmap bm = (Bitmap();using (Graphicsg = Graphics.FromImage(bm)){Point startPoint = _world.StartPoint;if (startPoint == Point.Empty)MessageBo.xShow("You must define a start point.)";return;Point[] pointsNeedToVisit = _world.PointsNeedToVisit;Stopwatchsw = new Stopwatch();sw.Start();int[] visitRoute = _world.GetVisitRoute();sw.Stop();infos3.Text = "Used: " + sw.ElapsedMilliseconds +"ms.";List< Point> visitPoints = new List< Point>();visitPoints.Add(startPoint);foreach (int index in visitRoute)visitPoints.Add(pointsNeedToVisit[index]);int td = 0;Point tp = visitPoints[0];for (int i = 1; i < visitPoints.Count; i++)td += GetManhattanDis(tp, visitPoints[i]);tp = visitPoints[i];totalDis.Text = "Total Distace: " + td;for (int i = 0; i < visitPoints.Count; i++) Point p = new Point();p.X = visitPoints[i].X * pictureBox1.Width / 200;p.Y = visitPoints[i].Y * pictureBox1.Height / 200;visitPoints[i] = p;g.DrawLines(Pens.SeaShell, visitPoints.ToArray());pictureBox1.Image = bm;privatevoid random_Click(object sender,EventArgs e)_world.Reset();Random rnd = new Random();int c = Int32.Parse(cityNum.Text);_world.StartPoint = new Point(rnd.Next(0, 200), rnd.Next(0, 200));for (int i = 0; i < c; i++){} }_world.AddPointNeedToVisit(new Point(rnd.Next(0, 200), rnd.Next(0, 200)));ReDrawPB();privatestaticint GetManhattanDis(Point p1, Point p2)return Math.Abs(p1.X - p2.X) + Math.Abs(p1.Y - p2.Y);。