掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
内心を求めるには？ (ID:26653)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
勉強不足でベクトル分かりませんが。 http://shigihara.hp.infoseek.co.jp/vx_index.htm で取り急ぎ勉強してきました。 最初は面白かったですが、すぐ頭が付いていかなくなったので 適当に作ってみました。 var x1,y1,x2,y2,x3,y3:double; a,b,c:double; ix,iy:double; begin x1:=0; y1:=0; x2:=0; y2:=100; x3:=100; y3:=0; a:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)); b:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1)); c:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); ix:=(1/(a+b+c))*(a * x1 + b * x2 + c * x3); iy:=(1/(a+b+c))*(a * y1 + b * y2 + c * y3); label1.Caption:='a='+FloatToStr(a)+':b='+FloatToStr(b)+':c='+FloatToStr(c) +':ix='+ FloatToStr(ix)+':iy='+FloatToStr(iy); ix:=(1/(-a+b+c))*(-a * x1 + b * x2 + c * x3); iy:=(1/(-a+b+c))*(-a * y1 + b * y2 + c * y3); Label2.Caption:='AAA'+FloatToStr(1/(a+b+c))+ 'a='+FloatToStr(a)+':b='+FloatToStr(b)+':c='+FloatToStr(c) +':ix='+ FloatToStr(ix)+':iy='+FloatToStr(iy); 結果内心はまぐれで合っているようですが、後の答えが違います。 ウォレスさん正解の答えを教えて下さい。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.