aprenda ajuste
seno mostrecaixamarcao "mr1 [at] [dt]
se mostrebotordio "br1 [atr "b primeiro mostretextodacaixacombinao "cb1 atr "ao primeiro mostretextodacaixacombinao "cb2 atr "c primeiro mostretextodacaixacombinao "cb3  lal :b :ao :c]
se mostrebotordio "br2 [ atr "b primeiro mostretextodacaixacombinao "cb4 atr "c primeiro mostretextodacaixacombinao "cb5 atr "a primeiro mostretextodacaixacombinao "cb6  lll :b :c :a]
se mostrebotordio "br3 [atr "co primeiro mostretextodacaixacombinao "cb7 atr "b primeiro mostretextodacaixacombinao "cb8 atr "ao primeiro mostretextodacaixacombinao "cb9 ala :co :b :ao]
fim

aprenda ala :co :b :ao
atr "bo (180-:ao-:co) escreva :bo
atr "c (:b*sen (:co))/(sen (:bo)) escreva :c
atr "a (:b*sen (:ao))/(sen (:bo)) escreva :a
pf :b pd (180-:ao)
pf :c pd (180-:bo) 
pf :a pd (180-:co) 
fim

aprenda arccos :x
se :x =0 [sada 90 pare]
atr "y (raizq (1- :x*:x))/:x
se :x>0 [sada arctan :y]
se :x<0 [sada (180+ arctan :y)]
fim

aprenda lal :b :ao :c
atr "x :b*:b+:c*:c
atr "a raizq (:x-(2*:b*:c*cos :ao)) 
atr "bo arccos -((:b*:b-:a*:a-:c*:c)/(2*:a*:c))
atr "co arccos -((:c*:c-:a*:a-:b*:b)/(2*:a*:b)) 
escreva :bo
escreva :a
escreva  :co
pf :b pd (180-:ao)
pf :c pd (180-:bo)
pf :a pd (180-:co)
fim

aprenda lll :b :c :a
atr "ao arccos -((:a*:a-:b*:b-:c*:c)/(2*:b*:c)) escreva :ao
atr "bo arccos -((:b*:b-:a*:a-:c*:c)/(2*:a*:c)) escreva :bo
atr "co arccos -((:c*:c-:a*:a-:b*:b)/(2*:a*:b)) escreva :co
pf :b pd (180-:ao)
pf :c pd (180-:bo)
pf :a pd (180-:co)
fim

aprenda tringulos
criejanela "main "tri [Congruncia de Tringulos]1 21 132 140
criecaixagrupo "tri "grp1 5 10 35 90
criecaixagrupo "tri "grp2 45 10 35 90
criecaixagrupo "tri "grp3 85 10 35 90
crieesttico "tri "est1 [Casos de Congruncia de Tringulos] 5 3 150 10
criebotordio "tri "grp1 "br1 [LAL] 7 15 20 10
criebotordio "tri "grp2 "br2 [LLL] 47 15 20 10
criebotordio "tri "grp3 "br3 [ALA] 87 15 22 10
crieboto "tri "bo1 "Desenha 5 102 40 10 [ajuste]
crieboto "tri "bo2 "Limpa 5 117 40 10 [tat]
crieboto "tri "bo3  "Sai 58 102 40 10 [apaguejanela "tri]
criecaixamarcao "tri "grp1 "mr1 [Exibir Tartaruga] 58 118 60 10
crieesttico "tri "est2 [lado] 6 30 31 10
criecaixacombinao "tri  "cb1 6 40 31 10
crieesttico "tri "est3 [ngulo] 6 52 31 10
criecaixacombinao "tri  "cb2 6 62 31 10
crieesttico "tri "est4 [lado] 6 74 31 10
criecaixacombinao "tri  "cb3 6 84 31 10
crieesttico "tri "est5 [lado] 46 30 31 10
criecaixacombinao "tri  "cb4 46 40 31 10
crieesttico "tri "est6 [lado] 46 52 31 10
criecaixacombinao "tri  "cb5 46 62 31 10
crieesttico "tri "est7 [lado] 46 74 31 10
criecaixacombinao "tri  "cb6 46 84 31 10
crieesttico "tri "est8 [ngulo] 86 30 31 10
criecaixacombinao "tri  "cb7 86 40 31 10
crieesttico "tri "est9 [lado] 86 52 31 10
criecaixacombinao "tri  "cb8 86 62 31 10
crieesttico "tri "est10 [ngulo] 86 74 31 10
criecaixacombinao "tri  "cb9 86 84 31 10
fim

Atribua "a 196.961550602442
Atribua "a1 80
Atribua "ao 100
Atribua "b 100
Atribua "b1 150
Atribua "b2 100
Atribua "bo 0
Atribua "c 153.208888623796
Atribua "co 80
Atribua "co1 80
Atribua "x 4010000
Atribua "y +NAN
