【胖记原创】反式脂肪酸的计算程序(26种)

****子程序 fatmenu1.prg *************


dimension a(26),q(26),f(26),n(26),x(26)
stor 0 to a
stor 0 to x
f(7)=0.003576
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）'    
n(24)=' C18:2 9 trans 12 trans( Linolaidic/反-十八碳二烯酸    )     反亚油酸甲酯(C18:2 9trans12trans)'
n(25)=' C20:1 11 trans( Trans Eicosenoic/反-花生烯酸)     11-反-二十烯酸甲酯（C20:1 11trans）'
n(26)=' C22:1 13 trans( Brassidic/芸苔酸)     13-反-二十二烯酸甲酯（C22:1 13trans）'

* set color to n/bg,*r/w,GR*


sele a
use fat
bh1=space(8)

@ 15,16 say replicate('-',55)
@ 13,15 say ' 1----输入新样品数据 '
@ 18,15 say '样品编号： ' get BH1


*@ 23,15 say '进样次数： ' get cs
read

if bh1=space(8)
retu
endif

locat for bh=bh1
if eof()

else
@ 23,15 say '该编号已经存在!'
wait ''
retu
endif

append blank
repl bh with bh1


@ 20,15 say '样品名称： ' get name
@ 22,15 say '送样日期(年月日,如20080808)： ' get syrq
@ 24,15 say '检验日期(年月日,如20080808)： ' get jyrq
* @ 13,5 say '进样次数： ' get cs
read

jyrq0=jyrq

sele b
use huanjin

locate for rq=jyrq0

if eof()
append blan
repl rq with jyrq0
@ 26,15 say '环境温度(℃)： ' get wendu
@ 26,45 say '环境湿度(%)： ' get shidu
read
endif


wendu1=wendu
shidu1=shidu
sele a
repl wendu with wendu1
repl shidu with shidu1






clear
i=1
@ 2+i,40 say '输入以下项目的样品峰面积(未出峰的峰面积为 0 )'



do while i<=26
@ 3+i,5say '第'+alltrim(str(i))+'种 '+n(i) get a(i)
i=i+1
enddo
read
******************
i=1
do while i<=26
@ 3+i,5say '第'+alltrim(str(i))+'种 '+n(i) get a(i)
store str(INT(i)) to iii
store 'Area'+Ltrim(iii) to areax
repl &areax with a(i)
i=i+1
enddo

********************
i=1
af3=0.0000
do while i<=26
af3=af3+a(i)*f(i)
i=i+1
enddo

********************

clear
xq3=0
i=1
@ 1+i,40 say '显示各个项目的脂肪酸甲酯含量'
do while i<=26
x(i)=a(i)*f(i)/af3
@ 3+i,1 say '第'+alltrim(str(i))+'种 '+n(i)+'的脂肪酸甲酯含量: '+str(x(i)*100,6,2)+'%'
xq3=xq3+x(i)*q(i)
i=i+1
enddo
wait

clear

tg=0.0000
i=1
@ 1+i,40 say '显示各个项目的甘油三酯含量'
do while i<=26
@ 3+i,3 say '第'+alltrim(str(i))+'种 '+n(i)+'的甘油三酯的含量 '+str(100*x(i)*q(i)/xq3,6,2)+'%'
if i>=20
tg=tg+q(i)*x(i)/xq3
endif
i=i+1
enddo

@ 31,5 say '样品编号： ' + BH
@ 32,5 say '样品名称： '+ name
@ 33,5 say '进样次数： '+ str(cs)+'次'
if af3=0
repl tf with 0
@ 34,40 say '总甘油三酯的含量: 0.00%'
else
repl tf with tg*100

@ 34,40 say '总甘油三酯的含量'+str(tg*100,7,3)+'%'

endif
wait ''

return

*** 第二个子程序fatmenu2.prg *************



