chap10_1.bas

来自「介绍一些matlab在数学方面的应用」· BAS 代码 · 共 15 行

Attribute VB_Name = "chap10_1"
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