5 5 5 5 5 5 5 5 5 5
2 n 2 n 2 n 2 n 2 n 2 n 2 n 2 n 2 n 2 n
0 a 0 a 0 a 0 a 0 a 0 a 0 a 0 a 0 a 0 a
Z D Z D Z D Z D Z D Z D Z D Z D Z D Z D
h u h u h u h u h u h u h u h u h u h u
o o o o o o o o o o
实现的代码函数：
zcurve = function(string = NULL, n = NULL){
strs = stringr::str_split(string, pattern = "")
nInterval = n - 2
nTotal = n + nInterval
res = list()
j = 1
for(s in strs){
nc = (n-1) * (length(s) %/% nTotal) + (length(s) %% nTotal %/% n) + 1
df = matrix(data = "", nrow = n, ncol = nc)
for (i in 1:length(s)){
rx = ifelse((i %% nTotal <= n) & (i %% nTotal > 0), i %% nTotal,
ifelse(i %% nTotal == 0, 2, n - (i %% nTotal) %% n ))
ry = ifelse((i %% nTotal <= n) & (i %% nTotal > 0),
(n-1) * (i %/% nTotal) + 1,
ifelse((i %% nTotal <= n) & (i %% nTotal == 0),
(n-1) * (i %/% nTotal),
(n-1) * (i %/% nTotal) + i %% nTotal %% n + 1)
)
df[rx, ry] = s[i]
}
res[[j]] = df
j = j + 1
}
if(length(res) == 1){
prmatrix(res[[1]],
rowlab=rep("",nrow(res[[1]])),
collab=rep("",ncol(res[[1]])),
quote = FALSE)
}else{
for(i in 1:length(res)){
cat("#---- Z Curve #", i, "\n")
cat("\n")
prmatrix(res[[i]],
rowlab=rep("",nrow(res[[i]])),
collab=rep("",ncol(res[[i]])),
quote = FALSE)
cat("\n")
}
}
}
支持多个字符串输入，通过设定输入的字符串和行数，函数就可以自动画出曲线了~
测试如下：
> zcurve(string = paste0(letters[1:20], collapse = ""), n = 5)
a i q
b h j p r
c g k o s
d f l n t
e m
> zcurve(string = c(paste0(letters[1:20], collapse = ""),
+ paste0(letters[20:1], collapse = "")), n = 5)
#---- Z Curve # 1
a i q
b h j p r
c g k o s
d f l n t
e m
#---- Z Curve # 2
t l d
s m k e c
r n j f b
q o i g a
p h
一开始的文字嘛，需要下面一行代码实现。
zcurve(string = paste0(rep(c("5","2","0","Z","h","o","u","D","a","n"),10),collapse = ""),
n = 6)
