价格优化决策报告1.docx

1、价格优化决策报告1实验课程名称： 决策支持系统 实验项目名称企业决策支持系统的系统分析实验者专业班级同组者实验日期一、 实验目的、意义理解科学决策的过程和方法，并运用系统分析工具正确描述决策过程，建立决策支持系统的逻辑模型。二、 实验基本原理与方法运用系统分析的方法分析现代企业的科学决策过程，并结合企业决策的实际，掌握决策模型的具体应用。三、 实验内容及要求以现代企业为对象，选定决策支持主题（如：市场预测、销售、生产、采购、预算等），分析决策支持系统的决策过程、系统结构；建立抽象决策问题的决策模型并加以描述，分析决策模型的运行机制和逻辑流程。四、 实验原始记录（可附加页）（程序设计类实验：包括

2、原程序、输入数据、运行结果、实验过程发现的问题及解决方法等；分析与设计、软件工程类实验：编制分析与设计报告，要求用标准的绘图工具绘制文档中的图表。系统实施部分要求记录核心处理的方法、技巧或程序段；其它实验：记录实验输入数据、处理模型、输出数据及结果分析）选题：价格优化决策支持系统 在现代竞争日益激烈的市场上，企业为了促进产品销售、扩大市场占有率，在分析市场销售形势、消费者爱好及收入等情况变化后，总要制定、实施一定的经营战略和销售策略，这些经营战略和销售策略可具体地表现为对市场促销手段的运用。企业用于促进产品市场销售的主要手段可归结为产品销售价格，广告费用的投入，产品质量水品和销售网点数量等，企

3、业就应就这些促销手段的引用作出决策，而销售价格是诸促销手段中影响产品市场销售最敏感，最重要的因素，价格决策的正确与否对企业经营决策的成败起着重要的作用。1 价格决策的步骤 价格决策是指企业根据市场条件和自身条件，对产品定价方案选择，优化的过程1.1 制定目标企业必须决定，通过定价给特定的产品达到什么样的定价目标。一般情况下，企业通过定价来追求的目标主要有四个：生存目标，当期利润最大化目标，市场份额领先地位目标和产品质量领先地位目标。1.2 确定需求企业就必须你和相应的需求曲线，分析产品的需求价格弹性，预测产品的需求量。1.3 估计成本产品成本是企业定价的基础。通常，估计产品成本有两种方式：一是

4、根据产品的构成原理及生产工艺指标等要求，分别计算出产品的材料成本，加工成本及分摊到的销售，研发和管理等固定成本；二是根据同类产品过去经营周期实际发生的各项成本费用数据，结合各影响因素的变化趋势，在估算出产品的各项成本费用。一般而言，企业的产品成本应是产品价格的底数。1.4 分析竞争企业在竞争市场上，竞争企业为促进产品销售，扩大市场占有也会制定一定的经营战略和销售策略，也会强化促销手段的运用。因此，企业在制定价格是，必须要分析竞争企业的生产经营状况和促销手段的运用，作为一个参考依据。1.5 确定定价策略确定定价策略的目的是为了实现企业目标。为同样的企业目标，可以有不同的定价策略。1.6 选择定价

5、方法定价策略确定后，即可选用不同的方法进行企业产品的价格策略。价格决策的方法很多，是企业通过长期的经营实践而形成的，能够适应不同市场状况，企业状况，竞争状况，社会需求的定价技术和计算方法，主要有成本导向定价法，需求导向定价法和竞争导向定价法等。1.7 选定最终价格实际定价时，企业往往运用一定的定价方法，缩小从中选定的价格范围。但在选择最终价格时，企业还须在更大范围内考虑相关的制约因素。2价格决策方法 在企业的三种定价导向中，成本导向定价法主要包括成本加成的定价法、盈亏平衡定价法和目标预期贡献定价法；需求导向定价法主要包括需求函数定价法、需求差异定价法和认知价值定价法；竞争导向定价法则主要包括随

