设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11050|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]( N2 b/ ?5 ]7 }$ w1 O  |: W; a
to setup7 _) O% r2 I1 @- b9 P/ h# r
  clear-all1 B% F! Y1 {% l/ D" g2 [
  setup-patches6 X. Y5 k$ y; e7 T# p
  create-turtles 1002 H  d+ S: \% M8 C3 K( v5 H
  do-plots, C) v# ]# ~* w7 L! I5 U/ F7 l
  ask turtles [ setxy random-xcor random-ycor ]3 D, k2 l  @) I, Q: K
end
0 m6 O( z4 m8 X  d( u4 J* a% Eto go  A8 m/ o1 a8 g3 h+ C" L& x
  move-turtles+ T# J( g/ T3 ]7 f
  eat-grass& {; B( M6 N' w- j# t
  reproduce6 f, v3 L9 `4 x, u8 {
  check-death
+ @1 P* e7 E8 Q2 ^( X  regrow-grass
- q& A! o" H5 E% o5 j& ^# l1 T  do-plots
7 @3 H- ?' Y% f& x( P" Xend7 N4 @# E2 H9 ]. |( ]
to move-turtles
) K1 q# `% R- j  ask turtles [
+ d) x4 T3 B6 e    right random 360
+ D9 \$ s8 F% S! S& L    forward 1
7 G: r. G1 z* V" @6 h/ ^0 D+ F+ Z# X    set energy energy - 1
( p% ^% N( g9 K5 X2 ?# A    ]
  k" R- a: B& l( x) S4 z) Qend
+ _1 X5 Q' G2 {to setup-patches
" v& ?( A8 I* B: x7 Y  ask patches [ set pcolor green ], R& P! _# y" q* r7 w
end' z, T  v2 b, z9 L, U* Y
to setup-turtles
% F( p7 K8 O$ k) j  create-turtles 100+ E* r+ @0 H4 W9 H. P) A# {; ?  Z
  ask turtles [ setxy random-xcor random-ycor ]; e% ~0 r) z% I/ t- p
end9 ~5 U/ E- V/ C* Z; j
to eat-grass
! u! Z- A  D! X# K: R- E  ask turtles [. J7 u( a5 I+ I; o% O  Q( S- x8 j0 r+ T; u
    if pcolor = green [
# u5 J7 y. L3 O* m$ g  B, A      set pcolor black6 \; a, I- v* v1 g- y1 X( b
      set energy (energy + 10)% V8 G; e1 r3 Q. Z- E8 r! w
      ]  i1 x" }) r7 U+ z, D
    ifelse show-energy?
) l2 Q/ z& g2 a, p9 H8 W      [ set label energy ]; X( l  ~) E5 [9 p- u" ~: W4 N
      [ set label "" ]
6 [( b" K+ @. r' h6 X0 H( g    ]6 g# N4 o) [# G' }
end
8 u2 Z# s. [  O2 {to reproduce1 g5 D$ H9 }' K! E
  ask turtles [$ U) s3 b  e$ H8 k
    if energy > 50 [+ ~& v. e. Q6 o6 ^, j4 w
      set energy energy - 50- K$ \- h6 d* |5 C' Y
      hatch 1 [ set energy 50 ]
" M- ~/ y( \) A, i/ y& L      ]! I* n4 J& Z( \6 Y
    ]6 ]# j! ?3 d, x/ H
end
4 ?# T- d8 u  }* N4 Eto check-death
) H7 @( I* D- [1 _5 c8 c0 T  ask turtles [
0 z' o# a* j. D) T( C6 {5 t$ S    if energy <= 0 [ die ]
# x/ |: y0 @' L8 V% t    ]& y. M( v+ X8 A/ ^0 \+ b: O  M
end
6 i! U: b' t/ a9 E9 ato regrow-grass8 U* o! B3 Q; d
  ask patches [
+ T% Q! C( w5 C. P) j2 c    if random 100 < 3 [ set pcolor green ]
& ^3 f% v; l+ g; M4 m6 Q* @    ]
. D( c: N, d5 t! P6 L5 R2 kend7 w# m. a% n$ D7 s' }; u
to do-plots* L9 l* A+ E1 c. }: z
  set-current-plot "Totals"
5 p  i! g9 U" O/ C  r- V  set-current-plot-pen "turtles"( |. a' D( T$ `. ^: ^* R0 B7 V
  plot count turtles
( G& M, d% |6 J4 q+ ?$ O& Z  set-current-plot-pen "grass"
( p1 y( s5 z4 i  plot count patches with [pcolor = green]
1 @$ O- D* O/ }" n3 Send# m- S$ _( P* w# u& j
可是运行时提示no such plot: "Totals"
  j, r% S0 h9 o( P. e* Gerror while observer running SET-CURRENT-PLOT# G% u3 T$ E8 n4 e6 _7 e
  called by procedure DO-PLOTS, p  A+ ~8 ]! p
  called by procedure SETUP
( E% E0 @8 o6 K  called by 按钮 'setup'
0 P$ g" S4 o! R% K9 V. d7 l求大神解答啊
发表于 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
3 s7 M) r. \/ e: b- K7 V2 }2 X建一个叫做叫做Totals的绘图框就行了
9 W" J! X& t, M7 M/ |% [& y
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-27 17:50 , Processed in 0.018637 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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