论坛 › K05：Mathematica › 出个简单小题：古文排版

FreddyMusic 发表于 2009-9-18 10:55:53

出个简单小题：古文排版

本帖最后由 FreddyMusic 于 2009-9-18 11:01 编辑

今天的汉字从左到右，从上至下每行横着书写，
而古文从右到左，从上至下每行竖着书写。

如何让 Mathematica 自动排版，将今天的汉字书写排版变成古文书写格式？
试编程排版，并把代码写的最短。

Tips:
**** Hidden Message *****

waynebuaa 发表于 2009-9-18 10:55:54

本帖最后由 waynebuaa 于 2009-9-18 13:24 编辑


text = "滚滚长江东逝水，浪花淘尽英雄。是非成败转头空：青山依旧在，几度夕阳红。白发渔樵江渚上，惯看秋月春风。一壶浊酒喜相逢:古今多少事，都付笑谈中。";
Manipulate, Ceiling, ""], r]]]], 25]], {{r, 8, "Rows"}, 5, 10, 1}]

FreddyMusic 发表于 2009-9-18 10:56:18

本帖最后由 FreddyMusic 于 2009-9-18 10:59 编辑

如下是个练习的小诗。

滚滚长江东逝水，浪花淘尽英雄。
是非成败转头空：青山依旧在，几度夕阳红。

白发渔樵江渚上，惯看秋月春风。
一壶浊酒喜相逢：古今多少事，都付笑谈中。

                                       调寄《临江仙》
                                     《三国演义》开首词   罗贯中


要求排板后效果如图，可省略标点符号。

waynebuaa 发表于 2009-9-18 12:03:50

Mathematica7的文字可以Rotate，有兴趣的可以参考一下

FreddyMusic 发表于 2009-9-18 12:12:43

Answer
**** Hidden Message *****

hellboy2 发表于 2009-9-18 21:31:10

在我的机器上是字体混排

waynebuaa 发表于 2009-9-21 09:26:59

这是正常的，说明你的Mathematica至少是版本6
6以前的英文版都能很好的支持中文字体，之后的英文版就不支持中文字体了

waynebuaa 发表于 2009-9-21 09:42:19

中文版的应该能很好的支持中文字体吧，我没用过。
我想我们这里面的人也应该都是在用D版的，英文版的。

fury 发表于 2012-6-12 22:54:08

好好学习学习

liweicai990 发表于 2012-7-5 22:12:56

汉字处理有点意思

wushi111 发表于 2012-7-11 11:57:59

学习一下,谢谢

gotit 发表于 2012-7-19 13:55:21

本帖最后由 gotit 于 2012-7-19 13:58 编辑

wayne的padright省去了好多代码

xiaoqing8569 发表于 2012-8-3 10:44:19

这个非常有意思

shenxiong 发表于 2012-9-13 16:15:52

不错，想法好

snowhunter 发表于 2021-1-21 11:03:22

很久不来这里了，
这代码很有启发性，很有用

查看完整版本: 出个简单小题：古文排版