« 線属性変更(拡張版) | トップページ | 鉛直・円周点 »

2011年9月 6日 (火)

円と円

円と円を結ぶ外部変形です。
円中心を通る直線と円との交点間を結びます。

Ciline

バッチファイルは、任意名で保存してください。
------------------
@REM 円と円
@echo off
REM
REM #jww
REM #cd
REM #1ci 円を指示してください (L)クリック
REM #2ci 円を指示してください (L)クリック
REM #hr
REM #e
jgawk 'BEGIN{pi=atan2(0,-1);n=0}/^^ci/{n=n+1;x[n]=$2;y[n]=$3;r[n]=$4;x1=x[1];y1=y[1];r1=r[1];x2=x[2];y2=y[2];r2=r[2];th=atan2((y2-y1),(x2-x1))}END{xs=x1+r1*cos(th);ys=y1+r1*sin(th);xe=x2-r2*cos(th);ye=y2-r2*sin(th);printf "%%.15g %%.15g %%.15g %%.15g\n",xs,ys,xe,ye}' jwc_temp.txt>temp.txt
copy temp.txt jwc_temp.txt
del temp.txt
goto end
#####
## 円中心を通る直線と円との交点間を結ぶ外部変形
## 2011.9.6 by somem
:end

|

« 線属性変更(拡張版) | トップページ | 鉛直・円周点 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/94529/52665016

この記事へのトラックバック一覧です: 円と円:

« 線属性変更(拡張版) | トップページ | 鉛直・円周点 »