风险规避背景下的石油投资者问题
/**************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*名称：DTREE2*//*标题：风险规避背景下的石油野生动物问题*//*（数据树2）*//*产品：或*//*系统：全部*//*钥匙：DTREE*//*程序：数据树、打印、格式、GPLOT*//*数据：*//* *//*支持：更新：*//*参考：DTREE章节中的示例2*//*其他：*//* *//**************************************************************/goptions hpos=80 vpos=32；/*--创建STAGEIN=数据集--*/数据图4；格式_STNAME_$12_结果_$15_成功_$12。；输入_STNAME_$_STTYPE_$_OUTCOM_$_成功_$；数据线；撤资决定编号_撤资保险. . 10%_失业保险. . 20%_失业保险. . 30%_失业保险. . 40%_人寿保险. . 50%_失业保险. . 60%_失业保险. . 70%_失业保险. . 80%_失业保险. . 90%_失业保险. . 100%有效。保险决策购买_保险成本. . 不含购买成本Cost Chance低油沉积. . 普通油_沉积. . 高油沉积Oil_Deposit Chance干燥。. . 潮湿。. . 浸泡。;/*--创建PROBIN=数据集--*/数据Dtoup4；输入_EVENT1$_PROB1_EVENT3$_PROB3；数据线；低0.2干0.5一般0.6湿0.3高0.2浸泡0.2;/*--创建PAYOFFS=数据集--*/数据Dtulu4（drop=i j k l）；长度_STATE1-_STATE4$16；格式_值_美元12.0；/*定义和初始化数组*/数组DIVEST{11}$16_临时_（“无活动”，“10%_死亡”，“20%付款”，“30%付款”，“40%付款”，“50%付款”，“60%付款”，“70%付款”，“80%付款”，“90%付款”，“100%付款”）；数组INSUR{3}$16_临时_（'Do_Not_Buy'，'购买保险'，' ' );数组COST{4}$_TEMPORARY_（'低'，“公平”，“高”，' ' );数组DEPOSIT{4}$_TEMPORARY_（“干”，“潮湿”，“浸泡”，' ' );do i=1到10；/*每次撤资循环*/_状态1=股息{i}；/**确定保留所有权的百分比*对于此场景*/PCT=1.0-（（i-1）*0.1）；do j=1到2；/*保险决策循环*/_状态2=INSUR{j}；/**确定为此支付的保险费*场景*/如果_STATE2=“购买保险”，则保费=130000；否则PREMIUM=0；do k=1到3；/*每口井的循环成本*/_STATE3=成本｛k｝；/*确定此方案的成本*/如果_STATE3=“低”，则_COST_=150000；否则，如果_STATE3=“公平”，则_COST_=300000；其他成本=500000；do l=1到3；/*每个存款类型的循环*/_STATE4=存款{l}；/**确定油沉积和*此场景的相应净收益*/如果_STATE4=“干燥”，则_PAYOFF_=0；否则，如果_STATE4=“湿”，则_PAYOFF_=700000；否则_PAYOFF_=1200000；/*确定此方案收到的赎回*/如果_STATE2=“购买保险”且_STATE4=“干燥”，则REDEEM=200000；否则REDEEM=0；/*计算此场景的净回报*/_VALUE_=（PAYOFF_-_COST_-保费+退款）*PCT；/*删除不需要的变量*/删除COST_PAYOFF_ PREMIUM REDEEM PCT；/*输出此记录*/产出；结束；结束；结束；结束；/*输出场景的观察结果100%_Divestment*/_状态1=股息{11}；_状态2=热度{3}；_状态3=成本{4}；_STATE4=存款{4}；_值=0；产出；运行；/*--打印付款表--*/标题“石油野外勘探者的问题”；标题3“回报”；proc打印数据=Dtulu4；运行；/*--PROC DTREE语句--*/标题“石油野外勘探者的问题”；proc dtree stagein=Dtouls4probin=Dtulp4报酬=Dtulu4标准=最大rt=1200000无预警；评估；摘要/目标=撤资；摘要/目标=保险；退出；/*为每个报表对应的报表创建一个数据集*//*撤资可能性和保险选择*/数据Data2g；输入保险分红值；数据线；1 0 457280 0 444991 10 465520 10 480211 20 462570 20 499071 30 448120 30 501041 40 421860 40 485581 50 383500 50 452191 60 332730 60 400361 70 269270 70 329651 80 192840 80 239611 90 103170 90 129851 100 00 100 0;/*--定义INSURE变量的格式--*/proc格式；值样本0=“Do_Not_Buy”1=“Buy_Insurance”；运行；/*--定义标题--*/title h=3“石油野生动物问题”；/*定义图例--*/legend1框架cframe=白色标签=无cborder=黑色位置=中心；/*定义数据点的符号特征*//*以及收益与撤资的插值线*//*保险=0时*/符号1 c=青色i=连接v=点l=1 h=1；/*定义数据点的符号特征*//*收益与撤资的插值线*//*当保险=1*/符号2 c=绿色i=连接v=方形l=2 h=1；/*--定义轴特征--*/axis1 minor=无标签=（‘撤资（百分比）’）；轴2次要=无标签=（角度=90旋转=0‘确定性等效’）；/*设置图形选项*/goptions htext=1.5；/*使用INSURE作为第三变量绘制VALUE与DIVERST*/proc gplot数据=数据2g；plot VALUE*DIVEST=INSURE/haxis=轴1vaxis=轴2图例=图例1name=“dt2”框架cframe=白色；格式保险样本。；运行；退出；