设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9734|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
7 O5 j1 H4 b4 s. j" L+ t# _. Q  Eto setup
$ [; ?, ], L0 u. ?  clear-all
% ?' ]! [, C( @  setup-patches+ f$ M2 G- ?( Y- ~
  create-turtles 100, I, d; n4 g' t5 Y3 J
  do-plots
# C+ V! C4 n. _: @& u& l1 h  ask turtles [ setxy random-xcor random-ycor ]
9 l: k" D7 S, I% `8 Y5 Vend
; e/ i; |0 ]; I! bto go3 a9 W; {4 b4 A: \
  move-turtles+ a) r: ^% N/ A4 t" Z
  eat-grass
; C) R, Y" B: j8 \0 Q' B0 O  reproduce
5 V7 q* J! h) n- K: N) V  check-death
# x  Q# p. T8 O: a2 G  regrow-grass- W% s& x1 S, h
  do-plots1 k8 O/ ^" u  W4 C4 P4 @! X
end. Y' Q) p: n5 |
to move-turtles
$ |8 o0 y( I7 I  i; m$ O9 Y  ask turtles [
: i' o  l; G: G( q6 {    right random 3609 e; P/ G4 r5 Z: K0 ~/ H$ T" f
    forward 1* \9 r$ @$ u' i
    set energy energy - 1
/ M+ @9 v7 q* i    ]$ _$ W2 ?; M' R! N5 m7 ]
end
# ?" R, b0 J) Y; ?* a' kto setup-patches/ F# |! i0 n' e- `
  ask patches [ set pcolor green ]
6 t$ b! _0 E( n/ [6 u( s2 I) xend
$ |) a" d( M5 Cto setup-turtles1 w9 N3 r2 G: h# k$ |9 ^2 l
  create-turtles 100
. _# N' l! W8 U% b  ask turtles [ setxy random-xcor random-ycor ]" E* u) Y# `1 `1 r& q
end
) V4 ?6 C' c! T$ r# xto eat-grass' u" ]; n/ A8 v6 t6 a* }0 V4 U
  ask turtles [
: ?. l) E( f0 S+ [" \9 R$ p    if pcolor = green [
* ^5 @# e) z, a3 k" R      set pcolor black
8 c) r. e; X: s& T* v      set energy (energy + 10)# Y+ c! y; t1 D
      ]
- Z! I& }1 D* O4 Q    ifelse show-energy?& z6 c1 A' ]2 ^
      [ set label energy ]
: v0 o  V/ p: q6 L! q* b* D3 ^      [ set label "" ]! `$ K; u9 z* b: E/ s
    ]$ Z" i. r2 @/ {% K0 M, x9 I: ^
end* E2 d" ?+ f3 v7 q
to reproduce& ^/ @+ H/ |. G/ k3 G5 I% o6 U/ `
  ask turtles [4 D9 k2 v& Z3 k( @2 u% e( v
    if energy > 50 [
9 D* a0 o* C. ~- \+ r4 {      set energy energy - 50* ~; z) \7 ?5 S& K$ g1 \; S
      hatch 1 [ set energy 50 ]
& z( G. n  d. M      ]
% C! [5 E# }! t; S    ]9 u7 P$ ^4 Q* g# @9 W! r" g
end+ A+ V2 W) ^* l" w, U
to check-death! v9 f% ]- `1 E- ?, T$ ?
  ask turtles [
, [1 Z- W8 E( V. j& w% }: v4 b    if energy <= 0 [ die ]( C5 V  ]  I: Z" l3 @6 ?7 d9 M
    ]
4 ^! G( N- }$ j1 H  q* n# A! ^7 d2 Vend
0 A& J/ V3 o, \! mto regrow-grass( m8 H8 C2 D3 j4 x& D; z2 J( j
  ask patches [' `  t9 z" x# ^  u6 _
    if random 100 < 3 [ set pcolor green ]
$ S7 c" _' K* b. j3 c) e    ]
9 e+ H: p  j' Q' ^+ O2 ]( p2 Hend
4 V$ X# r. B: x4 \6 A3 sto do-plots
0 |( j- z+ T' g2 ~# H/ X$ ^/ y. }6 i  set-current-plot "Totals"
# ~2 B# C0 t+ U* ~  B. g, l  set-current-plot-pen "turtles"
3 b% f# m; p0 p+ g9 [  plot count turtles
3 U2 O! Q5 \- G: }4 x  k7 v. s  I  set-current-plot-pen "grass"
1 {( w7 q' e' X  plot count patches with [pcolor = green]
# Z* r3 \% n5 x% f' J$ ^, Nend
  z" u9 x5 d* ^' l' O可是运行时提示no such plot: "Totals"
, x2 u% a+ g2 Gerror while observer running SET-CURRENT-PLOT! S/ ^6 Z& K5 j2 f0 u& N% A
  called by procedure DO-PLOTS0 w: W2 Q# b6 m4 |9 ]( _
  called by procedure SETUP
, K6 ~! b4 Q6 k( [, p9 I$ H  called by 按钮 'setup'
$ G% i/ \% Y, x7 c求大神解答啊
发表于 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
4 o6 W5 n! j+ h. K  ~建一个叫做叫做Totals的绘图框就行了
& K* ~& U% d8 V" c7 r" q7 q7 X
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-16 15:26 , Processed in 0.015408 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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