{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 Input" 2 19 "" 0 1 255 0 0 1 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 } {CSTYLE "" -1 256 "" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 259 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 261 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 1 14 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Tim es" 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 }{PSTYLE "Maple Outpu t" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 } 1 3 0 0 0 0 1 0 1 0 2 2 0 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 71 "\324\340\351\353: ..\\ \312\356\354\357\322\345\365\355\356\353\\\312\361\345\355\356\364\356 \355\362\356\342\\\321\356\342\354\321\362\340\362\374\350\\\324\340 \351\353\373\312\361\362\320\345\370\312\360\307\340\344\324\353\356 \362\316\367\302\356\344\373\\" }}{PARA 0 "" 0 "" {TEXT -1 44 "elif_co llect_coef.mws. 06.02.17. \322\350\362\356\342 \312.\302." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "\304\345\354\356\355\361\362\360\340\366 \350\377 \360\340\341\356\362\373 \356\357\366\350\350 " }{TEXT 256 4 "elif" }{TEXT 263 13 "_collect_coef" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 " n:=4; " }{TEXT -1 25 "- \367\350\361\353\356 \375\353\345\354\345\355 \362\356\342 \342\345\352\362\356\360\340" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"\"%" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 81 " \302\345\352\362\356\360 \365 \354\356\346\345\362 \350\354\345\362 \374 \353\376\341\356\351 \357\356\360\377\344\356\352 \361\353\345 \344\356\342\340\355\350\377 \375\353\345\354\345\355\362\356\342, \+ \352\356\362\356\360\373\351 \357\360\350\342\356\344\350\362\361\377 \+ \355\350\346\345:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "`x:=ve ctor(n,[b,a,c,d]): x:=vector(n,[b,c,a,d])`: x:=vector(n,[c,d,b,a]): x[ 2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%\"dG" }}}{EXCHG {PARA 0 "" 0 " " {TEXT -1 9 "\300 \342\345\352\362\356\360 " }{TEXT 262 1 "\363" } {TEXT -1 63 ", \350\354\345\376\371\350\351 \362\345\346\345 \375\353 \345\354\345\355\362\373, \344\356\353\346\345\355 \350\354\345\362 \374 \355\340\357\345\360\270\344 \347\340\344\340\355\355\373\351 \+ \357\356\360\377\344\356\352 " }}{PARA 0 "" 0 "" {TEXT -1 46 "\361\353 \345\344\356\342\340\355\350\377 \375\353\345\354\345\355\362\356\342, \355\340\357\360\350\354\345\360, - \340\353\364\340\342\350\362\355 \373\351. " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "y:=vector(n,[ ]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%&arrayG6$;\"\"\"\"\"%7 \"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "\335\362\356 \344\356\361 \362\350\343\340\345\362\361\377 \361 \357\356\354\356\371\374\376 \+ \361\353\345\344\363\376\371\345\343\356 \340\353\343\356\360\350\362 \354\340:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 1 t o n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "if x[i]=a then y[1]:=x[i] :" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "elif x[i]=b then y[2]:=x[i]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "elif x[i]=c then y[3]:=x[i]:" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "else y[4]:=x[i]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "fi:od:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "\302 \352\340\352\356\354 \341\373 \357\356\360\377\344\352\345 \355\345 \+ \341\373\353 \347\340\344\340\355 \342\345\352\362\356\360 " }{TEXT 258 1 "\365" }{TEXT -1 29 ", \357\345\360\342\356\351 \352\356\354\357 \356\355\345\355\362\356\351 \342\345\352\362\356\360\340 " }{TEXT 259 1 "\363" }{TEXT -1 14 " \342\361\345\343\344\340 \341\363\344\345 \362 " }{TEXT 257 1 "\340" }{TEXT 260 0 "" }{TEXT -1 1 "," }}{PARA 0 " " 0 "" {TEXT -1 79 "\342\362\356\360\340\377 \350 \357\356\361\353\345 \344\363\376\371\340\377 \342\373\361\362\360\340\350\342\340\376\362 \361\377 \342 \340\353\364\340\342\350\362\355\356\354 \357\356\360 \377\344\352\345, \367\362\356 \357\356\344\362\342\345\360\346\344 \340\362 \357\345\367\340\362\374" }}{PARA 0 "" 0 "" {TEXT -1 8 "\342 \345\352\362\356\360\340 " }{TEXT 261 1 "\363" }{TEXT -1 1 "." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval(y);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#K%'vectorG6#7&%\"aG%\"bG%\"cG%\"dGQ(pprint06\"" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 49 "---------------------------------- ---------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart; " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "with(codegen,cost):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "convert(0.0001015991237,fra ction);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"$1$\"(P=,$" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "exp((normal((-3013-6*110779^(1/2))/10 0)*t));" "6#-%$expG6#*&-%'normalG6#*&,&\"%8I!\"\"*&\"\"'\"\"\")\"'z26* &F0F0\"\"#F-F0F-F0\"$+\"F-F0%\"tGF0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #-%$expG6#*&,&#\"%8I\"$+\"!\"\"*(\"\"$\"\"\"\"#]F+\"'z26#F.\"\"#F+F.% \"tGF." }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "UU2 := -1/244610691 7092750*(111111337+344681*110779^(1/2))*(-15020*110779^(1/2)*C[1]+1003 *110779^(1/2)*C[2]-5834990*C[1]+10845*C[3]-333836*C[2]):" "6#>%$UU2G,$ **\"\"\"F'\"1]F4 " 0 "" {MPLTEXT 1 0 23 "UU9:= collect(UU2,C[2]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$UU9G,&*&#\"\" \"\"1]F4 " 0 "" {MPLTEXT 1 0 32 "U5:=2*C[1]+2*C[2]+2*C[3]-5*C [1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#U5G,(*&\"\"$\"\"\"&%\"CG6#F (F(!\"\"*&\"\"#F(&F*6#F.F(F(*&F.F(&F*6#F'F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "U5:=collect(U5,C[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#U5G,(*&\"\"$\"\"\"&%\"CG6#F(F(!\"\"*&\"\"#F(&F*6#F.F (F(*&F.F(&F*6#F'F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Uk: =coeff(U5,C[1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#UkG!\"$" }}} {EXCHG {PARA 0 "" 0 "" {TEXT -1 44 "---------------------------------- ----------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "Y:=x*exp(k*x)-exp(k*x)+2*x*e xp(3*x)-x^2*exp(3*x)+C1+3*C2-x*C1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%\"YG,0*&%\"xG\"\"\"-%$expG6#*&%\"kGF(F'F(F(F(F)!\"\"*(\"\"#F(F'F(-F* 6#,$*&\"\"$F(F'F(F(F(F(*&)F'F0F(F1F(F.%#C1GF(*&F5F(%#C2GF(F(*&F'F(F8F( F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "Z1:=collect(Y,exp(k*x )); Z2:=collect(Y,exp(3*x));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#Z1G ,.*&,&%\"xG\"\"\"F)!\"\"F)-%$expG6#*&%\"kGF)F(F)F)F)%#C1GF)*&\"\"$F)%# C2GF)F)*(\"\"#F)F(F)-F,6#,$*&F2F)F(F)F)F)F)*&)F(F5F)F6F)F**&F(F)F0F)F* " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#Z2G,.*&,&*$)%\"xG\"\"#\"\"\"!\" \"*&F+F,F*F,F,F,-%$expG6#,$*&\"\"$F,F*F,F,F,F,*&F*F,-F06#*&%\"kGF,F*F, F,F,F6F-*&F*F,%#C1GF,F-F;F,*&F4F,%#C2GF,F," }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 35 "Z3:=collect(Y,\{exp(k*x),exp(3*x)\});" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%#Z3G,,*&,&%\"xG\"\"\"F)!\"\"F)-%$expG6#*&%\"kG F)F(F)F)F)*&,&*$)F(\"\"#F)F**&F4F)F(F)F)F)-F,6#,$*&\"\"$F)F(F)F)F)F)%# C1GF)*&F:F)%#C2GF)F)*&F(F)F;F)F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "U1:=coeff(Z3,exp(k*x));U2:=coeff(Z3,exp(3*x));" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#U1G,&%\"xG\"\"\"F'!\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#U2G,&*$)%\"xG\"\"#\"\"\"!\"\"*&F)F*F(F*F* " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "Z:=Y-U1*exp(k*x)-U2*exp (3*x):ZZ:=simplify(Z);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#ZZG,(%#C1 G\"\"\"*&\"\"$F'%#C2GF'F'*&%\"xGF'F&F'!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "Z4:=collect(ZZ,\{C1,C2\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#Z4G,&*&,&%\"xG!\"\"\"\"\"F*F*%#C1GF*F**&\"\"$F*%#C2G F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "convert(.1015991237 e-3,fraction);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6##\"$1$\"(P=,$" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 1 0" 44 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 1 0 2 33 1 1 }