ángulo3d(p,s)=ángulo3d(p,recta(s))
ángulo3d(s,p)=ángulo3d(p,s)
ángulo3d(r,p)=ángulo3d(p,r)
si estado_geometría=2 entonces ángulo=ángulo2d sino ángulo=ángulo3d fin