gsl4r 0.0.2 → 0.0.3

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (22) hide show
  1. data/INSTALL +3 -8
  2. data/README +20 -3
  3. data/Rakefile +6 -0
  4. data/changelog +2 -0
  5. data/lib/b_t.rb +16 -0
  6. data/lib/gsl4r.rb +1 -1
  7. data/lib/gsl4r/block.rb +64 -21
  8. data/lib/gsl4r/complex.rb +20 -0
  9. data/lib/gsl4r/harness.rb +2 -2
  10. data/lib/gsl4r/util.rb +56 -21
  11. data/lib/gsl4r/vector.rb +328 -12
  12. data/lib/t.rb +19 -10
  13. data/test/README +6 -2
  14. data/test/block_class_test.rb +104 -0
  15. data/test/complex_test.rb +210 -210
  16. data/test/gsl_complex_tests_gen +0 -0
  17. data/test/gsl_complex_tests_gen.c +613 -613
  18. data/test/gsl_vector_tests_gen +0 -0
  19. data/test/gsl_vector_tests_gen.c +203 -0
  20. data/test/vector_class_test.rb +128 -0
  21. data/test/vector_test.rb +104 -0
  22. metadata +18 -5
data/test/gsl_complex_tests_gen CHANGED
Binary file
data/test/gsl_complex_tests_gen.c CHANGED
@@ -5,785 +5,785 @@
5
5
  int main( int argc, char **argv )
6
6
  {
7
7
  puts("$: << File.join('..','lib')\nrequire 'test/unit'\nrequire 'test/unit/autorunner'\nrequire 'gsl4r/complex'\ninclude GSL4r::Complex\nclass ComplexTests < Test::Unit::TestCase\n EPSILON = 5.0e-15");
8
- /* c_test_gsl_complex_add_real */
9
- gsl_complex v12;
10
- GSL_SET_COMPLEX(&v12, 2.0, 2.0);
11
- double v13 = (double)2.0;
12
- gsl_complex c_r11;
13
- c_r11 = gsl_complex_add_real(v12,v13);
14
- puts("def test_gsl_complex_add_real()");
15
- puts(" v12 = GSL_Complex.create");
16
- puts(" v12.set(2.0,2.0)");
17
- puts("");
18
- puts(" v13 = 2.0");
19
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_add_real(v12,v13)");
8
+ /* c_test_gsl_complex_add */
9
+ gsl_complex v4;
10
+ GSL_SET_COMPLEX(&v4, 2.0, 2.0);
11
+ gsl_complex v5;
12
+ GSL_SET_COMPLEX(&v5, 2.0, 2.0);
13
+ gsl_complex c_r3;
14
+ c_r3 = gsl_complex_add(v4,v5);
15
+ puts("def test_gsl_complex_add()");
16
+ puts(" v4 = GSL_Complex.create");
17
+ puts(" v4.set(2.0,2.0)");
18
+ puts(" v5 = GSL_Complex.create");
19
+ puts(" v5.set(2.0,2.0)");
20
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_add(v4,v5)");
20
21
  puts(" r_r2 = GSL_Complex.new");
21
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r11),GSL_IMAG(c_r11));
22
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r3),GSL_IMAG(c_r3));
22
23
  printf(" assert r_r1.equals(r_r2)\n");
23
24
  puts("end");
24
- /* c_test_gsl_complex_pow */
25
- gsl_complex v35;
26
- GSL_SET_COMPLEX(&v35, 2.0, 2.0);
27
- gsl_complex v36;
28
- GSL_SET_COMPLEX(&v36, 2.0, 2.0);
29
- gsl_complex c_r34;
30
- c_r34 = gsl_complex_pow(v35,v36);
31
- puts("def test_gsl_complex_pow()");
32
- puts(" v35 = GSL_Complex.create");
33
- puts(" v35.set(2.0,2.0)");
34
- puts(" v36 = GSL_Complex.create");
35
- puts(" v36.set(2.0,2.0)");
36
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_pow(v35,v36)");
25
+ /* c_test_gsl_complex_negative */
26
+ gsl_complex v30;
27
+ GSL_SET_COMPLEX(&v30, 2.0, 2.0);
28
+ gsl_complex c_r29;
29
+ c_r29 = gsl_complex_negative(v30);
30
+ puts("def test_gsl_complex_negative()");
31
+ puts(" v30 = GSL_Complex.create");
32
+ puts(" v30.set(2.0,2.0)");
33
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_negative(v30)");
37
34
  puts(" r_r2 = GSL_Complex.new");
38
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r34),GSL_IMAG(c_r34));
35
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r29),GSL_IMAG(c_r29));
39
36
  printf(" assert r_r1.equals(r_r2)\n");
40
37
  puts("end");
41
- /* c_test_gsl_complex_arccos */
42
- gsl_complex v52;
43
- GSL_SET_COMPLEX(&v52, 2.0, 2.0);
44
- gsl_complex c_r51;
45
- c_r51 = gsl_complex_arccos(v52);
46
- puts("def test_gsl_complex_arccos()");
47
- puts(" v52 = GSL_Complex.create");
48
- puts(" v52.set(2.0,2.0)");
49
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccos(v52)");
38
+ /* c_test_gsl_complex_tan */
39
+ gsl_complex v48;
40
+ GSL_SET_COMPLEX(&v48, 2.0, 2.0);
41
+ gsl_complex c_r47;
42
+ c_r47 = gsl_complex_tan(v48);
43
+ puts("def test_gsl_complex_tan()");
44
+ puts(" v48 = GSL_Complex.create");
45
+ puts(" v48.set(2.0,2.0)");
46
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_tan(v48)");
50
47
  puts(" r_r2 = GSL_Complex.new");
51
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r51),GSL_IMAG(c_r51));
48
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r47),GSL_IMAG(c_r47));
52
49
  printf(" assert r_r1.equals(r_r2)\n");
53
50
  puts("end");
54
- /* c_test_gsl_complex_arcsinh */
55
- gsl_complex v66;
56
- GSL_SET_COMPLEX(&v66, 2.0, 2.0);
57
- gsl_complex c_r65;
58
- c_r65 = gsl_complex_arcsinh(v66);
59
- puts("def test_gsl_complex_arcsinh()");
60
- puts(" v66 = GSL_Complex.create");
61
- puts(" v66.set(2.0,2.0)");
62
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsinh(v66)");
51
+ /* c_test_gsl_complex_abs */
52
+ gsl_complex v2;
53
+ GSL_SET_COMPLEX(&v2, 2.0, 2.0);
54
+ double c_r1;
55
+ c_r1 = gsl_complex_abs(v2);
56
+ puts("def test_gsl_complex_abs()");
57
+ puts(" v2 = GSL_Complex.create");
58
+ puts(" v2.set(2.0,2.0)");
59
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_abs(v2)");
60
+ printf(" assert_in_delta r_r1, %.15g, EPSILON\n", c_r1);
61
+ puts("end");
62
+ /* c_test_gsl_complex_sech */
63
+ gsl_complex v62;
64
+ GSL_SET_COMPLEX(&v62, 2.0, 2.0);
65
+ gsl_complex c_r61;
66
+ c_r61 = gsl_complex_sech(v62);
67
+ puts("def test_gsl_complex_sech()");
68
+ puts(" v62 = GSL_Complex.create");
69
+ puts(" v62.set(2.0,2.0)");
70
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sech(v62)");
63
71
  puts(" r_r2 = GSL_Complex.new");
64
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r65),GSL_IMAG(c_r65));
72
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r61),GSL_IMAG(c_r61));
65
73
  printf(" assert r_r1.equals(r_r2)\n");
66
74
  puts("end");
67
- /* c_test_gsl_complex_div_real */
68
- gsl_complex v18;
69
- GSL_SET_COMPLEX(&v18, 2.0, 2.0);
70
- double v19 = (double)2.0;
71
- gsl_complex c_r17;
72
- c_r17 = gsl_complex_div_real(v18,v19);
73
- puts("def test_gsl_complex_div_real()");
74
- puts(" v18 = GSL_Complex.create");
75
- puts(" v18.set(2.0,2.0)");
76
- puts("");
77
- puts(" v19 = 2.0");
78
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_div_real(v18,v19)");
75
+ /* c_test_gsl_complex_div */
76
+ gsl_complex v10;
77
+ GSL_SET_COMPLEX(&v10, 2.0, 2.0);
78
+ gsl_complex v11;
79
+ GSL_SET_COMPLEX(&v11, 2.0, 2.0);
80
+ gsl_complex c_r9;
81
+ c_r9 = gsl_complex_div(v10,v11);
82
+ puts("def test_gsl_complex_div()");
83
+ puts(" v10 = GSL_Complex.create");
84
+ puts(" v10.set(2.0,2.0)");
85
+ puts(" v11 = GSL_Complex.create");
86
+ puts(" v11.set(2.0,2.0)");
87
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_div(v10,v11)");
79
88
  puts(" r_r2 = GSL_Complex.new");
80
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r17),GSL_IMAG(c_r17));
89
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r9),GSL_IMAG(c_r9));
81
90
  printf(" assert r_r1.equals(r_r2)\n");
82
91
  puts("end");
