设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11798|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
4 L1 ]# {  k8 Vto setup
/ ~, x7 Z5 ]% J! j5 w5 w- C  clear-all
  f! N! b5 {1 Y. U, L; f3 n# C  setup-patches
8 Q# V4 {: b4 b0 U6 b) |# }  create-turtles 100
, o; Q2 d: O/ `8 W  do-plots
$ h9 c3 e, {6 G$ X  E" ]  ask turtles [ setxy random-xcor random-ycor ]
2 ^" m- W0 _5 O/ Cend
& R8 \; ^1 d% H3 @! Vto go
5 m. ?- c3 G1 O  move-turtles
0 o% H" n, }) F; @: d: e) z  eat-grass& V; v9 Q# e# [- \$ f
  reproduce
2 L" \8 l8 r  L8 f& l- g  check-death: F3 i8 t$ r' `; |9 h: f
  regrow-grass; C) f9 W0 a: |# H+ V9 a' c6 O$ g
  do-plots" G; b: L0 Y' \' G4 ?' X: M9 G
end8 b- m) z# P" x# `, W" J
to move-turtles
* v3 d$ |6 g; w) f1 r8 c  ask turtles [
1 j; v6 P' B) S$ ]    right random 360# P. Z, `* g& o5 c- K3 g& m
    forward 1
, P- q7 d  k4 R& ^/ U    set energy energy - 1
9 ~: a/ L/ i9 x7 G. p8 i    ]
* \7 {# N) P- E: Cend
$ v3 }- ~4 f0 m3 _: N" h; lto setup-patches5 W& u4 v0 q( `1 f, s
  ask patches [ set pcolor green ]
$ O' x& q$ M3 F3 Oend
: u! |) r! K0 A2 q) q/ v" {to setup-turtles
8 _" Q7 m8 v8 R  create-turtles 100
: J, l  R8 z4 _' _6 m  ask turtles [ setxy random-xcor random-ycor ]
6 S' g& l2 ?; l0 i5 uend
1 y, R1 O! c4 d8 N" O; _to eat-grass+ z) p$ w( @) J8 q, l* A, G2 U
  ask turtles [. ]$ g- Z+ M9 R# v- ~2 L& L* j
    if pcolor = green [
6 L- q4 m: {' w+ \& d1 l0 s) q      set pcolor black2 a$ s, J) f" _4 Z- g
      set energy (energy + 10)1 e7 O' G9 n* R* E% z' T  w
      ]  j5 A3 p6 n8 x& L; n- U
    ifelse show-energy?' e2 Y5 I9 t) P6 e% O! L+ J- k
      [ set label energy ]
1 U" h7 C; r( r9 b1 x      [ set label "" ]8 |4 o  }- d& Q6 b" @  P
    ]% y8 U1 {5 k7 \; x% ?- L0 ~
end- s* Y* k7 W* n* C
to reproduce, O4 q2 G* w  Z8 d# r$ g
  ask turtles [
+ |% e% A2 ?7 R4 g* R$ C% [    if energy > 50 [: T' j) d/ _% `3 }; b+ o" }
      set energy energy - 50; M5 u1 i5 E1 q# @
      hatch 1 [ set energy 50 ]+ a0 N# f) w: @$ x. K8 A$ W
      ]
  ^& ^; `# J% S" @; x( B    ]. d. b' ^1 I5 ]  ]
end+ V  A% C( G( {
to check-death
5 ]0 W' `. _* o' X5 z. f  ask turtles [
% V6 I% H/ J/ F9 B, `    if energy <= 0 [ die ]" x) e8 ^: D' ^0 Z8 g* ]
    ]' B3 w3 I3 ^+ Y" B
end
2 \9 v# u8 \- Kto regrow-grass
0 l" P( k( ~3 v! w  ask patches [: e& c/ _* {- o+ {. i$ u6 V
    if random 100 < 3 [ set pcolor green ]
, v$ _4 h5 J7 J( N6 x8 ?    ]
' L7 Q1 c9 T- A7 A, w  Nend% `) K$ e6 H2 x; l
to do-plots4 }, ?/ F2 ^; T7 H! O4 I. W# f
  set-current-plot "Totals"5 M5 l/ D" Q: O% v& {
  set-current-plot-pen "turtles"8 _0 [' e! N5 `, f" X
  plot count turtles
/ d+ W& O1 U7 [+ l2 m, E# M5 {  set-current-plot-pen "grass"' ~- g& s' ~3 d) ~; N
  plot count patches with [pcolor = green]
: N" \$ G3 }3 A) Z0 I1 n6 |+ Uend
: m5 ]$ r  r$ Z/ b) ?- A; P; }可是运行时提示no such plot: "Totals"
/ C; v( k" B- \8 ]6 x1 kerror while observer running SET-CURRENT-PLOT
# \: e6 ^2 |6 p/ b) J" ~. Z  called by procedure DO-PLOTS
4 K! n: ^! G: S! F# @8 r  called by procedure SETUP
1 N7 ^% ^4 l( O, Y  called by 按钮 'setup'' p8 ~7 ^+ f7 ?, S
求大神解答啊
发表于 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
5 t4 e2 _3 a  m8 }, \建一个叫做叫做Totals的绘图框就行了
. [% q1 Y9 i5 O8 v  S$ r8 \4 B( g
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-7-1 09:54 , Processed in 0.017206 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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