设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12253|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]9 ], {8 {9 a7 k
to setup0 e1 l0 T* E# d6 p
  clear-all1 b6 z' y' d! {7 W$ |
  setup-patches0 O4 }; j8 c( {0 `
  create-turtles 100
  y: R6 ^1 a6 t0 |- X  do-plots
3 ~+ n' I' _& K) n& Q  ask turtles [ setxy random-xcor random-ycor ]
- z. }1 k9 q" v- `  X: bend
6 B: P, v: `# c* X/ Sto go
% y" K1 W( o: p/ @2 Y  move-turtles, O! ~" o% g' v: \* \
  eat-grass
& ^- L+ ~$ ^* W" F' ?, ^0 x2 D  reproduce
% @# }+ f" A5 J. w  check-death% z( H7 d$ |  r4 _5 o
  regrow-grass
/ b# M% q4 K6 @* b& }' E  z  do-plots* {$ z: [& x' _# o* \
end
0 D1 P; [9 Z9 o7 S2 o2 r0 }to move-turtles
/ F9 Z/ h7 u$ B% R: G8 l  ask turtles [; G1 \) W  w8 C) g$ u+ v  f6 p
    right random 3606 f3 A* E; s/ U* P" m1 S' L
    forward 1
0 l  g% l- C8 A( a% {    set energy energy - 1
% ^& l" @" a  h; T0 m% B0 [    ]
" v# w6 u1 ~" d: X8 h  ], g2 M$ {. qend
" N- r( i0 w* r/ R/ x1 A, eto setup-patches% ?7 N2 F& W- T
  ask patches [ set pcolor green ]
- ?+ W; u8 w6 Z+ |! f! x& vend
" C6 f6 m2 d% B$ U5 V) z9 m3 t" yto setup-turtles
  ]# J0 {# K- G  create-turtles 100! d+ D) ]; h  C+ |
  ask turtles [ setxy random-xcor random-ycor ]3 h/ @. _. X: a: P
end
; s5 T! a  k0 p: O/ g/ g* ?8 [7 K9 mto eat-grass. G' ]+ R  R* S$ \4 w2 T% v
  ask turtles [9 e* a" D3 A7 X6 C6 n- |
    if pcolor = green [
$ S( E1 \) m6 H4 E, ?/ P7 h- @      set pcolor black3 U2 o6 J& t) t7 y- j5 a
      set energy (energy + 10): C6 A, O  D$ D  V) a1 {
      ]
( J& |2 V3 c3 K  m. c9 L! F$ _" }    ifelse show-energy?0 C. I9 i9 O, x8 F
      [ set label energy ]
; b0 z) U' x9 }; h! F9 Q- j      [ set label "" ]" S# h8 ~- G4 o: A+ P2 S
    ]% o0 w4 [7 |/ D! s# p
end3 k% d. F$ d. Y/ i! A, F
to reproduce
& c# W$ ?9 h4 n% J7 G% L$ ?  ask turtles [
0 I6 z2 I8 S* V2 V  s    if energy > 50 [
4 ]9 B+ h+ t+ g! Y& [      set energy energy - 50
' x5 l/ `, U) r      hatch 1 [ set energy 50 ]
  W$ j8 C5 {9 L      ]
& O% |+ F- d. ^    ]2 H6 ]6 }# J* g
end
0 I/ q& e& y0 U9 W1 i, {to check-death
5 w" v$ b, p6 v  ask turtles [% S% y( i6 n7 g% V( S( Q' y$ R. ~
    if energy <= 0 [ die ]0 s: c3 b* p& C- j
    ]
! W3 I( q; H: n9 Zend7 y6 B! U' p, U
to regrow-grass
' D+ s  q2 f% ?* Q- y# c  ask patches [0 e( f7 z1 a( f2 w9 |, v
    if random 100 < 3 [ set pcolor green ]& W. T9 h5 K5 N  `$ J
    ]" n- Q+ E3 J' c% d
end+ ]7 o& v- H7 G! D
to do-plots
% u6 l" P- q! `  set-current-plot "Totals"
2 W3 s- ?1 [+ x! W  set-current-plot-pen "turtles"1 I2 k$ z$ q) g7 }' ?
  plot count turtles
! F( l$ u1 z. k$ @# S  set-current-plot-pen "grass"$ c* f; C- [3 t1 Y: Q+ C- E+ L
  plot count patches with [pcolor = green]5 K! f: {, S+ {+ Y
end
) M$ t* N7 y" P9 l3 K  [可是运行时提示no such plot: "Totals"# R0 D& t% Z0 Z4 A) `
error while observer running SET-CURRENT-PLOT6 V; W0 M; k' P, w. h
  called by procedure DO-PLOTS
' ?6 R0 W$ {8 `1 n% j. L/ D  called by procedure SETUP
4 S& U" R( w+ ]1 C2 `3 I. D  called by 按钮 'setup', s! _9 D7 w3 v# i4 k
求大神解答啊
发表于 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 - q- M7 G, S5 x( N( @
建一个叫做叫做Totals的绘图框就行了
# r: o( m' a. l$ l; ~
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-8-5 08:30 , Processed in 0.015553 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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