tDB さん，みなさん，こん○○わ(^^♪飯島です．

3点から角度を求めるコマンドを作ってみました．
Perl との連携が出来ている事が前提ですが^_^;

\documentclass{jarticle}
\usepackage{emathP}
\makeatletter
\def\CalcDeg#1#2#3#4{%
 \Subvec{#1}{#2}\@CalVecb
 \Subvec{#3}{#2}\@CalVeca
 \edef\@CalVec{\@CalVeca\@CalVecb}%
 \expandafter\@CalcDeg\@CalVec#4%
}%
\def\@CalcDeg(#1,#2)(#3,#4)#5{%
 \calcval{180*atan2(((#2)*(#3)-(#1)*(#4)),%
          ((#1)*(#3)+(#2)*(#4)))/$pi}#5%
}%
\makeatother
\begin{document}
\tenretu*<perl>{A(1,0);B(0,1);C(1,1/sqrt(3)+1)}%
\CalcDeg\A\B\C\KAKUDO
\KAKUDO
\end{document}

多少の誤差はあります(^^ゞ

▼関連発言
│
└◆2716:角の大きさを指定された点をとる [yano] 02/16 20:16
　├◆2717:Re:角の大きさを指定された点をとる [tDB] 02/16 21:03
　└◆2718:Re:角の大きさを指定された点をとる [石原　守] 02/16 21:03
　　├◆2719:Re[2]:角の大きさを指定された点をとる [石原　守] 02/16 21:07
　　└◆2720:Re[2]:角の大きさを指定された点をとる [yano] 02/16 22:47
　　　├◆2721:Re[3]:角の大きさを指定された点をとる [飯島　徹] 02/17 01:48
　　　│└◆2722:Re[4]:角の大きさを指定された点をとる [田中徹] 02/17 02:36
　　　│　└◆2730:Re[5]:角の大きさを指定された点をとる [石原　守] 02/17 13:41
　　　│　　└◆2731:Re[6]:角の大きさを指定された点をとる [田中徹] 02/17 13:59<-last
　　　├◆2723:Re[3]:角の大きさを指定された点をとる [田中徹] 02/17 03:11
　　　│└◆2725:Re[4]:角の大きさを指定された点をとる [yano] 02/17 08:23
　　　└◆2724:Re[3]:角の大きさを指定された点をとる [tDB] 02/17 08:23
　　　　└◆2726:Re[4]:角の大きさを指定された点をとる [yano] 02/17 08:31