File: inscribed_angle.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 (29 lines) | stat: -rw-r--r-- 702 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
% Inscribed angle properties
% Copyright (c) Christian Obrecht 2001

frame(-2,-2,2,2)

a interactive(110,1,"A",up)
b interactive(-160,1,"B",up)
c interactive(-20,1,"C",up)

O = point(0,0) ; ci = circle(O,1)
A = point(ci,a:) ; B = point(ci,b:) ; C = point(ci,c:)

BAC = abs(angle(B,A,C)) ; BOC = abs(angle(B,O,C))

color(lightgray)
draw(segment(B,A)) ; draw(segment(C,A))
draw(segment(B,O)) ; draw(segment(C,O))

color(black)
draw(ci) ; draw(O)
draw("O",O,.1,90:) ; draw("A",A,.1,a:)
draw("B",B,.1,b:) ; draw("C",C,.1,c:)

draw(BAC,"[BAC] = %.1f",point(1.3,1.8),0:)
draw(BOC,"[BOC] = %.1f",point(1.3,1.5),0:)
draw(360-BOC,"360-[BOC] = %.1f",point(1.3,1.2),0:)

color(red)
draw(A) ; draw(B) ; draw(C)