Тригонометрик тенгламаларни ечиш.
Универсал команда solve(eq,х) билан тригонометрик тенгламаларни ҳам ечиш мумкин. Бу ҳолда [0,2π] кесмадаги бош ечим келиб чиқади. Барча ечимларни олиш учун _EnvAllSolution:=true қўшимча командани бериш керак. Масалан,
1) solve(sin(x)=cos(x),x); \\
2)>_EnvAllSolution:=true :solve(sin(x)=cos(x),x); \\ ~
3) > _EnvAllSolution:=true :solve(sin(2*x)/(tg(x)-1)=0,x);\\0
Maple да _Z~ символи бутун типли ўзгармасни билдиради. Одатий ҳолда
юқоридаги ечим x:=π/4+πn ёзувни билдиради.
Транцендент тенгламалар ва уларнинг системаларини ечиш.
Транцендент тенгламаларни ечишда ечимни ошкор кўринишда олиш учун solve крмандасидан аввал _EnvExplicit:=true командасини бериш керак.
1-усул. >eqs:={x^2+y^2=1,x-y=0}:
>r:=solve(eqs,{x,y});\\r:={y=RootOf(2*_Z^2-1,label=_L1),x= RootOf(2*_Z^2-1,label=_L1)}
> r1:=convert(r,radical);\\
2-усул.> _EnvExplicit:=true:
> s:=solve(eqs,{x,y});\\
Топшириқ 2.1.
1. Системани ечинг .
>eq:={x^2-y^2=1, x^2+x*y=2}:
>_EnvExplicit:=true:
>s:=solve(eq,{x,y}); \\
2. тенгламани барча ечимларини топмнг.
>x:=fsolve(x^2=cos(x),x); \\x=0,8241323123/
3. тенгламани ечинг.
>F:=solve(f(x)^2-2*f(x)=x,f); \\F:=proc(x)RootOf(_Z^2-2*Z-x) end
>f:=convert(F(x), radical); \\
4. 5sinx+12cosx=13 тенгламани барча ечимларини топинг.
>_EnvAllSolution:=true :
>solve(5*sin(x)+12*cos(x)=13,x); \\ ~.
5. > f:=exp(x)+2*x-4=0;\\ f(x):=exp(x)+2x-4=0
> r:=fsolve(f,{x});\\ r:={x=0.8408414954
6. > e:={x^3-y^2-1=0, x*y^3-y-4=0}; \\e:={x^3-y^2-1=0,xy^3-y-4=0}
> s:=fsolve(e,{x,y}); \\ s:={x=1.502039049,y=1.545568601}
7. >eq:={exp(x*y)=x^2-y+1,(x+0.5)^2+y^2=1}:
Do'stlaringiz bilan baham: |