83
- /* c_test_gsl_complex_log */
84
- gsl_complex v40;
85
- GSL_SET_COMPLEX(&v40, 2.0, 2.0);
86
- gsl_complex c_r39;
87
- c_r39 = gsl_complex_log(v40);
88
- puts("def test_gsl_complex_log()");
89
- puts(" v40 = GSL_Complex.create");
90
- puts(" v40.set(2.0,2.0)");
91
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_log(v40)");
92
+ /* c_test_gsl_complex_polar */
93
+ double v33 = (double)2.0;
94
+ double v34 = (double)2.0;
95
+ gsl_complex c_r32;
96
+ c_r32 = gsl_complex_polar(v33,v34);
97
+ puts("def test_gsl_complex_polar()");
98
+ puts("");
99
+ puts(" v33 = 2.0");
100
+ puts("");
101
+ puts(" v34 = 2.0");
102
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_polar(v33,v34)");
92
103
  puts(" r_r2 = GSL_Complex.new");
93
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r39),GSL_IMAG(c_r39));
104
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r32),GSL_IMAG(c_r32));
94
105
  printf(" assert r_r1.equals(r_r2)\n");
95
106
  puts("end");
96
- /* c_test_gsl_complex_arcsec_real */
97
- double v55 = (double)2.0;
98
- gsl_complex c_r54;
99
- c_r54 = gsl_complex_arcsec_real(v55);
100
- puts("def test_gsl_complex_arcsec_real()");
107
+ /* c_test_gsl_complex_arcsin_real */
108
+ double v51 = (double)2.0;
109
+ gsl_complex c_r50;
110
+ c_r50 = gsl_complex_arcsin_real(v51);
111
+ puts("def test_gsl_complex_arcsin_real()");
101
112
  puts("");
102
- puts(" v55 = 2.0");
103
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsec_real(v55)");
113
+ puts(" v51 = 2.0");
114
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsin_real(v51)");
104
115
  puts(" r_r2 = GSL_Complex.new");
105
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r54),GSL_IMAG(c_r54));
116
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r50),GSL_IMAG(c_r50));
106
117
  printf(" assert r_r1.equals(r_r2)\n");
107
118
  puts("end");
108
- /* c_test_gsl_complex_arcsech */
109
- gsl_complex v69;
110
- GSL_SET_COMPLEX(&v69, 2.0, 2.0);
111
- gsl_complex c_r68;
112
- c_r68 = gsl_complex_arcsech(v69);
113
- puts("def test_gsl_complex_arcsech()");
114
- puts(" v69 = GSL_Complex.create");
115
- puts(" v69.set(2.0,2.0)");
116
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsech(v69)");
119
+ /* c_test_gsl_complex_coth */
120
+ gsl_complex v65;
121
+ GSL_SET_COMPLEX(&v65, 2.0, 2.0);
122
+ gsl_complex c_r64;
123
+ c_r64 = gsl_complex_coth(v65);
124
+ puts("def test_gsl_complex_coth()");
125
+ puts(" v65 = GSL_Complex.create");
126
+ puts(" v65.set(2.0,2.0)");
127
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_coth(v65)");
117
128
  puts(" r_r2 = GSL_Complex.new");
118
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r68),GSL_IMAG(c_r68));
129
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r64),GSL_IMAG(c_r64));
119
130
  printf(" assert r_r1.equals(r_r2)\n");
120
131
  puts("end");
121
- /* c_test_gsl_complex_mul_imag */
122
- gsl_complex v24;
123
- GSL_SET_COMPLEX(&v24, 2.0, 2.0);
124
- double v25 = (double)2.0;
125
- gsl_complex c_r23;
126
- c_r23 = gsl_complex_mul_imag(v24,v25);
127
- puts("def test_gsl_complex_mul_imag()");
128
- puts(" v24 = GSL_Complex.create");
129
- puts(" v24.set(2.0,2.0)");
132
+ /* c_test_gsl_complex_mul_real */
133
+ gsl_complex v16;
134
+ GSL_SET_COMPLEX(&v16, 2.0, 2.0);
135
+ double v17 = (double)2.0;
136
+ gsl_complex c_r15;
137
+ c_r15 = gsl_complex_mul_real(v16,v17);
138
+ puts("def test_gsl_complex_mul_real()");
139
+ puts(" v16 = GSL_Complex.create");
140
+ puts(" v16.set(2.0,2.0)");
130
141
  puts("");
131
- puts(" v25 = 2.0");
132
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_mul_imag(v24,v25)");
142
+ puts(" v17 = 2.0");
143
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_mul_real(v16,v17)");
133
144
  puts(" r_r2 = GSL_Complex.new");
134
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r23),GSL_IMAG(c_r23));
145
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r15),GSL_IMAG(c_r15));
135
146
  printf(" assert r_r1.equals(r_r2)\n");
136
147
  puts("end");
137
- /* c_test_gsl_complex_sin */
138
- gsl_complex v44;
139
- GSL_SET_COMPLEX(&v44, 2.0, 2.0);
140
- gsl_complex c_r43;
141
- c_r43 = gsl_complex_sin(v44);
142
- puts("def test_gsl_complex_sin()");
143
- puts(" v44 = GSL_Complex.create");
144
- puts(" v44.set(2.0,2.0)");
145
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sin(v44)");
148
+ /* c_test_gsl_complex_exp */
149
+ gsl_complex v39;
150
+ GSL_SET_COMPLEX(&v39, 2.0, 2.0);
151
+ gsl_complex c_r38;
152
+ c_r38 = gsl_complex_exp(v39);
153
+ puts("def test_gsl_complex_exp()");
154
+ puts(" v39 = GSL_Complex.create");
155
+ puts(" v39.set(2.0,2.0)");
156
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_exp(v39)");
146
157
  puts(" r_r2 = GSL_Complex.new");
147
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r43),GSL_IMAG(c_r43));
158
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r38),GSL_IMAG(c_r38));
148
159
  printf(" assert r_r1.equals(r_r2)\n");
149
160
  puts("end");
150
- /* c_test_gsl_complex_arctan */
151
- gsl_complex v58;
152
- GSL_SET_COMPLEX(&v58, 2.0, 2.0);
153
- gsl_complex c_r57;
154
- c_r57 = gsl_complex_arctan(v58);
155
- puts("def test_gsl_complex_arctan()");
156
- puts(" v58 = GSL_Complex.create");
157
- puts(" v58.set(2.0,2.0)");
158
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arctan(v58)");
161
+ /* c_test_gsl_complex_arcsec */
162
+ gsl_complex v54;
163
+ GSL_SET_COMPLEX(&v54, 2.0, 2.0);
164
+ gsl_complex c_r53;
165
+ c_r53 = gsl_complex_arcsec(v54);
166
+ puts("def test_gsl_complex_arcsec()");
167
+ puts(" v54 = GSL_Complex.create");
168
+ puts(" v54.set(2.0,2.0)");
169
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsec(v54)");
159
170
  puts(" r_r2 = GSL_Complex.new");
160
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r57),GSL_IMAG(c_r57));
171
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r53),GSL_IMAG(c_r53));
161
172
  printf(" assert r_r1.equals(r_r2)\n");
162
173
  puts("end");
163
- /* c_test_gsl_complex_arctanh_real */
164
- double v72 = (double)2.0;
165
- gsl_complex c_r71;
166
- c_r71 = gsl_complex_arctanh_real(v72);
167
- puts("def test_gsl_complex_arctanh_real()");
174
+ /* c_test_gsl_complex_arccosh_real */
175
+ double v68 = (double)2.0;
176
+ gsl_complex c_r67;
177
+ c_r67 = gsl_complex_arccosh_real(v68);
178
+ puts("def test_gsl_complex_arccosh_real()");
168
179
  puts("");
169
- puts(" v72 = 2.0");
170
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arctanh_real(v72)");
180
+ puts(" v68 = 2.0");
181
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccosh_real(v68)");
171
182
  puts(" r_r2 = GSL_Complex.new");
172
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r71),GSL_IMAG(c_r71));
183
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r67),GSL_IMAG(c_r67));
173
184
  printf(" assert r_r1.equals(r_r2)\n");
174
185
  puts("end");
175
- /* c_test_gsl_complex_inverse */
176
- gsl_complex v29;
177
- GSL_SET_COMPLEX(&v29, 2.0, 2.0);
178
- gsl_complex c_r28;
179
- c_r28 = gsl_complex_inverse(v29);
180
- puts("def test_gsl_complex_inverse()");
181
- puts(" v29 = GSL_Complex.create");
182
- puts(" v29.set(2.0,2.0)");
183
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_inverse(v29)");
186
+ /* c_test_gsl_complex_sub_imag */
187
+ gsl_complex v22;
188
+ GSL_SET_COMPLEX(&v22, 2.0, 2.0);
189
+ double v23 = (double)2.0;
190
+ gsl_complex c_r21;
191
+ c_r21 = gsl_complex_sub_imag(v22,v23);
192
+ puts("def test_gsl_complex_sub_imag()");
193
+ puts(" v22 = GSL_Complex.create");
194
+ puts(" v22.set(2.0,2.0)");
195
+ puts("");
196
+ puts(" v23 = 2.0");
197
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sub_imag(v22,v23)");
184
198
  puts(" r_r2 = GSL_Complex.new");
