{VERSION 5 0 "SUN SPARC SOLARIS" "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 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 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 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 " " 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 } {PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 82 "solve( \{ (v^2 - cos (theta))/v = 0, -sin(theta) - 3/10 * v^2 + k = 0\}, \{v, theta\});" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6# <$/%\"vG-%'RootOfG6#,**$)%#_ZG\"\"%\"\"\"\"$4\"*(\"#gF.)F,\"\"#F.%\"kG F.!\"\"*&\"$+\"F.)F4F3F.F.F7F5/%&thetaG-%'arctanG6$,&*$)F&F3F.#!\"$\"# 5F4F.F?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "fix :=convert(%, radical);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$fixG<$/%\"vG,$*$-%%sq rtG6#,&%\"kG\"%qK*&\"%!4\"\"\"\"-F+6#,&*$)F.\"\"#F2!$+\"\"$4\"F2F2F2F2 #F2F:/%&thetaG-%'arctanG6$,&F.#\"$+\"F:*&#\"\"$F:F2*$F3F2F2!\"\",&F.# \"#IF:*&#\"#5F:F2F3F2F2" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 20 "to get level flight:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "solve(100 /109*k-3/109*sqrt(-100*k^2+109)=0,k);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"\"$\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linal g):" }}{PARA 7 "" 1 "" {TEXT -1 80 "Warning, the protected names norm \+ and trace have been redefined and unprotected\n" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 81 "J:=jacobian( [ (v^2 - cos(theta))/v, -sin(thet a) - 3/10 * v^2 + k ], [theta,v] );" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"JG-%'matrixG6#7$7$*&-%$sinG6#%&thetaG\"\"\"%\"vG!\" \",&\"\"#F/*&,&*$)F0F3F/F/-%$cosGF-F1F/F0!\"#F17$,$F8F1,$F0#!\"$\"\"& " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "Jfix:=subs(fix,evalm(J) );" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%%JfixG-%'matrixG6#7$7$,$*&-%$s inG6#-%'arctanG6$,&%\"kG#\"$+\"\"$4\"*&#\"\"$F6\"\"\"*$-%%sqrtG6#,&*$) F3\"\"#F:!$+\"F6F:F:F:!\"\",&F3#\"#IF6*&#\"#5F6F:F " 0 "" {MPLTEXT 1 0 12 "trace(Jfix);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,&*(, &%\"kG#\"$+\"\"$4\"*&#\"\"$F)\"\"\"*$-%%sqrtG6#,&*$)F&\"\"#F-!$+\"F)F- F-F-!\"\"F-,&*$)F%F5F-F-*$),&F&#\"#IF)*&#\"#5F)F-F/F-F-F5F-F-#F7F5,&F& \"%qK*&\"%!4\"F-F/F-F-FCF)*&#F,\"$X&F-*$-F06#FDF-F-F7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "det(Jfix);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*$-%%sqrtG6#,&*$)%\"kG\"\"#\"\"\"!$+\"\"$4\"F-F-#F-\" \"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "solve(trace(Jfix)=0) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*$-%%sqrtG6#\"#M\"\"\"#\"\"*\"# o" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalf(%);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#$\"+LjV " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 3 2 1804 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }