- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《地砖曲线(curve)》
第一轮省选解题报告
By sx349
【摘要】
核心算法思想:FloodFill
主要数据结构:
其他辅助知识:
时间复杂度:
空间复杂度:
【题目大意】
根据给定的地砖排布,计算其中的曲线线段数和最长曲线长度
【算法分析】
对于给定的一种地砖排布(如示例):
如果以每块地砖作为点,那么显而易见的作为边的就应当是某一块地砖中某条边所连的两块地砖(比如第一行第二列中,左下角的那条花纹连接了第一行第一列的地砖和第二行第二列的地砖,那么就应当在代表这两块地砖的两个点之间连一条线)。但是,这种建图的方法有着相当不便的地方:
显然,有些地砖之间会存在不止一种方法连接着,比如第二行第一列右上角的花纹,它同样连接了第一行第一列的地砖和第二行第二列的地砖,那么这两个点之间应该再连一条边。但是,这两条边是从不同的位置离开和进入地砖的,因此,这两条边的前导边和后续边是有限定的。但是,如果按照我们现在的方式建图,无法通过任何方式表现出这种限定。
那么,我们就自然而然的可以将目光从地砖进一步深入下去。其实,我们对于地砖的大小、形状之类的属性没有任何兴趣,我们只关注地砖内部的两条边。而无论是哪一类地砖,我们必然会选中的有四个点,就是每一块地砖的四条边的中点。这些中点是由相邻两个地砖共用的,而它们之间的关系,可以由地砖上花纹的走向唯一确定。
那么,我们就把整张图中每条边的中点以及花纹提取出来,重新构成了如下的一张图:
(图中的红色部分)
然后,我们用FloodFill对每一个点进行填充,具体实现中,我们把处在第I行第J列的地砖上的四个点分别记为:
上: 2*I-1,J
左: 2*I,J
右: 2*I,J+1
下: 2*I+1,J
当地砖的形状为A型(第一行第三列)时,位置在上的点与位置在左的点相互转移,位置在右的点与位置在下的点相互转移。当地砖的形状为B型(第一行第一列)时,我们也可以得出类似的结论。
每当我们新找到一个没有被填充过的点时,就依照这个转移规则,通过DFS填充所有的在这一个连通分量上的点,记录其长度,总数计量加一,直到所有的点都被填充为止。
【心得体会】
这道题是这两年省选的经典题之一,其中的主要思想就在于构图时候的转化。这道题中的转化和我校训练时的一道水管铺设题类似,都是很明确的有点的概念。但是有些时候会有更复杂的情况,例如在有些带权图中,会把边作为点,把点拆为边进行处理,而在网络流问题中,也有很多情况要拆点以限制流的大小。这些需要我们在做题时灵活运用与转化。
【源代码清单】 PROG: curve
LANG: PASCAL
ID: szxyj Program Curve;
Var
Ans,Max,I,I1,J,N,M,T:Longint; V:Array[0..100,0..100] of Boolean;
Map:Array[0..100] of String;
Procedure Search X,Y:Longint ;
Begin
If V[X,Y] Then Exit;
V[X,Y]: True;
Inc T ;
If Odd X Then Begin If X 1 Then If Map[ X-1 Div 2,Y] A Then Begin Search X-1,Y+1 ; End Else Begin Search X-1,Y ; End; If X N*2+1 Then If Map[ X+1 Div 2,Y] A Then Begin Search X+1,Y ; End Else Begin Search X+1,Y+1 ; End;
End
Else Begin If Y 1 Then If Map[X Div 2,Y-1] A Then Begin Search X+1,Y-1 ; End Else Begin Search X-1,Y-1 ; End; If Y M+1 Then If Map[X Div 2,Y] A Then Begin Search X-1,Y ; End Else Begin Search X+1,Y ; End;
End;
End;
Begin
Readln N,M ;
For I: 1 to N do
Readln Map[I] ;
Fillchar V,Sizeof V ,0 ;
Ans: 0;Max: 0;
For I: 1 to N do Begin
I1: 2*I-1;
For J: 1 to M do Begin If Not V[I1,J] Then Begin T: 0; Search I1,J ; T: T-1; If T Max Then Max: T; Ans: Ans+1; End;
文档评论(0)