前提・実現したいこと
Mathematicaで風配図をデータから作ろうと考えており、
https://stackoverflow.com/questions/7419562/from-cartesian-plot-to-polar-histogram-using-mathematica
ここのサイトを参考に作ってみました。
発生している問題・エラーメッセージ
下記のコードで動きはしたのですが、plot関数内のcount[]やsin,cos[]の中に現れる"ang"という変数?の意味が分かりません。
該当のソースコード
Mathematica
1maxScale = 0.3; 2angleDivisions = 16; 3dAng = (2 [Pi])/angleDivisions; 4counts = {0.223212857, 0.298710651, 0.032416615, 0.011876186, 5 0.007555495, 0.008389914, 0.00970441, 0.015568205, 0.056900533, 6 0.09279199, 0.101296207, 0.031787943, 0.029490433, 0.021363418, 7 0.019946049, 0.038989095} 8ListPolarPlot[{{0, maxScale}}, PolarAxes -> True, 9 PolarGridLines -> Automatic, PolarTicks -> {"Degrees", Automatic}, 10 BaseStyle -> {FontFamily -> "Arial", FontWeight -> Bold, 11 FontSize -> 12}, PlotStyle -> {None}, 12 Epilog -> {Opacity[0.7], Blue, 13 Table[Polygon@{{0, 0}, 14 counts[[ang + 1]] {Cos[ang dAng - dAng/2], 15 Sin[ang dAng - dAng/2]}, 16 counts[[ang + 1]] {Cos[ang dAng + dAng/2], 17 Sin[ang dAng + dAng/2]}}, {ang, 0, angleDivisions - 1}]}] 18
試したこと
angを消去するとバーの形状がおかしくなってしまいます。
すべてのangを全く違う名前の変数に変えてみたりしましたが問題なく動きました。
補足情報(FW/ツールのバージョンなど)
あなたの回答
tips
プレビュー