185
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r28),GSL_IMAG(c_r28));
199
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r21),GSL_IMAG(c_r21));
186
200
  printf(" assert r_r1.equals(r_r2)\n");
187
201
  puts("end");
188
- /* c_test_gsl_complex_csc */
189
- gsl_complex v47;
190
- GSL_SET_COMPLEX(&v47, 2.0, 2.0);
191
- gsl_complex c_r46;
192
- c_r46 = gsl_complex_csc(v47);
193
- puts("def test_gsl_complex_csc()");
194
- puts(" v47 = GSL_Complex.create");
195
- puts(" v47.set(2.0,2.0)");
196
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_csc(v47)");
202
+ /* c_test_gsl_complex_log_b */
203
+ gsl_complex v42;
204
+ GSL_SET_COMPLEX(&v42, 2.0, 2.0);
205
+ gsl_complex v43;
206
+ GSL_SET_COMPLEX(&v43, 2.0, 2.0);
207
+ gsl_complex c_r41;
208
+ c_r41 = gsl_complex_log_b(v42,v43);
209
+ puts("def test_gsl_complex_log_b()");
210
+ puts(" v42 = GSL_Complex.create");
211
+ puts(" v42.set(2.0,2.0)");
212
+ puts(" v43 = GSL_Complex.create");
213
+ puts(" v43.set(2.0,2.0)");
214
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_log_b(v42,v43)");
197
215
  puts(" r_r2 = GSL_Complex.new");
198
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r46),GSL_IMAG(c_r46));
216
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r41),GSL_IMAG(c_r41));
199
217
  printf(" assert r_r1.equals(r_r2)\n");
200
218
  puts("end");
201
- /* c_test_gsl_complex_arg */
202
- gsl_complex v1;
203
- GSL_SET_COMPLEX(&v1, 2.0, 2.0);
204
- double c_r0;
205
- c_r0 = gsl_complex_arg(v1);
206
- puts("def test_gsl_complex_arg()");
207
- puts(" v1 = GSL_Complex.create");
208
- puts(" v1.set(2.0,2.0)");
209
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arg(v1)");
210
- printf(" assert_in_delta r_r1, %.15g, EPSILON\n", c_r0);
211
- puts("end");
212
- /* c_test_gsl_complex_cosh */
213
- gsl_complex v61;
214
- GSL_SET_COMPLEX(&v61, 2.0, 2.0);
215
- gsl_complex c_r60;
216
- c_r60 = gsl_complex_cosh(v61);
217
- puts("def test_gsl_complex_cosh()");
218
- puts(" v61 = GSL_Complex.create");
219
- puts(" v61.set(2.0,2.0)");
220
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_cosh(v61)");
219
+ /* c_test_gsl_complex_arccsc_real */
220
+ double v57 = (double)2.0;
221
+ gsl_complex c_r56;
222
+ c_r56 = gsl_complex_arccsc_real(v57);
223
+ puts("def test_gsl_complex_arccsc_real()");
224
+ puts("");
225
+ puts(" v57 = 2.0");
226
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccsc_real(v57)");
221
227
  puts(" r_r2 = GSL_Complex.new");
222
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r60),GSL_IMAG(c_r60));
228
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r56),GSL_IMAG(c_r56));
223
229
  printf(" assert r_r1.equals(r_r2)\n");
224
230
  puts("end");
225
- /* c_test_gsl_complex_mul */
226
- gsl_complex v8;
227
- GSL_SET_COMPLEX(&v8, 2.0, 2.0);
228
- gsl_complex v9;
229
- GSL_SET_COMPLEX(&v9, 2.0, 2.0);
230
- gsl_complex c_r7;
231
- c_r7 = gsl_complex_mul(v8,v9);
232
- puts("def test_gsl_complex_mul()");
233
- puts(" v8 = GSL_Complex.create");
234
- puts(" v8.set(2.0,2.0)");
235
- puts(" v9 = GSL_Complex.create");
236
- puts(" v9.set(2.0,2.0)");
237
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_mul(v8,v9)");
231
+ /* c_test_gsl_complex_arctanh */
232
+ gsl_complex v71;
233
+ GSL_SET_COMPLEX(&v71, 2.0, 2.0);
234
+ gsl_complex c_r70;
235
+ c_r70 = gsl_complex_arctanh(v71);
236
+ puts("def test_gsl_complex_arctanh()");
237
+ puts(" v71 = GSL_Complex.create");
238
+ puts(" v71.set(2.0,2.0)");
239
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arctanh(v71)");
238
240
  puts(" r_r2 = GSL_Complex.new");
239
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r7),GSL_IMAG(c_r7));
241
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r70),GSL_IMAG(c_r70));
240
242
  printf(" assert r_r1.equals(r_r2)\n");
241
243
  puts("end");
242
- /* c_test_gsl_complex_sqrt_real */
243
- double v32 = (double)2.0;
244
- gsl_complex c_r31;
245
- c_r31 = gsl_complex_sqrt_real(v32);
246
- puts("def test_gsl_complex_sqrt_real()");
247
- puts("");
248
- puts(" v32 = 2.0");
249
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sqrt_real(v32)");
244
+ /* c_test_gsl_complex_conjugate */
245
+ gsl_complex v28;
246
+ GSL_SET_COMPLEX(&v28, 2.0, 2.0);
247
+ gsl_complex c_r27;
248
+ c_r27 = gsl_complex_conjugate(v28);
249
+ puts("def test_gsl_complex_conjugate()");
250
+ puts(" v28 = GSL_Complex.create");
251
+ puts(" v28.set(2.0,2.0)");
252
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_conjugate(v28)");
250
253
  puts(" r_r2 = GSL_Complex.new");
251
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r31),GSL_IMAG(c_r31));
254
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r27),GSL_IMAG(c_r27));
252
255
  printf(" assert r_r1.equals(r_r2)\n");
253
256
  puts("end");
254
- /* c_test_gsl_complex_arcsin */
255
- gsl_complex v50;
256
- GSL_SET_COMPLEX(&v50, 2.0, 2.0);
257
- gsl_complex c_r49;
258
- c_r49 = gsl_complex_arcsin(v50);
259
- puts("def test_gsl_complex_arcsin()");
260
- puts(" v50 = GSL_Complex.create");
261
- puts(" v50.set(2.0,2.0)");
262
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsin(v50)");
257
+ /* c_test_gsl_complex_sec */
258
+ gsl_complex v46;
259
+ GSL_SET_COMPLEX(&v46, 2.0, 2.0);
260
+ gsl_complex c_r45;
261
+ c_r45 = gsl_complex_sec(v46);
262
+ puts("def test_gsl_complex_sec()");
263
+ puts(" v46 = GSL_Complex.create");
264
+ puts(" v46.set(2.0,2.0)");
265
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sec(v46)");
263
266
  puts(" r_r2 = GSL_Complex.new");
264
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r49),GSL_IMAG(c_r49));
267
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r45),GSL_IMAG(c_r45));
265
268
  printf(" assert r_r1.equals(r_r2)\n");
266
269
  puts("end");
267
- /* c_test_gsl_complex_tanh */
268
- gsl_complex v64;
269
- GSL_SET_COMPLEX(&v64, 2.0, 2.0);
270
- gsl_complex c_r63;
271
- c_r63 = gsl_complex_tanh(v64);
272
- puts("def test_gsl_complex_tanh()");
273
- puts(" v64 = GSL_Complex.create");
274
- puts(" v64.set(2.0,2.0)");
275
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_tanh(v64)");
270
+ /* c_test_gsl_complex_sinh */
271
+ gsl_complex v60;
272
+ GSL_SET_COMPLEX(&v60, 2.0, 2.0);
273
+ gsl_complex c_r59;
274
+ c_r59 = gsl_complex_sinh(v60);
275
+ puts("def test_gsl_complex_sinh()");
276
+ puts(" v60 = GSL_Complex.create");
277
+ puts(" v60.set(2.0,2.0)");
278
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sinh(v60)");
276
279
  puts(" r_r2 = GSL_Complex.new");
277
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r63),GSL_IMAG(c_r63));
280
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r59),GSL_IMAG(c_r59));
278
281
  printf(" assert r_r1.equals(r_r2)\n");
279
282
  puts("end");
280
- /* c_test_gsl_complex_sub_real */
281
- gsl_complex v14;
282
- GSL_SET_COMPLEX(&v14, 2.0, 2.0);
283
- double v15 = (double)2.0;
284
- gsl_complex c_r13;
285
- c_r13 = gsl_complex_sub_real(v14,v15);
286
- puts("def test_gsl_complex_sub_real()");
287
- puts(" v14 = GSL_Complex.create");
288
- puts(" v14.set(2.0,2.0)");
289
- puts("");
290
- puts(" v15 = 2.0");
291
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sub_real(v14,v15)");
283
+ /* c_test_gsl_complex_sub */
284
+ gsl_complex v6;
285
+ GSL_SET_COMPLEX(&v6, 2.0, 2.0);
286
+ gsl_complex v7;
287
+ GSL_SET_COMPLEX(&v7, 2.0, 2.0);
288
+ gsl_complex c_r5;
289
+ c_r5 = gsl_complex_sub(v6,v7);
290
+ puts("def test_gsl_complex_sub()");
291
+ puts(" v6 = GSL_Complex.create");
292
+ puts(" v6.set(2.0,2.0)");
293
+ puts(" v7 = GSL_Complex.create");
294
+ puts(" v7.set(2.0,2.0)");
295
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sub(v6,v7)");
292
296
  puts(" r_r2 = GSL_Complex.new");
