&2� ******************************D3� * POLINOMAL REGRASYON *N4� * *e5� * SELCUK BIROL *o6� * *”7� ******************************Ùd† X(20),Y(20),X1(20),C(20,20),D(20),D1(20),X5(20),B(20,20):™ "“" n™ " BU PROGRAM P.DERECEDEN BIR POLINOMA ";B x™ "UYGUN BJ REGRASYON KATSAYILARINI HESAP EDER "; }™ "VE REGRASYONA AIT VARYANS ANALIZI TABLOSUNU VERIR":™± ‚™ "Y=B0 + B1*X + B2*X^2 + ....... + BP*X^P":™û Œ™ "N>P OLMAK SARTI ILE N ADET X,Y DEGER CIFTININ HAZIRLANMASI ICIN ";B –… "POLINOMAL REGRASYON ESITLIGININ ARZU EDILEN P DERECESI P =";Px  … " X,Y CIFTLERININ ADEDINI GIRINIZ X,Y , N=";N† ª� I²1 ¤ N­ ´… "X,Y CIFTLERINI GIRIN";X(I),Y(I)µ ¾‚ IÞ È� I²1 ¤ P:� J²1 ¤ P:C(I,J)²0:‚ J:‚ Iý Ò� I²1 ¤ P:D(I)²0:X5(I)²0:‚ ð� I²1 ¤ P úX1(I)²0& � I1²1 ¤ N> X1(I)²X1(I)ªX(I1)®IG ‚ I1Y "X1(I)²X1(I)­Na ,‚ Ij 6Y1²0y @� I1²1 ¤ N‰ JY1²Y1ªY(I1)’ T‚ I1ž ^Y1²Y1­N¬ r� J²1 ¤ Pµ †S1²0à �� I²1 ¤ Næ šS1²S1ª(Y(I)«Y1)¬(X(I)®J«X1(J))î ¤‚ Iú ®D(J)²S1 ¸S1²0 Â� K²J ¤ P! Ì‹ K±K § 540* àS1²08 ê� I²1 ¤ N` ôS1²S1ª(X(I)®J«X1(J))¬(X(I)®K«X1(K))h þ‚ Iv C(J,K)²S1ˆ C(K,J)²C(J,K)� ‚ K˜ &‚ J¦ D� I²1 ¤ P× N™ "KATSATILAR MATRISI C(";I;",J) ELEMANLARI"å X� J²1 ¤ P b™ "C(";I;",";J;")="C(I,J) l‚ J v‚ I! Š� I²1 ¤ P8 ”™ "D(";I;")=";D(I)B ž‚ I:™P ¨� I²1 ¤ P_ ²D1(I)²D(I)g ¼‚ Iy Ú� 2190:� 3000‚ îM1²0� ø� I²1 ¤ P¦ M1²M1ªX5(I)¬X1(I)® ‚ I» P0²Y1«M1Ì >™ "B 0 =";P0Ú H� I²1 ¤ Pð R™ "P";I;"=";X5(I)ú \‚ I:™„Y9²0Ž� I²1 ¤ N'˜Y9²Y9ª(Y(I)«Y1)®2/¢‚ I9¬C9²Y9B¶C1²0PÀ� I²1 ¤ PfÊC1²C1ªX5(I)¬D1(I)nÔ‚ I{ÞC2²C9«C1£èL²N«1:K²L«P:C8²C1­P:C7²C2­K:C6²C9­LЙ " KA.TOP. SIK.DER. KA.ORT."ç$™ "REG.D.";C1;P;C8þ.™ "REG. ";C2;K;C78™ "TOPLAM",C9,L,C6-=Z1²(1.0«(C2­C9))¬.5e>™ "POLYNOMAL VEYA DOGRUSAL REGRASYON KATSAYISI=";Z1‚B™ "HESAPLAMA TAMAMLANDI"ˆL€¡Ž� I²1 ¤ P:B(I,I)²1:‚²˜X²0:� 2300:ŽÂü� HESAPLAMAÐ X²Xª1:Z²Xõ ‹ C(Z,X)²0 § Z²Zª1:‹ Z³²P § 2320 ‹ Z±P § ™ "INV YOK":Ž6$ ‹ Z³±X § R²1­C(Z,X):I²X:K²Z:� 2500^. ‹ C(X,X)³±1 § R²1­C(X,X):I²X:� 2550l8 � I²1 ¤ P‹B ‹ I²X § I²Iª1:‹ I±P § 2390²L ‹ C(I,X)³±0 § R²«C(I,X):K²X:� 2500¸V ‚É` ‹ X³P § 2310÷t � I²1 ¤ P:� J²1 ¤ P:C(I,J)²B(I,J):‚ J:‚ Iý~ ŽÄ �Î � J²1 ¤ PCØ C(I,J)²C(I,J)ªR¬C(K,J):B(I,J)²B(I,J)ªR¬B(K,J)Iâ ‚Oì ŽUö �c � J²1 ¤ P‡ C(I,J)²R¬C(I,J):B(I,J)²R¬B(I,J)� ‚“ Ž¡¸ � J²1 ¤ P­Ì X5(J)²0ÔÖ � K²1 ¤ P :X5(J)²X5(J)ªC(K,J)¬D(K)àà ‚ K:‚ Jæê Ž