Bu sayfadaki yazılar
Sayfanın metni
Sayfa 13
Merhabalar!!! Bu ay yine Audiomaster ses örnekleme programının yeni bir versiyonu ile yine karşınızdayım. Bu programı yazan RamSCAN SOFTWARE, ömrünün tamamını bu programı geliştirmekle harcayacak herhalde. Öyle ki, daha Audiomaster III programına yeni yeni alışmışken, pat diye monitörde karşımıza Audiomaster IV dikiliverdi. Sanırım yakında daha dergi çıkmadan yeni versiyonu piyasaya çıkacak.
Her zamanki gibi, bu programın tamamını detaylı bir biçimde açıklamayı gereksiz buluyorum. Çünkü bu programın önceki versiyonlarını detaylıca açıklamıştık. Bu yazıda sadece programda yapılan eklemeleri ve programın yanında sunulan utility programlarını anlatacağım. Eğer bu programla tanışmamış olanlar varsa, onlara 3. sayıda yayınladığımız Audiomaster II'yi,
AUDIOMASTER IV
KUBİLAY KILINÇ
TELE: Display'de bulunan grafiği bir kademe küçültür.
Şimdi sıra menü komutlarında yapılan değişikliklere. EDIT-1 MENÜSÜNDE YAPILAN DEĞİŞİKLİKLER:
Bu menüde yapılan tek değişiklik, yeni bir komut eklenmiş olması:
Keep: Grafik display'inde görülen "Range" olarak tanımlanmış bölümün haricindeki her şeyi siler. Bu komut Cut komutu ile aynı işi yapar, fakat prensipleri farklıdır.
daha sonra da 9. sayıda yayınladığımız Audiomaster III yazılarını okumalarını tavsiye ederim.
Programda gözümüze çarpan ilk değişiklik, ekranda seslerin grafiklerini gördüğümüz display'in bir cetvelde olduğu gibi ölçülendirilmiş olmasıdır. Display'in altında yer alan komut ve seçenekler üzerinde de "ZOOM OUT" komutunun yerini "ZOOM" ve "TELE" komutları yerleşmiş durumda. Burada:
ZOOM: Display'de bulunan grafiği bir kademe büyütür.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 12
COUNT=0 Print "Katsayilar hesaplaniyor" For I=0 To N_NODES-l For J=0 To N_NODES-l W_MATRIX(I,J)=0 If(IoJ) For S=0 To N_SMPLRS-l W_MATR1X(U)=W_MATRIX(U>KSMPLR(S,I)*SMPLR(SJ)) Next S End If Inc COUNT Next J Next I Print "Katsayi adedi ",COUNT Wait Key End Proc Rem Rem Procedure PRT_WEIGHTS
Cls Print "Katsayi matrisi" For I=0 To N_NODES-l Print ForJ=0 To N_NODES-l Print W_MATRIX(I,J) Next J Next I Wait Key End Proc Rem Rem Procedure ITERATE
Cls ITERATIONS=0 Print" Hesaplaniyor" Repeat Print
SHW_SMPLR[UNKNOWN] For N=0 To N_NODES-l SIGMA[N] TEMP=Param NLFUNC[TEMP] SMPLR(RESULT,N)=Param Next N Inc ITERATIONS COMPARE TEMP=Param If(TEMP<>N_NODES) SWP_RESULT End If Until(ITERATIONS>MXT)or(TEMP=N_NODES) Print "Islem tamam! Iterasyon sayisi ",ITERATIONS Wait Key End Proc Rem Rem Procedure SIGMA[N]
SUM=0 For I=0 To N_NODES-l SUM=SUM-KW_MATRIX(N,I)*SMPLR(UNKNOWN,I)) Next I End Proc[SUM] Rem Rem Procedure NLFUNQIN]
If IN>=0
Q=l Else
Q=-i End If End Proc[Q]
Rem Rem
Procedure SWP_RESULT
For I=0 To N_NODES-l SMPLR(UNKNOWN,I)=SMPLR(RESULT,I) Next I End Proc Rem Rem Procedure COMPARE
TEST=0 For I=0 To N_NODES-l If(SMPLR(UNKNOWN,I)=SMPLR(RESULT,I)) Inc TEST End If Next I End Proc[TEST] Rem Rem Procedure ILLEGAL
Cls Print "Hatali giriş, tekrar deneyin" End Proc Rem Rem Procedure INITSCRN
Screen Close 0 Screen Open 0.640,200,4,Hires Cls Flash Off End Proc Rem Rem Procedure MEN
Menu$(l)="Quit " Menu$(l.l)="Cik" Menu$(2)="Sampler " Menu$(2.1)="Gir" Menu$(2.2)="Kayitla " Menu$(2,3)="Yukle" Menu$(2,4)="Goster" Menu$(3)="Katsayilar " Menu$(3,l)="Hesapla" Menu$(3.2)="Yaz" Menu$(4)="Bilinmeyen " MenuS(4,l)="Gir" MenuS(4,2)="Kayitla" MenuS(4,3)="Yukle " Menu$(4,4)="Goster" Menu$(5 )="Gurultu MenuS(5,l)="Ekle" Menu$(6)="Bul " Menu$(6,l)="Basla" Rem
Menu On End Proc Procedure FMEN If TST2=1 and TST3=l Then End If TST2=2 and TST3=1 Then GT_SMPLRS If TST2=2 and TST3=2 Then SV_SMPLRS If TST2=2 and TST3=3 Then LD_SMPLRS If TST2=2 and TST3=4 Then PRT_SMPLRS If TST2=3 and TST3=l Then SET.WEIGHTS If TST2=3 and TST3=2 Then PRT_WEIGHTS If TST2=4 and TST3=1 Then INPJJNKNOWN If TST2=4 and TST3=2 Then SV_UNKNOWN If TST2=4 and TST3=3 Then LD_UNKNOWN If TST2=4 and TST3=4 Then SHW_UNKNOWN If TST2=5 and TST3=1 Then AD_NOISE If TST2=6 and TST3=1 Then ITERATE End Proc