293
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r13),GSL_IMAG(c_r13));
297
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r5),GSL_IMAG(c_r5));
294
298
  printf(" assert r_r1.equals(r_r2)\n");
295
299
  puts("end");
296
- /* c_test_gsl_complex_pow_real */
297
- gsl_complex v37;
298
- GSL_SET_COMPLEX(&v37, 2.0, 2.0);
299
- double v38 = (double)2.0;
300
- gsl_complex c_r36;
301
- c_r36 = gsl_complex_pow_real(v37,v38);
302
- puts("def test_gsl_complex_pow_real()");
303
- puts(" v37 = GSL_Complex.create");
304
- puts(" v37.set(2.0,2.0)");
305
- puts("");
306
- puts(" v38 = 2.0");
307
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_pow_real(v37,v38)");
300
+ /* c_test_gsl_complex_sqrt */
301
+ gsl_complex v31;
302
+ GSL_SET_COMPLEX(&v31, 2.0, 2.0);
303
+ gsl_complex c_r30;
304
+ c_r30 = gsl_complex_sqrt(v31);
305
+ puts("def test_gsl_complex_sqrt()");
306
+ puts(" v31 = GSL_Complex.create");
307
+ puts(" v31.set(2.0,2.0)");
308
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sqrt(v31)");
308
309
  puts(" r_r2 = GSL_Complex.new");
309
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r36),GSL_IMAG(c_r36));
310
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r30),GSL_IMAG(c_r30));
310
311
  printf(" assert r_r1.equals(r_r2)\n");
311
312
  puts("end");
312
- /* c_test_gsl_complex_arccos_real */
313
- double v53 = (double)2.0;
314
- gsl_complex c_r52;
315
- c_r52 = gsl_complex_arccos_real(v53);
316
- puts("def test_gsl_complex_arccos_real()");
317
- puts("");
318
- puts(" v53 = 2.0");
319
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccos_real(v53)");
313
+ /* c_test_gsl_complex_cot */
314
+ gsl_complex v49;
315
+ GSL_SET_COMPLEX(&v49, 2.0, 2.0);
316
+ gsl_complex c_r48;
317
+ c_r48 = gsl_complex_cot(v49);
318
+ puts("def test_gsl_complex_cot()");
319
+ puts(" v49 = GSL_Complex.create");
320
+ puts(" v49.set(2.0,2.0)");
321
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_cot(v49)");
320
322
  puts(" r_r2 = GSL_Complex.new");
321
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r52),GSL_IMAG(c_r52));
323
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r48),GSL_IMAG(c_r48));
322
324
  printf(" assert r_r1.equals(r_r2)\n");
323
325
  puts("end");
324
- /* c_test_gsl_complex_arccosh */
325
- gsl_complex v67;
326
- GSL_SET_COMPLEX(&v67, 2.0, 2.0);
327
- gsl_complex c_r66;
328
- c_r66 = gsl_complex_arccosh(v67);
329
- puts("def test_gsl_complex_arccosh()");
330
- puts(" v67 = GSL_Complex.create");
331
- puts(" v67.set(2.0,2.0)");
332
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccosh(v67)");
326
+ /* c_test_gsl_complex_abs2 */
327
+ gsl_complex v3;
328
+ GSL_SET_COMPLEX(&v3, 2.0, 2.0);
329
+ double c_r2;
330
+ c_r2 = gsl_complex_abs2(v3);
331
+ puts("def test_gsl_complex_abs2()");
332
+ puts(" v3 = GSL_Complex.create");
333
+ puts(" v3.set(2.0,2.0)");
334
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_abs2(v3)");
335
+ printf(" assert_in_delta r_r1, %.15g, EPSILON\n", c_r2);
336
+ puts("end");
337
+ /* c_test_gsl_complex_csch */
338
+ gsl_complex v63;
339
+ GSL_SET_COMPLEX(&v63, 2.0, 2.0);
340
+ gsl_complex c_r62;
341
+ c_r62 = gsl_complex_csch(v63);
342
+ puts("def test_gsl_complex_csch()");
343
+ puts(" v63 = GSL_Complex.create");
344
+ puts(" v63.set(2.0,2.0)");
345
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_csch(v63)");
333
346
  puts(" r_r2 = GSL_Complex.new");
334
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r66),GSL_IMAG(c_r66));
347
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r62),GSL_IMAG(c_r62));
335
348
  printf(" assert r_r1.equals(r_r2)\n");
336
349
  puts("end");
337
- /* c_test_gsl_complex_add_imag */
338
- gsl_complex v20;
339
- GSL_SET_COMPLEX(&v20, 2.0, 2.0);
340
- double v21 = (double)2.0;
341
- gsl_complex c_r19;
342
- c_r19 = gsl_complex_add_imag(v20,v21);
343
- puts("def test_gsl_complex_add_imag()");
344
- puts(" v20 = GSL_Complex.create");
345
- puts(" v20.set(2.0,2.0)");
350
+ /* c_test_gsl_complex_add_real */
351
+ gsl_complex v12;
352
+ GSL_SET_COMPLEX(&v12, 2.0, 2.0);
353
+ double v13 = (double)2.0;
354
+ gsl_complex c_r11;
355
+ c_r11 = gsl_complex_add_real(v12,v13);
356
+ puts("def test_gsl_complex_add_real()");
357
+ puts(" v12 = GSL_Complex.create");
358
+ puts(" v12.set(2.0,2.0)");
346
359
  puts("");
347
- puts(" v21 = 2.0");
348
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_add_imag(v20,v21)");
360
+ puts(" v13 = 2.0");
361
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_add_real(v12,v13)");
349
362
  puts(" r_r2 = GSL_Complex.new");
350
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r19),GSL_IMAG(c_r19));
363
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r11),GSL_IMAG(c_r11));
351
364
  printf(" assert r_r1.equals(r_r2)\n");
352
365
  puts("end");
353
- /* c_test_gsl_complex_log10 */
354
- gsl_complex v41;
355
- GSL_SET_COMPLEX(&v41, 2.0, 2.0);
356
- gsl_complex c_r40;
357
- c_r40 = gsl_complex_log10(v41);
358
- puts("def test_gsl_complex_log10()");
359
- puts(" v41 = GSL_Complex.create");
360
- puts(" v41.set(2.0,2.0)");
361
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_log10(v41)");
366
+ /* c_test_gsl_complex_pow */
367
+ gsl_complex v35;
368
+ GSL_SET_COMPLEX(&v35, 2.0, 2.0);
369
+ gsl_complex v36;
370
+ GSL_SET_COMPLEX(&v36, 2.0, 2.0);
371
+ gsl_complex c_r34;
372
+ c_r34 = gsl_complex_pow(v35,v36);
373
+ puts("def test_gsl_complex_pow()");
374
+ puts(" v35 = GSL_Complex.create");
375
+ puts(" v35.set(2.0,2.0)");
376
+ puts(" v36 = GSL_Complex.create");
377
+ puts(" v36.set(2.0,2.0)");
378
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_pow(v35,v36)");
362
379
  puts(" r_r2 = GSL_Complex.new");
363
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r40),GSL_IMAG(c_r40));
380
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r34),GSL_IMAG(c_r34));
364
381
  printf(" assert r_r1.equals(r_r2)\n");
365
382
  puts("end");
366
- /* c_test_gsl_complex_arccsc */
367
- gsl_complex v56;
368
- GSL_SET_COMPLEX(&v56, 2.0, 2.0);
369
- gsl_complex c_r55;
370
- c_r55 = gsl_complex_arccsc(v56);
371
- puts("def test_gsl_complex_arccsc()");
372
- puts(" v56 = GSL_Complex.create");
373
- puts(" v56.set(2.0,2.0)");
374
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccsc(v56)");
383
+ /* c_test_gsl_complex_arccos */
384
+ gsl_complex v52;
385
+ GSL_SET_COMPLEX(&v52, 2.0, 2.0);
386
+ gsl_complex c_r51;
387
+ c_r51 = gsl_complex_arccos(v52);
388
+ puts("def test_gsl_complex_arccos()");
389
+ puts(" v52 = GSL_Complex.create");
390
+ puts(" v52.set(2.0,2.0)");
391
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccos(v52)");
375
392
  puts(" r_r2 = GSL_Complex.new");
376
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r55),GSL_IMAG(c_r55));
393
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r51),GSL_IMAG(c_r51));
377
394
  printf(" assert r_r1.equals(r_r2)\n");
378
395
  puts("end");
