设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9326|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
: _* L+ Y3 o$ O7 uto setup
' s! e, H* B1 Q+ O  clear-all; Z' A1 W  v" i* P7 I8 {
  setup-patches
+ X; @( q$ |, a- p) B, Y  create-turtles 100
& l% [8 o  j- E7 A  do-plots
' ?/ c& Q  U% k2 o  ask turtles [ setxy random-xcor random-ycor ]+ ~, q. D  `" \/ }; S4 s, L7 j
end4 u  _( P6 C$ n/ g& W) j: \- x, A
to go
! a- F2 F7 O! `( {8 U  move-turtles: R& p% u' q( V8 h1 `7 H
  eat-grass
! }; u; Q! H; C  reproduce
3 @  ]) |" S' ]" ?; N0 Q  check-death
% C3 c; Y4 T0 n, v7 [/ q0 ]  regrow-grass' N6 n" {- L! q. f  h% ]/ a
  do-plots4 B+ E5 o* y5 ]* E* T
end
8 Z: d5 {8 ^  ^5 S$ ^9 v0 vto move-turtles
) T3 y6 ?3 V1 v( e" g  ask turtles [
( f. d! t& R+ m& _    right random 3606 @* _1 ^, s! V9 N* o
    forward 1
$ w$ \( m8 N0 y/ L) R    set energy energy - 1
" ~" W( T" T: [    ]& A1 Y% P) m! g% f3 n
end( x* q8 I& f2 T% [% _' S
to setup-patches
8 q& g; S, k7 l) U- y) ?' T9 q0 c  S  ask patches [ set pcolor green ]: X% b; b) b# N# l3 x
end9 O9 l, g) y; s7 k0 p( [- {  j
to setup-turtles# |) N6 f9 M0 ^$ L& v# H+ e
  create-turtles 100
8 r& s7 R: `! k& v1 _8 e, R2 }  ask turtles [ setxy random-xcor random-ycor ]1 r& X! b; O5 K' g
end
2 @0 @4 C3 S: d8 o$ Y7 K) @- Xto eat-grass
# G! p$ o1 ?! x5 z- K  ask turtles [
# \& K, L2 c( {& {1 j    if pcolor = green [
7 v0 W" U) j/ T      set pcolor black
2 ~8 Y# W: l5 N, B( c) P      set energy (energy + 10)& A7 j+ \; d# T! _: [: v
      ]% h/ Z/ D& u& U. u
    ifelse show-energy?
+ }/ n* |9 Z1 h: ^6 h4 E1 l0 ^4 Q      [ set label energy ]
8 c0 z1 ]# b/ s) W. w9 F      [ set label "" ]
  w& k5 e6 z/ x9 h* u3 h    ]4 V% Q& d+ A) F) Z6 X
end. n4 \( g' d$ t( A. v
to reproduce$ w6 N' L8 D2 Z  c# I
  ask turtles [0 }2 q% z( _8 ^$ n
    if energy > 50 [+ g: Y0 Q0 |) ]
      set energy energy - 50
' u9 J+ B+ ^% k  }      hatch 1 [ set energy 50 ]7 _; r  z1 x$ ?$ s7 m. ]
      ]
, K% f  g+ @: U    ]# V: Y4 j& D. f
end4 G6 q5 a5 Q8 n* c0 L3 {6 M. M
to check-death
' e6 I& c2 L2 o* z+ f8 m  `  ask turtles [
% Z/ E5 x, G  O6 M- n3 F+ l    if energy <= 0 [ die ]$ f3 T! C1 q8 B0 e
    ]
7 ^* z" l% r2 }& k/ u8 [end0 i0 T* o, ~/ X9 i. c( A- K$ S
to regrow-grass
# n! l2 O7 e! l* I  ask patches [+ c  d% r1 ~* ^: f" G
    if random 100 < 3 [ set pcolor green ]
3 z" b8 J/ r( R    ]3 ~# F8 V6 Z2 Y9 P* A5 c3 \# g
end
3 r2 \+ w$ `8 Hto do-plots6 N9 B" q+ i  h2 a' r( i- ?
  set-current-plot "Totals"1 _/ t$ W5 N( P" V4 |) f( K3 J# q5 b
  set-current-plot-pen "turtles", K% P' g# s: Y" ?& R6 o
  plot count turtles
1 j3 L: L3 T+ ^  set-current-plot-pen "grass"
2 Y  a) Q2 j6 B/ a% z  plot count patches with [pcolor = green]
" `% y$ O  h2 Mend4 i2 p: Q+ R: n5 S0 @
可是运行时提示no such plot: "Totals"9 m' [% H# I+ Z- u( ]
error while observer running SET-CURRENT-PLOT# f% v; ?7 k  O& ]; H3 e  Z
  called by procedure DO-PLOTS
4 j, a' x: Q/ M4 K* ?  called by procedure SETUP
7 y9 E- \2 @( F9 V  called by 按钮 'setup'  @4 _9 G2 x& Z) ^3 G# S% d+ X* y
求大神解答啊
发表于 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
0 t& @# U4 u  O4 D% R" K建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2025-12-8 06:10 , Processed in 0.019278 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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