dimension a(26),q(26),f(26),n(26),x(26)
stor 0 to a
stor 0 to x
f(7)=0.003576
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）'    
n(24)=' C18:2 9 trans 12 trans( Linolaidic/反-十八碳二烯酸    )     反亚油酸甲酯(C18:2 9trans12trans)'
n(25)=' C20:1 11 trans( Trans Eicosenoic/反-花生烯酸)     11-反-二十烯酸甲酯（C20:1 11trans）'
n(26)=' C22:1 13 trans( Brassidic/芸苔酸)     13-反-二十二烯酸甲酯（C22:1 13trans）'

*set color to n/bg,*r/w,GR*
clea

************************************************
bh1=space(8)

@ 15,16 say replicate('-',55)
@ 13,15 say ' 2--修改旧样品的数据，如名称，峰面积等 '
@ 16,15 say '样品编号： ' get BH1

* @ 23,15 say '进样次数： ' get cs
read
if bh1=space(8)
retu
endif

sele a
use fat
locate for bh=bh1

if eof()
retu
endif



@ 20,5 say '修改样品名称： ' get name
@ 22,15 say '送样日期(年月日如20080808)： ' get syrq
@ 24,15 say '检验日期(年月日如20080808)： ' get jyrq
* @ 13,5 say '进样次数： ' get cs
read

jyrq0=jyrq

sele b
use huanjin

locate for rq=jyrq0

if eof()
append blan
repl rq with jyrq0
@ 26,15 say '环境温度(℃)： ' get wendu
@ 26,45 say '环境湿度(%)： ' get shidu
read
endif
wendu1=wendu
shidu1=shidu
sele a
repl wendu with wendu1
repl shidu with shidu1


clear
i=1
@ 2+i,40 say '修改以下项目的样品峰面积(未出峰的峰面积为 0 )'



do while i<=26

store str(INT(i)) to iii
store 'Area'+Ltrim(iii) to areax
@ 3+i,5 say '第'+alltrim(str(i))+'种 '+n(i) get &areax
i=i+1
enddo
read


******************
i=1
do while i<=26

store str(INT(i)) to iii
store 'Area'+Ltrim(iii) to areax
stor &areax to a(i)

i=i+1
enddo


********************
i=1
af3=0.0000
do while i<=26
af3=af3+a(i)*f(i)
i=i+1
enddo

********************

clear
xq3=0
i=1
@ 1+i,40 say '显示各个项目的脂肪酸甲酯含量'
do while i<=26
x(i)=a(i)*f(i)/af3
@ 3+i,1 say '第'+alltrim(str(i))+'种 '+n(i)+'的脂肪酸甲酯含量: '+str(x(i)*100,6,2)+'%'
xq3=xq3+x(i)*q(i)
i=i+1
enddo
wait

clear

tg=0.0000
i=1
@ 1+i,40 say '显示各个项目的甘油三酯含量'
do while i<=26
@ 3+i,3 say '第'+alltrim(str(i))+'种 '+n(i)+'的甘油三酯的含量 '+str(100*x(i)*q(i)/xq3,6,2)+'%'
if i>=20
tg=tg+q(i)*x(i)/xq3
endif
i=i+1
enddo

@ 31,5 say '样品编号： ' + BH
@ 32,5 say '样品名称： '+ name
* @ 33,5 say '进样次数： '+ str(cs)+'次'
if af3=0
repl tf with 0
@ 34,40 say '总甘油三酯的含量: 0.00%'
else
repl tf with tg*100

@ 34,40 say '总甘油三酯的含量'+str(tg*100,7,3)+'%'

endif

wait ''
return

*********** 第三个子程序 fatmenu.prg ***********


