设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11704|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]! k$ E; n% A( K1 e8 p  A- s. @  ]) g8 o
to setup
) E. W- O! k( ~$ E, [" ^- m  clear-all' h6 V1 a4 X5 `- C( v* E# j7 {5 ~+ B  }
  setup-patches" L! K& g5 H/ {) W3 N4 F4 z
  create-turtles 1000 l0 P4 }! m  {
  do-plots8 K, ~8 V; u+ L) A
  ask turtles [ setxy random-xcor random-ycor ]
  T) z0 P$ r% [! pend
7 O/ N  f( ^- S3 I2 z8 a) X* pto go
& [2 o, r5 i3 y. q; D2 T  move-turtles
, h# E8 m$ A' x( k9 ~+ ~+ t  eat-grass
' [7 P) E4 r# _, F  reproduce
. \; w" ~! |4 c. [: l& g  check-death
  }% f! o( L( Z9 o+ @# a  regrow-grass
5 J1 |1 S& ^; F- g  do-plots
$ x- v; R, s- y" Rend1 f+ p6 m, ?" g6 S
to move-turtles
- m/ v/ ~: _; o. M  ask turtles [
6 b/ Z0 s$ m' E8 Y3 t0 O! h    right random 360
# g1 P5 j; u: o# q    forward 14 ?1 m5 T8 [4 D3 }0 G# E  h
    set energy energy - 1
* V  T! M1 R2 `    ]! r6 I8 T3 R. m2 e) S
end
# J' R! r6 h" X' Y  i2 s- |to setup-patches/ r, M/ c3 s: m. b5 q
  ask patches [ set pcolor green ]4 S" q  w' Q: p
end  B3 }; ^! n1 I! m
to setup-turtles% h5 J; A2 x# k* A  Q0 C2 R
  create-turtles 1001 P/ G7 }+ @$ g8 M+ t; j
  ask turtles [ setxy random-xcor random-ycor ]
* p. m  C/ I6 q) `( P0 @/ d9 rend
& C: X+ ^3 I: u: L8 D4 H: R& vto eat-grass
7 q- n1 u5 w+ D  ask turtles [0 i/ }6 T7 W" D) {0 |
    if pcolor = green [
+ f: y$ S" j7 T( n4 T+ L! J; o      set pcolor black" }$ J, P" _9 e( h2 e( \+ _% R
      set energy (energy + 10)
: Z3 I3 X3 }# g0 G$ Z+ `  C      ]
: P# _" i9 |3 n! f2 ^7 ?0 |    ifelse show-energy?! K9 O! n! C4 U4 f5 j: M
      [ set label energy ]
' B4 h3 K" u( _/ u: M6 G3 \      [ set label "" ]
) s7 b0 o: q+ T5 D5 B1 ?/ ~' B    ]
- @/ P1 e  r' Kend
: i& r" w& d  A8 Lto reproduce/ k, g: }' S. ]# D9 [% j
  ask turtles [
& n6 ?( W( W0 w    if energy > 50 [/ b9 T5 v3 p& F4 h4 N
      set energy energy - 50
+ S" @5 o/ R7 K" V8 L2 i      hatch 1 [ set energy 50 ]
* K/ j2 |( e! \7 h% l  ~      ]' v: O# ~/ @6 q6 N9 S$ x  o; `. ^
    ]
5 |; J, P% d# K- Q# R4 C  gend" p' H5 b, O- D7 A$ u! U  H* N
to check-death
% x# }3 j  `8 F* v" r( U  ask turtles [
8 C; [% R0 y6 k* p" v    if energy <= 0 [ die ]
- D: ]2 ?6 ]; z! @, [+ F    ]
! x0 V+ c, ?4 ]  H+ w! Z- U2 n) I' `end
! v0 Q) i7 K0 qto regrow-grass1 z( M2 ~( Y+ B/ U5 C" R
  ask patches [9 _6 V! K% W( k! N* u" P& `8 J
    if random 100 < 3 [ set pcolor green ]. x  \' @  ?: Z; O
    ]7 [8 }  b: T5 D2 K: G
end
2 p  }( C- I4 ?  W3 A5 R' yto do-plots
3 S6 a- X0 b- x9 {9 r' k  set-current-plot "Totals"
+ F% [3 C& q% O8 E  set-current-plot-pen "turtles"
/ c' v6 {* k+ G$ |1 G7 c$ B  plot count turtles/ ^, p: i7 l. v$ U3 p/ U& z
  set-current-plot-pen "grass"+ {. [4 v$ z$ U( Z5 p
  plot count patches with [pcolor = green]6 n4 g* x5 T9 V
end0 F8 W: B' d; t' H3 a2 i
可是运行时提示no such plot: "Totals"1 m- i; Z* T, n* l, z( z' M; P
error while observer running SET-CURRENT-PLOT
" D. j4 S' I  ^8 W" s0 u  called by procedure DO-PLOTS
- E! J" [8 ~3 Z% a  called by procedure SETUP
$ Y8 F# j2 |+ U2 X  called by 按钮 'setup'
1 i5 q# k7 O) P" t+ ^' ]求大神解答啊
发表于 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 6 b* C7 ?( U, U! o5 @
建一个叫做叫做Totals的绘图框就行了
2 k. v: |* \7 x0 G5 z
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-6-21 12:26 , Processed in 0.015083 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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