summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua')
-rw-r--r--macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua22
1 files changed, 19 insertions, 3 deletions
diff --git a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua
index d6a1cb1ecb..2e917db2f1 100644
--- a/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua
+++ b/macros/latex/contrib/tkz/tkz-elements/latex/tkz_elements_functions_triangles.lua
@@ -1,6 +1,6 @@
-- tkz_elements_functions_triangles.lua
--- date 2024/02/04
--- version 2.00c
+-- date 2024/03/25
+-- version 2.20c
-- Copyright 2024 Alain Matthes
-- This work may be distributed and/or modified under the
-- conditions of the LaTeX Project Public License, either version 1.3
@@ -260,6 +260,20 @@ function feuerbach_tr_ (a,b,c)
intersection_cc_ (e,m,jc,hc)
end
--------------------
+-- ellipse --
+--------------------
+function steiner_ (a,b,c)
+ local g,fa,fb,delta,m,v
+ g = centroid_ (a,b,c)
+ delta = a*a+b*b+c*c -a*b-a*c-b*c
+ fa = (a+b+c - point.sqrt(delta))/3
+ fb = (a+b+c + point.sqrt(delta))/3
+ m = midpoint_(b,c)
+ r = (length(fa,m)+length(fb,m))/2
+ v = report_ (fb,fa,r,g)
+ return ellipse: foci (fb,fa,v)
+end
+--------------------
-- miscellanous --
--------------------
@@ -274,7 +288,9 @@ function check_equilateral_ (a,b,c)
C = a - b
if (point.abs(A)-point.abs(B) < tkz_epsilon) and (point.abs(B)-point.abs(C) < tkz_epsilon)
then
- return true else return false
+ return true
+ else
+ return false
end
end