设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9194|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]3 V& `1 Y7 [% N* W) d( c/ A
to setup
0 l9 w  Y  ~4 N( Q0 D. v  clear-all1 t0 c2 _# A! E0 C
  setup-patches
  q/ R6 J9 E/ ]/ H1 X  create-turtles 1006 X4 t7 g! @5 g+ b3 ~
  do-plots
+ E3 @' ?# X1 ^5 a  ask turtles [ setxy random-xcor random-ycor ]& A! j4 ?5 \9 Q, {4 T6 Z& P6 R% W+ p
end( Q8 @; }7 m  W1 w# d4 X7 @) s8 a# W
to go- W9 \7 e2 p+ c0 x
  move-turtles+ u4 [8 h$ J: u0 r
  eat-grass7 z; H) i5 d3 z  q% `
  reproduce8 c8 ?) c& r0 Q2 C, j. N5 v
  check-death: w  D0 U2 ~; D6 X. k" U
  regrow-grass
' H" R) {5 Z) P6 ^  do-plots
9 ?2 g: M/ ?5 x4 B- Hend  }$ K# ?$ G9 @0 z1 o
to move-turtles! F8 i: ]5 }8 m+ Y- w; i7 P1 A
  ask turtles [' l+ y* x# Q! @' w6 m! z
    right random 3604 f2 s* U' U$ ?& r( E! u
    forward 1
5 S5 n3 z5 d: c" N" t! E+ M    set energy energy - 1
! a8 {# t. o" ^" Y5 T- x    ]
* S; M2 Z# t# h2 d  aend
" y1 q& v6 s( [3 uto setup-patches( X) F0 g' o: U) q$ l0 x4 O
  ask patches [ set pcolor green ]9 m+ g2 n9 M" J5 ]$ K: R' W
end
. F1 k9 E. U/ H) g2 D0 s. u1 F3 tto setup-turtles& O( l, J, Y3 V9 R6 }
  create-turtles 1009 e5 _3 z. [* |( F+ O
  ask turtles [ setxy random-xcor random-ycor ]
' b1 A3 L; l4 I2 B( Q. C( A) Kend
! M* J# D. f+ |' Tto eat-grass
, m# [9 C" r  o2 m  ask turtles [
2 M5 P8 U7 I& {1 B6 O, N1 w    if pcolor = green [
: v$ f7 t, C) r) t2 H$ ]5 c      set pcolor black+ e" g$ d% j. ^- j' @
      set energy (energy + 10)
( u) f3 |3 n" i- g      ]
: z. y& T# e5 H0 ?    ifelse show-energy?. ]% `" Y) O7 Q: ~6 n8 B
      [ set label energy ]
5 p# a9 U4 l* D4 \      [ set label "" ]% P# q6 `' N( A
    ]- \2 a4 w6 [0 m1 h
end7 E1 w% z: Z. s% B7 ~9 k4 i/ G
to reproduce
$ u, l2 d  m4 x: K5 }8 e" r% o  ask turtles [! v9 [8 b% O  x+ P
    if energy > 50 [
3 }1 c1 w( N; [* k  v' D' D) ?6 p      set energy energy - 50
+ F7 h0 C' j  L$ G( D      hatch 1 [ set energy 50 ]; v% w: o! M' g: O6 y, Q
      ]! `2 {1 V7 r4 U5 m, B: K, G4 u" U
    ]
  E' S( V: a$ U6 [$ ]end
) @9 D' O, ?& X2 v9 r/ T& Dto check-death  m$ Y( u6 [' {1 e( |
  ask turtles [
0 q# o6 l2 R/ u5 y  {0 p    if energy <= 0 [ die ]+ [0 Z9 b! F' K# b4 R
    ]
! Z/ V1 M, y$ i7 G% l5 Fend, R2 n* q; M/ i  j1 s
to regrow-grass
: I( k9 m! ~$ d. Q$ Z, c  ask patches [7 G' S- y# A7 ^/ w. |# w3 a
    if random 100 < 3 [ set pcolor green ]
. M2 p7 H# c2 e; n6 l. {% |    ]. X8 T: @7 @8 b
end, x- ~% a7 x" O0 k* ]/ [" N8 w
to do-plots
" o" G6 p7 B. t5 o1 @* Z! {  set-current-plot "Totals"0 K. Z% v1 V% @/ L, O& P- Q. m6 `
  set-current-plot-pen "turtles"2 `1 \' |* V) `& y3 `8 A
  plot count turtles% w" i; `, r% h; m9 g, m
  set-current-plot-pen "grass"" x; m# I! x6 v: F" e) N
  plot count patches with [pcolor = green]5 ^0 T3 F8 p' ]: R
end
& X: h6 E2 O! X; i  H  F3 G可是运行时提示no such plot: "Totals"
# `6 H9 P% T% W7 }error while observer running SET-CURRENT-PLOT$ B# P- y+ ^6 k) a% G0 A$ T* }4 G
  called by procedure DO-PLOTS
& S. F2 @/ R/ h/ f0 D* `( }5 Y3 O3 A  called by procedure SETUP
- |. W6 D7 A! o8 k: F6 J3 X  called by 按钮 'setup'& z, W5 j4 E8 p% E9 M% ~
求大神解答啊
发表于 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
" n( |3 f5 c8 [0 E2 e  w" s9 h6 r# p建一个叫做叫做Totals的绘图框就行了
6 [# F6 L2 G* _+ m
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-11-24 10:44 , Processed in 0.024872 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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