设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10733|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy], R: W2 x6 ^- I+ I3 ?$ w
to setup- `1 J0 r! i& U9 ?2 v" V  q9 Z
  clear-all8 z  @$ |/ ^& Q0 S7 L+ ^
  setup-patches5 ^, y5 s) ?# g  f3 |( ^6 U
  create-turtles 1000 ^# D( Y; [/ n/ ?" ?. P9 g, [
  do-plots
. _. F2 K% [$ ^  h  ask turtles [ setxy random-xcor random-ycor ]! d1 z% A- r/ c* C$ S! y
end9 f( A+ j# Z! t, m
to go  ?: u8 L/ L" [# c
  move-turtles
8 X4 S- ]5 {7 S" c) m  eat-grass
2 \. @) h  X: |- T. ~0 f' d  reproduce& C) s# j2 W6 ~4 A9 x- S
  check-death% [  m5 m6 s# s) F$ X* l
  regrow-grass
. ~) P3 n) ?8 d# t: v( X  do-plots; o& U' A( ~" {6 G3 `
end
# A. X1 d0 U0 U8 l: X0 }. Nto move-turtles
8 q5 Q' l2 n. Q- L+ k- G  ask turtles [
  B' H1 G( L0 k# M1 u    right random 3607 a$ ^+ y9 u7 q4 S5 s
    forward 1
6 F4 O2 s3 |1 C6 _! t6 Y  z    set energy energy - 1# a- w8 n+ n# Z! h/ a7 o
    ]
$ e! m6 f/ r; c* z. X2 F* c# t( kend1 t3 F' {9 C8 C5 x# Y- t
to setup-patches  g% w9 h( N' j) I3 N2 t( d8 E$ g( T
  ask patches [ set pcolor green ]
" v4 }& N8 _0 W4 Zend! E6 Q0 T$ I$ J" C) e% C
to setup-turtles. c& I2 x. `/ V0 ]1 h( a
  create-turtles 100
7 H0 D. ]3 o3 Y3 }0 k  ask turtles [ setxy random-xcor random-ycor ]/ b  b/ Y* {. q. f
end
3 Z7 Y: q; @/ R9 x9 cto eat-grass
" J3 y3 |( g% N% F+ N9 X. L- ~  ask turtles [
0 x' j& W! K2 H" b& ]* C1 v. ]7 o    if pcolor = green [
! K7 o0 g: w0 r1 C      set pcolor black1 o0 {) h, |+ K% G
      set energy (energy + 10). N' _5 a9 A7 g  k+ \) v8 M
      ]1 X- _" I1 `) E4 T% T. N: C$ x
    ifelse show-energy?
3 k. e* s# E* D& j0 j$ G, v) `; b      [ set label energy ]
6 m3 r  O7 k3 s' I" N( S4 Y5 y/ O- f7 l      [ set label "" ]+ ^* c! |0 R( p' c/ f) t* c
    ]
- T4 R$ s8 D) x2 oend
  r! A# Q' v8 U1 rto reproduce. u8 R' T0 ~3 f, n. D
  ask turtles [
& E, w/ x$ g: H- G$ X    if energy > 50 [8 L4 M& b. D1 o' C+ }' k6 \
      set energy energy - 50
  H+ I" V1 u4 V. F' h* ^9 S      hatch 1 [ set energy 50 ]
4 e0 q% o$ b) r      ]% T5 K; s+ v4 V. U. O: k) k5 J
    ]
0 D7 K  R2 c& h8 {! Oend2 I  _: w4 ]4 R8 Q; u
to check-death8 W. {+ ]5 x5 T6 n/ ]" d  m
  ask turtles [, P5 v% v" t/ Z) P, A
    if energy <= 0 [ die ]+ `9 C1 D! J3 @0 K# U; f: P
    ]" `9 u, ?2 i" y1 \; L
end
+ a( y( C% d& N( Jto regrow-grass% t9 j+ S4 y$ Q6 f$ z5 \/ ?
  ask patches [$ q" ~2 x+ b" O" |8 l5 |% x+ w
    if random 100 < 3 [ set pcolor green ]
/ [7 A  D- [" `! N4 Z5 C( j    ]
% d; d% X- d5 H2 e0 U. tend" E2 {# ~) E! W4 ^5 T* ~  U
to do-plots: q. i( y" L3 a$ M) J- o$ J: ^3 H
  set-current-plot "Totals"
* Z0 L3 v/ d/ z- w  set-current-plot-pen "turtles"
/ s) n1 K; t6 e: ]8 v! f/ q3 d  plot count turtles# }9 z6 d" L* D
  set-current-plot-pen "grass"" z) ?$ y% u) c& p8 i
  plot count patches with [pcolor = green]
; J* E8 j: Q8 y) pend# ]+ T: |) |1 r3 y' x
可是运行时提示no such plot: "Totals"
8 s0 `) t( G! l' Yerror while observer running SET-CURRENT-PLOT$ x! r$ }# N5 d& B: w  U
  called by procedure DO-PLOTS+ _2 G2 C& Q% N5 D5 }9 w5 V
  called by procedure SETUP
! l$ B& L2 `2 ~4 S0 r  called by 按钮 'setup'$ I- B% s4 a, c5 k0 N2 n- O$ U: 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 + A( X6 W3 R* f4 o$ _- ^$ k- ]/ i
建一个叫做叫做Totals的绘图框就行了

4 X4 N6 ^3 M9 r  R3 a5 Z( u: `2 Z哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-7 10:23 , Processed in 0.018142 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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