1 Aralık 1990 Tarihli Commodore Gazetesi Sayfa 22

hangi iki sayı olabilir ama bu değerlere bağlı olarak iş- lemlerin hızı da değişecektir. 20. satırda O ve 1 değerleri seçilmektedir. İterasyonun döngüsü 80. satırda DELTA değerine bağlı olarak IF...THEN ifadesiyle yapılmaktadır. Eğer ABS (DELTA) değeri 0.0001'den küçükse döngüden çıkılır ve program biter. DELTA denen değer X'in şu andaki ve bir önceki de- ğeri olan X1'e bağlı olarak değişmektedir ve hesabı şöy- le yapılır: DELTA — (X — X0) / (1 — FN A(X0) / FN A(X)) 50. satırda X'in eski değeri X0'a atanır ve 60. satırda X'in yeni değeri DELTA'ya bağlı olarak hesaplanır. X - DELTA : 70. satırda ise X ve FN A(X) değerleri yazılır. Eğer her şey yolunda gidiyorsa DELTA sıfıra yaklaşır ve X'in de- ğerinin azalması yavaşlar. FN A(X) değeri sıfıra yaklaş- tıkça X'in değeri de aranan kök değerine yaklaşır. Diğer Problemler Biraz önce tartıştığımız iteratif metod başka tür prob- lemlere de uygulanabilir. Örneğin bir sayının küpkökü- nü almaya ne dersiniz? 40'ın küpkökünü bulmak için şu tanımı yazın: * Şu Daha önce yaptığımız gibi bu ifadeyi düzenlersek ve tüm terimleri bir tarafa toplarsak: X 3-—40-0 Şimdi 10. satırdaki ifadeyi DEF FN A(X) - X 3 — sasiyette bir çözüme ulaşıldığını bildirir. Bu sayı da 40'ın. kUpkökune oldukça yakındır. X için öyle bir dcğcr bulun ki SIN (X) - TAN(X -4 3) olsun. Bu işlem için de aynı sistemi kullanabilirsiniz. Önce ifadeyi yazın, sonra da düzenleyin: SIN (X) - TAN (X-4-3) SIN (X) — TAN (X-4-3) — ve bu ifadeyi programda 10. satıra yazın: DEF FN A(X) — SIN (X) — TAN (X --3) ve programı çalıştırın. Çabucak X — 0.729 radyan oldu- ğunu görürsünüz Hangi sayı kendı karekökünden 5 fazladır? Cevabı yine aynı sistemle buluyoruz: olarak değiştirin ve programı çalıştırın. Program X'in de- — SOR (X) * 5 ğeri yaklaşık olarak 3.41995189 olduğunda yeterli has- veya PROGRAM ADI : İTERATİIF DESENLER O1070 BASE«8192:REM BİT-HAR. BASLANGICI <236> 5 1080 REM ausBIT unı'nııııı TEMİZLENNN — <OZİ> O0001 REM #H WW NM M NE N D MK M öt KSa d K OO M a el ör n ada e ee — <OSS> 01090 GOSUB <054> 00002 REM #« ITERATIF DESENLER. * <152> OL100 REM RENK CO VE Ci'i SECIİNsENH <154> 00003 REM Hu (0)L1 Ha <140> 01110 cı-ııco-o.cc-ıı-cıoco <189> 00004 REM Hu <196> © Or120 #EHEKRANI RENKLE DOLDURU 8 ( <129> : 00005 REM «& COMMODORE mcısn 003> '0”30 Fol ııı-ıon ?!l 3028!'" qı.cı:ım <145> 00006 R!I ıııııııııııııııııııııııııııııı <06860> 011 <182> 00010 GOÖSÜUB 1000:REM GRAFİK AYARLAMALA! oını l z -- <105> Ş <045> 01150 REM ıııııııııııııııııııııqııııı <243> X-0 TO 3189 <ı124> 01160 REM « w»W 1 00040 S510494#SIN(0.054X) <234> 01170 REM ll X.Y'DIKI nııu M: I_' <214> Yya 0 199 > 01180 REM « "" 088> 00080 Gi 2 ım - PİXEL'İ x,f"ıg KOY <242> 01190 REM ıl.llII..I'IICIIIII.II.IIIII > 00065 REM Huu SİMETRİK OİKII.I-II ICIN BU O079> SATIRI -ö 01060 HMsVV117: ı-oııt MM,FNSB(S) <249> ! EKLEY 134> Ha 00066 REM Hun Ax-xın-hx-:ıo—xıv-ıoo-vı " M <087> GOSUB2000:XsAX:YEA <052> ozozo ı-oııı M.W(IWJ Si <116> Z 00070 NEXT Y <026> R - <054> 00080 <028> 02070 REM ıııııqııııııııııııııhlllılıı <167> :00080 GET AlılP Asa"" THEN 90 <196> 00100 GOSUB 3000 072> 01900 ım *w II'I' NMITMIN 'R <167> 00110 END <112> 02991 REM ııııııııııııııııııııııııııııı “ÇLE REM ıııııııııııııııııııııııııııı <179> — 03000 MHsVV4i17tPUKE MM,FNRBCS) : - <154> 00955 REM « <129> - 03010 ıınıw.zum m.nı—ıt <143> 00960 w" llT HAII TALAMA .. <000> 03030 R 009870 REM x# MODU AYARLAMALARI! W <080> 03960 REM lııııııııııııııııııııııııııl . <K141> 00980 REH « . . vW <154> 03965 <1 00990 REM #4 BIT AC-KAPA İSLEMLERİ Hu <076> 03870 REM ll II'I' NAII'I'AİHI 'l'lllllıl - <O044> 00992 REM w« e R u <003> 038980 ıııııııııııııııııııııııııııı <161> 00999 REM HHH MA NU Ö LK DKGK K GK GK ÖE N DAG D K DA G Bt d <22B 04000 FOR Ms828 TO 8284 <161> 01000 DEF FNSB(N)-PEEK(MM) OÖR 24N <22B> 04010 READ IıFOKI M,B <056> O1V10 DEF FNRBLNİSPLEKLEM) AND CZbb-20N) OA0OZO CKECK.B <053> . <153> 04030 & ARŞ ao VA 01020 VVzS3248:REM VIC O' ıııcı REGİSTER — <174> Oâ040 |F CK<>5133 RINT "4060-4110 —— * 01030 nnı #HABIT-HAR.'YI 2'YE KOYKNU ARASINDA DA'I'& MîMl'ıw Ve , 0072 VIC REĞISTER I.'!'lllll 8. 'Il'l'l L YAP O4050 SYS 828:RETURN - <042> ) F <180> O40860 DATA 76,68,3,0 .&.l ,;Ba,0 - <169> 01040 MMsVVL24:POKE M.MİC ) 2086> O4070 DATA 173,63,3,133, 2'!.!70.“.8 <046> 01050 Il.l IIIII'I'-MAR SECHH O4080 DATA 133, 174,65,3,160,0,173 <08BAa> ğ C REGİSTER IT'NIN 5. IITI L YAP O90 DATA. 67,39,136;145,251,208,251,230 <225> <14B> 04100 DATA » 48,7. m.xu.rıa.oo <zza> 96 — *02000 BIT47-(X AND 7 < l ı—uıı mıl"('lü)oıllmlllı,otf 29B0 REM uu vüze çh Pa — Oa110 DATA 3,208,230, - <160>