设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11352|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 s6 ^" z7 E, F7 Oto setup
! ^5 L. y" H, |6 d$ @  clear-all
( ?  W. y" k3 Z# d; p- z0 L2 ~  setup-patches
/ y( d* i+ Q% t& [$ }  create-turtles 100
3 j1 N* j& B7 h! l  do-plots
+ }7 a: y8 B+ J$ V! D- A3 p! e0 U7 k  ask turtles [ setxy random-xcor random-ycor ]: X" A4 ~+ Z/ ~
end1 ^5 e& P( Q# Y+ G7 P
to go% Z. F% a7 ]" Q5 D! M
  move-turtles  V7 e( }$ D8 M* W* ^
  eat-grass
* T, S& k+ L! V: _4 Z5 c( p  reproduce
; I* r" n4 L+ X  check-death' f! `- p4 r- x5 F8 ?" ]
  regrow-grass: Y/ P0 {; R& P
  do-plots  m) n. \' b: p& X" c% d
end( O' c# I9 x1 ~  Q0 x# a6 [/ J
to move-turtles
2 f3 ?& `, Z) W: D  ask turtles [: O8 d$ d# K0 s: e
    right random 360
' O$ \9 O/ B  A7 m  X    forward 1
+ _! h: A6 p7 T6 J* E% I+ S    set energy energy - 1
8 F% Z3 _2 T. E2 a    ]
+ k) a! v8 h) b" M1 h) |! |end
1 f( |6 e6 R* \; k$ tto setup-patches( M5 Y4 D1 T6 _' H% c& z! [  q- K
  ask patches [ set pcolor green ]1 @. j+ ~9 p$ }1 W+ R/ o; h! b
end
' ~& k+ t6 a  s+ U: o2 j6 ^to setup-turtles
/ V. P4 _! {+ G2 M' t" W- ~  create-turtles 1001 s, Y, k1 \$ U6 ^6 I
  ask turtles [ setxy random-xcor random-ycor ]) @  f; D6 m* J+ x
end
( i' v/ y7 b" a3 Q8 N7 _; ?to eat-grass
+ v! I/ Z$ w- a, o6 S& J  ask turtles [9 Y4 P& y) O" X* O* j6 f' s; \, O
    if pcolor = green [
- W* k8 C3 f# U* `5 C      set pcolor black/ d# p$ s% S/ L# Q4 P8 T
      set energy (energy + 10)1 b0 z7 g- p4 {" S5 K9 b
      ]; y" @8 e$ Z0 q) |' p
    ifelse show-energy?
% q" E  ?" n3 h( i( u      [ set label energy ]
  s. g+ M3 k0 }. j      [ set label "" ]$ V! L3 F5 r' a2 ?' u' j
    ]
9 ?- k$ I4 @4 }- `end* p+ l1 ?) X+ ?; C4 B9 M
to reproduce
  o5 |2 X4 @8 P2 x  Q  ask turtles [
" k0 g. b# U4 k( T3 l    if energy > 50 [
( T+ h: U- A8 ^3 ^5 W- H4 c      set energy energy - 50$ |5 x# @. }" B6 j
      hatch 1 [ set energy 50 ]
$ o+ y0 z7 s& O      ]; f0 u8 L1 x: T4 P
    ]' q# F3 U7 V! k. M5 ?4 m7 ?
end( F( g5 O- A# k. j2 [
to check-death$ I  V7 ?1 E6 y  e
  ask turtles [% `6 R6 N5 N4 \- W) z' m% `: g
    if energy <= 0 [ die ]
$ j" x8 L, \) @2 [, d8 ^) N    ]  m9 \% f0 `7 O# B6 r/ c0 [
end
$ y% T7 C2 L0 S$ X; }5 V6 K9 rto regrow-grass
" w6 D: W. o( f& q7 l  ask patches [
1 I. }. N2 W# d, }+ _  V: N- ?    if random 100 < 3 [ set pcolor green ]$ U& ?5 Z- q5 c1 x& d
    ]
& j; h% D9 S/ L) B- p6 Pend
6 c" f: t+ G' Y! M, jto do-plots
0 y# j  c: C& J; S3 G  set-current-plot "Totals"
& x: A% m  i8 {  x  set-current-plot-pen "turtles"
* u3 w+ I" `( }; ~& M  _9 r$ ]  plot count turtles: F1 b# {4 R  @
  set-current-plot-pen "grass"- z2 A/ M0 f5 z$ X/ o# m! O; B& r
  plot count patches with [pcolor = green]& {! q* M! Z! f0 _0 [; f
end7 w  }6 Y( b: M9 ^* T
可是运行时提示no such plot: "Totals"
2 Z! ?' |4 l" |; @5 Berror while observer running SET-CURRENT-PLOT
! H$ G2 x  g8 H5 Y' Y% t0 M; F  called by procedure DO-PLOTS
! H( q4 a4 K7 P/ A  called by procedure SETUP; ]$ q2 F  k' ~7 U( d( b5 N2 I. {
  called by 按钮 'setup'. F$ G& \% o! h& p! @' m
求大神解答啊
发表于 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
* }/ U1 T8 a" W4 R) J/ q! ^2 X; m8 O! K建一个叫做叫做Totals的绘图框就行了

! m" G2 ^! A/ P- w+ d$ H0 ~* H7 o哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-5-20 23:25 , Processed in 0.020634 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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