【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
折叠评论
加载评论中,请稍候...
折叠评论
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    稍详
折叠评论
加载评论中,请稍候...
折叠评论

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

插入资源
全部
图片
视频
音频
附件
全部
未使用
已使用
正在上传
空空如也~
上传中..{{f.progress}}%
处理中..
上传失败,点击重试
{{f.name}}
空空如也~
(视频){{r.oname}}
{{selectedResourcesId.indexOf(r.rid) + 1}}
ID:{{user.uid}}
{{user.username}}
{{user.info.certsName}}
{{user.description}}
{{format("YYYY/MM/DD", user.toc)}}注册,{{fromNow(user.tlv)}}活动
{{submitted?"":"投诉"}}
请选择违规类型:
{{reason.description}}
支持的图片格式:jpg, jpeg, png