diff options
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.lua | 22 |
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 |