Қуйидаги мисолда тенгламалар системаси график йўл билан ҳам ечилган. Бунинг учун аввал библиотекадан графикларни қуриш функцияси plots чақирилади:
> restart:with(plots):
Warning, the name changecoords has been redefined
> sys:={3*x+5*y=15, y=x-1}:
> solve(sys,{x,y});
Қуриладиган график абцисса ва ордината ўқларининг чегаралари кўрсатилади:
> 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});
> 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,
> x1-3*x2+4*x3-x4=-3,
> 3*x1-5*x2-7*x3+5*x4=8}:
> solve(sys,{x1,x2,x3,x4});
Maple 7 тўлиқ бўлмаган тенгламалар системасини ҳам ечиши мумкин:
> restart:sys:={4-x1+x2=5,x1=7,x1+x4-x3=8}:
> solve(sys,{x1,x2,x3,x4});
Чизиқли бўлмаган ва транцендент тенгламаларни ечиш учун тенгламалар системаси ва номаълумлар кўплик кўринишида берилади:
> restart:
> solve({x*y=a,x+y=b},{x,y});
> allvalues(%);
Юқоридаги тенгламанинг а=2 ва b=3 қийматлар учун ечими:
> s:=solve({x*y=2,x+y=3},{x,y});
Кейинчалик бошқа тенгламаларни ечишда x ва y номаълумлардан фойдаланадиган бўлсак хатоликлар юзага келмаслиги учун уларни аниқланмаган статусга unassing функцияси ёрдамида ёки апострофларнинг ичига олиш йўли билан ўтказамиз:
> unassing('x');y:='y';
> x;y;
Do'stlaringiz bilan baham: |