tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...

x2 = x
y2 = y
Loop
Sheets(1).Cells(j, 5) = i
End If
j = j + 1
Loop
End Sub
Sub xolus()
'Sheets("nokta belirle").Columns("A:A").Select
'Selection.ClearContents
Sheets("nokta belirle").Cells(1, 1) = "x"
Sheets("grafik veri").Cells(1, 1) = "x"
Sheets("grafik veri").Cells(1, 2) = "y"
td = Sheets("nokta belirle").Cells(2, 2)
gg = 1
sat = 2
j = 2
For md = 0 To td - 1
Sheets("nokta belirle").Cells(md + 2, 2) = td
Sheets("nokta belirle").Cells(md + 2, 1) = md
Sheets("nokta belirle").Cells(md + 2, 5) = md ^ 3 + a * md + Sheets("nokta
belirle").Cells(2, 4)
Sheets("nokta belirle").Cells(md + 2, 6) = "=MOD(R[0]C[-1],RC[-4])"
ag = Sheets("nokta belirle").Cells(md + 2, 6)
For yf = 0 To td - 1
For ch = 0 To td - 1
If ((yf * yf) - ch * td) = ag Then
gg = gg + 1
Sheets(1).Cells(gg, 1) = Sheets("nokta belirle").Cells(2 + md, 1)
77