Sayfa 24

If(OPTIONX) and OPTION<13) On OPTION Proc GT_SMPLRS, SV_ SMPLRS,LD_SMPLRS, PRT _ SMPLRS, SET_WEIGHTS, PRTJWEIGHTS, INP_ UNKNOWN, LD_UNKNOWN, SV_ UNK- NOWN, SHW_UNKNOWN, AD_ NOISE, ITERATE

Else İLLEGAL Endlf Loop Rem Procedure AD_NOISE Cls Print: Print "Hata yüzdesini ver " Input P ForI=0ToNJMODES-l T=Rnd(100) lf(T<P)

SMPLR(UNKNOWN,I)=-SMPLR (UN- KNOWN,I)

Print "Altered bit ",I Endlf Nextl Wait Key End Proc Rem Procedure INP_UNKNOWN Cls Print "Bilinmeyen sekli gir " INP_SAMPLE[UNKNOWN] SHW_SMPLR[UNKNOWN] End Proc Rem Rem Procedure SV_SMPLRS Cls Print "Örnek numarasini ver Input N N=N-1 Print "isim ? Input NAMES OpenOut 1,NAMES ForI=0ToN_NODES-l Print #1,SMPLR(N,I) Next I Close 1 End Proc Rem Procedure LD_SMPLRS Cls Print "Örnek numarasi Input N N=N-1 Print "İsim ? Input NAMES Öpenin 1,NAMES ForI=0ToN_NODES-l Input #1,SMPLR(N,I) Nextl Close 1 End Proc Rem Procedure LD_UNKNOWN Cls Print "isim ? Input NAMES Öpenin 1,NAMES ForI*ÖToN_NODES-l Inpuf#LSMPLR(UNKNOWN,I) Next f Close 1 End Proc Rem Procedure SV_UNKNOWN Cls Print "isim ? Input NAMES Öpen Out 1 ,NAME$ ForI=0ToN_NODES-l Print #1,SMPLR(N,I) Nextl

Close 1 End Proc Rem Procedure GT_SMPLRS Cls Print Omek numarasi Max ",N_SMPLRS

Input S If((S>0) and(S<=N_SMPLRS)) INP_SAMPLE[S-1] Else İLLEGAL Endlf End Proc Rem Procedure INP_SAMPLE[S] Cls Print "Örnek verilerini gir " ForR=OToRWS-l Print "Satir ";R; Input TEMPS ForC=OToCLMNS-l If Mid$(TEMP$,C+1,1 )=" I" SMPLR(S,R*CLMNS+C)=I Else SMPLR(S,R*CLMNS+C)=-1 Endlf NextC NeXtR VVait Key End Proc Rem Procedure PRT^SMPLRS Cls Print "Örnek numarasini ver Max ",N_SMPLRS

Input S If((S>0) and(S<=N_SMPLRS)) SHW_SMPLR[S-1J Else İLLEGAL Endlf End Proc Rem Procedure SHW_SMPLR[S] Cls Print "Omek ",S+1 ForR=OToRWS-l Print "Row ";R; ForC=OToCLMNS-l If SMPLR(S,R*CLMNS+C)=1 TEMP$="*" Else TEMP$=" " End t Prim TEMPS; NextC Print NextR Wait Key End Proc Rem Procedure SHW_UNKNOWN SHW_SMPLR[UNKNOWN] End Proc Rem Procedure SET_WEIGHTS Cls COUNT=0 Print "Katsayilar hesaplaniyor" ForI=0ToN_NODES-I ForJ=0ToN_NODES-l W_MATRIX(I,J)=0 If(IoJ) For S=0 To N_SMPLRS-1 W_MATRIX(I,J)= W_MATRIX(U) + (SMPLR(S,I) * SMPLR(S,J))

NextS Endlf Inc COUNT Next J Next I

Print "Katsayi adedi ",COUNT VVait Key End Proc Rem Procedure PRT_WEIGHTS Cls Print "Katsayi matrisi" ForI=0ToN_NODES-l Print ForJ=0ToN_NODES-l Print W_MATRIX(I,J) Next J Nextl VVait Key End Proc Rem Procedure ITERATE Cls ITERATlONS=0 Print" Hesaplaniyor" Repeat Print SHW_SMPLR[UNKNOWN] ForN=0ToN_NODES-l SIGMA[N] TEMP=Param NLFUNC[TEMP] SMPLR(RESULT.N)=Param Next N Inc ITERATIONS COMPARE TEMP=Param If(TEMPoN_NODES) SWP_RESULT Endlf Until(ITERATIONS>MXT) or (TEMP = N_NODES)

Print "Islem tamam! Iterasyon say isi ".ITE- RATIONS

Wait Key End Proc Procedure SIGMA[N] SUM=0 ForI=0ToN_NODES-l SUM=SUM+ (W_MATRIX (N.I) * SMPLR (UNKNOWN.I))

Nextl End ProcfSUMj Rem Procedure NLFUNC[IN] If IN>=0 Q=l Else Q=-l Endlf End Proc[Q] Procedure SWP_RESULT ForI=0ToN_NODES-l SMPLR(UNKNOWN,I) = SMPLR (RE- SULT.I)

Next I End Proc Procedure COMPARE TEST=0 ForI=0ToN_NODES-l If(SMPLR (UNKNOWN,I) = SMPLR (RE- SULT.I))

Inc TEST Endlf Next I End Proc[TEST] Procedure İLLEGAL Cls Print "Hatali giriş, tekrar deneyin" End Proc Rem Procedure IN1TSCRN Screen Close 0 Screen Öpen 0,640,200,2,Hires Cls Flash Off End Proc