哼,VB的速度也是很牛逼的,VB很萌的,乃们不要再黑VB了
dd2010/07/17软件综合 IP:广东
今天特别高兴特别蛋疼,于是把mean shift花了2小时移植到VB上[我知道大部分时间我都在debug]

Mean Shift 算法 在XXXXXT上跑,320 x 240,跟踪窗口30 x 30,CPU T6570,内存2G,Win7

实时跟踪绰绰有余

ms1.png

虽然在下一秒……

ms3.png
+500  科创币    小俊    2010/07/17 优秀
来自:计算机科学 / 软件综合
53
已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
dd 作者
13年10个月前 IP:未同步
237039
放出代码

Public Class MeanShift

    Const HISTOGRAM_LENGTH As Integer = 4096

    Private imgWidth As Integer
    Private imgHeight As Integer

    Private trackWinWidth As Integer
    Private trackWinHeight As Integer
    Private currentX As Integer
    Private currentY As Integer

    Private currentHistogram(HISTOGRAM_LENGTH) As Double
    Private tempHistogram(HISTOGRAM_LENGTH) As Double

    ' ---------------------------------------------------

    Public Sub InitMeanShiftTracker(ByVal firstFrame() As Byte, ByVal frameWidth As Integer, ByVal frameHeight As Integer, _
                ByVal targetPosX As Integer, ByVal targetPosY As Integer, ByVal targetWidth As Integer, ByVal targetHeight As Integer)

        imgWidth = frameWidth
        imgHeight = frameHeight

        currentX = targetPosX
        currentY = targetPosY

        trackWinHeight = targetHeight
        trackWinWidth = targetWidth

    End Sub

    Public Function CalcHistogramSp(ByVal frame() As Byte, ByVal histogram() As Double) As Integer

        Dim pxValue As Integer = 0

        For i As Integer = 0 To HISTOGRAM_LENGTH
            histogram(i) = 0
        Next

        For j As Long = XXXXXXXx(0, currentY - trackWinHeight / 2) To Math.Min(currentY + trackWinHeight / 2, imgHeight - 1)
            For i As Integer = XXXXXXXx(0, currentX - trackWinWidth / 2) To Math.Min(currentX + trackWinWidth / 2, imgWidth - 1)

                Dim r As Integer = frame(j * imgWidth * 3 + i * 3) / 16
                Dim g As Integer = frame(j * imgWidth * 3 + i * 3 + 1) / 16
                Dim b As Integer = frame(j * imgWidth * 3 + i * 3 + 2) / 16

                histogram(Int(256 * r + 16 * g + b)) += 1

                pxValue += 1

            Next
        Next

        For i As Integer = 0 To HISTOGRAM_LENGTH
            histogram(i) /= pxValue
        Next

        Return pxValue

    End Function

    Public Function MeanShiftProcessSp(ByVal frame() As Byte)

        Dim weights(HISTOGRAM_LENGTH) As Double

        Dim newX As Double = 0.0
        Dim newY As Double = 0.0

        For i As Integer = 0 To HISTOGRAM_LENGTH

            If currentHistogram(i) > 0.0 Then
                weights(i) = tempHistogram(i) / currentHistogram(i)

            Else
                weights(i) = 0
            End If

        Next

        Dim sumOfWeights As Double = 0.0

        For j As Long = XXXXXXXx(0, currentY - trackWinHeight / 2) To Math.Min(currentY + trackWinHeight / 2, imgHeight - 1)
            For i As Integer = XXXXXXXx(0, currentX - trackWinWidth / 2) To Math.Min(currentX + trackWinWidth / 2, imgWidth - 1)

                Dim r As Integer = frame(j * imgWidth * 3 + i * 3) / 16
                Dim g As Integer = frame(j * imgWidth * 3 + i * 3 + 1) / 16
                Dim b As Integer = frame(j * imgWidth * 3 + i * 3 + 2) / 16

                Dim ptr As Integer = 256 * r + 16 * g + b

                newX += weights(ptr) * i
                newY += weights(ptr) * j

                sumOfWeights += weights(ptr)

            Next
        Next


        If sumOfWeights <> 0 Then

            currentX = Int(newX / sumOfWeights) + 0.5
            currentY = Int(newY / sumOfWeights) + 0.5

        End If

        Return Nothing
    End Function

    Public Function MeanShiftTrackProcess(ByVal frame() As Byte, ByVal frameNumber As Integer)

        If frameNumber = 0 Then
            XXXXXlcHistogramSp(frame, tempHistogram)
        Else

            Dim stopThreshold As Integer = 10
            Dim counter As Integer = 0

            While counter < stopThreshold
                XXXXXlcHistogramSp(frame, currentHistogram)
                Me.MeanShiftProcessSp(frame)
                counter += 1
            End While

            Me.DrawTrackBox(frame)

        End If

        Return Nothing
    End Function

    Public Sub DrawTrackBox(ByVal frame() As Byte)


        For i As Integer = currentX To Math.Min(imgWidth, currentX + trackWinWidth)

            frame(currentY * imgWidth * 3 + i * 3 + 0) = 0
            frame(currentY * imgWidth * 3 + i * 3 + 1) = 0
            frame(currentY * imgWidth * 3 + i * 3 + 2) = 255

            frame(Math.Min(imgHeight - 1, currentY + trackWinHeight) * imgWidth * 3 + i * 3 + 0) = 0
            frame(Math.Min(imgHeight - 1, currentY + trackWinHeight) * imgWidth * 3 + i * 3 + 1) = 0
            frame(Math.Min(imgHeight - 1, currentY + trackWinHeight) * imgWidth * 3 + i * 3 + 2) = 255
        Next

        For j As Integer = currentY To Math.Min(imgHeight - 1, currentY + trackWinHeight)

            frame(j * imgWidth * 3 + currentX * 3 + 0) = 0
            frame(j * imgWidth * 3 + currentX * 3 + 1) = 0
            frame(j * imgWidth * 3 + currentX * 3 + 2) = 255

            frame(j * imgWidth * 3 + Math.Min(imgWidth - 1, currentX + trackWinWidth) * 3 + 0) = 0
            frame(j * imgWidth * 3 + Math.Min(imgWidth - 1, currentX + trackWinWidth) * 3 + 1) = 0
            frame(j * imgWidth * 3 + Math.Min(imgWidth - 1, currentX + trackWinWidth) * 3 + 2) = 255
        Next
    End Sub

