mlapp.cpp

利用渐进结构优化算法（ESO）实现矩形板的第一阶频率的最大化。用VC实现界面

// Machine generated IDispatch wrapper class(es) created with ClassWizard

#include "stdafx.h"
#include "mlapp.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif



/////////////////////////////////////////////////////////////////////////////
// DIMLApp properties

/////////////////////////////////////////////////////////////////////////////
// DIMLApp operations

CString DIMLApp::Execute(LPCTSTR Name)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR;
	InvokeHelper(0x60010002, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		Name);
	return result;
}

void DIMLApp::MinimizeCommandWindow()
{
	InvokeHelper(0x60010003, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void DIMLApp::MaximizeCommandWindow()
{
	InvokeHelper(0x60010004, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

void DIMLApp::Quit()
{
	InvokeHelper(0x60010005, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);
}

CString DIMLApp::GetCharArray(LPCTSTR Name, LPCTSTR Workspace)
{
	CString result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x60010006, DISPATCH_METHOD, VT_BSTR, (void*)&result, parms,
		Name, Workspace);
	return result;
}

void DIMLApp::PutCharArray(LPCTSTR Name, LPCTSTR Workspace, LPCTSTR charArray)
{
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_BSTR;
	InvokeHelper(0x60010007, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 Name, Workspace, charArray);
}

long DIMLApp::GetVisible()
{
	long result;
	InvokeHelper(0x60010008, DISPATCH_PROPERTYGET, VT_I4, (void*)&result, NULL);
	return result;
}

void DIMLApp::SetVisible(long nNewValue)
{
	static BYTE parms[] =
		VTS_I4;
	InvokeHelper(0x60010008, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms,
		 nNewValue);
}

void DIMLApp::GetWorkspaceData(LPCTSTR Name, LPCTSTR Workspace, VARIANT* pdata)
{
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_PVARIANT;
	InvokeHelper(0x6001000a, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 Name, Workspace, pdata);
}

void DIMLApp::PutWorkspaceData(LPCTSTR Name, LPCTSTR Workspace, const VARIANT& data)
{
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR VTS_VARIANT;
	InvokeHelper(0x6001000b, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 Name, Workspace, &data);
}

void DIMLApp::Feval(LPCTSTR bstrName, long nargout, VARIANT* pvarArgOut, const VARIANT& arg1, const VARIANT& arg2, const VARIANT& arg3, const VARIANT& arg4, const VARIANT& arg5, const VARIANT& arg6, const VARIANT& arg7, const VARIANT& arg8, 
		const VARIANT& arg9, const VARIANT& arg10, const VARIANT& arg11, const VARIANT& arg12, const VARIANT& arg13, const VARIANT& arg14, const VARIANT& arg15, const VARIANT& arg16, const VARIANT& arg17, const VARIANT& arg18, 
		const VARIANT& arg19, const VARIANT& arg20, const VARIANT& arg21, const VARIANT& arg22, const VARIANT& arg23, const VARIANT& arg24, const VARIANT& arg25, const VARIANT& arg26, const VARIANT& arg27, const VARIANT& arg28, 
		const VARIANT& arg29, const VARIANT& arg30, const VARIANT& arg31, const VARIANT& arg32)
{
	static BYTE parms[] =
		VTS_BSTR VTS_I4 VTS_PVARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT 
		VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT VTS_VARIANT;
	InvokeHelper(0x6001000c, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 bstrName, nargout, pvarArgOut, &arg1, &arg2, &arg3, &arg4, &arg5, &arg6, &arg7, &arg8, &arg9, &arg10, &arg11, &arg12, &arg13, &arg14, &arg15, &arg16, &arg17, &arg18, &arg19, &arg20, &arg21, &arg22, &arg23, &arg24, &arg25, &arg26, &arg27, 
		&arg28, &arg29, &arg30, &arg31, &arg32);
}

VARIANT DIMLApp::GetVariable(LPCTSTR Name, LPCTSTR Workspace)
{
	VARIANT result;
	static BYTE parms[] =
		VTS_BSTR VTS_BSTR;
	InvokeHelper(0x6001000d, DISPATCH_METHOD, VT_VARIANT, (void*)&result, parms,
		Name, Workspace);
	return result;
}


/////////////////////////////////////////////////////////////////////////////
// DIMLEval properties

/////////////////////////////////////////////////////////////////////////////
// DIMLEval operations

void DIMLEval::XLEval(LPCTSTR bstrName, long nargout, VARIANT* pvarArgOut, long nargin, const VARIANT& varArgIn)
{
	static BYTE parms[] =
		VTS_BSTR VTS_I4 VTS_PVARIANT VTS_I4 VTS_VARIANT;
	InvokeHelper(0x60010000, DISPATCH_METHOD, VT_EMPTY, NULL, parms,
		 bstrName, nargout, pvarArgOut, nargin, &varArgIn);
}