set colo off
set path to d:\仲岳桐\自己编的程序
zt1="font '宋体',18"
zt2="font '宋体',10"
zt3="font '宋体',13"



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）'    
n(24)=' C18:2 9 trans 12 trans( Linolaidic/反-十八碳二烯酸) 反亚油酸甲酯(C18:2 9trans12trans)'
n(25)=' C20:1 11 trans( Trans Eicosenoic/反-花生烯酸)     11-反-二十烯酸甲酯（C20:1 11trans）'
n(26)=' C22:1 13 trans( Brassidic/芸苔酸)     13-反-二十二烯酸甲酯（C22:1 13trans）'


use fat
clea


bh1=space(8)

@ 15,16 say replicate('-',55)
@ 13,15 say ' 4:打印记录 '
@ 18,15 say '样品编号： ' get BH1

* @ 23,15 say '进样次数： ' get cs
read

use fat
locate for bh=bh1
if eof()
RETU
ENDIF




set print on

*********** 真是泪奔，居然一次不能超过7000字。。。只好把第三个程序分三次发了***********

set device to printer

******************
i=1
do while i<=26

store str(INT(i)) to iii
store 'Area'+Ltrim(iii) to areax
stor &areax to a(i)

i=i+1
enddo

********************
i=1
af3=0.0000
do while i<=26

af3=af3+a(i)*f(i)
i=i+1
enddo

************************************

@ 5,40 say '色谱组检测原始记录' &zt1

@ 7,100 say '记录编号：'+bh
@ 8,100 say '第 1 页　共 4 页'
@ 9,10 say replicate('━',55)

@ prow()+1,10 say '检测项目：反式脂肪酸(26种)'
@ prow()+1,10 say '样品编号：'+bh
@ prow(),70 say '样品名称： '+name
@ prow()+1,10 say '样品检测前状态：正常 '
@ prow(),70 say '检测环境： 温度 '+ltrim(str(wendu))+' ℃ 湿度 '+ltrim(str(shidu))+' %'

*@ prow()+1,10 say '收样日期： 年 月 日 '
*@ prow(),70 say '检测日期： 年 月 日'

@ prow()+1,10 say '收样日期：'+substr(syrq,1,4)+' 年 '+ substr(syrq,5,2)+'月 '+ substr(syrq,7,2)+' 日 '
@ prow(),70 say '检测日期： ' +substr(jyrq,1,4)+' 年 '+ substr(jyrq,5,2)+'月 '+ substr(jyrq,7,2)+' 日 '




@ prow()+1,10 say '检测标准： '

@ prow()+1,15 say '参照　“中华人民共和国出入境检验检疫行业标准”（食品中反式脂肪酸含量的测定方法 ）'
@ prow()+1,10 say '检测条件：'
@ prow()+1,15 say '仪器：惠普5890气相色谱仪(3336A52239)， DJ-600T电子天平(01230739)'
@ prow()+1,15 say '色谱柱：CP-Sil88 FAME(100 m×0.25 mm ID×0.20 μm) '
@ prow()+1,15 say '柱温：初始温度160 ℃，保持5 min，以1.8 ℃／min速率，升温至220 ℃，保持11 min '
@ prow()+1,15 say '进样口温度为250 ℃，分流比为30:1。 检测器：氢火焰离子化检测器，温度:为260 ℃'
@ prow()+1,10 say '分析步骤:'
@ prow()+1,15 say '用乙醚提取试样中脂肪，在氢氧化钾－甲醇溶液中，脂肪经水解、甲酯化反应，转变为脂肪酸甲酯，用'
@ prow()+1,10 say '配有氢火焰离子化检测器的毛细管气相色谱仪进行测定，归一化法定量。'
@ prow()+2,10 say '计算方法:'
@ prow()+1,15 say '脂肪酸甲酯百分比含量计算：采用归一化法，计算出各被测组分脂肪酸甲酯的百分比含量（%,m/m），'
@ prow()+1,10 say '换算为甘油三酯百分比含量，再合计为反式脂肪的含量。'