379
- /* c_test_gsl_complex_arccsch */
380
- gsl_complex v70;
381
- GSL_SET_COMPLEX(&v70, 2.0, 2.0);
382
- gsl_complex c_r69;
383
- c_r69 = gsl_complex_arccsch(v70);
384
- puts("def test_gsl_complex_arccsch()");
385
- puts(" v70 = GSL_Complex.create");
386
- puts(" v70.set(2.0,2.0)");
387
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccsch(v70)");
396
+ /* c_test_gsl_complex_arcsinh */
397
+ gsl_complex v66;
398
+ GSL_SET_COMPLEX(&v66, 2.0, 2.0);
399
+ gsl_complex c_r65;
400
+ c_r65 = gsl_complex_arcsinh(v66);
401
+ puts("def test_gsl_complex_arcsinh()");
402
+ puts(" v66 = GSL_Complex.create");
403
+ puts(" v66.set(2.0,2.0)");
404
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsinh(v66)");
388
405
  puts(" r_r2 = GSL_Complex.new");
389
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r69),GSL_IMAG(c_r69));
406
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r65),GSL_IMAG(c_r65));
390
407
  printf(" assert r_r1.equals(r_r2)\n");
391
408
  puts("end");
392
- /* c_test_gsl_complex_div_imag */
393
- gsl_complex v26;
394
- GSL_SET_COMPLEX(&v26, 2.0, 2.0);
395
- double v27 = (double)2.0;
396
- gsl_complex c_r25;
397
- c_r25 = gsl_complex_div_imag(v26,v27);
398
- puts("def test_gsl_complex_div_imag()");
399
- puts(" v26 = GSL_Complex.create");
400
- puts(" v26.set(2.0,2.0)");
409
+ /* c_test_gsl_complex_div_real */
410
+ gsl_complex v18;
411
+ GSL_SET_COMPLEX(&v18, 2.0, 2.0);
412
+ double v19 = (double)2.0;
413
+ gsl_complex c_r17;
414
+ c_r17 = gsl_complex_div_real(v18,v19);
415
+ puts("def test_gsl_complex_div_real()");
416
+ puts(" v18 = GSL_Complex.create");
417
+ puts(" v18.set(2.0,2.0)");
401
418
  puts("");
402
- puts(" v27 = 2.0");
403
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_div_imag(v26,v27)");
404
- puts(" r_r2 = GSL_Complex.new");
405
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r25),GSL_IMAG(c_r25));
406
- printf(" assert r_r1.equals(r_r2)\n");
407
- puts("end");
408
- /* c_test_gsl_complex_cos */
409
- gsl_complex v45;
410
- GSL_SET_COMPLEX(&v45, 2.0, 2.0);
411
- gsl_complex c_r44;
412
- c_r44 = gsl_complex_cos(v45);
413
- puts("def test_gsl_complex_cos()");
414
- puts(" v45 = GSL_Complex.create");
415
- puts(" v45.set(2.0,2.0)");
416
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_cos(v45)");
419
+ puts(" v19 = 2.0");
420
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_div_real(v18,v19)");
417
421
  puts(" r_r2 = GSL_Complex.new");
418
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r44),GSL_IMAG(c_r44));
422
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r17),GSL_IMAG(c_r17));
419
423
  printf(" assert r_r1.equals(r_r2)\n");
420
424
  puts("end");
421
- /* c_test_gsl_complex_arccot */
422
- gsl_complex v59;
423
- GSL_SET_COMPLEX(&v59, 2.0, 2.0);
424
- gsl_complex c_r58;
425
- c_r58 = gsl_complex_arccot(v59);
426
- puts("def test_gsl_complex_arccot()");
427
- puts(" v59 = GSL_Complex.create");
428
- puts(" v59.set(2.0,2.0)");
429
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccot(v59)");
425
+ /* c_test_gsl_complex_log */
426
+ gsl_complex v40;
427
+ GSL_SET_COMPLEX(&v40, 2.0, 2.0);
428
+ gsl_complex c_r39;
429
+ c_r39 = gsl_complex_log(v40);
430
+ puts("def test_gsl_complex_log()");
431
+ puts(" v40 = GSL_Complex.create");
432
+ puts(" v40.set(2.0,2.0)");
433
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_log(v40)");
430
434
  puts(" r_r2 = GSL_Complex.new");
431
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r58),GSL_IMAG(c_r58));
435
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r39),GSL_IMAG(c_r39));
432
436
  printf(" assert r_r1.equals(r_r2)\n");
433
437
  puts("end");
434
- /* c_test_gsl_complex_arccoth */
435
- gsl_complex v73;
436
- GSL_SET_COMPLEX(&v73, 2.0, 2.0);
437
- gsl_complex c_r72;
438
- c_r72 = gsl_complex_arccoth(v73);
439
- puts("def test_gsl_complex_arccoth()");
440
- puts(" v73 = GSL_Complex.create");
441
- puts(" v73.set(2.0,2.0)");
442
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccoth(v73)");
438
+ /* c_test_gsl_complex_arcsec_real */
439
+ double v55 = (double)2.0;
440
+ gsl_complex c_r54;
441
+ c_r54 = gsl_complex_arcsec_real(v55);
442
+ puts("def test_gsl_complex_arcsec_real()");
443
+ puts("");
444
+ puts(" v55 = 2.0");
445
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsec_real(v55)");
443
446
  puts(" r_r2 = GSL_Complex.new");
444
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r72),GSL_IMAG(c_r72));
447
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r54),GSL_IMAG(c_r54));
445
448
  printf(" assert r_r1.equals(r_r2)\n");
446
449
  puts("end");
447
- /* c_test_gsl_complex_add */
448
- gsl_complex v4;
449
- GSL_SET_COMPLEX(&v4, 2.0, 2.0);
450
- gsl_complex v5;
451
- GSL_SET_COMPLEX(&v5, 2.0, 2.0);
452
- gsl_complex c_r3;
453
- c_r3 = gsl_complex_add(v4,v5);
454
- puts("def test_gsl_complex_add()");
455
- puts(" v4 = GSL_Complex.create");
456
- puts(" v4.set(2.0,2.0)");
457
- puts(" v5 = GSL_Complex.create");
458
- puts(" v5.set(2.0,2.0)");
459
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_add(v4,v5)");
450
+ /* c_test_gsl_complex_arcsech */
451
+ gsl_complex v69;
452
+ GSL_SET_COMPLEX(&v69, 2.0, 2.0);
453
+ gsl_complex c_r68;
454
+ c_r68 = gsl_complex_arcsech(v69);
455
+ puts("def test_gsl_complex_arcsech()");
456
+ puts(" v69 = GSL_Complex.create");
457
+ puts(" v69.set(2.0,2.0)");
458
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsech(v69)");
460
459
  puts(" r_r2 = GSL_Complex.new");
461
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r3),GSL_IMAG(c_r3));
460
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r68),GSL_IMAG(c_r68));
462
461
  printf(" assert r_r1.equals(r_r2)\n");
463
462
  puts("end");
464
- /* c_test_gsl_complex_negative */
465
- gsl_complex v30;
466
- GSL_SET_COMPLEX(&v30, 2.0, 2.0);
467
- gsl_complex c_r29;
468
- c_r29 = gsl_complex_negative(v30);
469
- puts("def test_gsl_complex_negative()");
470
- puts(" v30 = GSL_Complex.create");
471
- puts(" v30.set(2.0,2.0)");
472
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_negative(v30)");
463
+ /* c_test_gsl_complex_mul_imag */
464
+ gsl_complex v24;
465
+ GSL_SET_COMPLEX(&v24, 2.0, 2.0);
466
+ double v25 = (double)2.0;
467
+ gsl_complex c_r23;
468
+ c_r23 = gsl_complex_mul_imag(v24,v25);
469
+ puts("def test_gsl_complex_mul_imag()");
470
+ puts(" v24 = GSL_Complex.create");
471
+ puts(" v24.set(2.0,2.0)");
472
+ puts("");
473
+ puts(" v25 = 2.0");
474
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_mul_imag(v24,v25)");
473
475
  puts(" r_r2 = GSL_Complex.new");
474
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r29),GSL_IMAG(c_r29));
476
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r23),GSL_IMAG(c_r23));
475
477
  printf(" assert r_r1.equals(r_r2)\n");
476
478
  puts("end");
477
- /* c_test_gsl_complex_tan */
478
- gsl_complex v48;
479
- GSL_SET_COMPLEX(&v48, 2.0, 2.0);
480
- gsl_complex c_r47;
481
- c_r47 = gsl_complex_tan(v48);
482
- puts("def test_gsl_complex_tan()");
483
- puts(" v48 = GSL_Complex.create");
484
- puts(" v48.set(2.0,2.0)");
485
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_tan(v48)");
479
+ /* c_test_gsl_complex_sin */
480
+ gsl_complex v44;
481
+ GSL_SET_COMPLEX(&v44, 2.0, 2.0);
482
+ gsl_complex c_r43;
483
+ c_r43 = gsl_complex_sin(v44);
484
+ puts("def test_gsl_complex_sin()");
485
+ puts(" v44 = GSL_Complex.create");
486
+ puts(" v44.set(2.0,2.0)");
487
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sin(v44)");
486
488
  puts(" r_r2 = GSL_Complex.new");
487
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r47),GSL_IMAG(c_r47));
489
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r43),GSL_IMAG(c_r43));
488
490
  printf(" assert r_r1.equals(r_r2)\n");
