SUPER LAGRANGE }) :'**********************************):'*** ***):'*** L¡—¡°—’¥« ž·¸½°·³ ***)(:'*** ***)2:'**********************************<:'[FÜ "CRT:M1":– X(…p),Y(…p),P(…p),P1(…p),P2(),PV(…p),PC(…p)PPþ  …,,"L¡—¡°—’¥« ž·¸½°·³",‚,‚,:þ¤ ,„VZ" C˜Ÿ’–’ ¢¡œ¡– :"::" [1] - ž¦³· ª¥°©Ÿ¦":" [2] - ž·³·Ÿ¦ –¡š¥¸©½":þ:þ:þ7d­ K$:“ K$ö"1" ë K$õ"2" â € d : “ K$ô"2" â € Ò3n›:Ç ²(ƒ )ôÿ („P)÷"GOTO 130"÷ÿ („P)?x"N¡ž¦¤–’ ¢¡œ¡°·¥ ª¥°©Ÿ¦ ¡ ¤–¦¤©°’–’ [F5]!":þ:þ:þ:Œ ‚‚Ç ÿÇ FUNKCE(X)ôÿ‚(X)lŒ›:‘"Z¡œ’¯ ž·Ÿ’– ¥¢¸·«½Ÿ˜ š·œ¥ (³¡›. 30) :";N:“ Nö ë Nõ…p â ::þ:þ:þ:€ Œ : Nôÿ€(N)1–›:"Z¡œ¡«’¯ ¯’œ°·–¸¦«’ ¥¢¸·«’ š·œ½ :":þ::&  Iô à N:" X"÷ÿ¡(I)÷" = "; ª‘ X(I):Y(I)ôÿÇ FUNKCE(X(I))l´::" X"÷ÿ¡(I)÷" =";X(I);æ(… );"Y"÷ÿ¡(I)÷" =";Y(I)::"----------------------------------------": ¾þ:Ž I È€ lÒ›:‘"Z¡œ’¯ ž·Ÿ’– ¡œ©¥ –¡š¥¸©½ (³¡›. 30) :";N:“ Nö ë Nõ…p â ::þ:þ:þ:€ Ò : Nôÿ€(N)3Ü›:"Z¡œ¡«’¯ ¯’œ°·–¸¦«’ ž«©½ –¡š¥¸©½ :":::þ&æ Iô à N:" X"÷ÿ¡(I)÷" = "; ð‘ X(I)::" Y"÷ÿ¡(I)÷" = ";=ú‘ Y(I):::"----------------------------------------":Ž I:'&:' *** V¸¡¤–°¦ «½ž·Ÿ’– ³’–·œ½ ***":'', ¼:›: Iô à N:P(I)ô6 Jô à N@“ IôJ â € TJP(I)ôP(I)ü(X(I)øX(J)) TŽ J:Ž I^:'&h:' ** T¦¤© «½¤¸’œ©¥ °¡ œ¦¤ž¸¡½ **r:']|" V½¤¸’œ°½ L¡—¡°—’¥« ž·¸½°·³ ³¡ –«¡ : ååååååååååååååååååååååååååååååååååååååå":þ:†"L = ";: Iô à N+"("÷ÿ¡(Y(I)ûP(I))÷")";: Jô à Nš“ IôJ â € Ì?¤"*(X";:“ X(J)ö â Zô: "+"; : "-";:Zô®“ Zô â X(J)ôøX(J)¸ÿ¡(X(J))÷")";“ Zô â X(J)ôøX(J)ÌŽ J: "+";Öþà­ K$:“ K$ô"" â € à êŽ I:þô " ":þþ:'):' ** V½ž·Ÿ’– ž· ¥Ÿ¦–·¥ ˜·œ°·–¥ **:'=:::" C˜Ÿ’–’ «½ž·Ÿ’– ž· ¥Ÿ¦–·¥ ˜·œ°·–¥ ?":þ:þ:þ8&­ K$:“ K$ô"N" â € "POLY" : “ K$ô"A" â € 0 : &A0›:‘ " Z¡œ’¯ ž·¢¡œ·«¡°·¥ ˜·œ°·–¥ ž· «½ž·Ÿ’–:  › = ";XP::$:“ XPöMIN ë XPõMAX â :€ 0*DVYô: Iô à N:VSôY(I)ûP(I)N Jô à N:“ IôJ â bXVSôVSü(XPøX(J))bŽ J:VYôVY÷VS:Ž Il:" V½¤¸’œ’© ¯’ :";VYGvþ¤ ,…:" C˜Ÿ’–’ «½ž·Ÿ’– ž· ¯¦°·¥ ˜·œ°·–¥ ?":þ:þ:þ8€­ K$:“ K$ô"N" â € "POLY" : “ K$ô"A" â € 0 : €Š:')”:' *********************************ž:'K¨Ê "ZNOVA":þ¤ ,…@:" C˜Ÿ’–’ ž·Ÿ¦–¡– °·«½ ž¦©¸¡œ ? [A/N]";1²­ K$:“ K$ô"A" â ƒ : “ K$ô"N" â ›:˜ : € ²¼:'(Æ:' *** M¦°¦³¡¸°’ ¡ ³¡›¦³¡¸°’ X ***Ð:' ÚMINôX():MAXôX()ä Iô‚ à Nî“ X(I)öMIN â MINôX(I)ø“ X(I)õMAX â MAXôX(I) Ž I:„ :'&:' *** X ¯’ ³¦³· ¦°–’«¡¸ *** :'~*›::þ:þ:" Z¡œ¡°¡ ˜·œ°·–¡ › =";XP:::"°’¸’¢¦ « ¢¡œ¡°’³ ¦°–’«¡¸¥ ˜·œ°·– ž· X:"::Q$ô"< "÷ÿ¡(MIN)÷" , "÷ÿ¡(MAX)÷" >""4ç((† øÿ¬(Q$))û‚);Q$>­ K$:“ K$ô"" â € > : „H:''R:' *******************************'\:' * *'f:' * N¡¤·š’°¦ ž·¸½°·³¥ ž·¸½°·³’³ *'p:' * ååååååååååååååååååååååååååå *'z:' * *'„:' * V¤–¥ž ¯¤·¥ ž·¸½°·³½ P1 ¡ P2 *'Ž:' * *'˜:' * V½¤¸’œ’© ¯’ « ž·¸½°·³¥ PV *'¢:' * *'¬:' *******************************¶:'$À Qô à S1: Wô à S2 ÊPV(W÷Q)ôPV(W÷Q)÷P1(Q)üP2(W) ÔŽ W,QÞ„ èÊ "POLY"ò:'&ü:' * V½ž·Ÿ’– ©·°’Ÿ°’˜· «½¤¸’œ©¥ *:'C›:þ¤ ,„ :" C˜Ÿ’–’ «½ž·Ÿ’– ©·°’Ÿ°’˜· ž·¸½°·³¥?":þ9­ K$:“ K$ô"A" â € $ : “ K$ô"N" â € "ZNOVA" : ?$þ¤ ,…:þ:‘"Z¡œ’¯ ž’¤°·¤– «½ž·Ÿ–¥: ’ = ";EPS:þH.“ EPSõ â € $ : “ EPSöiV¿”Ö â EPSô›>¼ : EPSôûEPSC8 Iô à …p:P1(I)ô:PV(I)ô:PC(I)ô:Ž IFB›:þ:þ¤ ,„ :" P·Ÿ©’¯–’ Ÿ˜«¦¸©¥. P¡«’ ž·Ÿ¦–¡³ !!!":þLS2ô:PWôNüNøN÷?Vþ¤ ‚,„P:"D· ©·°Ÿ’ ¢š½«¡ ¯’¤–’ :";PW;" «½ž·Ÿ–¥ ."2` Jô à N:P1()ôY(J)ûP(J):S1ôj Iô à Nt“ IôJ â € °'~P2()ôøX(I):P2()ô$ˆ À:S1ôS1÷:PWôPWø’þ¤ …@,„P:PW;oœ“ PWô â " «½ž·Ÿ’– . " : “ PWõ ì PWöƒ â " «½ž·Ÿ–½ . " : “ PWõƒ â " «½ž·Ÿ–¥ . "5¦ Rô à …p:P1(R)ôPV(R):PV(R)ô:Ž R°Ž I.º Rô à …p:PC(R)ôPC(R)÷P1(R):Ž RÄŽ JÎ Rô à …p)ØPC(R)ôÿ€((PC(R)÷€ûEPS)üEPS)ûEPS⎠R7ì›:þ:"V½¤¸’œ°½ ž·¸½°·³ ³¡ °¡¤¸’œ¥¯¦Ÿ¦ –«¡ :"::+ö"Y = ";: Rô…p à  á ø“ PC(R)ô â € 2& “ PC(R)ö â "-"; : "+";&“ Rô â ÿ¡(ÿ(PC(R))):€ 2,“ Rô â ÿ¡(ÿ(PC(R)))÷"*X";:€ 2!( ÿ¡(ÿ(PC(R)))÷"*X^"÷ÿ¡(R);2Ž R:€ "ZNOVA"<:'(F:' ********************************P:'(Z:' I°–’ž·¸¡Ÿ¦¡ –¡š¥¸©·«½Ÿ˜ ¥œ¡¯·«.d:'(n:' N¡ ¢¡œ¡°·³ ¦°–’«¡¸¥ °¡˜¡œ¦(x:' –¡š¥¸©·«’ ¥œ¡¯’ ž¸½°¥¸·¥ ª¥°©Ÿ¦-(‚:' ·¥ - ž·¸½°·³·³ ž·–’š°’˜· ¤–¥ž°¡Œ:'(–:' ******************************** :'(ª:' ***** T.K. S·ª–£¡’ - 1988 *****´:'(¾:' ********************************:‘