OpenMP 编程实例(蒙特卡罗算法)

有关clock()函数

1,clock()函数在头文件#include<time.h>中

2,clock()函数的返回值类型为clock_t。clock_t其实是long,即长整形。

clock_t是用来保存时间的数据类型,typedef long clock_t。

3,clock()函数的功能:从程序被调用,创建程序进程到clock()函数调用之间的cpu时间计时单位

4,常量CLOCKS_PER_SEC,他表示一秒钟有多少个时钟计时单位。

#define CLOCK_PER_SEC ((clock_t)1000)

5. 注意: (1) clock()函数范围的时间单位是ms(毫秒)。

       (2) 现在的机器运算速度很快,当用clock()函数记录算法的效率时,不一定有效,可能得到的结果为0。可以尝试多次调用,这个“多”就自己去尝试吧

//利用蒙特卡罗算法计算半径为 1 单元的球体体积: //(1)串行执行程序为:   #include<iostream> #include<stdlib.h> #include<time.h>   using namespace std;   int main() {    long int max=10000000;    long int i,count=0;    double x,y,z,bulk,start_time,end_time;      start_time=clock();    time_t t;      srand((unsigned) time(&t));//函数产生一个以当前时间开始的随机种子      for(i=0;i<max;i++)    {       x=rand(); //生成0~RAND_MAX之间的一个随机数,其中RAND_MAX 是stdlib.h 中定义的一个整数,它与系统有关。 /*  RAND_MAX是VC中stdlib.h中宏定义的一个字符常量:       #define RAND_MAX 0x7FFF   其值最小为32767,最大为2147483647        通常在产生随机小数时可以使用RAND_MAX。*/       x=x/32767;         y=rand();       y=y/32767;         z=rand();       z=z/32767;         if((x*x+y*y+z*z)<=1)          count++;    }      bulk=8*(double(count)/max);    end_time=clock();    cout<<"球体的体积为"<<bulk<<endl;    cout<<"运算时间为"<<(end_time-start_time)<<endl;      return 0; } //在四核服务器上执行结果为:球体体积为 4.18862,运算时间为 1703ms。   //(2)并行执行程序:利用 for 语句和归并语句对程序进行并行化。     #include<stdlib.h> #include<time.h> #include <stdio.h>   int main() {      long long max=10000000;      long long i,count=0;      double x,y,z,bulk,start_time,end_time;      start_time=clock();    time_t t;      srand((unsigned) time(&t));//函数产生一个以当前时间开始的随机种子      #pragma omp parallel for private(x,y,z) reduction(+:count)      for(i=0;i<max;i++)    {       x=rand();       x=x/32767;         y=rand();       y=y/32767;         z=rand();       z=z/32767;         if((x*x+y*y+z*z)<=1)          count++;    }    bulk=8*((double)(count)/max);    end_time=clock();      printf("球体的体积为%0.8f\n",bulk);    printf("运算时间为%0.8f s\n",(end_time-start_time)/1000);      return 0; } //在四核服务器上执行结果为:球体体积为 4.18861,运算时间为 406ms。

  • 1
    点赞
  • 29
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
1. 设计目的、意义(功能描述) 蒙特·卡罗方法(Monte Carlo method),也称统计模拟方法,是二十世纪四十年代中期由于科学技术的发展和电子计算机的发明,而被提出的一种以概率统计理论为指导的一类非常重要的数值计算方法。本次大作业主要是对蒙特·卡罗方法进行并行处理,通过OpenMP、MPI、.NET、Java、Win32API等一系列并行技术和并行机制对该算法进行并行处理,从而也进一步熟悉了蒙特·卡罗方法的串行算法和并行算法,实现了用蒙特·卡罗方法计算出半径为1单位体的体积,体会到了并行技术在实际生活中的应用。 2. 方案分析(解决方案) 蒙特·卡罗方法(Monte Carlo method)是指使用随机数(或更常见的伪随机数)来解决很多计算问题的方法。体积可以估算为:位于点模型内随机点个数与全体随机点个数的比值乘以包围盒的体积算的。 3. 设计分析 3.1 串行算法设计 假定体用B表示,半径r=1单位,B1是包含B的参考立方体(在本例中是边长为2的正方体),在B1中产生N个均匀分布的伪随机点。对每个随机点检测其是否在B内,假设位于B内的随机点个数为N(in)(<=N),应用蒙特卡洛算法,则B的体积为 V=V1(N(in)/N) 其中V1是B1的体积。如果产生足够多的随机点,理论上可以获得任意逼近精度。 算法描述如下: BEGIN N=_MAX; FOR I=0;I<_MAX;I++ X=RANDOM(); Y=RANDOM(); Z=RANDOM(); IF (X*X+Y*Y+Z*Z)<=1 COUNT++; END IF; END FOR; BULK=V1*(COUNT/_MAX); END; 本算法主要是在参考立方体的选取上和定义的_MAX的值对结果影响较大,所以应该选择合适的数。 3.2 并行算法设计 对FOR循环进行划分使用两个处理器完成计算。例如对一个长为n的序列,首先划分得到两个长为n/2的序列,将其交给两个处理器分别处理;而后进一步划分得到四个长为n/4的序列,再分别交给四个处理器处理;如此递归下去最终得到结果。当然这是理想的划分情况,如果划分步骤不能达到平均分配的目的,那么结果的效率会相对较差。 伪代码如下: BEGIN N=_MAX; FOR1 I=0;I<_MAX/2;I++ X1=RANDOM(); Y1=RANDOM(); Z1=RANDOM(); IF (X1*X1+Y1*Y1+Z1*Z1)<=1 COUNT1++; END IF; END FOR1; FOR2 I=_MAX/2+1;I<_MAX;I++ X2=RANDOM(); Y2=RANDOM(); Z2=RANDOM(); IF (X2*X2+Y2*Y2+Z2*Z2)<=1 COUNT2++; END IF; END FOR2; BULK=V1*((COUNT1+ COUNT2)/_MAX); END; 3.3 理论加速比分析 实验中大量数据所产生的加速比比小量数据所产生的加速比要体现得更明显,并且数据生成的并行加速比随着处理器核的增加而增加。设处理器个数为p,数据量为n,由于正常情况下该快速排序算法的复杂度为O(nlogn),并行处理的时间复杂度为O(klogk),其中k=n/p,所以并行算法的时间复杂度为O((n/p)log(n/p)),理论加速比为nlogn/((n/p)log(n/p))=p+logp. 4. 功能模块实现与最终结果分析 4.1 基于OpenMP的并行算法实现 4.1.1 主要功能模块与实现方法 利用了OpenMP里面的#omp parallel sections将对两个for循环用两个线程并行化执行,以多线程方式并行运行程序,并行的算法步骤如下: (1)初始化_max = 10000000; (2)创建两个线程; (3)由OpenMP编译指导语句控制产生并行执行代码区段; (4)将数据存放到tianqing_count; (5)各线程调用算法得出结果; 并行算法的部分代码如下: #pragma omp parallel for private(tianqing_x,tianqing_y,tianqing_z) reduction(+:tianqing_count2) for (tianqing_i = 0; tianqing_i<tianqing_max; tianqing_i++) { tianqing_x = rand(); tianqing_x = tianqing_x / 32767; tianqing_y = rand(); tianqing_y = tianqing_y / 32767; tianqing_z = rand(); tianqing_z = tianqing_z / 32767; if ((tianqing_x*tianqing_x + tianqing_y*tianqing_y + tianqing_z*tianqing_z) work1.pSumto(b, 0, MAXN - 1)); Thread newthread1 = new Thread(thread1); 创建Work类的对象work2; ThreadStart thread2 = new ThreadStart(() => work2.pSumto(c, 0, MAXN - 1)); Thread newthread2 = new Thread(thread2); stopwatch.Start(); 启动线程1和线程2; 等待进程结束; stopwatch.Stop(); 得到结果; 4.5.2 实验加速比分析 实验中创建了两个线程,通过多次测试,得出实验结果:由上面的理论加速比分析可知,当线程数为2时,理论加速比为2+log2=3.但由于实际操作中硬件设备以及内存分配的影响,实验加速比达不到理论值3.实验加速比在2.6~2.7左右。 4.6 并行计算技术在实际系统中的应用 4.6.1 主要功能模块与实现方法 该飞机订票系统主要实现了对机票的一些基本信息进行存储和管理的功能。在系统中实现了对机票信息的增删改查,考虑到查询的方便性,对机票按照航班号进行排序,而此排序方法用并行快速排序运用进来。利用OpenMP的并行技术,对机票信息按顺序排列好,并分析了实验过程中的加速比。 4.6.2 实验加速比分析 实验中创建了两个线程,通过多次测试,得出实验结果:当数据量比较大时,加速比理论在1.9左右。数据量较大时体现出来的加速比更准确。由上面的理论加速比分析可知,当线程数为2时,理论加速比为2+log2=3.但由于实际操作中硬件设备以及内存分配的影响,实验加速比达不到理论值3.实验加速比在2.2~2.4左右。 5. 设计体会 虽然没有按时完成作业,但这份报告花了我好几天的时间,从开始的搭建并行计算平台到最后的程序运行成功可以说是对我的一个锻炼。每一次的遇到问题与每一次的解决问题都是一个成长。每一次遇到问题和解决问题都是一种锻炼,一种尝试,从我们上并行计算课我懂得了很多电脑硬件和软件的知识,这些可能对于我们这个专业以后都是没有机会接触的,所以我觉得选择了并行计算与多核多线程技术这门课是非常正确的。对OpenMP、MPI、WIN32API、Java、.NET的并行技术有了一定的了解。在搭建MPI并行程序这块,学习的知识尤为增加,这些都是在不断的摸索、学习中学会的。 这次的大作业虽然是对以前实验的整合,但它加深了我对并行计算的印象,也使我对并行计算知识的理解更加深刻,也使我认识到了自己很多不足之处。学习并行计算的历程不会因为完成本次大作业而停止,我们是为了用知识武装大脑而学习,通过学习充实自己的生活,要努力学习,争取以后能够完成规模更大的程序。
下面是使用OpenMP编写的并行快速排序算法的示例代码: ```c #include <stdio.h> #include <stdlib.h> #include <omp.h> #define SIZE 1000000 void quicksort(int *arr, int left, int right); int partition(int *arr, int left, int right); int main() { int arr[SIZE]; int i; // 初始化数组 for (i = 0; i < SIZE; i++) { arr[i] = rand() % 100; } double start_time = omp_get_wtime(); // 并行快速排序 #pragma omp parallel { #pragma omp single nowait quicksort(arr, 0, SIZE-1); } double end_time = omp_get_wtime(); // 验证排序结果 for (i = 0; i < SIZE-1; i++) { if (arr[i] > arr[i+1]) { printf("Sort Error!\n"); break; } } printf("Sort Done!\n"); printf("Time: %f seconds\n", end_time-start_time); return 0; } void quicksort(int *arr, int left, int right) { int pivot; if (left < right) { pivot = partition(arr, left, right); #pragma omp task shared(arr) { quicksort(arr, left, pivot-1); } #pragma omp task shared(arr) { quicksort(arr, pivot+1, right); } } } int partition(int *arr, int left, int right) { int pivot = arr[right]; int i = left - 1; int j, temp; for (j = left; j <= right-1; j++) { if (arr[j] <= pivot) { i++; temp = arr[i]; arr[i] = arr[j]; arr[j] = temp; } } temp = arr[i+1]; arr[i+1] = arr[right]; arr[right] = temp; return i+1; } ``` 在这个例子中,我们使用了OpenMP的任务并行来实现快速排序。在`quicksort`函数中,我们使用了`#pragma omp task`指令来创建任务,并使用`shared`属性来共享数组`arr`。这里的`nowait`属性告诉OpenMP不要等待任务完成,而是继续执行下一个语句。 在`main`函数中,我们使用了`#pragma omp parallel`指令来创建线程,并使用`single`属性来保证`quicksort`函数只被调用一次。`omp_get_wtime`函数用于计时。 最后,我们验证了排序结果,并输出了执行时间。 需要注意的是,为了避免任务创建过多导致性能下降,我们可以使用`if`子句来控制任务的创建。例如,在`quicksort`函数中,当`left < right`时才创建任务,否则直接进行串行排序。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值