Использование класса TChart для построения графиков функций

[@felipebueno9186]

gracias, no sé ruso, pero encontré lo que necesitaba. XD

[@АндрійКасьянюк]

Очень интересно! Поставите Юле Солод 5-ку?

[@wall-e5869]

хааххаахах

[@merttunnall]

How can I draw 5sin(wt) ?

[@АндрейБабаш-ю9п]

This is very easy w=2*pi*f, where f - frequency I just set 50 Hz. You can set desired frequency. tn,tk - start time and end time step - step for tabulation So button onClickHandler for 5*sin(w*t) building looks like this procedure TForm1.Button1Click(Sender: TObject); var y,w,t,step,f,tn,tk:double; begin tn:=0; tk:=2; f:=50; step:=0.001; t:=tn; w:=2*pi*f; while(tk>t) do begin y:=5*Sin(w*t); t:=t+step; Chart1.Series[0].AddXY(t,y); end; end; I have result like this :) drive.google.com/file/d/1CAoY0lq6CA2Dya1ajh3cOPnizIeq-bt3/view?usp=share_link

[@merttunnall]

@@АндрейБабаш-ю9п Thank you bro but I can’t solve this is the question. Plot these signs and their sums at 1ms intervals in the range of t=0-100ms S1=5sin(wt) f1=50Hz S2=2.5cos(wt) f2=100Hz

[@АндрейБабаш-ю9п]

@@merttunnall Just w1=2*pi*f1 and w2=2*pi*f2. Step will be 1 ms. S1=5*sin(w1*t), S2=2.5*cos(w2*t)

[@АндрейБабаш-ю9п]

I have this variant for you, Bro :) procedure TForm1.Button1Click(Sender: TObject); var s1,s2,s,t,tn,tk,step,w1,w2,f1,f2:double; begin step:=0.0001; t:=tn; tk:=0.05; f1:=50; f2:=100; w1:=2*pi*f1; w2:=2*pi*f2; while(tk>t) do begin s1:=5*Sin(w1*t); s2:=2.5*Cos(w2*t); t:=t+step; s:=s1+s2; Chart1.Series[0].AddXY(t,s1); Chart1.Series[1].AddXY(t,s2); Chart1.Series[2].AddXY(t,s); end; end; drive.google.com/file/d/1gBq0uq0hqkFPt9J-8NXE_HW4xMrCOAOV/view?usp=share_link Source code: drive.google.com/file/d/1CIfm0F9QwhNyzU9BYDoxiki1DQSP2MFN/view?usp=sharing Is it what you want?

[@merttunnall]

@@АндрейБабаш-ю9п Yes Bro Thanks a lot. It’s really helped me. :) I will follow your channel.