( "******************************"O "* *"v "* M A T E M A T I K *"( "* *"2 "* I *"< "* *": F "* BY OKAN YILMAZ/2.10.1986 *" 85 REM "* (C) NO COPYRIHT *"a P "* *" W "******************************" Z198,0:(9)(142):36000 dBO11:CO15:PEN0:28000 i(9);(14);(8):" "$ n" 1 AKLASIK OK ESABI"M x" 2 ENKLEM ETI OZUMU"s " 3 ATRIS SLEMLERI" " 4 ONKSIYONUN ULUNMASI" " 5 RADEGER ESABI" " 6 AYISAL UREV ESABI" " 7 AYISAL NTEGRAL ESABI"H " 8 IFFERANSIYEL ENKLEMLER"c " 9 IKIS" 20000:A(A$):A1A9190 A1000,2000,3000,4000,5000,6000,7000,8000,9000 100  :  **** YAKLASIK KOK HESABI **** :! 37000:B$"AKLASIK OK ESABI":21000R "UTFEN FONKSIYONU VE TUREVINI GIRINIZ."r "EREKMIYORSA []" "FNFU(X)=";:FR$"":FR$:FR$""1090 "1100DEFFNFU(X)="FR$:"R1055" 198,3:631,19:632,13:633,13: B$"AKLASIK OK ESABI"? $FC$B$:21000:"FNFT(X)=";:FR$"":FR$:FR$""1090d ."1110DEFFNFT(X)="FR$:"R1090" 8198,3:631,19:632,13:633,13: BB$"AKLASIK OK ESABI" LFU(X)XX4X4 VFT(X)2X4 [FC$B$:21000`" 0 DEGERINI VERINIZ :";:X0:XX0:HA1.E9^jTFT(X):T0" UREV I SIFIR OLAN BIR FONKSIYONUN KOKU OLMAZ!"stT022000:100~"ESAPLANIYOR..."YFU(X):TFT(X):XYX(YT):23000XXY:1160"OK =";XY22000:100: **** DENKLEM SETI COZUMU ****:E37000::B$"ENKLEM ETI OZUMU":21000"AC DENKLEM VAR? : ";:N:N2"";:2010NN1:27000:A(N,N),X(N):NN1"";:I1N:J1N" ("I","J") =";:A(I,J)J:" ("I")=";:B(I):21000:I:" ESAPLANIYOR...">K1N1:IK1N:WA(I,K)A(K,K)IJKNg A(I,J)A(I,J)WA(K,J):JB(I)B(I)WB(K):I:K K1N:INK1%A(I,I)0"UTARSIZ DENKLEM SETI VERILDI.":22000:100*E1A(I,I):JI1N:SUMSUMA(I,J)X(J):J!4X(I)E(B(I)SUM):K:"";?>I1N:" ";I"=";X(I):IOH22000:100cG "";i : **** MATRIS ISLEMLERI **** : BO11:CO15:PEN0:28000::B$"ATRIS SLEMLERI":21000 "ENU" ""3 " 1 ATRISLERDE OPLAMA"] " 2 ATRISLERDE IKARMA" " 3 ATRISLERIN ARPIMI" " 4 ERS ATRIS ULMA" " 5 NA ENUYE ONUS" 20000:A(A$):A1A53070 37000! A3080,3300,3500,3700,100L B$"ATRISLERDE OPLAMA":FC$B$:21000} "X MATRISIN , DEGERINI GIRINIZ";:M,N 24000:25000& 21000:"ESAPLANIYOR...":"";0 I1M:K2:J1N:C(I,J)A(I,J)B(I,J)%5 C(I,J)(C(I,J)1000):A$(C(I,J)1000):211,K:A$:"";D: KK8:J::I:26000:3000h B$"ATRISLERDE IKARMA":21000 "X MATRISIN , DEGERINI GIRINIZ";:M,N 24000:25000 21000:"ESAPLANIYOR...":""; I1M:K2:J1N:C(I,J)A(I,J)B(I,J)A C(I,J)(C(I,J)1000):A$(C(I,J)1000):211,K:A$:"";`* KK8:J::I:26000:3000 B$"ATRISLERIN ARPIMI":21000 "1.ATRISIN X DEGERLERINI GIRINIZ";:Z,X "2.ATRISIN X DEGERLERINI GIRINIZ";:C,V) XC"ARPIMIN GERCEKLESMESI ICIN = OLMALI DIR.":260008 XC3000Z MZ:NX:24000:MC:NV:25000z 21000:"ESAPLANIYOR..." I1Z:J1V:K1X:SUMSUMA(I,K)B(K,J):K:C(I,J)SUM:J I ""; I1Z:K2:J1VC(I,J)(C(I,J)1000):A$(C(I,J)1000)B211,K:A$:KK8:"";:J::I:"";S$26000:3000vtB$"ERS ATRIS ESABI":21000~"X MATRISININ DEGERINI VERINIZ";:N:NN127000:A(N,N),B(N),X(N),C(N,N):NN1MN:24000:Y1:O0 21000:"ERS ATRIS :")Z1N:ZYB(Z)1:37604B(Z)0HZ:"";nK1N1:IK1N:WA(I,K)A(K,K)JKN:A(I,J)A(I,J)WA(K,J):JB(I)B(I)WB(K):I:KK1N:INK1A(I,I)0"UTARSIZ MATRIS VERILDI.":26000:3000(E1A(I,I):JI1N:SUMSUMA(I,J)X(J):JAX(I)E(B(I)SUM):KL I1NrX(I)(X(I)1000):A$(X(I)1000)("";:211,U:A$:I2O0:UU9:YY1:YN37407"";<26000:300037000::B$"ONKSIYONUN ULUNMASI":FC$B$:21000-"ONKSIYONA AIT KAC DEGER BILINIYOR";:Nd"ONKSIYONUN DERECESINI GIRINIZ ";:M::NN127000:S(50),K(50),C(50),X(N),Y(N):NN1I1N:" ("I")";:X(I):"("I")";Y(I):29000I:PM1:J1P:I1P:A(I,J)S(JI1):B(J)K(J):I,JTA(P,P)N:K1P1:IK1P:EA(I,K)A(K,K):JKPA(I,J)A(I,J)EA(K,J):J:B(I)B(I)EB(K):I,KK1P:IPK11:R1A(I,I):JI1P:SUMSUMA(I,J)C(J):JC(I)R(B(I)SUM):SUM0:K21000:"ESAPLANIYOR...":"F(X)=";VI1P:C(I)(C(I)1000):C(I)10001C(I)10000A$"":4130mA$((C(I)1000))"C(I)0I$"-":4150,I$"+"1I1I$"+"I$""6UPI:U0U$"":4180@U1U$"X":4180JU$"X^"(U)TU$""A$""I$""^C$I$A$U$:C$;:I::+h22000:100b37000::B$"RADEGER ESABI":FC$B$:21000:CARP1"ONKSIYONA AIT KAC DEGER BILINIYOR";:N:NN1:27000:A(N,N):NN1I0N1:" ("I")";:X(I):"("I")";Y(I):A(0,I)Y(I)::21000K"ANGI X DEGERINE GORE Y BULUNACAK ";:XPoXPX(0)XPX(N1)"";:5050|I1N1((X(0)X(N1))2)XPA0:5100AIJAN2:((X(0)X(N1))2)XPBJ:CJ1:DJ:5120BJ:CJ:DJ1A(I,J)A(I1,C)A(I1,D):J,I%HX(1)X(0)M ((X(0)X(N1))2)XP33000:5150X34000uP(XPXO)H:SUMP:C(0)P(I1N12SUMSUM(PI):K1I1:CARPCARPK:K:C(I)SUMCARP:CARP1:I<YP0:I1N1:JM:YPYPC(I1)A(I,J):I:YPYPA(0,M) F21000:"ESAPLANIYOR..."B P"F(";XP;")=";YP:22000:100 pBO11:CO15:PEN0:28000::B$"AYISAL UREV ESABI":21000 z"ENU" "" " 1 ONKSIYON BELLI IKEN UREV"!" 2 EGERLER BELLI IKEN UREV"A!" 3 NA ENUYE ONUS"b!20000:A(A$):A1A36060m!37000!A6270,6080,100!B$"EGERLER ELLI KEN UREV":21000!"ONKSIYONA AIT KAC DEGER BILINIYOR";:N:NN1:"27000:A(N,N),B(N,N):NN1E"I0N1:" ("I")";:X(I):"("I")";q"Y(I):A(0,I)Y(I):B(0,I)Y(I):I:21000""UREV HESAPLANACAK 0 DEGERINI GIRINIZ.":"0= ";X0"I0N1:X(I)X0C1:KI:6150"C0:I#C1"";:61300#"UREVIN MERTEBESINI GIRINIZ";:M:21000I#"ESAPLANIYOR..."c#H(X(N1)X(0))(N1)y#$I1N1:J0N2#.A(I,J)A(I1,J1)A(I1,J):J,I#8I1N1:JIN2#BB(I,J)B(I1,J)B(I1,J1):J,I#LM((M2)2)6250$VUK(M1)2:VK(M1)2:H11(2HM)7$`YIH1(B(M,U)A(M,V)):6263X$jUKM2:VKM2:H11(2HM)r$tYIH1(B(M,U)A(M,V))$w"F";:I1M:"'";:I$y"(";X0;")=";YI:26000:6000$~B$"ONKSIYON ELLI KEN UREV":21000$"UTFEN FONSIYONU GIRINIZ."%"EREKMIYORSA []"J%"FNFU(X)=";:FR$"":FR$:FR$""6330o%"6330DEFFNFU(X)="FR$:"R6330"%198,3:631,19:632,13:633,13:%FU(X)XXX27%B$"ONKSIYON ELLI KEN UREV":FC$B$:21000&"RALIGI GIRINIZ. (0,1)";:X0,X1=&"DIMI GIRINIZ. (H) ";:H:H0"";:6360u&N(X1X0)H2:27000:A(N,N),B(N,N),X(N),Y(N):NN1&J1:IX0X1H:JJ1:X(J)I:Y(J)FU(I):A(0,J)Y(J):B(0,J)Y(J)&I:21000:6130'XBO11:CO15:PEN0:28000::B$"AYISAL NTEGRAL ESABI":21000/'b"ENU"M'l""~'v" 1 ONKSIYON BELLI IKEN INTEGRAL"'" 2 EGERLER BELLI IKEN INTEGRAL"'" 3 NA ENUYE ONUS"'20000:A(A$):A1A37060'37000(A7190,7080,100>(B$"EGERLER ELLI KEN NTEGRAL":21000x("ONKSIYONA AIT KAC DEGER BILINIYOR ";:N(N((N2)2)"";:7090(NN1:27000:X(N),Y(N):NN1(I0N1:" ("I")";:X(I):"("I")";$)Y(I):I:21000:"ESAPLANIYOR...">)TN2:T0Y10:7145b)Y10:I1N22:Y1Y14Y(I):I|)TN3:T0Y20:7160)Y20:I2N32:Y2Y22Y(I):I)H(X(N1)X(0))(N1):H1H3)ISH1(Y(0)Y1Y2Y(N1))) "=";IS:26000:7000**B$"ONKSIYON ELLI KEN NTEGRAL":21000N* "UTFEN FONSIYONU GIRINIZ."n**"EREKMIYORSA []"*4"FNFU(X)=";:FR$"":FR$:FR$""7250*>"7250DEFFNFU(X)="FR$:"R7250"*H198,3:631,19:632,13:633,13:*RFU(X)2X3++\B$"ONKSIYON ELLI KEN NTEGRAL":FC$B$:21000]+f"NTEGRAL ARALIGINI GIRINIZ 0,1";:X0,X1+p"ALT ARALIK SAYISINI GIRINIZ =CIFT ";:N+sN((N2)2)"";:7280+uNN1:27000:Y(N)+zH(X1X0)(N1):21000:"ESAPLANIYOR..."#,J1:IX0X1H:JJ1:Y(J)FU(I):I=,TN2:T0Y10:7315a,Y10:I1N22:Y1Y14Y(I):I{,TN3:T0Y20:7330,Y20:I2N32:Y2Y22Y(I):I,ISH3(Y(0)Y1Y2Y(N1)),"=";IS:26000:7000-@37000::B$"IFFERANSIYEL ENKLEMLER":FC$B$:210009-J"UTFEN FONKSIYONU GIRINIZ."Y-T"EREKMIYORSA []"-^"FU(X,Y)=";:FR$"":FR$:FR$""8070-h"35000FU="FR$:"R8070"-r198,3:631,19:632,13:633,13:-B$"IFFERANSIYEL ENKLEMLER":FC$B$:210003."ASLANGIC KOSULLARINI GIRINIZ (0,0)":"0=";X0R."0=";Y0v."DIMI BELIRLEYINIZ (H)";:H.21000:"ESAPLANIYOR...".XX0:YY0:35000:K1FUH.XX0H2:YY0K12:35000:K2FUH.XX0H2:YY0K22:35000:K3FUH!/XX0H:YY0K3:35000:K4FUHB/K(K12K22K3K4)6:YY0K^/"1=";Y:22000:100/(#BO14:CO6:PEN14:28000:(9):"";(142):/ NA$:A$""20000/*N/R"":Q1(40(B$))2:" ";::B$0R"Ԑ":C0U"NA ENU ICIN  1 E BASINIZ":20000^0UA$""20000:22010d0Vz0YHA(XYXE)11800YXEXY0Y0]E1M0]21000:"ATRIS 1:"0]R1N0]" ("E;R")=";:A(E,R):R:E:0aE1M1a21000:"ATRIS 2:"1aR1N61a" ("E;R")=";:B(E,R):R:E:q1e" ENU ICIN  1 E BASINIZ":200001eA$""20000:260101e1xi49,(47):50,(48):1`m53280,BO:53281,CO:646,PEN:1HqJ1:T2M1MqS(J)S(J)X(I)T1Rq300002\q290052fq20uTT1)2:uT031000:2DuJJ1:29020F2yJ1:ZMg2"yK(J)K(J)Y(I)X(I)Z:32000r2,y31010|2}ZZ12 }Z1290302}JJ1:310202MAXE10:W0XPH:(X(W))MAXMAXX(W):MWW2W:XOMAX:MMW:2W:XOMAX:MMW:)3ЄMIN230:WXP0:(X(W)MIN)MINX(W):WWW>3ڄW:XOMIN:MWW:O3FUXY(13)U3ˆx3BO0:CO0:PEN7:28000:"";3" "3I119:" ":4" "64Ì""f4Ȍ" "4Ҍ" î  "4܌"    "5ጙ"  M A T E M A T I K  "65挙"   "k5댙"  I  "5"   "5"   " 6"  BY OKAN YILMAZ  "?6"   "p6" î  "6" "6""6""2.10.1986 / ANKARA"7'""L7," LUTFEN BIR TUSA BASINIZ "z71""7620000:7BO5:CO13:PEN0:28000: