sonraki »

[ilkerficicilar]

22 yıl önceden bir utility...

Bu program, sinüs ve kosinüsü interpolasyonla yaklaşık 3 ila 10 kat daha hızlı hesaplamak üzere BASIC 2.0'daki SIN() ve COS() fonksiyonlarını değiştiriyor:

http://cbm.ficicilar.name.tr/program/11/h%C4%B1zl%C4%B1-mat-v3.2

Test etmek için bir örnek ve test sonucu şöyle:


list

10 p=3.14159/180
20 sys49155:ti$="000000"
30 ford=0to359:r=d*p:s=sin(r):c=cos(r):next:t=ti/60:print"normalde hizi: "t"sn."
40 sys49152:sys49158:sys49161:ti$="000000"
50 ford=0to359:r=d*p:s=sin(r):c=cos(r):next:t=ti/60:print"hizlimat hizi: "t"sn."
60 sys49152:sys49164:sys49167:ti$="000000"
70 ford=0to359:s=sin(d):c=cos(d):next:t=ti/60:print"dereceli hizi: "t"sn."
ready.
run
normalde hizi:  22.6333333 sn.
hizlimat hizi:  6.25 sn.
dereceli hizi:  2.36666667 sn.

ready.

[i_r_on]

Programın adından satranç programı zannettim Stajyere de satranç yazdırıyorum aklım direkt oraya gitti

Orjinalindeki sorun ne bu fonksiyonların? Daha az bellek kullanmak için falan mı yazılmış. Microsoft programcılarının beceriksizliği mi yoksa?

[ilkerficicilar]

Hakkaten, satranç programı için güzel isim olurmuş... Bu arada ben de dün Apple II için yazılmış bir satranç programı dökümüne bakıyordum. 16KB'den az yer tutuyor, Basic'te yazılmış. Kilobaud Magazine'nin 79 yılı sayılarından birindeydi. Gerçi ondan daha önce 4KB'lık PET bilgisayarı için birisi Mikrochess'i yazmış. 1KB yer tutuyordu satranç programı makine kodu yanılmıyorsam!

Mikrosoft'taki sorununsa ne olduğuna bakmamıştım doğrusu.