上一篇BLOG居然贴不全,估计是超过了允许字段了。。。这个子程序可以直接打印出反式脂肪的原始记录。。一共4 张。。把一件很费劳动力的事情给彻底简化了。。
版权所有,抄袭无过。。欢迎大家来抄。。
set colo off
set path to d:\程序
zt1="font '宋体',18"
zt2="font
'宋体',10"
zt3="font '宋体',13"
*
反式脂肪酯原始纪录打印程序
*
注:共26种,由t1 - t26命名
* 峰面积 由 a1-a26
输入数组a(26)
* 换算系数 由 q1-q26 固定数组q(26)
*
校准因子 由 f1-f26 固定数组f(26)
* 样品名称 由 n1-n26
固定数组n(26)
**
*
* 饱和脂肪酸
-----------------------------------------------------
*1
C4:0
丁酸(C4:0)甲酯
Butyric/丁酸
*2
C6:0
己酸(C6:0)甲酯
Caproic/己酸
*3
C8:0
辛酸(C8:0)甲酯
Octanoic/辛酸
*4 C10:0
奎酸(C10:0)甲酯
Capric/癸酸
*5 C12:0
十二烷酸(C12:0)甲酯
Lauric/月桂酸
*6
C14:0 十四烷酸(C14:0)甲酯
Tetradecanoic/豆寇酸
*7 C16:0 十六烷酸甲酯,C16:0
棕榈酸甲酯 Palmitic/棕榈酸
*8
C18:0 十八烷酸甲酯,C18:0 硬酯酸甲酯
Stearic/硬脂酸
*9 C20:0 二十烷酸甲酯,C20:0
花生酸甲酯 Arachidic/花生酸
*10
C22:0 二十二烷酸甲酯,C22:0山嵛酸甲酯
Behenic/山嵛酸
*11 C24:0 二十四烷酸甲酯,C24:0 木蜡酸甲酯
Lignoceric/掬焦油酸
*
顺式不饱和脂肪酸-----------------------------------------------------------
*12 C16:1
9cis
9-顺-十六碳烯酸甲酯(C16:1 9cis),棕榈油酸甲酯
Palmitoleic/棕榈油酸
*13 C18:1
6cis
6-顺-十八碳烯酸甲酯(C18:1
6cis),油酸甲酯
Petroselinic/岩芹酸
*14 C18:1
9cis
9-顺-十八烯酸甲酯,(C18:1
9cis)油酸甲酯
Oleic/油酸
*15 C18:1
11cis
11-顺-十八烯酸甲酯,(C18:1 11cis)异油酸甲酯
Vaccenic/异油酸
*16 C18:2
9cis12cis 顺,顺-9,12-十八烯酸甲酯(C18:2
9cis12cis)(亚油酸甲酯) Linoleic/亚油酸
*17 C18:3
9cis12cis15cis 顺,顺,顺-9,12,15-十八烯酸甲酯(亚麻酸甲酯)(C18:3
9cis12cis15cis) Linolenic/亚麻酸
*18
C20:1 11cis 11-顺-二十碳烯酸甲酯,(C20:1
11cis)花生一烯酸甲酯
Eicosenoic/花生烯酸
*19 C22:1
13cis
13-顺-二十二烯酸甲酯,(C22:1
13cis)顺芥子酸甲酯
Erucic/芥酸
* 反式不饱和脂肪酸
*20 C16:1
9trans 反棕榈烯酸甲酯(C16:1
9trans)
Palmitelaidic/棕榈油酸
*21 C18:1 6
trans 6-反-十八烯酸甲酯(C18:1 6
trans)
Petroselaidic/岩芹烯酸
*22 C18:1 9
trans 反油酸甲酯(C18:1 9
trans)
Olaidic/油烯酸
*23 C18:1 11
trans 异油酸(C18:1 11
trans)
Transvaccenic/异油酸
*24 C18:2 9 trans 12
trans 反亚油酸甲酯(C18:2 9trans12trans)
Linolaidic/反-十八碳二烯酸
*25 C20:1 11
trans 11-反-二十烯酸甲酯(C20:1
11trans) Trans
Eicosenoic/反-花生烯酸
*26 C22:1 13
trans 13-反-二十二烯酸甲酯(C22:1
13trans) Brassidic/芸苔酸
dimension a(26),q(26),f(26),n(26),x(26)
stor 0 to a
stor 0 to
x
f(7)=0.003576
*
f(7)即f(16:0)的实值
f(1)=1.5106*f(7)
f(2)=1.2836*f(7)
f(3)=1.1702*f(7)
f(4)=1.1021*f(7)
f(5)=1.0567*f(7)
f(6)=1.0243*f(7)
f(7)=1.0000*f(7)
f(8)=0.9811*f(7)
f(9)=0.9660*f(7)
f(10)=0.9536*f(7)
f(11)=0.9433*f(7)
f(12)=0.9925*f(7)
f(13)=0.9745*f(7)
f(14)=0.9745*f(7)
f(15)=0.9745*f(7)
f(16)=0.9678*f(7)
f(17)=0.9612*f(7)
f(18)=0.9600*f(7)
f(19)=0.9482*f(7)
f(20)=0.9925*f(7)
f(21)=0.9745*f(7)
f(22)=0.9745*f(7)
f(23)=0.9745*f(7)
f(24)=0.9678*f(7)
f(25)=0.9600*f(7)
f(26)=0.9482*f(7)
q(1)=0.9868
q(2)=0.9897
q(3)=0.9915
q(4)=0.9928
q(5)=0.9937
q(6)=0.9945
q(7)=0.9950
q(8)=0.9955
q(9)=0.9959
q(10)=0.9962
q(11)=0.9965
q(12)=0.9950
q(13)=0.9955
q(14)=0.9955
q(15)=0.9955
q(16)=0.9954
q(17)=0.9954
q(18)=0.9959
q(19)=0.9962
q(20)=0.9950
q(21)=0.9955
q(22)=0.9955
q(23)=0.9955
q(24)=0.9954
q(25)=0.9959
q(26)=0.9962
n(1)=' C4:0( Butyric/丁酸) 丁酸(C4:0)甲酯
'
n(2)=' C6:0( Caproic/己酸) 己酸(C6:0)甲酯
'
n(3)=' C8:0( Octanoic/辛酸 ) 辛酸(C8:0)甲酯
'
n(4)='
C10:0( Capric/癸酸) 奎酸(C10:0)甲酯
'
n(5)=' C12:0( Lauric/月桂酸)
十二烷酸(C12:0)甲酯'
n(6)=' C14:0(Tetradecanoic/豆寇酸)
十四烷酸(C14:0)甲酯'
n(7)=' C16:0( Palmitic/棕榈酸 )
十六烷酸甲酯,C16:0 棕榈酸甲酯'
n(8)=' C18:0(
Stearic/硬脂酸) 十八烷酸甲酯,C18:0
硬酯酸甲酯'
n(9)=' C20:0( Arachidic/花生酸)
二十烷酸甲酯,C20:0 花生酸甲酯'
n(10)=' C22:0(
Behenic/山嵛酸 )
二十二烷酸甲酯,C22:0山嵛酸甲酯'
n(11)=' C24:0( Lignoceric/掬焦油酸)
二十四烷酸甲酯,C24:0 木蜡酸甲酯'
n(12)=' C16:1 9cis (
Palmitoleic/棕榈油酸 ) 9-顺-十六碳烯酸甲酯(C16:1
9cis),棕榈油酸甲酯'
n(13)=' C18:1 6cis (
Petroselinic/岩芹酸 ) 6-顺-十八碳烯酸甲酯(C18:1 6cis),油酸甲酯
'
n(14)=' C18:1 9cis (
Oleic/油酸)
9-顺-十八烯酸甲酯,(C18:1 9cis)油酸甲酯'
n(15)=' C18:1 11cis (
Vaccenic/异油酸)
11-顺-十八烯酸甲酯,(C18:1 11cis)异油酸甲酯'
n(16)=' C18:2 9cis12cis( Linoleic/亚油酸 ) 顺,顺-9,12-十八烯酸甲酯(C18:2
9cis12cis)(亚油酸甲酯)'
n(17)=' C18:3 9cis12cis15cis(
Linolenic/亚麻酸)顺,顺,顺-9,12,15-十八烯酸甲酯(C18:3 9cis12cis15cis)'
n(18)=' C20:1 11cis (
Eicosenoic/花生烯酸) 11-顺-二十碳烯酸甲酯,(C20:1 11cis)花生一烯酸甲酯
'
n(19)='
C22:1 13cis( Erucic/芥酸)
13-顺-二十二烯酸甲酯,(C22:1
13cis)顺芥子酸甲酯
'
n(20)='
C16:1 9trans (Palmitelaidic/棕榈油酸 ) 反棕榈烯酸甲酯(C16:1
9trans)'
n(21)=' C18:1 6 trans(
Petroselaidic/岩芹烯酸) 6-反-十八烯酸甲酯(C18:1 6
trans)'
n(22)=' C18:1 9 trans(
Olaidic/油烯酸 ) 反油酸甲酯(C18:1 9 trans)
'
n(23)=' C18:1 11 trans( Transvaccenic/异油酸)
异油酸(C18:1 11 trans)'