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

質問

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

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

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

回答No.2

neKo_deux · ベストアンサー

' ａｂベクトルを求めて、
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

とか。

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

お礼

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

回答No.1

edomin7777

手で計算できますか？

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

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

お礼

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