Bu yazımızda hazır sqrt fonksiyonunu kullanmadan kullanıcının girdiği hassasiyet kadar hassasiyetde karekök hesabı yapan bir kod yazacağız. Hadi kodumuza geçelim.(define (karekok k t h) ; fonksiyon adı ve parametreleri k=girilen değer t= tahmin h=hassasiyet
(cond ;
((< (abs (- (* t t) k)) h) t) ;şart ifadelerimizi yazdık tahmin’in karesinden girilen değeri çıkarttığımızda kalan sayı ;hassasiyet aralığında bize tahmin sonucunu verip vermediğini kontrol ettik
(else (karekok k (/ (+ t ( / k t)) 2) h) ))) ; eğer değilse başka bir tahmin ile devam etmesini istiyoruz
(karekok 25 (random 25) 0.000001) ; gönderdiğimiz parametreler
Lisp Dili Karekök Hesaplama Kod Görselimiz:
Umarım yardımcı olmuştur başarılar..