End Class
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
ltl
13年10个月前 IP:未同步
237045
VB就是渣!!!
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
dd作者
13年10个月前 IP:未同步
237049
引用第2楼ltl于2010-07-17 22:13发表的  :
VB就是渣!!!


欢迎来晒下限

嘛  反正mean shift算法我cpp  Delphi  vb三个版本都写过了,我有姿势我自嚎
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
startwood
13年10个月前 IP:未同步
237070
纯属无聊,往VB上移…………
不过VB在做小东西方面还是可以的,比CPP方便。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
insaneform
13年10个月前 IP:未同步
237073
顶楼主!debug的滋味就好象……
不懂VB的飘过……
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
blackiller
13年10个月前 IP:未同步
237075
问一下,mean shift 算法是什么呀,高手指教一下
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
noname剑人
13年10个月前 IP:未同步
237080
啥时候给移植到ASM上……
那个就崩了……
我到现在图像的API还没用过几个……
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
小俊
13年10个月前 IP:未同步
237088
话说大家写这类算法的时候好像都不习惯用多线程。。。那样大家的双核四核CPU实在是浪费了。。。

把这个代码改成多线程,说不定就把93那个CPP版给秒了。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
caoyuan9642
13年10个月前 IP:未同步
237092
还是觉得VB垃圾。。。
与其用VB不如学VC了。。。
最忍受不了的就是VB全局和局部变量Ms不能相同。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
startwood
13年10个月前 IP:未同步
237107
引用第8楼小俊于2010-07-17 22:45发表的  :
话说大家写这类算法的时候好像都不习惯用多线程。。。那样大家的双核四核CPU实在是浪费了。。。

把这个代码改成多线程,说不定就把93那个CPP版给秒了。

估计不行吧,T6570只有2Core,VB的效率不到CPP一半。LZ之所以得出VB牛的观点,是因为硬件够强。在Pentium M 1.6GHZ上可能CPP版的还能实时,VB版的就不行了。不信LZ把CPU调到1.6GHZ或更低看看。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
小俊
13年10个月前 IP:未同步
237110
引用第10楼startwood于2010-07-17 22:55发表的  :

估计不行吧,T6570只有2Core,VB的效率不到CPP一半。LZ之所以得出VB牛的观点,是因为硬件够强。在Pentium M 1.6GHZ上可能CPP版的还能实时,VB版的就不行了。不信LZ把CPU调到1.6GHZ或更低看看。


上i7,多核+超线程
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
dd作者
13年10个月前 IP:未同步
237125
那啥,我就是93

还有那啥,php天空中国 貌似乃上次折腾个取色都
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
warmonkey
13年10个月前 IP:未同步
239849
93能不能准确测量一下执行时间?可以做个参考比较
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
13年10个月前 IP:未同步
239859
取色没啥问题,问题在疼讯的那啥防外挂的东西,把它干掉游戏进不了,让他干不掉还是进不了。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
orichalcum
13年10个月前 IP:未同步
241956
VB6渣不代表XXXXXT渣,说后者渣几乎就是在说.net渣了吧
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
epi.clyce
13年10个月前 IP:未同步
241998
偷换概念

