{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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 "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 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "Courier" 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 "" 0 257 1 {CSTYLE "" -1 -1 "Courie r" 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 } } {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "S := solve(x^3 + a*x^2 + b = 0, x): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 256 "" 0 "" {TEXT -1 368 "Cubic := proc( a, b, c )\n local S, T, s1, s2, s 3;\n\n S := sqrt(81*b^2 + 12*b*a^3);\n T := (-108*b - 8*a^3 + 12*S )^(1/3);\n s1 := evalf(T/6 + 2*a^2/(3*T) - a/3);\n s2 := evalf(-T/ 12 - a^2/(3*T) - a/3 + \n (I*sqrt(3)/2)*(T/6-2*a^2/(3*T)));\n \+ s3 := evalf(-T/12 - a^2/(3*T) - a/3 - \n (I*sqrt(3)/2)*(T/6-2* a^2/(3*T)));\n\n return s1, s2, s3;\n\nend proc;" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 12 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "read(\"e:/cubic.txt\");" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&CubicGf*6%%\"aG%\"bG%\"cG6'%\"SG%\"TG%#s1G%#s2G%#s3G 6\"F0C(>8$-%%sqrtG6#,&*&\"#\")\"\"\")9%\"\"#F:F:*(\"#7F:F8%*$),(*&\"$3\"F:F8&-%&e valfG6#,(*&#F:\"\"'F:FDF:F:*&#F=FBF:*&FAF=FDFJF:F:*&#F:FBF:FAF:FJ>8'-F R6#,**&#F:F?F:FDF:FJ*&#F:FBF:FZF:FJ*&#F:FBF:FAF:FJ*(^##F:F=F:-F56#FBF: ,&*&FVF:FDF:F:*&#F=FBF:FZF:FJF:F:>8(-FR6#,**&#F:F?F:FDF:FJ*&#F:FBF:FZF :FJ*&#F:FBF:FAF:FJ*(^##FJF=F:FeoF:FgoF:F:O6%FPFhnF\\pF0F0F0" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a, b, c := 3, 2, -4;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>6%%\"aG%\"bG%\"cG6%\"\"$\"\"#!\"%" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "s := Cubic(a,b,c);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG6%^$$\"*Kn6z*!#5$!+UE.]yF)^$$!+Z L#e>$!\"*$\"\"!F1^$$\")t;\"z*F/$\"+YE.]yF)" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 22 "s[3]^3 + a*s[3]^2 + b;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#^$$!\"(!\"*$!\"#!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 " " 0 "" {TEXT -1 16 "Example 2, p. 25" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 111 "In addition to the features required i n the problem, output an error message if the input is a negative numb er." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 257 "" 0 "" {TEXT -1 666 "grade := proc( p )\n local g;\n\n if p < 0 then\n g := \"inv alide input: negative points\"\n else\n if p >= 450 then\n \+ g := \"A\";\n elif p >= 400 then\n g := \"B\";\n \+ if p >= 445 then\n g := \"B, borderline A\"\n e nd if;\n elif p >= 325 then\n g := \"C\";\n if p \+ >= 395 then\n g := \"C, borderline B\"\n end if;\n \+ elif p >= 275 then\n g := \"D\";\n if p >= 320 th en\n g := \"D, borderline C\"\n end if;\n else \n g := \"F\";\n if p >= 270 then\n g := \" F, borderline D\"\n end if;\n end if;\n end if;\n\n r eturn g;\nend proc;" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "read(\"e:/grade.txt\"):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "grade(376);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q\"C6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "grade(448) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q0B,~borderline~A6\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 37 "Problem: \+ For input positive integer " }{XPPEDIT 18 0 "x;" "6#%\"xG" }{TEXT -1 36 ", output three numbers according to" }}{PARA 0 "" 0 "" {TEXT -1 19 "the following rule:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 55 "1. If the number is negative, output an error mess age" }}{PARA 0 "" 0 "" {TEXT -1 24 "2. case 1: the number " } {XPPEDIT 18 0 "x;" "6#%\"xG" }{TEXT -1 9 " is even" }}{PARA 0 "" 0 " " {TEXT -1 27 " case 1a: if " }{XPPEDIT 18 0 "x/2;" "6#* &%\"xG\"\"\"\"\"#!\"\"" }{TEXT -1 19 " is even, output" }}{PARA 0 " " 0 "" {TEXT -1 23 " " }{XPPEDIT 18 0 "(x+4)/4; " "6#*&,&%\"xG\"\"\"\"\"%F&F&F'!\"\"" }{TEXT -1 4 ", " }{XPPEDIT 18 0 "(x+2)/2;" "6#*&,&%\"xG\"\"\"\"\"#F&F&F'!\"\"" }{TEXT -1 4 ", " } {XPPEDIT 18 0 "(3*x+4)/4;" "6#*&,&*&\"\"$\"\"\"%\"xGF'F'\"\"%F'F'F)!\" \"" }{TEXT -1 1 "," }}{PARA 0 "" 0 "" {TEXT -1 27 " case 1b : if " }{XPPEDIT 18 0 "x/2;" "6#*&%\"xG\"\"\"\"\"#!\"\"" }{TEXT -1 18 " is odd, output " }}{PARA 0 "" 0 "" {TEXT -1 23 " \+ " }{XPPEDIT 18 0 "(x+2)/4;" "6#*&,&%\"xG\"\"\"\"\"#F&F&\"\"%! \"\"" }{TEXT -1 4 ", " }{XPPEDIT 18 0 "(x+2)/2;" "6#*&,&%\"xG\"\"\" \"\"#F&F&F'!\"\"" }{TEXT -1 3 ", " }{XPPEDIT 18 0 "(3*x+2)/4;" "6#*&, &*&\"\"$\"\"\"%\"xGF'F'\"\"#F'F'\"\"%!\"\"" }{TEXT -1 1 "," }}{PARA 0 "" 0 "" {TEXT -1 24 "3. case 2: the number " }{XPPEDIT 18 0 "x;" "6# %\"xG" }{TEXT -1 8 " is odd" }}{PARA 0 "" 0 "" {TEXT -1 27 " \+ case 2a: if " }{XPPEDIT 18 0 "(x+1)/2;" "6#*&,&%\"xG\"\"\"F&F&F& \"\"#!\"\"" }{TEXT -1 18 " is even, output " }}{PARA 0 "" 0 "" {TEXT -1 21 " " }{XPPEDIT 18 0 "(x+5)/4;" "6#*&,&%\"xG\" \"\"\"\"&F&F&\"\"%!\"\"" }{TEXT -1 4 ", " }{XPPEDIT 18 0 "(x+1)/2;" "6#*&,&%\"xG\"\"\"F&F&F&\"\"#!\"\"" }{TEXT -1 3 ", " }{XPPEDIT 18 0 " (3*x+3)/4;" "6#*&,&*&\"\"$\"\"\"%\"xGF'F'F&F'F'\"\"%!\"\"" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 33 " case 2b : otherwise " }}{PARA 0 "" 0 "" {TEXT -1 21 " " }{XPPEDIT 18 0 "(x+3)/4;" "6#*&,&%\"xG\"\"\"\"\"$F&F&\"\"%!\"\"" }{TEXT -1 3 ", " }{XPPEDIT 18 0 "(x+1)/2;" "6#*&,&%\"xG\"\"\"F&F&F&\"\"#!\"\"" }{TEXT -1 0 "" }{TEXT -1 3 ", " }{XPPEDIT 18 0 "(3*x+1)/4;" "6#*&,&*&\"\"$\" \"\"%\"xGF'F'F'F'F'\"\"%!\"\"" }{TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "35 mod 2;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "34 mod 2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "16 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }