Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Ника))
41 / 41 / 20
Регистрация: 08.12.2010
Сообщений: 340
1

Изобразить график

26.01.2016, 19:47. Просмотров 293. Ответов 9
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.BitBtn1Click(Sender: TObject);
var a,fi:double;
begin
a:=StrToInt(Edit1.Text);
Series1.XValues.Order:=loNone;
fi:=0;while fi<=2*pi do begin
  Series1.AddX(a*sin(5*fi)*sin(5*fi));
fi:=fi+0.01;
end;
end;
Как правильно изобразить график данного уравнения: p = A*sin^2(5*fi)
(А умноженный на sin в квадрате коэффициент 5*фи)
А то так рисует фигню какую то ...
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2016, 19:47
Ответы с готовыми решениями:

Изобразить график
Здравствуйте. Для построения графика использовал компонент Tchart. Там по умолчанию, конец графика...

Построить график функции. Изобразить линии уровня. Найти область определения функции и изобразить ее в 2D
Дана функция: z=ln(x+y). Построить график этой функции. Изобразить линии уровня. Найти область...

Изобразить график Applet
Как правильно изобразить график на апплете, например, с точками(40.2 -5.1, 45.8 -5,2) ? Хотелось...

Изобразить график функции
Смотри во вложении:

9
mss
2643 / 2266 / 278
Регистрация: 24.12.2010
Сообщений: 13,725
26.01.2016, 19:53 2
~~~
Цитата Сообщение от Ника)) Посмотреть сообщение
AddXY(fi, a*sqr(sin(5*fi)))
0
northener
пофигист широкого профиля
3684 / 2477 / 672
Регистрация: 15.07.2013
Сообщений: 14,777
26.01.2016, 19:53 3
Delphi
1
Series1.AddXY(fi,a*sin(5*fi)*sin(5*fi));
0
Ника))
41 / 41 / 20
Регистрация: 08.12.2010
Сообщений: 340
26.01.2016, 20:51  [ТС] 4
mss,northener, Так он строит фигню какую то, а должен розочку нарисовать
0
Puporev
Модератор
59499 / 44887 / 30987
Регистрация: 18.05.2008
Сообщений: 107,711
26.01.2016, 21:52 5
Это уравнение
Цитата Сообщение от Ника)) Посмотреть сообщение
p = A*sin^2(5*fi)
в полярных координатах. Его нужно перевести в декартовы и потом рисовать по параметрическому уравнению.

Добавлено через 5 минут
И что-то я сомневаюсь что это очень просто нарисовать в TChart

Добавлено через 3 минуты
Так попробуй, какую-то фигню рисует..
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var a,fi,r,x,y:double;
begin
a:=StrToInt(Edit1.Text);
fi:=0;
while fi<=2*pi do
 begin
  r:=a*sin(5*fi)*sin(5*fi);
  x:=r*cos(fi);
  y:=r*sin(fi);
  Series1.AddXY(x,y,'',clRed);
  fi:=fi+0.01;
 end;
end;
0
FIL
Модератор
3458 / 2584 / 738
Регистрация: 19.09.2012
Сообщений: 7,950
26.01.2016, 21:57 6
Цитата Сообщение от Puporev Посмотреть сообщение
какую-то фигню рисует
Delphi
1
Series1.XValues.Order := loNone;
0
Puporev
Модератор
59499 / 44887 / 30987
Регистрация: 18.05.2008
Сообщений: 107,711
26.01.2016, 22:00 7
А, пардон, это забыл..
0
BOGG ART
585 / 452 / 147
Регистрация: 09.12.2013
Сообщений: 2,386
Записей в блоге: 2
26.01.2016, 22:06 8
Можно ещё и рисовать, подправил:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var a,b,fi,r,x,y:double;
begin
Repaint;
Series1.Clear;
Series1.XValues.Order:=loNone;
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
fi:=0;
Canvas.MoveTo(200, 200);
while fi<=2*pi do
 begin
  //r:=a*sin(5*fi)*sin(5*fi);
  r:=sin(b/2*fi); r:=a*r*r;
  x:=r*cos(fi);
  y:=r*sin(fi);
  Series1.AddXY(x, y,'',clRed);
  Canvas.LineTo(Trunc(x*30+200), Trunc(y*30+200));
  fi:=fi+0.01;
 end;
end;
0
Ника))
41 / 41 / 20
Регистрация: 08.12.2010
Сообщений: 340
27.01.2016, 14:51  [ТС] 9
BOGG ART, а что за 2 параметра то? (из едитов).
0
BOGG ART
585 / 452 / 147
Регистрация: 09.12.2013
Сообщений: 2,386
Записей в блоге: 2
27.01.2016, 19:46 10
Просто почему только 5*фи? Очень интересно будет пробовать с другими числами! Пусть там будет переменная B!
А если не просто B, а ещё поделить на 2 - то получится что B задаёт количество лепестков!
0
27.01.2016, 19:46
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2016, 19:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

График функции y=A(3*x^3-4*x^2+5*x) изобразить
Изобразить на экране дисплея графики указанных функций (A принимает значения:...

Изобразить кусочный график
Помогите изобразить данный график в паскале. Заранее большое спасибо!

Изобразить динамичный график
Всем привет, как с помощью ZedGraph или что то другого сделать живой график. К примеру есть некий...

Изобразить график функции.
\begin{cases} &amp; \text{ 2.5(x + 2) }, -\infty \prec x\prec 0; \\ &amp; \text{\frac {5}{4} * (x -...

изобразить график функции
y=(M)/f(Mx) -100&lt;=x&lt;=100 действительное число М&gt;0 , задается в соответствующей форме. Должны быть...

Изобразить график функции
Изобразить график функции y = 2*sin(x) + 1 на .


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.