.NET Frame Work下啥都一样

你拿VB6试试 = =
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
13年10个月前 IP:未同步
242048
.net绝对渣
很多东西是不能要拖那么大个运行库的。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
orichalcum
13年10个月前 IP:未同步
242100
引用第17楼phpskycn于2010-07-28 15:23发表的  :
.net绝对渣
很多东西是不能要拖那么大个运行库的。。。


是啊,楼主这东西是就应该单独弄个单片机来做,拖个那么大的Win7干什么。
.NET现在还有多少需要装的?
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
93°
13年10个月前 IP:未同步
242104
引用第16楼clyce于2010-07-28 12:44发表的  :
偷换概念

.NET Frame Work下啥都一样

你拿VB6试试 = =


VB6不比XXXXXT慢,
啥都一样 要不要我用C#来一发指针试试?

引用第17楼phpskycn于2010-07-28 15:23发表的  :
.net绝对渣
很多东西是不能要拖那么大个运行库的。。。


下限帝自重啊,你知道java运行库多大不?现在还有人敢喷运行库?
在喷之前敢把自己的程序写好么?

绝对渣?敢到csdn上喷么?你知道XXXXXXt跑起来的速度跟php差不多甚至性能还要好一点么?你知道在对象使用,类库调用上,XXXXXXt的性能都远高于PHP吗?你知道除了文件复制操作之外,XXXXXXT在性能方面全面领先于PHP吗?
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
cwood
13年6个月前 IP:未同步
265985
回 10楼(startwood) 的帖子
何以见得?VB的速度是CPP的一半?
这人真是........
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
cwood
13年6个月前 IP:未同步
265986
回 6楼(blackiller) 的帖子
一种人脸跟踪算法
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
cwood
13年6个月前 IP:未同步
265987
回 1楼(dd) 的帖子
这代码还可以再优化
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
cwood
13年6个月前 IP:未同步
265988
回 9楼(caoyuan9642) 的帖子
你懂VB么?你懂VB么?你懂VB么?你懂VB么?你懂VB么?你懂VB么?你懂VB么?
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
krfantasy
13年6个月前 IP:未同步
266042
vb编这些可以拿来测试CPU的运算速度。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
krfantasy
13年6个月前 IP:未同步
266043
Re:回 10楼(startwood) 的帖子
引用第20楼cwood于2010-11-18 13:19发表的 回 10楼(startwood) 的帖子 :
何以见得?VB的速度是CPP的一半?
这人真是........


平常大概在CPP的1/10的样子。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
krfantasy
13年6个月前 IP:未同步
266044
引用第19楼93°于2010-07-28 18:02发表的  :


下限帝自重啊,你知道java运行库多大不?现在还有人敢喷运行库?
在喷之前敢把自己的程序写好么?

.......


反正VB和ASP都是垃圾,整体性能老化,这些都只适合小项目。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
krfantasy
13年6个月前 IP:未同步
266045
回 23楼(cwood) 的帖子
我懂,但是说实话VB适合学习,不适合项目
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
supercat
13年6个月前 IP:未同步
266058
嘛....用纯C的路过......用pthread乃至GLib写多线程程序还是很容易的~~~~
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
cjboy2008
13年6个月前 IP:未同步
267758
引用第28楼supercat于2010-11-18 22:32发表的  :
嘛....用纯C的路过......用pthread乃至GLib写多线程程序还是很容易的~~~~


