TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
ECMAScript デス 4
【初心者歓迎】C/C++室 Ver.102【環境依存OK】
C++でXML（主にxerces）やろう！
【SL4】Windows Phone 7 ｱﾌﾟﾘ開発ｽﾚ Part4【XNA】
Google NaCl プログラミング 2mol
TypeScript part3
【糞.NET】裏切り者には死を【アンチゲイツ】
今まで見た中で一番すげーコメント
javaとpythonってどっちが初学に向いてる？
スレ立てるまでもない質問はここで 149匹目
- 135 ：
- >>133 ｽﾏｿ、「正方形の4点の座標を示せ」と書かれていたので、出力処理を少し修正
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: (%6.3f, %6.3f), (%7.3f, %6.3f), (%6.3f, %7.3f), (%7.3f, %7.3f): w=%3.3f\n",
$_+1,$x[0],$y[0],$x[1],$y[0],$x[0],$y[1],$x[1],$y[1],$t[$_]->{w}} for 0..5;
Android Studio Part3
２ｃｈの荒らし報告の書式対応のプログラム
Go の宿題片付けます
Visual Studio 2015 Part8
関数型言語一般
Rust Part5
【糞.NET】裏切り者には死を【アンチゲイツ】
リーダブルコーディング技術スレ
画像処理 15枚目
HSPだって
--------------------
【BepiColombo】水星探査機「みお」【日欧共同】
塩村あーあ！やか「お金がなければ新生児が命を落とす国でいいの？民進党幻の公約にヒントがある」
ガチムチの六尺兄貴のガイドライン 61尺目
フィギュアグランプリシリーズ2019 アメリカ大会 男女ショート
天に召された列車達があの世で語るスレ 13
●抹茶スレ●
【DFFAC】DISSIDIA FINAL FANTASY(ARCADE)/NT part524【ディシディア】
【声優】佳村はるかが西武ライオンズ・野田昇吾選手と結婚
男女別裸風呂は法によるホモ・レズ推奨 【嫌悪感】
【東京都】国のコロナ対策関係者「都内の繁華街にある夜間営業中心の飲食店でクラスターと呼ばれる感染者の集団が発生している疑い」★2
★【固まるﾚｼﾞ】クスリのアオキpart11【溶けるﾁｮｺ】
V37スカイライン購入者−情報交換 part31
日本橋VS秋葉原
【くるみ限定】転売ヤーを爆撃するスレ
ACポップンミュージック☆2118 ポップンカフェ開催
【岩代会津】只見線part33【越後魚沼】
Hottoほっともっとその100 Motto
昔お世話になったオカズ（´Д｀；)ハァハァ
トイレットペーパーがいまだにスーパーにないんだが
森戸スレと浜浦スレを荒らしてる犯人が発覚
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
