本帖最后由 Asdmath2020 于 2020-2-27 15:13 编辑
" X# [6 T5 ^4 U: {5 d' v& z+ O0 O1 w) L0 x& h, f
本文所涉及的新功能即将在Wolfram语言第12版中发布。可复制的输入表达式和可下载的笔记本将在新版本发布后为您提供。% `( G/ G! [ N% A5 H2 B* {" h
9 C. V; x5 | d) N1 t. N- h
相似三角形剖分
4 ]# [0 w# }" S: j
6 D9 V9 X( A8 p' g" {0 z$ cWolfram语言第12版引入了几何问题求解器。新函数GeometricScene的参考文档页面有一个巧妙的示例,给出了下面的代码片段,其中GeometricAssertion调用七个相似三角形: / n% P' V1 \' a, e2 n
" Q. B" J% n/ U* P/ C1 m( n点C的坐标使用塑胶常数
,即
的实根。/ ? V$ P- s7 D0 ^8 a, E' J
d8 N" {# S% i; i- x# C3 p7 s! }/ _. P) e; X2 K% n4 z
( Q. [8 o" L5 s; P8 i4 L* \2 H0 Z: Z' u- \, \5 v* `
. ?: @& x" [% E* L- @% m2 O) \1 s在笔记本的初始化部分,SqrtRho被定义为由根、用根表示的顶点、子三角形和符号组成的列表。函数dissectionDiagram使用这些值来绘制边长等于
的幂的三角形。1 G" y1 v$ S1 l# W* ~% ^% F
& t2 Z: R! M* G& L4 ^
使用初始化部分定义的SqrtSpace求笛卡尔坐标。; l" q9 ~7 n' R+ E
9 Z# I& o' b) Y+ y9 \' v皮索数" o [, |7 L! p. c9 q
塑胶常数
是最小的皮索数(Pisot number,大于1且单位圆盘中有共轭元素的实数代数整数)。这是前四个和第九个皮索数,将值显示为外部的点和内部的共轭元素。; I) |, [" W i9 H! O& o6 x4 x
2 l) I. k& Y' Z5 ]
第二个皮索数
实数共轭元素
,其中
$ C" W% p: T; Z) n* a8 Q4 w
2 s9 N: B% B, \. y( ~8 r
这是参考文档中提到的第二个巧妙范例。将多边形分解为相似三角形: {: X7 o$ d& |8 H! a0 ~
% G2 h! O% N; `' u, m7 L* E+ e
这个解可以被扩展为九个相似三角形。
8 m0 E3 x4 R& D5 q8 T, M* L
( C* }0 o' J% i/ T
这些三角形用
构建;被称为
剖分。边长为
,其中是边的标签。0 }/ e; L- I- C! \3 A8 m/ x% J+ L
0 L5 z0 {4 E* ]) f, Y- W
' _ b; v- m7 R9 p" e
黄金和超黄金比例
# E+ o) X( C) f与
和相关的是黄金比例,在比萨的列奥纳多·波那契1202年的著作《计算之书》(Liber Abaci)中有提到。本书的开始是阿拉伯数系统 5 V/ J6 X/ {& f
8 A5 P- i% K3 H* H: O1 p% _《计算之书》后面介绍了兔子问题,引出我们现在常说的斐波那契数列。 “Fibonacci”这个名字于1838年由“filiusBonacci”或“Bonacci之子”得来。, p8 S* {/ y. M' Y
% \6 ]4 U5 B" }) l1 A
这显示了斐波那契兔数列及其与黄金比例
(phi)的关系$ B4 ~1 l5 h | d5 O
7 @5 \5 r( u5 k
1356年,Narayana在他的书Ganita Kaumudi中提出了以下问题:“一头母牛每年生下一头小牛。小牛在三岁时生出另一只小牛。一头奶牛在二十年间产生的后代数量是多少?“
! I# x6 P2 y) L- T: ~我们可以使用Mathematica来显示Narayana奶牛序列及其与
(psi)的关系,即超级黄金比例
' Q& K: I1 X5 A4 N巴都万(Padovan)数列和佩兰(Perrin)数列中连续项的比率都趋向于,如Fibonacci和Padovan螺旋恒等式(http://demonstrations.wolfram.co ... anSpiralIdentities/)和Padovan的螺旋数(http://demonstrations.wolfram.com/PadovansSpiralNumbers/)所示。这里显示了这两个兔和牛序列:
+ [0 x! E( h0 f' ?; G
/ T7 A1 G6 R- s* K构造几何图形 ( q1 M# R% B* g. q* U4 X! c/ Q3 n
黄金比例的幂
、
和
是开普勒三角形的边长。黄金比例(或称斐波那契兔常数)为皮索数
。通过使用皮索数
(塑胶常数),
,
(超黄金比例)或
,作出120°角的步骤与泰波那契(tribonacci)常数
相同。
! g( B4 ?' ]) w4 Q) U* j# \# P
几乎所有的正多面体和阿基米德立体都可以通过作用于
上的八面体组或者作用于
上的二十面体组来构建。以下情形除外: 扭棱立方体需要的一个根
(泰波那契常数)。 扭棱十二面体需要
的一个根。 扭棱三十二面体需要
的元素(未显示)。
8 Z( _1 t# w1 n
- 这将构建顶点坐标位于给定代数域的前两个扭体。
$ I5 ]7 `1 J8 g& Y# L
0 s2 x+ |2 T( o, G. M& |% g如果两个根具有相同的判别式(
),则它们通常属于相同的代数域。这是泰波那契常数的两个多项式。
# }0 f: @/ V4 y# ~8 t
$ @; f( I4 R! S/ t2 |; x" u泰波那契常数是多项式奇数系列的一部分,这些多项式将黑格纳(Heegner)数和j函数联系在一起,以多种方式导出极端接近整数(Almost integer)。
6 i+ V/ |% [# a1 i8 @
3 k- g P- z9 V: r
白银比例
(http://mathworld.wolfram.com/SilverRatio.html)也会产生有趣的几何形状。 如果将A4纸对折,得到的矩形与原始矩形相似。 A4矩形可以通过许多奇怪的方式完美地细分为较小的不同A4矩形。 值2、
、
和
都与正方形和相似矩形的剖分有关。
' N# a5 o/ N5 ]- C
' m5 g1 H6 R' }% D9 ~) P( z这些剖分都可以在第12版中找到。
' V: u( `7 \8 d3 X# ]4 Y3 U. `
, ~* \* V: n' @( J/ O0 i5 z# `6 A3 u" C2 l* Z0 w
的第三个根可以求解圆盘覆盖问题和Heilbronn三角形问题。" p: v. g6 h2 R/ |" N$ d& u
* c( y" Q+ h% e4 {' u( c5 w
无穷级数
" c0 I; I/ n9 |9 W# P9 y* w目前为止所引入的许多数值都可以表达为自身负幂数的无穷级数。
: u; U7 S j7 L" _
! h S: q' U2 |6 Y
通过将面积为2的等腰直角三角形剖分成越来越小的相似三角形可以证明第一个级数。或者使用此处所示的相似三角形无限剖分。
, K" j# I5 ~2 D$ k7 a
& X4 h, ~; l9 y. a- w
的无穷级数也可以用相似三角形的无穷集合来说明。
) F: ?1 _! a1 n
- P: z6 |: ?' O+ X
的无穷级数可以用无穷个相似Rauzy分形来说明。
, d+ g- A) |9 C6 ?3 D* \. J; F3 r# y* u
w. G4 d' W3 O. b
% c4 A; m7 h' E) H6 X
的无穷级数可以用无穷个相似分形来说明。5 C# f$ W+ t+ q+ Y( ^
) b$ t' v& `. K4 ^9 Y
这是上述值的表格:0 s% `. I, Z7 g
0 ?" V$ I- u! F+ V$ \
重复剖分
/ c, C" U2 G' i+ E- v9 D3 Y$ E# H7 ~8 ?- n" {! {
( }$ M2 S. V3 U/ q
重复剖分;为了减少混沌,具有相同方向的三角形颜色相同。这是18步后的剖分。5 m* V# J( c$ ~% p; x2 }
' O5 j: u# H T- ^8 W7 I6 n) \
下面的风车镶嵌(http://demonstrations.wolfram.com/PinwheelTiling/)并没那么无序。风车三角形最终具有无限多个方向,但混沌进展的速度比前面所示的慢。$ J- H" Y$ q" z8 c3 t _
% K5 d" a/ s8 c3 F3 T
这是180步后
分形的一部分。. j8 A& e3 C. J3 }# o
+ \ a, e# O1 _$ C# i
这是40步后塑料分形的一部分。
/ h! ?; b7 r6 U' u3 [$ ^$ S' V
7 K! a, l f! J
通过在剖分中使用对称性,结果证明存在具有不同属性的十二个代入镶嵌 (substitution tilings)。
5 ~# y& J4 o* ?- l# [2 A/ f- k0 s
6 p7 k9 ~8 z- Z, c
“巧妙范例”确实巧妙,十二个新的代入镶嵌就此产生。
% ~4 q% W( P/ n# c& F8 W* K 9 H) R4 u0 }- [. W5 Z" {
; I$ A; ?# h; b8 p# _( i/ H' ~4 k6 m* b
8 d: O$ u- V* o# e% v
|