课内实验报告
课 程 名： 系统工程 任课教师： 卢子芳 专 业： 市场营销 学 号： 姓 名：
二○ 一三 至二○ 一四 年度 第 1 学期
南京邮电大学 经济与管理学院
《 系统工程》课程实验报告 实验内容及基本要求： 实验项目名称： 实验类型：设计 每组人数： 1 实验内容及要求： 1) 了解Netlogo编程语言的特点和基本语法。 2) 完成Netlogo基本Model的语句解析和仿真流程分析。 学号尾数为1、6号：Social Science目录下SugarScape中的Voting 2、7号：Biology目录下的Ants 3、8号：Biology目录下的Virus 4、9号：Biology目录下的Heatbugs 5、0号：Computer Science目录下的 Pagerank 实验过程与结果： 1) 语句解析： Social Science目录下SugarScape中的Voting patches-own [ vote ;; my vote (0 or 1) 我的选票 total ;; sum of votes around me 我周围的选票 ] to setup 回到setup例程 clear-all 清除所有 ask patches [ set vote random 2 设置随机投票2 recolor-patch ] end 结束 to go 回到go例程 ask patches 新的 setup引用了两个新例程，定义 setup-patches [ set total (sum [vote] of neighbors) ] ;; use two ask patches blocks so all patches compute \ 所有补丁计算总数 ;; before any patches change their votes在任何补丁之前改变他们的选票 ask patches 新的 setup引用了两个新例程 定义 setup-patches [ if total > 5 [ set vote 1 ] 如果总数大于5 建立vote 1 if total < 3 [ set vote 0 ] 如果总数小于3 建立vote 0 if total = 4 如果总数等于4 [ if change-vote-if-tied? [ set vote (1 - vote) ] ] if total = 5 如果总数等于5 [ ifelse award-close-calls-to-loser? [ set vote 0 ] 建立vote0 [ set vote 1 ] ] 建立vote1 if total = 3 如果总数等于3 [ ifelse award-close-calls-to-loser? [ set vote 1 ] 建立vote1 [ set vote 0 ] ] 建立vote0 recolor-patch ] tick end 结束 to recolor-patch ;; patch procedure 补丁程序 ifelse vote = 0 如果 其他vote等于0 [ set pcolor green ] 建立绿色 [ set pcolor blue ] 建立蓝色 End 结束 ; Copyright 1998 Uri Wilensky. All rights reserved. ; The full copyright notice is in the Information tab. 2) 基本算法流程分析： 初始设置： 初始区域分布： 第一次执行go命令： 执行change-vote-if-tied为on 时的状态： setup按钮再次恢复状态：