File: classical_locus.euk

package info (click to toggle)
xeukleides 0.9.2rev2-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 356 kB
  • ctags: 374
  • sloc: ansic: 2,767; yacc: 814; lex: 455; makefile: 78; sh: 45
file content (13 lines) | stat: -rw-r--r-- 258 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
% A classical locus problem
% Copyright (c) Christian Obrecht 2001

x interactive(2,.1,0,6,"A",right)

A M I equilateral(x)
M B J equilateral(6-x)

color(gray) ; draw(segment(I,J))

color(black) ; draw(A,M,I) ; draw(M,B,J)

color(red) ; draw(barycenter(I,J))