#include <windows.h>
#include <stdlib.h>
#include <stdio.h>
#include "engine.h"

int PASCAL WinMain (HANDLE hInstance,
						 HANDLE hPrevInstance,
						 LPSTR  lpszCmdLine,
						 int    nCmdShow)
{
	Engine *ep;
	mxArray *P=NULL,*r=NULL;
	char buffer[301];
	double poly[4]={1,0,-2,5}; /*三次多項式的系數*/

	/*啟動本機MATLAB引擎，如果出錯則退出程序。
	如想啟動遠程主機上的MATLAB，則用相應主機名代替\0*/
	if (!(ep=engOpen("\0"))) {
		fprintf(stderr,"\nCan't start MATLAB engine\n");
		return EXIT_FAILURE;}

	/*創建變量P，將poly變量中定義的多項式系數值拷貝至該變量P*/
	P=mxCreateDoubleMatrix(1,4,mxREAL);
	/*給變量P取名為p，將P傳遞到引擎空間，p將被運用于MATLAB表達式中*/
	mxSetName(P,"p"); 
	memcpy((char *)mxGetPr(P),(char *)poly,4*sizeof(double));
	engPutArray(ep,P);

	/*利用MATLAB求解多項式根，并寫至緩沖區*/
	engOutputBuffer(ep,buffer,300);
	engEvalString(ep,"r=roots(p)");

	/*將緩沖區中的內容輸出屏幕窗口，關閉MATLAB引擎，釋放指針P。*/
	MessageBox(NULL,buffer,"Engexam.c--多項式x^3-2x+5的根",MB_OK);
	engClose(ep);
	mxDestroyArray(P);

	return EXIT_SUCCESS;
}