VB调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
; U  F& M+ y, ?+ x1 h* v; \8 }% Sstr1 = "a=load('" & Text1.Text & "');"
$ X/ W8 C* X) r; k) D) O- }' sEnd Sub
. t( @8 E/ u/ R/ z. MPrivate Sub Command2_Click()
Dim matlab As Object
9 p6 P2 ^3 l/ i! ~- t1 NSet matlab = CreateObject("Matlab.application")
Clipboard.Clear
matlab.Execute ("n(5)=0;")
matlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
# o% l1 L% [  E) E+ A7 b' Z: omatlab.Execute ("for i=1:1:m")
matlab.Execute ("if abs(b(i))>100")
matlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
* }3 |9 b8 `6 X7 Y$ z  s2 Zmatlab.Execute ("n(2)=n(2)+1;")
$ f9 ]4 T" P, D  pmatlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
8 f! |3 j5 V8 g6 g% G4 h" ?' Kmatlab.Execute ("n(3)=n(3)+1;")
9 t& a! ~( v7 a- O7 I$ pmatlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
. ?% ?# i5 f: a- |* v' Vmatlab.Execute ("n(4)=n(4)+1;")
/ y/ N$ R! ^/ r& o( Umatlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
- T7 t( T7 s. h" B+ s& }" _matlab.Execute ("n(5)=n(5)+1;")
matlab.Execute ("end")
matlab.Execute ("end")
matlab.Execute ("set(gcf,'visible','off'),pie(n);legend('100KA 以上','50.8-100KA','15.8-50.8KA','10.1-15.8KA','0-10.1KA',-1);")
& S! T0 p/ w' n, Y2 \8 [6 ]matlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
+ J, Z) S/ M5 ]8 d+ _" IPicture1.Picture = Clipboard.GetData()
End Sub
4 m: v) M! D6 _% Y
/ |7 {& e2 R; U; K! w

求朋友们指点一下，为什么出的图是错的。。

1345389794

································
7 A2 h) I/ \  f" y) j" z1 K

1345389794

好厉害！！！！！！！！！！！！