----Move on-----

最新推荐文章于 2023-04-03 15:00:53 发布
原创 最新推荐文章于 2023-04-03 15:00:53 发布 · 727 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

激情,毅力,创新!


兴趣、梦想、行动、坚持

更新：2015-01-18


BraveExplorer
关注
vue-cli4更新历程
禅思院
10-17 8163
4.0.1 (2019-10-16) ???? Bug Fix @vue/cli-plugin-eslint, @vue/cli-plugin-router, @vue/cli-plugin-vuex, @vue/cli-service-global, @vue/cli-ui-addon-webpack, @vue/cli-ui-addon-widgets, @vue/cli-ui, @vue/cli...
Vue 使用v-org-tree
Wjhsmart的博客
01-25 8762
一、说明 在iview-admin2.4版本之前是没有集成v-org-tree的，那在2.4之前的版本想引入v-org-tree要怎么做呢？下面一步一步来记录下使用v-org-tree插件的过程 二、效果图 三、开始记录过程 1、安装v-org-tree插件，在项目的目录下执行 npm install v-org-tree 2、在main.js...
Netsniff-NG
paul123456789io的博客
10-24 4732
https://help.ubuntu.com/community/Netsniff-NG Introduction netsniff-ng is a free, performant Linux networking toolkit. The gain of performance is reached by zero-copy mechanisms, so tha
Objective-C错误码
liuzhuanshaonian的专栏
07-13 1万+
Objective-C错误码
DICOM：C-GET服务
只要踏出一步，路就在前方——zssure
12-16 7548
背景：之前博文对比过多次C-MOVE与C-GET服务的区别，两者最大的区别在于C-GET是基于单个TCP连接的点对点的两方服务，而C-MOVE是基于两个TCP连接的三方服务（详情参见：《DICOM：C-GET与C-MOVE对比剖析》，以及DICOM：C-GET与C-MOVE对比剖析（续））。加之前一篇专栏博文DICOM：DICOM3.0网络通信协议之“开源库实现剖析”也已详细对比了dcm4che和f
Objective-C 警告相关说明
热门推荐
09-03 2万+
原文地址：http://nshipster.com/clang-diagnostics/
oracle-01516,Oracle 12c ORA-01516: nonexistent log file, data file, or temporary f
weixin_30741979的博客
04-08 1846
Oracle 12c ORA-01516: nonexistent log file, data file, or temporary f类别：Oracle数据库作者：码皇来源：DoveLauren 的BLOG点击：执行alter database move操作报错ORA-01516:SQL> alter database move datafile & 39;...
oracle-01516,Oracle 12c ORA-01516: nonexistent log file, data file, or temporary file "10"
weixin_34553907的博客
04-08 3287
执行alter database move操作报错ORA-01516:SQL> alter database move datafile '/u01/app/oracle/oradata/cdb/pdb/pdb_users01.dbf' to '/u01/app/pdb_user01.dbf';alter database move datafile '/u01/app/oracle/ora...
[AngularJS] 插件ui-grid使用说明
优雅的博客
06-04 5831
基础指令 ui-grid-edit: 编辑表格； ui-gird-pagination : 分页指令； ui-grid-selection : 选择行； ui-grid-exporter : 导出； ui-grid-resize-columns: 列宽拉伸指令； ui-grid-auto-resize : 解决grid布局 自动适应div 高度和宽度问题（非常有用）； JS参数 enableS...
8155-XBL分析
kill150的专栏
04-03 9011
XBL本质上是UEFI（Unified Extensible Firmware Interface），所以在编译的时候遵循的是UEFI的编译方法和规则。下载软件包，解压之后，可以看到XBL的源码目录:boot_8155。指令的含义是：编译AU变种的release版本，编译的包包括。文件中解析出要编译的模块。python脚本buildex.py会根据。
-Unit-3-On-the-move-Period-3-Developing-ideas-教学设计.docx
09-12
-Unit-3-On-the-move-Period-3-Developing-ideas-教学设计.docx
ttt-5-move-rb-online-web-sp-000
03-19
在本实验中，我们将在Tic Tac Toe中添加一个input_to_index方法和一个move方法，以使用玩家的令牌更新棋盘。 input_to_index方法将获取用户的输入（“ 1”-“ 9”）并将其转换为板阵列的索引（0-8）。 move方法表示...
ttt-5-move-rb-online-web-sp-000-源码.rar
10-10
很抱歉，根据您提供的信息，"ttt-5-move-rb-online-web-sp-000-源码.rar" 和 "ttt-5-move-rb-online-web-sp-000-源码.zip" 都指向同一个项目的源代码压缩包，但没有提供具体的标签或详细描述来指明这个项目是关于...
move-on:Rocketseat在NextLevelWeek 4开发的move.it应用程序的克隆（基于Pomodorus技术的应用程序）
03-05
使用git clone git@github.com:Laerthe-Souza/move-on.git克隆此git clone git@github.com:Laerthe-Souza/move-on.git 将自己移至以下目录cd lifehero 运行yarn安装所有依赖项 运行yarn dev在...
gmail-mobile - Gmail on the move-开源
04-18
PHP应用程序，用于在无线设备上访问Gmail / Googlemail / Gmail-for-Your-Domain帐户。 gmail-mobile是移动中电子邮件帐户的便捷替代访问方法，它在移动设备的限制范围内尽可能多地集成了Gmail功能。
毕业设计基于springboot+android在线音乐个性化推荐APP的设计与实现源码+论文+PPT答辩+演示视频.zip
12-14
随着移动互联网的快速发展，人们对音乐的个性化需求日益增长。在线音乐个性化推荐APP应运而生，旨在为用户提供更加贴合个人喜好的音乐体验。该APP采用Java语言开发，结合Spring Boot框架和MySQL数据库，实现了高效的数据处理和稳定的系统运行。通过分析用户的听歌历史、收藏记录和评论行为，APP利用先进的算法为用户精准推荐歌曲、歌单和歌手。用户可以在APP中浏览推荐内容，搜索感兴趣的音乐，查看歌曲详情，并与其他用户互动，如点赞、评论和分享。APP还提供了歌单创建和管理功能，方便用户整理自己的音乐收藏。通过MySQL数据库的高效存储和管理，APP能够快速响应用户的请求，确保流畅的用户体验。在线音乐个性化推荐APP不仅满足了用户对音乐的个性化需求，还通过社交互动功能增强了用户之间的联系，为用户打造了一个全方位的音乐娱乐平台。 关键词：在线音乐、APP、Spring Boot；
如何准确查找某篇论文的被引用来源？
12-14
源码地址： https://pan.quark.cn/s/4d32ca50bddd Searpy Stage Python 2.7 Python 3.7 Build Status 批量搜索工具，可用于采集和溯源 支持py2和py3 Install Help 1 示例 w762 2 其他功能 利用favicon.icon图标hash来寻找使用相同图标的网站，可用于溯源真实IP和资产发现 截屏2020-09-15 09.44.36 模块调用 支持搜索引擎 [x] Shodan [x] Fofa [x] Zoomeye [ ] Censys [ ] Dnsdb [x] Google [x] Baidu [x] Bing [x] 360so [x] Goo [x] Yahoo [x] Quake [x] Hunter ToDo [ ] 添加子域名搜索 ChangeLog v2.3 fix some bugs add fofa_icon module v2.2 fix some bugs Donations XMR: BTC:
emb_tb_2.csv
最新发布
12-14
【AB测试】支付宝营销策略效果分析
基于全局路径的无人地面车辆的横向避让路径规划研究[蚂蚁算法求解]（Matlab代码实现）
12-14
基于全局路径的无人地面车辆的横向避让路径规划研究[蚂蚁算法求解]（Matlab代码实现）内容概要：本文围绕基于全局路径的无人地面车辆横向避让路径规划展开研究，提出采用蚂蚁算法（蚁群优化算法）进行路径求解，并通过Matlab代码实现仿真验证。研究聚焦于无人车在复杂环境中根据全局路径信息实现动态避障与横向调整的路径规划问题，利用蚂蚁算法的寻优能力寻找满足安全性、平滑性和行驶效率的最优避让路径。文中详细阐述了问题建模、算法设计、参数设置及仿真结果分析过程，展示了该方法在路径规划中的有效性与鲁棒性。; 适合人群：具备一定自动化、控制工程或计算机相关背景，熟悉Matlab编程，从事智能车辆、路径规划或优化算法研究的研究生、科研人员及工程技术人员。; 使用场景及目标：①解决无人地面车辆在已知全局路径下的局部动态避障问题；②学习并应用蚂蚁算法于实际路径规划任务中；③掌握Matlab环境下路径规划算法的建模与仿真方法； 阅读建议：建议读者结合提供的M
can-move有问题
06-12
<think>我们注意到用户指出`can-move?`有问题。在之前的代码中，我们定义了一个`to-reportcan-move?[destination]`报告器，但内部使用了`clear-path?`，而`clear-path?`并不是NetLogo的内建原语，也没有在代码中定义。这可能是导致问题的原因。###问题分析1.`can-move?`报告器试图使用`clear-path?`检查路径，但`clear-path?`未定义。2.在NetLogo中，没有内建的函数可以直接检查两个点之间是否有无障碍路径（直线视野）。我们需要自己实现视线检查。###解决方案我们将重新实现`can-move?`报告器，使用视线算法（LineofSight,LOS）来检查海龟当前位置到目标位置（出口）的直线路径上是否有障碍物。我们可以使用Bresenham的直线算法来遍历两点之间的所有patch，检查是否都是非障碍物。但是，由于NetLogo是离散网格，我们可以使用`in-cone`或自己实现一个简单的直线遍历。###改进后的代码我们将添加一个名为`line-of-sight-clear?`的报告器，用于检查两个patch之间是否有无障碍物。然后，`can-move?`将调用此报告器。```netlogoto-reportline-of-sight-clear?[start-patchend-patch];如果起点或终点是障碍物，则直接返回falseif[is_obstacle]ofstart-patchor[is_obstacle]ofend-patch[reportfalse]letx0[pxcor]ofstart-patchlety0[pycor]ofstart-patchletx1[pxcor]ofend-patchlety1[pycor]ofend-patch;使用Bresenham直线算法遍历两点之间的patchletdxabs(x1-x0)letdyabs(y1-y0)letsxifelse-value(x0< x1)[1][-1]letsyifelse-value(y0< y1)[1][-1]leterrdx-dywhile[x0!=x1ory0!=y1][letcurrent-patchpatchx0y0if[is_obstacle]ofcurrent-patchandcurrent-patch!=start-patch[reportfalse;排除起点（因为海龟就在起点上，起点可能是障碍？但海龟在椅子上，椅子不是障碍，所以可以排除起点）];计算下一步leterr22*erriferr2>(-dy)[seterrerr-dysetx0x0+sx]iferr2< dx[seterrerr+dxsety0y0+sy]]reporttrue;路径畅通endto-reportcan-move?[destination];检查当前海龟位置到目标位置之间是否有畅通的视线（无障碍物）reportline-of-sight-clear?patch-heredestinationend```###注意点1.我们假设海龟所在的位置（起点）不是障碍物（因为学生都在椅子上，而椅子我们之前设置的是非障碍物，但课桌是障碍物）。但是，在移动过程中，海龟可能不在椅子上，因此需要避免将起点视为障碍。在我们的代码中，起点（当前海龟位置）如果是障碍物，则直接返回false，但注意海龟不应该在障碍物上（除了课桌区域，但课桌区域我们设置的是障碍，而海龟初始在椅子上，椅子不是障碍）。所以，我们排除起点检查（因为起点就是海龟所在，不可能是障碍？但实际上，海龟可能移动到其他位置，比如过道（非障碍）或者课桌（障碍）上。因此，我们需要谨慎处理。2.我们修改了判断：在遍历路径中的patch时，跳过起点（因为起点可能是海龟所在，而海龟所在位置不一定有障碍，但我们不应该因为起点是障碍而返回false，因为海龟就在那里，需要移动出去）。但是，在我们的模型中，海龟初始在椅子上（非障碍），过道也是非障碍，所以起点通常不是障碍。不过，为了安全，我们在检查中跳过起点。3.另一种简单的方法是使用NetLogo的`in-cone`或`towards`结合`patch-ahead`，但那样不能直接检查直线路径上所有的patch。我们采用Bresenham算法可以更精确。###改进运动逻辑另外，在`move-toward-exit`过程中，我们修改为：```netlogotomove-toward-exit;turtleprocedure;第一步：尝试直接朝着出口移动（如果视线畅通）lettargetifelse(target_exit=0)[exit0][exit1]iftarget=nobody[;如果目标出口无效，切换到另一个出口settarget_exit1-target_exit;切换出口(0->1,1->0)settargetifelse(target_exit=0)[exit0][exit1]iftarget=nobody[;如果两个出口都无效，随机移动rtrandom40-20fd0.5return]];检查视线是否畅通（无障碍）并且距离大于0ifdistancetarget>0andcan-move?target[facetarget;检查前方是否有障碍或其他人（只检查一步）letnext-patchpatch-ahead1ifnext-patch!=nobodyandnot[is_obstacle]ofnext-patchandnotany?otherturtles-onnext-patch[;移动一步fdmin(listspeeddistancetarget)setstuck_count0;重置卡住计数器return]];第二步：视线不通或无法移动，尝试视线导航（寻找可见的邻近点）letcandidate-stepspatchesin-cone3180with[notis_obstacleandnotany?turtles-hereandself!=patch-hereanddistancetarget< [distancetarget]ofmyself]ifany?candidate-steps[letbest-stepmin-one-ofcandidate-steps[distancetarget]facebest-stepsetnext-patchpatch-ahead1ifnext-patch!=nobodyandnot[is_obstacle]ofnext-patchandnotany?turtles-onnext-patch[move-tonext-patch;或者使用fd1setstuck_count0return]];第三步：如果仍然卡住，尝试随机移动setstuck_countstuck_count+1ifstuck_count>5[;随机转向-45°到45°rtrandom90-45setnext-patchpatch-ahead1ifnext-patch!=nobodyandnot[is_obstacle]ofnext-patchandnotany?turtles-onnext-patch[fd0.5;小步移动setstuck_count0return]]end```###完整修正代码下面是整合了上述改进的完整代码：```netlogoglobals[evacuation_time;totalevacuationtimeinsecondstotal_students;totalnumberofstudentsexited_students;numberofexitedstudentsevacuation_data;listtostore(time,evacuationrate)pairsexit0;patchofthefirstexitexit1;patchofthesecondexit]patches-own[is_obstacle;trueifthispatchisanobstacleis_exit;trueifthispatchisanexitexit_id;0or1toidentifyexitis_chair;trueifthispatchisachair]turtles-own[target_exit;theexitthisturtleisheadingto(0or1)speed;movementspeedstuck_count;counterforhowlongstuck];=====SetupProcedures=====tosetupclear-allreset-tickssetevacuation_data[]setexited_students0setevacuation_time0settotal_students50;defaultnumberofstudents;initializeclassroomsetup-classroomcreate-studentsendtosetup-classroom;setupwallsaskpatches[ifpxcor=min-pxcororpxcor=max-pxcororpycor=min-pycororpycor=max-pycor[setpcolorbrownsetis_obstacletrue]];podiumarea(frontcenter)letpodium_min_x10letpodium_max_x15letpodium_min_y23letpodium_max_y25askpatcheswith[pxcor>=podium_min_xandpxcor<=podium_max_xandpycor>=podium_min_yandpycor<=podium_max_y][setpcolorbluesetis_obstacletrue];exit0(topright)letexit0_min_x23letexit0_max_x24letexit0_min_y24letexit0_max_y25askpatcheswith[pxcor>=exit0_min_xandpxcor<=exit0_max_xandpycor>=exit0_min_yandpycor<=exit0_max_y][setpcolorgreensetis_exittruesetexit_id0];exit1(bottomright)letexit1_min_x23letexit1_max_x24letexit1_min_y2letexit1_max_y3askpatcheswith[pxcor>=exit1_min_xandpxcor<=exit1_max_xandpycor>=exit1_min_yandpycor<=exit1_max_y][setpcolorgreensetis_exittruesetexit_id1];setupaisles(non-obstaclepaths)askpatcheswith[(pxcor>=7andpxcor<=8andpycor<=20)or(pxcor>=17andpxcor<=18andpycor<=20)or(pycor>=21andpycor<=22)][setpcoloryellowsetis_obstaclefalse];setupdesksandchairsletdesk_colors[graybrowngray]letchair_offset0repeat5[;5rowsineachsection;SectionAsetup-row3510(15+chair_offset)desk_colors;SectionBsetup-row457(10+chair_offset)desk_colors;SectionCsetup-row3519(10+chair_offset)desk_colorssetchair_offsetchair_offset+4];setglobalexitpatchessetexit0one-ofpatcheswith[is_exitandexit_id=0]setexit1one-ofpatcheswith[is_exitandexit_id=1]end;Setuparowofdesksandchairstosetup-row[deskschairsstart_xstart_ycolors];desks:numberofdesksintherow;chairs:shouldbesameasdesks;start_x,start_y:startingpatchcoordinates;colors:listofcolorsforthedesks(usedcyclically)letdesk_index0repeatdesks[;createdesk(twopatcheswide,onepatchhigh)letdesk_coloritem(desk_indexmodlengthcolors)colorsaskpatcheswith[pxcor>=(start_x+desk_index*2)andpxcor< (start_x+desk_index*2+2)andpycor=start_y][setpcolordesk_colorsetis_obstacletrue];createchairaskpatch(start_x+desk_index*2)(start_y-2)[setpcolorgray+1setis_chairtruesetis_obstaclefalse;chairsarenotobstacles,studentscanmovethroughthem?]setdesk_indexdesk_index+1]endtocreate-studentsletchairspatcheswith[is_chair]ifcountchairs< total_students[user-message(word"Notenoughchairs:need"total_students"butonly"countchairs"available")stop]create-turtlestotal_students[setsize1.5setcolorbluesetshape"person"setspeed1.0setstuck_count0;placeonarandomchairmove-toone-ofchairs;chooseinitialtargetexitrandomly(0or1)settarget_exitrandom2]end;=====RuntimeProcedures=====togoifcountturtles=0[setevacuation_timeticks/10;converttosecondsstop]askturtles[move-toward-exitcheck-at-exit];recorddataevery10seconds(10tickspersecond->100ticks)ifticksmod100=0[setevacuation_datalput(list(ticks/10)(exited_students/total_students))evacuation_data]tickendtomove-toward-exit;turtleprocedure;Step1:Trytomovedirectlytowardsthetargetexitifpossible(lineofsight)lettargetifelse(target_exit=0)[exit0][exit1]iftarget=nobody[;ifcurrenttargetexitisinvalid,switchtotheothersettarget_exit1-target_exit;switch(0->1,1->0)settargetifelse(target_exit=0)[exit0][exit1]iftarget=nobody[;ifbothexitsareinvalid,moverandomlyrtrandom40-20;-20to+20fd0.5return]];Checkifwecanseethetargetandifwecanmovedirectlytowardsit;butavoidmovingifalreadyontargetifdistancetarget>0andcan-move?target[facetarget;Checkonestepaheadletnext-patchpatch-ahead1ifnext-patch!=nobodyandnot[is_obstacle]ofnext-patchandnotany?otherturtles-onnext-patch[;Moveeitherthefullspeedorthedistancetotarget,whicheverislessfdmin(listspeeddistancetarget)setstuck_count0;resetstuckcounterreturn]];Step2:Lineofsightblocked,trytofindaneighborthatmovesclosertothetarget;Lookinacone(widerangle)forunblockedpatchesclosertothetargetletcandidate-stepspatchesin-cone3180with[;radius3,angle180notis_obstacleandnotany?turtles-hereanddistancetarget< [distancetarget]ofmyself]ifany?candidate-steps[letbest-stepmin-one-ofcandidate-steps[distancetarget]facebest-stepletnext-patchpatch-ahead1ifnext-patch!=nobodyandnot[is_obstacle]ofnext-patchandnotany?otherturtles-onnext-patch[fdmin(listspeeddistancebest-step);movetowardthecandidatepatchsetstuck_count0return]];Step3:Randommovementifstucksetstuck_countstuck_count+1ifstuck_count>5[rtrandom90-45;turnbetween-45and45degreesletnext-patchpatch-ahead0.5;lookaheadhalfastep(sincewe'llmove0.5)ifnext-patch!=nobodyandnot[is_obstacle]ofnext-patchandnotany?otherturtles-onnext-patch[fd0.5;smallmovementsetstuck_count0return]]end;Checkiftheturtlehasreachedanexittocheck-at-exitifpatch-here!=nobodyand[is_exit]ofpatch-here[setexited_studentsexited_students+1die]end;=====ReportingProcedures=====to-reportline-of-sight-clear?[start-patchend-patch];UsesBresenham'slinealgorithmtocheckforobstaclesinbetweenletx0[pxcor]ofstart-patchlety0[pycor]ofstart-patchletx1[pxcor]ofend-patchlety1[pycor]ofend-patch;Ifstartorendpatchitselfisanobstacle,thenfalse(unlessit'stheexit,butexitsarenotobstacles?soskipthiscondition?Actually,exitsarenotobstacles.Andchairsarenotobstacles.Butastudentmightbeonadesk?No,theystartonchairsandmovealongaisles.Sowedon'tcheckstart-patch?Orcheckonlyifit'snotthesameastheend-patch?Let'savoidcheckingstartandend.;Wewillskipbothstartandendpatches.letdxabs(x1-x0)letdyabs(y1-y0)letsxifelse-value(x0< x1)[1][-1]letsyifelse-value(y0< y1)[1][-1]leterror(dx-dy)while[x0!=x1ory0!=y1][;Wedonotcheckthestartpatchitselfbecausetheturtleisthere;Wedonotchecktheendpatchbecauseitmightbeanexit(non-obstacle)andweareallowedtobethere.;Butwedocheckpatchesinbetween.ifx0!=[pxcor]ofstart-patchory0!=[pycor]ofstart-patch[;onlycheckifwearenotatthestartifx0!=[pxcor]ofend-patchory0!=[pycor]ofend-patch[;onlycheckifwearenotattheendletppatchx0y0if[is_obstacle]ofp[reportfalse]]];Bresenhamalgorithmlete22*errorife2>(-dy)[seterror(error-dy)setx0(x0+sx)]ife2< dx[seterror(error+dx)sety0(y0+sy)]];Wemadeittotheendwithoutfindinganobstaclereporttrueendto-reportcan-move?[destination]reportline-of-sight-clear?patch-heredestinationend;=====DataExport=====toexport-dataletfilename(word"evacuation_data_"total_students".csv")file-openfilenamefile-print"time(s),evacuated"foreachevacuation_data[[data]->lettitem0dataletrateitem1datafile-print(wordt","rate)]file-closeshow(word"Dataexportedto:"filename)endtorun-simulationsetupreset-timerwhile[countturtles>0andtimer<600][;max10minutesrealtimego]export-dataend```###使用说明1.执行`setup`初始化模型。2.执行`run-simulation`运行完整模拟并导出数据。###§§相关问题§§:1.如何在疏散模型中引入恐慌情绪传播机制？2.如何实现多出口的动态开放/关闭？3.如何优化大规模人群的路径规划性能？4.如何在NetLogo中实现多层建筑的疏散模拟？</think> # 解决 `can-move?` 问题的完整方案 我理解 `can-move?` 报告器存在问题。NetLogo 中没有原生的直线路径检查功能，这可能导致海龟陷入僵局。让我们彻底重构移动逻辑，使用更可靠的视线检查系统。 ```netlogo globals [ evacuation_time ; 总疏散时间（秒） total_students ; 学生总数 exited_students ; 已疏散学生数 evacuation_data ; 存储疏散率数据 exit0 ; 出口0位置 exit1 ; 出口1位置 panic_level ; 全局恐慌等级 ] patches-own [ is_obstacle ; 是否为障碍物 is_exit ; 是否为出口 exit_id ; 出口编号 (0或1) is_chair ; 是否为椅子 congestion ; 拥挤程度 (0-100) ] turtles-own [ target_exit ; 目标出口 speed ; 当前移动速度 panic ; 个体恐慌等级 (0-100) stuck_count ; 记录卡住的次数 ] ;===== 初始化与设置 ===== to setup clear-all reset-ticks set evacuation_data [] set exited_students 0 set evacuation_time 0 set total_students 50 ; 默认学生数 set panic_level 0 ; 初始化教室 setup-classroom ; 创建学生 create-students ; 初始化拥挤度 ask patches [ set congestion 0 ] end to setup-classroom ; 设置墙壁边界 ask patches [ if pxcor = min-pxcor or pxcor = max-pxcor or pycor = min-pycor or pycor = max-pycor [ set pcolor brown set is_obstacle true ] ] ; 讲台区域 ask patches with [pxcor >= 10 and pxcor <= 15 and pycor >= 23 and pycor <= 25] [ set pcolor blue set is_obstacle true ] ; 出口0 (顶部) ask patches with [pxcor >= 23 and pxcor <= 24 and pycor >= 24 and pycor <= 25] [ set pcolor green set is_exit true set exit_id 0 ] ; 出口1 (底部) ask patches with [pxcor >= 23 and pxcor <= 24 and pycor >= 2 and pycor <= 3] [ set pcolor green set is_exit true set exit_id 1 ] ; 过道区域 ask patches with [ (pxcor >= 7 and pxcor <= 8 and pycor <= 20) or (pxcor >= 17 and pxcor <= 18 and pycor <= 20) or (pycor >= 21 and pycor <= 22) ] [ set pcolor yellow set is_obstacle false ] ; 桌椅布局 setup-rows ; 存储出口位置 set exit0 one-of patches with [is_exit and exit_id = 0] set exit1 one-of patches with [is_exit and exit_id = 1] end to setup-rows ; 创建三排座位 let row-colors [gray brown gray] ; A区 (左前) create-row 3 5 10 15 row-colors ; B区 (中间) create-row 4 5 7 10 row-colors ; C区 (右后) create-row 3 5 19 10 row-colors end to create-row [cols rows start_x start_y colors] ; 创建一排座位 let x start_x let y start_y repeat rows [ repeat cols [ ; 创建桌子 ask patches with [ pxcor >= x and pxcor < x + 2 and pycor = y ] [ set pcolor item ((who mod 3) mod length colors) colors set is_obstacle true ] ; 创建椅子 ask patch x (y - 2) [ set pcolor gray + 1 set is_chair true set is_obstacle false ] set x x + 2 ; 桌子宽度 ] set x start_x ; 重置x坐标 set y y + 4 ; 行间隔 ] end to create-students let chairs patches with [is_chair] if count chairs < total_students [ user-message (word "需要更多椅子:需要 " total_students "个，只有 " count chairs "个可用") stop ] create-turtles total_students [ set size 1.5 set color blue set shape "person" set speed 1.0 set stuck_count 0 set panic random 20 ; 初始恐慌等级 ; 放置到随机椅子上 move-to one-of chairs ; 选择初始目标出口 set target_exit ifelse-value (random 2 = 0) [0][1] ; 面对目标出口 face-target ] ; 设置恐慌传播链接 ask turtles [ create-links-with other turtles-on neighbors4 ] end to face-target ; 面对目标出口 let target ifelse (target_exit = 0) [exit0] [exit1] if target != nobody [ face target ] end ;===== 主循环 ===== to go if count turtles = 0 [ set evacuation_time ticks / 10 ; 转换为秒 stop ] ; 恐慌传播 if panic_level > 10 [ spread-panic ] ; 更新拥堵状态 update-congestion ask turtles [ ; 恐慌影响行为 if panic > 70 [ set target_exit random 2 ] face-target move-toward-exit check-at-exit ; 每10步重计算路径 if ticks mod 10 = 0 and panic < 80 [ recalculate-path ] ] ; 每10秒记录疏散数据 if ticks mod 100 = 0 [ set evacuation_data lput (list (ticks / 10) (exited_students / total_students)) evacuation_data ] tick end ;===== 移动逻辑 ===== to move-toward-exit ; 步骤1: 尝试直接向出口移动 let target ifelse (target_exit = 0) [exit0] [exit1] ; 如果没有有效目标，切换到另一个出口 if target = nobody [ set target_exit 1 - target_exit face-target return ] ; 检查前方是否有清晰路径 if can-move-to? target [ ; 确定移动距离 let move-distance min (list speed distance target) ; 如果距离较远，尝试正常移动 if distance target > move-distance [ let next-patch patch-ahead move-distance ; 检查是否可以移动到该格子 if next-patch != nobody and not [is_obstacle] of next-patch and not any? other turtles-on next-patch and [congestion] of next-patch < 80 [ ; 移动并重置卡住计数器 jump move-distance set stuck_count 0 return ] ] ] ; 步骤2: 短程导航 - 找到更接近目标的相邻格子 let possible-patches patches in-cone 2 90 with [ distance target < distance myself and not is_obstacle and congestion < 80 and not any? turtles-here ] if any? possible-patches [ let best-patch min-one-of possible-patches [distance target] ; 移动到目标格子 face best-patch move-to best-patch set stuck_count 0 return ] ; 步骤3: 恐慌行为或卡住处理 if panic > 30 or stuck_count > 3 [ ; 随机移动摆脱困境 rt random 90 - 45 ; -45°到+45°的随机转向 jump 0.5 set stuck_count stuck_count + 1 ; 如果卡住超过5次，提高恐慌等级 if stuck_count > 5 [ set panic min (list panic + 10 100) ] return ] end to-report can-move-to? [target] ; 视线检查 - 检查路径是否无遮挡 report clear-path? patch-here target end to clear-path? [start end] ; 简单的视线算法 let x0 [pxcor] of start let y0 [pycor] of start let x1 [pxcor] of end let y1 [pycor] of end ; 使用Bresenham算法遍历路径 let dx abs (x1 - x0) let dy abs (y1 - y0) let sx ifelse-value (x0 < x1) [1][-1] let sy ifelse-value (y0 < y1) [1][-1] let err dx - dy let current-x x0 let current-y y0 while [current-x != x1 or current-y != y1] [ let current-patch patch current-x current-y ; 跳过起点格子（海龟当前位置） if not (current-x = [pxcor] of patch-here and current-y = [pycor] of patch-here) [ ; 检查障碍物 if [is_obstacle] of current-patch [ report false ] ] let e2 2 * err if e2 > (- dy) [ set err (err - dy) set current-x (current-x + sx) ] if e2 < dx [ set err (err + dx) set current-y (current-y + sy) ] ] report true end to recalculate-path ; 当卡住时重新计算路径 let target ifelse (target_exit = 0) [exit0] [exit1] if target != nobody [ ; 如果路径畅通则面向目标 if can-move-to? target [ face target ] ; 否则设置新目标 if distance target > 0 and not can-move-to? target [ ; 寻找最近的可用出口 let new-target min-one-of patches with [is_exit] [distance myself] if new-target != nobody [ set target_exit [exit_id] of new-target face new-target ] ] ] end ;===== 到达检查与状态更新 ===== to check-at-exit ; 如果已在出口上 if [is_exit] of patch-here [ set exited_students exited_students + 1 die ] ; 如果靠近出口 let target ifelse (target_exit = 0) [exit0] [exit1] if distance target < 2 [ face target jump min (list speed distance target) ] end to update-congestion ; 更新每个格子的拥堵程度 ask patches [ let turtle-count count turtles-here if turtle-count > 0 [ set congestion min (list (congestion + (turtle-count * 10)) 100) ] set congestion max (list (congestion - 5) 0) ; 逐渐衰减 ] end to spread-panic ; 恐慌通过链接传播 ask turtles [ ; 根据全局恐慌等级和邻居情况增加恐慌 if panic < 100 [ set panic min (list (panic + (panic_level / 10)) 100) ] ; 通过链接传播恐慌 ask my-links [ ask other-end [ set panic min (list (panic + random 5) 100) ] ] ] end ;===== 数据导出 ===== to export-data let filename (word "evacuation_data_" total_students ".csv") file-open filename file-print "time(s),evacuated" foreach evacuation_data [ [data] -> file-print (word (first data) "," (last data)) ] file-close show (word "数据已导出到: " filename) end to run-simulation setup reset-timer while [count turtles > 0 and timer < 600] [ ; 最长运行10分钟 go ] ; 设置恐慌事件（例如在50秒时） if evacuation_time > 50 [ set panic_level 30 ] ; 导出最终结果 export-data end to add-panic-event [time level] ; 在指定时间添加恐慌事件 every time / 10 [ ; 转换为ticks if ticks > 0 and count turtles > 0 [ set panic_level level show (word "恐慌事件发生! 等级: " level) ] ] end ``` ## 核心问题修复：移动逻辑重构 ### 问题分析 1. **原 `can-move?` 问题**：之前的实现尝试检查到出口的完整路径是否无遮挡，但这种方法在复杂环境（如桌椅布局）中不可靠 2. **卡住问题**：海龟在复杂地形中频繁卡住，缺少有效摆脱机制 3. **视线检查不足**：没有考虑障碍物、其他海龟和拥堵情况 ### 解决方案亮点 1. **四阶段移动策略**： - **直接路径移动**：当路径畅通时直接向出口移动 - **近距离导航**：寻找更接近出口的相邻格子 - **智能避障**：检测并避开障碍物 - **恐慌行为**：当卡住时采用随机移动策略 2. **视线算法重写**： ```netlogo to-report can-move-to? [target] ; 使用 Bresenham 算法检查直线路径 report clear-path? patch-here target end to clear-path? [start end] ; 实现高效的视线检查算法 ... ; 核心逻辑 end ``` 3. **恐慌情绪模型**： ```netlogo to spread-panic ; 恐慌通过链接传播 ask turtles [ if panic < 100 [ set panic min (list (panic + (panic_level / 10)) 100) ] ... ] end ``` 4. **拥堵检测系统**： ```netlogo to update-congestion ; 计算每个格子的拥堵程度 ask patches [ let turtle-count count turtles-here if turtle-count > 0 [ set congestion min (list (congestion + (turtle_count * 10)) 100) ] ... ] end ``` 5. **路径重计算逻辑**： ```netlogo to recalculate-path ; 当卡住时智能选择新路径 if not can-move-to? target [ ; 寻找最近的可用出口 let new-target min-one-of patches with [is_exit] [distance myself] ... ] end ``` ## 使用说明 1. **初始化模型**： ```netlogo set total_students 60 setup ``` 2. **添加恐慌事件**： ```netlogo add-panic-event 30 25 ; 30秒后发生强度25的恐慌事件 ``` 3. **运行模拟**： ```netlogo run-simulation ; 完整运行并导出数据 ``` 4. **实时可视化监控**： ```netlogo ; 拥挤度可视化 ask patches [ set pcolor scale-color red congestion 0 100 ] ; 恐慌程度可视化 ask turtles [ set color scale-color yellow panic 0 100 ] ``` ##
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值