Generador de Triangulos
Luis Belmonte Abellan
;Programa triangulos
;Program triangles
;Muestra lados, angulos y la altura
;Show sides, angles and Heigth
bp
bt
ot
bl
haz "la 50 + azar 200 ;lado a
haz "ab 1 + azar 179
haz "abr 180 - :ab
;ley cosenos, conocemos 2 lados y el angulo intermedio
haz "lb rc (((potencia :la 2)+ (potencia :lc 2))- (2 * :la * :lc * cos :abr))
;ley senos, conocemos 2 lados y un angulo
haz "aa arcsen ((sen :ab) * :la)/:lb ;aqui calculamos el angulo del lado b
haz "ac 180 - (:aa + :abr) ;aqui calculamos el tercer angulo c
es (frase "side/lad_a_= :la)
es (frase "side/lad_b_= :lb)
es (frase "side/lad_c_= :lc)
es []
es (frase "ang_a_= :aa)
es (frase "ang_b_= :abr)
es (frase "ang_c_= :ac)
es[]
pongrosor 3
gd 90
av :lc
gi :ab
av :la
ponxy 0 0
;ponemos las letras de los vertices de los angulos
pontipo [[courier new] -16 0 0 400 0 0 0 0 3 2 1 49]
centro
gd 90
rotulo "a
sl
ponxy :lc 0
bl
rotulo "b
sl
centro
gd 90
av :lc
gi :ab
sl
av :la + elemento 2 labelsize "c
gd :ab
bl
rotulo "c
;calculamos la altura
sl
pongrosor 1
haz "alt (sen :aa) * :lb
es (frase "Height/altura_= :alt)
;dibujamos la altura
haz "des (cos :aa) * :lb
ponxy :des :alt
ponrumbo 180
bl
av :alt
fin