Definitions of terms in Tables 17.7-1,2 and 17.8-1 
>  restart;
Table 17.7-1 Definitions
>  ncom:=2;  The number of Components: for a binary system this is 2
>  rho:=array(1...ncom); omega:=array(1...ncom); MW:=array(1...ncom); c:=array(1...ncom); x:=array(1...ncom); 
>  rhotot:=sum(rho[i],i=1..ncom); for k from 1 to ncom do rho[k]:=c[k]*MW[k] od; for k from 1 to ncom do omega[k]:=rho[k]/rhotot od; ctot:=sum(c[i],i=1..ncom); for k from 1 to ncom do x[k]:=c[k]/ctot od; M:=rhotot/ctot;
Table 17.7-2 Definitions
>  v:=array(1...ncom); vavg:=sum(omega[i]*v[i],i=1...ncom); vstar:=sum(x[i]*v[i],i=1...ncom); eq. A, B. C
Table 17.8-1 Definitions
>  n:=array(1...ncom); N:=array(1...ncom); j:=array(1...ncom); J:=array(1...ncom); jstar:=array(1...ncom); Jstar:=array(1...ncom);
>  for k from 1 to ncom do n[k]:=rho[k]*v[k] od; eq. D: mass fluxes relative to fixed coordinates.
>  for k from 1 to ncom do N[k]:=c[k]*v[k] od; eq. G: molar fluxes relative to fixed coordinates.
>  for k from 1 to ncom do j[k]:=rho[k]*(v[k]-vavg) od; eq. E: mass fluxes relative to the average mass flow rate.
>  for k from 1 to ncom do J[k]:=c[k]*(v[k]-vavg) od; eq. H
>  for k from 1 to ncom do jstar[k]:=rho[k]*(v[k]-vstar) od; eq. F
>  for k from 1 to ncom do Jstar[k]:=c[k]*(v[k]-vstar) od; eq. I: molar fluxes relative to the mol average flow rate.