【OCR】简单的做法 [VB.NET CODE]
算法:

函数输入
1  二维数组
2  宽度
3  高度
4  水平切分数
5  垂直切分数

返回
一串特征码

第二个是对比函数

输入

1  采集到的特征码
2  数据库中的特征码

返回

0~1之间的浮点数 表示相似度

代码如下:

Public Class RFReco

    Public Function GetRecoStr(ByVal PicIn(,) As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal xF As Integer, ByVal yF As Integer) As String
        Dim RecoString As String = ""
        Dim i, j As Integer
        Dim Tmp As Integer
        Dim xStep, yStep As Integer
        xStep = X / xF
        yStep = Y / yF
        For i = 1 To X - 1 Step xStep
            For j = 1 To Y - 1 Step yStep
                If PicIn(i, j) = 1 Or PicIn(i + 1, j) = 1 Or PicIn(i - 1, j) = 1 Or PicIn(i, j - 1) = 1 Or PicIn(i, j + 1) = 1 Or PicIn(i + 1, j + 1) = 1 Or PicIn(i - 1, j - 1) = 1 Then
                    RecoString = RecoString + "1"
                Else
                    RecoString = RecoString + "0"
                End If
            Next

            Tmp = 0
        Next
        Return RecoString
    End Function

    Public Function RecoLike(ByVal StrIn As String, ByVal DBStr As String) As Double

        Dim Reco, recoi, i As Integer
        Dim Result As Double
        Reco = StrIn.Length - 1
        For i = 1 To Reco
            If StrIn.Chars(i) = DBStr.Chars(i) Then
                recoi += 1
            End If
        Next
        Result = recoi / Reco
        Return Result

    End Function

End Class
来自:计算机科学 / 软件综合
 
2009-6-21 11:01:43
93°(作者)
1楼
运行结果 (当然有连接SQL的

ocr.PNG
折叠评论
加载评论中,请稍候...
折叠评论
2009-6-21 11:27:23
93°(作者)
2楼
sqlasd.PNG
折叠评论
加载评论中,请稍候...
折叠评论
3楼
小伙很强大
当时俺一看其中需要的数学知识,俺就知道自己玩不了
折叠评论
加载评论中,请稍候...
折叠评论
4楼
引用楼主93°于09-06-21 10:42发表的 【OCR】简单的做法 [VB.NET CODE] :

算法:

函数输入
1  二维数组
2  宽度
3  高度
4  水平切分数
5  垂直切分数
.......


请用示意图解释参数含义,不然就只有我围观了
折叠评论
加载评论中,请稍候...
折叠评论
5楼
厉害啊 [s:251]  [s:251]
折叠评论
加载评论中,请稍候...
折叠评论
6楼
做竞猜吧
折叠评论
加载评论中,请稍候...
折叠评论
93°(作者)
7楼
蓝线个数分别代表xf和yf ocrs.png
+391  科创币    delete   2009-06-21    稍详
折叠评论
加载评论中,请稍候...
折叠评论

想参与大家的讨论?现在就 登录 或者 注册

93°
学者 笔友
文章
651
回复
6032
学术分
30
2007/04/10注册,2 年前活动
暂无简介
插入资源
全部
图片
视频
音频
附件
全部
未使用
已使用
正在上传
空空如也~
上传中..{{f.progress}}%
处理中..
上传失败,点击重试
{{f.name}}
空空如也~
(视频){{r.oname}}
{{selectedResourcesId.indexOf(r.rid) + 1}}
插入表情
我的表情
共享表情
Emoji
上传
注意事项
最大尺寸100px,超过会被压缩。为保证效果,建议上传前自行处理。
建议上传自己DIY的表情,严禁上传侵权内容。
点击重试等待上传{{s.progress}}%处理中...已上传
空空如也~
草稿箱
加载中...
此处只插入正文,如果要使用草稿中的其余内容,请点击继续创作。
{{fromNow(d.toc)}}
{{getDraftInfo(d)}}
标题:{{d.t}}
内容:{{d.c}}
继续创作
删除插入插入
{{forum.displayName}}
{{forum.countThreads}}
篇文章,
{{forum.countPosts}}
条回复
{{forum.description || "暂无简介"}}
ID: {{user.uid}}
学术分隐藏
{{submitted?"":"投诉"}}
请选择违规类型:
{{reason.description}}
支持的图片格式:jpg, jpeg, png