summaryrefslogtreecommitdiff
path: root/1367/CH17/EX17.2/17_2.sce
blob: 562e7394a10848430917a3f10bdbf8bf7f5c586d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Determine molecular weight of teflon
//Ex:17.2
clc;
clear;
close;
DOP=10000;
mc=12;//mol wt of carbon
mf=19;;//mol wt of fluorine
m=(2*mc)+(4*mf);//mol wt of teflon monomer
mp=DOP*m;
disp(mp,"Molecualr weight of Teflon polymer = ");
mh=1;;//mol wt of hydrogen
m1=(2*mc)+(4*mh);//mol wt of polyethylene
//for same DOP
x=m/m1;//ratio of molecular weights
disp(x,"Ratio of molecualr weights of Teflon and Polyethylene = ");