设为首页收藏本站

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

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 8487|回复: 2

[求助] 代碼的问题需要求助..

[复制链接]
发表于 2008-6-3 17:42:03 | 显示全部楼层 |阅读模式
10仿真币
我想请问各位大大高手帮我解决我的问题$ S; B# J, z" M' W6 B
我先简述一下我所要做的模型,我的模型里,整体有两种人,政府与民众。 5 D4 z0 z3 y- P+ v: {6 z
那政府里又分为四种策略的人faithfuls ,trigger-punishments ,trigger-punishments , mixeds + e8 Y3 e3 V7 ^6 s' A
那政府要与民众互动,选择合作与不合作,政府合作和民众合作可得分(energy)
& j' J' ?5 `0 R  o- K,相对的不合作也有得分但当我要开始写规则的时候,却发现程式无法照我的意思去跑,想请问各位高手能帮我看看是哪里出问题了吗?. d1 i+ Y2 {! Z, ?2 c
breed [peoples people]6 U: q- ?. T0 y- m) r% E/ e% N
breed [faithfuls faithful]
3 B* }5 F2 V9 ]' j) vbreed [trigger-punishments trigger-punishment]% S; K8 ?' A" R) l5 q
breed [tit-for-tats tit-for-tat], D3 Y+ F. y% v) H, W% W
breed [mixeds mixed]    8 N- m6 o- s+ |" _, }6 e" C
turtles-own [cooperate?  energy]
$ p9 e' E% R0 C; p9 `. Y+ q! Q: W
* {4 K, U7 ]: S1 r/ Sto setup( Z/ H  Q9 S/ T
set-default-shape turtles "person"0 x9 S  T& e0 T4 q9 [' L8 a
  clear-all               * D# _  @4 s2 {1 h, Y: R0 m& P
  setup-peoples  / Y3 G+ G- v; ?0 H8 D/ `. c! M
  setup-goverments. T. f* @/ N# D/ v% G* H
ask faithfuls  [ set energy 0 ]   H) X. K1 S2 _
ask trigger-punishments  [set energy 0 ]2 u4 ?- j* v3 y+ g  O$ Y! N1 m* I
ask tit-for-tats  [set energy 0 ]% i4 i5 H& B: j7 e' c. ^" m
ask mixeds  [set energy 0 ]
/ h) k; Y  n7 g. v0 ~" m2 Y/ D. _1 mask peoples  [set energy 0 ]
4 E( t/ i! x; _1 ]end
6 C& S0 b* ?! C
4 l- t! C# v) i# uto setup-peoples
9 e5 r; E  [* g2 M8 M6 F7 L
- {3 o' |0 T( a& p4 Iask patches with [-1 < pxcor and pxcor < 20 and pycor = 0]
( }% Y  S/ b- m, v( |[sprout-peoples 1 [ set color blue set heading 0 ]6 f& x7 O4 I8 I5 [" N

9 g5 [$ }6 F0 }% p% C" u* []
2 B2 F5 @/ W1 F9 o3 K' L3 w5 k- b# Rend' t6 N; d2 F. y

- i8 S' H/ n: h# f' |! \to  setup-goverments3 \1 K, d/ j/ A9 F3 W% h
create-faithfuls  5 [set color red set heading 180] 9 \! ~8 T# L5 q9 [
create-trigger-punishments  5 [set color green set heading 180]1 b% H! q1 ~) ]4 h. I( c( M
create-tit-for-tats  5 [set color white set heading 180]; G2 o7 B0 D2 l/ M5 i6 Y
create-mixeds  5 [set color pink set heading 180]) ]/ Z. }6 g5 |" Y8 B$ Z4 L
ask turtles with [ color != blue ] [while [any? other turtles-here] [setxy random 20 1]7 v4 c& a) }+ U$ k4 o" ]( P
]8 ~  U5 i/ S  b% r' h8 t
end/ u8 a/ e% c; L6 s
! A) ]! O) f" a# M- f5 o( H
to go2 c* b5 g# g: f, W% \4 x3 B' n. Q
ask  peoples [ set cooperate? random 2]
( ]/ v% }% b! L5 |0 l  ask  faithfuls [  set cooperate? random 2]
+ q( Q2 E/ l1 [; ~! l  ask  trigger-punishments [ set cooperate? random 2]
' {8 A4 {. D3 i1 P( Y2 R  ask  tit-for-tats [ set cooperate? random 2]- P$ v( @6 U8 r. z* O3 d3 G+ j
  ask  mixeds [ set cooperate? random 2]# @: H3 m. ~* A# i; w  t" A) T/ e
  
" \$ v' @2 R( ~+ ?+ H+ Y; i  ask faithfuls [
/ i1 m! d$ C6 k. n& e  if ( cooperate? = [cooperate?] of peoples-on patch-ahead 1 ) 8 S8 `" z& B/ _) E+ d! y
   [  set energy  energy + 8
6 t! j- F& T* p( A' J% [7 l      ask peoples-on patch-ahead 1 [ set energy  energy + 2] ]) U$ Y; |* U+ {" p
      ]         就是这里出问题了无法照我的意思去跑6 T% l9 t, u' U" A5 w& o$ N& O
  ifelse (show-energy?)
2 j) {3 _, C- u7 ?8 N; B. s6 {    [ ask turtles [ set label (energy) ] ]' k) w" L1 `) z( J, c" _
    [ ask turtles [ set label "" ] ]) q! v2 O7 E, t! q+ h6 I( B( D' T
  end/ v8 I% J; C, d8 Z( _$ b" {4 G: a
希望大家能帮我解决一下不然我没办法继续写下去
; _% O% _$ X- E& j- o  n. W
, s& A3 k7 J4 G- [+ D: W% V. [4 P& x[ 本帖最后由 h64914110 于 2008-6-4 10:51 编辑 ]

最佳答案

查看完整内容

为什么不考虑用patches设定政府,假设政府不能够移动,民众可以通过用脚投票选择政府。这样也许可以解决你说的问题。
发表于 2008-6-3 17:42:04 | 显示全部楼层
为什么不考虑用patches设定政府,假设政府不能够移动,民众可以通过用脚投票选择政府。这样也许可以解决你说的问题。
 楼主| 发表于 2008-6-4 11:57:22 | 显示全部楼层
简单点说好了模型固定分为上下两排,上为政府下为民众, a; M& ?! S, h5 C+ C+ C. B: E5 |
每一个政府类的人对应一个民众
1 e  p$ L" ^# }上下两两对应  但我现在问题就是  我不知道turtles是否有互相对应到
/ `4 D5 u" q& M, r! Y9 T那如果没对应到    要让turtles互相对应的语法又该怎么写?
% n7 @+ L! \# C0 W% b我是新手  麻烦大家帮帮忙  传短讯给我也可以  谢谢  O  ?5 h5 C  E7 B# {# W

: V) [1 {. i5 M, b( K5 X5 m[ 本帖最后由 h64914110 于 2008-6-4 11:58 编辑 ]
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-12-16 16:04 , Processed in 2.494290 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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