chap1.bas

介绍一些matlab在数学方面的应用

Attribute VB_Name = "chap1"
Public Sub PutOnClipboard(str As Variant)
    Dim MyDataObj As New DataObject
    MyDataObj.SetText Format(str)
    MyDataObj.PutInClipboard
End Sub
Sub c1code1()
CR = Chr(13) + Chr(10)
PutOnClipboard ("syms x;" + CR + " f=sin(x)/(x^2+4*x+3);" + CR + " y4=diff(y,x,4)")
End Sub
Sub c1code2()
CR = Chr(13) + Chr(10)
PutOnClipboard ("syms x;" + CR + " f=sin(x)/(x^2+4*x+3);" + CR + " tic, y4=diff(y,x,100); toc")
End Sub
Sub c1code3()
CR = Chr(13) + Chr(10)
PutOnClipboard ("p=roots([1 9 135/4 135/2 1215/16 729/16 729/64])")
End Sub
Sub c1code4()
CR = Chr(13) + Chr(10)
PutOnClipboard ("A=[1 9 135/4 135/2 1215/16 729/16 729/64];" + CR + "p=roots(A); polyval(A,p(1))")
End Sub
Sub c1code5()
CR = Chr(13) + Chr(10)
PutOnClipboard ("A=[1 9 135/4 135/2 1215/16 729/16 729/64]; P=poly2sym(A); solve(P)")
End Sub
Sub c1code6()
CR = Chr(13) + Chr(10)
PutOnClipboard ("H=hilb(20); rank(H)")
End Sub
Sub c1code7()
CR = Chr(13) + Chr(10)
PutOnClipboard ("H=hilb(20); det(H)")
End Sub
Sub c1code8()
CR = Chr(13) + Chr(10)
PutOnClipboard ("H=sym(hilb(20)); det(H)")
End Sub