Тенглама ва тенгсизликларни ечиш

Загружено в:

20.09.2019

Скачано:

0

Размер:

180.5 KB

Скачать

www.arxiv.uz Тенглама ва тенгсизликларни ечиш Режа : 1. Тенгламаларни аналитик кўринишда ечиш 2. Натижани evalf функцияси ёрдамида яққол кўринишга ўтказиш 3. Тенгламалар системаси график йўл билан ечиш 4. Чизиқли бўлмаган ва транцендент тенгламаларни ечиш 5. RootOf функцияси 6. Тенгсизликларни ечиш 7. Тенгламаларни сонли кўринишда ечиш 8. Дифференциал тенгламаларни ечиш

www.arxiv.uz Чизиқли ва чизиқли бўлмаган тенгламаларни аналитик кўринишда ечиш учун универсал бўлган solve функциясидан фойдаланилади. У қуйидаги шаклларда бўлиши мумкин: solve ( eqn , var ) solve ( eqns , vars ) Параметрлари eqn - тенглама, тенгсизлик ёки процедура eqns - тенгламалар ёки тенгсизликлар тўплами var - ўзгарувчи (унга нисбатан ечим изланади) vars - ўзгарувчилар (уларга нисбатан ечим изланади) Агар eqn ни ёзишда тенглик ёки тенгсизлик белгиси ишлатилмаса solve функцияси eqn =0 тенгламанинг илдизларини излайди. Тенгламалар системасини ечишда тенгламалар ва ўзгарувчилар кўплик шаклида, яoни фигурали қавс ичида берилади. Натижалар ҳам кўплик шаклида бўлади. Уларни одатдаги кўринишга келтириш учун assign функцияси ишлатилади. У кўпликдан (фигурали қавс ичидан) олинган қийматларни ўзгарувчиларга беради. Тенгламаларнинг ечимлари аналитик кўринишда бўлади. Уларни сонли кўринишга ўтказиш учун evalf ёки convert функцияларидан фойдаланилади: > z xy > x=solve( z=x*y, x ); x z y > y=solve( z=x*y, y ); y z x >   x3 4x 8 > x=evalf(solve(x^3-4*x=8,x)); x ( ) , , 2.649435914  -1.324717958 1.124559025 I  -1.324717958 1.124559025 I

$www.arxiv.uz Қуйидаги мисолда RootOf функцияси орқали ифодаланган натижани evalf функцияси ёрдамида яққол кўринишга ўтказилган: > x ( )cos x 0 > f := proc(x) x-cos(x) end proc: solve( f(x),x); ( )RootOf _Z ( )cos _Z > x=evalf(%);x .7390851332 Кейинги мисолда функция кўринишида берилган тенгламани ечиш кўрсатилган : > eq := x^4-5*x^2+6*x=2; := eq    x4 5x2 6x 2 > x[1,2,3,4]=evalf(solve(eq,x));  x , , ,1 2 3 4 ( ) , , , 1. 1. .732050808 -2.732050808 Тенгламалар системасини ечишга мисоллар :    x1 x2 x3 1   3x1 x2 3    x 1 2x 2 x 3 0 > tenglamalar := {x1+x2+x3=1, 3*x1+x2=3, x1-2*x2-x3=0}; := tenglamalar { } , ,   3x1 x2 3    x1 2x2 x3 0    x1 x2 x3 1 > yechimlar:= solve( tenglamalar ); := yechimlar { } , ,  x2 3 5  x3 -2 5  x1 4 5 > evalf(solve( tenglamalar )); { } , ,  x2 .6000000000  x3 -.4000000000  x1 .8000000000$

www.arxiv.uz Қуйидаги мисолда тенгламалар системаси график йўл билан ҳам ечилган. Бунинг учун аввал библиотекадан графикларни қуриш функцияси plots чақирилади: > restart : with ( plots ): Warning, the name changecoords has been redefined > sys:={3*x+5*y=15, y=x-1}: > solve(sys,{x,y});{ } , x 5 2 y 3 2 Қуриладиган график абцисса ва ордината ўқларининг чегаралари кўрсатилади: > implicitplot(sys,x=-6..6,y=-5..5); Учта тенгламадан иборат системани ечиш ва унинг уч ўлчамли графигини қуришга мисол: > restart:with(plots): Warning, the name changecoords has been redefined > sys:={z=4,x+y=10,x-y=5}: > solve(sys,{x,y,z});

