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