489
491
  puts("end");
490
- /* c_test_gsl_complex_abs */
491
- gsl_complex v2;
492
- GSL_SET_COMPLEX(&v2, 2.0, 2.0);
493
- double c_r1;
494
- c_r1 = gsl_complex_abs(v2);
495
- puts("def test_gsl_complex_abs()");
496
- puts(" v2 = GSL_Complex.create");
497
- puts(" v2.set(2.0,2.0)");
498
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_abs(v2)");
499
- printf(" assert_in_delta r_r1, %.15g, EPSILON\n", c_r1);
492
+ /* c_test_gsl_complex_arctan */
493
+ gsl_complex v58;
494
+ GSL_SET_COMPLEX(&v58, 2.0, 2.0);
495
+ gsl_complex c_r57;
496
+ c_r57 = gsl_complex_arctan(v58);
497
+ puts("def test_gsl_complex_arctan()");
498
+ puts(" v58 = GSL_Complex.create");
499
+ puts(" v58.set(2.0,2.0)");
500
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arctan(v58)");
501
+ puts(" r_r2 = GSL_Complex.new");
502
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r57),GSL_IMAG(c_r57));
503
+ printf(" assert r_r1.equals(r_r2)\n");
500
504
  puts("end");
501
- /* c_test_gsl_complex_sech */
502
- gsl_complex v62;
503
- GSL_SET_COMPLEX(&v62, 2.0, 2.0);
504
- gsl_complex c_r61;
505
- c_r61 = gsl_complex_sech(v62);
506
- puts("def test_gsl_complex_sech()");
507
- puts(" v62 = GSL_Complex.create");
508
- puts(" v62.set(2.0,2.0)");
509
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sech(v62)");
505
+ /* c_test_gsl_complex_arctanh_real */
506
+ double v72 = (double)2.0;
507
+ gsl_complex c_r71;
508
+ c_r71 = gsl_complex_arctanh_real(v72);
509
+ puts("def test_gsl_complex_arctanh_real()");
510
+ puts("");
511
+ puts(" v72 = 2.0");
512
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arctanh_real(v72)");
510
513
  puts(" r_r2 = GSL_Complex.new");
511
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r61),GSL_IMAG(c_r61));
514
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r71),GSL_IMAG(c_r71));
512
515
  printf(" assert r_r1.equals(r_r2)\n");
513
516
  puts("end");
514
- /* c_test_gsl_complex_div */
515
- gsl_complex v10;
516
- GSL_SET_COMPLEX(&v10, 2.0, 2.0);
517
- gsl_complex v11;
518
- GSL_SET_COMPLEX(&v11, 2.0, 2.0);
519
- gsl_complex c_r9;
520
- c_r9 = gsl_complex_div(v10,v11);
521
- puts("def test_gsl_complex_div()");
522
- puts(" v10 = GSL_Complex.create");
523
- puts(" v10.set(2.0,2.0)");
524
- puts(" v11 = GSL_Complex.create");
525
- puts(" v11.set(2.0,2.0)");
526
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_div(v10,v11)");
517
+ /* c_test_gsl_complex_inverse */
518
+ gsl_complex v29;
519
+ GSL_SET_COMPLEX(&v29, 2.0, 2.0);
520
+ gsl_complex c_r28;
521
+ c_r28 = gsl_complex_inverse(v29);
522
+ puts("def test_gsl_complex_inverse()");
523
+ puts(" v29 = GSL_Complex.create");
524
+ puts(" v29.set(2.0,2.0)");
525
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_inverse(v29)");
527
526
  puts(" r_r2 = GSL_Complex.new");
528
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r9),GSL_IMAG(c_r9));
527
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r28),GSL_IMAG(c_r28));
529
528
  printf(" assert r_r1.equals(r_r2)\n");
530
529
  puts("end");
531
- /* c_test_gsl_complex_polar */
532
- double v33 = (double)2.0;
533
- double v34 = (double)2.0;
534
- gsl_complex c_r32;
535
- c_r32 = gsl_complex_polar(v33,v34);
536
- puts("def test_gsl_complex_polar()");
537
- puts("");
538
- puts(" v33 = 2.0");
539
- puts("");
540
- puts(" v34 = 2.0");
541
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_polar(v33,v34)");
530
+ /* c_test_gsl_complex_csc */
531
+ gsl_complex v47;
532
+ GSL_SET_COMPLEX(&v47, 2.0, 2.0);
533
+ gsl_complex c_r46;
534
+ c_r46 = gsl_complex_csc(v47);
535
+ puts("def test_gsl_complex_csc()");
536
+ puts(" v47 = GSL_Complex.create");
537
+ puts(" v47.set(2.0,2.0)");
538
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_csc(v47)");
542
539
  puts(" r_r2 = GSL_Complex.new");
543
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r32),GSL_IMAG(c_r32));
540
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r46),GSL_IMAG(c_r46));
544
541
  printf(" assert r_r1.equals(r_r2)\n");
545
542
  puts("end");
546
- /* c_test_gsl_complex_arcsin_real */
547
- double v51 = (double)2.0;
548
- gsl_complex c_r50;
549
- c_r50 = gsl_complex_arcsin_real(v51);
550
- puts("def test_gsl_complex_arcsin_real()");
551
- puts("");
552
- puts(" v51 = 2.0");
553
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsin_real(v51)");
543
+ /* c_test_gsl_complex_arg */
544
+ gsl_complex v1;
545
+ GSL_SET_COMPLEX(&v1, 2.0, 2.0);
546
+ double c_r0;
547
+ c_r0 = gsl_complex_arg(v1);
548
+ puts("def test_gsl_complex_arg()");
549
+ puts(" v1 = GSL_Complex.create");
550
+ puts(" v1.set(2.0,2.0)");
551
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arg(v1)");
552
+ printf(" assert_in_delta r_r1, %.15g, EPSILON\n", c_r0);
553
+ puts("end");
554
+ /* c_test_gsl_complex_cosh */
555
+ gsl_complex v61;
556
+ GSL_SET_COMPLEX(&v61, 2.0, 2.0);
557
+ gsl_complex c_r60;
558
+ c_r60 = gsl_complex_cosh(v61);
559
+ puts("def test_gsl_complex_cosh()");
560
+ puts(" v61 = GSL_Complex.create");
561
+ puts(" v61.set(2.0,2.0)");
562
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_cosh(v61)");
554
563
  puts(" r_r2 = GSL_Complex.new");
555
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r50),GSL_IMAG(c_r50));
564
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r60),GSL_IMAG(c_r60));
556
565
  printf(" assert r_r1.equals(r_r2)\n");
557
566
  puts("end");
558
- /* c_test_gsl_complex_coth */
559
- gsl_complex v65;
560
- GSL_SET_COMPLEX(&v65, 2.0, 2.0);
561
- gsl_complex c_r64;
562
- c_r64 = gsl_complex_coth(v65);
563
- puts("def test_gsl_complex_coth()");
564
- puts(" v65 = GSL_Complex.create");
565
- puts(" v65.set(2.0,2.0)");
566
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_coth(v65)");
567
+ /* c_test_gsl_complex_mul */
568
+ gsl_complex v8;
569
+ GSL_SET_COMPLEX(&v8, 2.0, 2.0);
570
+ gsl_complex v9;
571
+ GSL_SET_COMPLEX(&v9, 2.0, 2.0);
572
+ gsl_complex c_r7;
573
+ c_r7 = gsl_complex_mul(v8,v9);
574
+ puts("def test_gsl_complex_mul()");
575
+ puts(" v8 = GSL_Complex.create");
576
+ puts(" v8.set(2.0,2.0)");
577
+ puts(" v9 = GSL_Complex.create");
578
+ puts(" v9.set(2.0,2.0)");
579
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_mul(v8,v9)");
567
580
  puts(" r_r2 = GSL_Complex.new");
568
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r64),GSL_IMAG(c_r64));
581
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r7),GSL_IMAG(c_r7));
569
582
  printf(" assert r_r1.equals(r_r2)\n");
570
583
  puts("end");
571
- /* c_test_gsl_complex_mul_real */
572
- gsl_complex v16;
573
- GSL_SET_COMPLEX(&v16, 2.0, 2.0);
574
- double v17 = (double)2.0;
575
- gsl_complex c_r15;
576
- c_r15 = gsl_complex_mul_real(v16,v17);
577
- puts("def test_gsl_complex_mul_real()");
578
- puts(" v16 = GSL_Complex.create");
579
- puts(" v16.set(2.0,2.0)");
584
+ /* c_test_gsl_complex_sqrt_real */
585
+ double v32 = (double)2.0;
586
+ gsl_complex c_r31;
587
+ c_r31 = gsl_complex_sqrt_real(v32);
588
+ puts("def test_gsl_complex_sqrt_real()");
580
589
  puts("");
581
- puts(" v17 = 2.0");
582
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_mul_real(v16,v17)");
590
+ puts(" v32 = 2.0");
591
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sqrt_real(v32)");
583
592
  puts(" r_r2 = GSL_Complex.new");
584
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r15),GSL_IMAG(c_r15));
593
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r31),GSL_IMAG(c_r31));
585
594
  printf(" assert r_r1.equals(r_r2)\n");
