27.06.2013 Views

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 ...

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!