AffineRatioとDilateを拡張する
AffineRatioの拡張 定義 AffineRatioを拡張して、オリジナルコマンド「ExtendedAffineRatio」を作成した。 その定義は、以下の通りである。 ExtendedAffineRatio[A,B,C] = (AffineRatio[A, B, Intersect[PerpendicularLine[C, Segment[A, B]], Line[A, B]]], Vector[A, B] ⊗ Vector[Intersect[PerpendicularLine[C, Segmen…
