Kimberling
所属分类：数学计算
开发工具：Mathematica
文件大小：0KB
下载次数：0
上传日期：2023-09-08 07:45:46
上 传 者：
sh-1993
说明： Wolfram Mathematica模块，用于处理金伯利ETC的三角形中心，
(Wolfram Mathematica module for work with triangle centers from Kimberling s ETC,)
文件列表:
LICENSE (1211, 2024-01-02)
db/ (0, 2024-01-02)
db/CentralCircles.mx (137547, 2024-01-02)
db/ETC.mx (7340788, 2024-01-02)
db/ETCBaryNorm.mx (10358521, 2024-01-02)
db/EtcCheckNumbers.mx (3825409, 2024-01-02)
db/TriangleCurves.mx (2198855, 2024-01-02)
examples/ (0, 2024-01-02)
examples/example.nb (13037, 2024-01-02)
examples/example1.nb (55413, 2024-01-02)
examples/example2.nb (32336, 2024-01-02)
examples/example3.nb (15736, 2024-01-02)
examples/example4.nb (39594, 2024-01-02)
examples/init.nb (3919, 2024-01-02)
sources/ (0, 2024-01-02)
sources/BigTransfLists.nb (142290, 2024-01-02)
sources/CentralCircles.nb (987216, 2024-01-02)
sources/ConicTools.m (5723, 2024-01-02)
sources/ConicTools.nb (58410, 2024-01-02)
sources/DBTools.m (45781, 2024-01-02)
sources/DBTools.nb (240088, 2024-01-02)
sources/KimberlingPoints.m (3704, 2024-01-02)
sources/KimberlingPoints.nb (22489, 2024-01-02)
sources/KimberlingTriangles.m (82116, 2024-01-02)
sources/Transformations.nb (230758, 2024-01-02)
sources/TriangleCurves.m (1933, 2024-01-02)
sources/TriangleCurves.nb (17575, 2024-01-02)
sources/TriangleExpressions.m (11758, 2024-01-02)
sources/TriangleExpressions.nb (69532, 2024-01-02)
sources/TriangleTools.m (64702, 2024-01-02)
sources/TriangleTools.nb (464486, 2024-01-02)
sources/fltCircles.m (432630, 2024-01-02)
sources/fltCircles.nb (9212, 2024-01-02)
sources/init.wls (789, 2024-01-02)
sources/initwin.wls (646, 2024-01-02)
tools/ (0, 2024-01-02)
tools/etc_converter_nonum.py (7883, 2024-01-02)
tools/template.wls (5341, 2024-01-02)
tools/tool_isoconj_catchup.wls (1102, 2024-01-02)
... ...
# Triangle Center Tools
This repo provides you the `KimberlingCenter[k, A, B, C]` function which given an integer k and three points A, B and C, calculates the k-th triangle center according to Kimberling's [encyclopedia of triangle centers](https://faculty.evansville.edu/ck6/encyclopedia/etc.html).
Note that currrently k<=53412.
Here is a simple example which plots a few random triangle centers:
```
SetDirectory[NotebookDirectory[]]; ClearAll["Global`*"];
Get["../db/ETC.mx"];
Get["../sources/KimberlingPoints.m"];
Get["../sources/TriangleTools.m"];
Get["../sources/TriangleExpressions.m"];
PA = {0, 0}; PB = {3, 0}; PC = {1, 2};
indices = {1, 10, 22, 32, 40};
centers =
Table[KimberlingCenter[i, PA, PB, PC], {i, indices}] // Simplify;
names = Table["X" <> TextString[n], {n, indices}];
Graphics[Join[
{EdgeForm[{Thin, Black}], FaceForm[], Triangle[{PA, PB, PC}]},
{{PA, PB, PC} /. {x_, y_} :> {Blue, PointSize[0.02], Point[{x, y}]}},
{centers /. {x_, y_} :> {Red, PointSize[0.01], Point[{x, y}]}},
Text[#[[1]], #[[2]], -1.5 Sign@#[[2]]] & /@
Transpose@{names, centers}
], AspectRatio -> Automatic, Axes -> True
]
Print /@ centers;
```
There are some other helpful tools as well, but most are not documented yet.
近期下载者：
相关文件：
收藏者：