Team:Valencia/PruebaDocs2

From 2009.igem.org

(Difference between revisions)
Line 8: Line 8:
Dim Result As String
Dim Result As String
-
Dim vector_f() As Double
 
-
ReDim vector_f(Val(Combo1.Text))
 
-
 
-
For i_captura = 1 To CDbl(Combo1.Text)
 
-
    vector_f(i_captura) = CDbl(VSFlexGrid2.TextMatrix(i_captura, 1))
 
-
Next i_captura
 
Set MatLab = CreateObject("Matlab.Application")
Set MatLab = CreateObject("Matlab.Application")
-
 
+
Result = MatLab.Execute("max(5,6)")
-
Call MatLab.Putworkspacedata("a", "base", vector_f) ' aqui se traspasa la variable
+
-
Result = MatLab.Execute("plot(a)")
+
-
Result = MatLab.Execute("whitebg('k')")
+
-
Result = MatLab.Execute("axis('auto')")
+
End Sub
End Sub

Revision as of 17:16, 13 August 2009

Retrieved from "http://2009.igem.org/Team:Valencia/PruebaDocs2"