分部施工项目
/****************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*名称：PMEX05*//*标题：分项工程*//*产品：或*//*系统：所有*//*关键词：CPM*//*程序：CPM、PRINT、NETDRAW、GANTT、SORT、GCHART、GPLOT*//*数据：*//* *//*支持：更新：*//*REF：项目管理示例手册示例5*//*MISC：项目管理：方法与研究，B.V.Dean*//*编辑，Lee和Olson，第126-134页*//****************************************************************/goptions边界hpos=80 vpos=43fby=瑞士ftitle=瑞士htitle=2ftext=瑞士htext=1.5；图案1 v=实心c=蓝色；pattern2 v=e c=蓝色；图案3 v=实心c=红色；pattern4 v=e c=红色；图案5 v=x2 c=红色；图案6 v=实心c=绿色；图案7 v=e c=洋红；图案8 v=固体c=洋红；图案9 v=x1 c=青色；标题“分部施工项目”；数据构建；输入动作$s1$s2$s3$s4$dur id&$20。起重机车夫；卡；A B。4开挖和基脚1 2 2B、C、E、S。2浇注基础1 2 4C D H J Q 4框架和屋顶1 4。D W。6砌砖1。2E F G。1地下室管道。F J。2浇筑地下室1。4G K。3粗管道。2H L。2初始接线。J K。4暖通1。K L。10石膏。L M N P公司。3饰面地板。4 .M V。1厨房设备。不。2完成管道。P U。3装饰木工。4 .Q R。2修整屋顶13。R W。1排水沟和落水管1。S X。1雨水管1 2 2T。2地板上漆。三U T。3油漆。V。1完成电气。宽X。2修整级配。2X。5步行和景观1 2 2;模式1 v=e；标题2“建造房屋”；proc-netdraw图形数据=构建；actnet/activity=动作后继=（s1-s4）id=（id dur）节点id nolabel压缩分离font=单工；运行；模式1v=s；数据简述；投入期起重机停车工人；卡；0 1 5 4;proc-cpm-data=构建=关于树脂=breslvl资源=bres；活动行为；持续时间；id id；继任者s1-s4；资源起重机停车场劳动力/时段=时段noe_start nol_start avp rcp延迟分析；运行；proc排序数据=bout；通过s_start；运行；标题2“初始计划”；proc-gantt图形数据=关于；图表/压缩nolegend；id id；运行；符号1 i=阶梯j w=2 l=1；模式1 v=M3N135；axis1标签=（“工人数量”）；标题2“劳工要求”；proc-gplot数据=bres；plot rlabores*_time_/vaxis=轴1面积=1；运行；退出；轴2阶=（0,1）minor=无标签=（‘起重机数量’）；title2“起重机使用”；proc-gplot数据=bres；绘制rcranes*_time_/vaxis=axis2区域=1；运行；退出；数据延迟（keep=res r_delay）；设置回合；res=延迟；如果delay_r=''，则res='NONE'；label res=“延迟资源”；运行；title2 h=1.5“延迟资源分配”；title3 h=1.2“延迟活动的百分比”；goptions htext=1；proc-gchart数据=延迟；饼图分辨率/类型=频率百分比=外部value=外部slice=外部explode=“无”无标题；运行；退出；goptions htext=1.5；title 2“总（和平均）延误工作日”；proc-gchart数据=延迟；vbar-res/midpoints='cranes''carpcentrs''labours'平均宽度=15type=总和sumvar=r_delay；运行；退出；模式1 v=s；/*添加第二栋房屋*/标题2“建造两栋房子”；数据构建1；集合构建；act='H1'||act；如果s1 ne“”，则s1=“H1”||s1；如果s2 ne“”，则s2=“H1”||s2；如果s3 ne“”，则s3=“H1”||s3；如果s4ne“”，则s4=“H1”||s4；房屋=1；运行；数据构建1a；集合构建；act='H2'||act；如果s1 ne“”，则s1=“H2”||s1；如果s2 ne“”，则s2=“H2”||s2；如果s3 ne“”，则s3=“H2”||s3；如果s4ne“”，则s4=H2“||s4；房屋=2；运行；数据构建2；设置build1 build1a；运行；proc打印数据=构建2个noobs；运行；proc-cpm数据=build2-out=bout2树脂=breslvl资源=bres2；活动行为；持续时间；id id房屋；继任者s1-s4；资源起重机停车场劳动力/时段=时段noe_start nol_start avp rcp延迟分析；运行；进程排序数据=bout2；按house s_start；运行；title 2“综合进度表”；proc-gantt图形数据=bout2；chart/compress-nolegend hconnect lhcon=2；id id房屋；运行；数据延迟1（keep=res r_delay house）；设置bout2；res=延迟；如果delay_r=''，则res='NONE'；label res=“延迟资源”；运行；title2 h=1.5“延迟资源分配”；goptions htext=1；进程gchart数据=延迟1；饼图分辨率/类型=频率百分比=外部value=外部slice=外部explode=“无”group=房屋横向=2无标题；运行；退出；title2 h=1.5“总（和平均）延误工作日”；进程gchart数据=延迟1；vbar-res/midpoints='cranes''carpcentrs''labours'group=房屋平均宽度=12type=总和sumvar=r_delay；运行；退出；goptions htext=1.5；proc-cpm数据=build2-out=bout3树脂=breslvl资源=bres3；活动行为；持续时间；id id房屋；继任者s1-s4；资源起重机停车场劳动力/时段=时段noe_start nol_start avp rcp规则=actprty actprty=房屋；运行；进程排序数据=bout3；通过s_start；运行；标题2“优先考虑房屋1”；proc打印数据=bout3 noobs；var id房屋起重机停车场工人s开始s结束；运行；proc cpm数据=build1 out=house1树脂=breslvl resourt=resourt1；活动行为；持续时间；id id房屋；继任者s1-s4；资源起重机停车场劳动力/时段=时段无启动无启动avp rcp；运行；title2“房屋1资源使用数据”；proc打印数据=资源1 noobs；运行；数据remres；设置资源1（重命名=（acranes=起重机acarpntrs=carpntrsalaborers=劳工_时间=周期）；保持期起重机停车工人；运行；proc-cpm-data=build1a-out=house2树脂=remres资源=资源2；活动行为；持续时间；id id房屋；继任者s1-s4；资源起重机停车场劳动力/时段=时段无启动无启动avp rcp；运行；数据仓库；设置房屋1房屋2；运行；proc-sort数据=房屋；通过s_start；运行；标题2“房屋的顺序安排”；proc-gantt图形数据=房屋；chart/compress-nolegend hconnect lhcon=2；id id房屋；运行；数据资源；合并资源1资源2；按时间；运行；title2“起重机使用-顺序调度”；符号1 i=阶梯j w=2 l=1；模式1 v=M3N135；proc gplot数据=资源；绘制rcranes*_time_/vaxis=axis2区域=1；运行；退出；模式1 v=s；数据响应；输入障碍物类型$period起重机停车场工人；卡；负责人。1 2 2;数据树脂；集合breslvl resprty；如果period=0，则obstype='reslevel'；运行；proc-cpm数据=build2-out=bout4树脂=树脂资源=bres4；活动行为；持续时间；id id房屋；继任者s1-s4；资源起重机停车场劳动力/时段=时段noe_start nol_start avp rcp obstype=obstype规则=respry；运行；进程排序数据=bout4；通过s_start；运行；标题2“起重机优先顺序表”；proc打印数据=bout4 noobs；var id房屋起重机停车场工人s开始s结束；运行；title2“起重机优先资源使用”；进程打印数据=bres4 noobs；运行；标题2“起重机一览表”；proc-gantt图形数据=bout4；图表/压缩nolegend；id id房屋；其中起重机^=。；运行；