STATIK.MATEMATIK Q! ›:þ¦Tþ [‚@]„ ,… ,"1 RESENI SOUSTAVY ROVNIC GEM ",,‚,[þ [‚@]„ ,†H,"2 SIMPSONOVA METODA VYPOCTU INTEGRALU ",,‚,W(þ [‚@]„ ,‡ ,"3 LICHOBEZNIKOVA METODA INTEGRALU" ,,‚,V2þ [‚@]„ ,‡\,"4 NEWILLUV ALGORITMUS(¡ž·›¦³¡Ÿ’)",,‚,I<þ [‚@]„ ,ˆ ,"5 METODA RUNGE-KUTTA",,‚,[Fþ [‚@]„ ,ˆ*,"6 EULEROVA METODA(P¦³¡,1.³·œ.,2.³·œ.)",,‚,P­ A#Z A € d, è, ¸ , Ð,  , ˆ _€ Pwd—*********************************LIST * RESENI SOUSTAV ROVNIC G E M . * *********************************i›2nþ¤ ƒ,„ :"R’¤’°¦ ¤·¥¤–¡« ·«°¦Ÿ GEM" x¾@‚›m‡::"P·—¡³ ž·Ÿ¦–¡ ¸¦°’¡°¦ ¤·¥¤–¡«½ ·«°¦Ÿ · «¦Ÿ’ °’¢°¡³½Ÿ˜.R·¢¤¡˜ ž·³’°°½Ÿ˜ °’°¦ ž·—¡³·«’ ·³’¢’°.xˆ"R·«°¦Ÿ’ ¤’ ³¥¤¦ ž’œ ¢¡œ¡°¦³ ¥ž¡«¦– °¡ ³¡–¦Ÿ·«½ –«¡ –¡©,¢’ ¯’œ°·–¸¦«’ ¤¸·¥žŸ’ ·œž·«¦œ¡¯¦ ž¦¤¸¥¤°½³ ž·³’°°½³";|‰" ¡ ž¡«’ ¤–¡°½ ·«°¦Ÿ ·œž·«¦œ¡¯¦ ž·¤¸’œ°¦³¥ ¤¸·¥žŸ¦ ³¡–¦Ÿ’.Sž·Ÿ–’°’ ˜·œ°·–½ ž·³’°°½Ÿ˜ ¯¤·¥ Ÿ¦¤¸·«¡°½ ž· ¤¸·¥žŸ¦Ÿ˜."ŠŒ‘" POCET ROVNIC =";W–– A(W,W÷),X(W) ª*´" ZADAVANI ROVNIC VE TVARU MATICE"¹:¾IôàWÈJôàW÷Ò"A(";I;",";J;")=";Ü‘ A(I,J):æŽ JðŽ IúNôW:N1ôN÷:Kô ÿMô IôK à N TôA(I,K)“ ÿ(T)ñÿ(M)â 6"MôT,JôI6Ž I@“ KôN â àJ“ JôK â †T IôK à N1 ^TôA(J,I)hA(J,I)ôA(K,I) rA(K,I)ôT|Ž I†K1ôK÷ IôK1 à NšTôA(I,K)ûM¤ JôK1 à N1®A(I,J)ôA(I,J)øTüA(K,J)¸Ž JÂŽ I ÌKôK1 Ö€ ÿàIôNêX(I)ôA(I,N1)ûA(I,I)ôKôIøþ“ Kô â 5 Jôà K A(J,N1)ôA(J,N1)øX(I)üA(J,I)Ž J&IôK 0€ ê5›>6þ [‚@]…p,‡ ,"VYSLEDKY !",‚@,‚@,7¾@:› :Cô‚@D Iô à W9Iþ [‚@] „,„üC ,"X",ƒ,‚@,Nþ¤ ƒ ,C÷‚ : I>Pþ [‚@]‡,„üC÷,"=",ƒ,‚@,QE$ôÿ¡(X(I))=Rþ [‚@]‡H,„üC÷‚,E$,‚,‚,SCôC÷ ƒ XŽ I]:b­A$:“ A$ô"Y" â l€ bvè—******************************** * VYPOCET INTEGRALU SIMPSON.MET* ********************************'íÇ ²()ô"GOTO 1075"÷ÿ („P)8ò›:þ¤ ƒ , „:" V½ž·Ÿ’– ¥Ÿ¦–’˜· ¦°–’—¡¸¥ "ü¾ @:›Fÿ"P·—¡³ ž·Ÿ¦–¡ ¥Ÿ¦–½ ¦°–’—¡¸ ¢’ ¢¡œ¡°’ ¯’œ°··¢³’°’ ª¥°©Ÿ’."U"M’¢’ ¦°–’—¡¸¥ « ž¦ž¡œ’ —·°¦·³’–¦Ÿ©½Ÿ˜ ª¥°©Ÿ¦ ³¥¤¦ š½– ¢¡œ¡°½ « RADIANECH !":$‘" P·Ÿ’– œ¦¸¥ ¦°–’«¡¸¥ =";N‘" D·¸°¦ ³’¢ ¡=";A$.‘" H·°¦ ³’¢ š=";B/:#0" Z A D E J F U N K C I"1::"F¥°©Ÿ’ ¤’ ¢¡œ¡«¡ ¯¡©· ³¡–’³¡–¦Ÿ©½ «½¡¢ °¡ž¤¡°½ «’ «’¢¦ ¯¡¢½©¡ BASIC MZ-800 (ž·œ·š°·¤–¦ °¡¯œ’–’ « ³¡°¥¡¸¥ ž·Ÿ¦–¡Ÿ’)"Q2‡ °:"P· °¡ž¤¡°¦ ª¥°©Ÿ’ ¤’ ž·—¡³ ¤ž¥¤–¦ ž’œœ’ª¦°·«¡°·¥ ©¸¡«’¤·¥ RUN ":™@3›:þ [‚@]…p,‡ ,"PRACUJI !!",ƒ,ƒ ,8Hô(BøA)û(‚üN)B Kô à ‚üN7L“ Kô ë Kô‚üN ž XôA÷HüK: °:TôT÷F:€ jDV“ ÿ€(Kû‚)øKû‚ô ž XôA÷HüK: °:TôT÷‚üF:€ j`XôA÷HüK: °:TôT÷ƒüFjŽ KtTôTüHû‚@~›>ˆþ [‚@]… ,†H,"INTEGRAL =",‚,‚, ‰M$ôÿ¡(T)4Šþ [‚@]… ,‡ ,M$,‚,‚,%Ç ²()ô"RUN "÷ÿ („P)Ž:’­ A$:“ A$ô"Y"â œ€ ’ °Fô ÿ‚(X)º„vЗ******************************** * NEWILLUV ALGORITMUS * ********************************Õ›-Úþ¤ „ ,„ :"N’£¦¸¸¥« ¡¸—·¦–³¥¤"ß¾ @:›Oà::"P·—¡³ ¢’ ¢¡œ¡°½Ÿ˜ š·œ¥ ¤ž·Ÿ¦–¡ ª¥°©Ÿ°¦ ˜·œ°·–¥ « ¸¦š·«·¸°’³ š·œ’."á:#ä‘" P·Ÿ’– ˜·œ°·–(š’¢ X·) ";Nî– X(N),F(N),P(N,N)ø:0" B·œ,«’ ©–’’³ Ÿ˜Ÿ’¤ ¢°¡– ˜·œ°·–¥ ª¥°©Ÿ’" :‘" ";X Iô à N *" X(";I;")=";:‘ X(I)/þ¤ … ,ÿ·ø4" F(";I;")=";:‘ F(I)>Ž IH Rô à NRP(R,)ôF(R)\Ž Rf Sô à Np RôS à NUzP(R,S)ôP(R,Sø)÷(XøX(R))ü(P(R,Sø)øP(Rø,Sø))û(X(R)øX(RøS))„Ž RŽŽ S“›F˜þ [‚@] ,† ,"H·œ°·–¡ « š·œ’ ›=",,‚,¢A$ôÿ¡(P(N,N)) ¬B$ôÿ¡(X)5¶þ [‚@]ˆ>, † ,B$,‚,‚,5Àþ [‚@] † ,ˆ,A$,ƒ,‚@,Ê­ A$:“ A$ô"Y"â Ô€ Êv¸ —******************************** * LICHOBEZNIKOVA METODA INTEG. * ********************************B ›:þ¤ ,„ :"L¦Ÿ˜·š’¢°¦©·«¡ ³’–·œ¡ «½ž·Ÿ–¥ ¦°–’—¡¸¥"Ì ¾ @:›QÑ ::"P·—¡³ ž·Ÿ¦–¡ ¥Ÿ¦–½ ¯’œ°··¢³’°½ ¦°–’—¡¸ ¸¦Ÿ˜·š’¢°¦©·«·¥ ³’–·œ·¥."Ò : Ö € b à Rô à Nø ê Eô ô : þ SôS÷Hû‚ü(X1÷X2) Ž R  S$ôÿ¡(S) ›C þ [‚@]…p,†H,"I N T E G R A L",,‚,4& þ [‚@]† ,‡p,S$,‚@,‚,0 ­ A$:“ A$ô"Y" â 5 € 0 : XôA÷RüHD X2ô(ÿ‚(X))ý‚N “ Eô ž X1ôX2:X2ôD:„)X XôA÷(R÷)üH:DôX2:Eô:€ D $b ‘" P·Ÿ’– œ¦¸¥ ¦°–’«¡¸¥ ";Nl :$v ‘" D·¸°¦ ³’¢ ¦°–’—¡¸¥ ";A€ :$Š ‘" H·°¦ ³’¢ ¦°–’—¡¸¥ ";B” Hô(BøA)ûNtž "N½°¦ ¤’ š’˜ ž·—¡³¥ ¢¡¤–¡«¥¯’ ¡ ³¥¤¦¤ ¥Ÿ°’ «¸·¢¦– ³¡–’³¡–¦Ÿ©½ –«¡ ¦°–’—¡¸¥ « ¢¡ž¦¤’ ¯¡¢½©¡ BASIC MZ-800."¨ : ² ‡ D ¼ :DÆ "P· ¢¡ž¤¡°¦ ª¥°©Ÿ’ ¤–¡Ÿ¦ ¤–¦¤©°·¥– ž’œœ’ª¦°·«¡°·¥ ª¥°©Ÿ¦ RUN"'Ð Ç ²()ô"GOTO 3300"÷ÿ („P)Ú ™!ä Ç ²()ô"RUN"÷ÿ („P)Aî ›:þ  [‚@] …p,† ,"PRACUJI !",ƒ,ƒ , ø € à v —******************************** * METODA RUNGE KUTTA * ********************************8ª›:þ¤ „ ,„ :"M’–·œ¡ R¥°—’-K¥––¡":¾ @:›N«::"P·—¡³ °¥³’¦Ÿ©½ ’¤¦ œ¦ª’’°Ÿ¦¡¸°¦ ·«°¦Ÿ¦ ³’–·œ·¥ R¥°—’-K¥––¡ ."#¯"Y·.......P·Ÿ¡–’Ÿ°¦ ž·œ³¦°©¡"´‘" Y·=";Y¾"Á"X·.......P·Ÿ¡–’Ÿ°¦ ˜·œ°·–¡" Â"X°.......K·°Ÿ·«¡ ˜·œ°·–¡"È‘" X·,X°=";A,BÒÜ‘"K·© «½ž·Ÿ–¥ ";HfÝ::"P· ¢¡œ¡°¦ ž·Ÿ¡–’Ÿ°¦Ÿ˜ ž·œ³¦°’© °¡¤¸’œ¥¯’ ¢¡œ¡°¦ ž·Ÿ¦–¡°’ œ¦ª’’°Ÿ¦¡¸°¦ ·«°¦Ÿ’.:PRINT:PRINT Þ‡ Ì'ßÇ ²()ô"GOTO 4065"÷ÿ („P)_à::"P· ¢¡ž¤¡°¦ œ¦ª’’°Ÿ¦¡¸°¦ ·«°¦Ÿ’ °¡ ¡œ’© 4300 ž·¥¢¦¯ ž’œœ’ª¦°·«¡°·¥ ª¥°©Ÿ¦ RUN.":™]áÇ ²()ô"RUN "÷ÿ („P):›:þ [‚@]† ,‡ ,"PRACUJI !",ƒ,ƒ ,?æXôA:Iô:– X(‰),Y(‰):Y()ôY:X()ôA ð Ì1úMôF:XôX(I)÷Hû‚:YôY(I)÷(Hû‚)üM: Ì1NôF:XôX(I)÷Hû‚:YôY(I)÷(Hû‚)üN: Ì!OôF:XôX(I)÷H:YôY(I)÷HüO: Ì:PôF:Y(I÷)ôY(I)÷Hûƒ@ü(M÷‚üN÷‚üO÷P)"XôX(I)÷H:IôI÷:X(I)ôX,“ XöB â ð1›:þ¤ ,ƒ6 Iô à (BøA)ûH'@"X(";I;")=";X(I),"Y(";I;")=";Y(I)EJŽ Ih­ A$:“ A$ô"Y"â r€ hÌFôYøXüYý‚Ö„vˆ—******************************** * EULEROVA METODA * ********************************3’›:þ¤ „ ,„ :"E¥¸’·«¡ ³’–·œ¡":¾ @Pœ›::"E¥¸’·«¡ ³’–·œ¡ ¤¸·¥¢¦ © ’¤’°¦ œ¦ª’’°Ÿ¦¡¸°¦Ÿ˜ ·«°¦Ÿ ž«°¦˜· ¡œ¥."Nž"N½°¦ ¢¡œ’¯ ·«°¦Ÿ¦,«’ –«¡¥ œ½=ª(›,½) ¡ ¢¡ž¦¤ ¯¦ °¡ °¡¤¸’œ¥¯¦Ÿ¦ ¡œ’©."WŸ:‡ Œ#::"P· ¢¡ž¤¡°¦ ¤’ ž·—¡³ ¥«’œ’ œ· Ÿ¦°°·¤–¦ ¤–¦¤©°¥–¦³ –¸¡Ÿ¦–©¡ RUN (F1).")¡Ç ²()ô"GOTO 5027"÷ÿ („P):™!£Ç ²()ô"RUN"÷ÿ („P) ¤›::\¦"P·œ¸’ ž·¤–¥ž¥ «½ž·Ÿ–¥ ¤’ E¥¸’·«¡ ³’–·œ¡ œ’¸¦ °¡ ž¦³·¥,1.³·œ¦ª¦©¡Ÿ¦ ¡ 2.³·œ¦ª¦©¡Ÿ¦.",°:"V½š’ ž·–· ³·œ¦ª¦©¡Ÿ¦ ¯¡©·¥ Ÿ˜Ÿ’¤"$º:‘" MODIFIKACE ";M$Ä“ M$ô"2" â pΓ M$ô"P" â XØ“ M$ï"1" â ºâ›:" 1.MODIFIKACE" ì @!ö Mô à((BøA)ûH)øXôX(M):YôY(M): Œ#1 K1ôF:XôX(M)÷Hû‚:YôY(M)÷K1üHû‚: Œ#K2ôF:Y(M÷)ôY(M)÷HüK2X(M÷)ôX(M)÷H#Ž M (€ (#p›:" 2.MODIFIKACE": z @"„ Mô à ((BøA)ûH)øŽXôX(M):YôY(M): Œ##˜K1ôF:XôX(M)÷H:YôY(M)÷HüF: Œ#%¢Y(M÷)ôY(M)÷Hû‚ü(K1÷F)¬X(M÷)ôX(M)÷H¶Ž M À€ (#"X›:" METODA PRIMA":: b @"l Mô à ((BøA)ûH)øvXôX(M):YôY(M) € Œ#ŠY(M÷)ôY(M)÷HüF”X(M÷)ôX(M)÷HžŽ M ¨€ (#;@:" Y·.......ž·Ÿ¡–’Ÿ°¦ ž·œ³¦°©¡"::‘" ";Y&E:" X·.......ž·Ÿ¡–’Ÿ°¦ ˜·œ°·–¡""F" X°.......©·°’Ÿ°¡ ˜·œ°·–¡"J:‘" X·,X° ";A,BT:‘" K·© «½ž·Ÿ–¥ ";H^– X(‰),Y(‰)hY()ôY:X()ôAr„(#:: Iô à ((BøA)ûH)'2#"X(";I;")=";X(I),"Y(";I;")=";Y(I)<#F#Ž IP#­ A$:“ A$ô"Y" â Z#€ P#Œ#FôY÷XüYý‚–#„