13.01.2012 13:28

67427    

merhaba arkadaşlar;




Bu yazdığım lisp e eğer fonksiyonu eklemek istiyorum. iki şekilde olabilir;
1- birinci seçenek olarak çizimdeki circle olup olmadığını benim karar vermem mesela; circle var =1 circle yok=2 gibi..
2- kendisi otomatik olarak çizim içinde circle var mı yokmu baksın..

bu işlemden sonra;

circle varsa çizim adı cap yazıcak.. circle yoksa çizim adı yazacak.. diğer bütün kısımlar standarttır..

yardımcı arkadaşa şimdiden teşekkürler..

13.01.2012 15:09

67429    

13.01.2012 17:50

67433    

Mehmet hocamın "Yazılmış Lispe kod eklemek" konusundaki hissiyatına aynen katılıyorum.

Bu gün bir paylaşımımda 2 ipucu vermiştim.

Linkleri görebilmek için ÜYE olmalısınız.

bunlardan biri =, eq ve equal biribirinden farklı operatörlerdir.
Konu açılmışken biraz detaylandırayım bari :)

-------------------------------------------------------------------------------

(= 4 4.0) returns T
(= 20 388) returns nil
(= 2.4 2.4 2.4) returns T
(= 499 499 500) returns nil
(= "me" "me") returns T
(= "me" "you") returns nil
-------------------------------------------------------------------------------

(setq f1 '(a b c))
(setq f2 '(a b c))
(setq f3 f2)

(eq f1 f2) returns nil ;;; eq operatörü nil bdöner. Çünki f1 ve f3, aynı değere sahip olmakla birlikte, aynı list değillerdir.
(eq f1 f3) returns nil ;;; eq operatörü nil bdöner. Çünki f1 ve f3, aynı değere sahip olmakla birlikte, aynı list değillerdir.
(eq f2 f3) returns T

(= f1 f2) returns nil
(= f1 f3) returns nil
(= f2 f3) returns T

(equal f1 f2) returns T
(equal f1 f3) returns T
(equal f2 f3) returns T
-------------------------------------------------------------------------------

(setq f1 '(a b c))
(setq f2 '(a b c))
(setq f3 f2)
(setq a 1.123456)
(setq b 1.123457)

(equal f1 f3) returns T
(equal f3 f2) returns T
(equal a b) nil ;;; a ve b değişkenleri 0.000001 kadar farklıdır.
(equal a b 0.000001) returns T ;;; Çünki, a ve b değişkenlerini fuzz arguman olarak 0.000001 kullanarak kıyasladık
-------------------------------------------------------------------------------

Kolay gelsin.

Beğenmek için anlamak lazım...

14.01.2012 10:48

67439    

Madem kendin için yazdın bu lispi. Biraz daha hatalara karşı fonksiyon üretip daha kaliteli hale getirebilirsin.

- Örneğin circle seçimi yaparken, seçimde circle yok ise işlem sonucu hata veriyor.

- 1 ve 2 seçeneklerini girerken başka bir değer girdiğinde komutu bitireceğine tekrar değer girmesini sağlayabilirdin. Bunu da getreal ile değil, getkword ile yapmalıydın. Yada getreal olacak ise bunu while döngüsü içine sokup başka bir değer girildiğinde başa dönmesini sağlayabiirdin.

- Dosya yazdırırken aynı isimde var ise uyarı veriyor. Ancak kendi mevcut uyarısnı. Bunu kendin sorgulatabilir, gerekirse mevcut dosyayı koruyup yeni bir isimle kayıt ettirebilirdin.

- Text komutunu kullanırken yazı yüksekliğini de eklemişsin. Peki aktif stilin yazı yüksekliği tabloda girilmiş ise ne olacak? :)

- Nokta gösteriminde nil değeri için kod yok.


Şimdilik bu kadar :)