6、行就市定价法和密封投标定价法等等。下面介绍几种常见的价格决策方法：2.1成本加成法 成本加成法主要是以产品成本为基数，再加上一定比例盈利来制定销售价格的方法。它是用产品的可变成本加上单位产品的固定成本及产品盈利来构成产品价格。多用于中间商和零售商的价格制定。成本计算公式：P=（F+VC+Z）/Q式中：p产品价格 F固定费用总额 VC单位可变费用 Q预期的销售量 Z期望销售盈利Y成本利税（润）率2.2 量本利分析法 量本利分析法是通过产品价格、预期销售量、固定成本及变动成本之间的函数关系，求得盈亏平衡点上的保本价格，因此又称为盈亏平衡定价法。保本价格公式为：P*=V+F/QP*保本价格 V单位可

7、变费用 F固定费用总额 Q预期的销售量 2.3目标预期定价法 所谓目标与其定价法，是根据估计的预期总销售收入和估计的预期销售量本制定价格的一种方法。 2.4需求差异定价法消费者需求存在着普遍的差异，根据这种差异而产生的定价方法。2.5认知价值定价法所谓认知价值定价法，就是企业根据消费者对产品的认知价值来制定价格的一种方法，认知价值与现代市场定位观念相一致。认知价值定价法的核心是掌握消费者对商品价格（价值）的主观判断。2.6随行就市定价法所谓随行就市定价法，是指企业按照行业的平均现行价格水平来定价。3 价格优化决策 需求曲线是分析产品价格和需求量之间的关系的十分有用的工具，运用需求曲线，还可以非

8、常有效地进行产品价格的优化决策，产品价格优化决策原理：3.1需求曲线拟合形成需求曲线的价格和需求量之间的关系成反比例关系，通常分为曲线型和直线型两种不同类型。对不同类型的需求曲线，在收集到一组不同的价格与销售量数据后，可选用不用的函数形式进行拟合，常用的用以你和需求曲线的函数形式有：线性函数，高次方程和指数函数等。3.1.1线性函数表达式Q=a+b*P式中：Q需求量 P销售价格 a、b待定系数3.1.2高次方程的表达式 3.1.3指数函数的表达式形式为：这三个公式中a,b皆为待定常数，可用最小二乘法来确定，其中第三个公式可以编成线性方便解决。3.2最大销售收入的价格决策L=PQ =03.3最大

9、销售利润的价格决策 R=L-C C=F+VQ R=04 本系统模型 价格优化决策，假设需求拟合曲线为线性，对最大销售利润两个预期目标定价。Q=aP+b用最小二乘法确定系数a、b 保证Z=最小即可求出Z的一介导为零（n为样本个数）得到a= b=然后再利用上面的决策公式进行计算，得到需求拟合曲线。便可进行决策： 4.1 最大销售利润 R=L-C C=F+VQ R=0 R=2aP+b-Va=0 MC=Va MR=2ap+b当MC=MR时，利润最大 （V变动成本已知）P= Q=0.5aVP+0.5b L=PQ=+bPR=L-C由上可以确定销售单价，销售量，销售额，销售利润操作流程：业务流程：五、实验报

10、告评语及成绩（请按优，良，中，及格，不及格五级评定） 成绩： 教师签字：实验课程名称： 决策支持系统 实验项目名称企业决策支持系统的系统设计实验者专业班级同组者实验日期一、实验目的、意义设计决策支持系统的功能结构、数据库、人机界面和决策模型。二、实验基本原理与方法运用系统设计的方法，设计决策支持系统的功能层次结构和决策模型的处理流程；运用数据库理论设计决策支持系统的数据库结构。三、实验内容及要求在系统分析的基础上，确立系统运行的软硬件环境，重点设计数据库、人机界面和模型的实现步骤。四、实验原始记录（可附加页）（程序设计类实验：包括原程序、输入数据、运行结果、实验过程发现的问题及解决方法等；分析

11、与设计、软件工程类实验：编制分析与设计报告，要求用标准的绘图工具绘制文档中的图表。系统实施部分要求记录核心处理的方法、技巧或程序段；其它实验：记录实验输入数据、处理模型、输出数据及结果分析）1.系统运行软硬件环境前台设计工具：Delphi7.0后台数据库： Microsoft office access 2007开发环境：硬件环境：PC电脑软件环境：（见下图）服务器操作系统WINDOWS XP应用程序Microsoft office access 2007客户端操作系统WINDOWS XP应用程序Delphi7.02.主要功能及说明 抽样一定（相同）时期的销售记录，通过需拟合曲线和最小二乘法来

12、决策该时期的分别在最大利润目标下和最大收入目标下的的销售单价，销售额，销售量，总利润。以供下期价格决策参考。2.1输入模块运行时显示数据库中已有数据，在决策之前先点清空按钮，将数据库清空，进行新一轮决策操作，然后依次填入所要决策的数据组，每输入一次点击确定，即可将数据录入数据库并显示出来运行时显示数据库中已有数据，待输入操作完成后，填入固定成本和单位可变成本，点击决策按钮即可计算出总销售额、总成本、平均单位成本、总利润录入数据库并得出最优价格决策结果然后显示出来3.数据库设计数据库设计如下：销售记录表4 人机界面的设计各决策模块如下：最大利润和最大收入用的同是拟合需求曲线和最小二乘法，把他们集

13、成在一个用户界面，方便对比分析。单位可变成本和固定成本可以根据具体情况自己输入，在左边的DBgrid显示样本的所有记录，右边显示经过计算的相关数据，右下则是分别在最大利润的目标情况下的单价，销售量，销售额和总利润。实验课程名称： 决策支持系统 实验项目名称企业决策支持系统的实现及演示实验者专业班级同组者实验日期一、 实验目的、意义熟悉开发企业决策支持系统的具体开发过程，掌握开发工具，提高系统开发的能力。二、 实验基本原理与方法运用开发工具（如：Visual Basic、Dephi、Powerbuilder、C#等）和数据库管理系统（Access、SQL Server等）开发企业决策支持系统，并

14、对系统进行调试和试运行。三、 实验内容及要求自选开发工具和数据库管理系统，开发出企业决策支持系统，并对系统进行调试和试运行；最后进行演示和答辩。四、 实验原始记录（可附加页）（程序设计类实验：包括原程序、输入数据、运行结果、实验过程发现的问题及解决方法等；分析与设计、软件工程类实验：编制分析与设计报告，要求用标准的绘图工具绘制文档中的图表。系统实施部分要求记录核心处理的方法、技巧或程序段；其它实验：记录实验输入数据、处理模型、输出数据及结果分析）决策系统的部分源代码：unit jgyh;interfaceuses Windows, Messages, SysUtils, Variants, C

15、lasses, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls;type Tfmjgyh = class(TForm) Panel1: TPanel; Panel2: TPanel; dbg1: TDBGrid; ds1: TDataSource; connect: TADOConnection; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; btn1: TButton; dbg2: TDBGrid; La

16、bel3: TLabel; Label4: TLabel; Edit3: TEdit; Edit4: TEdit; GroupBox1: TGroupBox; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; btn2: TButton; Label7: TLabel; Edit7: TEdit; Label8: TLabel; Edit8: TEdit; ds2: TDataSource; aq1: TADOQuery; aq2: TADOQuery; Label9: TLabel; Edit9: TEdit; ads1:

17、 TADODataSet; btn3: TButton; ads2: TADODataSet; aq3: TADOQuery; procedure btn1Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure btn2Click(Sender: TObject); procedure Edit9KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); proce

18、dure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private Private declarations public Public declarations end;var fmjgyh: Tfmjgyh;implementation$R *.dfmprocedure Tfmjgyh.btn1Click(Sender: TObject); var p,q,no:string; n1,n2,n3,n4,n5,n6,n7:string;begin with aq1 do begin close; sql

