设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10273|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
0 ^8 Y( O# c% b) a+ k  Y$ Wto setup
* X9 m; Y+ W. p- I  clear-all
. {0 `0 q% g2 y. O) s  setup-patches
8 T8 ]7 j% @$ ^8 x9 d4 J; C  create-turtles 100) f! i$ ^. u1 x! u: ]! ^8 u. |# m7 O
  do-plots' ?. o0 D( P* |% }* c6 g
  ask turtles [ setxy random-xcor random-ycor ]' H( v: z/ p5 W, ?- N, g
end
5 P3 N) p% X# z" {( mto go
. \, J: m+ d: V$ ?# I1 b* B  move-turtles
" A3 {' W- g; W& f+ ]) R7 ^* d  eat-grass) s. p' g8 N# e  y5 b- U. H
  reproduce5 R; s, j6 m( R
  check-death
# R, K7 q9 f( h7 F  regrow-grass, S& H1 X1 o0 {( G8 s% O/ P0 _$ a1 g
  do-plots
1 z2 \7 c% [0 Yend2 w1 q3 M/ T( W0 U! F2 f( a
to move-turtles' K, N  G: w2 f7 a( Q' `( G+ [
  ask turtles [
' V5 o0 Z2 r( d1 m5 M$ }( \+ g    right random 360
  T4 E! N4 d# b" `% O9 {3 ^* K    forward 1/ O7 _1 w* H' o) B
    set energy energy - 10 t/ u9 g% {9 s2 P4 R. F( `3 e
    ]
4 X: j5 A! q* y0 C& l) xend
% }3 J4 }& T$ a* |& Eto setup-patches
( v1 T# u  e* o- ?  ask patches [ set pcolor green ]
1 v0 c( R, ?1 _6 iend5 U9 A7 `6 a, b0 l+ P& B
to setup-turtles0 b2 h, J5 Y2 C# Q5 R+ \9 o* ~7 l
  create-turtles 1003 ]" N/ j+ \7 I4 I  z0 ]6 n; S2 x
  ask turtles [ setxy random-xcor random-ycor ]9 ~/ U  h6 F) y: J1 L; K  O
end
9 G4 Z. g1 L  J* Ito eat-grass
1 Q  T* ~6 O- j/ a: w3 \  ask turtles [
" a/ f& q/ R# Z* i, ?: X    if pcolor = green [0 U( ]  A% d: m
      set pcolor black
* L6 [! ^8 v: B( |, [* p      set energy (energy + 10)4 `# N  R, X* w' y7 A( E! v
      ]$ M( y- P" J' Z) {( _
    ifelse show-energy?- ]5 \' ]8 }9 m& W; F
      [ set label energy ]9 J" n  a9 J5 \/ O6 m
      [ set label "" ]
( g+ H& p; b8 j8 P" H    ]
4 G$ q+ W( T7 |' Q, d& Eend
$ z+ M4 L% D- |# Fto reproduce  Z* f7 K, \% y! l8 w* ]
  ask turtles [
5 G/ h: C: h! Z% e    if energy > 50 [
2 h* D; w" N' R4 j3 V0 @      set energy energy - 505 e/ A8 Q8 g: M4 A% ?
      hatch 1 [ set energy 50 ]
8 O. c4 U; u6 _' e. h! h      ]
" @, Q: ^7 ~+ ^) ?8 y    ]# o  [% c) K* P- E& h8 v5 b+ i
end3 ^* c9 w* Z4 H3 l' |
to check-death
+ S; `, F& v% e" E. p  ask turtles [
' N2 ^5 S1 [' K    if energy <= 0 [ die ]
# X  h  m. t* p0 W9 z2 i5 v" v( z    ]
2 b; p: {( J3 L3 I; ]; R% fend% l& x4 _1 A% c- G1 P
to regrow-grass
! @  l! w- l1 x0 ]  ask patches [
' }, \  Q4 M* s- t) h8 D. d6 I2 t    if random 100 < 3 [ set pcolor green ]& e# V& g6 n' L5 a1 H
    ]
! V5 E( H" W+ @6 Y1 e( rend* d4 s( W/ U$ o: ]0 v4 g8 o4 b
to do-plots
, n* }' L0 p: Z5 Z% U" k. e  set-current-plot "Totals"
8 C/ a* t- e  K# {* P3 E  set-current-plot-pen "turtles"3 ~& o& ?2 Y3 p% I
  plot count turtles
6 M$ e, x/ O9 B- o6 }0 a  set-current-plot-pen "grass"5 [8 b$ I% ^. o: X
  plot count patches with [pcolor = green]
0 c  O4 f0 G) ]0 ~! u4 @# g7 Oend
9 _- u/ F/ [# O1 ?) O, ?1 P. K+ i可是运行时提示no such plot: "Totals"; n% J, d: y; u: ~# Z0 C1 ?1 E
error while observer running SET-CURRENT-PLOT
. W6 ]0 q! t; K. _7 I$ Z5 A  called by procedure DO-PLOTS
% X7 Q. h+ w+ [- o  called by procedure SETUP) e4 H' f2 {5 k5 y$ d. i& `# }
  called by 按钮 'setup'1 H/ ?- }1 ^5 J# w& f/ L
求大神解答啊
发表于 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 % L/ T/ |3 _9 c+ m6 a" K
建一个叫做叫做Totals的绘图框就行了
  ~. g+ D/ L6 \9 i# v
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-1 03:03 , Processed in 0.024602 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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