Hallo, mijn naam is Roland Parijs. Dank u voor uw acceptatie.
Ik heb de volgende vraag:
Ik heb een code die een Fourier reeks berekent en tekent, één handmatig en één in een loop.
De eerste werkt wel, maar de tweede niet, en ik weet niet precies waarom, beide zouden het zelfde
resultaat moeten geven.
Ik heb de volgende vraag:
Ik heb een code die een Fourier reeks berekent en tekent, één handmatig en één in een loop.
De eerste werkt wel, maar de tweede niet, en ik weet niet precies waarom, beide zouden het zelfde
resultaat moeten geven.
Code:
For j = -720 To 730 Step 1
[ATTACH]336885.vB[/ATTACH]
y1 = r * Sin(j * q * 1) / 1 + r * Sin(j * q * 3) / 3 + r * Sin(j * q * 5) / 5 + r * Sin(j * q * 7) / 7 + r * Sin(j * q * 9) / 9
y2 = r * Sin((j + 1) * q * 1) / 1 + r * Sin((j + 1) * q * 3) / 3 + r * Sin((j + 1) * q * 5) / 5 + r * Sin((j + 1) * q * 7) / 7 + r * Sin((j + 1) * q * 9) / 9
For p = 1 To 5
z1 = z1 + r * Sin((2 * p - 1) * j * q) / (2 * p - 1)
z2 = z2 + r * Sin((2 * p - 1) * (j + 1) * q) / (2 * p - 1)
Next p
g.DrawLine(clr3, Yas + j, Xas - y1, Yas + j + 1, Xas - y2)
g.DrawLine(clr3, Yas + j, Xas - z1, Yas + j + 1, Xas - z2)
Next j