他的首页
他的馆藏
他的动态
馆友反馈
关于他
| 共 6 篇文章 |
|
Blog Archive ?Matrix67: My Blog ?"MasterImage.tif"是你的目标图片，Mathematica会把这个图片中的每一个像素用图库中一个合适的图来代替。Mathematica首先把所有照片以及每个照片的RGB值的中位数存成一个list，函数closeMatch将图片按照RGB值的均方根排序，然后随机从头20个中选出一个。Mathematica 5.0貌似没有SortBy和Grid等函数... 阅42 转1 评0 公众公开 12-11-26 02:34 |
可以看到，像素点最少的 10 个汉字为：像素点最多的 10 个汉字则为：于是，我利用上面这些函数写了一段 Mathematica 程序，跑了几个小时的时间终于得出了在 3755 个一级汉字所对应的宋体 12 像素点阵字中像素不同之处最少的字对。只差 2 个像素：(鸣,呜), (柬,束), (竟,竞) 只差 3 个像素：(壳,亮), (含,合) 只差 4 个像素：(上,土), (免,... 阅43 转1 评0 公众公开 12-11-26 02:14 |
IMO2011趣题：总存在一条将会遍历所有点的直线 | 博客IMO2011趣题：总存在一条将会遍历所有点的直线。找一条直线，这条直线两侧的点数一样多（最多相差一个）。容易看出，在直线的旋转过程中，直线两侧的点数之差始终不变。但此时，原来在直线左侧的点现在全部跑到了直线右侧，原来在直线右侧的点现在全部跑到了直线左侧。这些点当然是不能瞬移... 阅155 转1 评0 公众公开 12-11-26 01:56 |
（以下方法是基于 WORD 中的极品公式编辑器 Aurora 软件的，关于 Aurora 软件可参见我在本栏目的介绍帖子。可推导出来的公式如何才能导入到 WORD 文件中呢？（六）在你需要插入公式的 WORD 文件中找到需插入公式的位置，点Aurora软件的插入公式按钮，在弹出的对话框 中粘贴，拷入第（五）步中的代码，然后点 Aurora 工具条上的“ Refresh ”或... 阅4561 转4 评1 公众公开 12-11-25 23:54 |
最先使用Mathematica是用来推公式的，图形方面比较弱，以前画图都是将Mathematica产生的数据导到Origin里处理。最近发现Mathematica 7里的3D绘图性能提高以后，几乎所有的图都是从Mathematica出的。Mathematica里的图形控制相对比较复杂，不过用过几次以后，就已经熟悉了，而且可以定制。例子，一个数据文件，带XY两列数据，文件头部有一段文字... 阅2237 转10 评0 公众公开 12-11-25 17:31 |
Image[target=Join[Table[Table[1,{i,15}],{j,n}],Drop[pixedMatrix["吴"],n]]] convertList=Join[Table[Table[1, {i, 15}], {j, n}],Drop[#,n]]&/@imageList; result=Flatten[Position[convertList,#]&/@Nearest[convertList,target,20]]; finding=DeleteDuplicates[Image[#]&/@(imageList[[#]]&/@result)]所... 阅133 转3 评0 公众公开 12-11-25 11:50 |
