数学研发论坛

 找回密码
 欢迎注册
楼主: wayne

[讨论] 果树种植最优解精美图形作法探讨

[复制链接]
 楼主| 发表于 2012-1-16 22:30:33 | 显示全部楼层
累死了,
这组数据主要都是有理数的,所以有很多很多美观的图形
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2012-1-16 22:34:08 | 显示全部楼层
看来在这么多同构的图中找到一个标准美的代表也是不简单的...
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-16 22:44:23 | 显示全部楼层
有一种罪恶感,
不知道emath空间够不
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-16 23:05:08 | 显示全部楼层
我把代码稍微整理了一下。
该代码具有普适性,原则上可以自动 处理所有的情况,
但由于最后符合标准的图形非常之多,免不了也要我们自己择优筛选。
Mathematica代码如下:

本帖子中包含更多资源

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

x
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2012-1-17 08:34:53 | 显示全部楼层
ACEFDFHJBCIJBEHKADIKBFGMEJLMBDLNCGNODEGPFKNPAJOPAGLQCKMQCHLRDMOREIQRAHNSFIOSBPQSGHITABRTCDST
该组数据有114组非奇异转换矩阵。

3585
{A,{0,0}}        {B,{-(1/5),-(2/5)}}        {C,{-(1/3),-(1/3)}}        {D,{0,-1}}
{E, ...
wayne 发表于 2012-1-16 22:14

这个图好像做错了,ITHG应该四点共线但是没有,而ACEFG五点共线了,感觉是不是G算错了
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-17 10:12:40 | 显示全部楼层
40# mathe
多谢mathe
mathe真细心,
锁定原因了
这个bug是由于 没有彻底清除z分量的变量导致的。
在切换数据集时 出现。
Clear["Global`*y"];Clear["Global`*y"];Clear["Global`*z"];



待会再回头更新图片。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-17 12:40:42 | 显示全部楼层
已经编辑完毕。
mathe快快移步过去,#28
非常美观!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-17 14:41:50 | 显示全部楼层
19棵树20行,s19fromm13 里面的第7组存在一组实数解,该解是三次方程的根,于是我就数值求解了,
  1. ACFJBCHLEGJLADKLBDFMAGIMFHINBEKNDGHOCIKOCEMPDJNPABOPAEHQBIJQFGKRLMNRCDQREFOSGPQS
复制代码

{{A,{-0.28492,0.866025}},{B,{-0.21508,0.866025}},{C,{-0.25,1.00663}},{D,{-0.25,0.433013}},{E,{-0.349611,1.06266}},{F,{-0.181496,1.28246}},{G,{-0.401567,0.695534}},{H,{0,0}},{I,{-0.150389,1.06266}},{J,{-0.5,0}},{K,{-0.294252,0.981744}},{L,{-0.318504,1.28246}},{M,{-0.205748,0.981744}},{N,{-0.098433,0.695534}},{O,{-0.5,0.866025}},{P,{0,0.866025}},{Q,{-0.25,0.759884}},{R,{-0.25,1.09976}},{S,{-0.740431,0.551665}}}



{{A,{0.,0.}},{B,{0.,0.56984}},{C,{-0.260792,0.457658}},{D,{-0.926273,0.699223}},{E,{-0.480863,0.}},{F,{-0.352799,0.619119}},{G,{-0.480863,1.48086}},{H,{-1.32472,0.}},{I,{-0.22705,0.699223}},{J,{-0.480863,0.843855}},{K,{-0.293745,0.221742}},{L,{-0.480863,0.362993}},{M,{-0.193829,0.596914}},{N,{0.5,1.16236}},{O,{0.,2.32472}},{P,{0.,1.}},{Q,{1.,0.}},{R,{-0.332683,0.483754}},{S,{-0.22705,1.22705}}}


{{A,{1.14724,0.5}},{B,{0.866025,0.5}},{C,{0.866025,0.662359}},{D,{1.06266,0.349611}},{E,{0,0}},{F,{0,1.16236}},{G,{3.53303,0}},{H,{0.866025,0.377439}},{I,{0.605545,0.613525}},{J,{2.01326,0}},{K,{1.28246,0.740431}},{L,{0.866025,0}},{M,{0.759884,0.581179}},{N,{0.78342,0.452308}},{O,{0,0.5}},{P,{0.653743,0.5}},{Q,{1.00663,0.438719}},{R,{0.695534,0.93353}},{S,{0,0.613525}}}

本帖子中包含更多资源

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

x
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-17 15:08:30 | 显示全部楼层
19棵树的也有 火箭体:



{{A,{0.754878,1.}},{B,{-1.75488,1.}},{C,{0.362993,0.480863}},{D,{-0.13362,0.411496}},{E,{0.0953843,0.682874}},{F,{0.21508,0.28492}},{G,{0.362993,2.59873}},{H,{-0.0925187,0.592519}},{I,{1.16236,-0.662359}},{J,{0,0}},{K,{0.238946,0.658268}},{L,{0.0769606,0.550976}},{M,{1.,0}},{N,{-0.240431,0.740431}},{O,{0,1.}},{P,{-0.324718,1.}},{Q,{-0.606268,0.345476}},{R,{0.226386,0.461781}},{S,{-0.13362,1.44425}}}

本帖子中包含更多资源

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

x
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2012-1-17 15:13:18 | 显示全部楼层
还有一个类似的 人形体:


{{A,{0.43016,1.}},{B,{0.324718,1.}},{C,{0.43016,0.56984}},{D,{0.389129,0.904616}},{E,{0.245122,0.754878}},{F,{0.43016,0.843855}},{G,{0.472172,0.926273}},{H,{0.350564,0.894558}},{I,{0.56984,0.754878}},{J,{0.43016,0.894558}},{K,{0,0}},{L,{0.362993,0.843855}},{M,{1.,0}},{N,{0.300777,0.926273}},{O,{0.754878,1.}},{P,{0,1.}},{Q,{0.384803,0.939915}},{R,{0.403086,0.790743}},{S,{0.56984,0.911022}}}

本帖子中包含更多资源

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

x
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2019-12-15 13:06 , Processed in 0.054608 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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