Построение графика по табличной зависимости в полярной сист.

[smartchecker]

Чем можно построить график по табличной зависимости в полярной системе координат?

Есть два вектора:
один - углы
второй - радиусы.

Как и в чём построить график по этим точкам?

[missgraffiti]

маткад прекрасно строит. если неохота специально устанавливать - выкладывайте таблицы, построю.

[smartchecker]

missgraffiti в сообщении #517784 писал(а):

маткад прекрасно строит. если неохота специально устанавливать - выкладывайте таблицы, построю.

MathCAD у меня есть, но как в нём построить не понимаю.
Чтение его хелпа просветления не принесло.
Объясните как.
Есть вектор углов и вектор радиусов, в каждом по 10 значений.
Как по ним построить?

[Joker_vD]

Проводите луч с наклоном $\varphi_1$ к оси, отмечаете на этом луче точку на расстоянии $r_1$ от полюса, стираете луч. Поздравляю, вы построили точку с полярными координатами $(r_1,\varphi_1)$.

[smartchecker]

Joker_vD в сообщении #517851 писал(а):

Проводите луч с наклоном $\varphi_1$ к оси, отмечаете на этом луче точку на расстоянии $r_1$ от полюса, стираете луч. Поздравляю, вы построили точку с полярными координатами $(r_1,\varphi_1)$.

И так 10 лучей ручками?
Хочется автоматизма.
Под рукой есть wolfram mathematica, mathcad и ms excel, наконец.

Есть 2 вектора по 10 значений в каждом.
$\theta=\left[0, 10, 20, 30, 40, 50, 60, 70, 80, 90\right]$
$I_{\theta}=\left[82.80, 82.80, 82.80, 79.20, 82.80, 79.20, 72.00, 64.80, 64.80, 43.20\right]$

Надо построить в полярных координатах, причём угол $0^{\circ}$ находится внизу.

[ИСН]

Сразу бы так.

\[Theta] = {0, 10, 20, 30, 40, 50, 60, 70, 80, 90};
Int = {82.80, 82.80, 82.80, 79.20, 82.80, 79.20, 72.00, 64.80, 64.80, 
   43.20};
ListPolarPlot[Transpose[{\[Theta]*\[Pi]/180, Int}]]

(это Mathematica)

[smartchecker]

ИСН в сообщении #517984 писал(а):

Сразу бы так.

\[Theta] = {0, 10, 20, 30, 40, 50, 60, 70, 80, 90};
Int = {82.80, 82.80, 82.80, 79.20, 82.80, 79.20, 72.00, 64.80, 64.80, 
   43.20};
ListPolarPlot[Transpose[{\[Theta]*\[Pi]/180, Int}]]

(это Mathematica)

Здорово! Спасибо!
Ещё один вопрос - как эту картинку повернуть на 90 градусов по часовой стрелке?
И как соединить точки?

[ИСН]

ListPolarPlot[Transpose[{(\[Theta] - 90)*\[Pi]/180, Int}], Joined -> True]

[smartchecker]

ИСН в сообщении #517989 писал(а):

ListPolarPlot[Transpose[{(\[Theta] - 90)*\[Pi]/180, Int}], Joined -> True]

Ещё раз спасибо!
Добился практически всего, что хотел вот этим кодом.

\[Theta] = {0, 10, 20, 30, 40, 50, 60, 70, 80, 90};
Int = {82.80, 82.80, 82.80, 79.20, 82.80, 79.20, 72.0, 64.80, 64.80, 
   43.20};
ListPolarPlot[Transpose[{\[Theta]*\[Pi]/180, Int}], Joined -> True, 
 InterpolationOrder -> 2, Mesh -> Full, 
 MeshStyle -> {Directive[PointSize[Large], Red]}, PlotStyle -> Thick]

Остался только вопрос с поворотом картинки.
Т.е. чтобы 0 был внизу и вся картинка была в правом нижнем квадрате.

[ИСН]

"Глаза есть - посмотри нету". Я ведь уже написал:

ИСН в сообщении #517989 писал(а):

Код:
ListPolarPlot[Transpose[{(\[Theta] - 90)*\[Pi]/180, Int}], Joined -> True]

Цитата:

(\[Theta] - 90)*\[Pi]/180

Цитата:

\[Theta] - 90

Цитата:

- 90

Цитата:

90

[smartchecker]

О, да!
Я крайне внимателен
Спасибо.