{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {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 -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 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 133 "restart:with(plots) :\nDigits:=3:\na:=1:b:=4:\nd:=sqrt(a**2+b**2-c**2):\neq:=(X+Y)**3-2*d* *2*(X+Y)**2+(d**4+4*a**2*Y)*(X+Y)-4*a**2*b**2*Y:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "eq:=subs(Y=t**2*X,eq):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 17 "eq:=normal(eq/X):" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 40 "S:=[solve(eq,X)]:\nS:=map(u->max(u,0),S):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 446 "gc();\nG:=NULL:\nfor k from 0.2 to 9 by 0.4 do \nc:=k:\nT:=sqrt(max(0,a**2-c**2))/c:\nG:=G,displa y([plot([[(sqrt(S[1])),t*(sqrt(S[1])),t=T..90],[(-sqrt(S[1])),t*(sqrt( S[1])),t=T..90],[(sqrt(S[2])),t*(sqrt(S[2])),t=T..90],[(-sqrt(S[2])),t *(sqrt(S[2])),t=T..90],[(sqrt(S[1])),-t*(sqrt(S[1])),t=T..90],[(-sqrt( S[1])),-t*(sqrt(S[1])),t=T..90],[(sqrt(S[2])),-t*(sqrt(S[2])),t=T..90] ,[(-sqrt(S[2])),-t*(sqrt(S[2])),t=T..90]],numpoints=300,color=red)]): \nod:\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "display([G],inse quence=true,axes=none,scaling=constrained);" }{TEXT -1 0 "" }}{PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 " u:=t->b^2-(a*sin(t)+sqrt(c^2-a^2*cos(t)^2))^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGR6#%\"tG6\"6$%)operatorG%&arrowGF(,&*$)%\"bG\"\"# \"\"\"\"\"\"*$),&*&%\"aGF2-%$sinG6#9$F2F2-%%sqrtG6#,&*$)%\"cGF0F1F2*&) F7F0F1)-%$cosGF:F0F1!\"\"F2F0F1FHF(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "v:=t->4*u(t)^2-2*u(t)*diff(u(t),t,t)+3*diff(u(t),t)^2 ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"vGR6#%\"tG6\"6$%)operatorG%&a rrowGF(,(*$)-%\"uG6#9$\"\"#\"\"\"\"\"%*&F/\"\"\"-%%diffG6%F/F2F2F7!\"# *$)-F96$F/F2F3F4\"\"$F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "v(t);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#,(*$),&*$)%\"bG\"\"#\"\"\" \"\"\"*$),&*&%\"aGF,-%$sinG6#%\"tGF,F,*$-%%sqrtG6#,&*$)%\"cGF*F+F,*&)F 1F*F+)-%$cosGF4F*F+!\"\"F+F,F*F+FCF*F+\"\"%*&F&F,,&*$),&*&F1F+FAF,F,*& *(F?F+FAF+F2F+F+*$-F86#F:F+!\"\"F,F*F+!\"#*&F/F,,*F0FC*&*()F1FDF+F@F+) F2F*F+F+*$)F:#\"\"$F*F+FPFC*&*&F?F+FWF+F+*$-F86#F:F+FPFC*&*&F?F+F@F+F+ *$-F86#F:F+FPF,F,FQF,FQ*&F.F+FHF+\"#7" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 427 "t:=Pi/2:4*(b^2-(a*sin(t)+sqrt(c^2-a^2*cos(t)^2))^2)^ 2-2*(b^2-(a*sin(t)+sqrt(c^2-a^2*cos(t)^2))^2)*(-2*(a*cos(t)+a^2*cos(t) *sin(t)/(sqrt(c^2-a^2*cos(t)^2)))^2-2*(a*sin(t)+sqrt(c^2-a^2*cos(t)^2) )*(-a*sin(t)-a^4*cos(t)^2*sin(t)^2/((c^2-a^2*cos(t)^2)^(3/2))-a^2*sin( t)^2/(sqrt(c^2-a^2*cos(t)^2))+a^2*cos(t)^2/(sqrt(c^2-a^2*cos(t)^2))))+ 12*(a*sin(t)+sqrt(c^2-a^2*cos(t)^2))^2*(a*cos(t)+a^2*cos(t)*sin(t)/(sq rt(c^2-a^2*cos(t)^2)))^2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*$),&*$ )%\"bG\"\"#\"\"\"\"\"\"*$),&%\"aGF,*$-%%sqrtG6#*$)%\"cGF*F+F+F,F*F+!\" \"F*F+\"\"%*(F&F,F/F,,&F0F8*&*$)F0F*F+F+*$-F36#F5F+!\"\"F8F,F9" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "factor(%);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&*&,**$)%\"bG\"\"#\"\"\"!\"\"*$)%\"aGF*F+\"\"\"*& F/F0-%%sqrtG6#*$)%\"cGF*F+F+F*F5F0F0,,*&F2F+F(F+F,*&F2F+F.F+\"\"$*&F/F +F6F+F;*$)F5#F;F*F+F0*$)F/F;F+F0F0F+*$-F36#F5F+!\"\"\"\"%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "11 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }