资源描述：
《Mpi程序代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、一、曲边梯形#include#include"mpi.h"doublef(doublex){return(4*x*x+3*x+8);}voidmain(intargc,char*argv[]){inti,rank,size,m,n=1024;doublea=0,b=3,x1,x2,h,local_sum=0,total_sum=0;MPI_Init(&argc,&argv);MPI_Comm_size(MPI_COMM_WORLD,&size);MPI_Comm_rank(MPI_COMM_WORLD,&rank);m=n/size;h=(b-a)
2、/(double)n;for(i=rank;i#include"mpi.h"doublef(doublex){return(4*
3、x*x+3*x+8);}voidmain(intargc,char*argv[]){inti,rank,size,n;doublea=0,b=3,x1,x2,h,local_sum=0,total_sum=0;MPI_Init(&argc,&argv);MPI_Comm_rank(MPI_COMM_WORLD,&rank);MPI_Comm_size(MPI_COMM_WORLD,&size);if(rank==0){printf("pleaseinputn");scanf("%d",&n);}MPI_Bcast(&n,1,MPI_INT,0,MPI_COMM_WO
4、RLD);h=(b-a)/(double)n;for(i=rank;i#include"mpi.h"doublef(doublea){r
5、eturn(4/(1+(a*a)));}voidmain(intargc,char*argv[]){intsize,rank,i,n;doublet1,t2,time;doublelocal_sum=0,total_sum=0,h,x;MPI_Init(&argc,&argv);MPI_Comm_size(MPI_COMM_WORLD,&size);MPI_Comm_rank(MPI_COMM_WORLD,&rank);if(rank==0){printf("pleaseinputanumber");scanf("%d",&n);t1=MPI_Wtime();}
6、MPI_Bcast(&n,1,MPI_INT,0,MPI_COMM_WORLD);h=1.0/(double)n;for(i=rank+1;i<=n;i+=size){x=h*((double)i-0.5);local_sum+=h*f(x);}MPI_Reduce(&local_sum,&total_sum,1,MPI_DOUBLE,MPI_SUM,0,MPI_COMM_WORLD);t2=MPI_Wtime();if(rank==0)printf("pi=%ftime:%f",total_sum,t2-t1);MPI_Finalize();}二、Introd
7、uce#include#include"mpi.h"voidmain(intargc,char*argv[]){doublestart_time,end_time,total_time;doubletick;charname[50];intresult,version,subversion;intrank;MPI_Init(&argc,&argv);MPI_Comm_rank(MPI_COMM_WORLD,&rank);start_time=MPI_Wtime();sleep(5);MPI_Get_processor_name(name,&re