@ prow()+2,10 say '26种反式脂肪酸项目列表：'
@ prow()+1,10 say '1 C4:0    丁酸(C4:0)甲酯 Butyric/丁酸    '
@ prow()+1,10 say '2 C6:0    己酸(C6:0)甲酯 Caproic/己酸'
@ prow()+1,10 say '3 C8:0    辛酸(C8:0)甲酯 Octanoic/辛酸'
@ prow()+1,10 say '4 C10:0    奎酸(C10:0)甲酯 Capric/癸酸'
@ prow()+1,10 say '5 C12:0    十二烷酸(C12:0)甲酯 Lauric/月桂酸'
@ prow()+1,10 say '6 C14:0     十四烷酸(C14:0)甲酯 Tetradecanoic/豆寇酸'
@ prow()+1,10 say '7 C16:0    十六烷酸甲酯,C16:0 棕榈酸甲酯 Palmitic/棕榈酸'
@ prow()+1,10 say '8 C18:0    十八烷酸甲酯,C18:0 硬酯酸甲酯 Stearic/硬脂酸'
@ prow()+1,10 say '9 C20:0    二十烷酸甲酯,C20:0 花生酸甲酯 Arachidic/花生酸'
@ prow()+1,10 say '10 C22:0    二十二烷酸甲酯,C22:0山嵛酸甲酯 Behenic/山嵛酸'
@ prow()+1,10 say '11 C24:0    二十四烷酸甲酯,C24:0 木蜡酸甲酯 Lignoceric/掬焦油酸'
@ prow()+1,10 say '12 C16:1 9cis 9-顺-十六碳烯酸甲酯（C16:1 9cis）,棕榈油酸甲酯 Palmitoleic/棕榈油酸'
@ prow()+1,10 say '13 C18:1 6cis 6-顺-十八碳烯酸甲酯（C18:1 6cis）,油酸甲酯 Petroselinic/岩芹酸'
@ prow()+1,10 say '14 C18:1 9cis 9-顺-十八烯酸甲酯,（C18:1 9cis）油酸甲酯 Oleic/油酸'
@ prow()+1,10 say '15 C18:1 11cis 11-顺-十八烯酸甲酯,（C18:1 11cis）异油酸甲酯     Vaccenic/异油酸'
@ prow()+1,10 say '16 C18:2 9cis12cis     顺,顺-9，12-十八烯酸甲酯（C18:2 9cis12cis）(亚油酸甲酯) Linoleic/亚油酸'
@ prow()+1,10 say '17 C18:3 9cis12cis15cis    顺,顺,顺-9,12,15-十八烯酸甲酯（C18:3 9cis12cis15cis） Linolenic/亚麻酸'
@ prow()+1,10 say '18 C20:1 11cis 11-顺-二十碳烯酸甲酯,（C20:1 11cis）花生一烯酸甲酯 Eicosenoic/花生烯酸'
@ prow()+1,10 say '19 C22:1 13cis    13-顺-二十二烯酸甲酯,（C22:1 13cis）顺芥子酸甲酯 Erucic/芥酸    '
@ prow()+1,10 say '20 C16:1 9trans    反棕榈烯酸甲酯(C16:1 9trans) Palmitelaidic/棕榈油酸'
@ prow()+1,10 say '21 C18:1 6 trans    6-反-十八烯酸甲酯（C18:1 6 trans） Petroselaidic/岩芹烯酸'
@ prow()+1,10 say '22 C18:1 9 trans    反油酸甲酯(C18:1 9 trans) Olaidic/油烯酸'
@ prow()+1,10 say '23 C18:1 11 trans    异油酸（C18:1 11 trans） Transvaccenic/异油酸'
@ prow()+1,10 say '24 C18:2 9 trans 12 trans    反亚油酸甲酯(C18:2 9trans12trans) Linolaidic/反-十八碳二烯酸'
@ prow()+1,10 say '25 C20:1 11 trans    11-反-二十烯酸甲酯（C20:1 11trans） Trans Eicosenoic/反-花生烯酸'
@ prow()+1,10 say '26 C22:1 13 trans    13-反-二十二烯酸甲酯（C22:1 13trans） Brassidic/芸苔酸    '

