掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
内心を求めるには？ (ID:26659)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>最近のDelphiには複素数ユニットがあるらしいのでこれを代用する、というのも手かもしれません. >もちろん、代用なのでベクトル同士の乗算とかはNGです。 複素数ユニット使うともっと簡単です，ベクトル同士の乗除算も可能です。 uses 節にvarCmplx を追加。 ベクトルの距離を求める関数を用意。 function TForm1.len(v1,v2:variant):double; begin result:=sqrt(sqr(v1.real-v2.real)+sqr(v1.Imaginary-v2.Imginary)); end; ****** var pA,pB,pC,AI,AB,AC:variant;a,b,c,sum:double; begin pA:=varComplexCreate(0,0); pB:=varComplexCreate(0,100); pC:=varComplexCreate(100,0); a:=len(pB,pC); b:=len(pC,pA); c:=len(pA,pB); sum:=a+b+c; AB:=ｐB-pA; AC:=ｐC-pA; AI:=b/sum*AB+c/sum*AC; AI:=AI+pA; //内心の座標は(AI.real,AI.Imaginary) end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.