SSA88
【機能】
直線と2円に接する円の情報を得る(2D)
【使用形式】
CALL SSA88(XS,YS,XE,YE,XC1,YC1,R1,XC2,YC2,
R2,XYC,IR)
【引数説明】
[INPUT]
XS, YS, XE, YE : 直線の2通過点の座標
XC1, YC1, R1 : 円1の中心座標、半径
XC2, YC2, R2 : 円2の中心座標、半径
[OUTPUT]
XYC(9, 8) : 接円情報テーブル
+---+---+---+---+---+---+---+---+---+
|XC :YC | RT|XT1:YT1|XT2:YT2|XT3:YT3| 接円1
| : | | : | : | : | 接円2
| : | | : | : | : | 接円3
| : | | : | : | : | 接円4
| : | | : | : | : | 接円5
| : | | : | : | : | 接円6
| : | | : | : | : | 接円7
| : | | : | : | : | 接円8
+---+---+---+---+---+---+---+---+---+
:......::...::.....: :.....: :......:
接円の中心 ↑ 直線との ↑ 円2との接点
半径 接点 円1との接点
IR : リターンフラグ
0〜8 ; 接円の数
-1 ; 入力エラー
【機能説明】
・直線と2円に接する円の中心座標、半径、2円との接点を
出力する。
・(XS, YS)=(XE, YE)またはR1≦0またはR2≦0の場合のみIR=-1を
出力する。
【使用ルーチン】
SSG40, SSA011, SSG48, SSG42, SSA20