| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| i | | | |
| i1 | | | |
| Length | | | |
| Wide | | | |
| Bmp_pic | 字节集 | | |
| CountS | 整数型 | | |
| sample | 文本型 | | 0 |
| 数据量 | 整数型 | | |
| Line | | | |
| Output | 字节集 | | |
数据量 ＝ 0
计次循环首 (10, i
)
i1 ＝
文件_枚举 (取运行目录 () ＋
“\train\” ＋
到文本 (i － 1
) ＋
“\”,
“*.bmp”, sample, 真, ,
) 
如果真 (数据量 ＜ i1
)数据量 ＝ i1
计次循环尾 ()写配置项 (取运行目录 () ＋
“\config.ini”,
“train”,
“count”,
到文本 (数据量
))
计次循环首 (10, i
)CountS ＝
文件_枚举 (取运行目录 () ＋
“\train\” ＋
到文本 (i － 1
) ＋
“\”,
“*.bmp”, sample, 真, ,
)写配置项 (取运行目录 () ＋
“\config.ini”,
“bmp”,
“ncount” ＋
到文本 (i － 1
),
到文本 (CountS
))
计次循环首 (CountS, i1
)Bmp_pic ＝
读入文件 (sample
[i1
])计次循环首 (32, Length
)计次循环首 (32, Wide
)如果 (Bmp_pic
[3124 － Length × 96 ＋ Wide × 3
] ＝ 0
) 
Line ＝
__set_bit_on (Line, Wide － 1
) 
Line ＝
__set_bit_off (Line, Wide － 1
) 
计次循环尾 ()Output ＝ Output ＋
到字节集 (Line
)Line ＝ 0
计次循环尾 ()计次循环尾 ()计次循环尾 ()写到文件 (取运行目录 () ＋
“\train.dat”, Output
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 数据量 | 整数型 | | |
| 数据 | 逻辑型 | | 10,1,32,32 |
| Data | 字节集 | | |
| p | 整数型 | | |
| Length | 整数型 | | |
| Wide | 整数型 | | |
| pic_pro | 字节集 | | |
| n | 整数型 | | |
| Line | 整数型 | | |
| Number | 整数型 | | |
| Ncount | 整数型 | | |
| N_pic | 整数型 | | |
数据量 ＝
到整数 (读配置项 (取运行目录 () ＋
“\config.ini”,
“train”,
“count”,
))
重定义数组 (数据, 假, 10, 数据量, 32, 32
)Data ＝
读入文件 (取运行目录 () ＋
“\train.dat”)p ＝ 1
Line ＝ 1
计次循环首 (10, Number
)Ncount ＝
到整数 (读配置项 (取运行目录 () ＋
“\config.ini”,
“bmp”,
“ncount” ＋
到文本 (Number － 1
),
))
计次循环首 (Ncount, N_pic
)pic_pro ＝
取字节集中间 (Data, p, 128
)Line ＝ 1
p ＝ p ＋ 128
计次循环首 (32, Length
)n ＝
取字节集数据 (pic_pro,
#整数型, Line
)计次循环首 (32, Wide
)如果 (__query_bit (n, Wide － 1
))
数据
[Number
] [N_pic
] [Length
] [Wide
] ＝ 真
数据
[Number
] [N_pic
] [Length
] [Wide
] ＝ 假
计次循环尾 ()计次循环尾 ()计次循环尾 ()计次循环尾 ()
