TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
Visual Studio 2019
推薦図書/必読書のためのスレッド 83
Go の宿題片付けます
JAVAってこんなことも出来ないの？
【関数】Erlang Part 2【エリクソン】
Ruby 初心者スレッド Part 65
proce55ing プログラミングアート全般
+ JavaScript の質問用スレッド vol.125 +
[特設]サマータイム対応相談室
日本語プログラミング言語Mind
- 138 ：
- >>11 外側の正方形 Perl5 凸包の辺が正方形の辺に接するまたは対角二点で接する場合、>>135の露骨なﾊﾞｸﾞ一個修正
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, $cx - $h, $cx + $h);
@y = ($cy - $h, $cy - $h, $cy + $h, $cy + $h);
($e[1], $f[0]) = (-$e[1], -$f[0]);
@x = map{sp @e, $x[$_], $y[$_]} 0..3;
@y = map{sp @f, $x[$_], $y[$_]} 0..3;
(\@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<=min@{$_->{X}}and max@{$_->{X}}<=999 and 0<=min@{$_->{Y}}and max@{$_->{Y}}<=999} @t;
do {@x = @{$t[$_]{X}}; @y = @{$t[$_]{Y}};
printf"%d: (%7.3f,%7.3f), (%7.3f,%7.3f), (%7.3f,%7.3f), (%7.3f,%7.3f): w=%7.3f, th=%7.3f°\n",
$_+1,$x[0],$y[0],$x[1],$y[1],$x[2],$y[2],$x[3],$y[3],$t[$_]{w},$t[$_]{th}*180/3.14159265358979} for 0..4;
設計思想/ソフトウェア工学(UML, デザパタetc)
表計算ソフトは人類の生産性を大きく下げている
マルチプラットフォーム プログラミング言語 haXe
a4です。Ｐ２Ｐ人工知能「Ｔ」開発。
ふらっと C#,C♯,C＃（初心者用） Part146
Google NaCl プログラミング 2mol
メガデモを語る fr-08
プログラミング言語 Rust 4【ﾜｯﾁｮｲ】
推薦図書/必読書のためのスレッド 81
+ JavaScript の質問用スレッド vol.125 +
--------------------
【交通】終電延長の利用者は4千人 大阪メトロ「これでは赤字」 国土交通省の実証実験
【 ヒプマイなりきり愚痴スレ 】
「身体障害者」ならぬ、「変態障害者」現る！！
§§§エンジン系 Ｘ-スポーツ§§§
人生を最初からやり直せるとしたら楽器やる？
韓国で外国人観光客を狙うR多発 ⇒ 揉み消し 4
「兄の国・韓国」を愛してやまない奥様★9
ぼくの かんがえた ロボット14ごうき
西野監督「本意ではないが勝ち上がるための戦略」3
【スモモ】李一族【東亜で最も偉大】
空軍大戦略
☆輝きについて自由に語るスレ☆280
献血に行く喪女2
些細だけど気に障ったこと Part259
FEELCYCLE関連ヲチスレpart17
最近の10大会で日本体育大学に勝てない雑魚ｗｗｗ
ヤマハジュニアピアノコンクール2
アマゾン Echo Part 33
【DS版】ケツイ デスレーベル その10
試合結果 2007
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