Консультация № 194240
19.12.2018, 09:22
0.00 руб.
0 9 1
Здравствуйте! У меня возникли сложности с таким вопросом:

Построить фигуры Лиссажу в лазарусе с частоты в Edit
помогите,пожалуйста

Обсуждение

давно
Профессор
401888
1232
19.12.2018, 09:59
общий
Адресаты:
Кстати рисовать вTChart или на канве?
давно
Профессор
401888
1232
19.12.2018, 10:02
общий
Адресаты:
Что-то предыдущее сообщение я не отправил почему-то.
Что означает с частоты в Edit? Напишите точное и полное условие задачи.
давно
Посетитель
402620
3
19.12.2018, 19:15
общий
19.12.2018, 19:20
Цитата: puporev
мне преподаватель так сказал,наверное ,он просто хотел сказать,что там должны быть частоты
давно
Посетитель
402620
3
19.12.2018, 19:19
общий
Цитата: puporev
TChart
давно
Старший Модератор
31795
6196
19.12.2018, 20:00
общий
19.12.2018, 20:04
Цитата: muckhamadieva
мне преподаватель так сказал,наверное ,он просто хотел сказать,что там должны быть частоты

для фигур Лиссажу, нужно 3-и вещи, Амплитуда, Частота и Фаза, т.к. они считаются по формулам см.Вики
Цитата: puporev
Напишите точное и полное условие задачи.

не зная все параметров, можно просто выродить фигуру в прямую, или круг.
Вас Юрий Борисович, попросил написать полное задание, без Вашего понимания самого задания, т.к. возможно, что то, как Вы его понимаете не значит - правильно.

Цитата: puporev
рисовать вTChart или на канве

Ещё Ю.Б. просил Вас ответить и на этот вопрос.
Если рисовать в TChart, то оси и масштаб, остается за кодом класса, в канве, т.е. CANVAS, Вам нужно самому заниматься, всеми вопросами, которые, за Вас мог сделать класс.

И ещё, если Вы хотите кому либо написать, то над полем ввода сообщения, есть такой список Кому:, там адресата и выбираете. Либо кликаете на аватаре, после этого у Вас появится, [ forid = 402620 ], таким способом можно адресовать своё сообщение нескольким адресатам. , первым способом, только одному.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Профессор
401888
1232
19.12.2018, 21:00
общий
Адресаты:
Раз уж нет точного задания, приведу пример, может там с преподавателем доделаете.
[code lang=pascal]procedure TForm1.Button1Click(Sender: TObject);
var ax,ay,cx,cy,d,t,x,y:double;
begin
ax:=50;//амплитуда по Х
ay:=80;//амплитуда по Y
cx:=3; //частота по Х
cy:=2; //частота по Y
d:=1.5;//сдвиг фаз
t:=0; //угол
Chart1LineSeries1.LinePen.Color:=clRed;
while t<=2*pi do
begin
x:=ax*sin(cx*t+d);
y:=ay*sin(cy*t);
Chart1LineSeries1.AddXY(x,y);
t:=t+0.001;
end;
end; [/code]
Прикрепленные файлы:
5d7f5e4708cae422ce54438a47b6871a.zip
давно
Посетитель
402620
3
20.12.2018, 17:15
общий
Адресаты:
спасибо
давно
Профессор
401888
1232
20.12.2018, 17:16
общий
Адресаты:
Пожалуйста.
давно
Профессор
401888
1232
20.12.2018, 18:23
общий
это ответ
Здравствуйте, muckhamadieva!
Раз уж нет точного задания, приведу пример, может там с преподавателем доделаете.


[code lang=pascal]procedure TForm1.Button1Click(Sender: TObject);
var ax,ay,cx,cy,d,t,x,y:double;
begin
ax:=50;//амплитуда по Х
ay:=80;//амплитуда по Y
cx:=3; //частота по Х
cy:=2; //частота по Y
d:=1.5;//сдвиг фаз
t:=0; //угол
Chart1LineSeries1.LinePen.Color:=clRed;
while t<=2*pi do
begin
x:=ax*sin(cx*t+d);
y:=ay*sin(cy*t);
Chart1LineSeries1.AddXY(x,y);
t:=t+0.001;
end;
end; [/code]
Форма ответа