wayne
发表于 2012-1-16 22:30:33
累死了,
这组数据主要都是有理数的,所以有很多很多美观的图形
数学星空
发表于 2012-1-16 22:34:08
看来在这么多同构的图中找到一个标准美的代表也是不简单的...
wayne
发表于 2012-1-16 22:44:23
有一种罪恶感,
不知道emath空间够不
wayne
发表于 2012-1-16 23:05:08
我把代码稍微整理了一下。
该代码具有普适性,原则上可以自动 处理所有的情况,
但由于最后符合标准的图形非常之多,免不了也要我们自己择优筛选。
Mathematica代码如下:
mathe
发表于 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 http://bbs.emath.ac.cn/images/common/back.gif
这个图好像做错了,ITHG应该四点共线但是没有,而ACEFG五点共线了,感觉是不是G算错了
wayne
发表于 2012-1-17 10:12:40
40# mathe
多谢mathe
mathe真细心,
锁定原因了
这个bug是由于 没有彻底清除z分量的变量导致的。
在切换数据集时 出现。
Clear["Global`*y"];Clear["Global`*y"];Clear["Global`*z"];
:'(
待会再回头更新图片。
wayne
发表于 2012-1-17 12:40:42
已经编辑完毕。
mathe快快移步过去,#28
非常美观!
wayne
发表于 2012-1-17 14:41:50
19棵树20行,s19fromm13 里面的第7组存在一组实数解,该解是三次方程的根,于是我就数值求解了,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
发表于 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}}}
wayne
发表于 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}}}
页:
1
2
3
[4]
5
6
7
8
9
10
11
12
13