586
595
  puts("end");
587
- /* c_test_gsl_complex_exp */
588
- gsl_complex v39;
589
- GSL_SET_COMPLEX(&v39, 2.0, 2.0);
590
- gsl_complex c_r38;
591
- c_r38 = gsl_complex_exp(v39);
592
- puts("def test_gsl_complex_exp()");
593
- puts(" v39 = GSL_Complex.create");
594
- puts(" v39.set(2.0,2.0)");
595
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_exp(v39)");
596
+ /* c_test_gsl_complex_arcsin */
597
+ gsl_complex v50;
598
+ GSL_SET_COMPLEX(&v50, 2.0, 2.0);
599
+ gsl_complex c_r49;
600
+ c_r49 = gsl_complex_arcsin(v50);
601
+ puts("def test_gsl_complex_arcsin()");
602
+ puts(" v50 = GSL_Complex.create");
603
+ puts(" v50.set(2.0,2.0)");
604
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsin(v50)");
596
605
  puts(" r_r2 = GSL_Complex.new");
597
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r38),GSL_IMAG(c_r38));
606
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r49),GSL_IMAG(c_r49));
598
607
  printf(" assert r_r1.equals(r_r2)\n");
599
608
  puts("end");
600
- /* c_test_gsl_complex_arcsec */
601
- gsl_complex v54;
602
- GSL_SET_COMPLEX(&v54, 2.0, 2.0);
603
- gsl_complex c_r53;
604
- c_r53 = gsl_complex_arcsec(v54);
605
- puts("def test_gsl_complex_arcsec()");
606
- puts(" v54 = GSL_Complex.create");
607
- puts(" v54.set(2.0,2.0)");
608
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arcsec(v54)");
609
+ /* c_test_gsl_complex_tanh */
610
+ gsl_complex v64;
611
+ GSL_SET_COMPLEX(&v64, 2.0, 2.0);
612
+ gsl_complex c_r63;
613
+ c_r63 = gsl_complex_tanh(v64);
614
+ puts("def test_gsl_complex_tanh()");
615
+ puts(" v64 = GSL_Complex.create");
616
+ puts(" v64.set(2.0,2.0)");
617
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_tanh(v64)");
609
618
  puts(" r_r2 = GSL_Complex.new");
610
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r53),GSL_IMAG(c_r53));
619
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r63),GSL_IMAG(c_r63));
611
620
  printf(" assert r_r1.equals(r_r2)\n");
612
621
  puts("end");
613
- /* c_test_gsl_complex_arccosh_real */
614
- double v68 = (double)2.0;
615
- gsl_complex c_r67;
616
- c_r67 = gsl_complex_arccosh_real(v68);
617
- puts("def test_gsl_complex_arccosh_real()");
622
+ /* c_test_gsl_complex_sub_real */
623
+ gsl_complex v14;
624
+ GSL_SET_COMPLEX(&v14, 2.0, 2.0);
625
+ double v15 = (double)2.0;
626
+ gsl_complex c_r13;
627
+ c_r13 = gsl_complex_sub_real(v14,v15);
628
+ puts("def test_gsl_complex_sub_real()");
629
+ puts(" v14 = GSL_Complex.create");
630
+ puts(" v14.set(2.0,2.0)");
618
631
  puts("");
619
- puts(" v68 = 2.0");
620
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccosh_real(v68)");
632
+ puts(" v15 = 2.0");
633
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sub_real(v14,v15)");
621
634
  puts(" r_r2 = GSL_Complex.new");
622
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r67),GSL_IMAG(c_r67));
635
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r13),GSL_IMAG(c_r13));
623
636
  printf(" assert r_r1.equals(r_r2)\n");
624
637
  puts("end");
625
- /* c_test_gsl_complex_sub_imag */
626
- gsl_complex v22;
627
- GSL_SET_COMPLEX(&v22, 2.0, 2.0);
628
- double v23 = (double)2.0;
629
- gsl_complex c_r21;
630
- c_r21 = gsl_complex_sub_imag(v22,v23);
631
- puts("def test_gsl_complex_sub_imag()");
632
- puts(" v22 = GSL_Complex.create");
633
- puts(" v22.set(2.0,2.0)");
638
+ /* c_test_gsl_complex_pow_real */
639
+ gsl_complex v37;
640
+ GSL_SET_COMPLEX(&v37, 2.0, 2.0);
641
+ double v38 = (double)2.0;
642
+ gsl_complex c_r36;
643
+ c_r36 = gsl_complex_pow_real(v37,v38);
644
+ puts("def test_gsl_complex_pow_real()");
645
+ puts(" v37 = GSL_Complex.create");
646
+ puts(" v37.set(2.0,2.0)");
634
647
  puts("");
635
- puts(" v23 = 2.0");
636
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sub_imag(v22,v23)");
648
+ puts(" v38 = 2.0");
649
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_pow_real(v37,v38)");
637
650
  puts(" r_r2 = GSL_Complex.new");
638
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r21),GSL_IMAG(c_r21));
651
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r36),GSL_IMAG(c_r36));
639
652
  printf(" assert r_r1.equals(r_r2)\n");
640
653
  puts("end");
641
- /* c_test_gsl_complex_log_b */
642
- gsl_complex v42;
643
- GSL_SET_COMPLEX(&v42, 2.0, 2.0);
644
- gsl_complex v43;
645
- GSL_SET_COMPLEX(&v43, 2.0, 2.0);
646
- gsl_complex c_r41;
647
- c_r41 = gsl_complex_log_b(v42,v43);
648
- puts("def test_gsl_complex_log_b()");
649
- puts(" v42 = GSL_Complex.create");
650
- puts(" v42.set(2.0,2.0)");
651
- puts(" v43 = GSL_Complex.create");
652
- puts(" v43.set(2.0,2.0)");
653
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_log_b(v42,v43)");
654
+ /* c_test_gsl_complex_arccos_real */
655
+ double v53 = (double)2.0;
656
+ gsl_complex c_r52;
657
+ c_r52 = gsl_complex_arccos_real(v53);
658
+ puts("def test_gsl_complex_arccos_real()");
659
+ puts("");
660
+ puts(" v53 = 2.0");
661
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccos_real(v53)");
654
662
  puts(" r_r2 = GSL_Complex.new");
655
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r41),GSL_IMAG(c_r41));
663
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r52),GSL_IMAG(c_r52));
656
664
  printf(" assert r_r1.equals(r_r2)\n");
657
665
  puts("end");
658
- /* c_test_gsl_complex_arccsc_real */
659
- double v57 = (double)2.0;
660
- gsl_complex c_r56;
661
- c_r56 = gsl_complex_arccsc_real(v57);
662
- puts("def test_gsl_complex_arccsc_real()");
663
- puts("");
664
- puts(" v57 = 2.0");
665
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccsc_real(v57)");
666
+ /* c_test_gsl_complex_arccosh */
667
+ gsl_complex v67;
668
+ GSL_SET_COMPLEX(&v67, 2.0, 2.0);
669
+ gsl_complex c_r66;
670
+ c_r66 = gsl_complex_arccosh(v67);
671
+ puts("def test_gsl_complex_arccosh()");
672
+ puts(" v67 = GSL_Complex.create");
673
+ puts(" v67.set(2.0,2.0)");
674
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccosh(v67)");
666
675
  puts(" r_r2 = GSL_Complex.new");
667
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r56),GSL_IMAG(c_r56));
676
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r66),GSL_IMAG(c_r66));
668
677
  printf(" assert r_r1.equals(r_r2)\n");
669
678
  puts("end");
670
- /* c_test_gsl_complex_arctanh */
671
- gsl_complex v71;
672
- GSL_SET_COMPLEX(&v71, 2.0, 2.0);
673
- gsl_complex c_r70;
674
- c_r70 = gsl_complex_arctanh(v71);
675
- puts("def test_gsl_complex_arctanh()");
676
- puts(" v71 = GSL_Complex.create");
677
- puts(" v71.set(2.0,2.0)");
678
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arctanh(v71)");
679
+ /* c_test_gsl_complex_add_imag */
680
+ gsl_complex v20;
681
+ GSL_SET_COMPLEX(&v20, 2.0, 2.0);
682
+ double v21 = (double)2.0;
683
+ gsl_complex c_r19;
684
+ c_r19 = gsl_complex_add_imag(v20,v21);
685
+ puts("def test_gsl_complex_add_imag()");
686
+ puts(" v20 = GSL_Complex.create");
687
+ puts(" v20.set(2.0,2.0)");
688
+ puts("");
689
+ puts(" v21 = 2.0");
690
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_add_imag(v20,v21)");
679
691
  puts(" r_r2 = GSL_Complex.new");
680
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r70),GSL_IMAG(c_r70));
692
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r19),GSL_IMAG(c_r19));
681
693
  printf(" assert r_r1.equals(r_r2)\n");
682
694
  puts("end");
