function cp=cpg(Tg)
%***************************************************************
% Funksjonen beregner cp for alle komponenter 
%	cp	= cpfor enkeltkomopnentene [J/mol K]
%

cpCO2	= [19.8   7.344e-2 -5.602e-5  1.715e-8];
cpN2	= [31.15 -1.357e-2  2.68e-5  -1.168e-8];
cpC1	= [19.25  5.213e-2  1.197e-5 -1.132e-8];
cpC2	= [5.409  1.781e-1 -6.938e-5  8.713e-9];
cpC3	= [-4.224 3.063e-1 -1.586e-4  3.215e-8];
cpiC4	= [-1.39  3.847e-1 -1.846e-4  2.895e-8];
cpnC4	= [3.266  4.180e-1 -2.242e-4  4.685e-8];
cpiC5	= [-9.525 5.066e-1 -2.729e-4  5.723e-8];
cpnC5	= [-3.626 4.873e-1 -2.580e-4  5.305e-8];
cpC6	= [-4.413 5.820e-1 -3.119e-4  6.494e-8];

cpvap	= [cpCO2;cpN2;cpC1;cpC2;cpC3;cpiC4;cpnC4;cpiC5;cpnC5;cpC6]

Tvek	= [1 Tg Tg^2 Tg^3]; 

cpv	= cpvap*Tvek'
cp	= cpv'				% J/mol K
