生物导航网博客欢迎您......


<<  < 2008 - 11 >  >>
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30


公告
生物导航网博客欢迎您......

我的分类(专题)
生物导航网博客欢迎您......

日志更新
生物导航网博客欢迎您......

最新评论
生物导航网博客欢迎您......

留言板
生物导航网博客欢迎您......

链接

Blog信息
生物导航网博客欢迎您......







我用Image pro plus5.1计算cluster数和INTENSITY的一段macro代码
thinker 发表于 2005-11-10 19:21:00
Sub SNP()
'<c>Q
 ret = IpBlbEnableMeas(BLBM_ALL, 0)
 ret = IpBlbEnableMeas(BLBM_AREAPOLY, 1)
 ret = IpBlbSetFilterRange(BLBM_AREAPOLY, 1, 40)
 ret = IpBlbEnableMeas(BLBM_IOD, 1)
 ret = IpBlbMeasure()
 ret = IpSegShow(1)
 ret = IpSegSetAttr(SETCURSEL, 0)
 ret = IpSegSetAttr(CHANNEL, 0)
 ret = IpSegPreview(CURRENT_C_T) 
 ret = IpSegSetRange(0, 0, 65280)
 ret = IpSegPreview(CURRENT_C_T)
 ret = IpSegSetRange(0, 1500, 65280)
 ret = IpSegPreview(CURRENT_C_T)
 ipICal(0) = 1500
 ipICal(1) = 65280
 ret = IpBlbMultiRanges(ipICal(0), 1)
 ret = IpSegShow(0)
 ret = IpBlbCount()
 ret = IpBlbUpdate(0)
 ret = IpBlbSaveData("",  S_HEADER+S_Y_AXIS+S_DDE)
End Sub

 简单的介绍下这段代码中一些主要的参数:

ret = IpBlbSetFilterRange(BLBM_AREAPOLY, 1, 200) 主要是用来限制点(CLUSTER)的面积大小,在1--200范围内的点才能被统计到.

ret = IpSegSetRange(0, 1500, 65280)  限制点的INTENSITY.

ret = IpBlbSaveData("",  S_HEADER+S_Y_AXIS+S_DDE) 把生成的统计结果自动导入到EXCEL中.

这一段代码用来批量分析cluster就方便多了.按快捷键(ctrl+Q)后能把分析到的数据直接自动导入到EXCEL(EXCEL要先打开,否则会出错).


阅读全文 | 回复(0) | 引用通告 | 编辑
 


  • 标签:image pro plus cluster 代码 
  • 发表评论:
    生物导航网博客欢迎您......



    Powered by Oblog.