设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 10995|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
5 w8 F& n2 i" \" z8 {% d) i/ c" gto setup" m4 @7 d. ]" {) ?1 w3 E0 x
  clear-all
6 S# h3 u  z* L; t3 k1 O. w  setup-patches
/ K/ T! l5 b( ^$ o1 p; M/ x$ K2 H  create-turtles 100% f8 }/ g7 w6 W, ?, o: g( o* Q
  do-plots
/ n4 r: S# o# G$ l9 ]6 u4 x; M  ask turtles [ setxy random-xcor random-ycor ]! a4 {( J! }5 R0 b; X- U6 O
end( u9 g1 Q- K) j+ ^* [7 M! B. d
to go
! R; R4 S" y; N& l# |5 [1 j  move-turtles
5 ^* s8 ^( _4 x! k  E  eat-grass
/ a3 T& A  K9 s: D( W- t5 I( a  reproduce
5 L. \7 \( P3 R* L4 s" O7 y  check-death
# ^+ U# k9 W" z  regrow-grass8 H& ~9 L$ p( W# [7 h
  do-plots2 h  d) x7 N$ L9 ?7 ^& T9 }* }9 ^
end
9 t8 A. g) v3 Y" d0 w" Z; Z- Ato move-turtles! f) u. o& H# i2 C9 f1 l5 }: r
  ask turtles [" `; c8 Z" a& O. U$ S
    right random 360
" Z. X# L$ I$ c- \# y; X    forward 18 m: ~- H8 s  |, @9 n. @+ Y
    set energy energy - 1- [5 I" ^) h! z  W9 n2 S: u3 T
    ]
, z, U- s2 Q! ?% |; _: Q# B5 S1 R& v5 rend
3 i' m% Z; I1 d! z' @% Bto setup-patches
4 p8 p; P0 l* k3 D2 O0 @' }  ask patches [ set pcolor green ]$ W& D) E- C, K7 L, Y* T: {1 A7 v
end
! O0 {! O* Q- l" e; Q9 u. c* hto setup-turtles
+ i- K7 u# A# S* o5 W  create-turtles 100
' ^( ]! v1 M# y5 B  ask turtles [ setxy random-xcor random-ycor ]
( W% ?( r$ `, I2 U+ U( [% f3 `end
/ h. m9 N! l9 D# v7 r6 Wto eat-grass% f; [  ^, E1 j$ s
  ask turtles [3 h, H/ c, \3 U4 L4 |
    if pcolor = green [
6 Q& {8 ]& R0 u- |7 H      set pcolor black0 \3 n* R, e% \/ L2 v
      set energy (energy + 10)1 Y2 v) U) t' l' y$ u
      ]% v/ |/ \! E+ j' n
    ifelse show-energy?5 [2 ^$ b0 b3 v, b) G  N
      [ set label energy ]* c8 \. ?% A5 ~* P$ ]
      [ set label "" ]
+ N4 |8 q" \  p& F9 ]    ]' z8 G# Q$ a! {& c
end& `  E) d# w! L. p2 [5 N
to reproduce
7 d: `$ Q0 G$ B  n4 y9 p6 j  ask turtles [0 A0 \( _. m4 C
    if energy > 50 [: G* V7 k5 w# X, d3 }+ R  S6 _% n8 ^1 Y
      set energy energy - 50
) A( a" E" a$ M      hatch 1 [ set energy 50 ]3 E0 T& p5 @" k% }! v$ f
      ]
+ c2 `! A8 e  F; W% {    ]
9 ]9 L2 J/ v8 f- rend
  R  e$ T0 u! n" I8 tto check-death
" U9 d" s9 o, H; x# Z; U  ask turtles [* v* E) q* m7 ~  r! {4 H. E* w
    if energy <= 0 [ die ]4 |! P* A5 n/ d) @
    ]6 \+ G0 ^8 O7 b: m
end8 {& q# V$ a) u. ?$ n
to regrow-grass
( t+ @  X" M2 b3 w  ask patches [
! Z( u8 e9 v! o4 B    if random 100 < 3 [ set pcolor green ]
2 `" {6 n% V& Y/ _    ]$ m. [0 J6 U6 q, n9 K" @
end
# C# a) D( a- m0 j* U! R+ e  ~: p7 Hto do-plots
9 S0 F/ o+ `: K0 z/ E; ]  set-current-plot "Totals"
0 L  n5 `5 C- `  F7 v  L  set-current-plot-pen "turtles"& a7 T/ c# a  l: [, `- K+ P' h
  plot count turtles3 I  T  |' L4 A4 U0 F% N# k
  set-current-plot-pen "grass". ^: k) f# P2 o
  plot count patches with [pcolor = green]: s9 |' B2 v; r1 b, b4 f+ u
end
; m( U* ~, G+ j' i. m+ ^可是运行时提示no such plot: "Totals"- e* i- A& J& y
error while observer running SET-CURRENT-PLOT
" x+ O1 M( a, w' k& n: x1 t  called by procedure DO-PLOTS
3 O9 e8 S/ o+ @; W( [" ]7 d5 B  called by procedure SETUP# q4 Y( j& O* L7 h6 u8 j1 n: e  Y
  called by 按钮 'setup'* s  w3 F6 O" X" 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
% R1 {( [. j  q( x8 D4 \. ~( G建一个叫做叫做Totals的绘图框就行了
# I1 S7 T# U( I4 c; n: W
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-4-24 16:52 , Processed in 0.017930 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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