GB T 18340.6-2001 地质样品有机地化测试 汽油族组成质谱分析方法.pdf
《GB T 18340.6-2001 地质样品有机地化测试 汽油族组成质谱分析方法.pdf》由会员分享,可在线阅读,更多相关《GB T 18340.6-2001 地质样品有机地化测试 汽油族组成质谱分析方法.pdf(16页珍藏版)》请在麦多课文档分享上搜索。
1、ICS 73-010 D 04 道:;中华人民共和国国家标准GB/ T 18340.6- 2001 地质样品有机地化测试汽油族组成质谱分析方法Organic geochemical measurements. of geological samples Method for hydrocarbon types analysis of gasoline by mass spectrometry 2001-03-19发布2001-10-01实施国家质量技术监督局发布GB/ T 18340.6- 2001 前去一口本标准是在地质矿产石油地质海洋地质局企业标准汽油馆分族组成质谱分析方法的基础上,参考石
2、油化工科学研究院质谱法测定汽油的短类组成分析方法以及国内外有关资料,按照先进性、实用性与可靠性相结合的原则,并经过对比测试的实践检验后制定的。本标准确定了汽油族组成的质谱分析方法、定量计算过程和分析精密度要求等。本标准的附录A和附录B都是标准的附录。本标准由国土资源部提出。本标准由全国地质矿产标准化技术委员会岩矿测试标准物质和方法技术委员会归口。本标准起草单位z中国新星石油公司实验地质研究院、上海医药工业研究院、上海染料研究所。本标准主要起草人z周锦南、王惠敏、刘德展。1 范围中华人民共和国国家标准地质样晶有机地化测试汽油族组成质谱分析方法Organic geochemical measure
3、ments of geological samples Method for hydrocarbon types analysis of gasoline by mass spectrometry GB/ T 18340.6- 2001 本标准规定了汽油族组成的质谱分析方法、定量计算过程和分析精密度等。本标准适用于测定轻锢分石油(95%馆出物温度低于196C)中的3种饱和炬及3种芳香炬。试样中烯怪的含量要20 ;:;5 % 3 GB/ T 18340. 6- 2001 附录A(标准的附录汽油族组成计算的FORTRAN源程序A1 主程序GSL4 C 本程序用于用质谱法分析汽油的族组成C 方法的基
4、础是ASTM02789-71 C PROGRA岛GSL C 主程序DIMENSION S(6) ,AS(6) COMMON H (1000) ,HDI(lOOO) CHARACTER铃320EV1,W,TIT铃64,COAT铃11,CTIM铃8CALL RMS(W ,TIT ,COAT ,CTIM) WRITE(祷,60)60 FORMAT(选择输出设备或文件名隐含为打印机J:,) REAO(头(A) )OEV1 IF (OEV1. EQ.川)OEV1=PRN CALL GS5 (DEV1 , W ,TIT ,AC1 ,AC2 ,S ,AS) C 储存和打印分析结果WRITE(饼,500)50
5、0 FORMAT(你要储存结果?Y /NJ , ) READ(势,(Al)ASKIF(ASK. EQ. N七OR.ASK. EQ. n) GOTO 700 NC1=LEN TRIM(W) NC2=LEN TRIM(TIT) OPEN(UNIT=2,FILE = GSL. LST , ACCESS = , APPEND ,STATUS=UN KNOWN) WRITE(2,540) W (1 :NC1) , TITO :NC2) 540 FORMATOX,A , ,A) WRITE(Z ,560) CAS(I) ,1= 1 ,6) 560 FORMATOX,5(F5.2,),F5.2) CLOSE
6、 (UNIT = 2) 700 WRITE( * ,760) 760 FORMATC你要打印几份?(1 - 9) : , ) REAO(祷,780,ERR=700)NP 780 FORMATCI1) 00800 N =l,NP CALL PRTl (DEV1 , W , TIT ,CDAT ,CTIM) CALL PRT3(DEVl ,ACl ,AC2 ,S ,AS) 800 CONTINUE GB/T 18340.6- 2001 1000 STOP 铃铃铃分析结束铃铃铃END A2 子程序GS5SUBROUTINE GS5(DEV1 ,W ,TIT ,AC1 ,AC2 ,S ,AS) C C
7、 本子程序用于计算汽油族组成C 相关描述见ASTMD2789-71 C DIMENSION S(的,CF1(7) ,CF2(7) ,CF3(7) ,CF4(7) ,AS(6) ,AA(6) CHARACTER铃32DEV1,W,TIT铃64COMMON H (1000) ,HDI(1000) DATA CF1/0. 0668 , 0. 0779 , 0. 089 , 0.1001 , 0.1113 , 0.1224 , 0.1335/ , 祷CF2/1.0, 0. 92 ,1. 4 ,1. 8,1. 9, 2. 0, 2.1/, 铃CF3/0.0, 0. 0769 , 0.088, 0. 09
8、91 ,0. 1102 , 0. 1212 ,0.1323/ , 铃CF4/1.0,1. 7, 2.2, 2.4, 2.7, 2.8, 2.9/ C 计算特征峰强组加和43,41,67,77,103,128S (1) = H(43)+H(57) +H(71) +H(85) +H(99) S(2) =H(41)+H(55)+H(69) +H(83) +H(97) S(3) =H(67) + H(68) + H(81) +H(82) + H(95) + H(96) S(4) =H (77) + H(78) +H(79) + H(91)寸H(92)+H(105)+H(106)+H(119)祷十H(1
9、20)+ H (133) + H (134) + H (147) + H (148) +H(l61) + H (162) S(5) =H(103)+H(104) +H(117) + H (118) +H(131)+H(132) 铃+H(145)+H(146) +H(159) +H(160) S(6) =H(128)+H(141) +H(142)十H(155)+H(156) C 屏幕输出各类短特征峰强组加和值300 , SIGMA = o. 0 DO 3201=1,6 320 SIGMA=SIGMA+S(l) WRITE(祷,(/)WRITE(祷,360)(l ,S(I) ,S(l)铃100.O
10、/SIGMA,I=l , 6) 360 FORMAT(3H S(,口,2H)=,F10. 0, 12X ,F7. 2) C 计算链皖及皖基苯平均碳数WRITE(铃,400)400 FORMAT(1HO,20X,6H链烧煌,l1X,6H烧基苯WRITE(赞,420)420 FORMAT(1H,7X,8H平均碳数,6X,4H摩尔,13X,4H摩尔/)F1=0.0 F2= 0.0 F3= 0.0 F4=0.0 UM=O.O DO 4501= 1,7 5 6 11=72+1铃1412=64+1费1413=1+5 GB/ T 18340.6- 2001 U1=H(I1)-CFl(l)铃H(I1-1)IF
11、(I. EQ. 1) U1 = U1 +0.0026铃H(84)一0.014祷(H(92)一0.0769铃H(91)怜一0.008祷(H(106)一0.088铃H(l05)一0.008祷(H(120)一0.0991铃H(119)IF(U1. LT. O. 0) U1 =0. 0 U2=H(l2)一CF3(I)提H(l2-1)IF(U2. LT. o. 0) U2=0. 0 U1=CF2(l)铃U1U2=CF4(l)提U2IF(Ul. GT. UM) UM=U1 WRlTE(铃,440)口,U1,U2440 FORMAT(9X,12 ,2(8X,F9.2) F1=F1十13祷U1F2=F2+U1
12、 F3=F3+13祷U2F4= F4+U2 450 CONTINUE IF(F2. EQ. O. 0) GOTO 510 AC1=F1/F2 510 IF(F4. EQ. O. 0) GOTO 520 AC2=F3/ F4 520 WRITE(祷,530)AC1 ,AC2 530 FORMATo链皖短及烧基苯平均碳数铃=,F5. 2, ,F5. 2) 1F(ACl. LT. 6. O. OR. ACl. GE. 11. 0) GOTO 550 1F(AC2. LT. 6. O. OR. AC2. GE. 11. 0) GOTO 550 GOTO 600 550 WRlTE(祷,560)560
13、FORMAT( $输入链烧炬及烧基苯平均碳数6.-10.J:)READ(祷(F5. 2 ,F5. 2) AC1 ,AC2 C 计算各类炬相对含量600 CALL RMO(AC1 ,S ,AS) CALL RMO(AC2 ,S ,AA) C 含量归一化至100.0,报告体积百分数DO 700 1=4,6 700 AS(I) = AA(I) SA=O.O DO 720 1= 1,6 720 SA=SA+AS(l) DO 740 1= 1,6 740 AS(I) =AS(l)祷100.0/SAGB/ T 18340.6- 2001 1000 RETURN ENO A3 子程序RMOSUBROUTIN
14、E RMO(AC,S,A1) C 本子程序用于计算各类怪相对含量C DIMENSION S(的,A1(的,A2(6),RMC(6.6) IAC=AC一5CALL ROAOAC,6,RMC) DO 6601=1,6 Al(l)=O.O 006201=1,6 620 A10)=Al(l)+RMCO,J)铃SO)IF(Al(l).LT.O.O) A1 (l) = 0.0 660 CONTINUE IF(lAC. EQ. 5) RETURN IAC=IAC+1 CALL ROAOAC,6,RMC) 007001=1,6 A2(l)=0.0 006801=1,6 680 A2(l) = A2(1) +
15、RMC(l ,J)铃SO)IF(A2(l). LT.0.0) A20)=0.0 700 CONTINUE C 对非整型碳数进行插值计算FAC=AC-INT(AC) 008001=1,6 800 Al(1) =A1 (1) + F AC铃(A2(1) - A1 (1) RETURN ENO A4 子程序RDASUBROUTINE ROA(LL ,JO,RMC) C 按平均碳数从磁盘读人相应的逆矩阵DIMENSION RMC(6,的OPEN (UNIT = 1, FILE = GSLRMX. OAT , STATUS = OLO , MOOE = REAO) 005000 L=l,LL 5000
16、REAO(l,5100 , ENO= 5900) (RMC(l.J) ,J=l , JO) .1 = l.JO) 5100 FORMAT (/6(2X,F7.4) o WRITE(8 , 5100) (RMC(!,J) .J= l , JO) ,1= 1 , JO) !炬阵打印5900 CLOSE(UNIT= l) 7 RETURN END GB /T 18340. 6- 2001 A5 子程序RMS8 SUBROUTINE RMS(FIL , TIT ,CDAT ,CTIM) C 子程序RMS用于读取存于磁盘上的质谱数据C LOGICAL EXISTS INTEGER * 2 IB (100
17、0) INTEGER择4IA(1000) ,IC(lOOO) CHARACTER赞32FIL ,FILl ,FIL2 ,BFIL,FIL3 ,FIL4 ,FIL5 ,FIL6 ,SFIL, 势TIT善64,ST1铃128,CDAT祷11,CTIM怜8COMMON H (1000) ,HDI (1000) WRITE(祷,20)20 FORMAT(/lX,输入样品文件名(不含文件扩展名):,) READ(祷,(A)FIL 30 40 LC = LEN TRIM (FIL) FIL1 = FIL (1 : LC) / /飞CTLWRITE(铃,40)FORMAT(输入样品谱范围(起始,终了):,)
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- GB 18340.6 2001 地质 样品 有机 测试 汽油 组成 谱分析 方法
