设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11959|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
. f9 M8 B! C/ U% I& W2 U, U% c* N. G' Dto setup) D0 x* r! O1 p. n1 S$ I7 l
  clear-all
$ a- P- Q; X* R  setup-patches/ c- k+ o' ?' }' D0 @
  create-turtles 100
" S, ]- s% b" x8 X: ~% T  do-plots
* L) B$ T7 m3 R1 n9 F+ B  ask turtles [ setxy random-xcor random-ycor ]
( X% S+ p' M6 Tend
# f2 L" x& Q2 p6 C* v5 g1 S, W2 zto go
' s4 T% H* t$ x. q  move-turtles# d* l3 b! e& B  l9 q4 i; F
  eat-grass
& P6 E5 M- q" u  reproduce
. x  H* v4 Q7 X. f" T6 C  check-death
4 c/ }- X  h" \4 W) ?" \! C6 b  regrow-grass7 ]& A# x9 G' v4 n1 g: n
  do-plots  M3 c0 p! A' ]( D) i
end) j1 {+ F2 h8 X$ C3 `4 q6 X, u* Y
to move-turtles
) a+ m4 Y4 g6 _- n0 `6 h# q  ask turtles [
: D- q: Z7 s' G* o$ W* }    right random 360
% W. U5 R$ a: I- w! w  e    forward 1
4 Q# S7 T* E5 }( y! A    set energy energy - 1/ K- k  E" d  @1 u' j
    ]
5 w+ P1 G4 n9 e# V- d7 yend+ g  m/ }2 {, u" d2 {/ A( `
to setup-patches. }! Z6 }8 Z# n$ j, ^! w
  ask patches [ set pcolor green ]
8 s4 x4 \3 N8 H$ p$ m0 X; }end$ C% {6 F) |& \( |$ q* |, I
to setup-turtles/ T# e# y* t6 j* m3 o1 G
  create-turtles 100- h, i0 Z0 S+ o7 ~
  ask turtles [ setxy random-xcor random-ycor ]
* c' d# Q! B1 iend. R% J- L* f( O5 {
to eat-grass  }" }" V) \, ^( T. K
  ask turtles [
4 S' D' L* i' [9 h/ i' ^    if pcolor = green [
3 e( ~0 {  q& i" r" T& @" |8 D5 H      set pcolor black$ ]! f- A& P9 l" C
      set energy (energy + 10)1 H  [- R9 \0 Z* Q+ J/ g; b, q
      ]- u5 d7 G$ ~4 T% ?: {. r
    ifelse show-energy?
- p! v8 P8 h7 h% ?: s- F# q: k      [ set label energy ]
% W( p; c7 j2 B, m      [ set label "" ]& ~: v. h1 F' {1 _3 v3 y
    ]; H; ^% l) j' `% L$ n5 X
end+ L- J& U! k' Z
to reproduce$ E5 e( e: G; R4 M1 L: i' }% ]
  ask turtles [4 s, T; A; h9 n1 \$ n7 m* Y
    if energy > 50 [1 r+ m  D7 `. ]
      set energy energy - 507 W9 g6 i; a% w/ ~) [, ]5 f- r& z4 t" m
      hatch 1 [ set energy 50 ]6 X. i" r: }9 W# w; `7 X; C
      ]
( P+ ^) X1 {7 t, p. g1 V. b0 x    ]+ y% ]0 ]+ n7 e7 S1 Y: P$ t
end% G& |" U; g$ V, \; B# g2 }- m! p
to check-death+ B  }* \* R. _4 ?
  ask turtles [0 s# h/ r3 ]8 w/ y
    if energy <= 0 [ die ]5 Q2 q+ n/ a( ^$ I+ S0 n- V1 y" m8 t
    ]
) _: N8 X# F' j3 W+ |- ^5 ?: J5 O7 hend
0 T( u6 V% g$ o3 b8 f& Z! Jto regrow-grass
  Z& u( n/ {% D, ~- b  ask patches [
" `! c/ |( P# `& O    if random 100 < 3 [ set pcolor green ]
6 a' \6 E9 U! n* r( V    ]7 z. d, U- s2 B, w, y
end; r9 S" f' i) b2 b* u; Q- U, D; |9 J0 w
to do-plots- ^9 s3 q+ ^) X2 M& }; B- k( \
  set-current-plot "Totals"8 J1 a( @( d  T6 S5 o9 Y3 h3 _. S
  set-current-plot-pen "turtles"4 i" ?+ D7 s- w2 o% C/ a
  plot count turtles
, x$ R/ v! A' G. F9 Z  set-current-plot-pen "grass"
/ I& R! [# f* L  plot count patches with [pcolor = green]
/ u" m& ~% m' Oend
" V- ?4 |* ]+ Z6 v4 B, N可是运行时提示no such plot: "Totals"
- [; e6 i  j7 @2 N& R4 k# p/ `error while observer running SET-CURRENT-PLOT- k6 N( S, N  Y+ ]' _
  called by procedure DO-PLOTS
2 u; S+ P8 _5 A6 }8 H  called by procedure SETUP
3 J1 P8 p* t; k6 R: Y( f% b1 o$ n7 }  called by 按钮 'setup'2 S7 t8 f7 B2 D8 k. B5 N
求大神解答啊
发表于 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
/ h* F/ M3 E  W% Z( d6 N建一个叫做叫做Totals的绘图框就行了
: t7 Y! P3 b7 E
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-15 14:09 , Processed in 0.017621 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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