{VERSION 14 0 "Windows 7" "14.0" } {USTYLETAB {PSTYLE "Ordered List 1" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 } {PSTYLE "Ordered List 2" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 72 2 0 2 2 -1 1 }{PSTYLE "Ordered List 4" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Ordered List 5" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier New" 1 12 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Annotation Title" -1 205 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1 -1 "C ourier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printe d Output" -1 6 1 {CSTYLE "" -1 -1 "Courier New" 1 12 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "C ourier New" 1 12 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier New" 1 12 40 120 40 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 " Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "HyperlinkError" -1 206 1 {CSTYLE "" -1 -1 "Courier New" 1 12 255 0 255 1 2 2 1 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier New" 1 12 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 4 " -1 20 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 16 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Hyperlink Warning" -1 207 1 {CSTYLE "" -1 -1 "Courier New" 1 12 0 0 255 1 2 2 1 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Left Justified M aple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{CSTYLE "Annotation Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 104 64 92 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold" -1 5 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Couri er" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Heading" -1 26 "Ti mes" 1 14 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Ti mes" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Variable" -1 25 " Courier" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined \+ Italic" -1 43 "Times" 1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier New" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 1 0 0 0 1 }{CSTYLE "2D Math Bold Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } {CSTYLE "2D Math Small" -1 7 "Times" 1 1 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "Page Number" -1 33 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "Times" 1 10 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } {CSTYLE "Help Emphasized" -1 22 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small208" -1 201 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small207" -1 202 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Comment" -1 21 "Courie r" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small209" -1 203 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Caption Refe rence" -1 204 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 205 "Courier New" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "Code" -1 206 "Courier New" 1 12 255 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small206" -1 207 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small205" -1 208 "Times " 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small210213 " -1 209 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Inert Ou tput" -1 210 "Times" 1 12 144 144 144 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE " 2D Math Italic Small" -1 211 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 } {CSTYLE "2D Math Italic Small210211" -1 212 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small210212" -1 213 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Bold" -1 41 "Tim es" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times " 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small21121 4" -1 214 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "Times" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Und erlined" -1 44 "Times" 1 12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Prom pt" -1 1 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 0 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Italic S mall211" -1 215 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D M ath Italic Small210" -1 216 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 } {CSTYLE "Header and Footer" -1 217 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 218 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } {CSTYLE "Help Bold" -1 39 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } {CSTYLE "Equation Label" -1 219 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 } {CSTYLE "Popup" -1 31 "Times" 1 12 0 128 128 1 1 2 1 2 2 2 0 0 0 1 } {CSTYLE "Dictionary Hyperlink" -1 45 "Times" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Caption Text" -1 220 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{PSTYLE "" -1 208 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "" -1 209 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "" -1 210 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "" -1 211 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }} {SECT 0 {EXCHG {PARA 18 "" 0 "" {TEXT 221 21 "Multi-Gradient Method" }}}{EXCHG {PARA 19 "" 0 "" {TEXT 222 37 "\251 2011 Sri Harsha Garapati , Autar Kaw" }}}{EXCHG {PARA 19 "" 0 "" {TEXT 222 28 "University of So uth Florida " }}}{EXCHG {PARA 19 "" 0 "" {TEXT 222 24 "United States o f America" }}}{EXCHG {PARA 19 "" 0 "" {TEXT 222 15 "kaw@eng.usf.edu" } }}{EXCHG {PARA 208 "" 0 "" {TEXT 218 0 "" }}}{EXCHG {PARA 209 "" 0 "" {TEXT 218 138 "NOTE: This worksheet demonstrates the use of Maple to i llustrate Multi-Gardient method, a technique used in solving optimizat ion problems." }}}{EXCHG {PARA 210 "" 0 "" {TEXT 218 0 "" }}}{EXCHG {PARA 211 "" 0 "" {TEXT 218 17 "Problem Statement" }}}{EXCHG {PARA 3 " " 0 "" {TEXT 218 129 "Determine the minimum of the function, f(x,y)=x^ 2+y^2+2*x+4. Use the point (2,1) as the initial estimate of the optima l solution." }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 223 6 "Inputs" }}{EXCHG {PARA 3 "" 0 "" {TEXT 218 123 "The following simulation approximates t he optimal angle (theta) to maximize the area of a gutter given with a edge length 2" }}{PARA 3 "" 0 "" {TEXT 218 83 " a) Function to b e minimized, f b) intial guess for x , xi " }} {PARA 3 "" 0 "" {TEXT 218 54 " c) Intial guess for y , yi \+ " }}{PARA 3 "" 0 "" {TEXT 218 4 " " }{TEXT 218 0 "" } {TEXT 218 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 0 1 "Typesetting:- mrow(Typesetting:-mi(\"restart\", bold = \"false\", italic = \"true\", mathvariant = \"italic\"), Typesetting:-mo(\";\", bold = \"false\", m athvariant = \"normal\", fence = \"false\", separator = \"true\", stre tchy = \"false\", symmetric = \"false\", largeop = \"false\", movablel imits = \"false\", accent = \"false\", lspace = \"0.0em\", rspace = \" 0.2777778em\"), Typesetting:-mo(\" \", bold = \"false\", mathvariant = \"normal\", fence = \"false\", separator = \"false\", stretchy = \"fa lse\", symmetric = \"false\", largeop = \"false\", movablelimits = \"f alse\", accent = \"false\", lspace = \"0.0em\", rspace = \"0.0em\"), T ypesetting:-mspace(height = \"0.0ex\", width = \"0.0em\", depth = \"0. 0ex\", linebreak = \"newline\"), Typesetting:-mspace(height = \"0.0ex \", width = \"0.0em\", depth = \"0.0ex\", linebreak = \"newline\"), Ty pesetting:-mi(\"f\", bold = \"false\", italic = \"true\", mathvariant \+ = \"italic\"), Typesetting:-mo(\"≔\", bold = \"false\", mathva riant = \"normal\", fence = \"false\", separator = \"false\", stretchy = \"false\", symmetric = \"false\", largeop = \"false\", movablelimit s = \"false\", accent = \"false\", lspace = \"0.2777778em\", rspace = \+ \"0.2777778em\"), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:- mi(\"x\", bold = \"false\", italic = \"true\", mathvariant = \"italic \"), Typesetting:-mo(\",\", bold = \"false\", mathvariant = \"normal\" , fence = \"false\", separator = \"true\", stretchy = \"false\", symme tric = \"false\", largeop = \"false\", movablelimits = \"false\", acce nt = \"false\", lspace = \"0.0em\", rspace = \"0.3333333em\"), Typeset ting:-mi(\"y\", bold = \"false\", italic = \"true\", mathvariant = \"i talic\")), bold = \"false\", mathvariant = \"normal\"), Typesetting:-m o(\"→\", bold = \"false\", mathvariant = \"normal\", fence = \"f alse\", separator = \"false\", stretchy = \"false\", symmetric = \"fal se\", largeop = \"false\", movablelimits = \"false\", accent = \"false \", lspace = \"0.0em\", rspace = \"0.0em\"), Typesetting:-msup(Typeset ting:-mi(\"x\", bold = \"false\", italic = \"true\", mathvariant = \"i talic\"), Typesetting:-mrow(Typesetting:-mn(\"2\", bold = \"false\", m athvariant = \"normal\")), superscriptshift = \"0\"), Typesetting:-mo( \"+\", bold = \"false\", mathvariant = \"normal\", fence = \"false\", \+ separator = \"false\", stretchy = \"false\", symmetric = \"false\", la rgeop = \"false\", movablelimits = \"false\", accent = \"false\", lspa ce = \"0.2222222em\", rspace = \"0.2222222em\"), Typesetting:-msup(Typ esetting:-mi(\"y\", bold = \"false\", italic = \"true\", mathvariant = \"italic\"), Typesetting:-mrow(Typesetting:-mn(\"2\", bold = \"false \", mathvariant = \"normal\")), superscriptshift = \"0\"), Typesetting :-mo(\"+\", bold = \"false\", mathvariant = \"normal\", fence = \"fals e\", separator = \"false\", stretchy = \"false\", symmetric = \"false \", largeop = \"false\", movablelimits = \"false\", accent = \"false\" , lspace = \"0.2222222em\", rspace = \"0.2222222em\"), Typesetting:-mn (\"2\", bold = \"false\", mathvariant = \"normal\"), Typesetting:-mo( \"⋅\", bold = \"false\", mathvariant = \"normal\", fence = \"fals e\", separator = \"false\", stretchy = \"false\", symmetric = \"false \", largeop = \"false\", movablelimits = \"false\", accent = \"false\" , lspace = \"0.0em\", rspace = \"0.0em\"), Typesetting:-mi(\"x\", bold = \"false\", italic = \"true\", mathvariant = \"italic\"), Typesettin g:-mo(\"+\", bold = \"false\", mathvariant = \"normal\", fence = \"fal se\", separator = \"false\", stretchy = \"false\", symmetric = \"false \", largeop = \"false\", movablelimits = \"false\", accent = \"false\" , lspace = \"0.2222222em\", rspace = \"0.2222222em\"), Typesetting:-mn (\"4\", bold = \"false\", mathvariant = \"normal\"), Typesetting:-mo( \";\", bold = \"false\", mathvariant = \"normal\", fence = \"false\", \+ separator = \"true\", stretchy = \"false\", symmetric = \"false\", lar geop = \"false\", movablelimits = \"false\", accent = \"false\", lspac e = \"0.0em\", rspace = \"0.2777778em\"), Typesetting:-mspace(height = \"0.0ex\", width = \"0.0em\", depth = \"0.0ex\", linebreak = \"newlin e\"), Typesetting:-mi(\"xi\", bold = \"false\", italic = \"false\", ma thvariant = \"normal\"), Typesetting:-mo(\"≔\", bold = \"false \", mathvariant = \"normal\", fence = \"false\", separator = \"false\" , stretchy = \"false\", symmetric = \"false\", largeop = \"false\", mo vablelimits = \"false\", accent = \"false\", lspace = \"0.2777778em\", rspace = \"0.2777778em\"), Typesetting:-mn(\"1\", bold = \"false\", m athvariant = \"normal\"), Typesetting:-mo(\";\", bold = \"false\", mat hvariant = \"normal\", fence = \"false\", separator = \"true\", stretc hy = \"false\", symmetric = \"false\", largeop = \"false\", movablelim its = \"false\", accent = \"false\", lspace = \"0.0em\", rspace = \"0. 2777778em\"), Typesetting:-mspace(height = \"0.0ex\", width = \"0.0em \", depth = \"0.0ex\", linebreak = \"newline\"), Typesetting:-mi(\"yi \", bold = \"false\", italic = \"true\", mathvariant = \"italic\"), Ty pesetting:-mo(\"≔\", bold = \"false\", mathvariant = \"normal \", fence = \"false\", separator = \"false\", stretchy = \"false\", sy mmetric = \"false\", largeop = \"false\", movablelimits = \"false\", a ccent = \"false\", lspace = \"0.2777778em\", rspace = \"0.2777778em\") , Typesetting:-mn(\"1\", bold = \"false\", mathvariant = \"normal\"), \+ Typesetting:-mo(\";\", bold = \"false\", mathvariant = \"normal\", fen ce = \"false\", separator = \"true\", stretchy = \"false\", symmetric \+ = \"false\", largeop = \"false\", movablelimits = \"false\", accent = \+ \"false\", lspace = \"0.0em\", rspace = \"0.2777778em\"), Typesetting: -mspace(height = \"0.0ex\", width = \"0.0em\", depth = \"0.0ex\", line break = \"newline\"), Typesetting:-mi(\"\"));" "-I%mrowG6#/I+modulenam eG6\"I,TypesettingGI(_syslibGF'6A-I#miGF$6&Q(restartF'/%%boldGQ&falseF '/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I#moGF$6.Q\";F'F//F6Q'nor malF'/%&fenceGF1/%*separatorGF4/%)stretchyGF1/%*symmetricGF1/%(largeop GF1/%.movablelimitsGF1/%'accentGF1/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.277 7778emF'-F96.Q\"~F'F/F/FAF1FBFDFFFHFJFL/FPFN-I'mspaceGF$6&/%'height GQ&0.0exF'/%&widthGFN/%&depthGFfn/%*linebreakGQ(newlineF'FW-F,6&Q\"fF' F/F2F5-F96.Q*≔F'F/FFUFBFDFFFHFJ/FMFQFO-I(mfencedGF$6%-F#6%- F,6&Q\"xF'F/F2F5-F96.Q\",F'F/FF@FBFDFFFHFJFL/FPQ,0.3333333emF'-F,6& Q\"yF'F/F2F5F/F<-F96.Q(→F'F/FFUFBFDFFFHFJFLFV-I%msupGF$6%Fjo- F#6#-I#mnGF$6%Q\"2F'F/FFUF BFDFFFHFJ/FMQ,0.2222222emF'/FPFhq-Fip6%FbpF[qFaqFdqF]q-F96.Q'⋅F'F /FFUFBFDFFFHFJFLFVFjoFdq-F^q6%Q\"4F'F/F " 0 "" {XPPEDIT 0 1 "`ass ign`(x[val], xi);" "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslib GF'6E-I%msubGF$6%-I#miGF$6&Q\"xF'/%%boldGQ&falseF'/%'italicGQ%trueF'/% ,mathvariantGQ'italicF'-F#6#-F/6&Q$valF'F2F5F8/%/subscriptshiftGQ\"0F' -I#moGF$6.Q*≔F'F2/F9Q'normalF'/%&fenceGF4/%*separatorGF4/%)str etchyGF4/%*symmetricGF4/%(largeopGF4/%.movablelimitsGF4/%'accentGF4/%' lspaceGQ,0.2777778emF'/%'rspaceGFY-F/6&Q%ξF'F2/F6F4FG-FD6.Q\";F'F2F GFI/FLF7FMFOFQFSFU/FXQ&0.0emF'FZ-I'mspaceGF$6&/%'heightGQ&0.0exF'/%&wi dthGF_o/%&depthGFeo/%*linebreakGQ(newlineF'-F,6%-F/6&Q\"yF'F2F5F8F;F@F C-F/6&Q#yiF'F2F5F8FjnF`o-F/6&Q%dfdxF'F2F5F8FC-F/6&Q(unapplyF'F2F5F8-I( mfencedGF$6%-F#6&-F/6&Q%diffF'F2F5F8-F\\q6%-F#6&-F/6&Q\"fF'F2F5F8-F\\q 6%-F#6%F.-FD6.Q\",F'F2FGFIF]oFMFOFQFSFUF^o/FenQ,0.3333333emF'F_pF2FGF^ rF.F2FGF^rFjqF2FGFjnF`o-F/6&Q%dfdyF'F2F5F8FCFhp-F\\q6%-F#6&F`q-F\\q6%- F#6&FgqFjqF^rF_pF2FGF^rFjqF2FGFjnF`o-FD6.Q\"~F'F2FGFIFKFMFOFQFSFUF^o/F enF_o-F/6&Q*dfdxvalueF'F2F5F8FC-I#mnGF$6%Q$100F'F2FGFjnF`oF^s-F/6&Q*df dyvalueF'F2F5F8FCFesFjnF`oF^s" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "f*6$I\"xG6\"I\"yGF%F%6$I)operatorGF%I&arrowGF%F%,&9$\"\"#F,\"\"\"F %F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "f*6$I\"xG6\"I\"yGF%F%6$I)operat orGF%I&arrowGF%F%,$9%\"\"#F%F%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"$+ \"" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"$+\"" }}}}{SECT 0 {PARA 3 "" 0 " " {TEXT 223 25 "Multigradient Method Code" }}{PARA 0 "" 0 "" {TEXT 218 0 "" }}{EXCHG {PARA 0 "" 0 "" {TEXT 218 66 "iteration is a variabl e name which counts the number of iterations" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 0 1 "`assign`(iteration, 0):" "-I%mrowG6#/I+modulenameG6 \"I,TypesettingGI(_syslibGF'6'-I#miGF$6#Q!F'-F,6&Q*iterationF'/%%boldG Q&falseF'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I#moGF$6.Q*&colon eq;F'F2/F9Q'normalF'/%&fenceGF4/%*separatorGF4/%)stretchyGF4/%*symmetr icGF4/%(largeopGF4/%.movablelimitsGF4/%'accentGF4/%'lspaceGQ,0.2777778 emF'/%'rspaceGFQ-I#mnGF$6%Q\"0F'F2F?-F<6.Q\":F'F2F?FAFCFEFGFIFKFMFOFR" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 218 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 218 112 "The loop calculates the and prints the optimal x and y \+ value approximations with each iteration as program runs." }}{PARA 0 " " 0 "" {TEXT 218 61 "This loop contains the algorithm for the multigra dient method" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "while `and`(` <>`(dfdxvalue, 0), `<>`(dfdyvalue, 0)) do `assign`(dfdxvalue, dfdx(x[v al], y[val])); `assign`(dfdyvalue, dfdy(x[val], y[val])); if `and`(`<> `(dfdxvalue, 0), `<>`(dfdyvalue, 0)) then `assign`(iteration, `+`(iter ation, 1)); `assign`(g, expand(f(`+`(x[val], `*`(dfdxvalue, `*`(h))), \+ `+`(y[val], `*`(dfdyvalue, `*`(h)))))); `assign`(sol, solve(g, h)); `a ssign`(solution, Re(sol[1])); `assign`(x[val], `+`(x[val], `*`(dfdxval ue, `*`(solution)))); `assign`(y[val], `+`(y[val], `*`(dfdyvalue, `*`( solution)))); printf(\" Iteration #%g\\n\", iteration); printf(\" X-Va lue =%g \\n\", x[val]); printf(\" Y-Value =%g \\n\\n\\n\", y[val]) end if end do:" "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF'6 \\r-I#moGF$60Q\"~F'/%'familyGQ,Courier~NewF'/%+foregroundGQ*[255,0,0]F '/%0font_style_nameGQ,Maple~InputF'/%,mathvariantGQ'normalF'/%&fenceGQ &falseF'/%*separatorGF=/%)stretchyGF=/%*symmetricGF=/%(largeopGF=/%.mo vablelimitsGF=/%'accentGF=/%'lspaceGQ&0.0emF'/%'rspaceGFLF+-F,62Q&whil eF'F//%%boldGQ%trueF'F2F5/F9Q%boldF'/%+fontweightGFVF;F>F@FBFDFFFHFJFM F+-I(mfencedGF$6)-F#6+-I#miGF$6(Q*dfdxvalueF'F//%'italicGFTF2F5/F9Q'it alicF'-F,60Q+≠F'F/F2F5F8F;F>F@FBFDFFFH/FKQ,0.2777778emF'/FNFd o-I#mnGF$6'Q\"0F'F/F2F5F8F+-F,62Q$andF'F/FRF2F5FUFWF;F>F@FBFDFFFHFJFMF +-Fin6(Q*dfdyvalueF'F/F\\oF2F5F^oF`oFfoF/FRF2F5FUFWF+-F,62Q#doF'F/FRF2 F5FUFWF;F>F@FBFDFFFHFJFMF+-I'mspaceGF$6&/%'heightGQ&0.0exF'/%&widthGFL /%&depthGFhp/%*linebreakGQ(newlineF'F+Fhn-F,60Q*≔F'F/F2F5F8F;F >F@FBFDFFFHFcoFeo-Fin6(Q%dfdxF'F/F\\oF2F5F^o-FZ6'-F#6%-I%msubGF$6%-Fin 6(Q\"xF'F/F\\oF2F5F^o-F#6#-Fin6(Q$valF'F/F\\oF2F5F^o/%/subscriptshiftG Fio-F,60Q\",F'F/F2F5F8F;/F?FTF@FBFDFFFHFJ/FNQ,0.3333333emF'-F[r6%-Fin6 (Q\"yF'F/F\\oF2F5F^oF`rFerF/F2F5F8-F,60Q\";F'F/F2F5F8F;FjrF@FBFDFFFHFJ FeoFcpF+F]pF`q-Fin6(Q%dfdyF'F/F\\oF2F5F^oFfqFbsFcpF+-F,62Q#ifF'F/FRF2F 5FUFWF;F>F@FBFDFFFHFJFMF+-FZ6'FfnF/F2F5F8F+-F,62Q%thenF'F/FRF2F5FUFWF; F>F@FBFDFFFHFJFMFcpF+-Fin6(Q*iterationF'F/F\\oF2F5F^oF`qF`t-F,60Q\"+F' F/F2F5F8F;F>F@FBFDFFFH/FKQ,0.2222222emF'/FNFgt-Fgo6'Q\"1F'F/F2F5F8FbsF cpF+-Fin6(Q\"gF'F/F\\oF2F5F^oF`q-Fin6(Q'expandF'F/F\\oF2F5F^o-FZ6'-F#6 $-Fin6(Q\"fF'F/F\\oF2F5F^o-FZ6'-F#6%-FZ6'-F#6'FjqFctFhn-F,60Q'⋅F' F/F2F5F8F;F>F@FBFDFFFHFJFM-Fin6(Q\"hF'F/F\\oF2F5F^oF/F2F5F8Fgr-FZ6'-F# 6'F]sFctF]pFavFdvF/F2F5F8F/F2F5F8F/F2F5F8FbsFcpF+-Fin6(Q$solF'F/F\\oF2 F5F^oF`q-Fin6(Q&solveF'F/F\\oF2F5F^o-FZ6'-F#6%F\\uFgrFdvF/F2F5F8FbsFcp F+-Fin6(Q)solutionF'F/F\\oF2F5F^oF`q-Fin6(Q#ReF'F//F]oF=F2F5F8-FZ6'-F# 6#-F[r6%F[w-F#6#FitFerF/F2F5F8FbsFcpF+FjqF`qFjqFctFhnFavFewFbsFcpF+F]s F`qF]sFctF]pFavFewFbsFcpF+-Fin6(Q'printfF'F/F\\oF2F5F^o-FZ6'-F#6&-Fin6 #Q!F'-I#msGF$6#Q1~Iteration~#%g\\nF'FgrF`tF/F2F5F8FbsFcpF+Fdx-FZ6'-F#6 &F[y-F_y6#Q0~X-Value~=%g~\\nF'FgrFjqF/F2F5F8FbsFcpF+Fdx-FZ6'-F#6&F[y-F _y6#Q4~Y-Value~=%g~\\n\\n\\nF'FgrF]sF/F2F5F8Fbs-Fdp6&FfpFipF[q/F^qQ%au toF'F+FcpF+-F,62Q$endF'F/FRF2F5FUFWF;F>F@FBFDFFFHFJFMF+Fhs-F,60Q\":F'F /F2F5F8F;F>F@FBFDFFFHFcoFeoFcpF+F+FcpFdzF+F`pFgzFcpFcpF+" }}{PARA 6 "" 1 "" {TEXT 224 13 " Iteration #1" }{TEXT 224 14 "\n X-Value =-1 " } {TEXT 224 13 "\n Y-Value =0 " }{TEXT 224 1 "\n" }{TEXT 224 1 "\n" }}} {EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "" "%#%?G" }}}}} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }