{VERSION 6 0 "IBM INTEL NT" "6.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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "restart;#k=EA/L0" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "V:=k*(uy^2+(uy-ux)^2/(sqrt( 2)*2))/2-px*ux-py*uy;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"VG,(*(\" \"#!\"\"%\"kG\"\"\",&*$)%#uyGF'F*F**(\"\"%F(,&F.F*%#uxGF(F'F'#F*F'F*F* F**&%#pxGF*F2F*F(*&%#pyGF*F.F*F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "dux:=simplify(diff(V,ux));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$duxG,(**\"\"%!\"\"%\"kG\"\"\"\"\"##F*F+%#uyGF*F(**F' F(F)F*F+F,%#uxGF*F*%#pxGF(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "duy:=simplify(diff(V,uy));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$d uyG,**&%\"kG\"\"\"%#uyGF(F(**\"\"%!\"\"F'F(\"\"##F(F-F)F(F(**F+F,F'F(F -F.%#uxGF(F,%#pyGF," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "usol s:=solve(\{dux,duy\},\{ux,uy\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% &usolsG<$/%#uyG*&,&%#pxG\"\"\"%#pyGF+F+%\"kG!\"\"/%#uxG*&,(F*F+F,F+*( \"\"#F+F4#F+F4F*F+F+F+F-F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "Stif:=matrix([[diff(dux,ux),diff(duy,ux)],[diff(dux,uy),diff(duy,u y)]]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%StifGK%'matrixG6#7$7$,$*( \"\"%!\"\"%\"kG\"\"\"\"\"##F/F0F/,$*(F,F-F.F/F0F1F-7$F2,&F.F/*&#F/F,F/ *&F.F/F0F1F/F/Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "with(linalg):linsolve(Stif,[px,py]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'vectorG6#7$*&,(%#pxG\"\"\"%#pyGF**(\"\"#F*F-#F*F-F)F*F*F*%\"k G!\"\"*&,&F)F*F+F*F*F/F0Q(pprint06\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "6 1 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }