设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 9771|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]/ S: ]6 Z' x$ [; U6 R1 k: l8 n
to setup5 r9 Q1 k, \  u7 v( T0 g
  clear-all
# N0 W' [* P* a, k4 d6 n* P  setup-patches6 A- ?& A0 J* V' x  ?' H
  create-turtles 100
' e5 y* k$ k  V: k  do-plots
3 ]# V5 y$ ?0 S* [& Q) ]! m7 S  ask turtles [ setxy random-xcor random-ycor ]3 }: T: A8 t  h, n+ R* Q) N
end
2 ?1 h+ Z# |2 y* ^2 ~5 ~to go. S  V- b# `( f# X% T
  move-turtles  j. i1 P7 s, {* b, N: K
  eat-grass' o/ s- w+ o8 K2 f0 m
  reproduce
: Y! F" N9 H, x9 h  check-death
5 W% }" V& s& O9 n+ ]- C$ _6 p  regrow-grass+ j# Q8 y- t8 [* q+ B, i% n. S
  do-plots3 P( o$ U; i, K7 m2 Y
end+ g. |+ f0 y2 w; U6 q
to move-turtles
% D; U+ A  w! E1 L5 R8 m( s  ask turtles [
' F1 F! A1 U0 g    right random 3607 U2 X0 z6 G6 v( b1 u& K7 X5 m
    forward 1& ?& [% d& u/ T  T! C  E  g
    set energy energy - 1- Q3 k0 Y1 S. w3 X; c# \
    ]
, r4 y- h8 t, ^end
- P* W( ?( B9 R+ eto setup-patches+ x0 l% j5 j9 f  y
  ask patches [ set pcolor green ]- ^8 o8 \- Q6 I% q- o
end
( M( U# F- _3 }# T! m. i& mto setup-turtles
# s) x$ N2 {7 X+ j. [, a  create-turtles 100
4 p  q# i) b5 B6 o0 w( J  ask turtles [ setxy random-xcor random-ycor ]
$ s. d8 `' Z9 l/ `8 [! iend8 d0 T5 l% l! V+ S( p  i
to eat-grass5 E! S% Y9 \! u1 v5 P
  ask turtles [# c4 D  [& J; O/ d$ Y2 {. U
    if pcolor = green [
9 c+ B. f- A( R9 ~      set pcolor black
1 [$ V; {- s6 A( ?) E      set energy (energy + 10)# W4 p; n9 D* b" O, G2 p
      ]4 ^3 Y( J! N+ |6 g) [, _5 g
    ifelse show-energy?* Y: D" p: p4 s  J6 ~
      [ set label energy ]
5 C- E8 S( S; V      [ set label "" ]
* _) ]5 w( h# I# L  T    ]
" Z: O; p8 ^8 f8 q# h# iend
' q0 q) w9 E9 y' {4 ]+ d, uto reproduce
# Y% }, w( h. t) {  C6 s  ask turtles [7 f3 V: F4 C) p1 ]3 e
    if energy > 50 [
; N4 s* V( i) n4 T  z2 M& R5 i      set energy energy - 50) H1 M; X3 f; t9 d3 s' K! w1 C
      hatch 1 [ set energy 50 ]
* j5 t1 E6 l2 l! |3 A9 a. }      ]/ T+ y2 n1 x8 F7 _
    ]
3 P" h+ C6 d% ?end% U5 ]2 `. i" g1 U- Q7 B* \9 Q
to check-death
3 B( h1 K7 z" u  ask turtles [
. S; R" g( l% I1 k& v; E    if energy <= 0 [ die ]7 U# ~& |% v/ w4 \6 H
    ]* p9 o% J- C3 q
end
5 _1 h# I0 x, F/ ^3 u: |to regrow-grass
% Q( A$ B- j( x7 n& S; t  ^  ask patches [, q- K2 u" \" v  m1 M
    if random 100 < 3 [ set pcolor green ]; o8 O4 l$ @6 D8 \* w; g
    ]
  O% U) D# |* }$ B7 }: a& \( Uend8 g- F+ S9 w: ]1 \1 M2 s
to do-plots5 C( t" d" N. I* r& L& t) ~
  set-current-plot "Totals"& D, C1 P0 ?2 T0 K; N* B# `0 _
  set-current-plot-pen "turtles"3 p" O  t0 m$ ]  T
  plot count turtles
* ^0 f: n" n/ y0 ~  set-current-plot-pen "grass"3 L2 C! A$ E; ]3 _4 \' ~
  plot count patches with [pcolor = green]) |7 o0 f1 V- d9 `" P9 U
end" q" J, o: P& U# Y' }
可是运行时提示no such plot: "Totals"  }6 T( w7 g+ R" Q( \
error while observer running SET-CURRENT-PLOT
# W, F  u( u/ k; _  called by procedure DO-PLOTS
* s; `$ d/ Q# b0 z9 d" O+ G  called by procedure SETUP  ]$ J# M5 k- x$ ]
  called by 按钮 'setup'
; N: ~4 N6 U5 [! }: }# G2 L4 C" c* m求大神解答啊
发表于 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
' w6 x4 _3 n' y- t建一个叫做叫做Totals的绘图框就行了
$ F' N, z: C- u6 F* j" a4 J+ [. q
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-1-19 21:43 , Processed in 0.015377 second(s), 17 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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