设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 12247|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
- o3 O* ?8 ~- Y( w1 d5 rto setup( p+ G. i7 b! `: u" l4 O; A
  clear-all" \/ J, `: w5 B% Z
  setup-patches
* b/ g1 ?7 X, J/ Y. ?4 K  create-turtles 100! E* Y9 E3 B' |9 R
  do-plots
2 n( F( w0 X" m" t, X. ^  k. A  ask turtles [ setxy random-xcor random-ycor ]. m$ L4 {1 L' I2 K+ U' T9 I# Q" B5 _
end9 T, C4 c/ P% [( x% [( J. I
to go/ l  ]- S/ |# G9 w, p" T/ k; p2 o
  move-turtles5 ]& @3 B" Z. J# V2 D
  eat-grass
& V- A' i9 j* q, G- h  reproduce
7 ?9 h5 |3 }" Q7 C8 o" x- Y' e  check-death
0 Q' [* C1 |/ C. H6 z  regrow-grass
: @% l5 o4 N, c7 ~' T' o7 w  do-plots. S, g. h* ]; B3 |8 X- \' b# ]
end2 w* `& d1 P; g, c- a
to move-turtles6 e- V% a/ t4 {: r$ ^, I
  ask turtles [
2 L8 ~% P) t; E    right random 360
  s& S! ~% e) I; N5 q3 L( j- ^    forward 1" i% O' R5 Z/ }. i" ~
    set energy energy - 1) ?+ u) A% c  N* ^/ p
    ]
/ p* K% q( L5 K$ wend* e2 |4 N3 V% E
to setup-patches
7 @# H0 ~9 E5 f/ f* a- b$ ]- J  ask patches [ set pcolor green ]
# a1 W4 _, b$ h& v# Wend+ E, X  _; I' v  ?4 a$ G% }1 S' ?" q
to setup-turtles1 n/ J' T0 w3 E8 ]) c3 U5 `
  create-turtles 100; O6 N( C$ r: w) T: i2 h
  ask turtles [ setxy random-xcor random-ycor ]
$ `/ u+ a! L; \! g6 i/ Tend5 b* [4 p! i1 \
to eat-grass( n5 j. k8 \# N. F) L6 r
  ask turtles [/ c. \6 @9 Q2 N2 Z7 w: A0 o
    if pcolor = green [
! g0 E* B) M- i. y9 m8 Y      set pcolor black9 S# p2 E6 h: K+ Q0 ~
      set energy (energy + 10)) k  N' k- G, V1 P& F) h( P( x  m! k
      ]
6 y, ]; [. t; I( Z  n3 g- l/ V    ifelse show-energy?( D6 U" V4 U8 D) C) v& C
      [ set label energy ]
2 R- q# H% r+ U6 n9 t# ?      [ set label "" ]7 r% S5 q% |( v7 q8 _
    ]
4 g/ E* S5 p' W! M6 xend- F# R7 l( h* A6 d$ a
to reproduce
( T6 [+ `: P- W" a/ W  ask turtles [: Q- k% D5 T) ]9 i* q
    if energy > 50 [
9 m9 k' P* z+ R/ M/ K6 V      set energy energy - 50
+ x9 ]& p2 V4 w' a% }      hatch 1 [ set energy 50 ]
8 [" x( Z* S  U% p0 E  }; D      ]
( L  C; ~9 n6 e& N# r2 ^3 I    ]% c0 n( J- k5 E- j
end1 V5 H3 F% o( W$ e# Z. Q
to check-death: M# t4 r$ H# e+ ~; K* a
  ask turtles [. E( K% n3 X5 B( |
    if energy <= 0 [ die ]
9 r9 `7 _5 N2 A. v* ]: v    ]0 U" g; h- t8 u0 q7 p
end1 R8 q6 ?* ?2 M5 {
to regrow-grass" Z& U# ^0 _' A3 Z( s3 J
  ask patches [
& r/ @/ R; m% v8 W' h    if random 100 < 3 [ set pcolor green ]  t1 l6 g1 d. s6 n& r0 l/ C- @* A
    ]# d. x1 E9 ^. p- K5 H: J* b
end/ x! `0 D# Y9 a4 i5 @
to do-plots3 Q% e  w+ @- j6 ]" k/ o) Y% o
  set-current-plot "Totals"2 d4 @# r5 O' M; l/ O
  set-current-plot-pen "turtles". ?! s$ Q1 g! U$ i% J# W; P1 B; z
  plot count turtles* E! `  k7 j. v9 i
  set-current-plot-pen "grass"; t0 O8 |" @" j$ [$ P, t, i3 T
  plot count patches with [pcolor = green]
% c( i3 w$ T7 Z' }3 N# Y! aend# u% a. W: a' i- q3 t4 d
可是运行时提示no such plot: "Totals"
" A: V; k# i& z! {- Cerror while observer running SET-CURRENT-PLOT
' E1 S2 Z" u; L+ ~, u% O  called by procedure DO-PLOTS. q" h4 b) |, D5 m* p8 k4 D
  called by procedure SETUP
7 m9 k+ k' T* }9 [1 s  called by 按钮 'setup'# d& P) R9 ?) _$ K# 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
1 X) P+ k8 @; w0 O8 q1 n7 a建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-8-4 17:37 , Processed in 0.016636 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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