将进度与基线进行比较（甘特图11）
/****************************************************************//*S A S S A M P L E L I B R A R Y*//* *//*名称：GANTTE11*//*标题：将进度与基线进行比较（甘特图11）*//*产品：或*//*系统：所有*//*钥匙：GANTT*//*程序：CPM、SORT、GANTT*//*数据：*//* *//*支持：更新：*//*参考：GANTT章节中的示例11（PM用户指南）*//*其他：*//* *//****************************************************************/title h=1.2“甘特图示例11”；/*项目的活动节点表示*/数据小部件；格式化任务$12。成功-成功3$12；输入任务和天数suc1&suc2&suc3&；数据线；批准计划5图纸研究市场编写规范图纸10原型。研究市场5个市场。战略。编写规范5原型。原型15材料设施。市场。地层。10测试市场营销。材料10初始。生产。贷款10初始。生产。初始化。产品10测试市场营销评估评估10个更改。测试市场15的变化。更改5生产。生产0。营销0。;数据假期；格式假日假日7。；输入假日和日期7。holfin&日期7。霍利杜；数据线；2003年12月24日2004年12月26日2004年1月1日。;*将早期计划存储为基线计划；proc-cpm-data=小部件holidata=假日out=widgbase date='2003年12月1日；活动任务；成功成功1成功2成功3；持续天数；假日/holfin=（holfin）；基线/组=早期；运行；*timenow的实际时间表=2003年12月19日；数据实际；格式化任务$12。sdate日期7。fdate日期7。；输入任务&sdate&date7。日期&日期7。pctc-rdur；数据线；批准计划（2003年12月1日至2003年10月5日）。图纸03年12月6日16日。研究市场2003年12月5日。100 .编写规范03年12月7日。原型。市场。地层。2003年12月10日。三材料。贷款。初始化。生产。评估。测试市场。更改。生产。营销。;*将基线信息与进度更新合并；数据widgact；合并实际widgbase；运行；*根据实际数据估算进度；proc-cpm-data=widgact holidata=假日out=widgupdt日期='2003年12月1日；活动任务；成功成功1成功2成功3；持续天数；假日/holfin=（holfin）；基线/比较=早期；实际/as=sdate af=fdate timenow='2003年12月19日remdur=rdur pctcomp=pctc自动更新；运行；*对数据进行排序；进程排序；通过e_start；运行；*打印数据；title2“进度数据”；程序打印；var任务e：l：a开始a完成b：；运行；pattern1 c=绿色v=s；/*非关键活动的持续时间*/模式2 c=绿色v=e；/*非编写活动的空闲时间*/模式3 c=红色v=s；/*关键活动持续时间*/图案4 c=洋红v=e；/*超级编写活动的空闲时间*/图案5 c=洋红v=s；/*超级写入活动的持续时间*/图案6 c=青色v=s；/*活动的实际持续时间*/图案7 c=黑色v=e；/*假期休息*/pattern8 c=蓝色v=s；/*活动资源计划*/图案9 c=棕色v=s；/*基线活动计划*/title2“比较项目进度与基线进度”；*使用proc-gantt绘制实际和基线计划；proc-gantt data=widgupdt-holidata=假日；图表/假日=（假日）holifin=（holifin）timenow='2003年12月19日dur=天比例=2高度=1.6压缩；id任务；运行；