管道维护项目
/****************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*名称：PMEX07*//*标题：管道维护项目*//*产品：或*//*系统：所有*//*关键词：CPM*//*进程：CPM，打印，GANTT，排序，GPLOT*//*数据：*//* *//*支持：更新：*//*REF：项目管理范例书示例7*//*MISC：Moder、Phillips和Davis，第254-55页*//* *//****************************************************************/goptions边界hpos=80 vpos=43fby=瑞士ftitle=瑞士htitle=2ftext=瑞士htext=1.5；图案1 v=实心c=蓝色；pattern2 v=e c=蓝色；图案3 v=实心c=红色；图案4 v=e c=红色；图案5 v=x2 c=红色；图案6 v=实心c=绿色；图案7 v=e c=洋红；图案8 v=固体c=洋红；图案9 v=x1 c=青色；标题“管道维护项目”；数据mntdata；格式id$23。；输入行为s1 s2 s3 id&小时成本；成本=成本/小时；卡片；101 103 . . 检查和测量管道4 16102 105 106 . 制定校准材料清单6 18103 107 . . 管道制作图3 12104 108 117 . 停用线路8 8105 108 . . 采购压延机零件244 12106 108 . . 组装Cal Work Crew 8 20107 109 110 111制定管道材料清单4 10108 112 . . 停用日历4 3109 121 . . 采购阀门220 10110 113 . . 采购管道200 10111 113 114 . 集合管工6 16队112 115 116 . 系带翘曲2 3113 119 . . 预制管段40 120114 117 . . 架设脚手架12 30115 118。拆卸压光机10 90116 128 . . 清空和冲刷槽3 6117 119 . . 拆除旧管道30 180118 120 . . 修理压延机70 650119 121 122 . 定位新管道8 50120 123。润滑压光机5 10121 125 126 127定位新阀7 66122 125 126 127焊接新管道8 50123 124 127 . 重新组装压光机22 200124 128 . . 调整和平衡校准8 80125 129 . . 保温管20 60126 129 130 . 将管道连接到锅炉4 24127 132 . . 将管道连接至Cal 8 48128 131 . . 重新加注阀1 2129 133 . . 拆除脚手架4 16130 133 . . 压力测试6 15131 132 . . 连接经线4 8132 133 . . 激活日历2 14133 . . . 清理4 15;数据管理；格式日期日期7。；输入类型$date date7。成本；卡；重新键入。2reslevel 2000年9月91日3日;proc-cpm-data=mntdata-out=mntoutinterval=dthour日期='03sep91:12:00't树脂=mntres资源=mcostusg；活动行为；持续时间；后继s1、s2、s3；id成本；资源成本/作业类型=类型周期=日期cumusation；运行；proc-sort data=mntout；通过e_start；运行；标题2“初始计划”；proc-gantt图形数据=mntout（第一个obs=16个obs=31）；图表/压缩nojobnum增量=2；身份识别成本；运行；legend1 label=（'Schedule Followed'）value=（“早开始”“晚开始”）横截=2；axis1 label=（‘累计成本’）；轴2标签=无；符号1 i=连接w=2 l=1；symbol2 i=连接w=2 l=2；title2“累计成本概况比较”；proc-gplot数据=mcostusg；格式_时间_日期时间7。；绘图（ecostper lcostper）*时间/覆盖vaxis=axis1 haxis=轴2图例=图例1；运行；退出；数据mntres1；格式日期日期7。；输入类型$date date7。成本；卡；重新键入。2reslevel 1995年9月3日再水平91年9月10日1000reslevel 1995年9月17日reslevel 2000年9月24日91;proc-cpm-data=mntdata-out=mntout1interval=dthour日期='03sep91:12:00't树脂=mntres1资源=mcost1；活动行为；持续时间；后继s1、s2、s3；身份识别成本；资源成本/作业类型=类型周期=日期黄瓜；运行；数据mntres2；格式日期日期7。；输入类型$date date7。成本；卡；重新键入。2reslevel 2011年9月3日reslevel 2000年9月17日;proc-cpm-data=mntdata-out=mntout2interval=dthour日期='03sep91:12:00't树脂=mntres2资源=mcost2；活动行为；持续时间；后继s1、s2、s3；身份识别成本；资源成本/障碍类型=类型周期=日期cumusation；运行；数据初始成本（keep=time _ cost1）；设置mcostusg；cost1=成本；运行；数据成本a（keep=time _ cost2）；设置mcost1；cost2=成本；运行；数据成本b（keep=time _ cost3）；设置mcost2；cost3=成本；运行；数据成本；合并initcost costa costb；按时间；运行；符号1 i=连接w=2 l=1；符号2 i=连接w=2 l=2；符号3 i=连接w=2 l=3；legend2 label=（'遵循的资金计划'）value=（‘总价’‘增量A’‘增量B’）；axis3 label=（'可用资金'）；标题2“比较资金计划”；proc gplot数据=成本；格式_时间_日期时间7。；绘图（成本1成本2成本3）*_time_/覆盖图例=legend2 vaxis=axis3 haxis=axis2；运行；进程排序数据=mntout2（drop=e:l:）；通过降低s_start；运行；%让mscale=“”；数据_全部_；设置mcost2 end=_e；如果e，则scale=32/rcostper；呼叫信号（“scale”，scale）；运行；数据mcost2；设置mcost2 end=lastobs；如果是lastobs，则time='9月21日91:12:00't；运行；%annomac；数据anno；%dclanno；%系统（2,2,4）；设置mcost2；长度实验室16美元；长度文本$6；x1=时间；y1=33-rcostper*symget（“刻度”）；实验室=“”；do date='03sep91:12:00'到'21sep911:12:00'，时间为'48:00’；如果time=日期，则lab=put（rcostper，美元6.）；结束；如果n_=1，则执行；%系统（3,3,4）；%标签（10,5，‘成本’，*，0,0,1.5，瑞士，5）；%系统（2,2,4）；%移动（x1，y1）；结束；否则会这样做；%绘制（x1，y1，*，1,3）；结束；如果实验室没有，那么做；%系统（2,3,4）；%标签（x1.5，实验室，*，0,0,1.5，瑞士，5）；%系统（2,2,4）；结束；运行；脚注h=3''；标题2“项目进度和支出”；proc-gantt图形数据=mntout2；chart/compress nojobnum注释=annohconnect nolegend比例=7ref='03sep91:12:00'到'21sep911:12:00'，时间为'24:00’；id id；运行；脚注；/*PERT计算*/数据mntpert；集合mntdata；输入低时高时；var=（（小时-小时）/3.2）**2；平均小时数=（低小时数+4*小时数+小时数）/6；卡；2 53 82 57 10120 3206 93 74 5136 280136 2404 71 320 506 152014年4月2 518 3835 986 123 65 106 1118 246 1415 303 57 111 13 45 93 52 33 5;proc-cpm数据=mntpert输出=mpertoutinterval=dthour date='03sep91:12:00't；活动行为；持续时间平均小时数；后继s1、s2、s3；id id成本变量；运行；进程排序数据=mpertout；通过e_start；运行；标题2“平均持续时间一览表”；proc-gantt图形数据=mpertout（firstobs=16 obs=31）；图表/压缩nojobnum增量=2；身份识别成本；运行；数据mtotal（keep=平均标准偏差）；格式平均日期时间13。标准偏差时间5。；设置mpertout end=lastobs；如果t_float=0，则执行；平均值=e_finish；totvar+var；标准偏差=3600*totvar**.5；结束；如果是lastobs；运行；标题2“PERT统计”；proc打印数据=mtotal noobs；运行；数据cumprob（下降=平均标准偏差）；设置mtotal；格式计数日期时间7。；label count=“项目完成时间”；count='12sep91:00:00't；do while（计数<'26sep91:00:01'dt）；z=（count-mean）/标准偏差；prob＝probnorm（z）；产出；count=count+'01:00’t；结束；运行；标题2“完工时间概率”；proc打印数据=cumprob noobs；var计数问题z；运行；符号1 i=连接w=4 l=1；标题2“项目竣工的累计概率”；轴4顺序=（'12sep91:00:00't至'27sep91:00'0't按'72:00’t）minor=（数字=2）；proc gplot数据=cumprob；绘图prob*count/haxis=axis4href='19sep91:00:49't vref=.50；运行；