■ sankakuHokan

 [2006/07/17] 

　pointsToSankaku 関数から得られた三角形データから重心に新たに

【書式】sankakuHokan(sankakuData)

【引数】sankakuData : mm行９列の三角形データ

mm個の三角形

３列のポイント座標が三個で一つの三角形を示す

【戻値】nn行９列の三角形データ

nn個の三角形

３列のポイント座標が三個で一つの三角形を示す

【備考】追加する重心は三角形頂点の平均となる。

【例　】

x =
size(3,3)+1;

y = changeXY(x)*100;

s = pointsToSankaku(y);

s1 = change(s,|1,2|);

s2 = change(s,|4,5|);

s3 = change(s,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(s);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;

ss = sankakuHokan(ss);

s1 = change(ss,|1,2|);

s2 = change(ss,|4,5|);

s3 = change(ss,|7,8|);

start = cat(s1, cat(s2,s3));

stop = cat(s2, cat(s3,s1));

color = size(msize(start),1)+1;

setPlotWindowSize(400,400);

plotLineTo(start,stop,color)+0;