23
Jan

2013年1月23日星期三

   Posted by: 魏延   in 未分类

新的一天又开始了,但久违的太阳呢?说好的太阳呢?
一早就来到了实验室,首先要解决的是选择法排序问题。
我又小看程序了!
使不使用排序可以在后面测试。

22
Jan

2013年1月22日星期二

   Posted by: 魏延   in 未分类

尼玛,太慢了,到现在都没有运行得出结果,看来不能将所有度量点都放进去,那就选一部分吧,但如何取舍呢?
最后选取了六个常用的度量点进行了测试,结果不是太明显。
下午跟老板交流了一下,发现还有不少需要调整的地方,希望本次实验能够成功。
晚上的程序写得很不顺利,看来今晚只能带着错误回去休息了,养精蓄锐后,明天卷土重来!杀呀,冲啊……

21
Jan

2013年1月17日星期四

   Posted by: 魏延   in 未分类

今天的第一件事还是完成图像化的存储问题。
Dim image As New Bitmap(100, 100)
Dim gr As Graphics = Graphics.FromImage(image)
gr.DrawRectangle(Pens.Blue, 10, 10, 80, 80)
gr.Dispose()
image.Save(“C:\g.bmp”)
image.Dispose()
终于存储成功了,不容易噢,接下来就是改善这些图吧!

又来新问题了。
本来想增加一个保存文件的对话框,但怎么也保存不进去。
比如我们直接写image.Save(“C:\g.bmp”)是没有问题的,但加上以下代码后,文件是建立了,里面却始终是空的。

Dim image As New Bitmap(100, 100)
Dim gr As Graphics = Graphics.FromImage(image)
gr.DrawRectangle(Pens.Blue, 10, 10, 80, 80)
gr.Dispose()
Dim mystream As System.IO.Stream
SaveFileDialog1.InitialDirectory = “D:\”
SaveFileDialog1.Filter = “图像文件(*.bmp)|*.bmp|所有文件(*.*)|*.*”
SaveFileDialog1.Title = “保存图像结果”
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
mystream = SaveFileDialog1.OpenFile()
If Not (mystream Is Nothing) Then
image.Save(mystream.ToString)
End If
End If
‘ image.Save(“C:\g.bmp”)
image.Dispose()

21
Jan

2013年1月16日

   Posted by: 魏延   in 未分类

  vB.net在画完图像显示之后,截图的时候只要一碰shift键,图像就会消失。而截图取活动窗口又不得不用SHIFT+PRSCRN键。截图经常失败,
In earlier versions of Visual Basic, you use SavePicture to save an image into a file. SavePicture is missing from VB .NET so you need some other method.
This program starts by calculating the name of the file to open. It assumes it is running from the bin directory inside the main project directory that holds the target image file. It uses LastIndexOf to find “\bin” in the executable’s directory, uses Substring to remove the end of the path, and adds on the file’s name.
Next the program creates a new Bitmap object, passing its constructor the file’s name. That loads the file into the Bitmap object. The program then calls the Bitmap object’s Save method three times to save the file as bitmap, JPEG, and GIF files.

‘ Save the picture.
Private Sub btnSavePicture_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) Handles _btnSavePicture.Click
‘ Compose the picture’s base file name.
Dim file_name As String = Application.ExecutablePath
file_name = file_name.Substring(0, _file_name.LastIndexOf(“\bin”)) & _”\test.”
‘ Get a Bitmap.
Dim bm As Bitmap = picImage.Image
‘ Save the picture as a bitmap, JPEG, and GIF.
bm.Save(file_name & “bmp”, _
System.Drawing.Imaging.ImageFormat.Bmp)
bm.Save(file_name & “jpg”, _
System.Drawing.Imaging.ImageFormat.Jpeg)
bm.Save(file_name & “gif”, _
System.Drawing.Imaging.ImageFormat.Gif)
MsgBox(“Ok”)
End Sub

This example saves the image as a bitmap, JPEG, and GIF but the Save method can save images in many other formats. The allowed formats are Bmp, Emf, Exif, Gif, Icon, Jpeg, MemoryBitmap, Png, Tiff, and Wmf.
上面讲的方案在我机器上并不可行,系统会提示没有picImage.

在VB.NET下面如何显示和保存缩放图像,用到Image和Graphics类,在VSDotNet2K3下面Reference里自动添加了引用System.Drawing,直接用就行。实现代码如下:Dim img As Image = Image.FromFile(“D:/Image/tstImage.jpg”) ‘tstImage是原先的图片Dim grfx As Graphics = Me.CreateGraphicsgrfx.DrawImage(img, 0, 0, img.Width * 3, img.Height * 3) ‘在Form里显示Dim imgnew As New System.Drawing.Bitmap(img, img.Height * 3, img.Width * 3) ‘新建一个放大的图片imgnew.Save(“D:/Image/tstNewImage.jpg”, System.Drawing.Imaging.ImageFormat.Jpeg) ‘保存放大后图片你可以建一个Form,然后在Form里拖进一个Button,把上面的代码放在Button_Click事件里面,执行就行了。对上面代码的解释:1.要获取Graphics对象只能从某一事件的参数中获取或者使用窗体和控件对象的CreateGraphics方法来获取—–上面代码使用Me.CreateGraphics来引用这个对象。2.加载一个图片用Image类的FromFile或者FromStream方法3.用DrawImage来显示一个图片,该方法有30多个重载方法,可以查MSDN了解细节。4.保存时的一个问题:我们必须先建一个对象,用于存缩放图像。保存时图像格式只能用System.

21
Jan

2013年1月21日星期一

   Posted by: 魏延   in 未分类

新的一周,在浑浑噩噩中度过,正想不通接下来该如何面对时,突然想,为何不将所有度量点合起来进行投票排序呢,看看该结果是否比SLOC会好一些,如果要否定这种方案,那就将其毁三观吧!

14
Jan

2013年1月14日星期一

   Posted by: 魏延   in 未分类

我现在要验证的是:增加了投票排序后,效果比增加前有提高吗?
我最不愿意看到的两者完全重合,却冷酷地出现了。嘲!!!

9
Jan

2013年1月9日星期三

   Posted by: 魏延   in 未分类

新的一天开始了。虽然天气预报天天报雨或雨雪或雪,事实却是天天阳光明媚。兄弟们就开始调侃,说晴天报成雨雪天气是没有责任的,但将恶劣天气报成大晴天却是会有损失的。或许,天气报告也该科学地给个概率,雨雪可能性的概率。
来到实验室,开始看转移学习方面的论文,脑子中不自觉的还是会出现我做的那个程序。既然一页显示不下近8000个数据的图像资料,我何不将他们整理一下,10个为一组地进行显示呢,只要他们有单调性就可以证明了呀。另外,为了不让别人认为我是个外行,的确需要把ROC曲线法拿来用一下。

8
Jan

2013年1月8日星期二

   Posted by: 魏延   in 未分类

昨天的实验数据一团糟,出来的结果像是漫天繁星。
面对打击,想了一个晚上,也在自我解嘲说:实验是不可能一次就成功的。今天来了,首先找到了一个非常严重的程序错误。但这种逻辑错误,我感觉用软件度量貌似是弄不出来的。我在程序中用了冒泡排序,但里面的循环量写错了。
结果依然让人沮丧,我想下面我需要的是一个可以衡量度量结果的方案。
先冷处理一下,看一会老板新给的论文吧:A Survey on Transfer Learning。

6
Jan

2013年1月6日星期日

   Posted by: 魏延   in 未分类

成功将EXCEL数据读入到数组中。
一个EXCEL中不能打开两个worksheet吗?比如:
Dim myE As Excel.Application = New Excel.Application
Dim myworks As Excel.Workbook = myE.Workbooks.Open(“d:\1.xls”)
Dim mysheet As Excel.Worksheet = myworks.Worksheets(1)
  Dim actsheet As Excel.Worksheet = myworks.Worksheets(2)
执行必错,错误为“无效索引”。
另外,EXCEL横向的列是有限制的,几千是没法达到的,所以,我要建一个大矩阵直接往EXCEL里存放,是做不到的。
EXCEL2003最大列数是256列(IV列),最大行数为65536行EXCEL2007以上的版本最大列数是16384列,最大行数为1048576行

算法运行成功,congratulation!
下面等结果吧!

6
Jan

2013年1月5日星期六

   Posted by: 魏延   in 未分类

我不能再用一知半解求得自信满满,其实我研究的东西世界上没有,但却用它来解释世界。这就如同说,梦肯定比时间快,因为她能梦到一生。