{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 }{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 "Text Output" -1 6 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 2 1 3 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 32 "read(\"c:/m-exam/Pol
yGSols.txt\");" }}{PARA 6 "" 1 "" {TEXT -1 63 "The program is to find \+
a Polynomial General Solutions of F(y)=0" }}{PARA 6 "" 1 "" {TEXT -1 
71 "where F(y) must be an IRREDUCIBLE FIRST ORDER\241\241differential \+
polynomial." }}{PARA 6 "" 1 "" {TEXT -1 70 "We denote differential ind
eterminant by y[0], and the first derivative" }}{PARA 6 "" 1 "" {TEXT 
-1 22 "of y[0] wrt x by y[1]." }}{PARA 6 "" 1 "" {TEXT -1 76 "That is \+
said, F(y) must be an irreducible algebraic polynomial in y[0],y[1]." 
}}{PARA 6 "" 1 "" {TEXT -1 48 "For example, F(y)=y[1]^3+y[0]^2 is a ri
ght form," }}{PARA 6 "" 1 "" {TEXT -1 40 "but F(y)=(y')^3+y^2 or F(y)=
y+1 are not " }}{PARA 6 "" 1 "" {TEXT -1 38 "The main procedure is as \+
the following" }}{PARA 6 "" 1 "" {TEXT -1 16 "[ PolyGSols(F) ]" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "F[1]:=y[1]^5+123*y[0]^4;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"FG6#\"\"\",&*$)&%\"yGF&\"\"&F'F'*
&\"$B\"F')&F,6#\"\"!\"\"%F'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 16 "PolyGSols(F[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#QDThe~Polyno
mial~General~Solutions~is6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(\"
$B\"\"\"\"\"%DJ!\"\",&%\"xGF&%\"cGF&\"\"&F(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#Q0The~run~time~is6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#$\"$r\"!\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "F[2]:=y[1]^
5+123*y[0]^4+723*y[1]^2*y[0]-901*y[1]+34;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>&%\"FG6#\"\"#,,*$)&%\"yG6#\"\"\"\"\"&F.F.*&\"$B\"F.)&F
,6#\"\"!\"\"%F.F.*(\"$B(F.)F+F'F.F3F.F.*&\"$,*F.F+F.!\"\"\"#MF." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "PolyGSols(F[2]);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#Q@No~Polynomial~General~Solutions6\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#Q0The~run~time~is6\"" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#$\"\"!F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
10 "F[3]:=y+1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"FG6#\"\"$,&%\"y
G\"\"\"F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "PolyGSols(F[
3]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q4The~Input~is~WRONG!6\"" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"\"!F$" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 
1 }{PAGENUMBERS 0 1 2 33 1 1 }