价格优化决策报告1.docx
《价格优化决策报告1.docx》由会员分享，可在线阅读，更多相关《价格优化决策报告1.docx（22页珍藏版）》请在冰豆网上搜索。
价格优化决策报告1
实验课程名称：
决策支持系统
实验项目名称
企业决策支持系统的系统分析
实验者
专业班级
同组者
实验日期
一、实验目的、意义
理解科学决策的过程和方法，并运用系统分析工具正确描述决策过程，建立决策支持系统的逻辑模型。
二、实验基本原理与方法
运用系统分析的方法分析现代企业的科学决策过程，并结合企业决策的实际，掌握决策模型的具体应用。
三、实验内容及要求
以现代企业为对象，选定决策支持主题（如：
市场预测、销售、生产、采购、预算等），分析决策支持系统的决策过程、系统结构；建立抽象决策问题的决策模型并加以描述，分析决策模型的运行机制和逻辑流程。
四、实验原始记录（可附加页）
（程序设计类实验：
包括原程序、输入数据、运行结果、实验过程发现的问题及解决方法等；
分析与设计、软件工程类实验：
编制分析与设计报告，要求用标准的绘图工具绘制文档中的图表。
系统实施部分要求记录核心处理的方法、技巧或程序段；
其它实验：
记录实验输入数据、处理模型、输出数据及结果分析）
选题：
价格优化决策支持系统
在现代竞争日益激烈的市场上，企业为了促进产品销售、扩大市场占有率，在分析市场销售形势、消费者爱好及收入等情况变化后，总要制定、实施一定的经营战略和销售策略，这些经营战略和销售策略可具体地表现为对市场促销手段的运用。
企业用于促进产品市场销售的主要手段可归结为产品销售价格，广告费用的投入，产品质量水品和销售网点数量等，企业就应就这些促销手段的引用作出决策，而销售价格是诸促销手段中影响产品市场销售最敏感，最重要的因素，价格决策的正确与否对企业经营决策的成败起着重要的作用。
1价格决策的步骤
价格决策是指企业根据市场条件和自身条件，对产品定价方案选择，优化的过程
1.1制定目标
企业必须决定，通过定价给特定的产品达到什么样的定价目标。
一般情况下，企业通过定价来追求的目标主要有四个：
生存目标，当期利润最大化目标，市场份额领先地位目标和产品质量领先地位目标。
1.2确定需求
企业就必须你和相应的需求曲线，分析产品的需求价格弹性，预测产品的需求量。
1.3估计成本
产品成本是企业定价的基础。
通常，估计产品成本有两种方式：
一是根据产品的构成原理及生产工艺指标等要求，分别计算出产品的材料成本，加工成本及分摊到的销售，研发和管理等固定成本；二是根据同类产品过去经营周期实际发生的各项成本费用数据，结合各影响因素的变化趋势，在估算出产品的各项成本费用。
一般而言，企业的产品成本应是产品价格的底数。
1.4分析竞争企业
在竞争市场上，竞争企业为促进产品销售，扩大市场占有也会制定一定的经营战略和销售策略，也会强化促销手段的运用。
因此，企业在制定价格是，必须要分析竞争企业的生产经营状况和促销手段的运用，作为一个参考依据。
1.5确定定价策略
确定定价策略的目的是为了实现企业目标。
为同样的企业目标，可以有不同的定价策略。
1.6选择定价方法
定价策略确定后，即可选用不同的方法进行企业产品的价格策略。
价格决策的方法很多，是企业通过长期的经营实践而形成的，能够适应不同市场状况，企业状况，竞争状况，社会需求的定价技术和计算方法，主要有成本导向定价法，需求导向定价法和竞争导向定价法等。
1.7选定最终价格
实际定价时，企业往往运用一定的定价方法，缩小从中选定的价格范围。
但在选择最终价格时，企业还须在更大范围内考虑相关的制约因素。
2价格决策方法
在企业的三种定价导向中，成本导向定价法主要包括成本加成的定价法、盈亏平衡定价法和目标预期贡献定价法；需求导向定价法主要包括需求函数定价法、需求差异定价法和认知价值定价法；竞争导向定价法则主要包括随行就市定价法和密封投标定价法等等。
下面介绍几种常见的价格决策方法：
2.1成本加成法
成本加成法主要是以产品成本为基数，再加上一定比例盈利来制定销售价格的方法。
它是用产品的可变成本加上单位产品的固定成本及产品盈利来构成产品价格。
多用于中间商和零售商的价格制定。
成本计算公式：
P=（F+VC+Z）/Q
式中：
p——产品价格
F——固定费用总额
VC——单位可变费用
Q——预期的销售量
Z——期望销售盈利
Y——成本利税（润）率
2.2量本利分析法
量本利分析法是通过产品价格、预期销售量、固定成本及变动成本之间的函数关系，求得盈亏平衡点上的保本价格，因此又称为盈亏平衡定价法。
保本价格公式为：
P*=V+F/Q
P*——保本价格
V——单位可变费用
F——固定费用总额
Q——预期的销售量
2.3目标预期定价法
所谓目标与其定价法，是根据估计的预期总销售收入和估计的预期销售量本制定价格的一种方法。
2.4需求差异定价法
消费者需求存在着普遍的差异，根据这种差异而产生的定价方法。
2.5认知价值定价法
所谓认知价值定价法，就是企业根据消费者对产品的认知价值来制定价格的一种方法，认知价值与现代市场定位观念相一致。
认知价值定价法的核心是掌握消费者对商品价格（价值）的主观判断。
2.6随行就市定价法
所谓随行就市定价法，是指企业按照行业的平均现行价格水平来定价。
3价格优化决策
需求曲线是分析产品价格和需求量之间的关系的十分有用的工具，运用需求曲线，还可以非常有效地进行产品价格的优化决策，产品价格优化决策原理：
3.1需求曲线拟合
形成需求曲线的价格和需求量之间的关系成反比例关系，通常分为曲线型和直线型两种不同类型。
对不同类型的需求曲线，在收集到一组不同的价格与销售量数据后，可选用不用的函数形式进行拟合，常用的用以你和需求曲线的函数形式有：
线性函数，高次方程和指数函数等。
3.1.1线性函数表达式
Q=a+b*P
式中：
Q——需求量
P——销售价格
a、b——待定系数
3.1.2高次方程的表达式
3.1.3指数函数的表达式形式为：
这三个公式中a,b皆为待定常数，可用最小二乘法来确定，其中第三个公式可以编成线性方便解决。
3.2最大销售收入的价格决策
L=P
Q
=0
3.3最大销售利润的价格决策
R=L-CC=F+V
QR
=0
4本系统模型
价格优化决策，假设需求拟合曲线为线性，对最大销售利润两个预期目标定价。
Q=aP+b
用最小二乘法确定系数a、b
保证Z=
最小即可求出Z的一介导为零（n为样本个数）
得到
a=
b=
然后再利用上面的决策公式进行计算，得到需求拟合曲线。
便可进行决策：
4.1最大销售利润
R=L-CC=F+V
QR
=0
R
=2aP+b-Va=0MC=VaMR=2ap+b
当MC=MR时，利润最大（V变动成本已知）
P=
Q=0.5aVP+0.5b
L=P
Q=
+b
P
R=L-C
由上可以确定销售单价，销售量，销售额，销售利润
操作流程：
业务流程：
五、实验报告评语及成绩（请按优，良，中，及格，不及格五级评定）
成绩：
教师签字：
实验课程名称：
决策支持系统
实验项目名称
企业决策支持系统的系统设计
实验者
专业班级
同组者
实验日期
一、实验目的、意义
设计决策支持系统的功能结构、数据库、人机界面和决策模型。
二、实验基本原理与方法
运用系统设计的方法，设计决策支持系统的功能层次结构和决策模型的处理流程；运用数据库理论设计决策支持系统的数据库结构。
三、实验内容及要求
在系统分析的基础上，确立系统运行的软硬件环境，重点设计数据库、人机界面和模型的实现步骤。
四、实验原始记录（可附加页）
（程序设计类实验：
包括原程序、输入数据、运行结果、实验过程发现的问题及解决方法等；
分析与设计、软件工程类实验：
编制分析与设计报告，要求用标准的绘图工具绘制文档中的图表。
系统实施部分要求记录核心处理的方法、技巧或程序段；
其它实验：
记录实验输入数据、处理模型、输出数据及结果分析）
1.系统运行软硬件环境
前台设计工具：
Delphi7.0
后台数据库：
Microsoftofficeaccess2007
开发环境：
硬件环境：
PC电脑
软件环境：
（见下图）
服务器
操作系统
WINDOWSXP
应用程序
Microsoftofficeaccess2007
客户端
操作系统
WINDOWSXP
应用程序
Delphi7.0
2.主要功能及说明
抽样一定（相同）时期的销售记录，通过需拟合曲线和最小二乘法来决策该时期的分别在最大利润目标下和最大收入目标下的的销售单价，销售额，销售量，总利润。
以供下期价格决策参考。
2.1输入模块
运行时显示数据库中已有数据，在决策之前先点清空按钮，将数据库清空，进行新一轮决策操作，然后依次填入所要决策的数据组，每输入一次点击确定，即可将数据录入数据库并显示出来
运行时显示数据库中已有数据，待输入操作完成后，填入固定成本和单位可变成本，点击决策按钮即可计算出总销售额、总成本、平均单位成本、总利润录入数据库并得出最优价格决策结果然后显示出来
3.数据库设计
数据库设计如下：
销售记录表
4人机界面的设计
各决策模块如下：
最大利润和最大收入用的同是拟合需求曲线和最小二乘法，把他们集成在一个用户界面，方便对比分析。
单位可变成本和固定成本可以根据具体情况自己输入，在左边的DBgrid显示样本的所有记录，右边显示经过计算的相关数据，右下则是分别在最大利润的目标情况下的单价，销售量，销售额和总利润。
实验课程名称：
决策支持系统
实验项目名称
企业决策支持系统的实现及演示
实验者
专业班级
同组者
实验日期
一、实验目的、意义
熟悉开发企业决策支持系统的具体开发过程，掌握开发工具，提高系统开发的能力。
二、实验基本原理与方法
运用开发工具（如：
VisualBasic、Dephi、Powerbuilder、C#等）和数据库管理系统（Access、SQLServer等）开发企业决策支持系统，并对系统进行调试和试运行。
三、实验内容及要求
自选开发工具和数据库管理系统，开发出企业决策支持系统，并对系统进行调试和试运行；最后进行演示和答辩。
四、实验原始记录（可附加页）
（程序设计类实验：
包括原程序、输入数据、运行结果、实验过程发现的问题及解决方法等；
分析与设计、软件工程类实验：
编制分析与设计报告，要求用标准的绘图工具绘制文档中的图表。
系统实施部分要求记录核心处理的方法、技巧或程序段；
其它实验：
记录实验输入数据、处理模型、输出数据及结果分析）
决策系统的部分源代码：
unitjgyh;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,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;
Label3:
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:
TADODataSet;
btn3:
TButton;
ads2:
TADODataSet;
aq3:
TADOQuery;
procedurebtn1Click（Sender:
TObject）;
procedurebtn3Click（Sender:
TObject）;
procedureFormActivate（Sender:
TObject）;
procedurebtn2Click（Sender:
TObject）;
procedureEdit9KeyDown（Sender:
TObject;varKey:
Word;
Shift:
TShiftState）;
procedureEdit1KeyDown（Sender:
TObject;varKey:
Word;
Shift:
TShiftState）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
fmjgyh:
Tfmjgyh;
implementation
{$R*.dfm}
procedureTfmjgyh.btn1Click（Sender:
TObject）;
varp,q,no:
string;
n1,n2,n3,n4,n5,n6,n7:
string;
begin
withaq1do
begin
close;
sql.clear;
sql.add（'insertintoputinvalues（:
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*fromputin';
ads1.filtered:
=true;
ads1.open;
end;
withaq2do
begin
close;
sql.clear;
sql.add（'insertintoputoutvalues（:
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:
=trim（'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;
procedureTfmjgyh.btn3Click（Sender:
TObject）;
begin
withaq1do
begin
close;
sql.clear;
sql.add（'delete*fromputin'）;
execsql;
end;
withaq2do
begin
close;
sql.clear;
sql.add（'delete*fromputout'）;
execsql;
end;
begin
ads1.close;
mandtext:
='select*fromputin';
ads1.filtered:
=true;
ads1.open;
end;
begin
ads2.close;
mandtext:
='select*fromputout';
ads2.filtered:
=true;
ads2.open;
end;
edit1.Text:
='';
edit2.Text:
='';
edit9.Text:
='';
edit9.SetFocus;
end;
procedureTfmjgyh.FormActivate（Sender:
TObject）;
begin
edit9.SetFocus;
end;
procedureTfmjgyh.btn2Click（Sender:
TObject）;
var
a,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,ps,cs,ds,rs:
double;//边际成本可变成本，固定成本，总利润，单价，销售量，销售收入
若未输入成本，则弹出提示框如下图
begin
if（edit3.Text=''）OR（edit4.Text=''）then
showmessage（'成本不能为空'）
else
begin
//求平均价格和销售量
withaq1do
begin
sql.Clear;
c:
=0;d:
=0;n:
=0;
AverageP:
=0;AverageQ:
=0;
close;
SQL.Text:
='select*fromputin';
open;
whilenoteofdo
begin
n:
=n+1;
c:
=c+fieldbyname（'预测销售'）.AsFloat;
d:
=d+fieldbyname（'价格'）.AsFloat;
next;
end;
ifn>0then
begin
AverageP:
=d/n;//求平均价格
AverageQ:
=c/n;//求平均销售量
end;
end;
//求Q=ap+b拟合需求曲线，a和b
ifn>0then
begin
withaq1do
begin
sql.Clear;
e:
=0;f:
=0;
a:
=0;b:
=0;
close;
SQL.Text:
='select价格,预测销售fromputin';
open;
whilenoteofdo
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-VC*Q-FC;
R:
=FC+VC*Q;
EDIT8.Text:
=floattostr（AR）;
edit5.Text:
=floattostr（P）;
edit6.Text:
=floattostr（Q）;
edit7.Text:
=floattostr（R）;
end;
计算成功后，最优价格决策结果如上图所示
//录入销售价格，销售量，总销售额，总成本，平均单位成本，产品总利润
withaq2do
begin
sql.Clear;
ls:
=0;cs:
=0;
ps:
=0;qs:
=0;
ds:
=0;rs:
=0;
close;
SQL.Text:
='select*fromputout';
open;
whilenoteofdo
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（ds）;
rm:
=floattostr（rs）;
aq3.sql.Clear;
aq3.close;
aq3.SQL.Text:
='Updateputoutset总销售额L='''+lm+''''+',总成本C='''+cm+''''+',平均单位成本d='''+dm+''''+',产品总利润R='''+rm+''''+'where编号='''+nos+'''';
aq3.ExecSQL;
next;
end;
end;
end;
begin
ads2.close;
mandtext:
='select*fromputout';
ads2.filtered:
=true;
ads2.open;
end;
end;
procedureTfmjgyh.Edit9KeyDown（Sender:
TObject;varKey:
Word;
Shift:
TShiftState）;
begin
if（（Key=VK_RETURN）or（Key=VK_DOWN））then
Edit1.SetFocus;//当按下回车键或向下箭头时，使edit1获得焦点
end;
升级会员 