www.arxiv.uz{ } , , z 4 y 5 2 x 15 2 > display(implicitplot3d(sys,x=-10..10,y=-10..10,z=-10..10)); > Қурилган грвфикнинг устига сичқончанинг кўрсаткичини олиб келиб , унинг чап тугмаси босилган ҳолатда айлантириб графикни керакли кўринишга келгунча айлантириш мумкин : Қуйидаги мисолда тўртта тенгламадан иборат системанинг ечилиши кўрсатилган : > sys:={4*x1+7*x2-x3+3*x4=11, > -2*x1+2*x2-6*x3+x4=4,

$www.arxiv.uz > x1-3*x2+4*x3-x4=-3, > 3*x1-5*x2-7*x3+5*x4=8}: > solve(sys,{x1,x2,x3,x4});{ } , , ,  x2 8 19  x1 135 19  x3 -81 19  x4 -156 19 Maple 7 тўлиқ бўлмаган тенгламалар системасини ҳам ечиши мумкин: > restart:sys:={4-x1+x2=5,x1=7,x1+x4-x3=8}: > solve(sys,{x1,x2,x3,x4}); { } , , ,  x2 8  x4 1 x3  x3 x3  x1 7 Чизиқли бўлмаган ва транцендент тенгламаларни ечиш учун тенгламалар системаси ва нома o лумлар кўплик кўринишида берилади: > restart: > solve({x*y=a,x+y=b},{x,y}); { } , y ( ) RootOf   _Z 2 _Z b a x   ( ) RootOf   _Z 2 _Z b a b > allvalues(%);      allvelues { },y 1 2 b 1 2 b 2 4 a x 1 2 b 1 2 b 2 4 a ,      allvelues { },y 1 2 b 1 2 b 2 4 a x 1 2 b 1 2 b 2 4 a Юқоридаги тенгламанинг а=2 ва b =3 қийматлар учун ечими: > s:=solve({x*y=2,x+y=3},{x,y}); := s , { } , y 1 x 2 { } , y 2 x 1 Кейинчалик бошқа тенгламаларни ечишда x ва y нома o лумлардан фойдаланадиган бўлсак хатоликлар юзага келмаслиги учун уларни аниқланмаган статусга unassing функцияси ёрдамида ёки апострофларнинг ичига олиш йўли билан ўтказамиз : > unassing('x');y:='y'; ( ) unassing x := y y$ $www.arxiv.uz > x;y; x y Тенгламаларни ечишда RootOf функцияси ҳосил бўлиб қолиши мумкин . У тенглама илдизларини радикаллар ёрдамида ифодалаб бўлмаслигини кўрсатади . RootOf функцияси мустақил ҳолда ҳам RootOf(expr) ёки RootOf(expr,x) ( бу ерда expr- алгебраик ифода , х - ўзгарувчи ) кўринишларида қўлланилиши мумкин . Ечим х ўзгарувчига нисбатан изланади . Агар х кўрсатилмаган бўлса z ўзгарувчи бўйича универсал ечим изланади . RootOf кўринишдаги ечимни яққол ҳолда олиш учун all values функциясидан фойдаланилади : > RootOf(a*x^2=a/x,x);( ) RootOf  _Z 3 1 > allvalues(%); , , ( ) allvaleus 1     allvaleus  1 2 1 2I 3     allvaleus  1 2 1 2I 3 > restart:RootOf(x^2-16,x); ( ) RootOf  _Z 2 16 > x[1,2]:=allvalues(%); := x ,1 2 ,4 -4 Демак , RootOf функцияси тенгламаларни компакт кўринишда ечишнинг эффектив усули экан . Таркибида махсус функциялар бўлган тенгламаларни ечиш Maple 7 тизимининг афзалликларидан бири таркибида махсус функциялар бўлган тенгламаларни ечиш ҳисобланади: > solve(max(x,3*x-12)=min(10*x+8,22-x),{x});$ $www.arxiv.uz, { } x -8 9 { } x 17 2 > solve(x-.9=sin(x/25),{x}); { }x .9374908456 > solve(ln(x)=sqrt(8),{x}); { } x e( ) 2 2 > solve(3*x=ln(x),{x}); { } x 1 3 ( ) LambertW -3 > evalf(%); { } x  -.1556659526 .6072466076 I Тенгламанинг аниқланган илдизларини ўрнига қўйиб текшириб кўрамиз : > 3*(.1556659526-.6072466076 *I); .4669978578 1.821739823 I > ln(-.1556659526-.6072466076*I);  -.4669978580 1.821739823 I Тенгсизликларни ечиш учун ҳам solve функциясидан фойдаланилади. Тенгсизликлар тенгламалар сингари берилди. Maple 7 тенгсизликнинг критик қийматларини беради. Бунда тенгсизлик ўринли бўлмаган қиймат Open сўзи билан кўрсатилади: > solve (7* x -3>67, x ); ( )RealRange ,( )Open 10  > solve(7*x-3>=67,x); ( )RealRange ,10  > solve(x^2-3*x-5>0,x); ,     RealRange ,      Open 3 2 1 2 29     RealRange ,     Open 3 2 1 2 29  > plot(x^2-3*x-5,x=-4..8);$ $www.arxiv.uz > solve((x-1)*(x-2)/(x-3)>-1,x); ,( )RealRange ,( )Open 1 2 ( )Open 1 2 ( )RealRange ,( )Open 3  > plot((x-1)*(x-2)/(x-3),x=-4..4,y=-5..1); > f := abs((z+abs(z+6))^2)>8; := f 8 z z 6 2 > solve(f,{z}); ,{ } 3 2 z { }z  3 2 > evalf(%); ,{ }-1.585786438 z { }z -4.414213562 > restart:plot(abs((z+abs(z+4))^2),z=-5..1,f=-1..30);$ $www.arxiv.uz Тенгсизликлар системасини ечиш намунаси : > solve({x*y*z>0,x>-1,y+z>10},{x,y,z});, { } , ,  -1 x y 0  10 z { } , , -1 x z 0  10 y Ечиш натижаларида бир неча ўзгарувчининг аниқланиш соҳалари кўрсатилган . Чизиқли бўлмаган тенгламалар ёки тенгламалар системасининг ечимини ҳақиқий сонлар шаклида олиш учун fsolve(eqns, vars, option) функциядан фойдаланиш мумкин : > x=fsolve(sin(x)=Pi/4,x); x .9033391108 > x=fsolve(sin(x)=1/2,x); x 6.806784083 > x[1,2]=fsolve(2*x^2+x-1=9,x); x ,1 2 ( ),-2.500000000 2.000000000 > fsolve(x^5-x,x); , ,-1.000000000 0. 1.000000000 Комплекс илдизларни ҳам олиш учун fsolve функциясида complex параметри ҳам кўрсатилади :$ $www.arxiv.uz > fsolve(x^5-x,x,complex);, , , , -1.000000000 -1.000000000 I 0. 1.000000000 I1.000000000 Ма o лум оралиқдаги илдизларни олиш учун керакли оралиқ кўрсатилади ( масалан -0,1 дан 1,5 гача ): > fsolve(x^5-x,x= -0 . 1 ..1.5); ,0. 1.000000000 Тенгламалар системасини ечиш намунаси : > f:=sin(x+y)-exp(x)*y=0: > q:=x^2-y=2: > fsolve({f,q},{x,y},{x=-1..1,y=-2..0}); { } , y -1.552838698 x -.6687012050 Дифференциал тенгламаларнинг ечимини топиш учун dsolve командасидан фойдаланилади . У қуйидаги кўринишларда қўлланилади: dsolve(eqns,vars) - eqns дифференциал тенглама vars ўзгарувчиларга нисбатан ечилади ; dsolve(eqns+inits,vars) – Коши масаласи eqns учун inits бошланьич шартларда ечилади; Қўшимча шартларни ҳам кўрсатиш мумкин (option): laplace - Лапласа трансформантасидан фойдаланиш; series – қаторларга ёйишни қўллаш; explicit – ечимни боьланган ўзгарувчи орқали яққол ифодалаш; numeric – Коши масаласини сонли усул билан ечиш. Тенгламалар тузилаётган вақтда ҳосилани кўрсатиш учун diff командаси ва бошланьич ёки чегаравий шартларни беришда ҳосилани белгилаш учун D командаси ишлатилади. Дифференциал тенгламаларни бериш ва dsolve командасидан фойдаланиш бўйича мисол кўрайлик: > deqn := diff ( y ( x ), x $2)+3* diff ( y ( x ), x )+2* y ( x ); := deqn          2 x2 ( ) y x 3      x ( ) y x 2 ( ) y x$ $www.arxiv.uz > dsolve(deqn,y(x));  ( ) y x  _C1 e( )x _C2 e( ) 2x Бу ерда C1 ва_C2 – ихтиёрий константалар. Чегаравий шартларни бериб тенгламани қайтадан ечиб кўрайлик > bvp := y (0)=0, y (1)=1; := bvp ,  ( ) y 0 0  ( ) y 1 1 > dsolve({deqn,bvp},y(x)); ( )y x e ( )x e ( )-1 e ( )-2 e ( ) 2x e ( )-1 e ( )-2 Агар яққол ечим топилмаса dsolve командасидан ечимни қаторларга ёйилган кўринишда ( series опцияси), Лаплас ўзгартиришлари усули билан ( laplace опцияси ) ёки сонли кўринишда топиш учун фойдаланиш мумкин. Агар dsolve командаси numeric опцияси билан ишлатилса процедура ҳосил қилинади. Бундай процедурага ечимнинг айрим қийматларини ҳисоблаш учун мурожаат қилиш мумкин. > init:=y(0)=0,D(y)(0)=1; := init ,  ( ) y 0 0  ( ) ( ) D y 0 1 > F:=dsolve({deqn,init},y(x),numeric); := F proc ( ) ... end procrkf45_x > F(.5);     , , x .5  ( ) y x .238651241090805128    x ( ) y x .129228176968825880 > F(2);     , , x 2.  ( ) y x .117019668786085982    x ( ) y x -.0987040583766135572$

Тенглама ва тенгсизликларни ечиш

20.09.2019

0

180.5 KB

Похожие