683
- /* c_test_gsl_complex_conjugate */
684
- gsl_complex v28;
685
- GSL_SET_COMPLEX(&v28, 2.0, 2.0);
686
- gsl_complex c_r27;
687
- c_r27 = gsl_complex_conjugate(v28);
688
- puts("def test_gsl_complex_conjugate()");
689
- puts(" v28 = GSL_Complex.create");
690
- puts(" v28.set(2.0,2.0)");
691
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_conjugate(v28)");
695
+ /* c_test_gsl_complex_log10 */
696
+ gsl_complex v41;
697
+ GSL_SET_COMPLEX(&v41, 2.0, 2.0);
698
+ gsl_complex c_r40;
699
+ c_r40 = gsl_complex_log10(v41);
700
+ puts("def test_gsl_complex_log10()");
701
+ puts(" v41 = GSL_Complex.create");
702
+ puts(" v41.set(2.0,2.0)");
703
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_log10(v41)");
692
704
  puts(" r_r2 = GSL_Complex.new");
693
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r27),GSL_IMAG(c_r27));
705
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r40),GSL_IMAG(c_r40));
694
706
  printf(" assert r_r1.equals(r_r2)\n");
695
707
  puts("end");
696
- /* c_test_gsl_complex_sec */
697
- gsl_complex v46;
698
- GSL_SET_COMPLEX(&v46, 2.0, 2.0);
699
- gsl_complex c_r45;
700
- c_r45 = gsl_complex_sec(v46);
701
- puts("def test_gsl_complex_sec()");
702
- puts(" v46 = GSL_Complex.create");
703
- puts(" v46.set(2.0,2.0)");
704
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sec(v46)");
708
+ /* c_test_gsl_complex_arccsc */
709
+ gsl_complex v56;
710
+ GSL_SET_COMPLEX(&v56, 2.0, 2.0);
711
+ gsl_complex c_r55;
712
+ c_r55 = gsl_complex_arccsc(v56);
713
+ puts("def test_gsl_complex_arccsc()");
714
+ puts(" v56 = GSL_Complex.create");
715
+ puts(" v56.set(2.0,2.0)");
716
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccsc(v56)");
705
717
  puts(" r_r2 = GSL_Complex.new");
706
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r45),GSL_IMAG(c_r45));
718
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r55),GSL_IMAG(c_r55));
707
719
  printf(" assert r_r1.equals(r_r2)\n");
708
720
  puts("end");
709
- /* c_test_gsl_complex_sinh */
710
- gsl_complex v60;
711
- GSL_SET_COMPLEX(&v60, 2.0, 2.0);
712
- gsl_complex c_r59;
713
- c_r59 = gsl_complex_sinh(v60);
714
- puts("def test_gsl_complex_sinh()");
715
- puts(" v60 = GSL_Complex.create");
716
- puts(" v60.set(2.0,2.0)");
717
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sinh(v60)");
721
+ /* c_test_gsl_complex_arccsch */
722
+ gsl_complex v70;
723
+ GSL_SET_COMPLEX(&v70, 2.0, 2.0);
724
+ gsl_complex c_r69;
725
+ c_r69 = gsl_complex_arccsch(v70);
726
+ puts("def test_gsl_complex_arccsch()");
727
+ puts(" v70 = GSL_Complex.create");
728
+ puts(" v70.set(2.0,2.0)");
729
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccsch(v70)");
718
730
  puts(" r_r2 = GSL_Complex.new");
719
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r59),GSL_IMAG(c_r59));
731
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r69),GSL_IMAG(c_r69));
720
732
  printf(" assert r_r1.equals(r_r2)\n");
721
733
  puts("end");
722
- /* c_test_gsl_complex_sub */
723
- gsl_complex v6;
724
- GSL_SET_COMPLEX(&v6, 2.0, 2.0);
725
- gsl_complex v7;
726
- GSL_SET_COMPLEX(&v7, 2.0, 2.0);
727
- gsl_complex c_r5;
728
- c_r5 = gsl_complex_sub(v6,v7);
729
- puts("def test_gsl_complex_sub()");
730
- puts(" v6 = GSL_Complex.create");
731
- puts(" v6.set(2.0,2.0)");
732
- puts(" v7 = GSL_Complex.create");
733
- puts(" v7.set(2.0,2.0)");
734
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sub(v6,v7)");
734
+ /* c_test_gsl_complex_div_imag */
735
+ gsl_complex v26;
736
+ GSL_SET_COMPLEX(&v26, 2.0, 2.0);
737
+ double v27 = (double)2.0;
738
+ gsl_complex c_r25;
739
+ c_r25 = gsl_complex_div_imag(v26,v27);
740
+ puts("def test_gsl_complex_div_imag()");
741
+ puts(" v26 = GSL_Complex.create");
742
+ puts(" v26.set(2.0,2.0)");
743
+ puts("");
744
+ puts(" v27 = 2.0");
745
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_div_imag(v26,v27)");
735
746
  puts(" r_r2 = GSL_Complex.new");
736
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r5),GSL_IMAG(c_r5));
747
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r25),GSL_IMAG(c_r25));
737
748
  printf(" assert r_r1.equals(r_r2)\n");
738
749
  puts("end");
739
- /* c_test_gsl_complex_sqrt */
740
- gsl_complex v31;
741
- GSL_SET_COMPLEX(&v31, 2.0, 2.0);
742
- gsl_complex c_r30;
743
- c_r30 = gsl_complex_sqrt(v31);
744
- puts("def test_gsl_complex_sqrt()");
745
- puts(" v31 = GSL_Complex.create");
746
- puts(" v31.set(2.0,2.0)");
747
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_sqrt(v31)");
750
+ /* c_test_gsl_complex_cos */
751
+ gsl_complex v45;
752
+ GSL_SET_COMPLEX(&v45, 2.0, 2.0);
753
+ gsl_complex c_r44;
754
+ c_r44 = gsl_complex_cos(v45);
755
+ puts("def test_gsl_complex_cos()");
756
+ puts(" v45 = GSL_Complex.create");
757
+ puts(" v45.set(2.0,2.0)");
758
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_cos(v45)");
748
759
  puts(" r_r2 = GSL_Complex.new");
749
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r30),GSL_IMAG(c_r30));
760
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r44),GSL_IMAG(c_r44));
750
761
  printf(" assert r_r1.equals(r_r2)\n");
751
762
  puts("end");
752
- /* c_test_gsl_complex_cot */
753
- gsl_complex v49;
754
- GSL_SET_COMPLEX(&v49, 2.0, 2.0);
755
- gsl_complex c_r48;
756
- c_r48 = gsl_complex_cot(v49);
757
- puts("def test_gsl_complex_cot()");
758
- puts(" v49 = GSL_Complex.create");
759
- puts(" v49.set(2.0,2.0)");
760
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_cot(v49)");
763
+ /* c_test_gsl_complex_arccot */
764
+ gsl_complex v59;
765
+ GSL_SET_COMPLEX(&v59, 2.0, 2.0);
766
+ gsl_complex c_r58;
767
+ c_r58 = gsl_complex_arccot(v59);
768
+ puts("def test_gsl_complex_arccot()");
769
+ puts(" v59 = GSL_Complex.create");
770
+ puts(" v59.set(2.0,2.0)");
771
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccot(v59)");
761
772
  puts(" r_r2 = GSL_Complex.new");
762
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r48),GSL_IMAG(c_r48));
773
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r58),GSL_IMAG(c_r58));
763
774
  printf(" assert r_r1.equals(r_r2)\n");
764
775
  puts("end");
765
- /* c_test_gsl_complex_abs2 */
766
- gsl_complex v3;
767
- GSL_SET_COMPLEX(&v3, 2.0, 2.0);
768
- double c_r2;
769
- c_r2 = gsl_complex_abs2(v3);
770
- puts("def test_gsl_complex_abs2()");
771
- puts(" v3 = GSL_Complex.create");
772
- puts(" v3.set(2.0,2.0)");
773
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_abs2(v3)");
774
- printf(" assert_in_delta r_r1, %.15g, EPSILON\n", c_r2);
775
- puts("end");
776
- /* c_test_gsl_complex_csch */
777
- gsl_complex v63;
778
- GSL_SET_COMPLEX(&v63, 2.0, 2.0);
779
- gsl_complex c_r62;
780
- c_r62 = gsl_complex_csch(v63);
781
- puts("def test_gsl_complex_csch()");
782
- puts(" v63 = GSL_Complex.create");
783
- puts(" v63.set(2.0,2.0)");
784
- puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_csch(v63)");
776
+ /* c_test_gsl_complex_arccoth */
777
+ gsl_complex v73;
778
+ GSL_SET_COMPLEX(&v73, 2.0, 2.0);
779
+ gsl_complex c_r72;
780
+ c_r72 = gsl_complex_arccoth(v73);
781
+ puts("def test_gsl_complex_arccoth()");
782
+ puts(" v73 = GSL_Complex.create");
783
+ puts(" v73.set(2.0,2.0)");
784
+ puts(" r_r1 = ::GSL4r::Complex::Methods::gsl_complex_arccoth(v73)");
785
785
  puts(" r_r2 = GSL_Complex.new");
786
- printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r62),GSL_IMAG(c_r62));
786
+ printf(" r_r2.set(%.15g,%.15g)\n",GSL_REAL(c_r72),GSL_IMAG(c_r72));
787
787
  printf(" assert r_r1.equals(r_r2)\n");
788
788
  puts("end");
789
789
  puts("end");