Sinüs'lü denklem

[sadogan]

Dayınızı rahmetle anıyoruz.
Başınız sağ olsun.

[t2]

Z hocam Dayınıza Allah C.C. rahmet eylesin. Allah C.C. yakınlarına sabır versin.

sin(a+b) = sin a.cos b + cos a .sin b

eşitliğinden yola çıkarak, sizin formülü aynen elde ederek, yüksek hassasiyetle hesaplattım.  sadece ardışık örnekler için ve i=3'e kadar mükemmel çalışıyor.
Tam da sorunun başladığı indeks 4 ve yukarısı.  4ten itibaren sorun çıkıyor. ben de örnek olarak farketmeden 4ü vermiştim. çok garip olmuş.
genliğin 0'a yakın olduğu noktalarda iyi çalışıyor denebilir. Acaba gözden kaçırdığımız nedir?

var
i,
 m, y1,y0,s,f, d: Extended;
begin
  m:= 0.431968989868597;
  y0:= strtofloat(Edit1.Text);
  y1:= strtofloat(Edit2.Text);
  s:=    sin(m)/(   (y1/y0) - cos(m) );
  i:=   ArcTan(s)/m;
  Label4.Caption := 'i=' + floattostr(i) ;
end;

[z]

Sağolun. Ölüm vs her şey kabullenilebiliyor da. Yakınınızı yıkama masasına konurken görmek insanı çok etkiliyor.

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

Açıkcası neden 4 sonucu elde edilemiyor ben de merak ediyorum.

Acaba sin con atan hesaplamaları atıyorum 256 bit yapılsa doğru sonuç bulunur mu?

Cevabını bilmiyorum.

[HeCToR]

Başınız Sağolsun Allah Rahmet Eylesin