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