@ prow()+2,10 say '报告方式及表述:'
@ prow()+1,15 say '反式脂肪(％，m/m，以脂肪计)：××.× '
@ prow()+1,15 say '含义为：被测食品中每100克脂肪含有××.× g 反式脂肪, 阳性结果报告的最小值：0.1 % (m/m)。'
@ prow()+1,15 say '当结果为0.0%时报未检出。'





@ prow()+2,100 say '(接下页)'
@ prow()+1,10 say replicate('━',55)
@ prow()+1,13 say '检测者： 复核者：'&zt3

eject
*set device to scre
*retu

*----------------------

**********************************

i=1
j=1
clea

@ 5,40 say '色谱组检测原始记录' &zt1

@ 7,100 say '记录编号：'+bh
@ 8,100 say '第 2 页　共 4 页'
@ 9,10 say replicate('━',55)
@ 9+i,30 say '下面列出26种脂肪酸甲酯项目的峰面积(当峰面积为 0时，表示该项目在保留时间未出峰 )'&zt2

do while j<=26

@ 10+i,10 say '('+alltrim(str(j))+') '+n(j)+'的脂肪酸甲酯 '
@ 11+i,25 say '峰面积为:'+str(a(j))

i=i+2
j=j+1
enddo
@ prow()+1,10 say replicate('━',55)
@ prow()+1,100 say '接下页'
eject



*----------------------
i=1
j=1
clea

@ 5,40 say '色谱组检测原始记录' &zt1

@ 7,100 say '记录编号：'+bh
@ 8,100 say '第 3页　共 4 页'
@ 9,10 say replicate('━',55)


xq3=0

@ 9+i,30 say '下面列出26种脂肪酸甲酯项目的百分含量'
do while j<=26
x(j)=a(j)*f(j)/af3

@ 10+i,10 say '('+alltrim(str(j))+') '+n(j)+'的脂肪酸甲酯'
@ 11+i,20 say '百分含量:'+str(x(j)*100,6,2)+'%'

xq3=xq3+x(j)*q(j)
j=j+1
i=i+2
enddo

@ prow()+1,10 say replicate('━',55)
@ prow()+1,100 say '接下页'
eject


i=1
j=1


@ 5,40 say '色谱组检测原始记录' &zt1

@ 7,100 say '记录编号：'+bh
@ 8,100 say '第 4页　共 4 页'
@ 9,10 say replicate('━',55)

@ 9+i,30 say '下面列出26种脂肪酸甲酯项目换算为甘油三酯后的百分含量'


tg=0.0000

do while j<=26

@ 10+i,10 say '('+alltrim(str(j))+') '+n(j)+'的甘油三酯'
@ 11+i,20 say '百分含量:'+str(100*x(j)*q(j)/xq3,6,2)+'%'

if j>=20
tg=tg+q(j)*x(j)/xq3
endif

j=j+1
i=i+2
enddo

if af3=0
repl tf with 0
@ prow()+2,15 say '总反式脂肪酸甘油三酯的含量(％，m/m，以脂肪计)： 未检出'
else
repl tf with tg*100

@ prow()+2,15 say '总反式脂肪酸甘油三酯的含量(％，m/m，以脂肪计)：'+str(tf,6,1)+'%'
endif



@ prow()+1,10 say replicate('━',55)
*@ prow()+1,100 say '接下页'
eject

set device to scre
retu


*@ i+7,5 say '样品编号： ' + BH
*@ i+8,5 say '样品名称： '+ name
*@ 33,5 say '进样次数： '+ str(cs)+'次'




set device to scre
* set print off
return

太强了吧，虽然大学的时候也学过，而且考过了二级，但还是没有看看明白，惭愧

感谢分享，我还是不专业看不懂！

真的很羡慕你!

能否给点点诚意。。。。