Image:Cevastheorem.jpg
From Wikipedia, the free encyclopedia
Size of this preview: 800 × 327 pixel
Image in higher resolution (1144 × 467 pixel, file size: 22 KB, MIME type: image/jpeg)
Picture for Ceva's_Theorem.
The Mathematica code which produced this diagram:
a = {0, 0}; b = {3, 2}; c = {5, 0}; \[Lambda] = 2; \[Mu] = .5; p = (b + \[Lambda] c)/(1 + \[Lambda]); q = (c + \[Mu] a)/(1 + \[Mu]); r = (\[Lambda] \[Mu] a + b)/(1 + \[Lambda] \[Mu]); \[Lambda] = \[Mu] + 1/\[Lambda]; x = (c + \[Lambda] r)/(1 + \[Lambda]); \[Lambda] = 20; Show[Graphics[{ Line[{a, b, c, a}], Text["A", (\[Lambda] a - p)/(\[Lambda] - 1)], Text["B", (\[Lambda] b - q)/(\[Lambda] - 1)], Text["C", (\[Lambda] c - r)/(\[Lambda] - 1)], Line[{a, p}], Line[{b, q}], Line[{c, r}], Text["D", (\[Lambda] p - a)/(\[Lambda] - 1)], Text["E", (\[Lambda] q - b)/(\[Lambda] - 1)], Text["F", (\[Lambda] r - c)/(\[Lambda] - 1)], PointSize[.008], Point[x], Text["X", x + {.1, .1}] }], TextStyle -> {FontSize -> 30, FontFamily -> Times}, AspectRatio -> Automatic, PlotRange -> All]
|
File history
Legend: (cur) = this is the current file, (del) = delete
this old version, (rev) = revert to this old version.
Click on date to download the file or see the image uploaded on that date.
- (del) (cur) 06:53, 8 April 2005 . . Stewbasic (Talk | contribs) . . 1144×467 (22,954 bytes) (Picture for Ceva's_Theorem. )
- Edit this file using an external application
See the setup instructions for more information.
File links
No pages on the English Wikipedia link to this file. (Pages on other projects are not counted.)