プログラミングのお題スレ Part17

プログラミングのお題スレ Part17at TECH

プログラミングのお題スレ Part17 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

250: $sp < 0.0;  　my $ang = asin det pdl $v1 , $v2;  　$ang = $ang >= 0.0 ? -PI + $ang : PI + $ang if $sp < 0.0;  　$ang  }  for $ps (@t) {  　@vs = map{pdl $ps->[$s[$_]]} 0..6;  　@es = map{norm($vs[$_+1] - $vs[$_])} 0..5;  　$angs = pdl map{f $es[$_], $es[$_+1]} 0..4;  　$ans = 'true';  　$ans = 'false' if (grep{abs $angs->at($_) < 0.0001} 0..4)  　　　　　　　　　　　 or $angs->min * $angs->max < 0.0;  　$ttl = sum $angs;  　$ans = 'false' if abs $ttl < 6.28 or abs $ttl > 6.29;  　print "$ttl = Σ$angs: $ans\n";  }

251:デフォルトの名無しさん
 20/04/19 15:35:04  dE29U5t1.net
>>245 の実行結果 
 
~ $ perl 17_186_convx_pent.pl  
The signatures feature is experimental at 17_186_convx_pent.pl line 12, <DATA> line 207. 
6.28318528610616 = Σ[ 1.5707963 0.78539816  1.5707963 0.78539816  1.5707963]: true 
6.28318530717959 = Σ[ 1.5707963  1.5707963 0  1.5707963  1.5707963]: false 
-12.5663706143592 = Σ[-2.2142974 -2.4980915  -2.677945  -2.677945 -2.4980915]: false 
-6.28318530717959 = Σ[-0.78539816 -1.0303768 -2.0005586 -0.89605538 -1.5707963]: true 
-12.5663706143592 = Σ[-2.0344439 -2.9996956 -2.4980915 -2.9996956 -2.0344439]: false

次ページ