设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11285|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy], j! l4 L  l' T: d' y* r
to setup3 L8 A( z# z2 b4 D
  clear-all
7 S# ^; R+ @$ `) ]/ o, K  setup-patches* ^+ M) [% W1 @- v
  create-turtles 1002 H% ]% h0 `. ~/ ^0 g2 s  n
  do-plots, Y% o* |) P# `* [
  ask turtles [ setxy random-xcor random-ycor ]1 r, S& \1 w1 b7 y& w6 E! q; t
end
$ `" n( \5 H  \  C6 C. l) w/ f. m7 zto go. N; q9 J5 p5 N0 ^/ V& @; @
  move-turtles
( {! f1 q0 t( ~5 A0 c% ]  eat-grass# I' B+ u/ A4 c0 K
  reproduce" x$ L) c# a  \) N0 [7 y! G
  check-death
+ c4 Z! L# |$ g3 {+ P  regrow-grass
5 `; C7 w2 X. L0 w0 ~( ~4 [9 j  do-plots
8 M# s5 A! c/ R' K2 ?$ cend
- [* i% w3 ?/ X2 a1 H# Gto move-turtles
2 g5 N! v4 l$ R  ask turtles [
; g0 K5 t1 g, o* H    right random 360. r# M$ \+ m8 b* P0 W6 v
    forward 1# T" [0 P* a  v5 a. W1 Q4 _
    set energy energy - 1
' u* ]8 w, }3 J# d    ]
4 ^" I( Q* A+ k! e5 i  o' @end
- e6 N" P7 L9 @8 {' sto setup-patches
2 b; F2 _" Z6 n$ L3 v* x  ask patches [ set pcolor green ]) }  n' ?" m8 g
end
. E8 Y) \2 C, Zto setup-turtles
" g8 x( t" M+ d! `" @, L+ [  create-turtles 100
3 A9 U' I0 F/ ?+ w6 s% O4 h  ask turtles [ setxy random-xcor random-ycor ]/ e: W. e; {6 J7 }- c
end
$ j% p6 f  x% ^9 y- u8 o( ]to eat-grass5 P8 @* d0 ~9 A/ J. c9 u$ H
  ask turtles [
) l6 ]# n# ?2 m5 t    if pcolor = green [" }- N, W) T) d5 s3 m7 N
      set pcolor black3 z9 \8 J/ ]( Q5 c
      set energy (energy + 10)$ l0 @$ O4 C0 t
      ]
. I/ d7 r* `) s! Y, `  i. @1 J    ifelse show-energy?+ {, I; \6 C/ `- P
      [ set label energy ]
3 Z, n0 ^; g; g; o/ n  U      [ set label "" ]
9 Q* h' s% k1 w/ ?+ o/ o0 x2 r& T* Z    ]" O7 W9 C5 {% s& I& v; {$ [
end. f/ `+ w- y8 T. b+ s' s' w
to reproduce: d* B$ o3 ]* e9 ?+ _; o+ Y3 @& V- ?
  ask turtles [
% _" B7 l6 E( ~+ P7 v; P2 [    if energy > 50 [
5 f6 \0 c. r- Y- |& ?      set energy energy - 509 i$ X+ C1 r/ V8 x2 `; S5 r
      hatch 1 [ set energy 50 ]! r; H1 E- w# Z9 f% v
      ]
: c- E* J9 D2 ^# _    ]
; l- g5 D- U# n) C/ d. hend7 f: F0 }# P, b# ^) g
to check-death
( `; N1 W5 t0 `, d  ask turtles [
  _, V+ X; Z2 x    if energy <= 0 [ die ]$ m9 v% g8 u! o! f/ g4 i
    ]
( J+ Q' ~  O6 m2 }* `2 bend
7 x( ^+ |! w2 U0 V" q3 ?to regrow-grass, ]$ I7 F2 {5 T" F
  ask patches [0 H/ g( {5 C' T0 ^2 k$ u
    if random 100 < 3 [ set pcolor green ]
. E' J7 C9 C+ V    ]
/ C2 Y' z( @7 Z. @& O) U4 Yend
* Y. X# A* f2 I6 Pto do-plots
* W' ^" ?8 O  v  [  set-current-plot "Totals"- w5 P2 N# H3 O3 h
  set-current-plot-pen "turtles"
5 M9 u$ Q: e( v. ]  plot count turtles- e& z$ Y1 N& u" e7 {4 c
  set-current-plot-pen "grass"
  j- L) g* Z) h2 {  X  plot count patches with [pcolor = green]
/ X" h4 ^4 r6 q3 h5 f# k2 j# S6 Kend
5 N1 \/ E4 m  |2 S可是运行时提示no such plot: "Totals"; O' `, s" M- G* _9 l: U4 ~
error while observer running SET-CURRENT-PLOT
; d/ W5 V. K4 U& C  called by procedure DO-PLOTS4 k. N8 S9 e% {
  called by procedure SETUP
5 _. H& j! f' t* G0 n; \  called by 按钮 'setup'3 I* l! f" i6 R; W' z) C. |- X' R
求大神解答啊
发表于 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
! S! M- _2 p4 Z建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-5-14 17:23 , Processed in 0.020373 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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