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

今年年初编了一个程序，用于计算26种脂肪酸中6 种反式脂肪酸的含量，就算是个初步的应用程序。在FOXPRO程序下面用。。

有了简单的菜单，加了两个数据库，可以完成以下功能：

1。输入样品信息和各峰面积，如样品编号，名称，送样日期，检测日期及当天的温湿度，这些是为了打印原始记录的。峰面积是用于计算结果的。这样，数据可以长期积累，并留将来分析。

2。输入的数据可以都进行修改，并加了一些容错设置。

3。可以打印出正式的原始记录，一共是4 份，16K的纸。这样就不用辛辛苦苦地去写记录了，也不用担心算错结果了，也不用担心记录单丢了。

功能基本上算是全了，就是没有加界面，没时间了。。以后有空再说吧。

两个数据库(fat.dbf，huanjin.dbf)的结构我放在主程序FAT.PRG 的最下面。

程序分4 个。主程序FAT.PRG ，子程序为FATMENU1.PRG ，FATMENU2.PRG ，FATMENU4.PRG

程序如下：

主程序FAT.PRG

clos all
set talk off
set device to scre
set path to d:\自己编的程序
* 反式脂肪酯计算程序

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

do while .t.
clea

@ 4,25 say ' 反式脂肪酯计算程序 (共26 种) '
@ 5,6 say replicate('-',115)
@ 9,6 say replicate('-',115)
@ 7,8 prompt '1:输入新样品数据'
@ 7,32 prompt '2:修改旧数据'
@ 7,52 prompt '3:查看结果 '
@ 7,72 prompt '4:打印记录 '
@ 7,92 prompt '5:退出 '
menu to myxz

do case

case myxz=1
do fatmenu1
case myxz=2
do fatmenu2
case myxz=3
*--------------------------------------------------------

bh1=space(8)

@ 15,16 say replicate('-',55)
@ 13,15 say ' 3----查看结果 '
@ 18,15 say '样品编号： ' get BH1

* @ 23,15 say '进样次数： ' get cs
read
use fat
locate for bh=bh1
@ 28,15 say '样品编号：'+bh+space(8)+'样品名称： '+name+' 总甘油三酯的含量'+str(tf,6,2)+'%'

wait ''
use
*---------------------------------------------------------

* do fatmenu3
case myxz=4
do fatmenu4
case myxz=5
clea
clos all
return
endcase
enddo

retu

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

表结构: D:\自己编的程序\FAT.DBF
数据记录数: 1
最近更新的时间: 01/23/08
代码页: 936
字段 字段名 类型 宽度 小数位 索引 排序 Nulls
1 BH 字符型 8 否
2 NAME 字符型 10 否
3 CS 数值型 8 否
4 SYRQ 日期型 8 否
5 JYRQ 日期型 8 否
6 AREA1 数值型 8 否
7 AREA2 数值型 8 否
8 AREA3 数值型 8 否
9 AREA4 数值型 8 否
10 AREA5 数值型 8 否
11 AREA6 数值型 8 否
12 AREA7 数值型 8 否
13 AREA8 数值型 8 否
14 AREA9 数值型 8 否
15 AREA10 数值型 8 否
16 AREA11 数值型 8 否
17 AREA12 数值型 8 否
18 AREA13 数值型 8 否
19 AREA14 数值型 8 否
20 AREA15 数值型 8 否
21 AREA16 数值型 8 否
22 AREA17 数值型 8 否
23 AREA18 数值型 8 否
24 AREA19 数值型 8 否
25 AREA20 数值型 8 否
26 AREA21 数值型 8 否
27 AREA22 数值型 8 否
28 AREA23 数值型 8 否
29 AREA24 数值型 8 否
30 AREA25 数值型 8 否
31 AREA26 数值型 8 否
32 TF 数值型 5 2 否
** 总计 ** 256

表结构: D:\自己编的程序\HUANJIN.DBF
数据记录数: 0
最近更新的时间: 01/23/08
代码页: 936
字段 字段名 类型 宽度 小数位 索引 排序 Nulls
1 RQ 日期型 8 否
2 WENDU 字符型 2 否
3 SHIDU 字符型 2 否
** 总计 ** 13

****子程序 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

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