TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
Google NaCl プログラミング 2mol
△△もっとStruts2の良さを教えてくださいSsssion6
awkについて語るスレ $2
ふらっと C#,C♯,C＃（初心者用） Part143
次世代言語18 Go Rust Elixir Kotlin TypeScript
BASICの宿題はお前にまかせた
【Delphi】Embarcaderoオッチャ その34【C++ﾋﾞﾙﾀﾞ】
【普通のやつらの】 Arc Language 0 【上を行け】
クラスとかインスタンスってなんのためにあんの？
クライアント「神々たる仕変！後悔など遅い！」
- 154 ：
- 以下は試作実験programと結果
①凸包の辺の角度にのみ傾ける(それ以外の角度は略) ②長方形⇒正方形補正は略 ③頂点座標が0～999の範囲外も出力
use List::Util qw{min max}; use Math::Trig;
@X = qw{94 110 787 850 472 388}; @Y = qw{31 927 897 598 199 157};
sub sp {$_[0]*$_[2] + $_[1]*$_[3]}
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;
$th = $dx > abs($dy) ? -atan2($dy, $dx) : atan2($dx, $dy);
@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);
$w = max($x[1] - $x[0], $y[1] - $y[0]);
($e[1], $f[0]) = (-$e[1], -$f[0]);
@x = map{sp @e, $x[$_], $y[$_]} 0,1,0,1;
@y = map{sp @f, $x[$_], $y[$_]} 0,0,1,1;
#next if min@x<0 or 999<max@x or min@y<0 or 999<max@y;
push @t, +{i,$i,j,$j,dx,$dx,dy,$dy,th,$th,X,[@x],Y,[@y],w,$w} } }
@t = sort{$$a{w}<=>$$b{w}} @t;
do {@x = @{$_->{X}}; @y = @{$_->{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",
++$k,$x[0],$y[0],$x[1],$y[1],$x[2],$y[2],$x[3],$y[3],$$_{w},rad2deg $$_{th}} for @t[0..4];
1: (752.170,710.324), ( 94.000,710.324), (752.170, -8.662), ( 94.000, -8.662): w=873.451, th=168.102°
2: ( 70.342, 31.983), (863.100, 31.983), ( 70.342,891.839), (863.100,891.839): w=895.830, th= 2.537°
3: ( 94.000, 30.990), (855.637, 30.990), ( 94.000,913.391), (855.637,913.391): w=896.143, th= 1.023°
4: (699.348,547.478), ( 94.000,547.478), (699.348,-34.520), ( 94.000,-34.520): w=945.899, th=160.148°
5: ( 94.000, 29.184), (671.086, 29.184), ( 94.000,1007.681), (671.086,1007.681): w=978.102, th=-23.199°
真の極小解は中途半端な角度にあるのか…
【PHP】下らねぇ質問はここに 9
くだすれDelphi(超初心者用)その57
【Erlang】プログラム言語 Elixir 【BEAM】
【Erlang】プログラム言語 Elixir 【BEAM】
C言語なら俺に聞け 155
Eclipse統合M36【Java/C++/Ruby/Python/Scala】
Regular Expression(正規表現) Part15
人工知能を作ろうver0.0.7
☆★Java質問･相談スレッド181★★
【統計分析】機械学習・データマイニング27
--------------------
【咲-Saki-】鹿児島代表永水女子高校の石戸霞さんは幸せにしてあげたい可愛い！
【最強精鋭・韓国無敵艦隊】韓国海軍清海部隊の入港行事で事故…軍人１人死亡・４人負傷[5/24]
一緒に農業経営する仲間募集します！！
【新潟】加茂市の中学、夏休み中の部活動を休止へ 練習を望む生徒にも、市長「方針に従ってもらうしかない」 運動部ほか吹奏楽部も
吉田製作所 Part.18
ロシア語☆翻訳・文法スレッド
【コソダテフルな長男】オギャ子(旧ちゅいママ)ヲチ83【朝は長男任せで親は毎日寝坊】
あまり急ぎじゃないんだが
お風呂の鏡のくもりの取り方
着物界隈SNSの痛い人ヲチ10
【闘球】ラグビー総合実況スレ10.20 Vol.4
【世界の妹】山中知恵 Part32【もうすぐDVD100作】
すまん、今日200連回したガチャ中毒猿のアホおる？
実質15263
【色白ブルベ補正でスウォッチも真っ白】あいりアンチpart16【名古屋の街を背景にダサコーデ披露中】
僕のヒーローアカデミア ネタバレスレ（ﾜｯﾁｮｲ無し）Part215
【韓国軍】：将兵向け精神戦力教材から韓米同盟の章を丸ごと削除[4/3]
フェイスキャラクターについて話すスレPart.25
◆草津温泉ー車中泊者専用スレ◆２
「コンパイラ・スクリプトエンジン」相談室16
TOP カテ一覧 スレ一覧 100～終まで 2ch元 削除依頼
