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

wayne

累死了，
这组数据主要都是有理数的，所以有很多很多美观的图形

数学星空

看来在这么多同构的图中找到一个标准美的代表也是不简单的．．．

wayne

有一种罪恶感，
不知道emath空间够不

wayne

我把代码稍微整理了一下。
该代码具有普适性，原则上可以自动 处理所有的情况，
但由于最后符合标准的图形非常之多，免不了也要我们自己择优筛选。
Mathematica代码如下：
release.nb (31.65 KB, 下载次数: 2)

2012-1-16 23:05 上传

点击文件名下载附件

mathe

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算错了

wayne

40# mathe
多谢mathe
mathe真细心，
锁定原因了
这个bug是由于 没有彻底清除z分量的变量导致的。
在切换数据集时 出现。
Clear["Global`*y"];Clear["Global`*y"];Clear["Global`*z"];



待会再回头更新图片。

wayne

已经编辑完毕。
mathe快快移步过去，#28
非常美观！

wayne

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}}}

wayne

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}}}

wayne

还有一个类似的 人形体：


{{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}}}