MikuHatsune https://blog.hatena.ne.jp/MikuHatsune/ 驚異のアニヲタ社会復帰の予備 https://mikuhatsune.hatenadiary.com/ R 形・動き Rを使いこなす 数学 平均曲率を用いて、3次元オブジェクトの表面を色付けした。 凹んでいるところは赤、出っ張っているところは緑になっている。 いま、同じ色でひと続きになっている領域を仲間分けして、なおかつ、隣り合う領域がどうなっているかを調べたい。 ある頂点と、その頂点を含む三角形(1-ring)を選び、それに隣り合っている三角形をすべて、再度抽出する。 このとき、既に選ばれた三角形たちは、重複して抽出すると計算に時間がかかるので、適宜除く。 # 球面に色を付けた時、同じ色が付いている閉じた領域をチェックする K0 <- NULL for(k0 in 1:nrow(v1[[i]]$f)){ if( !any(map… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmikuhatsune.hatenadiary.com%2Fentry%2F20160608%2F1465369631" title="3次元オブジェクトをグラフにしてみる - 驚異のアニヲタ社会復帰の予備" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.d.st-hatena.com/diary/MikuHatsune/2016-06-08.gif Hatena Blog https://hatena.blog 2016-06-08 16:07:11 rich https://mikuhatsune.hatenadiary.com/entry/20160608/1465369631 1.0 100%