设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10082|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
2 \0 W/ G( E8 Y  Q% R7 nto setup
; U/ e. e! Y/ o  clear-all
2 h4 X" D; t2 n& A/ o3 Q  setup-patches
1 w$ i2 ^& g% I  w: X  O( p  create-turtles 1006 K( g' ]$ L3 Z! m2 \" g. B: m
  do-plots
7 X- {* {% s8 F+ g# _; D+ Z5 X  ask turtles [ setxy random-xcor random-ycor ]
; _3 x; f5 w, Q, z3 I  `end
  o& e" q" s  R' [% s- kto go3 g7 ~' E4 G2 M+ @
  move-turtles
/ l* S- Z- |% m) Y$ ]/ R  eat-grass- I) A7 Y, n, R; c% W0 V; s; g
  reproduce
4 l7 A- i5 N1 e2 d  check-death
( ?" R: w1 d1 y. U5 Q  regrow-grass
; ]9 l# g$ V2 q" D, ^  do-plots
2 v! v* e0 C* ?# m4 x( e) x" a* b' send$ C: U$ W. e) E
to move-turtles  a& }+ K  w0 k' G7 }1 u
  ask turtles [# a5 W6 ^& ?: d: q1 ], D. @/ B2 I
    right random 360- N; r* \) P" _3 X- U7 n- ~7 t- d
    forward 12 b' R' k8 i" H( i3 Y; w4 C
    set energy energy - 13 C1 I8 N- c; l( F6 n
    ]" r1 @$ |* o7 S
end. i1 q5 b& {3 B3 X' T
to setup-patches
3 w3 i; @# N% Y  t3 t0 _  u  ask patches [ set pcolor green ]
5 @- b) o( n& J2 r" j( qend
& \% t  p! P, P4 Sto setup-turtles' [8 @8 |: O% Y6 W" O0 q
  create-turtles 100$ O1 G/ a. R6 _, {( `
  ask turtles [ setxy random-xcor random-ycor ]
% T$ r$ l4 N3 y5 y& p7 Z* Cend
0 ~; F# `6 k0 W5 L& @7 Q3 {to eat-grass
! B1 C) Q3 A# I  H4 `+ `6 W3 H  ask turtles [9 M! M, _7 e  ~, G! b. y* w- p5 B
    if pcolor = green [* z0 E. u& y/ P
      set pcolor black
; L$ Z" B5 x3 W9 C/ r      set energy (energy + 10); C( ^8 G* P( s+ i
      ]
  d5 p; ~! W6 Q! n    ifelse show-energy?
* v- F0 K, x( B9 j; {0 G% q4 A      [ set label energy ]
1 k, \7 B+ D) H* l2 p9 Y) p      [ set label "" ]
1 H! h) b% e7 o0 n    ]
+ f: M3 l0 }5 M" F( _end
( d" v& r; u) l: o( Qto reproduce
  s4 y, {0 ~0 Q: R  ask turtles [
. D* C$ H: _, i    if energy > 50 [
# a: ^: L5 Z$ Y9 L  X      set energy energy - 50, w  `2 u  T8 i6 V/ Y
      hatch 1 [ set energy 50 ]. l1 I( P& n. o  y6 o( r
      ]" d; X$ k: A: Q3 O6 a; Z3 }
    ]
0 T6 X1 `3 s$ r# Uend
% V- Y( W. ?2 a! S! g& Ato check-death; `2 e$ Y9 \. K9 K0 g! x7 R9 |/ `; N: P# R
  ask turtles [1 z  R4 b* d4 Y% B
    if energy <= 0 [ die ]5 j6 O1 E, z$ Z" O0 [# |
    ]
$ d' u/ m) h$ lend5 \6 G! c3 A" F$ Y& v
to regrow-grass
+ H- B) l( l6 `  ask patches [; Z" q' D. o' h9 ?
    if random 100 < 3 [ set pcolor green ]
7 D$ A( z" G+ v2 S/ b. i" p    ]: {, C# N2 W0 l1 B
end
9 G  ]2 }5 K) ?+ A6 {to do-plots6 ~' B0 P4 N" o; E5 q2 k0 `
  set-current-plot "Totals"
, z; r' j& K  B9 S7 y4 Q  set-current-plot-pen "turtles"4 w" f* P# L* `& D2 k4 Z  U; {
  plot count turtles
/ s; s; l, f  g# o" k2 _  set-current-plot-pen "grass"/ X1 M$ _" K4 `5 J) r9 y5 {+ B
  plot count patches with [pcolor = green]
, e( N9 d  @5 m  yend
! x/ c& E4 ]' Y% K& t# H: Z9 B可是运行时提示no such plot: "Totals"/ o% C& j' G2 J' \/ R9 ~: ~
error while observer running SET-CURRENT-PLOT7 \9 Y2 x" j( L  a; F) n
  called by procedure DO-PLOTS( P0 D( c1 V/ L! v7 c$ k" ?
  called by procedure SETUP
; i4 H1 ~  j# C: k# H  called by 按钮 'setup'/ b  P3 m0 q4 ~0 F2 p$ C/ G
求大神解答啊
发表于 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 & X3 B; M: N6 A) J
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-2-11 10:29 , Processed in 0.019029 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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