File: locus.euk

package info (click to toggle)
xeukleides 0.9.0-2
  • links: PTS
  • area: main
  • in suites: woody
  • size: 692 kB
  • ctags: 655
  • sloc: ansic: 3,704; yacc: 1,434; lex: 894; makefile: 178
file content (21 lines) | stat: -rw-r--r-- 363 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
% A classical locus problem
% Copyright (c) Christian Obrecht 2002

box(-3,-3,3,3)

O = point(0,0)
c = circle(O,2)
A = point(c,180:)
B = point(c,60:)
C = point(c,0:)
I = barycenter(A,B)

draw(c)
draw(segment(A,B))
draw(segment(A,C),dotted)
draw(segment(I,O),dotted)
draw(segment(B,C),dotted)

draw(A) ; draw(B) ; draw(I)

trace(x,0,360){barycenter(A,point(c,x:))}