设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10978|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]" p  p2 Q. r. U. }) @9 e
to setup/ m8 |' i( S. n- T0 e# k
  clear-all. ]  [2 [+ G+ w5 Y  v5 U, d
  setup-patches+ H2 E, J' q, _( h4 E
  create-turtles 1008 ~8 V& A, f' L
  do-plots" L! z. P( d8 o, e* n; B
  ask turtles [ setxy random-xcor random-ycor ]% m0 j! A4 @1 I) {# j6 N; m! m( o
end. d: R3 [) {7 W1 c
to go
1 H9 b6 q( b4 `% C& T" a0 a  move-turtles
* f. w6 S1 d. M. Q% i! {! D: B  eat-grass, }4 W1 Z1 R( I& W5 s/ v
  reproduce
- ^% [9 S7 g1 z+ x1 _  check-death9 q  W  t; z, r: [; U
  regrow-grass
2 {. @1 Z5 o2 [2 D  C1 ?3 A  do-plots9 X$ I' Q& W# ?7 Q
end2 X1 L$ q3 d# w! q& a
to move-turtles3 g8 E: T; s) w5 q* ^
  ask turtles [
* e( v6 R2 k0 L; f    right random 360
: E5 g3 K/ s2 |' E+ c; N    forward 1
6 {8 T3 [; f$ d8 l8 c8 R; I    set energy energy - 16 s0 }$ l, A/ ^. c* e9 Q% l
    ]& \* b& A4 h+ h( O1 G! p2 V# h2 t
end, _4 p) I' ^$ a4 f7 f
to setup-patches# x* r. {# Y1 @5 y, I
  ask patches [ set pcolor green ]. [$ v- ]( i/ x
end
* O6 G# ]* p/ ~  G! F! B: }to setup-turtles, m+ _2 f- k  O) _6 r2 m) E) Z
  create-turtles 100
+ o( |7 ?. G3 N  j  ask turtles [ setxy random-xcor random-ycor ]
) V5 t" u! {, s! a9 vend8 i! H0 W1 @  p- _( y1 v6 ^* a
to eat-grass" W; P0 b! L$ k' `
  ask turtles [, \( z  e* V% h) I3 L, H. A; b) I
    if pcolor = green [  l; e4 A1 @9 t2 `7 r: _. P# h) ^
      set pcolor black
1 c4 f  \6 z4 a3 c* l      set energy (energy + 10)3 e/ T4 Z0 V4 X7 L
      ]5 _. L; G2 L1 d8 N+ K4 s
    ifelse show-energy?
( k( Z' h2 M' K0 _1 ^% @      [ set label energy ]3 j) M: G2 I( ~0 _( v& r5 ~
      [ set label "" ]
* k& J3 `0 E/ e" s% V) z( T    ]  q3 r7 K9 j+ ]& a! L& r/ a
end) @5 q/ v& o. K
to reproduce7 m) K  ~  v' M1 b& D- ]0 M* Z
  ask turtles [- v0 ?9 L( b# V# {: d$ P( q
    if energy > 50 [" T5 `4 v9 b: W- L. j- E( v" k5 W
      set energy energy - 50
2 ~5 N) }! S; j5 A( h      hatch 1 [ set energy 50 ]
  |% f% h9 ?( u/ `' ^# g: u) T      ]
* M! o" ~' z8 U8 H    ]& t; D- n. m) b# y" u7 T
end9 h% e0 t: q6 w, k/ m" b/ W# Q5 V. ]
to check-death1 g; G& b8 ?# |8 E- C& P9 K
  ask turtles [, H8 t6 [. e  E- O" b
    if energy <= 0 [ die ]
4 @# x% `6 g/ g, g' {  o    ]3 I) C( Z6 A: o
end, Q9 p" d% Q0 B2 n
to regrow-grass1 Q: J! o* g8 o2 f& R( n
  ask patches [
  U! n$ O/ H7 a2 h/ E    if random 100 < 3 [ set pcolor green ]- p* d. Y$ `0 \( p* {5 x
    ]% E( Z" i# i1 E" \. `4 Z
end5 B- ]5 y' k1 Z) ^/ F7 v% q" o
to do-plots  f2 l( E; L8 X$ ]0 ]5 }
  set-current-plot "Totals"
1 V3 Y& `5 [/ N3 [  a1 ^  set-current-plot-pen "turtles"2 p! i' E* j& o( t3 ]
  plot count turtles
" N- V. [$ T3 f5 s  set-current-plot-pen "grass"% k2 T! a( T3 b- e! b$ J+ `' k! u
  plot count patches with [pcolor = green]
. ^4 U) ?2 F8 A3 Kend
! q% c3 J/ T- K/ E5 F可是运行时提示no such plot: "Totals"
' G% G+ u: f. u. u+ g  Ierror while observer running SET-CURRENT-PLOT. u) |4 i8 z9 d' C* o0 H# w
  called by procedure DO-PLOTS+ F% z9 ~6 d2 u, L  r) D$ o/ _
  called by procedure SETUP
( j* f' @9 ?5 B3 x$ F  called by 按钮 'setup'
; X8 W/ r2 s8 F; N* T6 ]( B& ^1 t求大神解答啊
发表于 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 " z5 ^0 W$ {5 B+ @9 J) a& {7 m) ^
建一个叫做叫做Totals的绘图框就行了
$ t) u, F4 o3 s, H, Z
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-23 13:00 , Processed in 0.020225 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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