【OCR】简单的做法 [XXXXXT CODE]
93°2009/06/21软件综合 IP:广东
算法:

函数输入
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 XXXXXXXXars(i) = XXXXXXXXars(i) Then
                recoi += 1
            End If
        Next
        Result = recoi / Reco
        Return Result

    End Function

End Class
来自:计算机科学 / 软件综合
8
 
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
93° 作者
14年11个月前 IP:未同步
111870
运行结果 (当然有连接SQL的

ocr.png
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°作者
14年11个月前 IP:未同步
111876
sqlasd.png
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
adeng2002
14年11个月前 IP:未同步
111892
小伙很强大
当时俺一看其中需要的数学知识,俺就知道自己玩不了
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
novakon
14年11个月前 IP:未同步
112023
引用楼主93°于09-06-21 10:42发表的 【OCR】简单的做法 [XXXXXT CODE] :

算法:

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


请用示意图解释参数含义,不然就只有我围观了
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
氕氘氚
14年11个月前 IP:未同步
112039
厉害啊 [s:251]  [s:251]
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
adeng2002
14年11个月前 IP:未同步
112074
做竞猜吧
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°作者
14年11个月前 IP:未同步
112145
蓝线个数分别代表xf和yf ocrs.png
+391
科创币
delete
2009-06-21
稍详
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

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

所属专业
上级专业
同级专业
93°
学者 笔友
文章
651
回复
6032
学术分
30
2007/04/10注册,6年3个月前活动
暂无简介
主体类型:个人
所属领域:无
认证方式:邮箱
IP归属地:未同步
文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
支持的图片格式:jpg, jpeg, png
插入公式
评论控制
加载中...
文号:{{pid}}
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}