{VERSION 4 0 "IBM INTEL NT" "4.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 "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 Plot" -1 13 1 {CSTYLE "" -1 -1 " Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } } {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "qd:=100-2*p;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qdG,&\"$+\"\"\"\"*&\"\"#F'%\"pGF'! \"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "qs:=3*p-50;" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qsG,&%\"pG\"\"$\"#]!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "solve(qd=qs,p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#I" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "eval(qd,p=30);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#S" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 186 "After the imposition of an excise tax of $5 per unit, the supplier will have to riase the price by an amount t hat can be computed from the new supply and demand functions as shown \+ below:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 117 "does not receive the previous price. Instead, he/she receives a p rice which is $5 less than the new equilibrium price" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "qd:=100-2*p;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qdG,&\"$+\"\"\"\"*&\"\"#F'%\"pGF'!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "qs:=3*(p-5)-50;" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#qsG,&%\"pG\"\"$\"#l!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "solve(qd=qs,p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#L" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "eval(qd,p=33);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#M" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "eval(qs,p=33);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"# M" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 97 "Note that the price is incre ased from 30 to 33. Three dollars of the tax is paid by the consumer, " }}{PARA 0 "" 0 "" {TEXT -1 37 "the rest is absorbed by the supplier. " }}{PARA 0 "" 0 "" {TEXT -1 53 "The effect of a sales tax is computed as shown below:" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "qd:=100-2*p;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qd G,&\"$+\"\"\"\"*&\"\"#F'%\"pGF'!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "qs:=3*(p-0.05*p)-50;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qsG,&%\"pG$\"$&G!\"#\"#]!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "solve(qd=qs,p);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$ \"+0Ny#4$!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "eval(qd,p= 30.927);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"&Y\"Q!\"$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 98 "The five perecent sales tax raises the eq uilibrium price from $30 to $30.93. The supplier will pay" }}{PARA 0 " " 0 "" {TEXT -1 225 "the tax on the new price which is (0.05)(30.93)=$ 1.55. His net price is 30.93-1.55=29.38. The amount of the tax paid b y the consumer is 30.93-30 (old price)=$0.93. The amount of the tax pa id by the producer is 30-29.38=0.62." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "qd:=100-2*p;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qdG,&\"$+\"\"\"\"*&\"\"#F'%\"pGF'!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "qs:=3*p-50;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#qsG,&%\"pG\"\"$\"#]!\"\"" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 23 "plot(\{qd,qs\},p=15..45);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"#:\"\"!$\"#qF* 7$$\"31++]i9Rl:!#;$\"3E+++vq@poF07$$\"3++]PC#)GA;F0$\"3+++D^NUbnF07$$ \"3/++v$euio\"F0$\"3%*****\\K3XFmF07$$\"3A++D'3&o]F0$\"3%)***\\7Sw%GhF07$$\"35+]P>fS**>F0$\"3\") ***\\7;)=,gF07$$\"3-+](=$f%G1#F0$\"3+++DO\"3V(eF07$$\"3$*****\\#y,\"G@ F0$\"3:+++NkzVdF07$$\"3/++Dr\"zb=#F0$\"3%*****\\d;%)GcF07$$\"37++](4&G ]AF0$\"3w*****\\!)H%*\\&F07$$\"3u****\\7nD:BF0$\"3a+++vl[p`F07$$\"3')* ***\\-*oyP#F0$\"3J+++&>iUC&F07$$\"3%)**\\PpnsMCF0$\"3M++DhkaI^F07$$\"3 %)****\\siL-DF0$\"3K+++buK&*\\F07$$\"3%********Q5'fDF0$\"3;+++?#z2)[F0 7$$\"3*)**\\P/QBEEF0$\"3A++D\"RKvu%F07$$\"35+++:o?&o#F0$\"3#)******pje HYF07$$\"3?+]Pa&4*\\FF0$\"3g***\\7*3=+XF07$$\"3@+]7j=_6GF0$\"3e***\\PF cpP%F07$$\"3-++vVy!e(GF0$\"3+++]7VQ[UF07$$\"3(***\\(=WU[$HF0$\"33++D;^ JITF07$$\"31++DJ#>&)*HF0$\"3))****\\P:'H+%F07$$\"3;+]P>:mkIF0$\"3q*** \\7'pnqQF07$$\"3()**\\iv&QA7$F0$\"3G++v[G_bPF07$$\"3;++vtLU%=$F0$\"3q* ***\\_K:JOF07$$\"3I+++bjm[KF0$\"3T*******GnE]$F07$$\"34++vyb^6LF0$\"3# )****\\U)opP$F07$$\"3++]PMaKsLF0$\"3/++DJ\"\\`D$F07$$\"3=++D6W%)RMF0$ \"3l****\\x6J?JF07$$\"3V*****\\@80]$F0$\"39,++qN(*)*HF07$$\"3)*****\\7 ,HlNF0$\"33+++v(>%pGF07$$\"3()**\\P4w)Ri$F0$\"3G++D\"yC?v#F07$$\"3O++] x%f\")o$F0$\"3I*****\\/\"oBEF07$$\"3)***\\P/-a[PF0$\"30++D\"f>H]#F07$$ \"38+](=Yb;\"QF0$\"3w***\\i2*owBF07$$\"3y****\\i@OtQF0$\"3W+++vcF`AF07 $$\"3/+]PfL'z$RF0$\"3$****\\7GtS7#F07$$\"35+++!*>=+SF0$\"3!)******>gj* *>F07$$\"3?++DE&4Q1%F0$\"3g****\\Z4Qs=F07$$\"3=+]P%>5p7%F0$\"3m***\\7h zhu\"F07$$\"3K+++bJ*[=%F0$\"3O*******o8-j\"F07$$\"3E++Dr\"[8D%F0$\"3[* ***\\dOI(\\\"F07$$\"3#)******Hjy5VF0$\"3O+++StUy8F07$$\"3E+]P/)fTP%F0$ \"3]***\\7R!o^7F07$$\"3;+]i0j\"[V%F0$\"3p***\\()Qn.8\"F07$$\"#XF*$\"#5 F*-%'COLOURG6&%$RGBG$Fgz!\"\"$F*F*F^[l-F$6$7S7$F($!\"&F*7$F.$!3k'**** \\7c#QI!#<7$F4$!3/++voKNJ8Fh[l7$F9$\"3-5++D^P#)e!#=7$F>$\"3K1+](e_0_#F h[l7$FC$\"3(*)**\\iq$oVWFh[l7$FH$\"3p,+DJCnEiFh[l7$FM$\"3)f+]7)R&G2)Fh [l7$FR$\"3K***\\7ex@)**Fh[l7$FW$\"3m**\\i&zP&)=\"F07$Ffn$\"3y****\\Z`I %Q\"F07$F[o$\"3Q***\\P^Pnb\"F07$F`o$\"3O++]#Hb3v\"F07$Feo$\"3#*****\\P ,xX>F07$Fjo$\"3%))***\\2ngL@F07$F_p$\"3]**\\73.=/BF07$Fdp$\"3^****\\<) 3q]#F07$Fip$\"3U******p6$)yEF07$F^q$\"3S+]789qyGF07$Fcq$\"3c*****\\W?c 0$F07$Fhq$\"3g+]7j'G(\\KF07$F]r$\"3j+]P*elXV$F07$Fbr$\"3m***\\7`Bui$F0 7$Fgr$\"3*)**\\iDt_/QF07$F\\s$\"3%)***\\Ppdb*RF07$Fas$\"3=,]7eX)R>%F07 $Ffs$\"3K+](os:nO%F07$F[t$\"35++D@,F`XF07$F`t$\"3)3++]1**fu%F07$Fet$\" 3F++DOnaM\\F07$Fjt$\"3'***\\7.j(p6&F07$F_u$\"3a++vLK`>`F07$Fdu$\"3I)** **\\kR:]&F07$Fiu$\"3!*****\\P.(ep&F07$F^v$\"3g**\\7GG'>(eF07$Fcv$\"3w, +]K%yW1'F07$Fhv$\"3#***\\781iXiF07$F]w$\"3R+]i&Qm\\V'F07$Fbw$\"3N**** \\(['3?mF07$Fgw$\"37+]7y+*Q\"oF07$F\\x$\"3I+++qfa+qF07$Fax$\"3i++vy&G9 >(F07$Ffx$\"3_+]7$eI2Q(F07$F[y$\"3'4++]YzYb(F07$F`y$\"33++v8X/axF07$Fe y$\"3=+++!**eB$zF07$Fjy$\"3v+]78%zC7)F07$F_z$\"3Y+](o\"*[WI)F07$Fdz$\" #&)F*-Fiz6&F[[lF^[lF\\[lF^[l-%+AXESLABELSG6$Q\"p6\"Q!6\"-%%VIEWG6$;F(F dz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "qwt: =3*(p-5)-50;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$qwtG,&%\"pG\"\"$\"# l!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "plot(\{qd,qs,qwt \},p=15..45);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6 '-%'CURVESG6$7S7$$\"#:\"\"!$\"#qF*7$$\"31++]i9Rl:!#;$\"3E+++vq@poF07$$ \"3++]PC#)GA;F0$\"3+++D^NUbnF07$$\"3/++v$euio\"F0$\"3%*****\\K3XFmF07$ $\"3A++D'3&o]F0$\"3%)***\\7 Sw%GhF07$$\"35+]P>fS**>F0$\"3\")***\\7;)=,gF07$$\"3-+](=$f%G1#F0$\"3++ +DO\"3V(eF07$$\"3$*****\\#y,\"G@F0$\"3:+++NkzVdF07$$\"3/++Dr\"zb=#F0$ \"3%*****\\d;%)GcF07$$\"37++](4&G]AF0$\"3w*****\\!)H%*\\&F07$$\"3u**** \\7nD:BF0$\"3a+++vl[p`F07$$\"3')****\\-*oyP#F0$\"3J+++&>iUC&F07$$\"3%) **\\PpnsMCF0$\"3M++DhkaI^F07$$\"3%)****\\siL-DF0$\"3K+++buK&*\\F07$$\" 3%********Q5'fDF0$\"3;+++?#z2)[F07$$\"3*)**\\P/QBEEF0$\"3A++D\"RKvu%F0 7$$\"35+++:o?&o#F0$\"3#)******pjeHYF07$$\"3?+]Pa&4*\\FF0$\"3g***\\7*3= +XF07$$\"3@+]7j=_6GF0$\"3e***\\PFcpP%F07$$\"3-++vVy!e(GF0$\"3+++]7VQ[U F07$$\"3(***\\(=WU[$HF0$\"33++D;^JITF07$$\"31++DJ#>&)*HF0$\"3))****\\P :'H+%F07$$\"3;+]P>:mkIF0$\"3q***\\7'pnqQF07$$\"3()**\\iv&QA7$F0$\"3G++ v[G_bPF07$$\"3;++vtLU%=$F0$\"3q****\\_K:JOF07$$\"3I+++bjm[KF0$\"3T**** ***GnE]$F07$$\"34++vyb^6LF0$\"3#)****\\U)opP$F07$$\"3++]PMaKsLF0$\"3/+ +DJ\"\\`D$F07$$\"3=++D6W%)RMF0$\"3l****\\x6J?JF07$$\"3V*****\\@80]$F0$ \"39,++qN(*)*HF07$$\"3)*****\\7,HlNF0$\"33+++v(>%pGF07$$\"3()**\\P4w)R i$F0$\"3G++D\"yC?v#F07$$\"3O++]x%f\")o$F0$\"3I*****\\/\"oBEF07$$\"3)** *\\P/-a[PF0$\"30++D\"f>H]#F07$$\"38+](=Yb;\"QF0$\"3w***\\i2*owBF07$$\" 3y****\\i@OtQF0$\"3W+++vcF`AF07$$\"3/+]PfL'z$RF0$\"3$****\\7GtS7#F07$$ \"35+++!*>=+SF0$\"3!)******>gj**>F07$$\"3?++DE&4Q1%F0$\"3g****\\Z4Qs=F 07$$\"3=+]P%>5p7%F0$\"3m***\\7hzhu\"F07$$\"3K+++bJ*[=%F0$\"3O*******o8 -j\"F07$$\"3E++Dr\"[8D%F0$\"3[****\\dOI(\\\"F07$$\"3#)******Hjy5VF0$\" 3O+++StUy8F07$$\"3E+]P/)fTP%F0$\"3]***\\7R!o^7F07$$\"3;+]i0j\"[V%F0$\" 3p***\\()Qn.8\"F07$$\"#XF*$\"#5F*-%'COLOURG6&%$RGBG$Fgz!\"\"$F*F*F^[l- F$6$7S7$F($!\"&F*7$F.$!3k'****\\7c#QI!#<7$F4$!3/++voKNJ8Fh[l7$F9$\"3-5 ++D^P#)e!#=7$F>$\"3K1+](e_0_#Fh[l7$FC$\"3(*)**\\iq$oVWFh[l7$FH$\"3p,+D JCnEiFh[l7$FM$\"3)f+]7)R&G2)Fh[l7$FR$\"3K***\\7ex@)**Fh[l7$FW$\"3m**\\ i&zP&)=\"F07$Ffn$\"3y****\\Z`I%Q\"F07$F[o$\"3Q***\\P^Pnb\"F07$F`o$\"3O ++]#Hb3v\"F07$Feo$\"3#*****\\P,xX>F07$Fjo$\"3%))***\\2ngL@F07$F_p$\"3] **\\73.=/BF07$Fdp$\"3^****\\<)3q]#F07$Fip$\"3U******p6$)yEF07$F^q$\"3S +]789qyGF07$Fcq$\"3c*****\\W?c0$F07$Fhq$\"3g+]7j'G(\\KF07$F]r$\"3j+]P* elXV$F07$Fbr$\"3m***\\7`Bui$F07$Fgr$\"3*)**\\iDt_/QF07$F\\s$\"3%)***\\ Ppdb*RF07$Fas$\"3=,]7eX)R>%F07$Ffs$\"3K+](os:nO%F07$F[t$\"35++D@,F`XF0 7$F`t$\"3)3++]1**fu%F07$Fet$\"3F++DOnaM\\F07$Fjt$\"3'***\\7.j(p6&F07$F _u$\"3a++vLK`>`F07$Fdu$\"3I)****\\kR:]&F07$Fiu$\"3!*****\\P.(ep&F07$F^ v$\"3g**\\7GG'>(eF07$Fcv$\"3w,+]K%yW1'F07$Fhv$\"3#***\\781iXiF07$F]w$ \"3R+]i&Qm\\V'F07$Fbw$\"3N****\\(['3?mF07$Fgw$\"37+]7y+*Q\"oF07$F\\x$ \"3I+++qfa+qF07$Fax$\"3i++vy&G9>(F07$Ffx$\"3_+]7$eI2Q(F07$F[y$\"3'4++] YzYb(F07$F`y$\"33++v8X/axF07$Fey$\"3=+++!**eB$zF07$Fjy$\"3v+]78%zC7)F0 7$F_z$\"3Y+](o\"*[WI)F07$Fdz$\"#&)F*-Fiz6&F[[lF^[lF\\[lF^[l-F$6$7S7$F( $!#?F*7$F.$!3m****\\7c#Q!=F07$F4$!3,+](oKNJj\"F07$F9$!3!****\\([i$!3Q***\\7uWzC\"F07$FC$!35+]PH;jb5F07$FH$!3I)**\\(ovKt()Fh[l7$FM$! 3.%**\\(=g9FpFh[l7$FR$!3o++v=C#y,&Fh[l7$FW$!3S.+vV?i9JFh[l7$Ffn$!3=-++ Dl%p:\"Fh[l7$F[o$\"3)z$***\\P^Pn&F_\\l7$F`o$\"3g.++DHb3DFh[l7$Feo$\"3= *****\\P,xX%Fh[l7$Fjo$\"3L))***\\2ngL'Fh[l7$F_p$\"3*\\**\\73.=/)Fh[l7$ Fdp$\"3^****\\<)3q+\"F07$Fip$\"3U******p6$)y6F07$F^q$\"3S+]789qy8F07$F cq$\"3c*****\\W?cb\"F07$Fhq$\"3g+]7j'G(\\F07$Fbr $\"3m***\\7`Bu7#F07$Fgr$\"3*)**\\iDt_/BF07$F\\s$\"3%)***\\Ppdb\\#F07$F as$\"3=,]7eX)Rp#F07$Ffs$\"3K+](os:n'GF07$F[t$\"35++D@,F`IF07$F`t$\"3)3 ++]1**fC$F07$Fet$\"3F++DOnaMMF07$Fjt$\"3'***\\7.j(ph$F07$F_u$\"3a++vLK `>QF07$Fdu$\"3I)****\\kR:+%F07$Fiu$\"3!*****\\P.(e>%F07$F^v$\"3g**\\7G G'>P%F07$Fcv$\"3w,+]K%yWc%F07$Fhv$\"3#***\\781iXZF07$F]w$\"3R+]i&Qm\\$ \\F07$Fbw$\"3N****\\(['3?^F07$Fgw$\"37+]7y+*QJ&F07$F\\x$\"3I+++qfa+bF0 7$Fax$\"3i++vy&G9p&F07$Ffx$\"3_+]7$eI2)eF07$F[y$\"3'4++]YzY0'F07$F`y$ \"33++v8X/aiF07$Fey$\"3=+++!**eBV'F07$Fjy$\"3v+]78%zCi'F07$F_z$\"3Y+]( o\"*[W!oF07$FdzF+-Fiz6&F[[lF\\[lF\\[lF^[l-%+AXESLABELSG6$Q\"p6\"Q!6\"- %%VIEWG6$;F(Fdz%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "23 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }