155
Ey = Ey + y
Eycosx = Eycosx + ycosx
Eysinx = Eysinx + ysinx
avgy = Ey/n
Memo.Lines.Add(Mean = avgy)
Memo.Lines.Add(Eycosx = Eycosx)
Memo.Lines.Add(Eysinx = Eysinx)
FOR j = 0 TO HasilRamal.Items.Count-1 DO
x2 = j + 1
f = avgy + (2*Eycosx*(cos(2*180/n)*x2)/n)+(2*Eysinx*(sin(2*180/n)*x2)/n)
HasilRamal.Items.Add(ROUND(f))
IF Hapus Daftar CLICK THEN
CLEAR demand
CLEAR
DaftarData
CLEAR
HasilRamal
CLEAR Memo
END
 |