{VERSION 3 0 "IBM INTEL NT" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 
"" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 1 
0 0 0 0 0 0 0 0 }{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 -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 }3 
3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" 
-1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 
0 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 256 36 "Van der Waal Molar Volume
 Calculator" }}{PARA 0 "" 0 "" {TEXT -1 8 "by Dr. T" }}{PARA 0 "" 0 "
" {TEXT -1 7 "2/16/99" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "R
:=.0821:" }{TEXT -1 30 "        Universal Gas Constant" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "T:=500:" }{TEXT -1 36 "             \+
Temperature (in Kelvin)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "P
:=80:" }{TEXT -1 41 "                Pressure (in atmospheres)" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "a:=.1:" }{TEXT -1 29 "       \+
         Van der Waal " }{TEXT 257 1 "a" }{TEXT -1 12 " coefficient" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "b:=.05:" }{TEXT -1 26 "    \+
         Van der Waal " }{TEXT 258 1 "b" }{TEXT -1 12 " coefficient" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 25 "Van der Waal Molar Volume" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 45 "Van_Vol:=fsolve( VV=R*T/(P+a/(VV*VV))+b, VV);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(Van_VolG$\"+qt&4h&!#5" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 22 "Ideal Gas Molar Volume" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 17 "Ideal_Vol:=R*T/P;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%*Ideal_VolG$\"+++DJ^!#5" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 12 "% Difference" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
32 "100*(Van_Vol-Ideal_Vol)/Van_Vol;" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#$\"+3XZ\\&)!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 180 "setoptions(axes=boxed,axesfont=[TIMES,ROMAN,12],la
belfont=[TIMES,ROMAN,12],titlefont=[TIMES,ROMAN,18],labels=[`Pressure \+
(atm)`,`Molar Volume (liters/mole)`],title=` `,color=black):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "PV_list:=[]:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "for PP from 10 by .5 to 100  do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "   fooV:=fsolve(V2=R*T/(PP+a/(V2*V2
))+b, V2):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "   PV_list := [op(PV_
list), [PP,fooV]]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 22 "PVplot:=plot(PV_list):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 53 "PV_ideal_plot:=plot(R*T/PPP,PPP=10..100,color=green
):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "display(PVplot,PV_ide
al_plot);" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6*-%'
CURVESG6$7av7$$\"#5\"\"!$\"1+++x3i_T!#:7$$\"1++++++]5!#9$\"1+++$[Zr&RF
-7$$\"#6F*$\"1+++[YWzPF-7$$\"1++++++]6F1$\"1+++qW><OF-7$$\"#7F*$\"1+++
p`YoMF-7$$\"1++++++]7F1$\"1+++8[jJLF-7$$\"#8F*$\"1+++%*)H`?$F-7$$\"1++
++++]8F1$\"1+++'4\"Q)3$F-7$$\"#9F*$\"1+++wfyzHF-7$$\"1++++++]9F1$\"1++
+h.oyGF-7$$\"#:F*$\"1+++*H:Vy#F-7$$\"1++++++]:F1$\"1+++z%Qgp#F-7$$\"#;
F*$\"1+++G\"zKh#F-7$$\"1++++++];F1$\"1+++dc`NDF-7$$\"#<F*$\"1+++([lBY#
F-7$$\"1++++++]<F1$\"1+++AmP$R#F-7$$\"#=F*$\"1+++>1AGBF-7$$\"1++++++]=
F1$\"1+++0nemAF-7$$\"#>F*$\"1+++?o>3AF-7$$\"1++++++]>F1$\"1+++B9!G:#F-
7$$\"#?F*$\"1+++Ff<+@F-7$$\"1++++++]?F1$\"1+++cw6]?F-7$$\"#@F*$\"1+++O
KW-?F-7$$\"1++++++]@F1$\"1+++_j)p&>F-7$$\"#AF*$\"1+++4ef8>F-7$$\"1++++
++]AF1$\"1+++\\Q8s=F-7$$\"#BF*$\"1+++&puC$=F-7$$\"1++++++]BF1$\"1+++vK
]%z\"F-7$$\"#CF*$\"1+++/T6e<F-7$$\"1++++++]CF1$\"1+++5.@B<F-7$$\"#DF*$
\"1+++qFq*o\"F-7$$\"1++++++]DF1$\"1+++^$4vl\"F-7$$\"#EF*$\"1+++RUbE;F-
7$$\"1++++++]EF1$\"1+++Stw'f\"F-7$$\"#FF*$\"1+++`P3o:F-7$$\"1++++++]FF
1$\"1+++)HV/a\"F-7$$\"#GF*$\"1+++#4!z8:F-7$$\"1++++++]GF1$\"1+++u@2)[
\"F-7$$\"#HF*$\"1+++n6Cj9F-7$$\"1++++++]HF1$\"1+++u>DR9F-7$$\"#IF*$\"1
+++/D1;9F-7$$\"1++++++]IF1$\"1+++EMj$R\"F-7$$\"#JF*$\"1+++Zz#>P\"F-7$$
\"1++++++]JF1$\"1+++4;\"4N\"F-7$$\"#KF*$\"1+++4@bI8F-7$$\"1++++++]KF1$
\"1+++J\">3J\"F-7$$\"#LF*$\"1+++(>%o\"H\"F-7$$\"1++++++]LF1$\"1+++F07t
7F-7$$\"#MF*$\"1+++?H5b7F-7$$\"1++++++]MF1$\"1+++LwgP7F-7$$\"#NF*$\"1+
++\"G71A\"F-7$$\"1++++++]NF1$\"1+++Sd4/7F-7$$\"#OF*$\"1+++f!Q!)=\"F-7$
$\"1++++++]OF1$\"1+++!Q?C<\"F-7$$\"#PF*$\"1+++m[Ad6F-7$$\"1++++++]PF1$
\"1+++HYVU6F-7$$\"#QF*$\"1+++tO.G6F-7$$\"1++++++]QF1$\"1+++Ho+96F-7$$
\"#RF*$\"1+++4(R.5\"F-7$$\"1++++++]RF1$\"1+++`'=q3\"F-7$$\"#SF*$\"1+++
#oIS2\"F-7$$\"1++++++]SF1$\"1+++gMOh5F-7$$\"#TF*$\"1+++__+\\5F-7$$\"1+
+++++]TF1$\"1+++!*[%p.\"F-7$$\"#UF*$\"1+++M<<D5F-7$$\"1++++++]UF1$\"1+
++]cn85F-7$$\"#VF*$\"1+++qpW-5F-7$$\"1++++++]VF1$\"1+++\\Zw9**!#;7$$\"
#WF*$\"1+++>Ob2)*Fh`l7$$\"1++++++]WF1$\"1+++\\Av-(*Fh`l7$$\"#XF*$\"1++
+7.G+'*Fh`l7$$\"1++++++]XF1$\"1+++951+&*Fh`l7$$\"#YF*$\"1+++(*3--%*Fh`
l7$$\"1++++++]YF1$\"1+++j'*31$*Fh`l7$$\"#ZF*$\"1+++2+?7#*Fh`l7$$\"1+++
+++]ZF1$\"1+++duG?\"*Fh`l7$$\"#[F*$\"1+++E-HI!*Fh`l7$$\"1++++++][F1$\"
1+++y!\\@%*)Fh`l7$$\"#\\F*$\"1+++\">2e&))Fh`l7$$\"1++++++]\\F1$\"1+++V
+@r()Fh`l7$$\"#]F*$\"1+++*G0$)o)Fh`l7$$\"1++++++]]F1$\"1+++fE/2')Fh`l7
$$\"#^F*$\"1+++aQPF&)Fh`l7$$\"1++++++]^F1$\"1+++_CD\\%)Fh`l7$$\"#_F*$
\"1+++:Qjs$)Fh`l7$$\"1++++++]_F1$\"1+++0]Z(H)Fh`l7$$\"#`F*$\"1+++0ZtB#
)Fh`l7$$\"1++++++]`F1$\"1+++VJP^\")Fh`l7$$\"#aF*$\"1+++@?N!3)Fh`l7$$\"
1++++++]aF1$\"1+++VWj5!)Fh`l7$$\"#bF*$\"1+++e[=UzFh`l7$$\"1++++++]bF1$
\"1+++&**o\\(yFh`l7$$\"#cF*$\"1+++1Q&*3yFh`l7$$\"1++++++]cF1$\"1+++:u5
WxFh`l7$$\"#dF*$\"1+++i!*R!o(Fh`l7$$\"1++++++]dF1$\"1+++g!*z<wFh`l7$$
\"#eF*$\"1+++T(yib(Fh`l7$$\"1++++++]eF1$\"1+++B/\"e\\(Fh`l7$$\"#fF*$\"
1+++ctOOuFh`l7$$\"1++++++]fF1$\"1,++'pBzP(Fh`l7$$\"#gF*$\"1+++aWX?tFh`
l7$$\"1++++++]gF1$\"1+++ra$RE(Fh`l7$$\"#hF*$\"1+++!QV$3sFh`l7$$\"1++++
++]hF1$\"1*****>dbO:(Fh`l7$$\"#iF*$\"1+++o,&)*4(Fh`l7$$\"1++++++]iF1$
\"1+++\"*f!p/(Fh`l7$$\"#jF*$\"1+++LD![*pFh`l7$$\"1++++++]jF1$\"1+++N*>
N%pFh`l7$$\"#kF*$\"1*****p&*QI*oFh`l7$$\"1++++++]kF1$\"1+++b4MVoFh`l7$
$\"#lF*$\"1+++hyS%z'Fh`l7$$\"1++++++]lF1$\"1+++c@AYnFh`l7$$\"#mF*$\"1+
++`ow)p'Fh`l7$$\"1++++++]mF1$\"1+++ya-_mFh`l7$$\"#nF*$\"1,++W?)fg'Fh`l
7$$\"1++++++]nF1$\"1+++U5iglFh`l7$$\"#oF*$\"1+++=u#f^'Fh`l7$$\"1++++++
]oF1$\"1,++cl)=Z'Fh`l7$$\"#pF*$\"1+++lU[GkFh`l7$$\"1++++++]pF1$\"1+++j
nq&Q'Fh`l7$$\"#qF*$\"1+++g1aVjFh`l7$$\"1++++++]qF1$\"1+++ZH(>I'Fh`l7$$
\"#rF*$\"1+++#)4*4E'Fh`l7$$\"1++++++]rF1$\"1*****fZ#e?iFh`l7$$\"#sF*$
\"1+++zat!='Fh`l7$$\"1++++++]sF1$\"1+++w$Q99'Fh`l7$$\"#tF*$\"1+++l)zE5
'Fh`l7$$\"1++++++]tF1$\"1+++a*[W1'Fh`l7$$\"#uF*$\"1+++[\\tEgFh`l7$$\"1
++++++]uF1$\"1+++Ru_*)fFh`l7$$\"#vF*$\"1+++'H;G&fFh`l7$$\"1++++++]vF1$
\"1+++e;f;fFh`l7$$\"#wF*$\"1+++?R%3)eFh`l7$$\"1++++++]wF1$\"1+++LPcXeF
h`l7$$\"#xF*$\"1+++')>u5eFh`l7$$\"1++++++]xF1$\"1+++2)pjx&Fh`l7$$\"#yF
*$\"1+++\\&QCu&Fh`l7$$\"1++++++]yF1$\"1+++'yR*3dFh`l7$$\"#zF*$\"1+++1`
'en&Fh`l7$$\"1++++++]zF1$\"1+++-r?VcFh`l7$$\"#!)F*$\"1+++qt&4h&Fh`l7$$
\"1++++++]!)F1$\"1+++(\\3\"zbFh`l7$$\"#\")F*$\"1******eIlZbFh`l7$$\"1+
+++++]\")F1$\"1+++:Qe;bFh`l7$$\"##)F*$\"1+++*p$*e[&Fh`l7$$\"1++++++]#)
F1$\"1+++=edbaFh`l7$$\"#$)F*$\"1+++WMiDaFh`l7$$\"1++++++]$)F1$\"1+++5+
.'R&Fh`l7$$\"#%)F*$\"1+++2\"*ym`Fh`l7$$\"1++++++]%)F1$\"1+++vW*yL&Fh`l
7$$\"#&)F*$\"1,++/+M4`Fh`l7$$\"1++++++]&)F1$\"1+++C(>6G&Fh`l7$$\"#')F*
$\"1,++3yA`_Fh`l7$$\"1++++++]')F1$\"1,++g&ecA&Fh`l7$$\"#()F*$\"1+++;kS
)>&Fh`l7$$\"1++++++]()F1$\"1+++SfYr^Fh`l7$$\"#))F*$\"1+++==$[9&Fh`l7$$
\"1++++++]))F1$\"1+++e))\\=^Fh`l7$$\"#*)F*$\"1+++%)>Y#4&Fh`l7$$\"1++++
++]*)F1$\"1+++Kirm]Fh`l7$$\"#!*F*$\"1,++]nDT]Fh`l7$$\"1++++++]!*F1$\"1
*****Hzyg,&Fh`l7$$\"#\"*F*$\"1+++?x<\"*\\Fh`l7$$\"1++++++]\"*F1$\"1+++
\"**[l'\\Fh`l7$$\"##*F*$\"1+++l\")=U\\Fh`l7$$\"1++++++]#*F1$\"1+++)*34
=\\Fh`l7$$\"#$*F*$\"1+++PHD%*[Fh`l7$$\"1++++++]$*F1$\"1+++C,nq[Fh`l7$$
\"#%*F*$\"1+++%QQt%[Fh`l7$$\"1++++++]%*F1$\"1+++MPDC[Fh`l7$$\"#&*F*$\"
1+++qAT,[Fh`l7$$\"1++++++]&*F1$\"1+++u,\")yZFh`l7$$\"#'*F*$\"1+++.PWcZ
Fh`l7$$\"1++++++]'*F1$\"1+++'>4Vt%Fh`l7$$\"#(*F*$\"1+++lIS7ZFh`l7$$\"1
++++++](*F1$\"1+++&z@2p%Fh`l7$$\"#)*F*$\"1+++X>EpYFh`l7$$\"1++++++])*F
1$\"1+++U,-[YFh`l7$$\"#**F*$\"1+++#3$*pi%Fh`l7$$\"1++++++]**F1$\"1+++G
v<1YFh`l7$$\"$+\"F*$\"1+++0.d&e%Fh`l-%'COLOURG6&%$RGBGF*F*F*-F$6$7W7$F
($\"1++++++0TF-7$$\"1++v$>(3)4\"F1$\"1xRg*z=$QPF-7$$\"1++](Quh>\"F1$\"
1>*fT'QxJMF-7$$\"1+DJI&>:G\"F1$\"176X\"fGK?$F-7$$\"1+]7tY'oO\"F1$\"1#)
RC@MA.IF-7$$\"1+v=7U%GY\"F1$\"1&oh%[r<1GF-7$$\"1++D^P#)e:F1$\"1_Il^eRL
EF-7$$\"1+++0&Ral\"F1$\"1q%pF-/(zCF-7$$\"1++ve_0_<F1$\"1kHuJE'HM#F-7$$
\"1+]iq$oV%>F1$\"1\"**[gXD76#F-7$$\"1+]7VsmA@F1$\"1lOwlw)Q$>F-7$$\"1+]
7)R&G2BF1$\"1%*p%e/Z\"z<F-7$$\"1+]7ex@)\\#F1$\"1$**e:TrJk\"F-7$$\"1+]i
&zP&)o#F1$\"1mR_cA&o_\"F-7$$\"1++]Z`I%)GF1$\"1A([Oj>KU\"F-7$$\"1++v8vt
cIF1$\"1Y,rn]$HM\"F-7$$\"1++]#Hb3D$F1$\"1bJY5Yui7F-7$$\"1++]P,xXMF1$\"
12@g\"o:8>\"F-7$$\"1++]2ngLOF1$\"10))37:tH6F-7$$\"1**\\73.=/QF1$\"17>q
'3w!z5F-7$$\"1++]<)3q+%F1$\"1&Rib%\\XC5F-7$$\"1+++q6$)yTF1$\"1z'RH+@L#
)*Fh`l7$$\"1+]789qyVF1$\"1kMC1c#\\P*Fh`l7$$\"1+++X/ibXF1$\"1kz-fs%3,*F
h`l7$$\"1+]7j'G(\\ZF1$\"14W6f*)fU')Fh`l7$$\"1+]P*elX$\\F1$\"1=__X!o)=$
)Fh`l7$$\"1++DJNUF^F1$\"1cn<,-(f+)Fh`l7$$\"1,]iDt_/`F1$\"1yd&*[DnQxFh`
l7$$\"1++v$pdb\\&F1$\"1w\">jbp'puFh`l7$$\"1+]7eX)Rp&F1$\"1V'=(>FO4sFh`
l7$$\"1+](os:n'eF1$\"1OqSx05(*pFh`l7$$\"1++D@,F`gF1$\"1lku![e9y'Fh`l7$
$\"1*****\\1**fC'F1$\"18v!e>2Ad'Fh`l7$$\"1***\\itYXV'F1$\"1jb^UdizjFh`
l7$$\"1+]7.j(ph'F1$\"1*yWP\"*RP?'Fh`l7$$\"1***\\PBL&>oF1$\"1A&e6ct%>gF
h`l7$$\"1+++X'R:+(F1$\"1L)pC:'*H'eFh`l7$$\"1++]P.(e>(F1$\"1^yMy3m/dFh`
l7$$\"1+]7GG'>P(F1$\"1d!>3([RobFh`l7$$\"1++]K%yWc(F1$\"1(o(*\\\\zmU&Fh
`l7$$\"1+]781iXxF1$\"15Rb)**o(*H&Fh`l7$$\"1+]i&Qm\\$zF1$\"1BH**Q[It^Fh
`l7$$\"1****\\(['3?\")F1$\"1\"RhO([Ob]Fh`l7$$\"1+]7y+*QJ)F1$\"1*)[yv,_
P\\Fh`l7$$\"1+++qfa+&)F1$\"1j#*)He,\"H[Fh`l7$$\"1,+vy&G9p)F1$\"1g&))f/
WIs%Fh`l7$$\"1,]7$eI2)))F1$\"1V2H_uOAYFh`l7$$\"1,++l%zY0*F1$\"1!Qh(Ruc
LXFh`l7$$\"1++v8X/a#*F1$\"1!)**pk#)*eV%Fh`l7$$\"1+++!**eBV*F1$\"1+yL;'
R?N%Fh`l7$$\"1,]78%zCi*F1$\"1;%)4bA0mUFh`l7$$\"1+](o\"*[W!)*F1$\"17&4+
zuo=%Fh`l7$Fjcn$FgdnFh`l-F_dn6&FadnF*$\"*++++\"!\")F*F^dn-%&TITLEG6$%
\"~G-%%FONTG6%%&TIMESG%&ROMANGFfp-%+AXESLABELSG6%%/Pressure~(atm)G%;Mo
lar~Volume~(liters/mole)G-Fceo6%FeeoFfeoF@-%*AXESTICKSG6%%(DEFAULTGFaf
oF\\fo-%*AXESSTYLEG6#%$BOXG-%%VIEWG6$;F(FjcnFafo" 1 2 0 1 0 2 6 1 2 2 
1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "25 0
 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }