MPI编程环境配置与示例

目录 一 系统安装 1 1 下载地址 1 2 安装步骤 1 3 Visual Stdio 设置 1 二 实验程序 2 1 简单的 MPI 编程示例 2 2 消息传递 MPI 编程示例 1 3 3 消息传递 MPI 编程示例 2 4 4 Monte Carlo 方法计算圆周率 6 5 计算积分 8 三 心得体会 9 一一 系统安装系统安装 1 1 下载地址下载地址 FTP 匿名登陆 ftp mcs anl gov 在 pub mpi nt 文件夹中 2 2 安装步骤安装步骤 1 在安装有 MPI 的计算机上要建立一个有管理员权限的账户 不可以没有密 码 2 双击 exe 文件 按默认设置安装 MPI 3 注册 MPI 账户 调用 MPIRegister exe 用户名和密码即为第一步中的账户 3 3 VisualVisual StdioStdio 设置设置 为避免每新建一个项目都要设置一次 可以对它进行通用设置 打开视图 其他窗口 属性管理器 点击 Debug Win32 目录下的 Microsoft Cpp Win32 user 在 VC 目录下的包含目录中添加 MPICH 的 Include 路径 库目录中添加 MPICH 的 Lib 路径 在链接器 输入目录下的附加 依赖项中添加 mpich lib mpe lib mped lib mpichd lib 二二 实验程序实验程序 1 1 简单的简单的 MPIMPI 编程示例编程示例 1 源代码 include include int main int argc char argv int num rk MPI Init MPI Comm size MPI COMM WORLD MPI Comm rank MPI COMM WORLD printf Hello world from Process d of d n rk num MPI Finalize return 0 2 运行截图 2 2 消息传递消息传递 MPIMPI 编程示例编程示例 1 1 1 源代码 include include int main int argc char argv int myid numprocs source MPI Status status char messages 100 MPI Init MPI Comm size MPI COMM WORLD MPI Comm rank MPI COMM WORLD if myid 0 strcpy messages Hello World MPI Send messages strlen messages 1 MPI CHAR 0 99 MPI COMM WORLD else for source 1 source numprocs source MPI Recv messages 100 MPI CHAR source 99 MPI COMM WORLD printf I am process d I recv string s from process d n myid messages source MPI Finalize return 0 2 运行截图 3 3 消息传递消息传递 MPIMPI 编程示例编程示例 2 2 1 源代码 include include include define N 1002 int main int argc char argv int myid numprocs C 0 double data N SqrtSum 0 0 double d for int i 0 i N i data i i MPI Status status MPI Init MPI Comm rank MPI COMM WORLD MPI Comm size MPI COMM WORLD numprocs if myid 0 for int i 0 i N i MPI Send for int source 1 source numprocs source MPI Recv SqrtSum d else for int i myid i N i i numprocs MPI Recv SqrtSum sqrt d C MPI Send printf I am process d I recv total d from process 0 and SqrtSum f n myid C SqrtSum MPI Finalize return 0 2 运行截图 4 4 MonteMonte CarloCarlo 方法计算圆周率方法计算圆周率 1 源代码 include mpi h include include int main int argc char argv int myid numprocs int source long count 1000000 MPI Status status MPI Init MPI Comm rank MPI COMM WORLD MPI Comm size MPI COMM WORLD srand myid double y x pi 0 0 n count long m 0 m1 0 i 0 p 0 for i 0 i count i x double rand double RAND MAX y double rand double RAND MAX if x 0 5 x 0 5 y 0 5 y 0 5 0 25 m pi 4 0 m n printf Process d of pi f n myid numprocs pi if myid 0 MPI Send else p m for source 1 source numprocs source MPI Recv p p m1 printf pi f n 4 0 p n numprocs MPI Finalize return 0 2 运行截图 5 5 计算积分计算积分 1 源代码 define N 100000000 define a 0 define b 10 include include include include mpi h int main int argc char argv int myid numprocs int i double local 0 0 dx double b double a double N double inte x MPI Init MPI Comm rank MPI COMM WORLD MPI Comm size MPI COMM WORLD for i myid i N i i numprocs x a i dx dx 2 local x x dx MPI Reduce if myid 0 printf The integal of x x in region d d 16 15f n a b inte MPI Finalize return 0 2 运行截图 三三 心得体会心