MPI和OpenMP程序设计实验报告.docVIP

一、实验目的及要求

熟悉MPI编程环境，掌握MPI编程根本函数及MPI的相关通信函数用法，掌握MPI的主从模式及对等模式编程；

熟悉OpenMP编程环境，初步掌握基于OpenMP的多线程应用程序开发，掌握OpenMP相关函数以及数据作用域机制、多线程同步机制等。

二、实验设备〔环境〕及要求

MicrosoftVisualStudio.net2005

MPICH2

Windows732位

IntelCore2DuoT55501.83GHz双核CPU

2GB内存

三、实验内容与步骤

配置实验环境

处下载MPICH2，并安装。

将安装目录中的bin目录添加到系统环境变量path中。

以管理员身份运行cmd.exe，输入命令smpd-install-phrase***。***为安装时提示输入的passphrase。

运行wmpiregister.exe，输入具有系统管理员权限的用户名及密码，进行注册。

配置vs2005，参加MPICH2的包含文件，引用文件和库文件，如下列图。

配置工程属性，添加附加依赖项mpi.lib，如下列图。

VS2005支持OpenMP，只需在工程属性中做如下配置。

编写MPI程序

题目：一个小规模的学校想给每一个学生一个唯一的证件号。管理部门想使用6位数字，但不确定是否够用，一个“可接受的”证件号是有一些限制的。编写一个并行计算程序来计算不同的六位数的个数〔由0-9组合的数〕，要求满足以下限制：

第一个数字不能为0；

两个连续位上的数字不能相同；

各个数字之和不能为7、11、13

代码如下。

#includempi.h

#includestdio.h

#includemath.h

#defineNUM6

#defineMAX999999

#defineMIN100000

intcheck(intn)

{

inti,x,y,sum;

if(nMIN)

{

return-1;

}

sum=0;

for(i=1;iNUM;i++)

{

x=(n%(int)pow(10,i))/(int)pow(10,i-1);

y=(n%(int)pow(10,i+1))/(int)pow(10,i);

if(x==y)

{

return-1;

}

sum=sum+x+y;

}

if(sum==7||sum==11||sum==13)

{

return-1;

}

return0;

}

voidmain(intargc,char**argv)

{

intmyid,numprocs,namelen;

charprocessor_name[MPI_MAX_PROCESSOR_NAME];

MPI_Statusstatus;

doublestartTime,endTime;

inti,mycount,count;

MPI_Init(argc,argv);

MPI_Comm_rank(MPI_COMM_WORLD,myid);

MPI_Comm_size(MPI_COMM_WORLD,numprocs);

MPI_Get_processor_name(processor_name,namelen);

if(myid==0)

{

startTime=MPI_Wtime();

}

mycount=0;

for(i=myid;i=MAX;i+=numprocs)

{

if(check(i)==0)

{

mycount++;

}

}

printf(Process%dof%don%sgetresult=%d\n,myid,numprocs,processor_name,mycount);

if(myid!=0)

{

MPI_Send(mycount,1,MPI_INT,0,myid,MPI_COMM_WORLD);

}

else

{

count=mycount;

for(i=1;inumprocs;i++)

{

MPI_Recv(mycount,1,MPI_INT,MPI_ANY_SOURCE,MPI_ANY_TAG,MPI_COMM_WORLD,status);

count+=mycount;

}

endTime=MPI_Wtime();

printf(result=%d\n,count);

printf(timeelapsed%f\