设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9952|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]$ N( p( u, h3 c
to setup  n; a3 X  _( V4 |6 E1 O
  clear-all
* o4 f3 D/ v. c8 K  setup-patches7 V4 b# N! M5 R- B9 H
  create-turtles 100
  ^! r1 [5 H6 `0 M. ^6 Z; z  do-plots# L6 q. E7 H9 u# P
  ask turtles [ setxy random-xcor random-ycor ]
( i& L- g% p: B8 h- g9 U" iend! `3 @5 P) f* Z& h! s
to go
9 k; F/ ~0 p" s( Q/ E6 S. \  move-turtles
0 L: O! }4 f) d* `/ b- @& S  eat-grass1 Y! f5 Z4 t( s
  reproduce
1 k! E9 u$ J2 ?5 e$ v' M5 x  check-death
2 X3 f, V8 ^' F2 u  regrow-grass; |! j1 V* u- K+ z/ f% u
  do-plots. O) K9 \& p7 }* U9 X2 @2 |; r* H
end# E0 x+ o% \; _+ D* {
to move-turtles
8 ^4 b' \6 T2 q/ z  ask turtles [2 o2 P2 A- U; P& U: t
    right random 360
) y8 \+ m6 H( N    forward 1
& b. V; y+ p, I0 x9 J  H    set energy energy - 12 v& E; |7 C" Q# F7 C+ x
    ]
5 ?( t  p( Y: T7 Fend1 a. _4 y# j! c0 {3 {  b4 O$ f
to setup-patches. D5 j8 u5 K! p9 x& X: z% M) ?
  ask patches [ set pcolor green ]
" x: p% o! G  T6 j! Q+ I. qend' t& K% K% b/ H3 U& D
to setup-turtles
0 j7 v: u2 d9 W  }) T$ a& P  create-turtles 1005 Y$ S  {8 ~1 J
  ask turtles [ setxy random-xcor random-ycor ]2 q2 I1 d  N9 ~. r5 X/ S: R% r
end
$ F9 @- Y# ~/ [; C' x: E; r5 Ito eat-grass
1 A2 R* Z7 m# B, Q( a  ask turtles [
+ y2 `2 F. [) d8 c# d  x( B    if pcolor = green [
/ S5 D& K$ }* Q0 _$ t/ x      set pcolor black
- G' F6 I/ n8 b      set energy (energy + 10)3 p6 l  s8 ?- a& o; }, D
      ]
, [- q- c3 u& z+ X. E% v    ifelse show-energy?
( y4 M' l$ M/ g# C      [ set label energy ]9 o+ N- y! k1 p4 d
      [ set label "" ]# {2 f( g, R5 s1 U4 ]/ n2 W
    ]
2 B7 I/ `, P0 o1 _% g8 Gend
6 G: h  a) W. f" Lto reproduce
; S: M0 n( ?! [6 i  ask turtles [
  e2 Y3 O! H- c/ R2 p  u    if energy > 50 [( n7 k* ^7 ]& G, y- t  s# D: @. E
      set energy energy - 50
. }$ v) f, W4 D4 d" p      hatch 1 [ set energy 50 ]
$ g  E5 B' f, y6 k5 p' \      ]
: t, J; o7 Q: k9 N" Z    ]
& g% \3 P3 c( `end/ @! N, V5 W$ t- ]# I) ]! L9 F
to check-death# [2 T' Y" L3 s3 t: X5 ~- i# A+ j& u
  ask turtles [- Q3 Z$ ^( G" h8 n- r' t5 Z' s
    if energy <= 0 [ die ]3 t8 \3 c8 z: C# d+ @' m7 F# I
    ]
! L' ]- {# {( A! @/ i/ Hend
2 A: c. V" e# p/ W+ J. Jto regrow-grass
, Y6 T* ~* n+ m6 h) C. L: Q8 y  ask patches [
: E* ?& `5 e% A- G* E4 B* U    if random 100 < 3 [ set pcolor green ]
8 u9 L8 k* v7 G" B+ n- p    ]
( b1 D0 \8 a7 K* Gend% `4 V  L9 D8 T; J6 J8 W
to do-plots" V% k, U8 d! z  ^
  set-current-plot "Totals"* f3 ~: S( r9 h9 S6 V; W' f
  set-current-plot-pen "turtles"6 f1 t+ {" q$ c! ?; j
  plot count turtles
3 K$ {  h0 _) h1 t( t8 i  set-current-plot-pen "grass"& V! q! M# ]! @7 @( y7 X
  plot count patches with [pcolor = green]* H% z" z: L0 t6 @
end) J+ x# G! j2 f1 j8 S
可是运行时提示no such plot: "Totals"9 P/ ~  y% ^6 ?5 V
error while observer running SET-CURRENT-PLOT
* [! ]8 i+ Z2 |7 V2 P+ q  called by procedure DO-PLOTS  L9 C8 H- N% H9 x4 V/ i; t
  called by procedure SETUP
) c' n& C9 F8 E! F4 ~8 ~! f9 J0 T  called by 按钮 'setup'$ q9 l# ?6 M( U0 }
求大神解答啊
发表于 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
3 U/ G6 V1 i# i% A7 {" s建一个叫做叫做Totals的绘图框就行了
7 ?; I" C8 C  v, C" Y4 J& m
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-2-2 02:50 , Processed in 0.016020 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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