石油经销商决策问题（dtree6）
/**************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*姓名：DTREE6*//*标题：石油经销商的决策问题（dtree6）*//*产品：或*//*系统：所有*//*键：或图形图案符号*//*过程：DTREE打印GPLOT*//*数据：*//* *//*支持：更新：*//*参考：DTREE章节中的示例6*//*其他：*//* *//**************************************************************/goptions hpos=80 vpos=32；goptions cback=ligr ctext=黑色；/*--创建STAGEIN=数据集--*/数据阶段7；格式_OUTCOM1$14_结果2$14；输入_STNAME_$_STTYPE_$_OUTCOM1$_成功1$_OUTCOM2$_SUCC2$；数据线；操作D调用响应Not_Invoking。响应C接受。拒绝诉讼诉讼C新闻发布。解决。. . Sue Last。过去C 3_年结果4_年结果. . 5年结果。结果C无损坏。正常_损坏。. . 双重损坏（_D）。;/*--创建PROBIN=数据集--*/数据Prob7；格式_EVENT1__EVENT2_$14。；输入_EVENT1_$_PROB1__EVENT2_$_PPROB2_；数据线；接受0.1拒绝0.9新闻发布0.1结算0.45苏0.45。3年0.3 4年0.45_ 0.3岁。无损坏0.15正常损坏0.65双_损坏0.20。;/*--创建PAYOFFS=数据集--*/数据收益7（下降=i j k D PCOST）；长度_动作_状态1-状态4$16；/*最后一个案例的可能结果*/数组YEARS{3}$16_临时_（'3_年'，“4_年”，“5_年”）；/*案例最后的数值*/数组Y{3}_TEMPORARY_（3,4,5）；/*判断大小的可能结果*/数组伤害{3}$16_临时_（“无损坏”，'正常_损坏'，“双重损坏”）；/*判断大小的数值*/数组C{3}_TEMPORARY_（015003000）；D=0.1；/*贴现率*//*方案的回报*//*未调用10%子句*/_ACTION_='Not_Invoking'_值=-450；产出；/*子句被调用*/_ACTION_=“邀请”；/*该子句为的场景的回报*//*调用，客户接受*//*调用*/_STATE1=“接受”_值=600；产出；/*客户拒绝调用*/_STATE1=“拒绝”；/*该子句为的场景的回报*//*调用，客户拒绝*//*请求但拒绝提出问题*/_STATE2='新闻发布'_值=500；产出；/*该条款为的情形的报酬*//*调用，客户拒绝*//*恳求但愿意解决*//*900公里赛场*/_STATE2=“结算”_值=500-900；产出；/*客户将要求赔偿损失*/_STATE2=“苏”；do i=1到3；_STATE3=年份｛i｝；/*确定诉讼费用*/PCOST=30；/*诉讼的初始费用*//*每年的额外费用*//*按现值计算*/做k=1到Y{i}；PCOST=PCOST+（20/（（1+D）**k））；结束；/*所有位置的循环。诉讼结果的*/do j=1至3；_状态4=损坏{j}；/*损失必须赔偿*//*以现值计算净收益*/_价值=500-成本-（C{j}/（（1+D）**Y{i}））；/*输出对收益的观察*//*此场景的*/产出；结束；结束；运行；/*--打印付款表--*/标题“石油经销商的决定”；title3“回报表”；程序打印；运行；/*--定义图形选项--*/goptions颜色=（绿色-红色-蓝色）；goptions hsize=8英寸vsize=8.4英寸；/*--定义标题--*/title h=2.5“石油经销商的决定”；/*--PROC DTREE语句--*/proc dtree stagein=第7阶段probin=Prob7支付=支付7；评估/总结；树状图/图形压缩nolg name=“dt6p1”ftext=“Numberland AMT”ybetween=1 cell lwidth=2 lwidthb=3 hsymbol=3；退出；/*--为决策图创建数据集--*/数据数据7（drop=i）；P=0.0；/*初始化P*//*P的所有可能值的循环*/do i=1到21；/*确定相应的Q*/Q=（86-（1136*P））/（1036*（1.0-P））；如果Q<0.0，则Q=0.0；/*输出此数据点*/产出；/*设置下一个可能的P值*/P=P+0.005；结束；运行；/*为标签创建ANNOTATE=数据集*//*决策图*/数据标签；长度功能风格颜色$8；长度XSYS YSYS$1；位置$1时的长度；长度X Y 8；长度尺寸旋转8；WHEN=“A”；位置=“0”；XSYS='2'；YSYS='2'；输入功能$X Y样式$SIZE颜色$旋转文本$&16。；数据线；标签0.01 0.04 centx 2黑色。不要标签0.01 0.03 centx 2黑色。援引标签0.01 0.02 centx 2黑色。本条款标签0.06 0.06 centx 2黑色。调用标签0.06 0.05 centx 2黑色。条款;/*--定义边界的符号特征--*/符号1 i=接头v=无l=1 ci=黑色；/*--定义区域填充模式--*/pattern1值=msolid颜色=青色；pattern2值=msolid颜色=绿色；/*--定义轴特征--*/axis1 label=（'Pr（接受调用）'）顺序=（0至0.1乘以0.01）次要=无；axis2标签=（角度=90’Pr（按下问题）’）阶数=（0到0.1乘0.01）minor=无；/*--绘图决策图--*/title h=2.5“石油经销商的决定”；proc gplot数据=数据7；图Q*P=1/haxis=轴1vaxis=轴2annotate=标签name=“dt6p2”框架面积=2；运行；退出；