Guest User

Untitled

a guest
Mar 26th, 2023
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C 1.73 KB | None | 0 0
  1. #include <omp.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4. #include <math.h>
  5. #include <stdbool.h>
  6.  
  7. #define N 1000
  8. #define START (-100)
  9. #define STOP (100)
  10. #define ITERATIONS_COUNT 10000
  11.  
  12. double * generate_double_arr(size_t n){
  13.     return (double *) malloc(n * sizeof(double));
  14. }
  15.  
  16.  
  17. double *fill_vector(){
  18.     double * res = generate_double_arr(N);
  19.     for(size_t i = 0; i < N; i++){
  20.         res[i] = i*i;
  21.     }
  22.     return res;
  23. }
  24. void fill_vector_with_value(double *res, double value) {
  25.     for (size_t i = 0; i < N; i++) {
  26.         res[i] = value;
  27.     }
  28. }
  29. double* generate_matrix_a() {
  30.     double *res = generate_double_arr(N*N);
  31.     for (size_t i = 0; i < N; i++) {
  32.         for(size_t j = 0; j < N; j++){
  33.             res[j*N +i] = (i == j ? (double)i : N);
  34.         }
  35.     }
  36.  
  37.     return res;
  38. }
  39.  
  40. void calculate_squared_norm(const double *b, double *norm_b_square) {
  41.     double kek = 0;
  42.     #pragma omp for reduction(+:norm_b_square)
  43.     for (size_t i = 0; i < N; i++) {
  44.         *norm_b_square += b[i]*b[i];
  45.     }
  46. }
  47.  
  48. double calculate_right_part(double *b, double *norm_b_square){
  49.     double epsilon = pow(10, -5);
  50.  
  51.     calculate_squared_norm(b, norm_b_square);
  52.  
  53.     #pragma omp master
  54.     return epsilon*epsilon*(*norm_b_square);
  55. }
  56.  
  57.  
  58.  
  59. int main(int argc, char* argv[]) {
  60.     double start;
  61.     double end;
  62.     start = omp_get_wtime();
  63.  
  64.     double *a = generate_matrix_a();
  65.     double *x = generate_double_arr(N);
  66.     fill_vector_with_value(x, 0);
  67.     double *b = fill_vector();
  68.     double *y = generate_double_arr(N);
  69.  
  70.     double norm_b_square = 0;
  71.     #pragma omp parallel shared(b, norm_b_square) default(none)
  72.     {
  73.         double right_part = calculate_right_part(b, &norm_b_square);
  74.     }
  75.  
  76.  
  77. }
  78.  
  79.  
  80.  
Add Comment
Please, Sign In to add comment