Построение окружности в Delphi через TChart

@Muffins · Регистрация: 04.04.2016

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как построить окружность в Tchart формулой x²+y²=R²?
Все данные задаются сразу в программе (х и у равны 0, R от 0 до 1 с интервалом в 0.2)
Заранее спасибо!

@Puporev · 17.04.2016, 15:31

Сообщение от Muffins

R от 0 до 1 с интервалом в 0.2

Так это будет 6 окружностей?

@Muffins · 17.04.2016, 15:50 **[ТС]**

Puporev, пять вроде. В (0;0) же не построится окружность с радиусом 0.
Мне просто нужно понять, как это сделать, потому что tchart рисует свой series1 в виде овала на координатных прямых от 0 до 100, если меняю от -1 до 1, то не показывает вообще ничего (логично из-за масштабирования).
Перепробовала множество кодов, разбросанных на разных форумах, но кроме очистки плоскости от овала не добилась ничего, а нужно именно построение по формуле.

@Puporev · 17.04.2016, 16:08

Подписи на осях зайди в Edit Chart(кликнуть по нему правой кнопкой мыши) и выставить min=-1 max=1 для обеих осей Left, Botom.
Вот такой код я написал

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,y,r,fi:double;
begin
Chart1.Width:=Chart1.Height;
Series1.XValues.Order := loNone;
r:=0.2;
while r<1 do
 begin
  fi:=0;
  while fi<=2*pi do
   begin
    x:=r*cos(fi);
    y:=r*sin(fi);
    Series1.AddXY(x,y,'',clRed);
    fi:=fi+0.001;
   end;
  r:=r+0.2;
 end;
 
end;

Рисует 5 окружностей, но еще отрезок горизонтальный, как убрать пока не знаю, тоже не сильно волоку в этом.

@Muffins · 17.04.2016, 16:27 **[ТС]**

Puporev, все равно при запуске программа ничего не рисует, я не понимаю окончательно почему. Т.е. она уменьшает размер модуля tchart, а дальше просто ничего не делает.
В какой версии Delphi вы работаете? Может смена софта поможет, я уже не знаю

@Puporev · 17.04.2016, 16:42

Делфи 7. Попробуй мой проект.

@Muffins · 17.04.2016, 16:49 **[ТС]**

работает, спасибо огромнейшее! невероятно помогли

@Puporev · 17.04.2016, 16:50

Нужно как-то от горизонтального отрезка избавиться.

@Muffins · 17.04.2016, 16:55 **[ТС]**

не столь важно, я перетащила просто координатные линии и не так его заметно
потом посмотрю код, может найду, как убрать)

можно ли как-то ваши контакты узнать, если еще возникнут вопросы?)

@Puporev · 17.04.2016, 17:00

Сделайте с динамическим созданием серий, линии не будет.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var x,y,r,fi:double;
    s:TLineSeries;
begin
Chart1.Width:=Chart1.Height;
r:=0.2;
while r<=1 do
 begin
 s:=TLineSeries.Create(Chart1);
 s.XValues.Order:=loNone;
 fi:=0;
  while fi<2*pi do
   begin
    x:=r*cos(fi);
    y:=r*sin(fi);
    s.AddXY(x,y,'',clRed);
    fi:=fi+0.001;
   end;
  Chart1.AddSeries(s);
  r:=r+0.2;
 end;
s.Free
end;
end.

Добавлено через 1 минуту

Сообщение от Muffins

если еще возникнут вопросы?)

Есть личные сообщения.

@Puporev · 17.04.2016, 21:02

Вот я нарисовал на канве, посмотрите что добавить.

@Muffins · 18.04.2016, 22:11 **[ТС]**

первое - скрин из пособия, второе - рисунок преподавателя. коряки по бокам - это как раз фи

@Puporev · 19.04.2016, 12:46

Посмотри.

@Muffins 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 7
		1
	Построение окружности в Delphi через TChart 17.04.2016, 13:07. Показов 4289. Ответов 12 Метки нет (Все метки) Подскажите, пожалуйста, как построить окружность в Tchart формулой x²+y²=R²? Все данные задаются сразу в программе (х и у равны 0, R от 0 до 1 с интервалом в 0.2) Заранее спасибо! 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.04.2016, 15:31	2
	Сообщение от Muffins R от 0 до 1 с интервалом в 0.2 Так это будет 6 окружностей? 0

@Muffins 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 7
	17.04.2016, 15:50 [ТС]	3
	Puporev, пять вроде. В (0;0) же не построится окружность с радиусом 0. Мне просто нужно понять, как это сделать, потому что tchart рисует свой series1 в виде овала на координатных прямых от 0 до 100, если меняю от -1 до 1, то не показывает вообще ничего (логично из-за масштабирования). Перепробовала множество кодов, разбросанных на разных форумах, но кроме очистки плоскости от овала не добилась ничего, а нужно именно построение по формуле. 0

@Muffins 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 7
	17.04.2016, 16:27 [ТС]	5
	Puporev, все равно при запуске программа ничего не рисует, я не понимаю окончательно почему. Т.е. она уменьшает размер модуля tchart, а дальше просто ничего не делает. В какой версии Delphi вы работаете? Может смена софта поможет, я уже не знаю 0

@Muffins 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 7
	17.04.2016, 16:49 [ТС]	7
	работает, спасибо огромнейшее! невероятно помогли 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	17.04.2016, 16:50	8
	Нужно как-то от горизонтального отрезка избавиться. 0

@Muffins 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 7
	17.04.2016, 16:55 [ТС]	9
	не столь важно, я перетащила просто координатные линии и не так его заметно потом посмотрю код, может найду, как убрать) можно ли как-то ваши контакты узнать, если еще возникнут вопросы?) 0

@Muffins 0 / 0 / 0 Регистрация: 04.04.2016 Сообщений: 7
	18.04.2016, 22:11 [ТС]	12
	первое - скрин из пособия, второе - рисунок преподавателя. коряки по бокам - это как раз фи Миниатюры 0

	19.04.2016, 12:46

Построение окружности в Delphi через TChart

Решение