设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 7975|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
7 u$ A; O) u8 P; {/ Lto setup
2 _  [- b6 Y: B& F( p- V  clear-all" v: y; @3 R) S1 b
  setup-patches
0 g1 {, }0 A) f. F8 Z/ z  create-turtles 100
8 H% F" K9 N7 y/ b) F% a" H7 N8 q  do-plots3 z- B; I2 n" W  Y# X
  ask turtles [ setxy random-xcor random-ycor ]5 E7 l/ _; j- @% }0 j( P
end
2 }$ k  J! t( v& G5 K4 C. M  Oto go
3 Q- g9 I! ^( y$ p2 N4 f& g9 y+ G  move-turtles& u1 b- n: X0 {
  eat-grass: U' b- |5 s4 a9 N- e  {& g6 d
  reproduce, P) F* j1 z# Y
  check-death
7 C" [9 _- w7 k( l- C% l  regrow-grass6 ?. z$ d# p% S- u. ?
  do-plots0 F! n8 e3 ^8 q3 |- d2 i% |
end$ k, f0 U# ^- F$ i
to move-turtles
; K& B8 G. ]" V$ c9 n6 a% |+ {! t  ask turtles [
( Z4 F; f0 |$ {6 J+ h0 O! U    right random 3603 R# o0 p/ J) ~
    forward 15 _, e  c2 B! w; Y
    set energy energy - 10 U9 U. ~2 R& `& L3 I. M
    ]. e3 `" o  I# V/ D& E
end# I) U/ ^" U. s! F6 T6 D9 l6 g8 X& R6 v
to setup-patches! ^) |2 B" _; P8 V, S
  ask patches [ set pcolor green ]
. F# m) z  M/ ]end2 I$ l3 f  g. v3 O6 R2 [# J
to setup-turtles
  D' u& L8 m8 {0 ~8 m# @  create-turtles 100- w$ m  N2 R; c+ H- C
  ask turtles [ setxy random-xcor random-ycor ]
' c) A: z1 G; f* H2 aend9 F$ E$ n" Z& K! H$ s% R
to eat-grass
. k+ t; M* o) r/ ~+ K8 D  v  ask turtles [- N) p9 {& O, p  R
    if pcolor = green [
; |6 y3 l: c& J- [! ]      set pcolor black! C# Y5 G: k# h8 o
      set energy (energy + 10)/ H2 X. C0 V# _% z6 G* _
      ]
+ F$ T4 s: @* M    ifelse show-energy?
6 Y6 a( T; O- l+ T" ^      [ set label energy ]
- x! T# P1 m6 d; P/ {& q$ Q* u5 A% Y      [ set label "" ]
; l; |2 n& P/ I. u+ y    ]/ A5 k; [2 s  k6 ~
end
$ x, N5 |  Z6 Z- u. O5 G) T" Mto reproduce
0 e4 V; r% W* c; T3 f  @  ask turtles [) ^/ H" }: V% N3 Z1 F6 c
    if energy > 50 [
! P8 m6 S$ G' s% w$ Y, _      set energy energy - 50' M5 G) r( L( ?0 j
      hatch 1 [ set energy 50 ]
  C2 K  T9 ~$ \& }6 X      ]
8 I% j4 S  b  H. @% b3 V% y; }    ]
" i7 E( S# d2 I( ?( S" T  ~, ]: lend  [1 A5 W# ]+ t/ H3 L5 I) y
to check-death6 j* Y; a# t% L( A& X3 Y, S
  ask turtles [1 F/ G% w6 ~2 ]4 i
    if energy <= 0 [ die ]
* L' b+ n' A4 \    ]7 e, l1 e/ z1 M$ A; J  ]5 T
end. w5 e- W% s2 A4 h
to regrow-grass  z7 p, g- V, u+ \- C
  ask patches [7 [- K# o" i/ Z+ \6 b* g
    if random 100 < 3 [ set pcolor green ]2 s& L" L# ?/ n. Y) D3 m5 e+ L
    ]
) J5 l) m( {1 Vend
- m/ E$ q# ?% P3 Z" ~% z" jto do-plots
% f# z  X5 l- y  b  K% D. L  set-current-plot "Totals": W: v( j$ t# E9 `7 R" h
  set-current-plot-pen "turtles"
0 A1 d; e; L7 E. T- V  plot count turtles
6 w7 H5 R1 o, O( y! E  set-current-plot-pen "grass"* v% T9 U! T% Z8 g) i
  plot count patches with [pcolor = green]
) k+ @7 g* z) I& a5 R! send. U% z# x( {: X9 Q6 J- o) \: n
可是运行时提示no such plot: "Totals"
) o. I+ ]/ h+ H: U6 j" @error while observer running SET-CURRENT-PLOT4 ?2 w$ s/ g3 R
  called by procedure DO-PLOTS+ d2 M9 f) z1 ~5 J; r9 n# o8 l
  called by procedure SETUP1 g: H5 i% E; v' G- k
  called by 按钮 'setup'
. l3 Z, ~# X* B. O  t6 \求大神解答啊
发表于 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
2 Y  u& r% q/ i' a: v8 }建一个叫做叫做Totals的绘图框就行了
  V* U/ N2 U3 W
哦,知道了,虽然自己应经找到问题了,不过还是谢谢哈
发表于 2016-5-3 09:17:18 | 显示全部楼层
你也可以直接再界面页创建“绘图”,然后设置时钟(ticks),每一步画一次,不用自己操心。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-6-26 00:52 , Processed in 0.018725 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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