19、.clear; sql.add(insert into putin values(:no,:p,:q); parameters.parambyname(no).value:=trim(edit9.Text); parameters.parambyname(p).value:=trim(edit1.Text); parameters.parambyname(q).value:=trim(edit2.Text); execsql; end; begin ads1.close; mandtext:=select * from putin; ads1.filtered:=true; ads1.open

20、; end; with aq2 do begin close; sql.clear; sql.add(insert into putout values(:n1,:n2,:n3,:n4,:n5,:n6,:n7); parameters.parambyname(n1).value:=trim(edit9.Text); parameters.parambyname(n2).value:=trim(edit1.Text); parameters.parambyname(n3).value:=trim(edit2.Text); parameters.parambyname(n4).value:=tri

21、m(0); parameters.parambyname(n5).value:=trim(0); parameters.parambyname(n6).value:=trim(0); parameters.parambyname(n7).value:=trim(0); execsql; end; edit1.Text:=; edit2.Text:=; edit9.Text:=; edit9.SetFocus;end;procedure Tfmjgyh.btn3Click(Sender: TObject);begin with aq1 do begin close; sql.clear; sql

22、.add(delete * from putin); execsql; end; with aq2 do begin close; sql.clear; sql.add(delete * from putout); execsql; end; begin ads1.close; mandtext:=select * from putin; ads1.filtered:=true; ads1.open; end; begin ads2.close; mandtext:=select * from putout; ads2.filtered:=true; ads2.open; end; edit1

23、.Text:=; edit2.Text:=; edit9.Text:=; edit9.SetFocus;end;procedure Tfmjgyh.FormActivate(Sender: TObject);begin edit9.SetFocus;end;procedure Tfmjgyh.btn2Click(Sender: TObject);vara,b,c,d,e,f,AverageP,AverageQ:double; /Q=ap+b;其它变量无实际意思，为过度n:integer;qm,pm,lm,cm,rm,dm,nos:string;MC,VC,FC,AR,P,Q,L,R,qs,ls

24、,ps,cs,ds,rs:double;/边际成本 可变成本，固定成本，总利润，单价，销售量，销售收入若未输入成本，则弹出提示框如下图begin if (edit3.Text=) OR (edit4.Text=) then showmessage(成本不能为空) else begin /求平均价格和销售量 with aq1 do begin sql.Clear ; c:=0;d:=0;n:=0; AverageP:=0;AverageQ:=0; close; SQL.Text:=select * from putin; open; while not eof do begin n:=n+1;

25、c:=c+fieldbyname(预测销售).AsFloat ; d:=d+fieldbyname(价格).AsFloat; next; end; if n0 then begin AverageP:=d/n; /求平均价格 AverageQ:=c/n; /求平均销售量 end; end; /求Q=ap+b拟合需求曲线，a和b if n0 then begin with aq1 do begin sql.Clear ; e:=0;f:=0; a:=0;b:=0; close; SQL.Text:=select 价格,预测销售 from putin ; open; while not eof d

26、o begin e:=e+(fieldbyname(预测销售).AsFloat-AverageQ)*(fieldbyname(价格).AsFloat-AverageP); f:=f+Sqr(fieldbyname(价格).AsFloat-AverageP); next; end; end; a:=e/f; b:=AverageQ-a*AverageP; VC:=strtofloat(edit4.Text); /求利润最高时价格P FC:=strtofloat(edit3.Text); MC:=VC*a; P:=(MC-b)/(2*a) ; Q:=(b+a*p); L:=P*Q; AR:=L-V

27、C*Q-FC; R:=FC+VC*Q; EDIT8.Text:=floattostr(AR); edit5.Text:=floattostr(P); edit6.Text:=floattostr(Q); edit7.Text:=floattostr(R); end;计算成功后，最优价格决策结果如上图所示 /录入销售价格，销售量，总销售额，总成本，平均单位成本，产品总利润 with aq2 do begin sql.Clear ; ls:=0;cs:=0; ps:=0;qs:=0; ds:=0;rs:=0; close; SQL.Text:=select * from putout; open;

28、 while not eof do begin nos:=fieldbyname(编号).AsString; qs:=fieldbyname(销售量Q).Asfloat; ps:=fieldbyname(销售价格P).AsFloat; ls:=ps*qs; cs:=qs*strtofloat(edit4.Text)+strtofloat(edit3.Text); ds:=cs/qs; rs:=ls-cs; qm:=floattostr(qs); pm:=floattostr(ps); lm:=floattostr(ls); cm:=floattostr(cs); dm:=floattostr(

29、ds); rm:=floattostr(rs); aq3.sql.Clear; aq3.close; aq3.SQL.Text:=Update putout set 总销售额L=+ lm+ +,总成本C=+ cm+ +,平均单位成本d=+ dm+ +,产品总利润R=+ rm+ +where 编号=+nos+; aq3.ExecSQL; next; end; end; end; begin ads2.close; mandtext:=select * from putout; ads2.filtered:=true; ads2.open; end;end;procedure Tfmjgyh.Edit9KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if(Key=VK_RETURN)or(Key=VK_DOWN) then Edit1.SetFocus; /当按下回车键或向下箭头时，使edit1获得焦点end;