实战宝典 原创大赛 仪器问答 仪友会 总帖：8043225今日发帖：456 我的社区 签到
快速导航 采购仪器 提醒
气相色谱（GC）
版主:
入住本版
专家:
居民列表

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

浏览0 回复38 电梯直达
胖丁丁
头像
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
发表于：2008/05/30 22:40:23 楼主 管理 分享 倒序浏览 只看楼主 回复 私聊
该帖子已被lianlxh设置为精华；
今年年初编了一个程序，用于计算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
为您推荐
近期热榜
热门活动
您可能想找: 气相色谱仪(GC) 询底价
选参数 看心得 找厂商 查方案
专属顾问快速对接
立即提交
可能感兴趣
胖丁丁
zhongyuetong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/5/30 22:45:27 沙发 管理 分享 倒序浏览 只看楼主 回复 私聊


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

赞贴
0
收藏
0
拍砖
0
举报
胖丁丁
zhongyuetong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/5/30 22:46:54 板凳 管理 分享 倒序浏览 只看楼主 回复 私聊

***  第二个子程序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
赞贴
0
收藏
0
拍砖
0
举报
胖丁丁
zhongyuetong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/5/30 22:50:25 马扎 管理 分享 倒序浏览 只看楼主 回复 私聊

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

赞贴
0
收藏
0
拍砖
0
举报
胖丁丁
zhongyuetong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/5/30 22:52:34 地毯 管理 分享 倒序浏览 只看楼主 回复 私聊

*********** 真是泪奔，居然一次不能超过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

赞贴
1
收藏
0
拍砖
0
举报
胖丁丁
zhongyuetong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/5/30 22:53:11 地板 管理 分享 倒序浏览 只看楼主 回复 私聊



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

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

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


赞贴
1
收藏
0
拍砖
0
举报
立静致远
christe
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/5/31 20:14:55 6楼 管理 分享 倒序浏览 只看楼主 回复 私聊
太强了吧，虽然大学的时候也学过，而且考过了二级，但还是没有看看明白，惭愧
赞贴
0
收藏
0
拍砖
0
举报
sunchangshun
sunchangshun
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/6/1 0:29:42 7楼 管理 分享 倒序浏览 只看楼主 回复 私聊
感谢分享，我还是不专业看不懂！
赞贴
0
收藏
0
拍砖
0
举报
小余儿
ywl168
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/6/1 11:34:05 8楼 管理 分享 倒序浏览 只看楼主 回复 私聊
真的很羡慕你!
赞贴
0
收藏
0
拍砖
0
举报
胖丁丁
zhongyuetong
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/6/1 15:59:52 11楼 管理 分享 倒序浏览 只看楼主 回复 私聊
原文由 hbzjkyl 发表:
赚分来了。。。。。。。


能否给点点诚意。。。。
赞贴
1
收藏
0
拍砖
0
举报
Binge82
Binge82
结帖率：
100%
关注：0 |粉丝：0
新手级： 新兵
2008/6/2 12:43:08 12楼 管理 分享 倒序浏览 只看楼主 回复 私聊
好久好久以前，曾经有一个胖丁丁老师在论坛上教给我很多很多专业的知识。

这个胖丁丁老师是以前的那一个吗？

呵呵，应该是的，曾经看到过胖老师分享过一个计算不确定度的程序……

真诚的问胖老师好，还有以前的cation老师。

我仍然是一个无名小辈，但我感谢各位老师让我在论坛上有如此好的学习机会！！继续努力！
赞贴
0
收藏
0
拍砖
0
举报
手机版： 【胖记原创】反式脂肪酸的计算程序(26种)
猜你喜欢最新推荐热门推荐更多推荐
头像
高级回复 发表评论
品牌合作伙伴
岛津
日立科学仪器
珀金埃尔默仪器（上海）有限公司（PerkinElmer）
日本电子株式会社
丹纳赫
安捷伦
赛默飞世尔科技
普析通用
欧波同
天美
天瑞仪器
德国耶拿
海能技术
马尔文帕纳科
磐诺科技
上海仪电科仪
梅特勒托利多
聚光科技
莱伯泰科
盛瀚
多宁生物
丹东百特
科哲
卓立汉光
屹尧科技
华谱科仪
宝德仪器
优莱博
HORIBA
布鲁克核磁