{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "# Oblique trajectori
es\n\n# filename = 03.1b.mws\n\nrestart;" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 34 "Application:  Oblique Trajectories" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 82 "with(DEtools):\nsol1:=dsolve(diff(y(x),x)=(-sq
rt(3)*x+y(x))/(sqrt(3)*y(x)+x),y(x));" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 67 "sol2:=dsolve(diff(y(x),x)=(-sqrt(3)*x-y(x))/(sqrt(3)*
y(x)-x),y(x));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "sol1:=sub
s(\{ln(x)=log(abs(x)),y(x)=y,_C1=0\},lhs(sol1));" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 55 "sol2:=subs(\{ln(x)=log(abs(x)),y(x)=y,_C1=0\}
,lhs(sol2));" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "with(plots)
:\ncp1:=contourplot(x^2+y^2,x=-10..10,y=-10..10,color=GRAY):\ndisplay(
cp1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "cp2:=contourplot(
sol1,x=-10..10,y=-10..10,color=BLACK,grid=[70,70]):\ncp3:=contourplot(
sol2,x=-10..10,y=-10..10,color=BLACK,grid=[70,70]):\ndisplay(cp2);\ndi
splay(cp3);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display(\{cp
1,cp2\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "display(\{cp1,
cp3\});" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 \+
0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }