采用程序语言方法实现棉花主体颜色级的快速判断.docVIP

采用程序语言方法实现棉花主体颜色级的快速判断 　　摘要： 　　棉花颜色级取代棉花品级后，主体颜色级的判断比较复杂。本文通过对主体颜色级定义的理解，厘清逻辑关系，编制出了delphi程序，能够准确无误地作出判断。 　　关键词：棉花；主体颜色级；delphi 　　棉花新标准GB 1103.1―2012《棉花 第1部分：锯齿加工细绒棉》已于2013年9月1日实施。标准最大的变化是锯齿细绒棉棉花颜色级取代以往棉花品级检验。由以往棉花品级7级分为现在标准的颜色级4个类型共13个颜色级。4个类型分别为白棉、淡点污棉、淡黄染棉和黄染棉，其中白棉分为4个级，淡点污棉和淡黄染棉分为3个级，黄染棉2个级。标准变化由以往的各品级线性分布到现在的各颜色级图谱平面性分布。 　　新标准主体颜色级定义为：按批检验时，占有80%及以上的颜色级，其余颜色级仅与其相邻，且类型不超过2个、级别不超过3个。2007年标准主体品级定义为：按批检验时，占有80%及以上的品级，其余品级仅与其相邻。可以看出主体颜色级判断比主体颜色级判断要麻烦得多，品级检验时检验人员可以非常容易地判断出主体品级，但改为颜色级后，要快速判断出主体颜色级变得非常困难。如果能够用计算机程序语言实现主体颜色级的快速判断将会提高工作效率，降低劳动强度。 　　1 实现方法 　　在判断一个检验批中是否有主体颜色级时，根据定义首先要判断有80%级以上的颜色级，再判断类型是否不超过2个、级别不超过3个，再判断其他级与其相邻。当条件都满足时，该级即为此检验批主体颜色级。下面以delphi语言为例，实现各条件判断过程。 　　2 实现过程 　　2.1 定义变量： 　　Var s，s1，Ys， Jb， Zhutiysj：string； 　　Bfb：real； 　　Jb：integer； 　　S：=’’；//颜色级代号值赋值此变量。 　　Ys：=’’；//各颜色级代号汇总。 　　Jb：=0；//颜色级别个数。 　　Bfb：=0；//颜色级值百分比赋值此变量。 　　Zhutiysj：=’’；//主体颜色级代号。 　　S1：=’’； 　　2.2 颜色级占80%及以上判断 　　if （Bfb）and （Bfb0） then 　　if （strtofloat（Bfb）=80） then Zhutiysj：=s；//比例超过80%及以上，判有主体。 　　2.3 类型与级别判断 　　If s’’then 　　Begin 　　Ys：=Ys+s； 　　Jb：=Jb+1；//级别数统计。 　　if （pos（copy（s，2，1），s1）=0）//类型代号不在s1中。 　　then s1：=S1+copy（s，2，1）； //类型合并到S1。 　　End； 　　2.4 相邻级判断 　　相邻级判断相对较为复杂，也是实现准确判断的关键性步骤。此功能以函数形式实现。 　　Function ZhuTiXiangLing（ztysj：string；ysj：string）：Boolean；//ysj颜色级是否与ztysj颜色级相邻。 　　Begin 　　Result：=false； 　　case strtoint（ztysj） of 　　11： if pos（ysj，12，21 ）0 then Result：=True； 　　21： if pos（ysj，12，11，31 ）0 then Result：=True； 　　31： if pos（ysj，12，22，21，41 ）0 then Result：=True； 　　41： if pos（ysj，22，32，31，51 ）0 then Result：=True； 　　51： if pos（ysj，32，41 ）0 then Result：=True； 　　12： if pos（ysj，11，21，31，13，22，23 ）0 then Result：=True； 　　22： if pos（ysj，31，41，23，12，32，13，33 ）0 then Result：=True； 　　32： if pos（ysj，41，51，33，22，23 ）0 then Result：=True； 　　13： if pos（ysj，12，14，23，22 ）0 then Result：=True； 　　23： if pos（ysj，22，14，13，33，24，12，32 ）0 then Result：=True； 　　33： if pos（ysj，32，24，23，22 ）0 then Result：=True； 　　14： if pos（ysj，13，23，24 ）0 then Result：=True