作者BigGreenFly (好大只的绿色苍蝇)
看板Visual_Basic
标题[.NET] 有关在.net里使用matlab语言
时间Sat Aug 9 16:05:50 2008
请输入专案类型(网站专案或者应用程式专案)：
.net网站专案
问题内容：
在VB.net里面我是这样写的
matlab = CreateObject("matlab.application")
strMatLab = strMatLab & "clear(all)"
strMatLab = strMatLab & "clc()"
'strMatLab = strMatLab & "%载2007年资料 , 训练出模型"
strMatLab = strMatLab & "p=load('2007.txt');"
strMatLab = strMatLab & "t=load('2007_1.txt');"
strMatLab = strMatLab & "TestSamples=47;"
strMatLab = strMatLab & "p = p';"
strMatLab = strMatLab & "t = t';"
strMatLab = strMatLab & "[r,c]=size(p);"
strMatLab = strMatLab & "[pp,ps]=mapminmax(p);"
strMatLab = strMatLab & "fpp=pp(:,1:c-TestSamples);"
strMatLab = strMatLab & "[tt,ts]=mapminmax(t);"
strMatLab = strMatLab & "ftt=tt(:,1:c-TestSamples);"
strMatLab = strMatLab & "[trainp, validationp, testp]=dividevec(pp,tt,0.15, 0.05);"
strMatLab = strMatLab & "net = newff(minmax(pp),[30 60 1],{'tansig' 'softmax' 'purelin'});"
strMatLab = strMatLab & "net.trainParam.epochs=50;"
strMatLab = strMatLab & "net.trainParam.goal=0;"
strMatLab = strMatLab & "net=train(net, trainp.P,trainp.T, [], [], validationp, testp);"
strMatLab = strMatLab & "RpTest=sim(net,testp.P);"
strMatLab = strMatLab & "R = mapminmax('reverse',RpTest,ts);" '%预测值"
strMatLab = strMatLab & "T = mapminmax('reverse',testp.T,ts);"
strMatLab = strMatLab & "figure(1)" '%给一空白图"
'matlab.Execute(strMatLab)
'matlab.Execute("print( gcf, '-djpeg', 'c:\Test1')")
'strMatLab = strMatLab & "print( gcf, '-djpeg', 'c:\Test1')"
matlab.Execute(strMatLab)
'TextBox1.Text = matlab.Execute(strMatLab1)
'matlab.Execute("print( gcf, '-djpeg', 'c:\Test2')")
matlab.Quit()
matlab = Nothing
picturebox1.Image = New Bitmap("c:\Test1.jpg")
部分的程式我省略了
重点是我的图形跑不出来
不过这段程式放在matlab里面是确定可以跑出来的
我觉得可能是因为一开始前面load档案的时候读不到
希望有会的人可以帮我解答
也希望如果会的话可以顺便告诉我如何将matlab执行出来的数据存成档案
或是显示在.net画面上
感恩 谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.129.26.210