设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 11527|回复: 4

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

  [复制链接]
 楼主| 发表于 2013-4-5 21:09:10 | 显示全部楼层 |阅读模式
我编的程序如下turtles-own [energy]
9 O7 ?3 ^3 d; J& uto setup7 k+ c+ b9 S6 S. @- a
  clear-all8 `1 a9 n# ?; ^
  setup-patches
( |: h6 t9 I- b% R3 f  create-turtles 100- R* i* V4 N  H: t& F' \
  do-plots0 w0 M; e$ T1 F6 S. s$ f
  ask turtles [ setxy random-xcor random-ycor ]
( b4 I- O5 v2 p$ [1 _end3 X4 J) V+ z* B
to go
* v! C- d7 A  N, Z8 A  move-turtles
' X/ B# M  Z, S  eat-grass
  ]: p$ E  q% ~( \. l; X: E) X0 x  reproduce
$ p# [7 K7 C( ]2 r, n+ s" ~8 v  check-death2 C5 ^% N" v9 M5 N# X# I
  regrow-grass# X8 I7 L1 ^5 l9 E( G$ F: _
  do-plots
' p/ u% j9 u% r) e4 oend& V9 O2 m" k6 N9 w
to move-turtles3 C  U$ B  x4 l! T) E# L
  ask turtles [* J" |6 C" m  ]; b" _$ `' n6 c7 C
    right random 360; h. t" p0 ]  X  k
    forward 1! t. o3 W/ ^) m. O3 n/ }  y
    set energy energy - 14 i: W; q5 M  U5 B
    ]
: i, \: y  r$ D, m  M6 _end
/ |/ U# T0 q) V+ s  a4 Z. Pto setup-patches  P. U  j2 ?( q( u6 S# `& b( M
  ask patches [ set pcolor green ]5 b$ |# U  U" P9 i- B) N3 b
end
/ s* d. w, a1 h6 H$ ?, qto setup-turtles8 ?/ ^* P( R$ \% _7 C& @6 ~
  create-turtles 1003 e% E* s/ \0 c! x
  ask turtles [ setxy random-xcor random-ycor ], `) s) [3 G5 e* @) w
end
) S' h5 M2 K8 z" Sto eat-grass5 _; w% A4 V9 X4 s+ l
  ask turtles [
* u& q: q# A5 W& C7 t) W9 ?7 Y, C    if pcolor = green [) P2 P/ l: i' o
      set pcolor black
, H$ `: g9 `, q0 D5 ?      set energy (energy + 10)
  A; T- N& t4 [' V2 a1 r      ], \7 E8 O: X) ], h8 g# T% d9 c; j$ M
    ifelse show-energy?
9 x% i/ R* n: r. Z2 Q5 j6 Z      [ set label energy ], G6 u( `3 x% @) A! A
      [ set label "" ]! U' i* d0 U2 D, z6 j0 m! s
    ]+ q- V7 @# P( A" y3 c0 B& R. y
end
( V1 I3 \' Z( l9 \0 Y& zto reproduce9 R8 `+ B6 b; E6 |
  ask turtles [
& Q$ s5 P5 j& L: B8 P* S    if energy > 50 [
% s. F$ a6 I4 t0 l8 A      set energy energy - 509 z1 m* G0 T- \+ r0 ^
      hatch 1 [ set energy 50 ]
+ Q5 J/ k, K* v2 z0 h& O! Z      ]
- ]+ T" Z$ c4 j, e5 ?: E    ]
+ |; }2 M# o" e% i  ~end
, T* p' A! q. X4 L+ v( S0 J) wto check-death; x& [: V' A4 h/ X" U
  ask turtles [
4 k: z) J5 u' f8 X    if energy <= 0 [ die ]
8 i) ]( u, V& N/ y- i: q/ D    ]
9 b9 A- P: R) Z/ Y: N7 j: Wend
: P% t0 Z8 h+ l! n3 C' R/ P; Uto regrow-grass
0 |. z( n: z; g7 E* k3 {  ask patches [
7 C9 q8 n5 r8 B4 i5 T- h, j    if random 100 < 3 [ set pcolor green ]3 l0 o1 c/ o6 `6 C3 z
    ]
  s% a6 C  f: Tend8 N$ G$ Y% k/ c  U$ f/ l2 W
to do-plots; o. ?! e) D0 I; Z7 o
  set-current-plot "Totals"
4 i, v+ P3 ?: x3 ^7 M; O  set-current-plot-pen "turtles"
* h% x% S$ t$ j" Z" L+ C  plot count turtles
6 G- O7 w1 T" _- L  set-current-plot-pen "grass"$ g& n; f3 n+ r7 u5 O7 F- c' h! Z0 x
  plot count patches with [pcolor = green]
1 m* Q6 P( G6 l! G  Uend8 x3 k  }; e' d( ]7 m
可是运行时提示no such plot: "Totals"5 A' H+ ~  g# H  ~
error while observer running SET-CURRENT-PLOT
7 q3 Y% K% o' M8 C  called by procedure DO-PLOTS$ g  \) w/ V: T& T
  called by procedure SETUP
2 S( K0 A/ K# y  Z6 R1 t  called by 按钮 'setup'
( k! ~' p# K1 F$ X- `2 d2 d求大神解答啊
发表于 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   N; t, K+ E5 Q/ ~, }; L( D
建一个叫做叫做Totals的绘图框就行了

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

本版积分规则

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

GMT+8, 2026-6-6 03:07 , Processed in 0.013250 second(s), 16 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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