Текущий архив: 2002.10.14;
Скачать: CL | DM;

Вниз

Синусоида   Найти похожие ветки 

← →
veZuk ©   (2002-10-06 11:26) [0]

У меня в TChart"е строится синусоида по функции f(x)=b*sin(a*x+c):

procedure TForm1.Chart(a,b,c: Extended);
var
k: Extended;
i: Integer;
begin
Series1.Clear;
for i:=-100 to 100 do
begin
Series1.AddXY(i,b*sin(a*(i)+c));
end;
end;

Как мне сделать, что бы синусоида строилась гладко, а не этими тупыми отрезками?

---

← →
Hooch ©   (2002-10-06 11:28) [1]

идти с меньшим шагом наверное

---

← →
veZuk ©   (2002-10-06 11:35) [2]

Тогда вообще какое-то мясо получается. Т.к. я ещё должен менять значения a,b,c.

---

← →
ximka ©   (2002-10-06 11:40) [3]

а ты ручками на форме, и с шагом -> 0

---

← →
Hooch ©   (2002-10-06 11:54) [4]

ты в цикле идеш с шагом = 1, шаг у тебя это i, сделай шаг меньше 1, например 0.1 и будет сказка, надеюсь как сделать понятно ?

---

← →
veZuk ©   (2002-10-06 11:56) [5]

А, всё. Теперь разобрался. Спасибо.

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c