Mathematica ile paralelkenar çizme nasıl olur, onu anlatacağım bu yazıda. Mathematica'da her ne kadar F1 tuşuna basarak fonksiyon yapılarını öğrenmek mümkün olsa da, benim gibi "bilgisayar dersi zaten çok zor olmaz" deyip işi sonraya bırakanlar için fazla zaman ayırmayı gerektirebilir. Bu yüzden Mathematica ile paralelkenar çizme nasıl olur onu anlatacağım. Siz de benzer şekilleri çizmek için kullanacağınız yapıları az çok anlamış olursunuz bu sayede.

İlk olarak yeni bir .nb dosyası oluşturuyoruz Mathematica'yı açarak. File > New > Notebook(.nb) yolunu kullanarak çalışacağımız sayfayı açabiliriz. Sonrasında ise 5 farklı değişken tanımlıyoruz. Ben bu değişkenleri l, m, n, p şeklinde tanımladım. Siz istediğiniz adı verebilirsiniz :)

Mathematica ile Paralelkenar Çizme Kodları

l = Polygon[{{0, 0}, {4, 0}, {5, 2}, {1, 2}, {0, 0}}];

m = Line[{{1, 2}, {3, 0}}];

n = Line[{{0, 0}, {5, 2}}];

p = Line[{{0, 0}, {4, 0}, {5, 2}, {1, 2}, {0, 0}}];

yukarıdaki kodların ne işe yaradığını açıklayayım şimdi de:

1. l ile ifade ettiğim kısımda bir çokgen tanımladım. Koordinatları sırasıyla (0,0), (4,0), (5,2), (1,2) ve (0,0) olan noktaları birleştirecek şekilde bir çokgen yani... Ki bu da anlayacağınız üzere paralelkenar oluyor :)
2. m ile tanımlı olan doğru parçası BE kenarını ifade ediyor.
3. n ile de AC doğru parçasını tanımladım.
4. Sonra olarak bir de p'yi tanımladım.Bunun kordinatları da l ile aynı.

Fakat bu sefer Line fonksiyonunu kullandım. Çünkü şeklin etrafı, yanı kenarları daha kalın. Kalınlığı tanımlayabilmek için farklı bir değişken atamam gerekti. Belki başka şekilde de yapılıyordur bilmiyorum ama ben böyle yaptım işte :)

Graphics[{{Cyan, l}, {Red, m}, n, {Thick, p}, Text["A", {-0.1, -0.1}], Text["E", {2.95, -0.1}], Text["D", {4.15, -0.1}], Text["F", {2.2,}], Text["C", {5.1, 2.1}], Text["B", {0.9, 2.1}], {Yellow, Disk[Scaled[{0.04, .090}], .05]}, {Yellow, Disk[Scaled[{0.59, 0.090}], .05]}, {Yellow, Disk[Scaled[{0.78, .090}], .05]}, {Yellow, Disk[Scaled[{.96, .92}], .05]}, {Yellow, Disk[Scaled[{0.22, .92}], .05]}, {Yellow, Disk[Scaled[{0.435, .445}], .05]}}]

Mathematica ile Paralelkenar Çizme Kod Açıklamaları

Yukarıdaki kod da tanımladığım çokgen ve doğru parçalarını çizmeye yarıyor :) Anlamı ise sırasıyla:

1. l ile tanımlanan çokgenin içini Cyan ile boya :)
2. m ile tanımlanan doğru parçasının rengi kırmızı olsun.
3. n'yi çiz.
4. p ile tanımlanan doğru parçaları da kalın olsun.
5. Belirtilen kordinatlara A, E, D, F, C ve B harflerini ekle.
6. Sarı renkli, kordinatları yukarıda belirtilen yerlere, yarıçapı 0.05 br olan 6 farklı disk çiz.

Mathematica ile paralelkenar çizme nasıl olur sorusuna cevap verdiğim bu yazıdan sonra, inşallah siz de benzer çizimleri yapabilirsiniz. Olur da size de hoca ödev falan verirse, bence Mathematica'nın yardım sayfasından daha çok işe yarar bu sayfa :)