囚徒困境仿真

囚徒困境：编程： 1在海龟窗口中的程序： turtles-own totalpay pay to placeuniqueif count-turtles-here = 1 stopsetxy random screen-width random screen-height placeuniqueendto getpaylet :currentdir 0 :current 0 set pay 0 repeat 8set :current ( one-of-turtles-towards :currentdir 1 ) ifelse color = blueif (color-of :current) = blue set pay pay + 10if (color-of :current) = red set pay pay + profit set :currentdir :currentdir + 45set totalpay totalpay + payend to movefd 1 rt random 360 placeunique end to decidelet :current 0 :currentdir 0 :max 0 :maxcurrent 0repeat 8set :current (one-of-turtles-towards :currentdir 1) if :current -1if (totalpay-of :current) :maxset :max totalpay-of :current set :maxcurrent :current set :currentdir :currentdir + 45 setc color-of :maxcurrentend在观察者的窗口中的编程：to setupcacrt screen-width * screen-height * (pctcover / 100)ask-turtles ifelse (random 100) copercent setc bluesetc redask-turtles setshape square-shapeplaceuniqueendto goask-turtlesgetpaymovedecideend当利润率=10%是最终的状态时所有企业都采取合作的策略。如下图所有的方块都为蓝色（代表合作）。当利润率=10%是最终的状态时所有企业都采取不合作，背叛的策略。如下图：所有方块都变为红色（代表背叛）