系统工程课内实验.pdf

课内实验报告

课程名：系统工程

任课教师：朱卫未

专业：市场营销

学号：

姓名：郑荣翔

二○一一至二○一二年度第1学期

南京邮电大学经济与管理学院

《系统工程》课程实验报告

实验内容及基本要求：

实验项目名称：

实验类型：设计

每组人数：1

实验内容及要求：

1)了解Netlogo编程语言的特点和基本语法。

2)完成Netlogo基本Model的语句解析和仿真流程分析。

实验过程与结果：

1)语句解析：

breed[waterswater]

breed[raindropsraindrop]

patches-own[

elevation

]

globals[

color-min

color-max

old-show-water?

water-height;;一单元的水多少英尺高

border;;保持补丁周围的边缘所以我们不曾问补丁的去向

]

;;

;;安装程序

;;

;;阅读外部文件启动安装，而不是只做一次的模型

;;不改变海拔再运行模式

tostartup

;;从外部文件读海拔

;;请注意，该文件格式列表

;;所以我们只能读到一个本地变量。

file-open

letpatch-elevationsfile-read

file-close

setcolor-maxmaxpatch-elevations+200;;设置一个小填充的上限，所

以我们不要太多

;;白色和海拔较高，有更多一点的变化。

letmin-elevationminpatch-elevations

;;调整color-min小斑块一直不在黑色处结束

setcolor-minmin-elevation-((color-max-min-elevation)/10)

;;将日期从文件到补丁的排序

(foreachsortpatchespatch-elevations

[ask?1[setelevation?2]])

set-default-shapeturtles

setup

end

;;只是收拾雨点产生的标志

;;设置一些全局变量的缺省值

tosetup

clear-drawing

clear-turtles

askpatches

[setpcolorscale-colorbrownelevationcolor-mincolor-max]

setwater-height10

setborderpatcheswith[countneighbors!=8]

end

;;

;;运行程序

;;

togo

;;检查鼠标点击空补丁

;;如果我们有一个赢家，使手动雨滴改变

;;红色

ifmouse-down?andnotany?turtles-onpatchmouse-xcormouse-ycor

[

;;甚至当雨滴隐藏

;;新创建的手动下降

;;可见

create-raindrops1

[setxymouse-xcormouse-ycor

setsize2

setcolorred

]

]

;;使rain-rate随机滴

create-raindropsrain-rate

[move-toone-ofpatches

setsize2

setcolorblue