我倒是没有直接用过pthread和GLib,都是用Qt封装的类。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
yangff
12年8个月前 IP:未同步
322677
VB运行效率确实渣这个没必要比较了,
VB、Basic、XXXXXT麻烦大家分清楚了再来说这三个家伙除了语法差不多以外根本不一样
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
婺源寻芳
12年8个月前 IP:未同步
323372
vb的速度不是問題。會寫的人可以加速到c的水平。
語法比較古董一些而已。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
riabox
12年8个月前 IP:未同步
323423
这东西真不是vb,是.net,XXXXXt != vb
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
dd作者
12年8个月前 IP:未同步
323424
谁能帮我把这贴删掉。。。 = -
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
x_uy_u_n
12年8个月前 IP:未同步
323426
为什么要删帖?算法才是关键吧,VB什么的都是工具.
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
wacke
12年8个月前 IP:未同步
323439
把运行时间和配置都会抓出来比比不就有结果了。我相信cpp肯定可以比vb快。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
wacke
12年8个月前 IP:未同步
323442
有兴趣的可以比比谁能优化的更快。再封装成库。这会有点作用。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
dd作者
12年8个月前 IP:未同步
323461
各位少侠请放过我吧。。。。我已经金盆洗手不干了 。。。我再也不敢了 Orz 我错了我不会写程序我是2B
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
x_uy_u_n
12年8个月前 IP:未同步
323665
[s:275]楼主不要这样,我觉得你很厉害.不要因为别人说什么而否定自己.
+1
科创币
潜水员
2011-09-23
你不懂楼主在卖萌我就不扣你分了。。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
ok520
12年7个月前 IP:未同步
331901
是的.楼主很强
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
shoiv
12年7个月前 IP:未同步
332362
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
celeron533
12年7个月前 IP:未同步
332453
vb虽然渣,但是开发小项目的速度很快
电脑忙一点,人轻松了
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
mewlex222
12年7个月前 IP:未同步
332702
哈哈   很好啊  可是还是喜欢cpp
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
自在的尘
12年6个月前 IP:未同步
336000
VB,VC,.Net,JAVA,C,各有所长,用的时候各取所需罢了
没必要否定哪个。
要性能的用C,要开发效率的用.net ,JAVA,简单易用就VB。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
LiuNianqiu
12年6个月前 IP:未同步
337304
楼主的研究很有意义啊,至少说明目前的配置VB也能做人脸,毕竟产生价值的是最后的产品,语言只是工具而已,就像普通螺丝刀和电动螺丝刀,都不过是扭扭螺丝罢了
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
婺源寻芳
12年6个月前 IP:未同步
337600
vb的问题并不在速度。而在语法。

比尔盖茨原先就是做basic的。操作系统是他花五万美元买来的。

所以basic 是比尔盖茨的初恋情人,也导致微软被这语言绑住。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
csakura
12年5个月前 IP:未同步
343405
引用第19楼93°于2010-07-28 18:02发表的  :


下限帝自重啊,你知道java运行库多大不?现在还有人敢喷运行库?
在喷之前敢把自己的程序写好么?

.......



CSDN远不如多年前的,就剩下几个完全为了拯救CSDN而存在的回答专家。
回答质量远不如SO,社区凝聚度远不如iteye等。

对于java、还是.net很难一概而论,java和.net都可以移植到arm7这类只有几百K内存、主频只有几十M的CPU上进行裸奔。
而VB确实是个过时的东西,XXXXXT和VB不是同一个东西。对于语言来说,光调调系统接口,直接访问下内存没多大的意义。

现在的语言发展是如何快速解决软件工程上的问题,所以新语言都拥有很多快速开发的新特性,例如:闭包、函数式编程、模块、自省等等。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
矩阵员
10年10个月前 IP:未同步
548696
楼主你好:我觉得你在编程方面有一定的功力了,你发表这贴子,可能只是闲暇之余好玩的,我也用过VB,觉得还可以。VB只是工具而已,和C# C++ JAVA一样仅仅是工具,要怎样用还是要看使用的人,这个VB是微软的起家产品!VB刚出来时不知道楼上说VB是渣的人在干什么! 51单片机问世要几十年了吧!可还有人在用,不是它慢,而是它可以用,更说明设计51的人和思想是多么的经典,所以不能以以速度快慢来衡量VB,而是你了解VB多少!我想说那些说“VB是渣”的人,你运的运算速度比VB如何,难道。。。。。。。
+1
科创币
相对论万岁
2013-07-16
坟贴看看就好,不要挖了!
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
流星街
10年10个月前 IP:未同步
548817
楼主我不是很熟悉编程,但是知道VB的程序对支持库的依赖很严重,自己写程序自己用还好,发给其他人就往往运行时缺少某必要的XX库而出错,并且好像极其容易在网络操作一块出现各种错误(不知道是编程者对VB不够精通还是VB本身有些缺陷),另外看到很多大牛都喷VB说这是微软想要垄断整个软件行业而提供了大量封装好的库和API来简便操作吸引程序设计者成为一种基础编程软件(表述好像有问题)。。。。不过都去ASM似乎也不现实,不过现在不少软件采取多种混合,C的驱动,D的界面,VB的DLL。。。。各有优势,看什么人用以及用在什么地方吧,,,我这个水平的也就是玩玩易语言糊弄小孩子,不过真心感觉易语言跟C++像。。。。
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
celeron533
10年10个月前 IP:未同步
548873
回 48楼(流星街) 的帖子
.Net以后,装完framework就直接跑
易语言真的死掉了,官网已经很久没更新
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论
phpskycn
10年10个月前 IP:未同步
548875
回 48楼(流星街) 的帖子
VB6可以直接编译,不需要RTL了,而且VB6也是最后一个不需要.net的版本……
引用
评论
加载评论中,请稍候...
200字以内,仅用于支线交流,主线讨论请采用回复功能。
折叠评论

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

所属专业
上级专业
同级专业
dd
学者 笔友
文章
44
回复
347
学术分
1
2006/10/31注册,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)}}