полярная ск в делфи

[Seran4ek]

всем добрый вечер
расчитываю диаграмму направленности диполя Герца(антенна в виде куска провода).
как должен выглядеть результат знаю
но при этом на чарте получается какая-то борода
вроде как и похоже..но что-то смущает
для проверки сделал все в мэпле, вроде как графики там получились норм(благо имеется coord=polar).
параллельно проверил значения получаемых данных- идентичны.
но график не в какую
в мэпле http://clip2net.com/s/Pnxy
в делфи - http://clip2net.com/s/PnzF

если что, то строю так:

for i := 0 to 360 do
  begin
  Chart1.Series[0].AddXY(coord_x[i], E[i]);
  end;

E[i] значения электрической составляющей

for i := 0 to 360 do
  begin
  E[i] := sqrt(sqr(Er(r, i))+sqr(Et(r, i)));
  coord_x[i] := r * cos(i*PI/180);
  end;

Er() и Et() вычисляют отдельные компоненты

подсобите, кто чем может.

[asmodey1]

А зачем эти циклы разнесены ?
Нельзя из объединить ?

for i := 0 to 360 do
  begin
  E := sqrt(sqr(Er(r, i))+sqr(Et(r, i)));
  coord_x := r * cos(i*PI/180);
  Chart1.Series[0].AddXY(coord_x, E);
  end;

А то бог его знает, где там у вас эти массивы могут измениться, пока попадут в Chart1...

[Seran4ek]

сути дела это не меняет)
действительно, моя вина, можно объединить, но результат такой же

[krGorka]

По-моему ты путаешься в с.к. Значения берешь для полярной (угол, радиус), а рисуешь в декартовой (х,у). Если рисуешь в декартовой , то x:=r*cos(fi) Y=r*sin(fi).
В стандартном Сharte нет рисования в полярных коор-ах. В TeeCharte- eсть.-это расширенный Сhart с большими возможностями. Нужно скачивать и устанавливать отдельно.

[Seran4ek]

krGorka ну так я вроде значение X и перевожу в полярные:

coord_x[i] := r * cos(i*PI/180);

А насчет Y..это значение напряженностей в массиве, как мне их в ск то перевести? О_о
они вродь как сами по себе в формуле от Фи и R зависят