Attribute VB_Name = "Function"
'Download by http://www.codefans.net
Public Function IsNumber(ByVal Msg As String) As Boolean
IsNumber = ((Len(Msg) > 0) And (InStr("0123456789", Left(Msg, 1)) > 0)
function [sys,x0,str,ts] = model(t,x,u,flag)
%SFUNTMPL General M-file S-function template
% With M-file S-functions, you can define you own ordinary differential
% equations (ODEs), discrete sy
function [sys,x0,str,ts] = sfuntmpl(t,x,u,flag)
%SFUNTMPL General M-file S-function template
% With M-file S-functions, you can define you own ordinary differential
% equations (ODEs), discrete