反式脂肪检测的原始记录打印程序

上一篇 / 下一篇  2013-11-04 20:35:01

上一篇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)'      
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 '收样日期:'+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
 

 


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

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

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)
 
eject

set device to scre
retu

 
set device to scre
* set print off
return 

 

 


TAG:

 

评分:0

我来说两句

显示全部

:loveliness::handshake:victory::funk::time::kiss::call::hug::lol:'(:Q:L;P:$:P:o:@:D:(:)

日历

« 2024-03-29  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 36561
  • 日志数: 146
  • 建立时间: 2008-06-19
  • 更新时间: 2020-02-24

RSS订阅

Open Toolbar