Skrip Membuat Simulasi Interpolasi 2 Gelombang

Bagaimana membuat skrip simulasi interpolasi 2 gelombang??
bisa di atur.. nih gw share skrip nya.
langkah awal buat form dengan komponen2 ini

Komponen yang di pakai
Panel(sebagai dasaran)
Chart
Edit
Label
Button
Before Run

ini skripnya
Skrip

procedure TForm1.Button1Click(Send
er: TObject);
var x,A1,K1,Alpha1,A2,K2,Alpha2: integer ;



function y(x,A,K,Alpha:double):double;
Begin
result :=A*sin((K*x+Alpha)*pi/180);
end;

begin
try
A1 :=strtoint(EdA1.Text);
K1 :=strtoint(EdK1.Text);
Alpha1 :=strtoint(EdAlpha.Text);
A2 :=strtoint(EdA2.Text);
K2 :=strtoint(EdK2.Text);
Alpha2 :=strtoint(EdBeta.Text);

chart1.Series[0].Clear;
chart1.Series[1].Clear;
chart1.Series[2].Clear;

for x:= 0 to 360 do
begin
chart1.series[0].AddXY(x,y(x,A1,K1,Alpha1));
chart1.series[1].AddXY(x,y(x,A2,K2,Alpha2));
chart1.series[2].AddXY(x,y(x,A1,K1,Alpha1)+y(x,A2,K2,Alpha2));
end;

except end;
end;

end.


After Run

Selesei..
Silahkan mencoba