TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
DarkGDK Part.4
Kinect ハック 2台目
【iPhoneも】Titanium Mobileスレッド【Androidも】
プログラマは大卒じゃないと就活厳しいってホント?
2 part forth
Pythonのお勉強 Part56
低スキルでも読めるコードは、属人的なコードになる
DarkBASIC
シェルスクリプト総合 その29
ふらっと C#,C♯,C＃（初心者用） Part145
- 133 ：
- >>11 外側の正方形 Perl5、但し>>130>>131の「凸包の一辺が正方形の辺に接する」または「細い菱形のような形が
正方形の対角2点で接する」場合について求てみた。凸包を求める処理は略し、二点間の辺を総当りで計算している。
use List::Util qw{min max pairkeys pairvalues};
@s=qw{136 577 110 927 472 199 157 808 388 598 94 31 388 157 325 409 787 897 850 598};
@X = pairkeys @s; @Y = pairvalues @s;
sub sp {$_[0]*$_[2] + $_[1]*$_[3]}
sub rt {
@e = (cos $th, -sin $th); @f = (sin $th, cos $th);
my @x = map{sp @e, $X[$_], $Y[$_]} 0..$#X;
my @y = map{sp @f, $X[$_], $Y[$_]} 0..$#Y;
@x = (min(@x), max(@x)); @y = (min(@y), max(@y));
$h = (max $x[1] - $x[0], $y[1] - $y[0]) / 2;
$cx = ($x[1] + $x[0]) / 2; $cy = ($y[1] + $y[0]) / 2;
@x = ($cx - $h, $cx + $h); @y = ($cy - $h, $cy + $h);
($e[1], $f[0]) = (-$e[1], -$f[0]);
@x = map{sp @e, $x[$_], $y[$_]} 0..1;
@y = map{sp @f, $x[$_], $y[$_]} 0..1;
@x = (min(@x), max(@x)); @y = (min(@y), max(@y));
(\@x, \@y, 2*$h) }
for $i (0..@X-2) { for $j ($i+1..$#X) {
($dx, $dy) = ($X[$j] - $X[$i], $Y[$j] - $Y[$i]);
($dx, $dy) = (-$dx, -$dy) if $dx < 0;
$l = sqrt($dx*$dx + $dy*$dy);
$th = $dx > abs($dy) ? -atan2($dy, $dx) : atan2($dx, $dy);
($X, $Y, $w) = &rt;
push @t, +{i,$i,j,$j,dx,$dx,dy,$dy,l,$l,th,$th,X,$X,Y,$Y,w,$w};
$th += 3.14159265358979/4; ($X, $Y, $w) = &rt;
push @t, +{i,$i,j,$j,dx,$dx,dy,$dy,l,$l,th,$th,X,$X,Y,$Y,w,$w};
} }
@t = sort{$a->{w}<=>$b->{w}} grep{0<=$_->{X}[0]and$_->{X}[1]<=999 and 0<=$_->{Y}[0]and$_->{Y}[1]<=999} @t;
do {@x = @{$t[$_]->{X}}; @y = @{$t[$_]->{Y}};
printf"%d: (%7.3f, %7.3f)-(%7.3f, %7.3f): w=%3.3f\n",$_+1,$x[0],$y[0],$x[1],$y[1],$t[$_]->{w}} for 0..5;
Xamarin Part6
COM
ふらっと C#,C♯,C＃（初心者用） Part127
構造化プログラミングはまだ必要ではないのか？
【QBASIC互換!?】FreeBasic【GPL】
【PHP】下らねぇ質問はここに書き込みやがれ 10
Pythonについて（アンチ専用）
0から始める2chブラウザfor超漢字 "2ch de BTRON"
Subversion r15
【Lua】組み込み系言語総合 その7【Squirrel】
--------------------
モランボン楽団 5曲目
西地区が接戦してる件について
【VANK】 米シカゴ美術館に「日本海」単独表記地図…バンク「歪曲された認識を与える」と是正要請[07/23]
【関東】条件をクリアしてたらオフ249【3つでも】
【新選組！】局長ありがとう！副長の采配あざーす 616【屯所】
ハリルホジッチジャパン2016 Part１
Switch 2019年 年間おすすめランキングが発表！1位はFE風花雪月！
【テレ朝】桝田沙也香 Part3【ワイド!スクランブル】
株式会社電通国際情報サービス(ISID)
Rに注意！【笑い事じゃねぇぞ！】
土星人（＋）集まれ～ⅩⅣ
o○o○o○ ロト7で10億円当たったら-5 o○o○o○
どこに行っても嫌われる喪女いる？いたら集合49
【まこじき31歳】まことPart1591【妖怪ケツ出しおばさん】
淡路島の不動産取引・賃貸業はどうよ
クロゴキブリ対策
■■CADPAC専用スレッド■■
野田彩加
★☆★☆エマのスレ16☆★☆
銃が好きなら自衛隊に入れよ。
TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