1024.txt

这是机械工业张德丰《MATLAB与外部程序接口编程》随书源码

#include "matlib.h"
#include <vcl.h>
#pragma hdrstop
#include "TryMatcomU.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
_fastcall TForm1::TForm1(TComponent * Owner):TForm(Owner)
{
}
void _fastcall TForm1::ButtonlClick(TObject *Sender)
{
	int k=0;
	initM(MATCOM_VERSION);   //必须进行的初始化
	Mm cur1, cur2;  //定义变量
	cur1=zeros(128); cur2=zeros(128);  //变量初始化
	for (k=1;k<=128;k++)
		cur1.r(k)=randM();    //生成一个随机数列
	figure(1);
	plot(cur1);   //图形显示该数列
	cur2=fft(cur1,128);    //做128点fft变换
	figure(2);
	//绘制fft变换后实部的火柴杆图，注意此处多变量输入的格式
	stem((CL(cur1), real(cur2), TM("r")));
	fid=fopen(filename, mode, format) opens
		exitM();   //退出调用
}