質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Mathematica

Mathematicaは、ウルフラム・リサーチによって開発されている数式処理システムです。

Q&A

0回答

924閲覧

Mathematicaの意味不明な変数

wouka

総合スコア12

Mathematica

Mathematicaは、ウルフラム・リサーチによって開発されている数式処理システムです。

0グッド

0クリップ

投稿2019/05/23 10:01

前提・実現したいこと

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/ツールのバージョンなど)

まともに動いた例
イメージ説明
angをいじくった例
イメージ説明

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問