设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10107|回复: 4

[求助] 自学中文手册时遇到了问题,求高手解答

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]: I! m( i% E, u( t7 x5 ^6 V! j
to setup8 S) `( Y. k7 @7 Q( O
  clear-all$ J% l" X' \, Y  K
  setup-patches2 ]; s$ K9 l4 B& h
  create-turtles 100
, a, J. M( q! V$ C, J  do-plots; m2 i# Z4 s) Z3 ~& [
  ask turtles [ setxy random-xcor random-ycor ]2 g7 |$ [1 @: M4 ~' ?; L9 p
end1 S% J% T3 y% w' o& M
to go
) `& X6 O* m7 _3 P9 q$ P) K  move-turtles: ]+ w  l: C* X4 G; q5 b$ M
  eat-grass. `+ Y) B2 v3 E, G
  reproduce
: G; M% ~( \: M0 o  check-death
. j% B& ?. b0 ?; n, q$ x4 I  regrow-grass
( C4 e$ u! N, [4 i1 R8 r3 \  do-plots
3 B) j& Q' [" Tend
4 u( a/ M; ^7 d' H: dto move-turtles1 r& M) O0 h1 N0 b* e4 E
  ask turtles [* L# [0 b# o( g7 Y8 _9 y6 o6 T
    right random 360
6 ?8 p# i# i7 \4 ~1 `* G    forward 1/ {, D1 T+ ?# P4 L  ]6 L
    set energy energy - 1: u, C6 r; Y, p3 |
    ]2 |; X5 g) g6 G8 P2 g
end
, o, P- e; E0 Xto setup-patches
+ c! j/ W3 }0 ^  R$ \5 C, P# h  ask patches [ set pcolor green ]2 _2 ]3 Q; h9 D1 D6 R! `
end
& Q* L7 H& w4 Z9 M0 p, l: e9 M0 |to setup-turtles
1 h: v- l" ~  s0 a  create-turtles 100
) O$ b+ U; h& K# g# ~  ask turtles [ setxy random-xcor random-ycor ]
+ R0 V* I) e6 x" t  k/ h) Y5 v, Dend
+ s% c; ?; s% U7 b7 I( Nto eat-grass
& s* P+ b+ x2 l, P6 m+ G  ask turtles [
/ Y6 T3 N: Y+ u* H+ s    if pcolor = green [& g+ U3 X2 P7 |8 a/ ^! w5 p" H
      set pcolor black
4 Z1 [, r. P! [+ O      set energy (energy + 10)# F" m; @1 \6 f' l! d  R
      ]
% m8 e3 x: A. g    ifelse show-energy?
8 [9 c) r: h+ H7 T/ Y4 ~+ o2 D      [ set label energy ]
8 G  Z; W4 u" n) c8 Y8 Z4 Z0 n; O0 `      [ set label "" ]- [- V- T9 f! N: z* b6 Q& ^, {
    ]
1 k, b3 i/ O6 z! V4 Y0 Yend
' T$ \- `+ v) S" t$ H6 Hto reproduce" l) C) U. i. X4 ]( u# \, L5 z2 N
  ask turtles [1 e8 e0 ~& z4 A& T2 u9 `) @* J# m
    if energy > 50 [/ D& z3 G+ V# U+ w8 a/ L
      set energy energy - 505 z4 T% f1 l. h$ @. K' S* d
      hatch 1 [ set energy 50 ]
1 a+ \2 W  r. Y. {% ?      ]/ _% G) O; Y' w3 l/ q- W  W; i1 z: R
    ]+ |4 `# k2 l  |: ^
end: R. J- ^( w! q  ~. w
to check-death
7 w! t" S/ Q  a; d* c+ L  ask turtles [
7 g8 P) |: j" \& F# |6 N    if energy <= 0 [ die ]
. y; w# i1 d8 b5 @5 p. x) q5 x2 x    ]! K. x6 s( q8 v! L
end; j5 Y$ @! [  c+ k
to regrow-grass* Y: R9 j7 x$ N# n. R
  ask patches [) a0 P7 o! j7 N$ Y; Z  `
    if random 100 < 3 [ set pcolor green ]
2 _  C) a+ l. v$ Q" B& u    ]
% L9 v" V- N- |9 cend
' U4 o6 y7 Q) O' k' ~. E" Vto do-plots
" W, _( R0 t* v- Q$ q4 i* C  set-current-plot "Totals"
0 l2 n  ]( N8 _  set-current-plot-pen "turtles"/ W2 o/ z+ n  ~, I' ~* b/ M& V
  plot count turtles! L8 T5 {  s' x' l- R6 F; p, ^
  set-current-plot-pen "grass"# I$ l6 Z" U; T
  plot count patches with [pcolor = green]
. }9 e% D7 P# L/ B  G6 bend8 m8 `2 _% G* ]5 E4 S+ X9 [
可是运行时提示no such plot: "Totals"8 \7 r. F6 K0 p" w2 p( t7 U2 X6 z/ a
error while observer running SET-CURRENT-PLOT9 ?" }( B5 }# s) L' d+ b3 r
  called by procedure DO-PLOTS
8 M7 }1 H# F  |' n0 u5 U  called by procedure SETUP" @% ~( q! Z8 ~( C. k4 g% e3 f
  called by 按钮 'setup'
6 Q3 H( M$ F6 ~1 L3 H" C* i求大神解答啊
发表于 2013-5-29 00:25:38 | 显示全部楼层
no such plot: "Totals",就是说你的界面里没有叫做Totals的绘图框
发表于 2013-5-29 00:26:26 | 显示全部楼层
建一个叫做叫做Totals的绘图框就行了
 楼主| 发表于 2013-6-4 12:24:45 | 显示全部楼层
emlyn 发表于 2013-5-29 00:26 4 \6 [' K4 D3 O& M; H0 [
建一个叫做叫做Totals的绘图框就行了
; Z/ e+ o) ?+ n7 S2 f' @
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2026-2-13 13:45 , Processed in 0.016649 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表