掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像の座標抽出をするには？ (ID:42033)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
アルゴリズムの基本である再帰処理というやつです。 ちなみに、引数にvarを入れると引数の値の変化を引き継ぐ事が出来ます。 詳しくはこの辺の単語でぐぐってみてください。 procedure Saiki(var i,p:Integer); begin i:=i+1; p:=p+1; if i < 100 then Saiki(i,p); end; procedure TForm1.Button1Click(Sender: TObject); var i,p:Integer; begin i:=30; p:=0; Saiki(i,p); ShowMessage('変数iが100になるまで' + IntToStr(p) + '回1を足しました。' ); end; これらを踏まえた上で今回の関数を見ると vcは注目座標のCheckedがFalseの時のみそれをTrueにして1増える事が分かります。 つまりTrueになった数[V]alue True [C]ountと言うことが分かります。 vx,vyはその座標を元のvx,vyに足した値です。[V]alue [X] axis Sum 0 1 2 3 4 5 6 7 8 □□□■■■■■□というピクセルがあった場合、重心は (3+4+5+6+7)/5=5となりますよね。 vx = (3+4+5+6+7) vc = 5 を意味します。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.