设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12885|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
; O1 Y. h" X" G- ato setup
, a0 U$ @' p" [4 A1 |/ a  clear-all+ C" p. [# q" |0 _
  setup-patches% ?* l5 H( n! R. ^- o. l
  create-turtles 100" N' a. `% R: `
  do-plots
1 X$ |1 b; N: n- L  ask turtles [ setxy random-xcor random-ycor ]
" v0 C1 m6 t1 x  h$ |end
* J1 m2 J: E, i& y* Kto go" B; \. L3 {8 j/ v! p9 v2 T- t. q
  move-turtles! M+ m3 S- n& J  c; n
  eat-grass5 z$ c7 Y  z( }; u* ~- ^5 S
  reproduce
/ P1 p& Q. D9 e& M" Y  check-death4 T. w0 o: S  p& L: I: {
  regrow-grass* w" m5 v8 \( q6 k, _
  do-plots
. d, C% A) d$ m: g# @/ hend' H( V- {' m! Y: M* ?" W/ W
to move-turtles
# S5 L* ~, m0 l2 M) A  B! O  O  ask turtles [5 h# M$ I5 S2 |$ O- a8 u1 N! ?# ]; z
    right random 360/ |" \, m) D$ w5 B1 ~
    forward 1( O9 r1 {3 O% z
    set energy energy - 1' m" R5 G- C0 t; G6 k6 K7 G
    ]
. Y( l9 e( g% ?: G1 nend& s/ B! A* G# N1 A: h7 ~+ f4 ?
to setup-patches
$ I3 [( {) L) B+ o  s  h( r3 M! K  ask patches [ set pcolor green ]" a8 ~# z: {* N5 h9 U
end) C% f: [5 a) y( B$ d  \
to setup-turtles
6 }& i/ M$ {- j: j, S  create-turtles 100
. c, Q: }8 Q1 l  ask turtles [ setxy random-xcor random-ycor ]2 e6 [1 X9 T9 e# U  ?/ I) h1 Q6 t0 A
end* \7 m/ f9 w. q. D0 F
to eat-grass6 z' `0 m/ |! X: o' h" W
  ask turtles [
( s0 w& O+ Q3 l    if pcolor = green [( M) O1 g* w! m2 o2 U9 `6 }
      set pcolor black
; j( O3 q) [5 f1 p2 Q      set energy (energy + 10)
5 B' j& N( w5 }7 h" @      ]
# k* k7 O9 t7 U' x& [7 [    ifelse show-energy?. P' R- Q, Z$ x* a' E' d
      [ set label energy ]/ N: m' h8 G$ X! j; c/ a
      [ set label "" ]
: [: b% S1 k8 e9 y( E    ]
% n" a7 z  C- \3 Gend
7 S4 P( E+ Y% \8 _to reproduce  @9 K3 _1 U+ z, q
  ask turtles [1 N4 N1 i+ u3 Z+ m3 b& @" U2 N9 t
    if energy > 50 [5 J: W) x$ i* t4 `9 a. D
      set energy energy - 508 w7 c3 w# x4 ^1 _+ p
      hatch 1 [ set energy 50 ]& s3 T0 R" D, Z
      ]* p1 `( A& @; ?
    ]
8 Z4 [) D3 l/ l) B5 Y8 {  N2 [% `end; C% V% V5 O$ F5 E% m, @
to check-death) Q' x8 [3 w3 _6 \+ H
  ask turtles [
* ?9 v, M* [. u    if energy <= 0 [ die ]+ E; z" ^  X0 A/ v
    ]
: a9 Q* K/ O" m6 ~5 }- y  E3 d1 xend
- C, [5 ^% E7 Hto regrow-grass
/ _  Z* d# a/ |) @! R3 k: N. k  ask patches [& w, L9 ^# S3 n- b
    if random 100 < 3 [ set pcolor green ]# _8 v- W8 w; ~8 {# p1 i( D' r
    ]) `  @% u! D# b3 z7 t$ X7 u/ }
end8 C9 a* \3 u2 ?, l6 Z& v7 E
to do-plots1 x7 r* F4 H- T- M' f' i
  set-current-plot "Totals"
, w( D0 b! Y0 G1 f  set-current-plot-pen "turtles"3 D  P9 z0 X  u4 @" E* R( c( J7 G/ I/ b
  plot count turtles6 Q: o+ m, L8 I6 p: P8 d
  set-current-plot-pen "grass"
$ t4 [. I( p- B( k" R# k7 a, g7 S7 |  E  plot count patches with [pcolor = green]& f% }- L2 w; F5 C
end/ m8 E* V0 }$ ], b1 ^& ?. ?1 m! d! d
可是运行时提示no such plot: "Totals"9 A% G+ U* w  Q9 q
error while observer running SET-CURRENT-PLOT
, u% n1 H2 z# M: B  called by procedure DO-PLOTS
! ^; _2 M- s7 j- Y) b* d. p  called by procedure SETUP! [; y) ^, h5 e7 L' @" Z
  called by 按钮 'setup'
$ n5 Z7 }  I! S* k0 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 2 M" q' f( h1 @7 g
建一个叫做叫做Totals的绘图框就行了
+ w' r- ^0 K3 M  N. L  k4 G
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-9-20 22:35 , Processed in 0.020115 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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