SSE69
【機能】
2円に接する円を求める(3D)
【使用形式】
CALL SSE69(PC1,VZ1,R1,PC2,VZ2,R2,RD,PV1,PV2,
ZCIR,IR)
【引数説明】
[INPUT]
PC1(3), VZ1(3), R1 : 円1の中心座標、法線ベクトル、半径
PC2(3), VZ2(3), R2 : 円2の中心座標、法線ベクトル、半径
RD : 接円の半径
PV1(3, 2) : 円1の接点の近傍点の座標と指示方向
ベクトル
PV2(3, 2) : 円2の接点の近傍点の座標と指示方向
ベクトル
[OUTPUT]
ZCIR(3, 4) : 接円の中心座標、法線ベクトル、2接点の座標
IR : リターンフラグ
0 ; 正常終了
1 ; 平面チェックエラー
2 ; 接円が定義できない
【機能説明】
・2円の接円を求める。2円は同一平面上になければならない。
接円が複数の場合、近傍点データにより、最適接円を出力する。
・ZCIR(3, 4)
+-----+-----+-----+
1| XC | YC | ZC | 中心
2| Zi | Zj | Zk | 法線ベクトル
3| XT1 | YT1 | ZT1 | 円1上の接点
4| XT2 | YT2 | ZT2 | 円2上の接点
+-----+-----+-----+
・PVn(3, 2)
+----+----+----+
1| XN | YN | ZN | 近傍点
2| Vi | Vj | Vk | 方向ベクトル
+----+----+----+
【使用ルーチン】
SSH16, SSH20, SSH00, SSH31, SSA69, SSH21