Sharednotebooks / tadeu.sagews.htmlOpen in CoCalc
Author: Sergio Luis Lopes Verardi
notebooks/tadeu.sagews

notebooks/tadeu.sagews

AuthorSergio Luis Lopes Verardi
Date2018-06-07T17:10:39
Projectf4457592-eb40-435e-9ca6-be9749bd8c91
Locationnotebooks/tadeu.sagews
Original filetadeu.sagews
x,a,b,c,d=var('x,a,b,c,d')assume(a>0)assume(b>0)assume(c>0)assume(d>0)#assume((C*R^2-4*L) > 0)p=function('p')(x)ed = ((a*x-b)^2)*diff(p,x,2)+(c*x-d)*diff(p,x,1)==1sol=desolve(ed,p,ivar=x)show(sol)forget()
K2+(K1e(bca3xa2b)+e(bca3xa2b)e(bca3xa2b+da2xab+clog(axb)a2)a2x22abx+b2dx)e(da2xabclog(axb)a2)dx\displaystyle K_{2} + \int {\left(K_{1} e^{\left(\frac{b c}{a^{3} x - a^{2} b}\right)} + e^{\left(\frac{b c}{a^{3} x - a^{2} b}\right)} \int \frac{e^{\left(-\frac{b c}{a^{3} x - a^{2} b} + \frac{d}{a^{2} x - a b} + \frac{c \log\left(a x - b\right)}{a^{2}}\right)}}{a^{2} x^{2} - 2 \, a b x + b^{2}}\,{d x}\right)} e^{\left(-\frac{d}{a^{2} x - a b} - \frac{c \log\left(a x - b\right)}{a^{2}}\right)}\,{d x}
Como você resolveu a EDO usando (ax+b) ao invés de (ax-b) (e analogamente para o termo envolvendo c e d), para efeitos de comparação com o Maple, deve-se considerar a solução a seguir.
# declara variáveis simbólicas: variável independente e parâmetrosx,a,b,c,d=var('x,a,b,c,d')# impõe que todos os parâmetros são estritamente positivosassume(a>0)assume(b>0)assume(c>0)assume(d>0)# declara a função incógnitap=function('p')(x)# define a equação diferencialed = ((a*x+b)^2)*diff(p,x,2)+(c*x+d)*diff(p,x,1)==1# obtém a solução da EDO e exibesol=desolve(ed,p,ivar=x)show(sol)# simplifica a solução (elimina os logaritmos, essencialmente) e exibesol1=sol.canonicalize_radical()show(sol1)forget()
K2+(K1e(da2x+ab)+e(da2x+ab)e(bca3x+a2bda2x+ab+clog(ax+b)a2)a2x2+2abx+b2dx)e(bca3x+a2bclog(ax+b)a2)dx\displaystyle K_{2} + \int {\left(K_{1} e^{\left(\frac{d}{a^{2} x + a b}\right)} + e^{\left(\frac{d}{a^{2} x + a b}\right)} \int \frac{e^{\left(\frac{b c}{a^{3} x + a^{2} b} - \frac{d}{a^{2} x + a b} + \frac{c \log\left(a x + b\right)}{a^{2}}\right)}}{a^{2} x^{2} + 2 \, a b x + b^{2}}\,{d x}\right)} e^{\left(-\frac{b c}{a^{3} x + a^{2} b} - \frac{c \log\left(a x + b\right)}{a^{2}}\right)}\,{d x}
K2+(K1e(da2x+ab)+e(da2x+ab)(ax+b)ca2e(bcada3x+a2b)a2x2+2abx+b2dx)e(bca3x+a2b)(ax+b)ca2dx\displaystyle K_{2} + \int \frac{{\left(K_{1} e^{\left(\frac{d}{a^{2} x + a b}\right)} + e^{\left(\frac{d}{a^{2} x + a b}\right)} \int \frac{{\left(a x + b\right)}^{\frac{c}{a^{2}}} e^{\left(\frac{b c - a d}{a^{3} x + a^{2} b}\right)}}{a^{2} x^{2} + 2 \, a b x + b^{2}}\,{d x}\right)} e^{\left(-\frac{b c}{a^{3} x + a^{2} b}\right)}}{{\left(a x + b\right)}^{\frac{c}{a^{2}}}}\,{d x}