找回密码
 注册
Simdroid-非首页
查看: 1909|回复: 14

[编程进阶] 出个简单小题:古文排版

[复制链接]
发表于 2009-9-18 10:55:53 | 显示全部楼层 |阅读模式 来自 江苏无锡
悬赏1仿真币已解决
本帖最后由 FreddyMusic 于 2009-9-18 11:01 编辑

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

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

Tips:
游客,如果您要查看本帖隐藏内容请回复
发表于 2009-9-18 10:55:54 | 显示全部楼层 来自 北京
Simdroid开发平台
本帖最后由 waynebuaa 于 2009-9-18 13:24 编辑

  1. text = "滚滚长江东逝水,浪花淘尽英雄。是非成败转头空:青山依旧在,几度夕阳红。白发渔樵江渚上,惯看秋月春风。一壶浊酒喜相逢:古今多少事,都付笑谈中。";
  2. Manipulate[Text[Style[Grid[Transpose[Reverse[Partition[PadRight[Characters[text], Ceiling[StringLength@text, r], ""], r]]]], 25]], {{r, 8, "Rows"}, 5, 10, 1}]
复制代码
回复

使用道具 举报

 楼主| 发表于 2009-9-18 10:56:18 | 显示全部楼层 来自 江苏无锡
本帖最后由 FreddyMusic 于 2009-9-18 10:59 编辑

如下是个练习的小诗。
滚滚长江东逝水,浪花淘尽英雄。
是非成败转头空:青山依旧在,几度夕阳红。

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

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


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
回复

使用道具 举报

发表于 2009-9-18 12:03:50 | 显示全部楼层 来自 北京
Mathematica7的文字可以Rotate,有兴趣的可以参考一下
回复

使用道具 举报

 楼主| 发表于 2009-9-18 12:12:43 | 显示全部楼层 来自 江苏无锡
Answer
游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表于 2009-9-18 21:31:10 | 显示全部楼层 来自 美国
在我的机器上是字体混排

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
回复

使用道具 举报

发表于 2009-9-21 09:26:59 | 显示全部楼层 来自 北京
这是正常的,说明你的Mathematica至少是版本6
6以前的英文版都能很好的支持中文字体,之后的英文版就不支持中文字体了
回复

使用道具 举报

发表于 2009-9-21 09:42:19 | 显示全部楼层 来自 北京
中文版的应该能很好的支持中文字体吧,我没用过。
我想我们这里面的人也应该都是在用D版的,英文版的。
回复

使用道具 举报

发表于 2012-6-12 22:54:08 | 显示全部楼层 来自 四川成都
好好学习学习
回复

使用道具 举报

发表于 2012-7-5 22:12:56 | 显示全部楼层 来自 北京
汉字处理有点意思
回复

使用道具 举报

发表于 2012-7-11 11:57:59 | 显示全部楼层 来自 河南开封
学习一下,谢谢
回复

使用道具 举报

发表于 2012-7-19 13:55:21 | 显示全部楼层 来自 安徽安庆
本帖最后由 gotit 于 2012-7-19 13:58 编辑

wayne的padright省去了好多代码
回复

使用道具 举报

发表于 2012-8-3 10:44:19 | 显示全部楼层 来自 山东淄博
这个非常有意思
回复

使用道具 举报

发表于 2012-9-13 16:15:52 | 显示全部楼层 来自 天津
不错,想法好
回复

使用道具 举报

发表于 2021-1-21 11:03:22 | 显示全部楼层 来自 中国
很久不来这里了,
这代码很有启发性,很有用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-28 22:32 , Processed in 0.039012 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表