直線上にある点の座標の求め方

お世話になります。
点ａ（x1,y1)と点ｂ(x2,y2)の直線上に点ｃを設けるとします。
設けた点ｃの座標を求めるプログラムをＶＢで作りたいのですが宜しくお願いします。

入力データは、点ａ（x1,y1)と点ｂ(x2,y2)の座標と点ａから点ｃの距離（k）を入力すると点ｃのx,yの座標を返すようなプログラムを考えています。

どうか宜しくお願いします。

No.2 ベストアンサー 回答者： neKo_deux 回答日時： 2010/02/11 21:01

' ａｂベクトルを求めて、

xv=x2-x1
yv=y2-y1
' ベクトルの大きさを求め、
r=Sqrt(xv^2+yv^2)　Sqrt？Sqrかも？
' 点ａからａｂベクトル方向、距離kの点を求める。
x=x1+xv/r*k
y=y1+yv/r*k

とか。

ａ、ｂが同じ点だった場合の場合分けとか必要だと思いますが。

この回答へのお礼

有り難うございました、助かりました。

お礼日時：2010/02/12 09:34

No.1 回答者： edomin7777 回答日時： 2010/02/11 17:37

手で計算できますか？

点A(x1,y1)と点B(x2,y2)を通る直線上にあり点Aからの距離がkの点Cの座標を求めよ。

手で計算できたらそれをプログラムにするだけなんですが…。

この回答へのお礼

有り難うございます。わたしも手計算がわからなくて

お礼日時：2010/02/12 09:35