tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...
tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...
tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
End If<br />
Next<br />
Next<br />
Next<br />
End Sub<br />
x = m * m - x - x1<br />
y = m * (x2 - x) - y2<br />
Sheets(3).Cells(1, 2) = x<br />
Sheets(3).Cells(2, 2) = "=MOD(R[-1]C,'1'!RC[1])"<br />
Sheets(3).Cells(1, 3) = y<br />
Sheets(3).Cells(2, 3) = "=MOD(R[-1]C,'1'!RC[0])"<br />
x = Sheets(3).Cells(2, 2)<br />
y = Sheets(3).Cells(2, 3)<br />
x2 = x<br />
y2 = y<br />
Sheets(1).Cells(i, 6) = i - 1<br />
Sheets(1).Cells(i, 2 * gg + 3) = x<br />
Sheets(1).Cells(i, 2 * gg + 4) = y<br />
Sheets("grafik veri").Cells(sat, 1) = x<br />
Sheets("grafik veri").Cells(sat, 2) = y<br />
sat = sat + 1<br />
Loop<br />
Sheets(1).Cells(j, 5) = i<br />
Else<br />
Sheets(1).Cells(j, 5) = 2<br />
End If<br />
j = j + 1<br />
80