第一节 魔方的简单表示
对于任意N阶的魔方均有六个面(Surface),每个面有N*N个方块。在面向对象的程序设计里,我们可以把魔方(Cube)、魔方的面(Surface)和面的方块(Block)均视作为对象。
魔方的定义:六个面存储在一个数组
''' <summary> ''' 表示一个指定阶的魔方 ''' </summary> Public Class CubeClass ''' <summary> ''' 魔方阶数 ''' </summary> Public CubeRank As Integer ''' <summary> ''' 魔方的六个表面 ''' </summary> Public SurfaceArray(5) As CubeSurfaceClass End Class
魔方的面定义:方块存储为N*N的二维数组
''' <summary> ''' 表示一个魔方的面 ''' </summary> Public Class CubeSurfaceClass ''' <summary> ''' 魔方表层的块数据 ''' </summary> Public BlockData(,) As CubeBlockClass End Class
魔方的块定义:每个块具有独立的颜色
''' <summary> ''' 表示魔方面上的一个方块 ''' </summary> Public Class CubeBlockClass ''' <summary> ''' 当前块的颜色 ''' </summary> Public BlockColor As Color Public x As Integer '所在列数 Public y As Integer '所在行数 End Class
上述,我们完成了魔方类的简单定义,并且确立了之间的从属关系。这里有一点需要注意,方块(BlockClass)是指魔方的单个颜色块。
所以N阶魔方应有6*N*N个颜色块,以三阶魔方为例,它应有54个颜色块(BlockClass)。
--------------------------------------------------------------------------------
第二节 面之间的空间关系
魔方的六个面之间并非独立的,而是存在一定的空间关系。前面在CubeClass中定义了SurfaceArray()表示魔方的六个面,现在索引0~5分别指示魔方的顶层,底层,左侧,右侧,前方,后方六个面。
SurfaceArray(0):顶层
SurfaceArray(1):底层
SurfaceArray(2):左侧
SurfaceArray(3):右侧
SurfaceArray(4):前方
SurfaceArray(5):后方
图2.1 魔方六面的空间位置
由此确定了各个面的空间方位,给SurfaceClass添加如下定义:
''' <summary> ''' 当前表层的相邻表层(顶、底、左、右、前和后) ''' </summary>
Public NeibourSurface(5) As CubeSurfaceClass
NeibourSurface()的索引从0~5依次指示当前面的顶、底、左、右、前和后。以图2.1“右面”为例,它的NeibourSurface()
应该为
NeibourSurface(0):顶层
NeibourSurface(1):底层
NeibourSurface(2):前方
NeibourSurface(3):后方
NeibourSurface(4):右侧,每一个面的“前”就是它自身
NeibourSurface(5):左侧
但上述是默认为"右面"的"上方"就是顶层。所以我们还需要
对每一个面的“上方”进行严格的定义:
图2.2 魔方六面的空间位置_平面展开
图2.3 魔方六面"上方"的方向
由上,我们可以确定各面之间的空间关系:
Dim TempArray(,) As Integer = {{2, 3, 4, 5, 0, 1}, {3, 2, 4, 5, 1, 0}, {1, 0, 4, 5, 2, 3}, {0, 1, 4, 5, 3, 2}, {0, 1, 2, 3, 4, 5}, {0, 1, 3, 2, 5, 4}} '空间相邻关系矩阵
该矩阵行数值指某个面在SurfaceArray()中的索引,列数表示这个面相邻的面在SurfaceArray()的索引。前面提到每一个面的“前”就是它自身,矩阵的第五列从0依次到5。
在CubeClass类中添加如下方法,并在构造函数中调用:
''' <summary> '''初始化各个表层间的空间相邻关系 ''' </summary>
Public Sub InitSurface() Dim TempArray(,) As Integer = {{2, 3, 4, 5, 0, 1}, {3, 2, 4, 5, 1, 0}, {1, 0, 4, 5, 2, 3}, {0, 1, 4, 5, 3, 2}, {0, 1, 2, 3, 4, 5}, {0, 1, 3, 2, 5, 4}} '空间相邻关系矩阵 For i = 0 To 5 For j = 0 To 5 SurfaceArray(i).NeibourSurface(j) = SurfaceArray(TempArray(i, j)) Next Next End Sub
--------------------------------------------------------------------------------
第三节 魔方的初始化
魔方(CubeClass)的构造函数:六面的颜色标准:顶-白色,底-黄色,左-橙色,右-红色,前-绿色,后-蓝色
''' <summary> ''' 新建一个指定阶的魔方 ''' </summary> ''' <param name="nRank">指定的阶数</param> Public Sub New(ByVal nRank As Integer) Dim ColorArr() As Color = {Color.White, Color.Yellow, Color.Orange, Color.Red, Color.Green, Color.Blue} For i = 0 To 5 SurfaceArray(i) = New CubeSurfaceClass(nRank, i, ColorArr(i)) Next CubeRank = nRank InitSurface() End Sub
魔方面(CubeSurfaceClass)的构造函数:
''' <summary> ''' 当前魔方的阶数 ''' </summary> Public CubeRank As Integer ''' <summary> ''' 魔方表层的数据 ''' </summary> Public BlockData(,) As CubeBlockClass ''' <summary> ''' 当前表层的相邻表层(顶、底、左、右、前和后) ''' </summary> Public NeibourSurface(5) As CubeSurfaceClass Public Index As Integer Public Sub New(nRank As Integer, nIndex As Integer, nColor As Color) ReDim BlockData(nRank - 1, nRank - 1) CubeRank = nRank Index = nIndex Dim rnd As New Random For i = 0 To nRank - 1 For j = 0 To nRank - 1 BlockData(i, j) = New CubeBlockClass(i, j) BlockData(i, j).ParentIndex = Index BlockData(i, j).BlockColor = nColor Next Next End Sub
魔方块(CubeBlockClass)的构造函数:
Public ParentIndex As Integer ''' <summary> ''' 当前块的颜色 ''' </summary> Public BlockColor As Color Public x As Integer '所在列数 Public y As Integer '所在行数 Public Sub New(nX As Integer, nY As Integer) x = nX y = nY End Sub
至此,一个任意阶的魔方已可以被表示,并且在此基础上将可以实现魔方的扭动逻辑。
以上所述是针对.NET实现魔方游戏(一)之任意阶魔方的表示,希望对大家有所帮助。
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。
更新日志
- 纯音入心系列纯音乐《中央民族乐团-古筝传奇》1CD[MP3][253.1MB]
- 江玲.1989-这样你才爱我,是吗?【新作有声】【WAV+CUE】
- 郭美美.2010-我是郭美美【华纳】【WAV+CUE】
- 黄心懋1991-轻忧郁【滚石】【WAV+CUE】
- 群星.2000-大地金曲世纪回顾2CD【大地】【WAV+CUE】
- 王菲.1996-浮躁(2024环球MQA-UHQCD限量版)【环球】【WAV+CUE】
- 群星.2022-传家电视剧原声带【东阳欢娱】【FLAC分轨】
- 《摇滚教父 伍佰黄金精选 2CD》 [WAV+CUE][1GB]
- 《凤凰传奇 我从草原来》[WAV/分轨][400MB]
- 《叶倩文 真心真意过一生》[WAV+CUE][400MB]
- 潘越云.1985-世间女子(滚石25周年经典复刻版)【滚石】【WAV+CUE】
- 陈柏宇.2009-CANT.BE.HALF【SONY】【WAV+CUE】
- 李明依.1989-小女生【滚石】【WAV+CUE】
- 《李荣浩 新时代创作新人王》[WAV分轨][310MB]
- 《黑鸭子与马头琴 史上最动听草原音乐》[WAV+CUE][320MB]