1 /*
2 file automatically generated by make_test_files.pl
3 Tue Apr 19 14:01:03 2011
4 */
5
6 /*****************************************************************************
7 * *
8 * UNU.RAN -- Universal Non-Uniform Random number generator *
9 * *
10 *****************************************************************************/
11
12 /**
13 ** Tests for SROU
14 **/
15
16 /*---------------------------------------------------------------------------*/
17 #include "testunuran.h"
18
19 #ifdef UNUR_URNG_DEFAULT_RNGSTREAM
20 #include <RngStream.h>
21 #endif
22 /*---------------------------------------------------------------------------*/
23
24 /*---------------------------------------------------------------------------*/
25 /* global variables */
26
27 static FILE *TESTLOG; /* test log file */
28 static FILE *UNURANLOG; /* unuran log file */
29
30 static int test_ok = TRUE; /* all tests ok (boolean) */
31 static int fullcheck = FALSE; /* whether all checks are performed */
32
33 static TIMER watch; /* stop watch */
34
35 /*---------------------------------------------------------------------------*/
36
37 void run_verify_generator( FILE *LOG, int line, UNUR_PAR *par );
38
39
40
41 /*---------------------------------------------------------------------------*/
42
43 void test_new (void);
44 void test_set (void);
45 void test_get (void);
46 void test_chg (void);
47 void test_init (void);
48 void test_reinit (void);
49 void test_sample (void);
50 void test_validate (void);
51 void test_special(void);
52
53 /*---------------------------------------------------------------------------*/
54
55
56
57 /* prototypes */
58 double pdf_normal( double x, const UNUR_DISTR *distr );
59 double pdf_invalid( double x, const UNUR_DISTR *distr );
60
61 double pdf_sqrtlin( double x, const UNUR_DISTR *distr );
62 double dpdf_sqrtlin( double x, const UNUR_DISTR *distr );
63 double cdf_sqrtlin( double x, const UNUR_DISTR *distr );
64
65 double pdf_sqrtlinshft(double x, const UNUR_DISTR *distr );
66 double dpdf_sqrtlinshft( double x, const UNUR_DISTR *distr );
67 double cdf_sqrtlinshft( double x, const UNUR_DISTR *distr );
68
69 int unur_srou_set_pedantic( struct unur_par *par, int pedantic );
70
71 #define COMPARE_SAMPLE_SIZE (10000)
72 #define VIOLATE_SAMPLE_SIZE (20)
73
74 /* #define SEED (3984364) */
75
76
77
78
79 /*---------------------------------------------------------------------------*/
80
81 #ifndef CHI2_FAILURES_TOLERATED
82 # define CHI2_FAILURES_TOLERATED DEFAULT_CHI2_FAILURES_TOLERATED
83 #endif
84
85 /*---------------------------------------------------------------------------*/
86 /* [verbatim] */
87
88
89
90 /* pdf for normal distribution */
pdf_normal(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)91 double pdf_normal( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
92 {
93 return exp(-x*x/2.);
94 } /* end of pdf_normal */
95
96 /* pdf that does not work */
pdf_invalid(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)97 double pdf_invalid( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
98 {
99 return ((fabs(x)<0.001) ? 0. : exp(-x*x/2.));
100 } /* end of pdf_invalid */
101
102 /* pdf with piecewise linear function as transformed density with T = -1/sqrt */
pdf_sqrtlin(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)103 double pdf_sqrtlin( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
104 {
105 double y = 1./(fabs(x)+1.);
106 return y*y;
107 }
dpdf_sqrtlin(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)108 double dpdf_sqrtlin( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
109 {
110 double y = 1./(fabs(x)+1.);
111 y = 2.*y*y*y;
112 return ((x<0.) ? y : - y);
113 }
cdf_sqrtlin(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)114 double cdf_sqrtlin( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
115 {
116 if (x<=0.)
117 return 0.5/(1.-x);
118 else
119 return (1.-0.5/(1.+x));
120 }
121
122 /* pdf with piecewise linear function as transformed density with T = -1/sqrt and shifted mode */
pdf_sqrtlinshft(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)123 double pdf_sqrtlinshft( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
124 {
125 double y;
126 x -= 1000.;
127 y = 1./(fabs(x)+1.);
128 return y*y;
129 }
dpdf_sqrtlinshft(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)130 double dpdf_sqrtlinshft( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
131 {
132 double y;
133 x -= 1000.;
134 y = 1./(fabs(x)+1.);
135 y = 2.*y*y*y;
136 return ((x<0.) ? y : - y);
137 }
cdf_sqrtlinshft(double x,const UNUR_DISTR * distr ATTRIBUTE__UNUSED)138 double cdf_sqrtlinshft( double x, const UNUR_DISTR *distr ATTRIBUTE__UNUSED)
139 {
140 x -= 1000.;
141 if (x<=0.)
142 return 0.5/(1.-x);
143 else
144 return (1.-0.5/(1.+x));
145 }
146
147 /* dummy function */
unur_srou_set_pedantic(struct unur_par * par ATTRIBUTE__UNUSED,int pedantic ATTRIBUTE__UNUSED)148 int unur_srou_set_pedantic( struct unur_par *par ATTRIBUTE__UNUSED, int pedantic ATTRIBUTE__UNUSED)
149 { return 1; }
150
151 /*---------------------------------------------------------------------------*/
152 /* [new] */
153
test_new(void)154 void test_new (void)
155 {
156 int n_tests_failed; /* number of failed tests */
157
158 /* start test */
159 printf("[new "); fflush(stdout);
160 fprintf(TESTLOG,"\n[new]\n");
161
162 /* reset counter */
163 n_tests_failed = 0;
164
165 /* set stop watch */
166 stopwatch_lap(&watch);
167
168 { /* invalid NULL ptr */
169 UNUR_DISTR *distr = NULL;
170 distr = NULL;
171
172
173 unur_reset_errno();
174 n_tests_failed += (check_expected_NULL(TESTLOG,40,(unur_srou_new( distr )))==UNUR_SUCCESS)?0:1;
175 n_tests_failed += (check_errorcode(TESTLOG,40,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
176 unur_distr_free(distr);
177 }
178
179 { /* invalid distribution type */
180 UNUR_DISTR *distr = NULL;
181 distr = unur_distr_discr_new();
182
183
184 unur_reset_errno();
185 n_tests_failed += (check_expected_NULL(TESTLOG,46,(unur_srou_new( distr )))==UNUR_SUCCESS)?0:1;
186 n_tests_failed += (check_errorcode(TESTLOG,46,UNUR_ERR_DISTR_INVALID)==UNUR_SUCCESS)?0:1;
187 unur_distr_free(distr);
188 }
189
190 { /* data missing in distribution object */
191 UNUR_DISTR *distr = NULL;
192 distr = unur_distr_cont_new();
193
194
195 unur_reset_errno();
196 /* pdf, mode, pdfarea */
197 n_tests_failed += (check_expected_NULL(TESTLOG,53,(unur_srou_new( distr )))==UNUR_SUCCESS)?0:1;
198 n_tests_failed += (check_errorcode(TESTLOG,53,UNUR_ERR_DISTR_REQUIRED)==UNUR_SUCCESS)?0:1;
199 unur_distr_free(distr);
200 }
201
202
203 /* timing */
204 stopwatch_print(TESTLOG,"\n<*>time = %.3f ms\n\n", stopwatch_lap(&watch));
205
206 /* test finished */
207 test_ok &= (n_tests_failed) ? 0 : 1;
208 (n_tests_failed) ? printf(" ==> failed] ") : printf(" ==> ok] ");
209
210 } /* end of test_new() */
211
212 /*---------------------------------------------------------------------------*/
213 /* [set] */
214
test_set(void)215 void test_set (void)
216 {
217 int n_tests_failed; /* number of failed tests */
218
219 /* start test */
220 printf("[set "); fflush(stdout);
221 fprintf(TESTLOG,"\n[set]\n");
222
223 /* reset counter */
224 n_tests_failed = 0;
225
226 /* set stop watch */
227 stopwatch_lap(&watch);
228
229 { /* invalid NULL ptr */
230 UNUR_PAR *par = NULL;
231 par = NULL;
232
233
234 unur_reset_errno();
235 n_tests_failed += (check_expected_setfailed(TESTLOG,63,(unur_srou_set_r(par,2.)))==UNUR_SUCCESS)?0:1;
236 n_tests_failed += (check_errorcode(TESTLOG,63,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
237
238 unur_reset_errno();
239 n_tests_failed += (check_expected_setfailed(TESTLOG,66,(unur_srou_set_cdfatmode(par,0.)))==UNUR_SUCCESS)?0:1;
240 n_tests_failed += (check_errorcode(TESTLOG,66,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
241
242 unur_reset_errno();
243 n_tests_failed += (check_expected_setfailed(TESTLOG,69,(unur_srou_set_pdfatmode(par,1.)))==UNUR_SUCCESS)?0:1;
244 n_tests_failed += (check_errorcode(TESTLOG,69,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
245
246 unur_reset_errno();
247 n_tests_failed += (check_expected_setfailed(TESTLOG,72,(unur_srou_set_verify(par,1)))==UNUR_SUCCESS)?0:1;
248 n_tests_failed += (check_errorcode(TESTLOG,72,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
249
250 unur_reset_errno();
251 n_tests_failed += (check_expected_setfailed(TESTLOG,75,(unur_srou_set_usesqueeze(par,1)))==UNUR_SUCCESS)?0:1;
252 n_tests_failed += (check_errorcode(TESTLOG,75,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
253
254 unur_reset_errno();
255 n_tests_failed += (check_expected_setfailed(TESTLOG,78,(unur_srou_set_usemirror(par,1)))==UNUR_SUCCESS)?0:1;
256 n_tests_failed += (check_errorcode(TESTLOG,78,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
257 }
258
259 { /* invalid parameter object */
260 UNUR_DISTR *distr = NULL;
261 UNUR_PAR *par = NULL;
262 double fpar[2] = {0.,1.};
263 distr = unur_distr_normal(fpar,2);
264 par = unur_arou_new(distr);
265
266
267 unur_reset_errno();
268 n_tests_failed += (check_expected_setfailed(TESTLOG,86,(unur_srou_set_r(par,2.)))==UNUR_SUCCESS)?0:1;
269 n_tests_failed += (check_errorcode(TESTLOG,86,UNUR_ERR_PAR_INVALID)==UNUR_SUCCESS)?0:1;
270
271 unur_reset_errno();
272 n_tests_failed += (check_expected_setfailed(TESTLOG,89,(unur_srou_set_cdfatmode(par,0.)))==UNUR_SUCCESS)?0:1;
273 n_tests_failed += (check_errorcode(TESTLOG,89,UNUR_ERR_PAR_INVALID)==UNUR_SUCCESS)?0:1;
274
275 unur_reset_errno();
276 n_tests_failed += (check_expected_setfailed(TESTLOG,92,(unur_srou_set_pdfatmode(par,1.)))==UNUR_SUCCESS)?0:1;
277 n_tests_failed += (check_errorcode(TESTLOG,92,UNUR_ERR_PAR_INVALID)==UNUR_SUCCESS)?0:1;
278
279 unur_reset_errno();
280 n_tests_failed += (check_expected_setfailed(TESTLOG,95,(unur_srou_set_verify(par,1)))==UNUR_SUCCESS)?0:1;
281 n_tests_failed += (check_errorcode(TESTLOG,95,UNUR_ERR_PAR_INVALID)==UNUR_SUCCESS)?0:1;
282
283 unur_reset_errno();
284 n_tests_failed += (check_expected_setfailed(TESTLOG,98,(unur_srou_set_usesqueeze(par,1)))==UNUR_SUCCESS)?0:1;
285 n_tests_failed += (check_errorcode(TESTLOG,98,UNUR_ERR_PAR_INVALID)==UNUR_SUCCESS)?0:1;
286
287 unur_reset_errno();
288 n_tests_failed += (check_expected_setfailed(TESTLOG,101,(unur_srou_set_usemirror(par,1)))==UNUR_SUCCESS)?0:1;
289 n_tests_failed += (check_errorcode(TESTLOG,101,UNUR_ERR_PAR_INVALID)==UNUR_SUCCESS)?0:1;
290 unur_par_free(par);
291 unur_distr_free(distr);
292 }
293
294 { /* invalid parameters */
295 UNUR_DISTR *distr = NULL;
296 UNUR_PAR *par = NULL;
297 double fpar[2] = {0.,1.};
298 distr = unur_distr_normal(fpar,2);
299 par = unur_srou_new(distr);
300
301
302 unur_reset_errno();
303 n_tests_failed += (check_expected_setfailed(TESTLOG,111,(unur_srou_set_r(par,0.)))==UNUR_SUCCESS)?0:1;
304 n_tests_failed += (check_errorcode(TESTLOG,111,UNUR_ERR_PAR_SET)==UNUR_SUCCESS)?0:1;
305
306 unur_reset_errno();
307 n_tests_failed += (check_expected_setfailed(TESTLOG,114,(unur_srou_set_cdfatmode(par,-1.)))==UNUR_SUCCESS)?0:1;
308 n_tests_failed += (check_errorcode(TESTLOG,114,UNUR_ERR_PAR_SET)==UNUR_SUCCESS)?0:1;
309
310 unur_reset_errno();
311 n_tests_failed += (check_expected_setfailed(TESTLOG,117,(unur_srou_set_pdfatmode(par,-1.)))==UNUR_SUCCESS)?0:1;
312 n_tests_failed += (check_errorcode(TESTLOG,117,UNUR_ERR_PAR_SET)==UNUR_SUCCESS)?0:1;
313 unur_par_free(par);
314 unur_distr_free(distr);
315 }
316
317
318 /* timing */
319 stopwatch_print(TESTLOG,"\n<*>time = %.3f ms\n\n", stopwatch_lap(&watch));
320
321 /* test finished */
322 test_ok &= (n_tests_failed) ? 0 : 1;
323 (n_tests_failed) ? printf(" ==> failed] ") : printf(" ==> ok] ");
324
325 } /* end of test_set() */
326
327 /*---------------------------------------------------------------------------*/
328 /* [chg] */
329
test_chg(void)330 void test_chg (void)
331 {
332 int n_tests_failed; /* number of failed tests */
333
334 /* start test */
335 printf("[chg "); fflush(stdout);
336 fprintf(TESTLOG,"\n[chg]\n");
337
338 /* reset counter */
339 n_tests_failed = 0;
340
341 /* set stop watch */
342 stopwatch_lap(&watch);
343
344 { /* invalid generator object */
345 UNUR_DISTR *distr = NULL;
346 UNUR_PAR *par = NULL;
347 UNUR_GEN *gen = NULL;
348 double fpar[2] = {0.,1.};
349 distr = unur_distr_normal(fpar,2);
350 par = unur_arou_new(distr);
351 unur_set_debug(par,0);
352 gen = unur_init( par );
353 abort_if_NULL(TESTLOG, 133, gen );
354
355
356 unur_reset_errno();
357 n_tests_failed += (check_expected_setfailed(TESTLOG,137,(unur_srou_chg_verify(gen,1)))==UNUR_SUCCESS)?0:1;
358 n_tests_failed += (check_errorcode(TESTLOG,137,UNUR_ERR_GEN_INVALID)==UNUR_SUCCESS)?0:1;
359
360 unur_reset_errno();
361 n_tests_failed += (check_expected_setfailed(TESTLOG,140,(unur_srou_chg_cdfatmode(gen,1.)))==UNUR_SUCCESS)?0:1;
362 n_tests_failed += (check_errorcode(TESTLOG,140,UNUR_ERR_GEN_INVALID)==UNUR_SUCCESS)?0:1;
363
364 unur_reset_errno();
365 n_tests_failed += (check_expected_setfailed(TESTLOG,143,(unur_srou_chg_pdfatmode(gen,1.)))==UNUR_SUCCESS)?0:1;
366 n_tests_failed += (check_errorcode(TESTLOG,143,UNUR_ERR_GEN_INVALID)==UNUR_SUCCESS)?0:1;
367 unur_distr_free(distr);
368 unur_free(gen);
369 }
370
371 { /* invalid parameters */
372 UNUR_DISTR *distr = NULL;
373 UNUR_PAR *par = NULL;
374 UNUR_GEN *gen = NULL;
375 double fpar[2] = {2.,5.};
376 distr = unur_distr_gamma(fpar,2);
377 par = unur_srou_new(distr);
378 gen = unur_init( par );
379 abort_if_NULL(TESTLOG, 149, gen );
380
381
382 unur_reset_errno();
383 n_tests_failed += (check_expected_setfailed(TESTLOG,153,(unur_srou_chg_cdfatmode(gen,-1.)))==UNUR_SUCCESS)?0:1;
384 n_tests_failed += (check_errorcode(TESTLOG,153,UNUR_ERR_PAR_SET)==UNUR_SUCCESS)?0:1;
385
386 unur_reset_errno();
387 n_tests_failed += (check_expected_setfailed(TESTLOG,156,(unur_srou_chg_pdfatmode(gen,-1.)))==UNUR_SUCCESS)?0:1;
388 n_tests_failed += (check_errorcode(TESTLOG,156,UNUR_ERR_PAR_SET)==UNUR_SUCCESS)?0:1;
389 unur_distr_free(distr);
390 unur_free(gen);
391 }
392
393
394 /* timing */
395 stopwatch_print(TESTLOG,"\n<*>time = %.3f ms\n\n", stopwatch_lap(&watch));
396
397 /* test finished */
398 test_ok &= (n_tests_failed) ? 0 : 1;
399 (n_tests_failed) ? printf(" ==> failed] ") : printf(" ==> ok] ");
400
401 } /* end of test_chg() */
402
403 /*---------------------------------------------------------------------------*/
404 /* [init] */
405
test_init(void)406 void test_init (void)
407 {
408 int n_tests_failed; /* number of failed tests */
409
410 /* start test */
411 printf("[init "); fflush(stdout);
412 fprintf(TESTLOG,"\n[init]\n");
413
414 /* reset counter */
415 n_tests_failed = 0;
416
417 /* set stop watch */
418 stopwatch_lap(&watch);
419
420 { /* invalid NULL ptr */
421 UNUR_PAR *par = NULL;
422 par = NULL;
423
424
425 unur_reset_errno();
426 n_tests_failed += (check_expected_NULL(TESTLOG,167,(unur_init( par )))==UNUR_SUCCESS)?0:1;
427 n_tests_failed += (check_errorcode(TESTLOG,167,UNUR_ERR_NULL)==UNUR_SUCCESS)?0:1;
428 }
429
430 { /* invalid data */
431 UNUR_DISTR *distr = NULL;
432 UNUR_PAR *par = NULL;
433 distr = unur_distr_cont_new();
434 unur_distr_cont_set_pdf(distr,pdf_invalid);
435 unur_distr_cont_set_mode(distr,0.);
436 unur_distr_cont_set_pdfarea(distr,1.);
437 par = unur_srou_new(distr);
438
439
440 unur_reset_errno();
441 n_tests_failed += (check_expected_NULL(TESTLOG,178,(unur_init( par )))==UNUR_SUCCESS)?0:1;
442 n_tests_failed += (check_errorcode(TESTLOG,178,UNUR_ERR_GEN_DATA)==UNUR_SUCCESS)?0:1;
443 unur_distr_free(distr);
444 }
445
446 { /* invalid data */
447 UNUR_DISTR *distr = NULL;
448 UNUR_PAR *par = NULL;
449 distr = unur_distr_cont_new();
450 unur_distr_cont_set_pdf(distr,pdf_invalid);
451 unur_distr_cont_set_mode(distr,0.);
452 unur_distr_cont_set_pdfarea(distr,1.);
453 par = unur_srou_new(distr);
454 unur_srou_set_r(par,2.);
455
456
457 unur_reset_errno();
458 n_tests_failed += (check_expected_NULL(TESTLOG,189,(unur_init( par )))==UNUR_SUCCESS)?0:1;
459 n_tests_failed += (check_errorcode(TESTLOG,189,UNUR_ERR_GEN_DATA)==UNUR_SUCCESS)?0:1;
460 unur_distr_free(distr);
461 }
462
463 { /* data missing in distribution object */
464 UNUR_DISTR *distr = NULL;
465 UNUR_PAR *par = NULL;
466 distr = unur_distr_cont_new();
467 par = NULL;
468
469
470 unur_reset_errno();
471 /* mode, pdfarea */
472 unur_distr_cont_set_pdf(distr,pdf_normal);
473 par = unur_srou_new( distr );
474 n_tests_failed += (check_expected_NULL(TESTLOG,199,(unur_init(par)))==UNUR_SUCCESS)?0:1;
475 n_tests_failed += (check_errorcode(TESTLOG,199,UNUR_ERR_DISTR_REQUIRED)==UNUR_SUCCESS)?0:1;
476
477 unur_reset_errno();
478 /* pdfarea */
479 unur_distr_cont_set_mode(distr,1.);
480 par = unur_srou_new( distr );
481 n_tests_failed += (check_expected_NULL(TESTLOG,205,(unur_init(par)))==UNUR_SUCCESS)?0:1;
482 n_tests_failed += (check_errorcode(TESTLOG,205,UNUR_ERR_DISTR_REQUIRED)==UNUR_SUCCESS)?0:1;
483 unur_distr_free(distr);
484 }
485
486
487 /* timing */
488 stopwatch_print(TESTLOG,"\n<*>time = %.3f ms\n\n", stopwatch_lap(&watch));
489
490 /* test finished */
491 test_ok &= (n_tests_failed) ? 0 : 1;
492 (n_tests_failed) ? printf(" ==> failed] ") : printf(" ==> ok] ");
493
494 } /* end of test_init() */
495
496 /*---------------------------------------------------------------------------*/
497 /* [reinit] */
498
test_reinit(void)499 void test_reinit (void)
500 {
501 int n_tests_failed; /* number of failed tests */
502
503 /* start test */
504 printf("[reinit "); fflush(stdout);
505 fprintf(TESTLOG,"\n[reinit]\n");
506
507 /* reset counter */
508 n_tests_failed = 0;
509
510 /* set stop watch */
511 stopwatch_lap(&watch);
512
513 { /* exist */
514 UNUR_DISTR *distr = NULL;
515 UNUR_PAR *par = NULL;
516 UNUR_GEN *gen = NULL;
517 distr = unur_distr_normal(NULL,0);
518 par = unur_srou_new(distr);
519 gen = unur_init( par );
520 abort_if_NULL(TESTLOG, 213, gen );
521
522
523 unur_reset_errno();
524 n_tests_failed += (check_expected_reinit(TESTLOG,217,(unur_reinit( gen )))==UNUR_SUCCESS)?0:1;
525 unur_distr_free(distr);
526 unur_free(gen);
527 }
528
529 { /* exist */
530 UNUR_DISTR *distr = NULL;
531 UNUR_PAR *par = NULL;
532 UNUR_GEN *gen = NULL;
533 distr = unur_distr_normal(NULL,0);
534 par = unur_srou_new(distr);
535 unur_srou_set_r(par,2.);
536 gen = unur_init( par );
537 abort_if_NULL(TESTLOG, 222, gen );
538
539
540 unur_reset_errno();
541 n_tests_failed += (check_expected_reinit(TESTLOG,226,(unur_reinit( gen )))==UNUR_SUCCESS)?0:1;
542 unur_distr_free(distr);
543 unur_free(gen);
544 }
545
546
547 /* timing */
548 stopwatch_print(TESTLOG,"\n<*>time = %.3f ms\n\n", stopwatch_lap(&watch));
549
550 /* test finished */
551 test_ok &= (n_tests_failed) ? 0 : 1;
552 (n_tests_failed) ? printf(" ==> failed] ") : printf(" ==> ok] ");
553
554 } /* end of test_reinit() */
555
556 /*---------------------------------------------------------------------------*/
557 /* [sample] */
558
test_sample(void)559 void test_sample (void)
560 {
561 int n_tests_failed; /* number of failed tests */
562
563 /* start test */
564 printf("[sample "); fflush(stdout);
565 fprintf(TESTLOG,"\n[sample]\n");
566
567 /* reset counter */
568 n_tests_failed = 0;
569
570 /* set stop watch */
571 stopwatch_lap(&watch);
572
573 { /* compare */
574 UNUR_DISTR *distr = NULL;
575 UNUR_PAR *par = NULL;
576 double fpar[2] = {1.,2.};
577 distr = unur_distr_normal(fpar,0);
578 par = NULL;
579
580
581 unur_reset_errno();
582 /* default algorithm */
583 par = unur_srou_new(distr);
584 n_tests_failed += (compare_sequence_par_start(TESTLOG,239,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
585
586 unur_reset_errno();
587 /* default algorithm - verifying mode */
588 par = unur_srou_new(distr);
589 unur_srou_set_verify(par,1);
590 n_tests_failed += (compare_sequence_par(TESTLOG,244,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
591
592 unur_reset_errno();
593 /* generalized algorithm, r=2 */
594 par = unur_srou_new(distr);
595 unur_srou_set_r(par,2.);
596 n_tests_failed += (compare_sequence_par_start(TESTLOG,249,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
597
598 unur_reset_errno();
599 /* generalized algorithm, r=2 - verifying mode */
600 par = unur_srou_new(distr);
601 unur_srou_set_r(par,2.);
602 unur_srou_set_verify(par,1);
603 n_tests_failed += (compare_sequence_par(TESTLOG,255,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
604 unur_distr_free(distr);
605 }
606
607 { /* compare */
608 UNUR_DISTR *distr = NULL;
609 UNUR_PAR *par = NULL;
610 double fpar[2] = {0.,1.};
611 distr = unur_distr_normal(fpar,2);
612 par = NULL;
613
614
615 unur_reset_errno();
616 /* use cdf at mode */
617 par = unur_srou_new(distr);
618 unur_srou_set_cdfatmode(par,0.5);
619 n_tests_failed += (compare_sequence_par_start(TESTLOG,267,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
620
621 unur_reset_errno();
622 /* use cdf at mode and squeeze */
623 par = unur_srou_new(distr);
624 unur_srou_set_cdfatmode(par,0.5);
625 unur_srou_set_usesqueeze(par,1);
626 n_tests_failed += (compare_sequence_par(TESTLOG,273,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
627
628 unur_reset_errno();
629 /* use cdf at mode - verifying mode */
630 par = unur_srou_new(distr);
631 unur_srou_set_cdfatmode(par,0.5);
632 unur_srou_set_verify(par,1);
633 n_tests_failed += (compare_sequence_par(TESTLOG,279,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
634
635 unur_reset_errno();
636 /* use cdf at mode and squeeze - verifying mode */
637 par = unur_srou_new(distr);
638 unur_srou_set_cdfatmode(par,0.5);
639 unur_srou_set_usesqueeze(par,1);
640 unur_srou_set_verify(par,1);
641 n_tests_failed += (compare_sequence_par(TESTLOG,286,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
642 unur_distr_free(distr);
643 }
644
645 { /* compare */
646 UNUR_DISTR *distr = NULL;
647 UNUR_PAR *par = NULL;
648 double fpar[2] = {0.,1.};
649 distr = unur_distr_normal(fpar,2);
650 par = NULL;
651
652
653 unur_reset_errno();
654 /* use mirror principle */
655 par = unur_srou_new(distr);
656 unur_srou_set_usemirror(par,1);
657 n_tests_failed += (compare_sequence_par_start(TESTLOG,298,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
658
659 unur_reset_errno();
660 /* use mirror principle - verifying mode */
661 par = unur_srou_new(distr);
662 unur_srou_set_usemirror(par,1);
663 unur_srou_set_verify(par,1);
664 n_tests_failed += (compare_sequence_par(TESTLOG,304,par,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
665 unur_distr_free(distr);
666 }
667
668 { /* violate condition */
669 UNUR_DISTR *distr = NULL;
670 UNUR_PAR *par = NULL;
671 double fpar[2] = {0.,1.};
672 distr = unur_distr_normal(fpar,2);
673 par = NULL;
674
675 /* pdf at mode is too small: hat < pdf near mode */
676
677 unur_reset_errno();
678 /* default algorithm */
679 par = unur_srou_new(distr);
680 unur_srou_set_pdfatmode(par,0.1);
681 run_verify_generator (TESTLOG,318,par);
682 n_tests_failed += (check_errorcode(TESTLOG,318,UNUR_ERR_GEN_CONDITION)==UNUR_SUCCESS)?0:1;
683
684 unur_reset_errno();
685 /* use cdf at mode and squeeze */
686 par = unur_srou_new(distr);
687 unur_srou_set_pdfatmode(par,0.1);
688 unur_srou_set_cdfatmode(par,0.5);
689 unur_srou_set_usesqueeze(par,1);
690 run_verify_generator (TESTLOG,325,par);
691 n_tests_failed += (check_errorcode(TESTLOG,325,UNUR_ERR_GEN_CONDITION)==UNUR_SUCCESS)?0:1;
692 /* pdf at mode is too large: squeeze > pdf near mode */
693
694 unur_reset_errno();
695 /* use cdf at mode and squeeze */
696 unur_distr_cont_set_pdfarea(distr,10.);
697 par = unur_srou_new(distr);
698 unur_srou_set_cdfatmode(par,0.5);
699 unur_srou_set_pdfatmode(par,10.);
700 unur_srou_set_usesqueeze(par,1);
701 run_verify_generator (TESTLOG,335,par);
702 n_tests_failed += (check_errorcode(TESTLOG,335,UNUR_ERR_GEN_CONDITION)==UNUR_SUCCESS)?0:1;
703 unur_distr_free(distr);
704 }
705
706 { /* compare clone */
707 UNUR_DISTR *distr = NULL;
708 UNUR_PAR *par = NULL;
709 UNUR_GEN *gen = NULL;
710 UNUR_GEN *clone;
711 distr = unur_distr_normal(NULL,0);
712 par = NULL;
713 gen = NULL;
714
715
716 unur_reset_errno();
717 /* original generator object */
718 par = unur_srou_new(distr);
719 gen = unur_init(par);
720 n_tests_failed += (compare_sequence_gen_start(TESTLOG,348,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
721
722 unur_reset_errno();
723 /* clone */
724 clone = unur_gen_clone(gen);
725 unur_free(gen);
726 gen = clone;
727 n_tests_failed += (compare_sequence_gen(TESTLOG,354,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
728 unur_distr_free(distr);
729 unur_free(gen);
730 }
731
732 { /* compare reinit */
733 UNUR_DISTR *distr = NULL;
734 UNUR_PAR *par = NULL;
735 UNUR_GEN *gen = NULL;
736 distr = unur_distr_normal(NULL,0);
737 par = NULL;
738 gen = NULL;
739
740
741 unur_reset_errno();
742 /* original generator object */
743 par = unur_srou_new(distr);
744 gen = unur_init(par);
745 n_tests_failed += (compare_sequence_gen_start(TESTLOG,366,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
746
747 unur_reset_errno();
748 /* reinit */
749 unur_reinit(gen);
750 n_tests_failed += (compare_sequence_gen(TESTLOG,370,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
751 unur_distr_free(distr);
752 unur_free(gen);
753 }
754
755 { /* compare reinit */
756 UNUR_DISTR *distr = NULL;
757 UNUR_PAR *par = NULL;
758 UNUR_GEN *gen = NULL;
759 distr = unur_distr_normal(NULL,0);
760 par = NULL;
761 gen = NULL;
762
763
764 unur_reset_errno();
765 /* original generator object */
766 par = unur_srou_new(distr);
767 unur_srou_set_r(par,2.);
768 gen = unur_init(par);
769 n_tests_failed += (compare_sequence_gen_start(TESTLOG,381,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
770
771 unur_reset_errno();
772 /* reinit */
773 unur_reinit(gen);
774 n_tests_failed += (compare_sequence_gen(TESTLOG,385,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
775 unur_distr_free(distr);
776 unur_free(gen);
777 }
778
779 { /* compare stringparser */
780 UNUR_DISTR *distr = NULL;
781 UNUR_PAR *par = NULL;
782 UNUR_GEN *gen = NULL;
783 double fpar[2] = {3.,3.};
784 distr = NULL;
785 par = NULL;
786 gen = NULL;
787
788
789 unur_reset_errno();
790 distr = unur_distr_beta(fpar,2);
791 unur_distr_cont_set_pdfarea(distr,2.);
792 par = unur_srou_new(distr);
793 unur_srou_set_cdfatmode(par,0.5);
794 unur_srou_set_pdfatmode(par,1.9);
795 unur_srou_set_usemirror(par,TRUE);
796 unur_srou_set_usesqueeze(par,FALSE);
797 unur_srou_set_verify(par,TRUE);
798 gen = unur_init(par);
799 n_tests_failed += (compare_sequence_gen_start(TESTLOG,404,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
800
801 unur_reset_errno();
802 unur_free(gen); gen = NULL;
803 unur_distr_free(distr); distr = NULL;
804 gen = unur_str2gen( "beta(3.,3.); pdfarea = 2. & \
805 method = srou; cdfatmode = 0.5; usemirror; usesqueeze = off; pdfatmode = 1.9; verify" );
806 n_tests_failed += (compare_sequence_gen(TESTLOG,410,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
807
808 unur_reset_errno();
809 unur_free(gen); gen = NULL;
810 distr = unur_distr_beta(fpar,2);
811 unur_distr_cont_set_pdfarea(distr,2.);
812 par = unur_srou_new(distr);
813 unur_srou_set_r(par,3.);
814 unur_srou_set_cdfatmode(par,0.5);
815 unur_srou_set_pdfatmode(par,1.9);
816 unur_srou_set_verify(par,TRUE);
817 gen = unur_init(par);
818 n_tests_failed += (compare_sequence_gen_start(TESTLOG,421,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
819
820 unur_reset_errno();
821 unur_free(gen); gen = NULL;
822 unur_distr_free(distr); distr = NULL;
823 gen = unur_str2gen( "beta(3.,3.); pdfarea = 2. & \
824 method = srou; r=3; cdfatmode = 0.5; pdfatmode = 1.9; verify" );
825 n_tests_failed += (compare_sequence_gen(TESTLOG,427,gen,COMPARE_SAMPLE_SIZE)==UNUR_SUCCESS)?0:1;
826 unur_distr_free(distr);
827 unur_free(gen);
828 }
829
830
831 /* timing */
832 stopwatch_print(TESTLOG,"\n<*>time = %.3f ms\n\n", stopwatch_lap(&watch));
833
834 /* test finished */
835 test_ok &= (n_tests_failed) ? 0 : 1;
836 (n_tests_failed) ? printf(" ==> failed] ") : printf(" ==> ok] ");
837
838 } /* end of test_sample() */
839
840 /*---------------------------------------------------------------------------*/
841 /* [validate] */
842
843 /*---------------------------------------------------------------------------*/
844
845 /* [validate] */
846
test_validate(void)847 void test_validate (void)
848 {
849 UNUR_DISTR *distr[31];
850 UNUR_PAR *par;
851 UNUR_GEN *gen;
852 int n_tests_failed;
853 int rcode;
854 double *darray;
855 double fpm[10];
856
857 rcode = 0;
858
859 /* start test */
860 printf("[validate "); fflush(stdout);
861 fprintf(TESTLOG,"\n[validate]\n");
862
863 /* reset counter */
864 n_tests_failed = 0;
865
866 /* set stop watch */
867 stopwatch_lap(&watch);
868
869
870 /* distributions: 31 */
871 {
872 fpm[0] = 1.;
873 fpm[1] = 2.;
874 distr[0] = unur_distr_beta(fpm,2);
875 }
876
877 {
878 fpm[0] = 1.;
879 fpm[1] = 5.;
880 distr[1] = unur_distr_beta(fpm,2);
881 }
882
883 {
884 fpm[0] = 1.;
885 fpm[1] = 100.;
886 distr[2] = unur_distr_beta(fpm,2);
887 }
888
889 {
890 fpm[0] = 3.;
891 fpm[1] = 4.;
892 distr[3] = unur_distr_beta(fpm,2);
893 }
894
895 {
896 fpm[0] = 5.;
897 fpm[1] = 100.;
898 distr[4] = unur_distr_beta(fpm,2);
899 }
900
901 {
902 fpm[0] = 500.;
903 fpm[1] = 300.;
904 distr[5] = unur_distr_beta(fpm,2);
905 }
906
907 {
908 fpm[0] = 5.;
909 fpm[1] = 10.;
910 fpm[2] = -3.;
911 fpm[3] = 15.;
912 distr[6] = unur_distr_beta(fpm,4);
913 }
914
915 {
916 distr[7] = unur_distr_cauchy(NULL,0);
917 }
918
919 {
920 fpm[0] = 1.;
921 fpm[1] = 20.;
922 distr[8] = unur_distr_cauchy(fpm,2);
923 }
924
925 {
926 distr[23] = unur_distr_exponential(NULL,0);
927 }
928
929 {
930 fpm[0] = 30.;
931 fpm[1] = -5.;
932 distr[24] = unur_distr_exponential(fpm,2);
933 }
934
935 {
936 fpm[0] = 1.;
937 distr[9] = unur_distr_gamma(fpm,1);
938 }
939
940 {
941 fpm[0] = 2.;
942 distr[10] = unur_distr_gamma(fpm,1);
943 }
944
945 {
946 fpm[0] = 3.;
947 distr[11] = unur_distr_gamma(fpm,1);
948 }
949
950 {
951 fpm[0] = 10.;
952 distr[12] = unur_distr_gamma(fpm,1);
953 }
954
955 {
956 fpm[0] = 1000.;
957 distr[13] = unur_distr_gamma(fpm,1);
958 }
959
960 {
961 fpm[0] = 1.;
962 fpm[1] = 4.;
963 distr[29] = unur_distr_gamma(fpm,2);
964 }
965
966 {
967 fpm[0] = 5.;
968 fpm[1] = 1000.;
969 distr[14] = unur_distr_gamma(fpm,2);
970 }
971
972 {
973 fpm[0] = 5.;
974 fpm[1] = 1.e-5;
975 distr[15] = unur_distr_gamma(fpm,2);
976 }
977
978 {
979 fpm[0] = 5.;
980 fpm[1] = 10.;
981 fpm[2] = 1000;
982 distr[16] = unur_distr_gamma(fpm,3);
983 }
984
985 {
986 fpm[0] = 0.5;
987 distr[30] = unur_distr_gamma(fpm,1);
988 }
989
990 {
991 distr[25] = unur_distr_laplace(NULL,0);
992 }
993
994 {
995 fpm[0] = -10.;
996 fpm[1] = 100.;
997 distr[26] = unur_distr_laplace(fpm,2);
998 }
999
1000 {
1001 distr[17] = unur_distr_normal(NULL,0);
1002 }
1003
1004 {
1005 fpm[0] = 1.;
1006 fpm[1] = 1.e-5;
1007 distr[18] = unur_distr_normal(fpm,2);
1008 }
1009
1010 {
1011 fpm[0] = 0.;
1012 fpm[1] = 1.e+5;
1013 distr[19] = unur_distr_normal(fpm,2);
1014 }
1015
1016 {
1017 distr[20] = unur_distr_uniform(NULL,0);
1018 }
1019
1020 {
1021 fpm[0] = 1.;
1022 fpm[1] = 20.;
1023 distr[21] = unur_distr_uniform(fpm,2);
1024 }
1025
1026 {
1027 distr[27] = unur_distr_cont_new();
1028 unur_distr_cont_set_pdf(distr[27],pdf_sqrtlin);
1029 unur_distr_cont_set_dpdf(distr[27],dpdf_sqrtlin);
1030 unur_distr_cont_set_cdf(distr[27],cdf_sqrtlin);
1031 unur_distr_set_name(distr[27],"sqrtlin");
1032 unur_distr_cont_set_mode(distr[27],0.);
1033 unur_distr_cont_set_pdfarea(distr[27],2.);
1034 }
1035
1036 {
1037 distr[28] = unur_distr_cont_new();
1038 unur_distr_cont_set_pdf(distr[28],pdf_sqrtlinshft);
1039 unur_distr_cont_set_dpdf(distr[28],dpdf_sqrtlinshft);
1040 unur_distr_cont_set_cdf(distr[28],cdf_sqrtlinshft);
1041 unur_distr_set_name(distr[28],"sqrtlin");
1042 unur_distr_cont_set_mode(distr[28],1000.);
1043 unur_distr_cont_set_pdfarea(distr[28],2.);
1044 }
1045
1046 {
1047 distr[22] = unur_distr_cauchy(NULL,0);
1048 unur_distr_cont_set_domain(distr[22],0.1,1.);
1049 unur_distr_cont_upd_mode(distr[22]);
1050 unur_distr_cont_upd_pdfarea(distr[22]);
1051 }
1052
1053 /* timing */
1054 stopwatch_print(TESTLOG,"\n<*>setup time = %.3f ms\n", stopwatch_lap(&watch));
1055
1056 printf("\n(chi^2) "); fflush(stdout);
1057
1058 /* chi^2 tests: 341 */
1059
1060 unur_set_default_debug(~UNUR_DEBUG_SAMPLE);
1061 fprintf( TESTLOG,"\nChi^2 Test:\n");
1062
1063 /* distribution [0] */
1064
1065 if(fullcheck) {
1066 unur_reset_errno();
1067 do {
1068 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1069 par = unur_srou_new(distr_localcopy);
1070 gen = unur_init(par);
1071 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1072 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1073 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1074 unur_free(gen);
1075 unur_distr_free(distr_localcopy);
1076 } while (0);
1077 }
1078
1079 if(fullcheck) {
1080 unur_reset_errno();
1081 do {
1082 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1083 par = unur_srou_new(distr_localcopy);
1084 unur_srou_set_usemirror(par,1);
1085 gen = unur_init(par);
1086 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1087 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1088 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1089 unur_free(gen);
1090 unur_distr_free(distr_localcopy);
1091 } while (0);
1092 }
1093
1094 if(fullcheck) {
1095 unur_reset_errno();
1096 do {
1097 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1098 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1099 par = unur_srou_new(distr_localcopy);
1100 unur_srou_set_cdfatmode(par,cdfatmode);
1101 unur_srou_set_usesqueeze(par,1); }
1102 gen = unur_init(par);
1103 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1104 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1105 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1106 unur_free(gen);
1107 unur_distr_free(distr_localcopy);
1108 } while (0);
1109 }
1110
1111 if(fullcheck) {
1112 unur_reset_errno();
1113 do {
1114 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1115 {UNUR_DISTR *dg =NULL;
1116 par = unur_srou_new(distr_localcopy);
1117 gen = unur_init(par);
1118 if (gen) {
1119 dg = unur_get_distr(gen);
1120 unur_distr_cont_set_domain(dg,0.9,0.92);
1121 unur_distr_cont_upd_pdfarea(dg);
1122 unur_distr_cont_upd_mode(dg);
1123 unur_reinit(gen); }
1124 }
1125 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1126 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1127 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1128 unur_free(gen);
1129 unur_distr_free(distr_localcopy);
1130 } while (0);
1131 }
1132
1133 if(fullcheck) {
1134 unur_reset_errno();
1135 do {
1136 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1137 {UNUR_DISTR *dg =NULL;
1138 par = unur_srou_new(distr_localcopy);
1139 fpm[0] = 2.;
1140 fpm[1] = 4.;
1141 gen = unur_init(par);
1142 if (gen) {
1143 dg = unur_get_distr(gen);
1144 unur_distr_cont_set_pdfparams(dg,fpm,2);
1145 unur_distr_cont_upd_pdfarea(dg);
1146 unur_distr_cont_upd_mode(dg);
1147 unur_reinit(gen); }
1148 }
1149 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1150 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1151 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1152 unur_free(gen);
1153 unur_distr_free(distr_localcopy);
1154 } while (0);
1155 }
1156
1157 if(fullcheck) {
1158 unur_reset_errno();
1159 do {
1160 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1161 par = unur_srou_new(distr_localcopy);
1162 unur_srou_set_r(par,1.001);
1163 gen = unur_init(par);
1164 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1165 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1166 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1167 unur_free(gen);
1168 unur_distr_free(distr_localcopy);
1169 } while (0);
1170 }
1171
1172 if(fullcheck) {
1173 unur_reset_errno();
1174 do {
1175 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1176 par = unur_srou_new(distr_localcopy);
1177 unur_srou_set_r(par,2.);
1178 gen = unur_init(par);
1179 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1180 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1181 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1182 unur_free(gen);
1183 unur_distr_free(distr_localcopy);
1184 } while (0);
1185 }
1186
1187 if(fullcheck) {
1188 unur_reset_errno();
1189 do {
1190 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1191 par = unur_srou_new(distr_localcopy);
1192 unur_srou_set_r(par,10.);
1193 gen = unur_init(par);
1194 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1195 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1196 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1197 unur_free(gen);
1198 unur_distr_free(distr_localcopy);
1199 } while (0);
1200 }
1201
1202 if(fullcheck) {
1203 unur_reset_errno();
1204 do {
1205 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1206 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1207 par = unur_srou_new(distr_localcopy);
1208 unur_srou_set_r(par,2.);
1209 unur_srou_set_cdfatmode(par,cdfatmode); }
1210 gen = unur_init(par);
1211 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1212 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1213 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1214 unur_free(gen);
1215 unur_distr_free(distr_localcopy);
1216 } while (0);
1217 }
1218
1219 if(fullcheck) {
1220 unur_reset_errno();
1221 do {
1222 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1223 {UNUR_DISTR *dg =NULL;
1224 par = unur_srou_new(distr_localcopy);
1225 unur_srou_set_r(par,2.);
1226 gen = unur_init(par);
1227 if (gen) {
1228 dg = unur_get_distr(gen);
1229 unur_distr_cont_set_domain(dg,0.9,0.95);
1230 unur_distr_cont_upd_pdfarea(dg);
1231 unur_distr_cont_upd_mode(dg);
1232 unur_reinit(gen); }
1233 }
1234 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1235 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1236 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1237 unur_free(gen);
1238 unur_distr_free(distr_localcopy);
1239 } while (0);
1240 }
1241
1242 if(fullcheck) {
1243 unur_reset_errno();
1244 do {
1245 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
1246 {UNUR_DISTR *dg =NULL;
1247 par = unur_srou_new(distr_localcopy);
1248 unur_srou_set_r(par,2.);
1249 fpm[0] = 2.;
1250 fpm[1] = 4.;
1251 gen = unur_init(par);
1252 if (gen) {
1253 dg = unur_get_distr(gen);
1254 unur_distr_cont_set_pdfparams(dg,fpm,2);
1255 unur_distr_cont_upd_pdfarea(dg);
1256 unur_distr_cont_upd_mode(dg);
1257 unur_reinit(gen); }
1258 }
1259 rcode = run_validate_chi2(TESTLOG,0,gen,distr[0],'+');
1260 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1261 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1262 unur_free(gen);
1263 unur_distr_free(distr_localcopy);
1264 } while (0);
1265 }
1266
1267 /* distribution [1] */
1268
1269 if(TRUE) {
1270 unur_reset_errno();
1271 do {
1272 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1273 par = unur_srou_new(distr_localcopy);
1274 gen = unur_init(par);
1275 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1276 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1277 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1278 unur_free(gen);
1279 unur_distr_free(distr_localcopy);
1280 } while (0);
1281 }
1282
1283 if(TRUE) {
1284 unur_reset_errno();
1285 do {
1286 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1287 par = unur_srou_new(distr_localcopy);
1288 unur_srou_set_usemirror(par,1);
1289 gen = unur_init(par);
1290 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1291 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1292 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1293 unur_free(gen);
1294 unur_distr_free(distr_localcopy);
1295 } while (0);
1296 }
1297
1298 if(TRUE) {
1299 unur_reset_errno();
1300 do {
1301 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1302 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1303 par = unur_srou_new(distr_localcopy);
1304 unur_srou_set_cdfatmode(par,cdfatmode);
1305 unur_srou_set_usesqueeze(par,1); }
1306 gen = unur_init(par);
1307 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1308 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1309 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1310 unur_free(gen);
1311 unur_distr_free(distr_localcopy);
1312 } while (0);
1313 }
1314
1315 if(TRUE) {
1316 unur_reset_errno();
1317 do {
1318 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1319 {UNUR_DISTR *dg =NULL;
1320 par = unur_srou_new(distr_localcopy);
1321 gen = unur_init(par);
1322 if (gen) {
1323 dg = unur_get_distr(gen);
1324 unur_distr_cont_set_domain(dg,0.9,0.92);
1325 unur_distr_cont_upd_pdfarea(dg);
1326 unur_distr_cont_upd_mode(dg);
1327 unur_reinit(gen); }
1328 }
1329 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1330 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1331 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1332 unur_free(gen);
1333 unur_distr_free(distr_localcopy);
1334 } while (0);
1335 }
1336
1337 if(TRUE) {
1338 unur_reset_errno();
1339 do {
1340 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1341 {UNUR_DISTR *dg =NULL;
1342 par = unur_srou_new(distr_localcopy);
1343 fpm[0] = 2.;
1344 fpm[1] = 4.;
1345 gen = unur_init(par);
1346 if (gen) {
1347 dg = unur_get_distr(gen);
1348 unur_distr_cont_set_pdfparams(dg,fpm,2);
1349 unur_distr_cont_upd_pdfarea(dg);
1350 unur_distr_cont_upd_mode(dg);
1351 unur_reinit(gen); }
1352 }
1353 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1354 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1355 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1356 unur_free(gen);
1357 unur_distr_free(distr_localcopy);
1358 } while (0);
1359 }
1360
1361 if(TRUE) {
1362 unur_reset_errno();
1363 do {
1364 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1365 par = unur_srou_new(distr_localcopy);
1366 unur_srou_set_r(par,1.001);
1367 gen = unur_init(par);
1368 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1369 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1370 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1371 unur_free(gen);
1372 unur_distr_free(distr_localcopy);
1373 } while (0);
1374 }
1375
1376 if(TRUE) {
1377 unur_reset_errno();
1378 do {
1379 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1380 par = unur_srou_new(distr_localcopy);
1381 unur_srou_set_r(par,2.);
1382 gen = unur_init(par);
1383 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1384 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1385 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1386 unur_free(gen);
1387 unur_distr_free(distr_localcopy);
1388 } while (0);
1389 }
1390
1391 if(TRUE) {
1392 unur_reset_errno();
1393 do {
1394 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1395 par = unur_srou_new(distr_localcopy);
1396 unur_srou_set_r(par,10.);
1397 gen = unur_init(par);
1398 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1399 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1400 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1401 unur_free(gen);
1402 unur_distr_free(distr_localcopy);
1403 } while (0);
1404 }
1405
1406 if(TRUE) {
1407 unur_reset_errno();
1408 do {
1409 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1410 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1411 par = unur_srou_new(distr_localcopy);
1412 unur_srou_set_r(par,2.);
1413 unur_srou_set_cdfatmode(par,cdfatmode); }
1414 gen = unur_init(par);
1415 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1416 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1417 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1418 unur_free(gen);
1419 unur_distr_free(distr_localcopy);
1420 } while (0);
1421 }
1422
1423 if(TRUE) {
1424 unur_reset_errno();
1425 do {
1426 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1427 {UNUR_DISTR *dg =NULL;
1428 par = unur_srou_new(distr_localcopy);
1429 unur_srou_set_r(par,2.);
1430 gen = unur_init(par);
1431 if (gen) {
1432 dg = unur_get_distr(gen);
1433 unur_distr_cont_set_domain(dg,0.9,0.95);
1434 unur_distr_cont_upd_pdfarea(dg);
1435 unur_distr_cont_upd_mode(dg);
1436 unur_reinit(gen); }
1437 }
1438 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1439 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1440 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1441 unur_free(gen);
1442 unur_distr_free(distr_localcopy);
1443 } while (0);
1444 }
1445
1446 if(TRUE) {
1447 unur_reset_errno();
1448 do {
1449 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
1450 {UNUR_DISTR *dg =NULL;
1451 par = unur_srou_new(distr_localcopy);
1452 unur_srou_set_r(par,2.);
1453 fpm[0] = 2.;
1454 fpm[1] = 4.;
1455 gen = unur_init(par);
1456 if (gen) {
1457 dg = unur_get_distr(gen);
1458 unur_distr_cont_set_pdfparams(dg,fpm,2);
1459 unur_distr_cont_upd_pdfarea(dg);
1460 unur_distr_cont_upd_mode(dg);
1461 unur_reinit(gen); }
1462 }
1463 rcode = run_validate_chi2(TESTLOG,0,gen,distr[1],'+');
1464 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1465 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1466 unur_free(gen);
1467 unur_distr_free(distr_localcopy);
1468 } while (0);
1469 }
1470
1471 /* distribution [2] */
1472
1473 if(fullcheck) {
1474 unur_reset_errno();
1475 do {
1476 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1477 par = unur_srou_new(distr_localcopy);
1478 gen = unur_init(par);
1479 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1480 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1481 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1482 unur_free(gen);
1483 unur_distr_free(distr_localcopy);
1484 } while (0);
1485 }
1486
1487 if(fullcheck) {
1488 unur_reset_errno();
1489 do {
1490 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1491 par = unur_srou_new(distr_localcopy);
1492 unur_srou_set_usemirror(par,1);
1493 gen = unur_init(par);
1494 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1495 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1496 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1497 unur_free(gen);
1498 unur_distr_free(distr_localcopy);
1499 } while (0);
1500 }
1501
1502 if(fullcheck) {
1503 unur_reset_errno();
1504 do {
1505 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1506 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1507 par = unur_srou_new(distr_localcopy);
1508 unur_srou_set_cdfatmode(par,cdfatmode);
1509 unur_srou_set_usesqueeze(par,1); }
1510 gen = unur_init(par);
1511 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1512 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1513 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1514 unur_free(gen);
1515 unur_distr_free(distr_localcopy);
1516 } while (0);
1517 }
1518
1519 if(fullcheck) {
1520 printf("."); fflush(stdout);
1521 }
1522
1523 if(fullcheck) {
1524 unur_reset_errno();
1525 do {
1526 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1527 {UNUR_DISTR *dg =NULL;
1528 par = unur_srou_new(distr_localcopy);
1529 fpm[0] = 2.;
1530 fpm[1] = 4.;
1531 gen = unur_init(par);
1532 if (gen) {
1533 dg = unur_get_distr(gen);
1534 unur_distr_cont_set_pdfparams(dg,fpm,2);
1535 unur_distr_cont_upd_pdfarea(dg);
1536 unur_distr_cont_upd_mode(dg);
1537 unur_reinit(gen); }
1538 }
1539 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1540 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1541 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1542 unur_free(gen);
1543 unur_distr_free(distr_localcopy);
1544 } while (0);
1545 }
1546
1547 if(fullcheck) {
1548 unur_reset_errno();
1549 do {
1550 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1551 par = unur_srou_new(distr_localcopy);
1552 unur_srou_set_r(par,1.001);
1553 gen = unur_init(par);
1554 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1555 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1556 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1557 unur_free(gen);
1558 unur_distr_free(distr_localcopy);
1559 } while (0);
1560 }
1561
1562 if(fullcheck) {
1563 unur_reset_errno();
1564 do {
1565 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1566 par = unur_srou_new(distr_localcopy);
1567 unur_srou_set_r(par,2.);
1568 gen = unur_init(par);
1569 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1570 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1571 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1572 unur_free(gen);
1573 unur_distr_free(distr_localcopy);
1574 } while (0);
1575 }
1576
1577 if(fullcheck) {
1578 unur_reset_errno();
1579 do {
1580 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1581 par = unur_srou_new(distr_localcopy);
1582 unur_srou_set_r(par,10.);
1583 gen = unur_init(par);
1584 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1585 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1586 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1587 unur_free(gen);
1588 unur_distr_free(distr_localcopy);
1589 } while (0);
1590 }
1591
1592 if(fullcheck) {
1593 unur_reset_errno();
1594 do {
1595 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1596 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1597 par = unur_srou_new(distr_localcopy);
1598 unur_srou_set_r(par,2.);
1599 unur_srou_set_cdfatmode(par,cdfatmode); }
1600 gen = unur_init(par);
1601 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1602 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1603 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1604 unur_free(gen);
1605 unur_distr_free(distr_localcopy);
1606 } while (0);
1607 }
1608
1609 if(fullcheck) {
1610 printf("."); fflush(stdout);
1611 }
1612
1613 if(fullcheck) {
1614 unur_reset_errno();
1615 do {
1616 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
1617 {UNUR_DISTR *dg =NULL;
1618 par = unur_srou_new(distr_localcopy);
1619 unur_srou_set_r(par,2.);
1620 fpm[0] = 2.;
1621 fpm[1] = 4.;
1622 gen = unur_init(par);
1623 if (gen) {
1624 dg = unur_get_distr(gen);
1625 unur_distr_cont_set_pdfparams(dg,fpm,2);
1626 unur_distr_cont_upd_pdfarea(dg);
1627 unur_distr_cont_upd_mode(dg);
1628 unur_reinit(gen); }
1629 }
1630 rcode = run_validate_chi2(TESTLOG,0,gen,distr[2],'+');
1631 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1632 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1633 unur_free(gen);
1634 unur_distr_free(distr_localcopy);
1635 } while (0);
1636 }
1637
1638 /* distribution [3] */
1639
1640 if(TRUE) {
1641 unur_reset_errno();
1642 do {
1643 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1644 par = unur_srou_new(distr_localcopy);
1645 gen = unur_init(par);
1646 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1647 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1648 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1649 unur_free(gen);
1650 unur_distr_free(distr_localcopy);
1651 } while (0);
1652 }
1653
1654 if(TRUE) {
1655 unur_reset_errno();
1656 do {
1657 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1658 par = unur_srou_new(distr_localcopy);
1659 unur_srou_set_usemirror(par,1);
1660 gen = unur_init(par);
1661 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1662 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1663 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1664 unur_free(gen);
1665 unur_distr_free(distr_localcopy);
1666 } while (0);
1667 }
1668
1669 if(TRUE) {
1670 unur_reset_errno();
1671 do {
1672 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1673 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1674 par = unur_srou_new(distr_localcopy);
1675 unur_srou_set_cdfatmode(par,cdfatmode);
1676 unur_srou_set_usesqueeze(par,1); }
1677 gen = unur_init(par);
1678 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1679 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1680 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1681 unur_free(gen);
1682 unur_distr_free(distr_localcopy);
1683 } while (0);
1684 }
1685
1686 if(TRUE) {
1687 unur_reset_errno();
1688 do {
1689 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1690 {UNUR_DISTR *dg =NULL;
1691 par = unur_srou_new(distr_localcopy);
1692 gen = unur_init(par);
1693 if (gen) {
1694 dg = unur_get_distr(gen);
1695 unur_distr_cont_set_domain(dg,0.9,0.92);
1696 unur_distr_cont_upd_pdfarea(dg);
1697 unur_distr_cont_upd_mode(dg);
1698 unur_reinit(gen); }
1699 }
1700 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1701 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1702 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1703 unur_free(gen);
1704 unur_distr_free(distr_localcopy);
1705 } while (0);
1706 }
1707
1708 if(TRUE) {
1709 unur_reset_errno();
1710 do {
1711 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1712 {UNUR_DISTR *dg =NULL;
1713 par = unur_srou_new(distr_localcopy);
1714 fpm[0] = 2.;
1715 fpm[1] = 4.;
1716 gen = unur_init(par);
1717 if (gen) {
1718 dg = unur_get_distr(gen);
1719 unur_distr_cont_set_pdfparams(dg,fpm,2);
1720 unur_distr_cont_upd_pdfarea(dg);
1721 unur_distr_cont_upd_mode(dg);
1722 unur_reinit(gen); }
1723 }
1724 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1725 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1726 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1727 unur_free(gen);
1728 unur_distr_free(distr_localcopy);
1729 } while (0);
1730 }
1731
1732 if(TRUE) {
1733 unur_reset_errno();
1734 do {
1735 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1736 par = unur_srou_new(distr_localcopy);
1737 unur_srou_set_r(par,1.001);
1738 gen = unur_init(par);
1739 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1740 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1741 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1742 unur_free(gen);
1743 unur_distr_free(distr_localcopy);
1744 } while (0);
1745 }
1746
1747 if(TRUE) {
1748 unur_reset_errno();
1749 do {
1750 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1751 par = unur_srou_new(distr_localcopy);
1752 unur_srou_set_r(par,2.);
1753 gen = unur_init(par);
1754 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1755 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1756 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1757 unur_free(gen);
1758 unur_distr_free(distr_localcopy);
1759 } while (0);
1760 }
1761
1762 if(TRUE) {
1763 unur_reset_errno();
1764 do {
1765 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1766 par = unur_srou_new(distr_localcopy);
1767 unur_srou_set_r(par,10.);
1768 gen = unur_init(par);
1769 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1770 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1771 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1772 unur_free(gen);
1773 unur_distr_free(distr_localcopy);
1774 } while (0);
1775 }
1776
1777 if(TRUE) {
1778 unur_reset_errno();
1779 do {
1780 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1781 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1782 par = unur_srou_new(distr_localcopy);
1783 unur_srou_set_r(par,2.);
1784 unur_srou_set_cdfatmode(par,cdfatmode); }
1785 gen = unur_init(par);
1786 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1787 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1788 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1789 unur_free(gen);
1790 unur_distr_free(distr_localcopy);
1791 } while (0);
1792 }
1793
1794 if(TRUE) {
1795 unur_reset_errno();
1796 do {
1797 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1798 {UNUR_DISTR *dg =NULL;
1799 par = unur_srou_new(distr_localcopy);
1800 unur_srou_set_r(par,2.);
1801 gen = unur_init(par);
1802 if (gen) {
1803 dg = unur_get_distr(gen);
1804 unur_distr_cont_set_domain(dg,0.9,0.95);
1805 unur_distr_cont_upd_pdfarea(dg);
1806 unur_distr_cont_upd_mode(dg);
1807 unur_reinit(gen); }
1808 }
1809 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1810 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1811 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1812 unur_free(gen);
1813 unur_distr_free(distr_localcopy);
1814 } while (0);
1815 }
1816
1817 if(TRUE) {
1818 unur_reset_errno();
1819 do {
1820 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
1821 {UNUR_DISTR *dg =NULL;
1822 par = unur_srou_new(distr_localcopy);
1823 unur_srou_set_r(par,2.);
1824 fpm[0] = 2.;
1825 fpm[1] = 4.;
1826 gen = unur_init(par);
1827 if (gen) {
1828 dg = unur_get_distr(gen);
1829 unur_distr_cont_set_pdfparams(dg,fpm,2);
1830 unur_distr_cont_upd_pdfarea(dg);
1831 unur_distr_cont_upd_mode(dg);
1832 unur_reinit(gen); }
1833 }
1834 rcode = run_validate_chi2(TESTLOG,0,gen,distr[3],'+');
1835 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1836 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1837 unur_free(gen);
1838 unur_distr_free(distr_localcopy);
1839 } while (0);
1840 }
1841
1842 /* distribution [4] */
1843
1844 if(fullcheck) {
1845 unur_reset_errno();
1846 do {
1847 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1848 par = unur_srou_new(distr_localcopy);
1849 gen = unur_init(par);
1850 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1851 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1852 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1853 unur_free(gen);
1854 unur_distr_free(distr_localcopy);
1855 } while (0);
1856 }
1857
1858 if(fullcheck) {
1859 unur_reset_errno();
1860 do {
1861 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1862 par = unur_srou_new(distr_localcopy);
1863 unur_srou_set_usemirror(par,1);
1864 gen = unur_init(par);
1865 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1866 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1867 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1868 unur_free(gen);
1869 unur_distr_free(distr_localcopy);
1870 } while (0);
1871 }
1872
1873 if(fullcheck) {
1874 unur_reset_errno();
1875 do {
1876 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1877 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1878 par = unur_srou_new(distr_localcopy);
1879 unur_srou_set_cdfatmode(par,cdfatmode);
1880 unur_srou_set_usesqueeze(par,1); }
1881 gen = unur_init(par);
1882 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1883 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1884 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1885 unur_free(gen);
1886 unur_distr_free(distr_localcopy);
1887 } while (0);
1888 }
1889
1890 if(fullcheck) {
1891 printf("."); fflush(stdout);
1892 }
1893
1894 if(fullcheck) {
1895 unur_reset_errno();
1896 do {
1897 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1898 {UNUR_DISTR *dg =NULL;
1899 par = unur_srou_new(distr_localcopy);
1900 fpm[0] = 2.;
1901 fpm[1] = 4.;
1902 gen = unur_init(par);
1903 if (gen) {
1904 dg = unur_get_distr(gen);
1905 unur_distr_cont_set_pdfparams(dg,fpm,2);
1906 unur_distr_cont_upd_pdfarea(dg);
1907 unur_distr_cont_upd_mode(dg);
1908 unur_reinit(gen); }
1909 }
1910 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1911 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1912 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1913 unur_free(gen);
1914 unur_distr_free(distr_localcopy);
1915 } while (0);
1916 }
1917
1918 if(fullcheck) {
1919 unur_reset_errno();
1920 do {
1921 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1922 par = unur_srou_new(distr_localcopy);
1923 unur_srou_set_r(par,1.001);
1924 gen = unur_init(par);
1925 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1926 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1927 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1928 unur_free(gen);
1929 unur_distr_free(distr_localcopy);
1930 } while (0);
1931 }
1932
1933 if(fullcheck) {
1934 unur_reset_errno();
1935 do {
1936 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1937 par = unur_srou_new(distr_localcopy);
1938 unur_srou_set_r(par,2.);
1939 gen = unur_init(par);
1940 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1941 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1942 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1943 unur_free(gen);
1944 unur_distr_free(distr_localcopy);
1945 } while (0);
1946 }
1947
1948 if(fullcheck) {
1949 unur_reset_errno();
1950 do {
1951 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1952 par = unur_srou_new(distr_localcopy);
1953 unur_srou_set_r(par,10.);
1954 gen = unur_init(par);
1955 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1956 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1957 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1958 unur_free(gen);
1959 unur_distr_free(distr_localcopy);
1960 } while (0);
1961 }
1962
1963 if(fullcheck) {
1964 unur_reset_errno();
1965 do {
1966 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1967 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
1968 par = unur_srou_new(distr_localcopy);
1969 unur_srou_set_r(par,2.);
1970 unur_srou_set_cdfatmode(par,cdfatmode); }
1971 gen = unur_init(par);
1972 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
1973 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
1974 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
1975 unur_free(gen);
1976 unur_distr_free(distr_localcopy);
1977 } while (0);
1978 }
1979
1980 if(fullcheck) {
1981 printf("."); fflush(stdout);
1982 }
1983
1984 if(fullcheck) {
1985 unur_reset_errno();
1986 do {
1987 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
1988 {UNUR_DISTR *dg =NULL;
1989 par = unur_srou_new(distr_localcopy);
1990 unur_srou_set_r(par,2.);
1991 fpm[0] = 2.;
1992 fpm[1] = 4.;
1993 gen = unur_init(par);
1994 if (gen) {
1995 dg = unur_get_distr(gen);
1996 unur_distr_cont_set_pdfparams(dg,fpm,2);
1997 unur_distr_cont_upd_pdfarea(dg);
1998 unur_distr_cont_upd_mode(dg);
1999 unur_reinit(gen); }
2000 }
2001 rcode = run_validate_chi2(TESTLOG,0,gen,distr[4],'+');
2002 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2003 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2004 unur_free(gen);
2005 unur_distr_free(distr_localcopy);
2006 } while (0);
2007 }
2008
2009 /* distribution [5] */
2010
2011 if(TRUE) {
2012 unur_reset_errno();
2013 do {
2014 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2015 par = unur_srou_new(distr_localcopy);
2016 gen = unur_init(par);
2017 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2018 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2019 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2020 unur_free(gen);
2021 unur_distr_free(distr_localcopy);
2022 } while (0);
2023 }
2024
2025 if(TRUE) {
2026 unur_reset_errno();
2027 do {
2028 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2029 par = unur_srou_new(distr_localcopy);
2030 unur_srou_set_usemirror(par,1);
2031 gen = unur_init(par);
2032 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2033 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2034 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2035 unur_free(gen);
2036 unur_distr_free(distr_localcopy);
2037 } while (0);
2038 }
2039
2040 if(TRUE) {
2041 unur_reset_errno();
2042 do {
2043 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2044 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2045 par = unur_srou_new(distr_localcopy);
2046 unur_srou_set_cdfatmode(par,cdfatmode);
2047 unur_srou_set_usesqueeze(par,1); }
2048 gen = unur_init(par);
2049 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2050 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2051 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2052 unur_free(gen);
2053 unur_distr_free(distr_localcopy);
2054 } while (0);
2055 }
2056
2057 if(TRUE) {
2058 printf("."); fflush(stdout);
2059 }
2060
2061 if(TRUE) {
2062 unur_reset_errno();
2063 do {
2064 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2065 {UNUR_DISTR *dg =NULL;
2066 par = unur_srou_new(distr_localcopy);
2067 fpm[0] = 2.;
2068 fpm[1] = 4.;
2069 gen = unur_init(par);
2070 if (gen) {
2071 dg = unur_get_distr(gen);
2072 unur_distr_cont_set_pdfparams(dg,fpm,2);
2073 unur_distr_cont_upd_pdfarea(dg);
2074 unur_distr_cont_upd_mode(dg);
2075 unur_reinit(gen); }
2076 }
2077 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2078 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2079 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2080 unur_free(gen);
2081 unur_distr_free(distr_localcopy);
2082 } while (0);
2083 }
2084
2085 if(TRUE) {
2086 unur_reset_errno();
2087 do {
2088 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2089 par = unur_srou_new(distr_localcopy);
2090 unur_srou_set_r(par,1.001);
2091 gen = unur_init(par);
2092 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2093 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2094 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2095 unur_free(gen);
2096 unur_distr_free(distr_localcopy);
2097 } while (0);
2098 }
2099
2100 if(TRUE) {
2101 unur_reset_errno();
2102 do {
2103 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2104 par = unur_srou_new(distr_localcopy);
2105 unur_srou_set_r(par,2.);
2106 gen = unur_init(par);
2107 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2108 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2109 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2110 unur_free(gen);
2111 unur_distr_free(distr_localcopy);
2112 } while (0);
2113 }
2114
2115 if(TRUE) {
2116 unur_reset_errno();
2117 do {
2118 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2119 par = unur_srou_new(distr_localcopy);
2120 unur_srou_set_r(par,10.);
2121 gen = unur_init(par);
2122 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2123 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2124 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2125 unur_free(gen);
2126 unur_distr_free(distr_localcopy);
2127 } while (0);
2128 }
2129
2130 if(TRUE) {
2131 unur_reset_errno();
2132 do {
2133 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2134 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2135 par = unur_srou_new(distr_localcopy);
2136 unur_srou_set_r(par,2.);
2137 unur_srou_set_cdfatmode(par,cdfatmode); }
2138 gen = unur_init(par);
2139 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2140 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2141 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2142 unur_free(gen);
2143 unur_distr_free(distr_localcopy);
2144 } while (0);
2145 }
2146
2147 if(TRUE) {
2148 printf("."); fflush(stdout);
2149 }
2150
2151 if(TRUE) {
2152 unur_reset_errno();
2153 do {
2154 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
2155 {UNUR_DISTR *dg =NULL;
2156 par = unur_srou_new(distr_localcopy);
2157 unur_srou_set_r(par,2.);
2158 fpm[0] = 2.;
2159 fpm[1] = 4.;
2160 gen = unur_init(par);
2161 if (gen) {
2162 dg = unur_get_distr(gen);
2163 unur_distr_cont_set_pdfparams(dg,fpm,2);
2164 unur_distr_cont_upd_pdfarea(dg);
2165 unur_distr_cont_upd_mode(dg);
2166 unur_reinit(gen); }
2167 }
2168 rcode = run_validate_chi2(TESTLOG,0,gen,distr[5],'+');
2169 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2170 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2171 unur_free(gen);
2172 unur_distr_free(distr_localcopy);
2173 } while (0);
2174 }
2175
2176 /* distribution [6] */
2177
2178 if(TRUE) {
2179 unur_reset_errno();
2180 do {
2181 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2182 par = unur_srou_new(distr_localcopy);
2183 gen = unur_init(par);
2184 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2185 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2186 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2187 unur_free(gen);
2188 unur_distr_free(distr_localcopy);
2189 } while (0);
2190 }
2191
2192 if(TRUE) {
2193 unur_reset_errno();
2194 do {
2195 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2196 par = unur_srou_new(distr_localcopy);
2197 unur_srou_set_usemirror(par,1);
2198 gen = unur_init(par);
2199 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2200 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2201 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2202 unur_free(gen);
2203 unur_distr_free(distr_localcopy);
2204 } while (0);
2205 }
2206
2207 if(TRUE) {
2208 unur_reset_errno();
2209 do {
2210 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2211 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2212 par = unur_srou_new(distr_localcopy);
2213 unur_srou_set_cdfatmode(par,cdfatmode);
2214 unur_srou_set_usesqueeze(par,1); }
2215 gen = unur_init(par);
2216 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2217 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2218 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2219 unur_free(gen);
2220 unur_distr_free(distr_localcopy);
2221 } while (0);
2222 }
2223
2224 if(TRUE) {
2225 unur_reset_errno();
2226 do {
2227 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2228 {UNUR_DISTR *dg =NULL;
2229 par = unur_srou_new(distr_localcopy);
2230 gen = unur_init(par);
2231 if (gen) {
2232 dg = unur_get_distr(gen);
2233 unur_distr_cont_set_domain(dg,0.9,0.92);
2234 unur_distr_cont_upd_pdfarea(dg);
2235 unur_distr_cont_upd_mode(dg);
2236 unur_reinit(gen); }
2237 }
2238 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2239 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2240 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2241 unur_free(gen);
2242 unur_distr_free(distr_localcopy);
2243 } while (0);
2244 }
2245
2246 if(TRUE) {
2247 unur_reset_errno();
2248 do {
2249 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2250 {UNUR_DISTR *dg =NULL;
2251 par = unur_srou_new(distr_localcopy);
2252 fpm[0] = 2.;
2253 fpm[1] = 4.;
2254 gen = unur_init(par);
2255 if (gen) {
2256 dg = unur_get_distr(gen);
2257 unur_distr_cont_set_pdfparams(dg,fpm,2);
2258 unur_distr_cont_upd_pdfarea(dg);
2259 unur_distr_cont_upd_mode(dg);
2260 unur_reinit(gen); }
2261 }
2262 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2263 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2264 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2265 unur_free(gen);
2266 unur_distr_free(distr_localcopy);
2267 } while (0);
2268 }
2269
2270 if(TRUE) {
2271 unur_reset_errno();
2272 do {
2273 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2274 par = unur_srou_new(distr_localcopy);
2275 unur_srou_set_r(par,1.001);
2276 gen = unur_init(par);
2277 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2278 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2279 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2280 unur_free(gen);
2281 unur_distr_free(distr_localcopy);
2282 } while (0);
2283 }
2284
2285 if(TRUE) {
2286 unur_reset_errno();
2287 do {
2288 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2289 par = unur_srou_new(distr_localcopy);
2290 unur_srou_set_r(par,2.);
2291 gen = unur_init(par);
2292 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2293 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2294 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2295 unur_free(gen);
2296 unur_distr_free(distr_localcopy);
2297 } while (0);
2298 }
2299
2300 if(TRUE) {
2301 unur_reset_errno();
2302 do {
2303 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2304 par = unur_srou_new(distr_localcopy);
2305 unur_srou_set_r(par,10.);
2306 gen = unur_init(par);
2307 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2308 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2309 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2310 unur_free(gen);
2311 unur_distr_free(distr_localcopy);
2312 } while (0);
2313 }
2314
2315 if(TRUE) {
2316 unur_reset_errno();
2317 do {
2318 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2319 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2320 par = unur_srou_new(distr_localcopy);
2321 unur_srou_set_r(par,2.);
2322 unur_srou_set_cdfatmode(par,cdfatmode); }
2323 gen = unur_init(par);
2324 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2325 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2326 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2327 unur_free(gen);
2328 unur_distr_free(distr_localcopy);
2329 } while (0);
2330 }
2331
2332 if(TRUE) {
2333 unur_reset_errno();
2334 do {
2335 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2336 {UNUR_DISTR *dg =NULL;
2337 par = unur_srou_new(distr_localcopy);
2338 unur_srou_set_r(par,2.);
2339 gen = unur_init(par);
2340 if (gen) {
2341 dg = unur_get_distr(gen);
2342 unur_distr_cont_set_domain(dg,0.9,0.95);
2343 unur_distr_cont_upd_pdfarea(dg);
2344 unur_distr_cont_upd_mode(dg);
2345 unur_reinit(gen); }
2346 }
2347 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2348 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2349 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2350 unur_free(gen);
2351 unur_distr_free(distr_localcopy);
2352 } while (0);
2353 }
2354
2355 if(TRUE) {
2356 unur_reset_errno();
2357 do {
2358 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
2359 {UNUR_DISTR *dg =NULL;
2360 par = unur_srou_new(distr_localcopy);
2361 unur_srou_set_r(par,2.);
2362 fpm[0] = 2.;
2363 fpm[1] = 4.;
2364 gen = unur_init(par);
2365 if (gen) {
2366 dg = unur_get_distr(gen);
2367 unur_distr_cont_set_pdfparams(dg,fpm,2);
2368 unur_distr_cont_upd_pdfarea(dg);
2369 unur_distr_cont_upd_mode(dg);
2370 unur_reinit(gen); }
2371 }
2372 rcode = run_validate_chi2(TESTLOG,0,gen,distr[6],'+');
2373 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2374 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2375 unur_free(gen);
2376 unur_distr_free(distr_localcopy);
2377 } while (0);
2378 }
2379
2380 /* distribution [23] */
2381
2382 if(TRUE) {
2383 unur_reset_errno();
2384 do {
2385 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2386 par = unur_srou_new(distr_localcopy);
2387 gen = unur_init(par);
2388 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2389 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2390 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2391 unur_free(gen);
2392 unur_distr_free(distr_localcopy);
2393 } while (0);
2394 }
2395
2396 if(TRUE) {
2397 unur_reset_errno();
2398 do {
2399 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2400 par = unur_srou_new(distr_localcopy);
2401 unur_srou_set_usemirror(par,1);
2402 gen = unur_init(par);
2403 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2404 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2405 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2406 unur_free(gen);
2407 unur_distr_free(distr_localcopy);
2408 } while (0);
2409 }
2410
2411 if(TRUE) {
2412 unur_reset_errno();
2413 do {
2414 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2415 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2416 par = unur_srou_new(distr_localcopy);
2417 unur_srou_set_cdfatmode(par,cdfatmode);
2418 unur_srou_set_usesqueeze(par,1); }
2419 gen = unur_init(par);
2420 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2421 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2422 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2423 unur_free(gen);
2424 unur_distr_free(distr_localcopy);
2425 } while (0);
2426 }
2427
2428 if(TRUE) {
2429 unur_reset_errno();
2430 do {
2431 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2432 {UNUR_DISTR *dg =NULL;
2433 par = unur_srou_new(distr_localcopy);
2434 gen = unur_init(par);
2435 if (gen) {
2436 dg = unur_get_distr(gen);
2437 unur_distr_cont_set_domain(dg,0.9,0.92);
2438 unur_distr_cont_upd_pdfarea(dg);
2439 unur_distr_cont_upd_mode(dg);
2440 unur_reinit(gen); }
2441 }
2442 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2443 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2444 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2445 unur_free(gen);
2446 unur_distr_free(distr_localcopy);
2447 } while (0);
2448 }
2449
2450 if(TRUE) {
2451 unur_reset_errno();
2452 do {
2453 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2454 {UNUR_DISTR *dg =NULL;
2455 par = unur_srou_new(distr_localcopy);
2456 fpm[0] = 2.;
2457 fpm[1] = 4.;
2458 gen = unur_init(par);
2459 if (gen) {
2460 dg = unur_get_distr(gen);
2461 unur_distr_cont_set_pdfparams(dg,fpm,2);
2462 unur_distr_cont_upd_pdfarea(dg);
2463 unur_distr_cont_upd_mode(dg);
2464 unur_reinit(gen); }
2465 }
2466 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2467 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2468 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2469 unur_free(gen);
2470 unur_distr_free(distr_localcopy);
2471 } while (0);
2472 }
2473
2474 if(TRUE) {
2475 unur_reset_errno();
2476 do {
2477 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2478 par = unur_srou_new(distr_localcopy);
2479 unur_srou_set_r(par,1.001);
2480 gen = unur_init(par);
2481 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2482 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2483 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2484 unur_free(gen);
2485 unur_distr_free(distr_localcopy);
2486 } while (0);
2487 }
2488
2489 if(TRUE) {
2490 unur_reset_errno();
2491 do {
2492 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2493 par = unur_srou_new(distr_localcopy);
2494 unur_srou_set_r(par,2.);
2495 gen = unur_init(par);
2496 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2497 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2498 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2499 unur_free(gen);
2500 unur_distr_free(distr_localcopy);
2501 } while (0);
2502 }
2503
2504 if(TRUE) {
2505 unur_reset_errno();
2506 do {
2507 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2508 par = unur_srou_new(distr_localcopy);
2509 unur_srou_set_r(par,10.);
2510 gen = unur_init(par);
2511 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2512 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2513 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2514 unur_free(gen);
2515 unur_distr_free(distr_localcopy);
2516 } while (0);
2517 }
2518
2519 if(TRUE) {
2520 unur_reset_errno();
2521 do {
2522 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2523 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2524 par = unur_srou_new(distr_localcopy);
2525 unur_srou_set_r(par,2.);
2526 unur_srou_set_cdfatmode(par,cdfatmode); }
2527 gen = unur_init(par);
2528 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2529 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2530 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2531 unur_free(gen);
2532 unur_distr_free(distr_localcopy);
2533 } while (0);
2534 }
2535
2536 if(TRUE) {
2537 unur_reset_errno();
2538 do {
2539 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2540 {UNUR_DISTR *dg =NULL;
2541 par = unur_srou_new(distr_localcopy);
2542 unur_srou_set_r(par,2.);
2543 gen = unur_init(par);
2544 if (gen) {
2545 dg = unur_get_distr(gen);
2546 unur_distr_cont_set_domain(dg,0.9,0.95);
2547 unur_distr_cont_upd_pdfarea(dg);
2548 unur_distr_cont_upd_mode(dg);
2549 unur_reinit(gen); }
2550 }
2551 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2552 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2553 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2554 unur_free(gen);
2555 unur_distr_free(distr_localcopy);
2556 } while (0);
2557 }
2558
2559 if(TRUE) {
2560 unur_reset_errno();
2561 do {
2562 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
2563 {UNUR_DISTR *dg =NULL;
2564 par = unur_srou_new(distr_localcopy);
2565 unur_srou_set_r(par,2.);
2566 fpm[0] = 2.;
2567 fpm[1] = 4.;
2568 gen = unur_init(par);
2569 if (gen) {
2570 dg = unur_get_distr(gen);
2571 unur_distr_cont_set_pdfparams(dg,fpm,2);
2572 unur_distr_cont_upd_pdfarea(dg);
2573 unur_distr_cont_upd_mode(dg);
2574 unur_reinit(gen); }
2575 }
2576 rcode = run_validate_chi2(TESTLOG,0,gen,distr[23],'+');
2577 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2578 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2579 unur_free(gen);
2580 unur_distr_free(distr_localcopy);
2581 } while (0);
2582 }
2583
2584 /* distribution [24] */
2585
2586 if(TRUE) {
2587 unur_reset_errno();
2588 do {
2589 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2590 par = unur_srou_new(distr_localcopy);
2591 gen = unur_init(par);
2592 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2593 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2594 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2595 unur_free(gen);
2596 unur_distr_free(distr_localcopy);
2597 } while (0);
2598 }
2599
2600 if(TRUE) {
2601 unur_reset_errno();
2602 do {
2603 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2604 par = unur_srou_new(distr_localcopy);
2605 unur_srou_set_usemirror(par,1);
2606 gen = unur_init(par);
2607 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2608 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2609 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2610 unur_free(gen);
2611 unur_distr_free(distr_localcopy);
2612 } while (0);
2613 }
2614
2615 if(TRUE) {
2616 unur_reset_errno();
2617 do {
2618 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2619 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2620 par = unur_srou_new(distr_localcopy);
2621 unur_srou_set_cdfatmode(par,cdfatmode);
2622 unur_srou_set_usesqueeze(par,1); }
2623 gen = unur_init(par);
2624 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2625 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2626 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2627 unur_free(gen);
2628 unur_distr_free(distr_localcopy);
2629 } while (0);
2630 }
2631
2632 if(TRUE) {
2633 unur_reset_errno();
2634 do {
2635 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2636 {UNUR_DISTR *dg =NULL;
2637 par = unur_srou_new(distr_localcopy);
2638 gen = unur_init(par);
2639 if (gen) {
2640 dg = unur_get_distr(gen);
2641 unur_distr_cont_set_domain(dg,0.9,0.92);
2642 unur_distr_cont_upd_pdfarea(dg);
2643 unur_distr_cont_upd_mode(dg);
2644 unur_reinit(gen); }
2645 }
2646 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2647 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2648 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2649 unur_free(gen);
2650 unur_distr_free(distr_localcopy);
2651 } while (0);
2652 }
2653
2654 if(TRUE) {
2655 unur_reset_errno();
2656 do {
2657 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2658 {UNUR_DISTR *dg =NULL;
2659 par = unur_srou_new(distr_localcopy);
2660 fpm[0] = 2.;
2661 fpm[1] = 4.;
2662 gen = unur_init(par);
2663 if (gen) {
2664 dg = unur_get_distr(gen);
2665 unur_distr_cont_set_pdfparams(dg,fpm,2);
2666 unur_distr_cont_upd_pdfarea(dg);
2667 unur_distr_cont_upd_mode(dg);
2668 unur_reinit(gen); }
2669 }
2670 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2671 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2672 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2673 unur_free(gen);
2674 unur_distr_free(distr_localcopy);
2675 } while (0);
2676 }
2677
2678 if(TRUE) {
2679 unur_reset_errno();
2680 do {
2681 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2682 par = unur_srou_new(distr_localcopy);
2683 unur_srou_set_r(par,1.001);
2684 gen = unur_init(par);
2685 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2686 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2687 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2688 unur_free(gen);
2689 unur_distr_free(distr_localcopy);
2690 } while (0);
2691 }
2692
2693 if(TRUE) {
2694 unur_reset_errno();
2695 do {
2696 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2697 par = unur_srou_new(distr_localcopy);
2698 unur_srou_set_r(par,2.);
2699 gen = unur_init(par);
2700 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2701 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2702 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2703 unur_free(gen);
2704 unur_distr_free(distr_localcopy);
2705 } while (0);
2706 }
2707
2708 if(TRUE) {
2709 unur_reset_errno();
2710 do {
2711 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2712 par = unur_srou_new(distr_localcopy);
2713 unur_srou_set_r(par,10.);
2714 gen = unur_init(par);
2715 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2716 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2717 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2718 unur_free(gen);
2719 unur_distr_free(distr_localcopy);
2720 } while (0);
2721 }
2722
2723 if(TRUE) {
2724 unur_reset_errno();
2725 do {
2726 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2727 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2728 par = unur_srou_new(distr_localcopy);
2729 unur_srou_set_r(par,2.);
2730 unur_srou_set_cdfatmode(par,cdfatmode); }
2731 gen = unur_init(par);
2732 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2733 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2734 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2735 unur_free(gen);
2736 unur_distr_free(distr_localcopy);
2737 } while (0);
2738 }
2739
2740 if(TRUE) {
2741 unur_reset_errno();
2742 do {
2743 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2744 {UNUR_DISTR *dg =NULL;
2745 par = unur_srou_new(distr_localcopy);
2746 unur_srou_set_r(par,2.);
2747 gen = unur_init(par);
2748 if (gen) {
2749 dg = unur_get_distr(gen);
2750 unur_distr_cont_set_domain(dg,0.9,0.95);
2751 unur_distr_cont_upd_pdfarea(dg);
2752 unur_distr_cont_upd_mode(dg);
2753 unur_reinit(gen); }
2754 }
2755 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2756 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2757 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2758 unur_free(gen);
2759 unur_distr_free(distr_localcopy);
2760 } while (0);
2761 }
2762
2763 if(TRUE) {
2764 unur_reset_errno();
2765 do {
2766 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
2767 {UNUR_DISTR *dg =NULL;
2768 par = unur_srou_new(distr_localcopy);
2769 unur_srou_set_r(par,2.);
2770 fpm[0] = 2.;
2771 fpm[1] = 4.;
2772 gen = unur_init(par);
2773 if (gen) {
2774 dg = unur_get_distr(gen);
2775 unur_distr_cont_set_pdfparams(dg,fpm,2);
2776 unur_distr_cont_upd_pdfarea(dg);
2777 unur_distr_cont_upd_mode(dg);
2778 unur_reinit(gen); }
2779 }
2780 rcode = run_validate_chi2(TESTLOG,0,gen,distr[24],'+');
2781 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2782 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2783 unur_free(gen);
2784 unur_distr_free(distr_localcopy);
2785 } while (0);
2786 }
2787
2788 /* distribution [7] */
2789
2790 if(TRUE) {
2791 unur_reset_errno();
2792 do {
2793 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2794 par = unur_srou_new(distr_localcopy);
2795 gen = unur_init(par);
2796 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2797 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2798 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2799 unur_free(gen);
2800 unur_distr_free(distr_localcopy);
2801 } while (0);
2802 }
2803
2804 if(TRUE) {
2805 unur_reset_errno();
2806 do {
2807 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2808 par = unur_srou_new(distr_localcopy);
2809 unur_srou_set_usemirror(par,1);
2810 gen = unur_init(par);
2811 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2812 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2813 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2814 unur_free(gen);
2815 unur_distr_free(distr_localcopy);
2816 } while (0);
2817 }
2818
2819 if(TRUE) {
2820 unur_reset_errno();
2821 do {
2822 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2823 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2824 par = unur_srou_new(distr_localcopy);
2825 unur_srou_set_cdfatmode(par,cdfatmode);
2826 unur_srou_set_usesqueeze(par,1); }
2827 gen = unur_init(par);
2828 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2829 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2830 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2831 unur_free(gen);
2832 unur_distr_free(distr_localcopy);
2833 } while (0);
2834 }
2835
2836 if(TRUE) {
2837 unur_reset_errno();
2838 do {
2839 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2840 {UNUR_DISTR *dg =NULL;
2841 par = unur_srou_new(distr_localcopy);
2842 gen = unur_init(par);
2843 if (gen) {
2844 dg = unur_get_distr(gen);
2845 unur_distr_cont_set_domain(dg,0.9,0.92);
2846 unur_distr_cont_upd_pdfarea(dg);
2847 unur_distr_cont_upd_mode(dg);
2848 unur_reinit(gen); }
2849 }
2850 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2851 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2852 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2853 unur_free(gen);
2854 unur_distr_free(distr_localcopy);
2855 } while (0);
2856 }
2857
2858 if(TRUE) {
2859 unur_reset_errno();
2860 do {
2861 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2862 {UNUR_DISTR *dg =NULL;
2863 par = unur_srou_new(distr_localcopy);
2864 fpm[0] = 2.;
2865 fpm[1] = 4.;
2866 gen = unur_init(par);
2867 if (gen) {
2868 dg = unur_get_distr(gen);
2869 unur_distr_cont_set_pdfparams(dg,fpm,2);
2870 unur_distr_cont_upd_pdfarea(dg);
2871 unur_distr_cont_upd_mode(dg);
2872 unur_reinit(gen); }
2873 }
2874 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2875 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2876 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2877 unur_free(gen);
2878 unur_distr_free(distr_localcopy);
2879 } while (0);
2880 }
2881
2882 if(TRUE) {
2883 unur_reset_errno();
2884 do {
2885 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2886 par = unur_srou_new(distr_localcopy);
2887 unur_srou_set_r(par,1.001);
2888 gen = unur_init(par);
2889 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2890 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2891 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2892 unur_free(gen);
2893 unur_distr_free(distr_localcopy);
2894 } while (0);
2895 }
2896
2897 if(TRUE) {
2898 unur_reset_errno();
2899 do {
2900 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2901 par = unur_srou_new(distr_localcopy);
2902 unur_srou_set_r(par,2.);
2903 gen = unur_init(par);
2904 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2905 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2906 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2907 unur_free(gen);
2908 unur_distr_free(distr_localcopy);
2909 } while (0);
2910 }
2911
2912 if(TRUE) {
2913 unur_reset_errno();
2914 do {
2915 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2916 par = unur_srou_new(distr_localcopy);
2917 unur_srou_set_r(par,10.);
2918 gen = unur_init(par);
2919 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2920 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2921 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2922 unur_free(gen);
2923 unur_distr_free(distr_localcopy);
2924 } while (0);
2925 }
2926
2927 if(TRUE) {
2928 unur_reset_errno();
2929 do {
2930 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2931 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
2932 par = unur_srou_new(distr_localcopy);
2933 unur_srou_set_r(par,2.);
2934 unur_srou_set_cdfatmode(par,cdfatmode); }
2935 gen = unur_init(par);
2936 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2937 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2938 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2939 unur_free(gen);
2940 unur_distr_free(distr_localcopy);
2941 } while (0);
2942 }
2943
2944 if(TRUE) {
2945 unur_reset_errno();
2946 do {
2947 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2948 {UNUR_DISTR *dg =NULL;
2949 par = unur_srou_new(distr_localcopy);
2950 unur_srou_set_r(par,2.);
2951 gen = unur_init(par);
2952 if (gen) {
2953 dg = unur_get_distr(gen);
2954 unur_distr_cont_set_domain(dg,0.9,0.95);
2955 unur_distr_cont_upd_pdfarea(dg);
2956 unur_distr_cont_upd_mode(dg);
2957 unur_reinit(gen); }
2958 }
2959 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2960 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2961 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2962 unur_free(gen);
2963 unur_distr_free(distr_localcopy);
2964 } while (0);
2965 }
2966
2967 if(TRUE) {
2968 unur_reset_errno();
2969 do {
2970 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
2971 {UNUR_DISTR *dg =NULL;
2972 par = unur_srou_new(distr_localcopy);
2973 unur_srou_set_r(par,2.);
2974 fpm[0] = 2.;
2975 fpm[1] = 4.;
2976 gen = unur_init(par);
2977 if (gen) {
2978 dg = unur_get_distr(gen);
2979 unur_distr_cont_set_pdfparams(dg,fpm,2);
2980 unur_distr_cont_upd_pdfarea(dg);
2981 unur_distr_cont_upd_mode(dg);
2982 unur_reinit(gen); }
2983 }
2984 rcode = run_validate_chi2(TESTLOG,0,gen,distr[7],'+');
2985 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
2986 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
2987 unur_free(gen);
2988 unur_distr_free(distr_localcopy);
2989 } while (0);
2990 }
2991
2992 /* distribution [8] */
2993
2994 if(TRUE) {
2995 unur_reset_errno();
2996 do {
2997 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
2998 par = unur_srou_new(distr_localcopy);
2999 gen = unur_init(par);
3000 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3001 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3002 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3003 unur_free(gen);
3004 unur_distr_free(distr_localcopy);
3005 } while (0);
3006 }
3007
3008 if(TRUE) {
3009 unur_reset_errno();
3010 do {
3011 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3012 par = unur_srou_new(distr_localcopy);
3013 unur_srou_set_usemirror(par,1);
3014 gen = unur_init(par);
3015 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3016 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3017 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3018 unur_free(gen);
3019 unur_distr_free(distr_localcopy);
3020 } while (0);
3021 }
3022
3023 if(TRUE) {
3024 unur_reset_errno();
3025 do {
3026 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3027 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3028 par = unur_srou_new(distr_localcopy);
3029 unur_srou_set_cdfatmode(par,cdfatmode);
3030 unur_srou_set_usesqueeze(par,1); }
3031 gen = unur_init(par);
3032 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3033 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3034 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3035 unur_free(gen);
3036 unur_distr_free(distr_localcopy);
3037 } while (0);
3038 }
3039
3040 if(TRUE) {
3041 unur_reset_errno();
3042 do {
3043 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3044 {UNUR_DISTR *dg =NULL;
3045 par = unur_srou_new(distr_localcopy);
3046 gen = unur_init(par);
3047 if (gen) {
3048 dg = unur_get_distr(gen);
3049 unur_distr_cont_set_domain(dg,0.9,0.92);
3050 unur_distr_cont_upd_pdfarea(dg);
3051 unur_distr_cont_upd_mode(dg);
3052 unur_reinit(gen); }
3053 }
3054 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3055 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3056 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3057 unur_free(gen);
3058 unur_distr_free(distr_localcopy);
3059 } while (0);
3060 }
3061
3062 if(TRUE) {
3063 unur_reset_errno();
3064 do {
3065 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3066 {UNUR_DISTR *dg =NULL;
3067 par = unur_srou_new(distr_localcopy);
3068 fpm[0] = 2.;
3069 fpm[1] = 4.;
3070 gen = unur_init(par);
3071 if (gen) {
3072 dg = unur_get_distr(gen);
3073 unur_distr_cont_set_pdfparams(dg,fpm,2);
3074 unur_distr_cont_upd_pdfarea(dg);
3075 unur_distr_cont_upd_mode(dg);
3076 unur_reinit(gen); }
3077 }
3078 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3079 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3080 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3081 unur_free(gen);
3082 unur_distr_free(distr_localcopy);
3083 } while (0);
3084 }
3085
3086 if(TRUE) {
3087 unur_reset_errno();
3088 do {
3089 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3090 par = unur_srou_new(distr_localcopy);
3091 unur_srou_set_r(par,1.001);
3092 gen = unur_init(par);
3093 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3094 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3095 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3096 unur_free(gen);
3097 unur_distr_free(distr_localcopy);
3098 } while (0);
3099 }
3100
3101 if(TRUE) {
3102 unur_reset_errno();
3103 do {
3104 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3105 par = unur_srou_new(distr_localcopy);
3106 unur_srou_set_r(par,2.);
3107 gen = unur_init(par);
3108 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3109 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3110 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3111 unur_free(gen);
3112 unur_distr_free(distr_localcopy);
3113 } while (0);
3114 }
3115
3116 if(TRUE) {
3117 unur_reset_errno();
3118 do {
3119 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3120 par = unur_srou_new(distr_localcopy);
3121 unur_srou_set_r(par,10.);
3122 gen = unur_init(par);
3123 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3124 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3125 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3126 unur_free(gen);
3127 unur_distr_free(distr_localcopy);
3128 } while (0);
3129 }
3130
3131 if(TRUE) {
3132 unur_reset_errno();
3133 do {
3134 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3135 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3136 par = unur_srou_new(distr_localcopy);
3137 unur_srou_set_r(par,2.);
3138 unur_srou_set_cdfatmode(par,cdfatmode); }
3139 gen = unur_init(par);
3140 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3141 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3142 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3143 unur_free(gen);
3144 unur_distr_free(distr_localcopy);
3145 } while (0);
3146 }
3147
3148 if(TRUE) {
3149 unur_reset_errno();
3150 do {
3151 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3152 {UNUR_DISTR *dg =NULL;
3153 par = unur_srou_new(distr_localcopy);
3154 unur_srou_set_r(par,2.);
3155 gen = unur_init(par);
3156 if (gen) {
3157 dg = unur_get_distr(gen);
3158 unur_distr_cont_set_domain(dg,0.9,0.95);
3159 unur_distr_cont_upd_pdfarea(dg);
3160 unur_distr_cont_upd_mode(dg);
3161 unur_reinit(gen); }
3162 }
3163 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3164 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3165 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3166 unur_free(gen);
3167 unur_distr_free(distr_localcopy);
3168 } while (0);
3169 }
3170
3171 if(TRUE) {
3172 unur_reset_errno();
3173 do {
3174 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
3175 {UNUR_DISTR *dg =NULL;
3176 par = unur_srou_new(distr_localcopy);
3177 unur_srou_set_r(par,2.);
3178 fpm[0] = 2.;
3179 fpm[1] = 4.;
3180 gen = unur_init(par);
3181 if (gen) {
3182 dg = unur_get_distr(gen);
3183 unur_distr_cont_set_pdfparams(dg,fpm,2);
3184 unur_distr_cont_upd_pdfarea(dg);
3185 unur_distr_cont_upd_mode(dg);
3186 unur_reinit(gen); }
3187 }
3188 rcode = run_validate_chi2(TESTLOG,0,gen,distr[8],'+');
3189 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3190 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3191 unur_free(gen);
3192 unur_distr_free(distr_localcopy);
3193 } while (0);
3194 }
3195
3196 /* distribution [9] */
3197
3198 if(fullcheck) {
3199 unur_reset_errno();
3200 do {
3201 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3202 par = unur_srou_new(distr_localcopy);
3203 gen = unur_init(par);
3204 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3205 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3206 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3207 unur_free(gen);
3208 unur_distr_free(distr_localcopy);
3209 } while (0);
3210 }
3211
3212 if(fullcheck) {
3213 unur_reset_errno();
3214 do {
3215 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3216 par = unur_srou_new(distr_localcopy);
3217 unur_srou_set_usemirror(par,1);
3218 gen = unur_init(par);
3219 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3220 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3221 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3222 unur_free(gen);
3223 unur_distr_free(distr_localcopy);
3224 } while (0);
3225 }
3226
3227 if(fullcheck) {
3228 unur_reset_errno();
3229 do {
3230 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3231 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3232 par = unur_srou_new(distr_localcopy);
3233 unur_srou_set_cdfatmode(par,cdfatmode);
3234 unur_srou_set_usesqueeze(par,1); }
3235 gen = unur_init(par);
3236 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3237 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3238 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3239 unur_free(gen);
3240 unur_distr_free(distr_localcopy);
3241 } while (0);
3242 }
3243
3244 if(fullcheck) {
3245 unur_reset_errno();
3246 do {
3247 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3248 {UNUR_DISTR *dg =NULL;
3249 par = unur_srou_new(distr_localcopy);
3250 gen = unur_init(par);
3251 if (gen) {
3252 dg = unur_get_distr(gen);
3253 unur_distr_cont_set_domain(dg,0.9,0.92);
3254 unur_distr_cont_upd_pdfarea(dg);
3255 unur_distr_cont_upd_mode(dg);
3256 unur_reinit(gen); }
3257 }
3258 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3259 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3260 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3261 unur_free(gen);
3262 unur_distr_free(distr_localcopy);
3263 } while (0);
3264 }
3265
3266 if(fullcheck) {
3267 unur_reset_errno();
3268 do {
3269 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3270 {UNUR_DISTR *dg =NULL;
3271 par = unur_srou_new(distr_localcopy);
3272 fpm[0] = 2.;
3273 fpm[1] = 4.;
3274 gen = unur_init(par);
3275 if (gen) {
3276 dg = unur_get_distr(gen);
3277 unur_distr_cont_set_pdfparams(dg,fpm,2);
3278 unur_distr_cont_upd_pdfarea(dg);
3279 unur_distr_cont_upd_mode(dg);
3280 unur_reinit(gen); }
3281 }
3282 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3283 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3284 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3285 unur_free(gen);
3286 unur_distr_free(distr_localcopy);
3287 } while (0);
3288 }
3289
3290 if(fullcheck) {
3291 unur_reset_errno();
3292 do {
3293 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3294 par = unur_srou_new(distr_localcopy);
3295 unur_srou_set_r(par,1.001);
3296 gen = unur_init(par);
3297 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3298 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3299 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3300 unur_free(gen);
3301 unur_distr_free(distr_localcopy);
3302 } while (0);
3303 }
3304
3305 if(fullcheck) {
3306 unur_reset_errno();
3307 do {
3308 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3309 par = unur_srou_new(distr_localcopy);
3310 unur_srou_set_r(par,2.);
3311 gen = unur_init(par);
3312 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3313 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3314 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3315 unur_free(gen);
3316 unur_distr_free(distr_localcopy);
3317 } while (0);
3318 }
3319
3320 if(fullcheck) {
3321 unur_reset_errno();
3322 do {
3323 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3324 par = unur_srou_new(distr_localcopy);
3325 unur_srou_set_r(par,10.);
3326 gen = unur_init(par);
3327 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3328 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3329 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3330 unur_free(gen);
3331 unur_distr_free(distr_localcopy);
3332 } while (0);
3333 }
3334
3335 if(fullcheck) {
3336 unur_reset_errno();
3337 do {
3338 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3339 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3340 par = unur_srou_new(distr_localcopy);
3341 unur_srou_set_r(par,2.);
3342 unur_srou_set_cdfatmode(par,cdfatmode); }
3343 gen = unur_init(par);
3344 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3345 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3346 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3347 unur_free(gen);
3348 unur_distr_free(distr_localcopy);
3349 } while (0);
3350 }
3351
3352 if(fullcheck) {
3353 unur_reset_errno();
3354 do {
3355 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3356 {UNUR_DISTR *dg =NULL;
3357 par = unur_srou_new(distr_localcopy);
3358 unur_srou_set_r(par,2.);
3359 gen = unur_init(par);
3360 if (gen) {
3361 dg = unur_get_distr(gen);
3362 unur_distr_cont_set_domain(dg,0.9,0.95);
3363 unur_distr_cont_upd_pdfarea(dg);
3364 unur_distr_cont_upd_mode(dg);
3365 unur_reinit(gen); }
3366 }
3367 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3368 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3369 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3370 unur_free(gen);
3371 unur_distr_free(distr_localcopy);
3372 } while (0);
3373 }
3374
3375 if(fullcheck) {
3376 unur_reset_errno();
3377 do {
3378 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
3379 {UNUR_DISTR *dg =NULL;
3380 par = unur_srou_new(distr_localcopy);
3381 unur_srou_set_r(par,2.);
3382 fpm[0] = 2.;
3383 fpm[1] = 4.;
3384 gen = unur_init(par);
3385 if (gen) {
3386 dg = unur_get_distr(gen);
3387 unur_distr_cont_set_pdfparams(dg,fpm,2);
3388 unur_distr_cont_upd_pdfarea(dg);
3389 unur_distr_cont_upd_mode(dg);
3390 unur_reinit(gen); }
3391 }
3392 rcode = run_validate_chi2(TESTLOG,0,gen,distr[9],'+');
3393 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3394 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3395 unur_free(gen);
3396 unur_distr_free(distr_localcopy);
3397 } while (0);
3398 }
3399
3400 /* distribution [10] */
3401
3402 if(TRUE) {
3403 unur_reset_errno();
3404 do {
3405 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3406 par = unur_srou_new(distr_localcopy);
3407 gen = unur_init(par);
3408 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3409 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3410 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3411 unur_free(gen);
3412 unur_distr_free(distr_localcopy);
3413 } while (0);
3414 }
3415
3416 if(TRUE) {
3417 unur_reset_errno();
3418 do {
3419 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3420 par = unur_srou_new(distr_localcopy);
3421 unur_srou_set_usemirror(par,1);
3422 gen = unur_init(par);
3423 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3424 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3425 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3426 unur_free(gen);
3427 unur_distr_free(distr_localcopy);
3428 } while (0);
3429 }
3430
3431 if(TRUE) {
3432 unur_reset_errno();
3433 do {
3434 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3435 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3436 par = unur_srou_new(distr_localcopy);
3437 unur_srou_set_cdfatmode(par,cdfatmode);
3438 unur_srou_set_usesqueeze(par,1); }
3439 gen = unur_init(par);
3440 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3441 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3442 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3443 unur_free(gen);
3444 unur_distr_free(distr_localcopy);
3445 } while (0);
3446 }
3447
3448 if(TRUE) {
3449 unur_reset_errno();
3450 do {
3451 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3452 {UNUR_DISTR *dg =NULL;
3453 par = unur_srou_new(distr_localcopy);
3454 gen = unur_init(par);
3455 if (gen) {
3456 dg = unur_get_distr(gen);
3457 unur_distr_cont_set_domain(dg,0.9,0.92);
3458 unur_distr_cont_upd_pdfarea(dg);
3459 unur_distr_cont_upd_mode(dg);
3460 unur_reinit(gen); }
3461 }
3462 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3463 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3464 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3465 unur_free(gen);
3466 unur_distr_free(distr_localcopy);
3467 } while (0);
3468 }
3469
3470 if(TRUE) {
3471 unur_reset_errno();
3472 do {
3473 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3474 {UNUR_DISTR *dg =NULL;
3475 par = unur_srou_new(distr_localcopy);
3476 fpm[0] = 2.;
3477 fpm[1] = 4.;
3478 gen = unur_init(par);
3479 if (gen) {
3480 dg = unur_get_distr(gen);
3481 unur_distr_cont_set_pdfparams(dg,fpm,2);
3482 unur_distr_cont_upd_pdfarea(dg);
3483 unur_distr_cont_upd_mode(dg);
3484 unur_reinit(gen); }
3485 }
3486 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3487 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3488 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3489 unur_free(gen);
3490 unur_distr_free(distr_localcopy);
3491 } while (0);
3492 }
3493
3494 if(TRUE) {
3495 unur_reset_errno();
3496 do {
3497 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3498 par = unur_srou_new(distr_localcopy);
3499 unur_srou_set_r(par,1.001);
3500 gen = unur_init(par);
3501 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3502 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3503 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3504 unur_free(gen);
3505 unur_distr_free(distr_localcopy);
3506 } while (0);
3507 }
3508
3509 if(TRUE) {
3510 unur_reset_errno();
3511 do {
3512 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3513 par = unur_srou_new(distr_localcopy);
3514 unur_srou_set_r(par,2.);
3515 gen = unur_init(par);
3516 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3517 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3518 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3519 unur_free(gen);
3520 unur_distr_free(distr_localcopy);
3521 } while (0);
3522 }
3523
3524 if(TRUE) {
3525 unur_reset_errno();
3526 do {
3527 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3528 par = unur_srou_new(distr_localcopy);
3529 unur_srou_set_r(par,10.);
3530 gen = unur_init(par);
3531 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3532 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3533 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3534 unur_free(gen);
3535 unur_distr_free(distr_localcopy);
3536 } while (0);
3537 }
3538
3539 if(TRUE) {
3540 unur_reset_errno();
3541 do {
3542 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3543 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3544 par = unur_srou_new(distr_localcopy);
3545 unur_srou_set_r(par,2.);
3546 unur_srou_set_cdfatmode(par,cdfatmode); }
3547 gen = unur_init(par);
3548 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3549 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3550 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3551 unur_free(gen);
3552 unur_distr_free(distr_localcopy);
3553 } while (0);
3554 }
3555
3556 if(TRUE) {
3557 unur_reset_errno();
3558 do {
3559 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3560 {UNUR_DISTR *dg =NULL;
3561 par = unur_srou_new(distr_localcopy);
3562 unur_srou_set_r(par,2.);
3563 gen = unur_init(par);
3564 if (gen) {
3565 dg = unur_get_distr(gen);
3566 unur_distr_cont_set_domain(dg,0.9,0.95);
3567 unur_distr_cont_upd_pdfarea(dg);
3568 unur_distr_cont_upd_mode(dg);
3569 unur_reinit(gen); }
3570 }
3571 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3572 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3573 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3574 unur_free(gen);
3575 unur_distr_free(distr_localcopy);
3576 } while (0);
3577 }
3578
3579 if(TRUE) {
3580 unur_reset_errno();
3581 do {
3582 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
3583 {UNUR_DISTR *dg =NULL;
3584 par = unur_srou_new(distr_localcopy);
3585 unur_srou_set_r(par,2.);
3586 fpm[0] = 2.;
3587 fpm[1] = 4.;
3588 gen = unur_init(par);
3589 if (gen) {
3590 dg = unur_get_distr(gen);
3591 unur_distr_cont_set_pdfparams(dg,fpm,2);
3592 unur_distr_cont_upd_pdfarea(dg);
3593 unur_distr_cont_upd_mode(dg);
3594 unur_reinit(gen); }
3595 }
3596 rcode = run_validate_chi2(TESTLOG,0,gen,distr[10],'+');
3597 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3598 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3599 unur_free(gen);
3600 unur_distr_free(distr_localcopy);
3601 } while (0);
3602 }
3603
3604 /* distribution [11] */
3605
3606 if(TRUE) {
3607 unur_reset_errno();
3608 do {
3609 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3610 par = unur_srou_new(distr_localcopy);
3611 gen = unur_init(par);
3612 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3613 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3614 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3615 unur_free(gen);
3616 unur_distr_free(distr_localcopy);
3617 } while (0);
3618 }
3619
3620 if(TRUE) {
3621 unur_reset_errno();
3622 do {
3623 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3624 par = unur_srou_new(distr_localcopy);
3625 unur_srou_set_usemirror(par,1);
3626 gen = unur_init(par);
3627 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3628 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3629 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3630 unur_free(gen);
3631 unur_distr_free(distr_localcopy);
3632 } while (0);
3633 }
3634
3635 if(TRUE) {
3636 unur_reset_errno();
3637 do {
3638 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3639 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3640 par = unur_srou_new(distr_localcopy);
3641 unur_srou_set_cdfatmode(par,cdfatmode);
3642 unur_srou_set_usesqueeze(par,1); }
3643 gen = unur_init(par);
3644 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3645 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3646 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3647 unur_free(gen);
3648 unur_distr_free(distr_localcopy);
3649 } while (0);
3650 }
3651
3652 if(TRUE) {
3653 unur_reset_errno();
3654 do {
3655 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3656 {UNUR_DISTR *dg =NULL;
3657 par = unur_srou_new(distr_localcopy);
3658 gen = unur_init(par);
3659 if (gen) {
3660 dg = unur_get_distr(gen);
3661 unur_distr_cont_set_domain(dg,0.9,0.92);
3662 unur_distr_cont_upd_pdfarea(dg);
3663 unur_distr_cont_upd_mode(dg);
3664 unur_reinit(gen); }
3665 }
3666 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3667 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3668 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3669 unur_free(gen);
3670 unur_distr_free(distr_localcopy);
3671 } while (0);
3672 }
3673
3674 if(TRUE) {
3675 unur_reset_errno();
3676 do {
3677 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3678 {UNUR_DISTR *dg =NULL;
3679 par = unur_srou_new(distr_localcopy);
3680 fpm[0] = 2.;
3681 fpm[1] = 4.;
3682 gen = unur_init(par);
3683 if (gen) {
3684 dg = unur_get_distr(gen);
3685 unur_distr_cont_set_pdfparams(dg,fpm,2);
3686 unur_distr_cont_upd_pdfarea(dg);
3687 unur_distr_cont_upd_mode(dg);
3688 unur_reinit(gen); }
3689 }
3690 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3691 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3692 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3693 unur_free(gen);
3694 unur_distr_free(distr_localcopy);
3695 } while (0);
3696 }
3697
3698 if(TRUE) {
3699 unur_reset_errno();
3700 do {
3701 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3702 par = unur_srou_new(distr_localcopy);
3703 unur_srou_set_r(par,1.001);
3704 gen = unur_init(par);
3705 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3706 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3707 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3708 unur_free(gen);
3709 unur_distr_free(distr_localcopy);
3710 } while (0);
3711 }
3712
3713 if(TRUE) {
3714 unur_reset_errno();
3715 do {
3716 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3717 par = unur_srou_new(distr_localcopy);
3718 unur_srou_set_r(par,2.);
3719 gen = unur_init(par);
3720 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3721 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3722 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3723 unur_free(gen);
3724 unur_distr_free(distr_localcopy);
3725 } while (0);
3726 }
3727
3728 if(TRUE) {
3729 unur_reset_errno();
3730 do {
3731 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3732 par = unur_srou_new(distr_localcopy);
3733 unur_srou_set_r(par,10.);
3734 gen = unur_init(par);
3735 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3736 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3737 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3738 unur_free(gen);
3739 unur_distr_free(distr_localcopy);
3740 } while (0);
3741 }
3742
3743 if(TRUE) {
3744 unur_reset_errno();
3745 do {
3746 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3747 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3748 par = unur_srou_new(distr_localcopy);
3749 unur_srou_set_r(par,2.);
3750 unur_srou_set_cdfatmode(par,cdfatmode); }
3751 gen = unur_init(par);
3752 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3753 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3754 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3755 unur_free(gen);
3756 unur_distr_free(distr_localcopy);
3757 } while (0);
3758 }
3759
3760 if(TRUE) {
3761 unur_reset_errno();
3762 do {
3763 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3764 {UNUR_DISTR *dg =NULL;
3765 par = unur_srou_new(distr_localcopy);
3766 unur_srou_set_r(par,2.);
3767 gen = unur_init(par);
3768 if (gen) {
3769 dg = unur_get_distr(gen);
3770 unur_distr_cont_set_domain(dg,0.9,0.95);
3771 unur_distr_cont_upd_pdfarea(dg);
3772 unur_distr_cont_upd_mode(dg);
3773 unur_reinit(gen); }
3774 }
3775 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3776 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3777 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3778 unur_free(gen);
3779 unur_distr_free(distr_localcopy);
3780 } while (0);
3781 }
3782
3783 if(TRUE) {
3784 unur_reset_errno();
3785 do {
3786 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
3787 {UNUR_DISTR *dg =NULL;
3788 par = unur_srou_new(distr_localcopy);
3789 unur_srou_set_r(par,2.);
3790 fpm[0] = 2.;
3791 fpm[1] = 4.;
3792 gen = unur_init(par);
3793 if (gen) {
3794 dg = unur_get_distr(gen);
3795 unur_distr_cont_set_pdfparams(dg,fpm,2);
3796 unur_distr_cont_upd_pdfarea(dg);
3797 unur_distr_cont_upd_mode(dg);
3798 unur_reinit(gen); }
3799 }
3800 rcode = run_validate_chi2(TESTLOG,0,gen,distr[11],'+');
3801 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3802 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3803 unur_free(gen);
3804 unur_distr_free(distr_localcopy);
3805 } while (0);
3806 }
3807
3808 /* distribution [12] */
3809
3810 if(TRUE) {
3811 unur_reset_errno();
3812 do {
3813 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3814 par = unur_srou_new(distr_localcopy);
3815 gen = unur_init(par);
3816 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3817 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3818 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3819 unur_free(gen);
3820 unur_distr_free(distr_localcopy);
3821 } while (0);
3822 }
3823
3824 if(TRUE) {
3825 unur_reset_errno();
3826 do {
3827 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3828 par = unur_srou_new(distr_localcopy);
3829 unur_srou_set_usemirror(par,1);
3830 gen = unur_init(par);
3831 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3832 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3833 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3834 unur_free(gen);
3835 unur_distr_free(distr_localcopy);
3836 } while (0);
3837 }
3838
3839 if(TRUE) {
3840 unur_reset_errno();
3841 do {
3842 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3843 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3844 par = unur_srou_new(distr_localcopy);
3845 unur_srou_set_cdfatmode(par,cdfatmode);
3846 unur_srou_set_usesqueeze(par,1); }
3847 gen = unur_init(par);
3848 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3849 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3850 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3851 unur_free(gen);
3852 unur_distr_free(distr_localcopy);
3853 } while (0);
3854 }
3855
3856 if(TRUE) {
3857 unur_reset_errno();
3858 do {
3859 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3860 {UNUR_DISTR *dg =NULL;
3861 par = unur_srou_new(distr_localcopy);
3862 gen = unur_init(par);
3863 if (gen) {
3864 dg = unur_get_distr(gen);
3865 unur_distr_cont_set_domain(dg,0.9,0.92);
3866 unur_distr_cont_upd_pdfarea(dg);
3867 unur_distr_cont_upd_mode(dg);
3868 unur_reinit(gen); }
3869 }
3870 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3871 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3872 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3873 unur_free(gen);
3874 unur_distr_free(distr_localcopy);
3875 } while (0);
3876 }
3877
3878 if(TRUE) {
3879 unur_reset_errno();
3880 do {
3881 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3882 {UNUR_DISTR *dg =NULL;
3883 par = unur_srou_new(distr_localcopy);
3884 fpm[0] = 2.;
3885 fpm[1] = 4.;
3886 gen = unur_init(par);
3887 if (gen) {
3888 dg = unur_get_distr(gen);
3889 unur_distr_cont_set_pdfparams(dg,fpm,2);
3890 unur_distr_cont_upd_pdfarea(dg);
3891 unur_distr_cont_upd_mode(dg);
3892 unur_reinit(gen); }
3893 }
3894 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3895 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3896 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3897 unur_free(gen);
3898 unur_distr_free(distr_localcopy);
3899 } while (0);
3900 }
3901
3902 if(TRUE) {
3903 unur_reset_errno();
3904 do {
3905 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3906 par = unur_srou_new(distr_localcopy);
3907 unur_srou_set_r(par,1.001);
3908 gen = unur_init(par);
3909 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3910 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3911 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3912 unur_free(gen);
3913 unur_distr_free(distr_localcopy);
3914 } while (0);
3915 }
3916
3917 if(TRUE) {
3918 unur_reset_errno();
3919 do {
3920 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3921 par = unur_srou_new(distr_localcopy);
3922 unur_srou_set_r(par,2.);
3923 gen = unur_init(par);
3924 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3925 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3926 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3927 unur_free(gen);
3928 unur_distr_free(distr_localcopy);
3929 } while (0);
3930 }
3931
3932 if(TRUE) {
3933 unur_reset_errno();
3934 do {
3935 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3936 par = unur_srou_new(distr_localcopy);
3937 unur_srou_set_r(par,10.);
3938 gen = unur_init(par);
3939 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3940 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3941 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3942 unur_free(gen);
3943 unur_distr_free(distr_localcopy);
3944 } while (0);
3945 }
3946
3947 if(TRUE) {
3948 unur_reset_errno();
3949 do {
3950 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3951 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
3952 par = unur_srou_new(distr_localcopy);
3953 unur_srou_set_r(par,2.);
3954 unur_srou_set_cdfatmode(par,cdfatmode); }
3955 gen = unur_init(par);
3956 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3957 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3958 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3959 unur_free(gen);
3960 unur_distr_free(distr_localcopy);
3961 } while (0);
3962 }
3963
3964 if(TRUE) {
3965 unur_reset_errno();
3966 do {
3967 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3968 {UNUR_DISTR *dg =NULL;
3969 par = unur_srou_new(distr_localcopy);
3970 unur_srou_set_r(par,2.);
3971 gen = unur_init(par);
3972 if (gen) {
3973 dg = unur_get_distr(gen);
3974 unur_distr_cont_set_domain(dg,0.9,0.95);
3975 unur_distr_cont_upd_pdfarea(dg);
3976 unur_distr_cont_upd_mode(dg);
3977 unur_reinit(gen); }
3978 }
3979 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
3980 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
3981 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
3982 unur_free(gen);
3983 unur_distr_free(distr_localcopy);
3984 } while (0);
3985 }
3986
3987 if(TRUE) {
3988 unur_reset_errno();
3989 do {
3990 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
3991 {UNUR_DISTR *dg =NULL;
3992 par = unur_srou_new(distr_localcopy);
3993 unur_srou_set_r(par,2.);
3994 fpm[0] = 2.;
3995 fpm[1] = 4.;
3996 gen = unur_init(par);
3997 if (gen) {
3998 dg = unur_get_distr(gen);
3999 unur_distr_cont_set_pdfparams(dg,fpm,2);
4000 unur_distr_cont_upd_pdfarea(dg);
4001 unur_distr_cont_upd_mode(dg);
4002 unur_reinit(gen); }
4003 }
4004 rcode = run_validate_chi2(TESTLOG,0,gen,distr[12],'+');
4005 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4006 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4007 unur_free(gen);
4008 unur_distr_free(distr_localcopy);
4009 } while (0);
4010 }
4011
4012 /* distribution [13] */
4013
4014 if(fullcheck) {
4015 unur_reset_errno();
4016 do {
4017 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4018 par = unur_srou_new(distr_localcopy);
4019 gen = unur_init(par);
4020 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4021 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4022 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4023 unur_free(gen);
4024 unur_distr_free(distr_localcopy);
4025 } while (0);
4026 }
4027
4028 if(fullcheck) {
4029 unur_reset_errno();
4030 do {
4031 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4032 par = unur_srou_new(distr_localcopy);
4033 unur_srou_set_usemirror(par,1);
4034 gen = unur_init(par);
4035 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4036 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4037 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4038 unur_free(gen);
4039 unur_distr_free(distr_localcopy);
4040 } while (0);
4041 }
4042
4043 if(fullcheck) {
4044 unur_reset_errno();
4045 do {
4046 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4047 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4048 par = unur_srou_new(distr_localcopy);
4049 unur_srou_set_cdfatmode(par,cdfatmode);
4050 unur_srou_set_usesqueeze(par,1); }
4051 gen = unur_init(par);
4052 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4053 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4054 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4055 unur_free(gen);
4056 unur_distr_free(distr_localcopy);
4057 } while (0);
4058 }
4059
4060 if(fullcheck) {
4061 printf("."); fflush(stdout);
4062 }
4063
4064 if(fullcheck) {
4065 unur_reset_errno();
4066 do {
4067 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4068 {UNUR_DISTR *dg =NULL;
4069 par = unur_srou_new(distr_localcopy);
4070 fpm[0] = 2.;
4071 fpm[1] = 4.;
4072 gen = unur_init(par);
4073 if (gen) {
4074 dg = unur_get_distr(gen);
4075 unur_distr_cont_set_pdfparams(dg,fpm,2);
4076 unur_distr_cont_upd_pdfarea(dg);
4077 unur_distr_cont_upd_mode(dg);
4078 unur_reinit(gen); }
4079 }
4080 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4081 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4082 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4083 unur_free(gen);
4084 unur_distr_free(distr_localcopy);
4085 } while (0);
4086 }
4087
4088 if(fullcheck) {
4089 unur_reset_errno();
4090 do {
4091 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4092 par = unur_srou_new(distr_localcopy);
4093 unur_srou_set_r(par,1.001);
4094 gen = unur_init(par);
4095 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4096 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4097 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4098 unur_free(gen);
4099 unur_distr_free(distr_localcopy);
4100 } while (0);
4101 }
4102
4103 if(fullcheck) {
4104 unur_reset_errno();
4105 do {
4106 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4107 par = unur_srou_new(distr_localcopy);
4108 unur_srou_set_r(par,2.);
4109 gen = unur_init(par);
4110 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4111 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4112 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4113 unur_free(gen);
4114 unur_distr_free(distr_localcopy);
4115 } while (0);
4116 }
4117
4118 if(fullcheck) {
4119 unur_reset_errno();
4120 do {
4121 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4122 par = unur_srou_new(distr_localcopy);
4123 unur_srou_set_r(par,10.);
4124 gen = unur_init(par);
4125 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4126 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4127 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4128 unur_free(gen);
4129 unur_distr_free(distr_localcopy);
4130 } while (0);
4131 }
4132
4133 if(fullcheck) {
4134 unur_reset_errno();
4135 do {
4136 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4137 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4138 par = unur_srou_new(distr_localcopy);
4139 unur_srou_set_r(par,2.);
4140 unur_srou_set_cdfatmode(par,cdfatmode); }
4141 gen = unur_init(par);
4142 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4143 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4144 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4145 unur_free(gen);
4146 unur_distr_free(distr_localcopy);
4147 } while (0);
4148 }
4149
4150 if(fullcheck) {
4151 printf("."); fflush(stdout);
4152 }
4153
4154 if(fullcheck) {
4155 unur_reset_errno();
4156 do {
4157 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
4158 {UNUR_DISTR *dg =NULL;
4159 par = unur_srou_new(distr_localcopy);
4160 unur_srou_set_r(par,2.);
4161 fpm[0] = 2.;
4162 fpm[1] = 4.;
4163 gen = unur_init(par);
4164 if (gen) {
4165 dg = unur_get_distr(gen);
4166 unur_distr_cont_set_pdfparams(dg,fpm,2);
4167 unur_distr_cont_upd_pdfarea(dg);
4168 unur_distr_cont_upd_mode(dg);
4169 unur_reinit(gen); }
4170 }
4171 rcode = run_validate_chi2(TESTLOG,0,gen,distr[13],'+');
4172 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4173 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4174 unur_free(gen);
4175 unur_distr_free(distr_localcopy);
4176 } while (0);
4177 }
4178
4179 /* distribution [29] */
4180
4181 if(TRUE) {
4182 unur_reset_errno();
4183 do {
4184 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4185 par = unur_srou_new(distr_localcopy);
4186 gen = unur_init(par);
4187 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4188 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4189 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4190 unur_free(gen);
4191 unur_distr_free(distr_localcopy);
4192 } while (0);
4193 }
4194
4195 if(TRUE) {
4196 unur_reset_errno();
4197 do {
4198 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4199 par = unur_srou_new(distr_localcopy);
4200 unur_srou_set_usemirror(par,1);
4201 gen = unur_init(par);
4202 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4203 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4204 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4205 unur_free(gen);
4206 unur_distr_free(distr_localcopy);
4207 } while (0);
4208 }
4209
4210 if(TRUE) {
4211 unur_reset_errno();
4212 do {
4213 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4214 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4215 par = unur_srou_new(distr_localcopy);
4216 unur_srou_set_cdfatmode(par,cdfatmode);
4217 unur_srou_set_usesqueeze(par,1); }
4218 gen = unur_init(par);
4219 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4220 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4221 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4222 unur_free(gen);
4223 unur_distr_free(distr_localcopy);
4224 } while (0);
4225 }
4226
4227 if(TRUE) {
4228 unur_reset_errno();
4229 do {
4230 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4231 {UNUR_DISTR *dg =NULL;
4232 par = unur_srou_new(distr_localcopy);
4233 gen = unur_init(par);
4234 if (gen) {
4235 dg = unur_get_distr(gen);
4236 unur_distr_cont_set_domain(dg,0.9,0.92);
4237 unur_distr_cont_upd_pdfarea(dg);
4238 unur_distr_cont_upd_mode(dg);
4239 unur_reinit(gen); }
4240 }
4241 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4242 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4243 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4244 unur_free(gen);
4245 unur_distr_free(distr_localcopy);
4246 } while (0);
4247 }
4248
4249 if(TRUE) {
4250 unur_reset_errno();
4251 do {
4252 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4253 {UNUR_DISTR *dg =NULL;
4254 par = unur_srou_new(distr_localcopy);
4255 fpm[0] = 2.;
4256 fpm[1] = 4.;
4257 gen = unur_init(par);
4258 if (gen) {
4259 dg = unur_get_distr(gen);
4260 unur_distr_cont_set_pdfparams(dg,fpm,2);
4261 unur_distr_cont_upd_pdfarea(dg);
4262 unur_distr_cont_upd_mode(dg);
4263 unur_reinit(gen); }
4264 }
4265 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4266 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4267 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4268 unur_free(gen);
4269 unur_distr_free(distr_localcopy);
4270 } while (0);
4271 }
4272
4273 if(TRUE) {
4274 unur_reset_errno();
4275 do {
4276 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4277 par = unur_srou_new(distr_localcopy);
4278 unur_srou_set_r(par,1.001);
4279 gen = unur_init(par);
4280 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4281 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4282 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4283 unur_free(gen);
4284 unur_distr_free(distr_localcopy);
4285 } while (0);
4286 }
4287
4288 if(TRUE) {
4289 unur_reset_errno();
4290 do {
4291 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4292 par = unur_srou_new(distr_localcopy);
4293 unur_srou_set_r(par,2.);
4294 gen = unur_init(par);
4295 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4296 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4297 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4298 unur_free(gen);
4299 unur_distr_free(distr_localcopy);
4300 } while (0);
4301 }
4302
4303 if(TRUE) {
4304 unur_reset_errno();
4305 do {
4306 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4307 par = unur_srou_new(distr_localcopy);
4308 unur_srou_set_r(par,10.);
4309 gen = unur_init(par);
4310 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4311 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4312 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4313 unur_free(gen);
4314 unur_distr_free(distr_localcopy);
4315 } while (0);
4316 }
4317
4318 if(TRUE) {
4319 unur_reset_errno();
4320 do {
4321 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4322 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4323 par = unur_srou_new(distr_localcopy);
4324 unur_srou_set_r(par,2.);
4325 unur_srou_set_cdfatmode(par,cdfatmode); }
4326 gen = unur_init(par);
4327 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4328 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4329 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4330 unur_free(gen);
4331 unur_distr_free(distr_localcopy);
4332 } while (0);
4333 }
4334
4335 if(TRUE) {
4336 unur_reset_errno();
4337 do {
4338 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4339 {UNUR_DISTR *dg =NULL;
4340 par = unur_srou_new(distr_localcopy);
4341 unur_srou_set_r(par,2.);
4342 gen = unur_init(par);
4343 if (gen) {
4344 dg = unur_get_distr(gen);
4345 unur_distr_cont_set_domain(dg,0.9,0.95);
4346 unur_distr_cont_upd_pdfarea(dg);
4347 unur_distr_cont_upd_mode(dg);
4348 unur_reinit(gen); }
4349 }
4350 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4351 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4352 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4353 unur_free(gen);
4354 unur_distr_free(distr_localcopy);
4355 } while (0);
4356 }
4357
4358 if(TRUE) {
4359 unur_reset_errno();
4360 do {
4361 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
4362 {UNUR_DISTR *dg =NULL;
4363 par = unur_srou_new(distr_localcopy);
4364 unur_srou_set_r(par,2.);
4365 fpm[0] = 2.;
4366 fpm[1] = 4.;
4367 gen = unur_init(par);
4368 if (gen) {
4369 dg = unur_get_distr(gen);
4370 unur_distr_cont_set_pdfparams(dg,fpm,2);
4371 unur_distr_cont_upd_pdfarea(dg);
4372 unur_distr_cont_upd_mode(dg);
4373 unur_reinit(gen); }
4374 }
4375 rcode = run_validate_chi2(TESTLOG,0,gen,distr[29],'+');
4376 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4377 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4378 unur_free(gen);
4379 unur_distr_free(distr_localcopy);
4380 } while (0);
4381 }
4382
4383 /* distribution [14] */
4384
4385 if(TRUE) {
4386 unur_reset_errno();
4387 do {
4388 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4389 par = unur_srou_new(distr_localcopy);
4390 gen = unur_init(par);
4391 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4392 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4393 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4394 unur_free(gen);
4395 unur_distr_free(distr_localcopy);
4396 } while (0);
4397 }
4398
4399 if(TRUE) {
4400 unur_reset_errno();
4401 do {
4402 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4403 par = unur_srou_new(distr_localcopy);
4404 unur_srou_set_usemirror(par,1);
4405 gen = unur_init(par);
4406 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4407 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4408 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4409 unur_free(gen);
4410 unur_distr_free(distr_localcopy);
4411 } while (0);
4412 }
4413
4414 if(TRUE) {
4415 unur_reset_errno();
4416 do {
4417 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4418 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4419 par = unur_srou_new(distr_localcopy);
4420 unur_srou_set_cdfatmode(par,cdfatmode);
4421 unur_srou_set_usesqueeze(par,1); }
4422 gen = unur_init(par);
4423 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4424 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4425 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4426 unur_free(gen);
4427 unur_distr_free(distr_localcopy);
4428 } while (0);
4429 }
4430
4431 if(TRUE) {
4432 unur_reset_errno();
4433 do {
4434 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4435 {UNUR_DISTR *dg =NULL;
4436 par = unur_srou_new(distr_localcopy);
4437 gen = unur_init(par);
4438 if (gen) {
4439 dg = unur_get_distr(gen);
4440 unur_distr_cont_set_domain(dg,0.9,0.92);
4441 unur_distr_cont_upd_pdfarea(dg);
4442 unur_distr_cont_upd_mode(dg);
4443 unur_reinit(gen); }
4444 }
4445 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4446 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4447 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4448 unur_free(gen);
4449 unur_distr_free(distr_localcopy);
4450 } while (0);
4451 }
4452
4453 if(TRUE) {
4454 unur_reset_errno();
4455 do {
4456 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4457 {UNUR_DISTR *dg =NULL;
4458 par = unur_srou_new(distr_localcopy);
4459 fpm[0] = 2.;
4460 fpm[1] = 4.;
4461 gen = unur_init(par);
4462 if (gen) {
4463 dg = unur_get_distr(gen);
4464 unur_distr_cont_set_pdfparams(dg,fpm,2);
4465 unur_distr_cont_upd_pdfarea(dg);
4466 unur_distr_cont_upd_mode(dg);
4467 unur_reinit(gen); }
4468 }
4469 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4470 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4471 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4472 unur_free(gen);
4473 unur_distr_free(distr_localcopy);
4474 } while (0);
4475 }
4476
4477 if(TRUE) {
4478 unur_reset_errno();
4479 do {
4480 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4481 par = unur_srou_new(distr_localcopy);
4482 unur_srou_set_r(par,1.001);
4483 gen = unur_init(par);
4484 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4485 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4486 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4487 unur_free(gen);
4488 unur_distr_free(distr_localcopy);
4489 } while (0);
4490 }
4491
4492 if(TRUE) {
4493 unur_reset_errno();
4494 do {
4495 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4496 par = unur_srou_new(distr_localcopy);
4497 unur_srou_set_r(par,2.);
4498 gen = unur_init(par);
4499 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4500 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4501 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4502 unur_free(gen);
4503 unur_distr_free(distr_localcopy);
4504 } while (0);
4505 }
4506
4507 if(TRUE) {
4508 unur_reset_errno();
4509 do {
4510 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4511 par = unur_srou_new(distr_localcopy);
4512 unur_srou_set_r(par,10.);
4513 gen = unur_init(par);
4514 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4515 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4516 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4517 unur_free(gen);
4518 unur_distr_free(distr_localcopy);
4519 } while (0);
4520 }
4521
4522 if(TRUE) {
4523 unur_reset_errno();
4524 do {
4525 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4526 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4527 par = unur_srou_new(distr_localcopy);
4528 unur_srou_set_r(par,2.);
4529 unur_srou_set_cdfatmode(par,cdfatmode); }
4530 gen = unur_init(par);
4531 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4532 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4533 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4534 unur_free(gen);
4535 unur_distr_free(distr_localcopy);
4536 } while (0);
4537 }
4538
4539 if(TRUE) {
4540 unur_reset_errno();
4541 do {
4542 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4543 {UNUR_DISTR *dg =NULL;
4544 par = unur_srou_new(distr_localcopy);
4545 unur_srou_set_r(par,2.);
4546 gen = unur_init(par);
4547 if (gen) {
4548 dg = unur_get_distr(gen);
4549 unur_distr_cont_set_domain(dg,0.9,0.95);
4550 unur_distr_cont_upd_pdfarea(dg);
4551 unur_distr_cont_upd_mode(dg);
4552 unur_reinit(gen); }
4553 }
4554 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4555 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4556 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4557 unur_free(gen);
4558 unur_distr_free(distr_localcopy);
4559 } while (0);
4560 }
4561
4562 if(TRUE) {
4563 unur_reset_errno();
4564 do {
4565 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
4566 {UNUR_DISTR *dg =NULL;
4567 par = unur_srou_new(distr_localcopy);
4568 unur_srou_set_r(par,2.);
4569 fpm[0] = 2.;
4570 fpm[1] = 4.;
4571 gen = unur_init(par);
4572 if (gen) {
4573 dg = unur_get_distr(gen);
4574 unur_distr_cont_set_pdfparams(dg,fpm,2);
4575 unur_distr_cont_upd_pdfarea(dg);
4576 unur_distr_cont_upd_mode(dg);
4577 unur_reinit(gen); }
4578 }
4579 rcode = run_validate_chi2(TESTLOG,0,gen,distr[14],'+');
4580 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4581 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4582 unur_free(gen);
4583 unur_distr_free(distr_localcopy);
4584 } while (0);
4585 }
4586
4587 /* distribution [15] */
4588
4589 if(fullcheck) {
4590 unur_reset_errno();
4591 do {
4592 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4593 par = unur_srou_new(distr_localcopy);
4594 gen = unur_init(par);
4595 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4596 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4597 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4598 unur_free(gen);
4599 unur_distr_free(distr_localcopy);
4600 } while (0);
4601 }
4602
4603 if(fullcheck) {
4604 unur_reset_errno();
4605 do {
4606 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4607 par = unur_srou_new(distr_localcopy);
4608 unur_srou_set_usemirror(par,1);
4609 gen = unur_init(par);
4610 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4611 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4612 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4613 unur_free(gen);
4614 unur_distr_free(distr_localcopy);
4615 } while (0);
4616 }
4617
4618 if(fullcheck) {
4619 unur_reset_errno();
4620 do {
4621 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4622 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4623 par = unur_srou_new(distr_localcopy);
4624 unur_srou_set_cdfatmode(par,cdfatmode);
4625 unur_srou_set_usesqueeze(par,1); }
4626 gen = unur_init(par);
4627 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4628 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4629 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4630 unur_free(gen);
4631 unur_distr_free(distr_localcopy);
4632 } while (0);
4633 }
4634
4635 if(fullcheck) {
4636 printf("."); fflush(stdout);
4637 }
4638
4639 if(fullcheck) {
4640 unur_reset_errno();
4641 do {
4642 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4643 {UNUR_DISTR *dg =NULL;
4644 par = unur_srou_new(distr_localcopy);
4645 fpm[0] = 2.;
4646 fpm[1] = 4.;
4647 gen = unur_init(par);
4648 if (gen) {
4649 dg = unur_get_distr(gen);
4650 unur_distr_cont_set_pdfparams(dg,fpm,2);
4651 unur_distr_cont_upd_pdfarea(dg);
4652 unur_distr_cont_upd_mode(dg);
4653 unur_reinit(gen); }
4654 }
4655 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4656 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4657 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4658 unur_free(gen);
4659 unur_distr_free(distr_localcopy);
4660 } while (0);
4661 }
4662
4663 if(fullcheck) {
4664 unur_reset_errno();
4665 do {
4666 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4667 par = unur_srou_new(distr_localcopy);
4668 unur_srou_set_r(par,1.001);
4669 gen = unur_init(par);
4670 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4671 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4672 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4673 unur_free(gen);
4674 unur_distr_free(distr_localcopy);
4675 } while (0);
4676 }
4677
4678 if(fullcheck) {
4679 unur_reset_errno();
4680 do {
4681 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4682 par = unur_srou_new(distr_localcopy);
4683 unur_srou_set_r(par,2.);
4684 gen = unur_init(par);
4685 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4686 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4687 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4688 unur_free(gen);
4689 unur_distr_free(distr_localcopy);
4690 } while (0);
4691 }
4692
4693 if(fullcheck) {
4694 unur_reset_errno();
4695 do {
4696 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4697 par = unur_srou_new(distr_localcopy);
4698 unur_srou_set_r(par,10.);
4699 gen = unur_init(par);
4700 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4701 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4702 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4703 unur_free(gen);
4704 unur_distr_free(distr_localcopy);
4705 } while (0);
4706 }
4707
4708 if(fullcheck) {
4709 unur_reset_errno();
4710 do {
4711 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4712 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4713 par = unur_srou_new(distr_localcopy);
4714 unur_srou_set_r(par,2.);
4715 unur_srou_set_cdfatmode(par,cdfatmode); }
4716 gen = unur_init(par);
4717 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4718 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4719 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4720 unur_free(gen);
4721 unur_distr_free(distr_localcopy);
4722 } while (0);
4723 }
4724
4725 if(fullcheck) {
4726 printf("."); fflush(stdout);
4727 }
4728
4729 if(fullcheck) {
4730 unur_reset_errno();
4731 do {
4732 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
4733 {UNUR_DISTR *dg =NULL;
4734 par = unur_srou_new(distr_localcopy);
4735 unur_srou_set_r(par,2.);
4736 fpm[0] = 2.;
4737 fpm[1] = 4.;
4738 gen = unur_init(par);
4739 if (gen) {
4740 dg = unur_get_distr(gen);
4741 unur_distr_cont_set_pdfparams(dg,fpm,2);
4742 unur_distr_cont_upd_pdfarea(dg);
4743 unur_distr_cont_upd_mode(dg);
4744 unur_reinit(gen); }
4745 }
4746 rcode = run_validate_chi2(TESTLOG,0,gen,distr[15],'+');
4747 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4748 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4749 unur_free(gen);
4750 unur_distr_free(distr_localcopy);
4751 } while (0);
4752 }
4753
4754 /* distribution [16] */
4755
4756 if(fullcheck) {
4757 unur_reset_errno();
4758 do {
4759 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4760 par = unur_srou_new(distr_localcopy);
4761 gen = unur_init(par);
4762 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4763 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4764 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4765 unur_free(gen);
4766 unur_distr_free(distr_localcopy);
4767 } while (0);
4768 }
4769
4770 if(fullcheck) {
4771 unur_reset_errno();
4772 do {
4773 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4774 par = unur_srou_new(distr_localcopy);
4775 unur_srou_set_usemirror(par,1);
4776 gen = unur_init(par);
4777 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4778 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4779 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4780 unur_free(gen);
4781 unur_distr_free(distr_localcopy);
4782 } while (0);
4783 }
4784
4785 if(fullcheck) {
4786 unur_reset_errno();
4787 do {
4788 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4789 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4790 par = unur_srou_new(distr_localcopy);
4791 unur_srou_set_cdfatmode(par,cdfatmode);
4792 unur_srou_set_usesqueeze(par,1); }
4793 gen = unur_init(par);
4794 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4795 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4796 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4797 unur_free(gen);
4798 unur_distr_free(distr_localcopy);
4799 } while (0);
4800 }
4801
4802 if(fullcheck) {
4803 unur_reset_errno();
4804 do {
4805 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4806 {UNUR_DISTR *dg =NULL;
4807 par = unur_srou_new(distr_localcopy);
4808 gen = unur_init(par);
4809 if (gen) {
4810 dg = unur_get_distr(gen);
4811 unur_distr_cont_set_domain(dg,0.9,0.92);
4812 unur_distr_cont_upd_pdfarea(dg);
4813 unur_distr_cont_upd_mode(dg);
4814 unur_reinit(gen); }
4815 }
4816 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'-');
4817 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4818 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4819 unur_free(gen);
4820 unur_distr_free(distr_localcopy);
4821 } while (0);
4822 }
4823
4824 if(fullcheck) {
4825 unur_reset_errno();
4826 do {
4827 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4828 {UNUR_DISTR *dg =NULL;
4829 par = unur_srou_new(distr_localcopy);
4830 fpm[0] = 2.;
4831 fpm[1] = 4.;
4832 gen = unur_init(par);
4833 if (gen) {
4834 dg = unur_get_distr(gen);
4835 unur_distr_cont_set_pdfparams(dg,fpm,2);
4836 unur_distr_cont_upd_pdfarea(dg);
4837 unur_distr_cont_upd_mode(dg);
4838 unur_reinit(gen); }
4839 }
4840 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4841 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4842 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4843 unur_free(gen);
4844 unur_distr_free(distr_localcopy);
4845 } while (0);
4846 }
4847
4848 if(fullcheck) {
4849 unur_reset_errno();
4850 do {
4851 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4852 par = unur_srou_new(distr_localcopy);
4853 unur_srou_set_r(par,1.001);
4854 gen = unur_init(par);
4855 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4856 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4857 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4858 unur_free(gen);
4859 unur_distr_free(distr_localcopy);
4860 } while (0);
4861 }
4862
4863 if(fullcheck) {
4864 unur_reset_errno();
4865 do {
4866 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4867 par = unur_srou_new(distr_localcopy);
4868 unur_srou_set_r(par,2.);
4869 gen = unur_init(par);
4870 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4871 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4872 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4873 unur_free(gen);
4874 unur_distr_free(distr_localcopy);
4875 } while (0);
4876 }
4877
4878 if(fullcheck) {
4879 unur_reset_errno();
4880 do {
4881 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4882 par = unur_srou_new(distr_localcopy);
4883 unur_srou_set_r(par,10.);
4884 gen = unur_init(par);
4885 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4886 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4887 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4888 unur_free(gen);
4889 unur_distr_free(distr_localcopy);
4890 } while (0);
4891 }
4892
4893 if(fullcheck) {
4894 unur_reset_errno();
4895 do {
4896 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4897 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4898 par = unur_srou_new(distr_localcopy);
4899 unur_srou_set_r(par,2.);
4900 unur_srou_set_cdfatmode(par,cdfatmode); }
4901 gen = unur_init(par);
4902 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4903 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4904 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4905 unur_free(gen);
4906 unur_distr_free(distr_localcopy);
4907 } while (0);
4908 }
4909
4910 if(fullcheck) {
4911 unur_reset_errno();
4912 do {
4913 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4914 {UNUR_DISTR *dg =NULL;
4915 par = unur_srou_new(distr_localcopy);
4916 unur_srou_set_r(par,2.);
4917 gen = unur_init(par);
4918 if (gen) {
4919 dg = unur_get_distr(gen);
4920 unur_distr_cont_set_domain(dg,0.9,0.95);
4921 unur_distr_cont_upd_pdfarea(dg);
4922 unur_distr_cont_upd_mode(dg);
4923 unur_reinit(gen); }
4924 }
4925 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'-');
4926 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4927 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4928 unur_free(gen);
4929 unur_distr_free(distr_localcopy);
4930 } while (0);
4931 }
4932
4933 if(fullcheck) {
4934 unur_reset_errno();
4935 do {
4936 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
4937 {UNUR_DISTR *dg =NULL;
4938 par = unur_srou_new(distr_localcopy);
4939 unur_srou_set_r(par,2.);
4940 fpm[0] = 2.;
4941 fpm[1] = 4.;
4942 gen = unur_init(par);
4943 if (gen) {
4944 dg = unur_get_distr(gen);
4945 unur_distr_cont_set_pdfparams(dg,fpm,2);
4946 unur_distr_cont_upd_pdfarea(dg);
4947 unur_distr_cont_upd_mode(dg);
4948 unur_reinit(gen); }
4949 }
4950 rcode = run_validate_chi2(TESTLOG,0,gen,distr[16],'+');
4951 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4952 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4953 unur_free(gen);
4954 unur_distr_free(distr_localcopy);
4955 } while (0);
4956 }
4957
4958 /* distribution [30] */
4959
4960 if(TRUE) {
4961 unur_reset_errno();
4962 do {
4963 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
4964 par = unur_srou_new(distr_localcopy);
4965 gen = unur_init(par);
4966 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
4967 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4968 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4969 unur_free(gen);
4970 unur_distr_free(distr_localcopy);
4971 } while (0);
4972 }
4973
4974 if(TRUE) {
4975 unur_reset_errno();
4976 do {
4977 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
4978 par = unur_srou_new(distr_localcopy);
4979 unur_srou_set_usemirror(par,1);
4980 gen = unur_init(par);
4981 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
4982 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
4983 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
4984 unur_free(gen);
4985 unur_distr_free(distr_localcopy);
4986 } while (0);
4987 }
4988
4989 if(TRUE) {
4990 unur_reset_errno();
4991 do {
4992 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
4993 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
4994 par = unur_srou_new(distr_localcopy);
4995 unur_srou_set_cdfatmode(par,cdfatmode);
4996 unur_srou_set_usesqueeze(par,1); }
4997 gen = unur_init(par);
4998 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
4999 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5000 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5001 unur_free(gen);
5002 unur_distr_free(distr_localcopy);
5003 } while (0);
5004 }
5005
5006 if(TRUE) {
5007 unur_reset_errno();
5008 do {
5009 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5010 {UNUR_DISTR *dg =NULL;
5011 par = unur_srou_new(distr_localcopy);
5012 gen = unur_init(par);
5013 if (gen) {
5014 dg = unur_get_distr(gen);
5015 unur_distr_cont_set_domain(dg,0.9,0.92);
5016 unur_distr_cont_upd_pdfarea(dg);
5017 unur_distr_cont_upd_mode(dg);
5018 unur_reinit(gen); }
5019 }
5020 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5021 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5022 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5023 unur_free(gen);
5024 unur_distr_free(distr_localcopy);
5025 } while (0);
5026 }
5027
5028 if(TRUE) {
5029 unur_reset_errno();
5030 do {
5031 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5032 {UNUR_DISTR *dg =NULL;
5033 par = unur_srou_new(distr_localcopy);
5034 fpm[0] = 2.;
5035 fpm[1] = 4.;
5036 gen = unur_init(par);
5037 if (gen) {
5038 dg = unur_get_distr(gen);
5039 unur_distr_cont_set_pdfparams(dg,fpm,2);
5040 unur_distr_cont_upd_pdfarea(dg);
5041 unur_distr_cont_upd_mode(dg);
5042 unur_reinit(gen); }
5043 }
5044 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5045 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5046 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5047 unur_free(gen);
5048 unur_distr_free(distr_localcopy);
5049 } while (0);
5050 }
5051
5052 if(TRUE) {
5053 unur_reset_errno();
5054 do {
5055 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5056 par = unur_srou_new(distr_localcopy);
5057 unur_srou_set_r(par,1.001);
5058 gen = unur_init(par);
5059 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5060 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5061 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5062 unur_free(gen);
5063 unur_distr_free(distr_localcopy);
5064 } while (0);
5065 }
5066
5067 if(TRUE) {
5068 unur_reset_errno();
5069 do {
5070 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5071 par = unur_srou_new(distr_localcopy);
5072 unur_srou_set_r(par,2.);
5073 gen = unur_init(par);
5074 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5075 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5076 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5077 unur_free(gen);
5078 unur_distr_free(distr_localcopy);
5079 } while (0);
5080 }
5081
5082 if(TRUE) {
5083 unur_reset_errno();
5084 do {
5085 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5086 par = unur_srou_new(distr_localcopy);
5087 unur_srou_set_r(par,10.);
5088 gen = unur_init(par);
5089 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5090 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5091 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5092 unur_free(gen);
5093 unur_distr_free(distr_localcopy);
5094 } while (0);
5095 }
5096
5097 if(TRUE) {
5098 unur_reset_errno();
5099 do {
5100 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5101 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5102 par = unur_srou_new(distr_localcopy);
5103 unur_srou_set_r(par,2.);
5104 unur_srou_set_cdfatmode(par,cdfatmode); }
5105 gen = unur_init(par);
5106 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5107 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5108 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5109 unur_free(gen);
5110 unur_distr_free(distr_localcopy);
5111 } while (0);
5112 }
5113
5114 if(TRUE) {
5115 unur_reset_errno();
5116 do {
5117 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5118 {UNUR_DISTR *dg =NULL;
5119 par = unur_srou_new(distr_localcopy);
5120 unur_srou_set_r(par,2.);
5121 gen = unur_init(par);
5122 if (gen) {
5123 dg = unur_get_distr(gen);
5124 unur_distr_cont_set_domain(dg,0.9,0.95);
5125 unur_distr_cont_upd_pdfarea(dg);
5126 unur_distr_cont_upd_mode(dg);
5127 unur_reinit(gen); }
5128 }
5129 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5130 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5131 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5132 unur_free(gen);
5133 unur_distr_free(distr_localcopy);
5134 } while (0);
5135 }
5136
5137 if(TRUE) {
5138 unur_reset_errno();
5139 do {
5140 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[30]);
5141 {UNUR_DISTR *dg =NULL;
5142 par = unur_srou_new(distr_localcopy);
5143 unur_srou_set_r(par,2.);
5144 fpm[0] = 2.;
5145 fpm[1] = 4.;
5146 gen = unur_init(par);
5147 if (gen) {
5148 dg = unur_get_distr(gen);
5149 unur_distr_cont_set_pdfparams(dg,fpm,2);
5150 unur_distr_cont_upd_pdfarea(dg);
5151 unur_distr_cont_upd_mode(dg);
5152 unur_reinit(gen); }
5153 }
5154 rcode = run_validate_chi2(TESTLOG,0,gen,distr[30],'0');
5155 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5156 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5157 unur_free(gen);
5158 unur_distr_free(distr_localcopy);
5159 } while (0);
5160 }
5161
5162 /* distribution [25] */
5163
5164 if(TRUE) {
5165 unur_reset_errno();
5166 do {
5167 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5168 par = unur_srou_new(distr_localcopy);
5169 gen = unur_init(par);
5170 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5171 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5172 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5173 unur_free(gen);
5174 unur_distr_free(distr_localcopy);
5175 } while (0);
5176 }
5177
5178 if(TRUE) {
5179 unur_reset_errno();
5180 do {
5181 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5182 par = unur_srou_new(distr_localcopy);
5183 unur_srou_set_usemirror(par,1);
5184 gen = unur_init(par);
5185 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5186 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5187 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5188 unur_free(gen);
5189 unur_distr_free(distr_localcopy);
5190 } while (0);
5191 }
5192
5193 if(TRUE) {
5194 unur_reset_errno();
5195 do {
5196 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5197 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5198 par = unur_srou_new(distr_localcopy);
5199 unur_srou_set_cdfatmode(par,cdfatmode);
5200 unur_srou_set_usesqueeze(par,1); }
5201 gen = unur_init(par);
5202 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5203 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5204 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5205 unur_free(gen);
5206 unur_distr_free(distr_localcopy);
5207 } while (0);
5208 }
5209
5210 if(TRUE) {
5211 unur_reset_errno();
5212 do {
5213 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5214 {UNUR_DISTR *dg =NULL;
5215 par = unur_srou_new(distr_localcopy);
5216 gen = unur_init(par);
5217 if (gen) {
5218 dg = unur_get_distr(gen);
5219 unur_distr_cont_set_domain(dg,0.9,0.92);
5220 unur_distr_cont_upd_pdfarea(dg);
5221 unur_distr_cont_upd_mode(dg);
5222 unur_reinit(gen); }
5223 }
5224 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5225 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5226 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5227 unur_free(gen);
5228 unur_distr_free(distr_localcopy);
5229 } while (0);
5230 }
5231
5232 if(TRUE) {
5233 unur_reset_errno();
5234 do {
5235 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5236 {UNUR_DISTR *dg =NULL;
5237 par = unur_srou_new(distr_localcopy);
5238 fpm[0] = 2.;
5239 fpm[1] = 4.;
5240 gen = unur_init(par);
5241 if (gen) {
5242 dg = unur_get_distr(gen);
5243 unur_distr_cont_set_pdfparams(dg,fpm,2);
5244 unur_distr_cont_upd_pdfarea(dg);
5245 unur_distr_cont_upd_mode(dg);
5246 unur_reinit(gen); }
5247 }
5248 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5249 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5250 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5251 unur_free(gen);
5252 unur_distr_free(distr_localcopy);
5253 } while (0);
5254 }
5255
5256 if(TRUE) {
5257 unur_reset_errno();
5258 do {
5259 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5260 par = unur_srou_new(distr_localcopy);
5261 unur_srou_set_r(par,1.001);
5262 gen = unur_init(par);
5263 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5264 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5265 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5266 unur_free(gen);
5267 unur_distr_free(distr_localcopy);
5268 } while (0);
5269 }
5270
5271 if(TRUE) {
5272 unur_reset_errno();
5273 do {
5274 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5275 par = unur_srou_new(distr_localcopy);
5276 unur_srou_set_r(par,2.);
5277 gen = unur_init(par);
5278 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5279 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5280 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5281 unur_free(gen);
5282 unur_distr_free(distr_localcopy);
5283 } while (0);
5284 }
5285
5286 if(TRUE) {
5287 unur_reset_errno();
5288 do {
5289 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5290 par = unur_srou_new(distr_localcopy);
5291 unur_srou_set_r(par,10.);
5292 gen = unur_init(par);
5293 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5294 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5295 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5296 unur_free(gen);
5297 unur_distr_free(distr_localcopy);
5298 } while (0);
5299 }
5300
5301 if(TRUE) {
5302 unur_reset_errno();
5303 do {
5304 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5305 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5306 par = unur_srou_new(distr_localcopy);
5307 unur_srou_set_r(par,2.);
5308 unur_srou_set_cdfatmode(par,cdfatmode); }
5309 gen = unur_init(par);
5310 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5311 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5312 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5313 unur_free(gen);
5314 unur_distr_free(distr_localcopy);
5315 } while (0);
5316 }
5317
5318 if(TRUE) {
5319 unur_reset_errno();
5320 do {
5321 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5322 {UNUR_DISTR *dg =NULL;
5323 par = unur_srou_new(distr_localcopy);
5324 unur_srou_set_r(par,2.);
5325 gen = unur_init(par);
5326 if (gen) {
5327 dg = unur_get_distr(gen);
5328 unur_distr_cont_set_domain(dg,0.9,0.95);
5329 unur_distr_cont_upd_pdfarea(dg);
5330 unur_distr_cont_upd_mode(dg);
5331 unur_reinit(gen); }
5332 }
5333 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5334 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5335 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5336 unur_free(gen);
5337 unur_distr_free(distr_localcopy);
5338 } while (0);
5339 }
5340
5341 if(TRUE) {
5342 unur_reset_errno();
5343 do {
5344 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
5345 {UNUR_DISTR *dg =NULL;
5346 par = unur_srou_new(distr_localcopy);
5347 unur_srou_set_r(par,2.);
5348 fpm[0] = 2.;
5349 fpm[1] = 4.;
5350 gen = unur_init(par);
5351 if (gen) {
5352 dg = unur_get_distr(gen);
5353 unur_distr_cont_set_pdfparams(dg,fpm,2);
5354 unur_distr_cont_upd_pdfarea(dg);
5355 unur_distr_cont_upd_mode(dg);
5356 unur_reinit(gen); }
5357 }
5358 rcode = run_validate_chi2(TESTLOG,0,gen,distr[25],'+');
5359 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5360 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5361 unur_free(gen);
5362 unur_distr_free(distr_localcopy);
5363 } while (0);
5364 }
5365
5366 /* distribution [26] */
5367
5368 if(TRUE) {
5369 unur_reset_errno();
5370 do {
5371 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5372 par = unur_srou_new(distr_localcopy);
5373 gen = unur_init(par);
5374 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5375 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5376 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5377 unur_free(gen);
5378 unur_distr_free(distr_localcopy);
5379 } while (0);
5380 }
5381
5382 if(TRUE) {
5383 unur_reset_errno();
5384 do {
5385 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5386 par = unur_srou_new(distr_localcopy);
5387 unur_srou_set_usemirror(par,1);
5388 gen = unur_init(par);
5389 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5390 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5391 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5392 unur_free(gen);
5393 unur_distr_free(distr_localcopy);
5394 } while (0);
5395 }
5396
5397 if(TRUE) {
5398 unur_reset_errno();
5399 do {
5400 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5401 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5402 par = unur_srou_new(distr_localcopy);
5403 unur_srou_set_cdfatmode(par,cdfatmode);
5404 unur_srou_set_usesqueeze(par,1); }
5405 gen = unur_init(par);
5406 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5407 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5408 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5409 unur_free(gen);
5410 unur_distr_free(distr_localcopy);
5411 } while (0);
5412 }
5413
5414 if(TRUE) {
5415 unur_reset_errno();
5416 do {
5417 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5418 {UNUR_DISTR *dg =NULL;
5419 par = unur_srou_new(distr_localcopy);
5420 gen = unur_init(par);
5421 if (gen) {
5422 dg = unur_get_distr(gen);
5423 unur_distr_cont_set_domain(dg,0.9,0.92);
5424 unur_distr_cont_upd_pdfarea(dg);
5425 unur_distr_cont_upd_mode(dg);
5426 unur_reinit(gen); }
5427 }
5428 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5429 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5430 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5431 unur_free(gen);
5432 unur_distr_free(distr_localcopy);
5433 } while (0);
5434 }
5435
5436 if(TRUE) {
5437 unur_reset_errno();
5438 do {
5439 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5440 {UNUR_DISTR *dg =NULL;
5441 par = unur_srou_new(distr_localcopy);
5442 fpm[0] = 2.;
5443 fpm[1] = 4.;
5444 gen = unur_init(par);
5445 if (gen) {
5446 dg = unur_get_distr(gen);
5447 unur_distr_cont_set_pdfparams(dg,fpm,2);
5448 unur_distr_cont_upd_pdfarea(dg);
5449 unur_distr_cont_upd_mode(dg);
5450 unur_reinit(gen); }
5451 }
5452 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5453 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5454 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5455 unur_free(gen);
5456 unur_distr_free(distr_localcopy);
5457 } while (0);
5458 }
5459
5460 if(TRUE) {
5461 unur_reset_errno();
5462 do {
5463 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5464 par = unur_srou_new(distr_localcopy);
5465 unur_srou_set_r(par,1.001);
5466 gen = unur_init(par);
5467 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5468 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5469 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5470 unur_free(gen);
5471 unur_distr_free(distr_localcopy);
5472 } while (0);
5473 }
5474
5475 if(TRUE) {
5476 unur_reset_errno();
5477 do {
5478 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5479 par = unur_srou_new(distr_localcopy);
5480 unur_srou_set_r(par,2.);
5481 gen = unur_init(par);
5482 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5483 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5484 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5485 unur_free(gen);
5486 unur_distr_free(distr_localcopy);
5487 } while (0);
5488 }
5489
5490 if(TRUE) {
5491 unur_reset_errno();
5492 do {
5493 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5494 par = unur_srou_new(distr_localcopy);
5495 unur_srou_set_r(par,10.);
5496 gen = unur_init(par);
5497 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5498 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5499 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5500 unur_free(gen);
5501 unur_distr_free(distr_localcopy);
5502 } while (0);
5503 }
5504
5505 if(TRUE) {
5506 unur_reset_errno();
5507 do {
5508 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5509 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5510 par = unur_srou_new(distr_localcopy);
5511 unur_srou_set_r(par,2.);
5512 unur_srou_set_cdfatmode(par,cdfatmode); }
5513 gen = unur_init(par);
5514 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5515 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5516 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5517 unur_free(gen);
5518 unur_distr_free(distr_localcopy);
5519 } while (0);
5520 }
5521
5522 if(TRUE) {
5523 unur_reset_errno();
5524 do {
5525 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5526 {UNUR_DISTR *dg =NULL;
5527 par = unur_srou_new(distr_localcopy);
5528 unur_srou_set_r(par,2.);
5529 gen = unur_init(par);
5530 if (gen) {
5531 dg = unur_get_distr(gen);
5532 unur_distr_cont_set_domain(dg,0.9,0.95);
5533 unur_distr_cont_upd_pdfarea(dg);
5534 unur_distr_cont_upd_mode(dg);
5535 unur_reinit(gen); }
5536 }
5537 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5538 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5539 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5540 unur_free(gen);
5541 unur_distr_free(distr_localcopy);
5542 } while (0);
5543 }
5544
5545 if(TRUE) {
5546 unur_reset_errno();
5547 do {
5548 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
5549 {UNUR_DISTR *dg =NULL;
5550 par = unur_srou_new(distr_localcopy);
5551 unur_srou_set_r(par,2.);
5552 fpm[0] = 2.;
5553 fpm[1] = 4.;
5554 gen = unur_init(par);
5555 if (gen) {
5556 dg = unur_get_distr(gen);
5557 unur_distr_cont_set_pdfparams(dg,fpm,2);
5558 unur_distr_cont_upd_pdfarea(dg);
5559 unur_distr_cont_upd_mode(dg);
5560 unur_reinit(gen); }
5561 }
5562 rcode = run_validate_chi2(TESTLOG,0,gen,distr[26],'+');
5563 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5564 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5565 unur_free(gen);
5566 unur_distr_free(distr_localcopy);
5567 } while (0);
5568 }
5569
5570 /* distribution [17] */
5571
5572 if(TRUE) {
5573 unur_reset_errno();
5574 do {
5575 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5576 par = unur_srou_new(distr_localcopy);
5577 gen = unur_init(par);
5578 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5579 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5580 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5581 unur_free(gen);
5582 unur_distr_free(distr_localcopy);
5583 } while (0);
5584 }
5585
5586 if(TRUE) {
5587 unur_reset_errno();
5588 do {
5589 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5590 par = unur_srou_new(distr_localcopy);
5591 unur_srou_set_usemirror(par,1);
5592 gen = unur_init(par);
5593 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5594 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5595 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5596 unur_free(gen);
5597 unur_distr_free(distr_localcopy);
5598 } while (0);
5599 }
5600
5601 if(TRUE) {
5602 unur_reset_errno();
5603 do {
5604 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5605 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5606 par = unur_srou_new(distr_localcopy);
5607 unur_srou_set_cdfatmode(par,cdfatmode);
5608 unur_srou_set_usesqueeze(par,1); }
5609 gen = unur_init(par);
5610 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5611 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5612 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5613 unur_free(gen);
5614 unur_distr_free(distr_localcopy);
5615 } while (0);
5616 }
5617
5618 if(TRUE) {
5619 unur_reset_errno();
5620 do {
5621 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5622 {UNUR_DISTR *dg =NULL;
5623 par = unur_srou_new(distr_localcopy);
5624 gen = unur_init(par);
5625 if (gen) {
5626 dg = unur_get_distr(gen);
5627 unur_distr_cont_set_domain(dg,0.9,0.92);
5628 unur_distr_cont_upd_pdfarea(dg);
5629 unur_distr_cont_upd_mode(dg);
5630 unur_reinit(gen); }
5631 }
5632 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5633 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5634 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5635 unur_free(gen);
5636 unur_distr_free(distr_localcopy);
5637 } while (0);
5638 }
5639
5640 if(TRUE) {
5641 unur_reset_errno();
5642 do {
5643 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5644 {UNUR_DISTR *dg =NULL;
5645 par = unur_srou_new(distr_localcopy);
5646 fpm[0] = 2.;
5647 fpm[1] = 4.;
5648 gen = unur_init(par);
5649 if (gen) {
5650 dg = unur_get_distr(gen);
5651 unur_distr_cont_set_pdfparams(dg,fpm,2);
5652 unur_distr_cont_upd_pdfarea(dg);
5653 unur_distr_cont_upd_mode(dg);
5654 unur_reinit(gen); }
5655 }
5656 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5657 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5658 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5659 unur_free(gen);
5660 unur_distr_free(distr_localcopy);
5661 } while (0);
5662 }
5663
5664 if(TRUE) {
5665 unur_reset_errno();
5666 do {
5667 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5668 par = unur_srou_new(distr_localcopy);
5669 unur_srou_set_r(par,1.001);
5670 gen = unur_init(par);
5671 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5672 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5673 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5674 unur_free(gen);
5675 unur_distr_free(distr_localcopy);
5676 } while (0);
5677 }
5678
5679 if(TRUE) {
5680 unur_reset_errno();
5681 do {
5682 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5683 par = unur_srou_new(distr_localcopy);
5684 unur_srou_set_r(par,2.);
5685 gen = unur_init(par);
5686 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5687 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5688 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5689 unur_free(gen);
5690 unur_distr_free(distr_localcopy);
5691 } while (0);
5692 }
5693
5694 if(TRUE) {
5695 unur_reset_errno();
5696 do {
5697 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5698 par = unur_srou_new(distr_localcopy);
5699 unur_srou_set_r(par,10.);
5700 gen = unur_init(par);
5701 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5702 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5703 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5704 unur_free(gen);
5705 unur_distr_free(distr_localcopy);
5706 } while (0);
5707 }
5708
5709 if(TRUE) {
5710 unur_reset_errno();
5711 do {
5712 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5713 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5714 par = unur_srou_new(distr_localcopy);
5715 unur_srou_set_r(par,2.);
5716 unur_srou_set_cdfatmode(par,cdfatmode); }
5717 gen = unur_init(par);
5718 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5719 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5720 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5721 unur_free(gen);
5722 unur_distr_free(distr_localcopy);
5723 } while (0);
5724 }
5725
5726 if(TRUE) {
5727 unur_reset_errno();
5728 do {
5729 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5730 {UNUR_DISTR *dg =NULL;
5731 par = unur_srou_new(distr_localcopy);
5732 unur_srou_set_r(par,2.);
5733 gen = unur_init(par);
5734 if (gen) {
5735 dg = unur_get_distr(gen);
5736 unur_distr_cont_set_domain(dg,0.9,0.95);
5737 unur_distr_cont_upd_pdfarea(dg);
5738 unur_distr_cont_upd_mode(dg);
5739 unur_reinit(gen); }
5740 }
5741 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5742 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5743 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5744 unur_free(gen);
5745 unur_distr_free(distr_localcopy);
5746 } while (0);
5747 }
5748
5749 if(TRUE) {
5750 unur_reset_errno();
5751 do {
5752 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
5753 {UNUR_DISTR *dg =NULL;
5754 par = unur_srou_new(distr_localcopy);
5755 unur_srou_set_r(par,2.);
5756 fpm[0] = 2.;
5757 fpm[1] = 4.;
5758 gen = unur_init(par);
5759 if (gen) {
5760 dg = unur_get_distr(gen);
5761 unur_distr_cont_set_pdfparams(dg,fpm,2);
5762 unur_distr_cont_upd_pdfarea(dg);
5763 unur_distr_cont_upd_mode(dg);
5764 unur_reinit(gen); }
5765 }
5766 rcode = run_validate_chi2(TESTLOG,0,gen,distr[17],'+');
5767 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5768 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5769 unur_free(gen);
5770 unur_distr_free(distr_localcopy);
5771 } while (0);
5772 }
5773
5774 /* distribution [18] */
5775
5776 if(fullcheck) {
5777 unur_reset_errno();
5778 do {
5779 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5780 par = unur_srou_new(distr_localcopy);
5781 gen = unur_init(par);
5782 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5783 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5784 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5785 unur_free(gen);
5786 unur_distr_free(distr_localcopy);
5787 } while (0);
5788 }
5789
5790 if(fullcheck) {
5791 unur_reset_errno();
5792 do {
5793 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5794 par = unur_srou_new(distr_localcopy);
5795 unur_srou_set_usemirror(par,1);
5796 gen = unur_init(par);
5797 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5798 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5799 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5800 unur_free(gen);
5801 unur_distr_free(distr_localcopy);
5802 } while (0);
5803 }
5804
5805 if(fullcheck) {
5806 unur_reset_errno();
5807 do {
5808 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5809 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5810 par = unur_srou_new(distr_localcopy);
5811 unur_srou_set_cdfatmode(par,cdfatmode);
5812 unur_srou_set_usesqueeze(par,1); }
5813 gen = unur_init(par);
5814 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5815 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5816 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5817 unur_free(gen);
5818 unur_distr_free(distr_localcopy);
5819 } while (0);
5820 }
5821
5822 if(fullcheck) {
5823 printf("."); fflush(stdout);
5824 }
5825
5826 if(fullcheck) {
5827 unur_reset_errno();
5828 do {
5829 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5830 {UNUR_DISTR *dg =NULL;
5831 par = unur_srou_new(distr_localcopy);
5832 fpm[0] = 2.;
5833 fpm[1] = 4.;
5834 gen = unur_init(par);
5835 if (gen) {
5836 dg = unur_get_distr(gen);
5837 unur_distr_cont_set_pdfparams(dg,fpm,2);
5838 unur_distr_cont_upd_pdfarea(dg);
5839 unur_distr_cont_upd_mode(dg);
5840 unur_reinit(gen); }
5841 }
5842 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5843 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5844 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5845 unur_free(gen);
5846 unur_distr_free(distr_localcopy);
5847 } while (0);
5848 }
5849
5850 if(fullcheck) {
5851 unur_reset_errno();
5852 do {
5853 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5854 par = unur_srou_new(distr_localcopy);
5855 unur_srou_set_r(par,1.001);
5856 gen = unur_init(par);
5857 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5858 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5859 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5860 unur_free(gen);
5861 unur_distr_free(distr_localcopy);
5862 } while (0);
5863 }
5864
5865 if(fullcheck) {
5866 unur_reset_errno();
5867 do {
5868 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5869 par = unur_srou_new(distr_localcopy);
5870 unur_srou_set_r(par,2.);
5871 gen = unur_init(par);
5872 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5873 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5874 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5875 unur_free(gen);
5876 unur_distr_free(distr_localcopy);
5877 } while (0);
5878 }
5879
5880 if(fullcheck) {
5881 unur_reset_errno();
5882 do {
5883 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5884 par = unur_srou_new(distr_localcopy);
5885 unur_srou_set_r(par,10.);
5886 gen = unur_init(par);
5887 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5888 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5889 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5890 unur_free(gen);
5891 unur_distr_free(distr_localcopy);
5892 } while (0);
5893 }
5894
5895 if(fullcheck) {
5896 unur_reset_errno();
5897 do {
5898 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5899 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5900 par = unur_srou_new(distr_localcopy);
5901 unur_srou_set_r(par,2.);
5902 unur_srou_set_cdfatmode(par,cdfatmode); }
5903 gen = unur_init(par);
5904 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5905 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5906 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5907 unur_free(gen);
5908 unur_distr_free(distr_localcopy);
5909 } while (0);
5910 }
5911
5912 if(fullcheck) {
5913 printf("."); fflush(stdout);
5914 }
5915
5916 if(fullcheck) {
5917 unur_reset_errno();
5918 do {
5919 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
5920 {UNUR_DISTR *dg =NULL;
5921 par = unur_srou_new(distr_localcopy);
5922 unur_srou_set_r(par,2.);
5923 fpm[0] = 2.;
5924 fpm[1] = 4.;
5925 gen = unur_init(par);
5926 if (gen) {
5927 dg = unur_get_distr(gen);
5928 unur_distr_cont_set_pdfparams(dg,fpm,2);
5929 unur_distr_cont_upd_pdfarea(dg);
5930 unur_distr_cont_upd_mode(dg);
5931 unur_reinit(gen); }
5932 }
5933 rcode = run_validate_chi2(TESTLOG,0,gen,distr[18],'+');
5934 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5935 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5936 unur_free(gen);
5937 unur_distr_free(distr_localcopy);
5938 } while (0);
5939 }
5940
5941 /* distribution [19] */
5942
5943 if(TRUE) {
5944 unur_reset_errno();
5945 do {
5946 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
5947 par = unur_srou_new(distr_localcopy);
5948 gen = unur_init(par);
5949 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
5950 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5951 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5952 unur_free(gen);
5953 unur_distr_free(distr_localcopy);
5954 } while (0);
5955 }
5956
5957 if(TRUE) {
5958 unur_reset_errno();
5959 do {
5960 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
5961 par = unur_srou_new(distr_localcopy);
5962 unur_srou_set_usemirror(par,1);
5963 gen = unur_init(par);
5964 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
5965 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5966 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5967 unur_free(gen);
5968 unur_distr_free(distr_localcopy);
5969 } while (0);
5970 }
5971
5972 if(TRUE) {
5973 unur_reset_errno();
5974 do {
5975 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
5976 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
5977 par = unur_srou_new(distr_localcopy);
5978 unur_srou_set_cdfatmode(par,cdfatmode);
5979 unur_srou_set_usesqueeze(par,1); }
5980 gen = unur_init(par);
5981 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
5982 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
5983 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
5984 unur_free(gen);
5985 unur_distr_free(distr_localcopy);
5986 } while (0);
5987 }
5988
5989 if(TRUE) {
5990 printf("."); fflush(stdout);
5991 }
5992
5993 if(TRUE) {
5994 unur_reset_errno();
5995 do {
5996 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
5997 {UNUR_DISTR *dg =NULL;
5998 par = unur_srou_new(distr_localcopy);
5999 fpm[0] = 2.;
6000 fpm[1] = 4.;
6001 gen = unur_init(par);
6002 if (gen) {
6003 dg = unur_get_distr(gen);
6004 unur_distr_cont_set_pdfparams(dg,fpm,2);
6005 unur_distr_cont_upd_pdfarea(dg);
6006 unur_distr_cont_upd_mode(dg);
6007 unur_reinit(gen); }
6008 }
6009 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
6010 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6011 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6012 unur_free(gen);
6013 unur_distr_free(distr_localcopy);
6014 } while (0);
6015 }
6016
6017 if(TRUE) {
6018 unur_reset_errno();
6019 do {
6020 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
6021 par = unur_srou_new(distr_localcopy);
6022 unur_srou_set_r(par,1.001);
6023 gen = unur_init(par);
6024 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
6025 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6026 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6027 unur_free(gen);
6028 unur_distr_free(distr_localcopy);
6029 } while (0);
6030 }
6031
6032 if(TRUE) {
6033 unur_reset_errno();
6034 do {
6035 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
6036 par = unur_srou_new(distr_localcopy);
6037 unur_srou_set_r(par,2.);
6038 gen = unur_init(par);
6039 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
6040 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6041 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6042 unur_free(gen);
6043 unur_distr_free(distr_localcopy);
6044 } while (0);
6045 }
6046
6047 if(TRUE) {
6048 unur_reset_errno();
6049 do {
6050 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
6051 par = unur_srou_new(distr_localcopy);
6052 unur_srou_set_r(par,10.);
6053 gen = unur_init(par);
6054 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
6055 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6056 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6057 unur_free(gen);
6058 unur_distr_free(distr_localcopy);
6059 } while (0);
6060 }
6061
6062 if(TRUE) {
6063 unur_reset_errno();
6064 do {
6065 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
6066 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6067 par = unur_srou_new(distr_localcopy);
6068 unur_srou_set_r(par,2.);
6069 unur_srou_set_cdfatmode(par,cdfatmode); }
6070 gen = unur_init(par);
6071 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
6072 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6073 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6074 unur_free(gen);
6075 unur_distr_free(distr_localcopy);
6076 } while (0);
6077 }
6078
6079 if(TRUE) {
6080 printf("."); fflush(stdout);
6081 }
6082
6083 if(TRUE) {
6084 unur_reset_errno();
6085 do {
6086 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
6087 {UNUR_DISTR *dg =NULL;
6088 par = unur_srou_new(distr_localcopy);
6089 unur_srou_set_r(par,2.);
6090 fpm[0] = 2.;
6091 fpm[1] = 4.;
6092 gen = unur_init(par);
6093 if (gen) {
6094 dg = unur_get_distr(gen);
6095 unur_distr_cont_set_pdfparams(dg,fpm,2);
6096 unur_distr_cont_upd_pdfarea(dg);
6097 unur_distr_cont_upd_mode(dg);
6098 unur_reinit(gen); }
6099 }
6100 rcode = run_validate_chi2(TESTLOG,0,gen,distr[19],'+');
6101 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6102 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6103 unur_free(gen);
6104 unur_distr_free(distr_localcopy);
6105 } while (0);
6106 }
6107
6108 /* distribution [20] */
6109
6110 if(TRUE) {
6111 unur_reset_errno();
6112 do {
6113 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6114 par = unur_srou_new(distr_localcopy);
6115 gen = unur_init(par);
6116 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6117 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6118 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6119 unur_free(gen);
6120 unur_distr_free(distr_localcopy);
6121 } while (0);
6122 }
6123
6124 if(TRUE) {
6125 unur_reset_errno();
6126 do {
6127 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6128 par = unur_srou_new(distr_localcopy);
6129 unur_srou_set_usemirror(par,1);
6130 gen = unur_init(par);
6131 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6132 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6133 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6134 unur_free(gen);
6135 unur_distr_free(distr_localcopy);
6136 } while (0);
6137 }
6138
6139 if(TRUE) {
6140 unur_reset_errno();
6141 do {
6142 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6143 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6144 par = unur_srou_new(distr_localcopy);
6145 unur_srou_set_cdfatmode(par,cdfatmode);
6146 unur_srou_set_usesqueeze(par,1); }
6147 gen = unur_init(par);
6148 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6149 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6150 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6151 unur_free(gen);
6152 unur_distr_free(distr_localcopy);
6153 } while (0);
6154 }
6155
6156 if(TRUE) {
6157 unur_reset_errno();
6158 do {
6159 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6160 {UNUR_DISTR *dg =NULL;
6161 par = unur_srou_new(distr_localcopy);
6162 gen = unur_init(par);
6163 if (gen) {
6164 dg = unur_get_distr(gen);
6165 unur_distr_cont_set_domain(dg,0.9,0.92);
6166 unur_distr_cont_upd_pdfarea(dg);
6167 unur_distr_cont_upd_mode(dg);
6168 unur_reinit(gen); }
6169 }
6170 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6171 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6172 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6173 unur_free(gen);
6174 unur_distr_free(distr_localcopy);
6175 } while (0);
6176 }
6177
6178 if(TRUE) {
6179 unur_reset_errno();
6180 do {
6181 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6182 {UNUR_DISTR *dg =NULL;
6183 par = unur_srou_new(distr_localcopy);
6184 fpm[0] = 2.;
6185 fpm[1] = 4.;
6186 gen = unur_init(par);
6187 if (gen) {
6188 dg = unur_get_distr(gen);
6189 unur_distr_cont_set_pdfparams(dg,fpm,2);
6190 unur_distr_cont_upd_pdfarea(dg);
6191 unur_distr_cont_upd_mode(dg);
6192 unur_reinit(gen); }
6193 }
6194 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6195 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6196 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6197 unur_free(gen);
6198 unur_distr_free(distr_localcopy);
6199 } while (0);
6200 }
6201
6202 if(TRUE) {
6203 unur_reset_errno();
6204 do {
6205 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6206 par = unur_srou_new(distr_localcopy);
6207 unur_srou_set_r(par,1.001);
6208 gen = unur_init(par);
6209 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6210 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6211 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6212 unur_free(gen);
6213 unur_distr_free(distr_localcopy);
6214 } while (0);
6215 }
6216
6217 if(TRUE) {
6218 unur_reset_errno();
6219 do {
6220 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6221 par = unur_srou_new(distr_localcopy);
6222 unur_srou_set_r(par,2.);
6223 gen = unur_init(par);
6224 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6225 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6226 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6227 unur_free(gen);
6228 unur_distr_free(distr_localcopy);
6229 } while (0);
6230 }
6231
6232 if(TRUE) {
6233 unur_reset_errno();
6234 do {
6235 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6236 par = unur_srou_new(distr_localcopy);
6237 unur_srou_set_r(par,10.);
6238 gen = unur_init(par);
6239 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6240 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6241 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6242 unur_free(gen);
6243 unur_distr_free(distr_localcopy);
6244 } while (0);
6245 }
6246
6247 if(TRUE) {
6248 unur_reset_errno();
6249 do {
6250 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6251 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6252 par = unur_srou_new(distr_localcopy);
6253 unur_srou_set_r(par,2.);
6254 unur_srou_set_cdfatmode(par,cdfatmode); }
6255 gen = unur_init(par);
6256 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6257 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6258 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6259 unur_free(gen);
6260 unur_distr_free(distr_localcopy);
6261 } while (0);
6262 }
6263
6264 if(TRUE) {
6265 unur_reset_errno();
6266 do {
6267 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6268 {UNUR_DISTR *dg =NULL;
6269 par = unur_srou_new(distr_localcopy);
6270 unur_srou_set_r(par,2.);
6271 gen = unur_init(par);
6272 if (gen) {
6273 dg = unur_get_distr(gen);
6274 unur_distr_cont_set_domain(dg,0.9,0.95);
6275 unur_distr_cont_upd_pdfarea(dg);
6276 unur_distr_cont_upd_mode(dg);
6277 unur_reinit(gen); }
6278 }
6279 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6280 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6281 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6282 unur_free(gen);
6283 unur_distr_free(distr_localcopy);
6284 } while (0);
6285 }
6286
6287 if(TRUE) {
6288 unur_reset_errno();
6289 do {
6290 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
6291 {UNUR_DISTR *dg =NULL;
6292 par = unur_srou_new(distr_localcopy);
6293 unur_srou_set_r(par,2.);
6294 fpm[0] = 2.;
6295 fpm[1] = 4.;
6296 gen = unur_init(par);
6297 if (gen) {
6298 dg = unur_get_distr(gen);
6299 unur_distr_cont_set_pdfparams(dg,fpm,2);
6300 unur_distr_cont_upd_pdfarea(dg);
6301 unur_distr_cont_upd_mode(dg);
6302 unur_reinit(gen); }
6303 }
6304 rcode = run_validate_chi2(TESTLOG,0,gen,distr[20],'+');
6305 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6306 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6307 unur_free(gen);
6308 unur_distr_free(distr_localcopy);
6309 } while (0);
6310 }
6311
6312 /* distribution [21] */
6313
6314 if(TRUE) {
6315 unur_reset_errno();
6316 do {
6317 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6318 par = unur_srou_new(distr_localcopy);
6319 gen = unur_init(par);
6320 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6321 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6322 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6323 unur_free(gen);
6324 unur_distr_free(distr_localcopy);
6325 } while (0);
6326 }
6327
6328 if(TRUE) {
6329 unur_reset_errno();
6330 do {
6331 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6332 par = unur_srou_new(distr_localcopy);
6333 unur_srou_set_usemirror(par,1);
6334 gen = unur_init(par);
6335 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6336 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6337 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6338 unur_free(gen);
6339 unur_distr_free(distr_localcopy);
6340 } while (0);
6341 }
6342
6343 if(TRUE) {
6344 unur_reset_errno();
6345 do {
6346 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6347 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6348 par = unur_srou_new(distr_localcopy);
6349 unur_srou_set_cdfatmode(par,cdfatmode);
6350 unur_srou_set_usesqueeze(par,1); }
6351 gen = unur_init(par);
6352 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6353 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6354 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6355 unur_free(gen);
6356 unur_distr_free(distr_localcopy);
6357 } while (0);
6358 }
6359
6360 if(TRUE) {
6361 unur_reset_errno();
6362 do {
6363 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6364 {UNUR_DISTR *dg =NULL;
6365 par = unur_srou_new(distr_localcopy);
6366 gen = unur_init(par);
6367 if (gen) {
6368 dg = unur_get_distr(gen);
6369 unur_distr_cont_set_domain(dg,0.9,0.92);
6370 unur_distr_cont_upd_pdfarea(dg);
6371 unur_distr_cont_upd_mode(dg);
6372 unur_reinit(gen); }
6373 }
6374 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'-');
6375 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6376 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6377 unur_free(gen);
6378 unur_distr_free(distr_localcopy);
6379 } while (0);
6380 }
6381
6382 if(TRUE) {
6383 unur_reset_errno();
6384 do {
6385 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6386 {UNUR_DISTR *dg =NULL;
6387 par = unur_srou_new(distr_localcopy);
6388 fpm[0] = 2.;
6389 fpm[1] = 4.;
6390 gen = unur_init(par);
6391 if (gen) {
6392 dg = unur_get_distr(gen);
6393 unur_distr_cont_set_pdfparams(dg,fpm,2);
6394 unur_distr_cont_upd_pdfarea(dg);
6395 unur_distr_cont_upd_mode(dg);
6396 unur_reinit(gen); }
6397 }
6398 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6399 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6400 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6401 unur_free(gen);
6402 unur_distr_free(distr_localcopy);
6403 } while (0);
6404 }
6405
6406 if(TRUE) {
6407 unur_reset_errno();
6408 do {
6409 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6410 par = unur_srou_new(distr_localcopy);
6411 unur_srou_set_r(par,1.001);
6412 gen = unur_init(par);
6413 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6414 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6415 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6416 unur_free(gen);
6417 unur_distr_free(distr_localcopy);
6418 } while (0);
6419 }
6420
6421 if(TRUE) {
6422 unur_reset_errno();
6423 do {
6424 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6425 par = unur_srou_new(distr_localcopy);
6426 unur_srou_set_r(par,2.);
6427 gen = unur_init(par);
6428 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6429 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6430 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6431 unur_free(gen);
6432 unur_distr_free(distr_localcopy);
6433 } while (0);
6434 }
6435
6436 if(TRUE) {
6437 unur_reset_errno();
6438 do {
6439 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6440 par = unur_srou_new(distr_localcopy);
6441 unur_srou_set_r(par,10.);
6442 gen = unur_init(par);
6443 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6444 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6445 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6446 unur_free(gen);
6447 unur_distr_free(distr_localcopy);
6448 } while (0);
6449 }
6450
6451 if(TRUE) {
6452 unur_reset_errno();
6453 do {
6454 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6455 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6456 par = unur_srou_new(distr_localcopy);
6457 unur_srou_set_r(par,2.);
6458 unur_srou_set_cdfatmode(par,cdfatmode); }
6459 gen = unur_init(par);
6460 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6461 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6462 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6463 unur_free(gen);
6464 unur_distr_free(distr_localcopy);
6465 } while (0);
6466 }
6467
6468 if(TRUE) {
6469 unur_reset_errno();
6470 do {
6471 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6472 {UNUR_DISTR *dg =NULL;
6473 par = unur_srou_new(distr_localcopy);
6474 unur_srou_set_r(par,2.);
6475 gen = unur_init(par);
6476 if (gen) {
6477 dg = unur_get_distr(gen);
6478 unur_distr_cont_set_domain(dg,0.9,0.95);
6479 unur_distr_cont_upd_pdfarea(dg);
6480 unur_distr_cont_upd_mode(dg);
6481 unur_reinit(gen); }
6482 }
6483 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'-');
6484 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6485 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6486 unur_free(gen);
6487 unur_distr_free(distr_localcopy);
6488 } while (0);
6489 }
6490
6491 if(TRUE) {
6492 unur_reset_errno();
6493 do {
6494 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
6495 {UNUR_DISTR *dg =NULL;
6496 par = unur_srou_new(distr_localcopy);
6497 unur_srou_set_r(par,2.);
6498 fpm[0] = 2.;
6499 fpm[1] = 4.;
6500 gen = unur_init(par);
6501 if (gen) {
6502 dg = unur_get_distr(gen);
6503 unur_distr_cont_set_pdfparams(dg,fpm,2);
6504 unur_distr_cont_upd_pdfarea(dg);
6505 unur_distr_cont_upd_mode(dg);
6506 unur_reinit(gen); }
6507 }
6508 rcode = run_validate_chi2(TESTLOG,0,gen,distr[21],'+');
6509 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6510 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6511 unur_free(gen);
6512 unur_distr_free(distr_localcopy);
6513 } while (0);
6514 }
6515
6516 /* distribution [22] */
6517
6518 if(TRUE) {
6519 unur_reset_errno();
6520 do {
6521 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6522 par = unur_srou_new(distr_localcopy);
6523 gen = unur_init(par);
6524 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6525 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6526 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6527 unur_free(gen);
6528 unur_distr_free(distr_localcopy);
6529 } while (0);
6530 }
6531
6532 if(TRUE) {
6533 unur_reset_errno();
6534 do {
6535 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6536 par = unur_srou_new(distr_localcopy);
6537 unur_srou_set_usemirror(par,1);
6538 gen = unur_init(par);
6539 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6540 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6541 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6542 unur_free(gen);
6543 unur_distr_free(distr_localcopy);
6544 } while (0);
6545 }
6546
6547 if(TRUE) {
6548 unur_reset_errno();
6549 do {
6550 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6551 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6552 par = unur_srou_new(distr_localcopy);
6553 unur_srou_set_cdfatmode(par,cdfatmode);
6554 unur_srou_set_usesqueeze(par,1); }
6555 gen = unur_init(par);
6556 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'-');
6557 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6558 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6559 unur_free(gen);
6560 unur_distr_free(distr_localcopy);
6561 } while (0);
6562 }
6563
6564 if(TRUE) {
6565 unur_reset_errno();
6566 do {
6567 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6568 {UNUR_DISTR *dg =NULL;
6569 par = unur_srou_new(distr_localcopy);
6570 gen = unur_init(par);
6571 if (gen) {
6572 dg = unur_get_distr(gen);
6573 unur_distr_cont_set_domain(dg,0.9,0.92);
6574 unur_distr_cont_upd_pdfarea(dg);
6575 unur_distr_cont_upd_mode(dg);
6576 unur_reinit(gen); }
6577 }
6578 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6579 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6580 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6581 unur_free(gen);
6582 unur_distr_free(distr_localcopy);
6583 } while (0);
6584 }
6585
6586 if(TRUE) {
6587 unur_reset_errno();
6588 do {
6589 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6590 {UNUR_DISTR *dg =NULL;
6591 par = unur_srou_new(distr_localcopy);
6592 fpm[0] = 2.;
6593 fpm[1] = 4.;
6594 gen = unur_init(par);
6595 if (gen) {
6596 dg = unur_get_distr(gen);
6597 unur_distr_cont_set_pdfparams(dg,fpm,2);
6598 unur_distr_cont_upd_pdfarea(dg);
6599 unur_distr_cont_upd_mode(dg);
6600 unur_reinit(gen); }
6601 }
6602 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6603 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6604 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6605 unur_free(gen);
6606 unur_distr_free(distr_localcopy);
6607 } while (0);
6608 }
6609
6610 if(TRUE) {
6611 unur_reset_errno();
6612 do {
6613 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6614 par = unur_srou_new(distr_localcopy);
6615 unur_srou_set_r(par,1.001);
6616 gen = unur_init(par);
6617 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6618 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6619 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6620 unur_free(gen);
6621 unur_distr_free(distr_localcopy);
6622 } while (0);
6623 }
6624
6625 if(TRUE) {
6626 unur_reset_errno();
6627 do {
6628 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6629 par = unur_srou_new(distr_localcopy);
6630 unur_srou_set_r(par,2.);
6631 gen = unur_init(par);
6632 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6633 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6634 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6635 unur_free(gen);
6636 unur_distr_free(distr_localcopy);
6637 } while (0);
6638 }
6639
6640 if(TRUE) {
6641 unur_reset_errno();
6642 do {
6643 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6644 par = unur_srou_new(distr_localcopy);
6645 unur_srou_set_r(par,10.);
6646 gen = unur_init(par);
6647 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6648 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6649 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6650 unur_free(gen);
6651 unur_distr_free(distr_localcopy);
6652 } while (0);
6653 }
6654
6655 if(TRUE) {
6656 unur_reset_errno();
6657 do {
6658 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6659 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6660 par = unur_srou_new(distr_localcopy);
6661 unur_srou_set_r(par,2.);
6662 unur_srou_set_cdfatmode(par,cdfatmode); }
6663 gen = unur_init(par);
6664 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'-');
6665 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6666 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6667 unur_free(gen);
6668 unur_distr_free(distr_localcopy);
6669 } while (0);
6670 }
6671
6672 if(TRUE) {
6673 unur_reset_errno();
6674 do {
6675 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6676 {UNUR_DISTR *dg =NULL;
6677 par = unur_srou_new(distr_localcopy);
6678 unur_srou_set_r(par,2.);
6679 gen = unur_init(par);
6680 if (gen) {
6681 dg = unur_get_distr(gen);
6682 unur_distr_cont_set_domain(dg,0.9,0.95);
6683 unur_distr_cont_upd_pdfarea(dg);
6684 unur_distr_cont_upd_mode(dg);
6685 unur_reinit(gen); }
6686 }
6687 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6688 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6689 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6690 unur_free(gen);
6691 unur_distr_free(distr_localcopy);
6692 } while (0);
6693 }
6694
6695 if(TRUE) {
6696 unur_reset_errno();
6697 do {
6698 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
6699 {UNUR_DISTR *dg =NULL;
6700 par = unur_srou_new(distr_localcopy);
6701 unur_srou_set_r(par,2.);
6702 fpm[0] = 2.;
6703 fpm[1] = 4.;
6704 gen = unur_init(par);
6705 if (gen) {
6706 dg = unur_get_distr(gen);
6707 unur_distr_cont_set_pdfparams(dg,fpm,2);
6708 unur_distr_cont_upd_pdfarea(dg);
6709 unur_distr_cont_upd_mode(dg);
6710 unur_reinit(gen); }
6711 }
6712 rcode = run_validate_chi2(TESTLOG,0,gen,distr[22],'+');
6713 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6714 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6715 unur_free(gen);
6716 unur_distr_free(distr_localcopy);
6717 } while (0);
6718 }
6719
6720 /* distribution [27] */
6721
6722 if(TRUE) {
6723 unur_reset_errno();
6724 do {
6725 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6726 par = unur_srou_new(distr_localcopy);
6727 gen = unur_init(par);
6728 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6729 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6730 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6731 unur_free(gen);
6732 unur_distr_free(distr_localcopy);
6733 } while (0);
6734 }
6735
6736 if(TRUE) {
6737 unur_reset_errno();
6738 do {
6739 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6740 par = unur_srou_new(distr_localcopy);
6741 unur_srou_set_usemirror(par,1);
6742 gen = unur_init(par);
6743 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6744 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6745 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6746 unur_free(gen);
6747 unur_distr_free(distr_localcopy);
6748 } while (0);
6749 }
6750
6751 if(TRUE) {
6752 unur_reset_errno();
6753 do {
6754 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6755 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6756 par = unur_srou_new(distr_localcopy);
6757 unur_srou_set_cdfatmode(par,cdfatmode);
6758 unur_srou_set_usesqueeze(par,1); }
6759 gen = unur_init(par);
6760 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6761 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6762 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6763 unur_free(gen);
6764 unur_distr_free(distr_localcopy);
6765 } while (0);
6766 }
6767
6768 if(TRUE) {
6769 printf("."); fflush(stdout);
6770 }
6771
6772 if(TRUE) {
6773 printf("."); fflush(stdout);
6774 }
6775
6776 if(TRUE) {
6777 unur_reset_errno();
6778 do {
6779 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6780 par = unur_srou_new(distr_localcopy);
6781 unur_srou_set_r(par,1.001);
6782 gen = unur_init(par);
6783 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6784 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6785 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6786 unur_free(gen);
6787 unur_distr_free(distr_localcopy);
6788 } while (0);
6789 }
6790
6791 if(TRUE) {
6792 unur_reset_errno();
6793 do {
6794 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6795 par = unur_srou_new(distr_localcopy);
6796 unur_srou_set_r(par,2.);
6797 gen = unur_init(par);
6798 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6799 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6800 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6801 unur_free(gen);
6802 unur_distr_free(distr_localcopy);
6803 } while (0);
6804 }
6805
6806 if(TRUE) {
6807 unur_reset_errno();
6808 do {
6809 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6810 par = unur_srou_new(distr_localcopy);
6811 unur_srou_set_r(par,10.);
6812 gen = unur_init(par);
6813 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6814 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6815 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6816 unur_free(gen);
6817 unur_distr_free(distr_localcopy);
6818 } while (0);
6819 }
6820
6821 if(TRUE) {
6822 unur_reset_errno();
6823 do {
6824 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
6825 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6826 par = unur_srou_new(distr_localcopy);
6827 unur_srou_set_r(par,2.);
6828 unur_srou_set_cdfatmode(par,cdfatmode); }
6829 gen = unur_init(par);
6830 rcode = run_validate_chi2(TESTLOG,0,gen,distr[27],'+');
6831 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6832 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6833 unur_free(gen);
6834 unur_distr_free(distr_localcopy);
6835 } while (0);
6836 }
6837
6838 if(TRUE) {
6839 printf("."); fflush(stdout);
6840 }
6841
6842 if(TRUE) {
6843 printf("."); fflush(stdout);
6844 }
6845
6846 /* distribution [28] */
6847
6848 if(TRUE) {
6849 unur_reset_errno();
6850 do {
6851 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6852 par = unur_srou_new(distr_localcopy);
6853 gen = unur_init(par);
6854 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6855 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6856 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6857 unur_free(gen);
6858 unur_distr_free(distr_localcopy);
6859 } while (0);
6860 }
6861
6862 if(TRUE) {
6863 unur_reset_errno();
6864 do {
6865 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6866 par = unur_srou_new(distr_localcopy);
6867 unur_srou_set_usemirror(par,1);
6868 gen = unur_init(par);
6869 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6870 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6871 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6872 unur_free(gen);
6873 unur_distr_free(distr_localcopy);
6874 } while (0);
6875 }
6876
6877 if(TRUE) {
6878 unur_reset_errno();
6879 do {
6880 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6881 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6882 par = unur_srou_new(distr_localcopy);
6883 unur_srou_set_cdfatmode(par,cdfatmode);
6884 unur_srou_set_usesqueeze(par,1); }
6885 gen = unur_init(par);
6886 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6887 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6888 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6889 unur_free(gen);
6890 unur_distr_free(distr_localcopy);
6891 } while (0);
6892 }
6893
6894 if(TRUE) {
6895 printf("."); fflush(stdout);
6896 }
6897
6898 if(TRUE) {
6899 printf("."); fflush(stdout);
6900 }
6901
6902 if(TRUE) {
6903 unur_reset_errno();
6904 do {
6905 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6906 par = unur_srou_new(distr_localcopy);
6907 unur_srou_set_r(par,1.001);
6908 gen = unur_init(par);
6909 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6910 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6911 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6912 unur_free(gen);
6913 unur_distr_free(distr_localcopy);
6914 } while (0);
6915 }
6916
6917 if(TRUE) {
6918 unur_reset_errno();
6919 do {
6920 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6921 par = unur_srou_new(distr_localcopy);
6922 unur_srou_set_r(par,2.);
6923 gen = unur_init(par);
6924 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6925 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6926 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6927 unur_free(gen);
6928 unur_distr_free(distr_localcopy);
6929 } while (0);
6930 }
6931
6932 if(TRUE) {
6933 unur_reset_errno();
6934 do {
6935 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6936 par = unur_srou_new(distr_localcopy);
6937 unur_srou_set_r(par,10.);
6938 gen = unur_init(par);
6939 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6940 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6941 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6942 unur_free(gen);
6943 unur_distr_free(distr_localcopy);
6944 } while (0);
6945 }
6946
6947 if(TRUE) {
6948 unur_reset_errno();
6949 do {
6950 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
6951 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
6952 par = unur_srou_new(distr_localcopy);
6953 unur_srou_set_r(par,2.);
6954 unur_srou_set_cdfatmode(par,cdfatmode); }
6955 gen = unur_init(par);
6956 rcode = run_validate_chi2(TESTLOG,0,gen,distr[28],'+');
6957 n_tests_failed += (rcode==UNUR_SUCCESS)?0:1;
6958 n_tests_failed += (rcode==UNUR_FAILURE)?1000:0;
6959 unur_free(gen);
6960 unur_distr_free(distr_localcopy);
6961 } while (0);
6962 }
6963
6964 if(TRUE) {
6965 printf("."); fflush(stdout);
6966 }
6967
6968 if(TRUE) {
6969 printf("."); fflush(stdout);
6970 }
6971
6972 /* timing */
6973 stopwatch_print(TESTLOG,"\n<*>time = %.0f ms\n", stopwatch_lap(&watch));
6974
6975 printf("\n(verify hat) "); fflush(stdout);
6976
6977 /* verify hat tests: 341 */
6978
6979 unur_set_default_debug(~UNUR_DEBUG_SAMPLE);
6980 fprintf( TESTLOG,"\nVerify Hat Test (squeeze <= PDF <= hat):\n");
6981
6982 /* distribution [0] */
6983
6984 if(fullcheck) {
6985 unur_reset_errno();
6986 do {
6987 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
6988 par = unur_srou_new(distr_localcopy);
6989 unur_srou_set_pedantic(par,0);
6990 gen = unur_init(par);
6991 if (gen) unur_srou_chg_verify(gen,1);
6992 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
6993 unur_free(gen);
6994
6995 unur_distr_free(distr_localcopy);
6996 } while (0);
6997 }
6998
6999 if(fullcheck) {
7000 unur_reset_errno();
7001 do {
7002 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7003 par = unur_srou_new(distr_localcopy);
7004 unur_srou_set_pedantic(par,0);
7005 unur_srou_set_usemirror(par,1);
7006 gen = unur_init(par);
7007 if (gen) unur_srou_chg_verify(gen,1);
7008 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7009 unur_free(gen);
7010
7011 unur_distr_free(distr_localcopy);
7012 } while (0);
7013 }
7014
7015 if(fullcheck) {
7016 unur_reset_errno();
7017 do {
7018 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7019 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7020 par = unur_srou_new(distr_localcopy);
7021 unur_srou_set_pedantic(par,0);
7022 unur_srou_set_cdfatmode(par,cdfatmode);
7023 unur_srou_set_usesqueeze(par,1); }
7024 gen = unur_init(par);
7025 if (gen) unur_srou_chg_verify(gen,1);
7026 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7027 unur_free(gen);
7028
7029 unur_distr_free(distr_localcopy);
7030 } while (0);
7031 }
7032
7033 if(fullcheck) {
7034 unur_reset_errno();
7035 do {
7036 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7037 {UNUR_DISTR *dg =NULL;
7038 par = unur_srou_new(distr_localcopy);
7039 unur_srou_set_pedantic(par,0);
7040 gen = unur_init(par);
7041 if (gen) {
7042 dg = unur_get_distr(gen);
7043 unur_distr_cont_set_domain(dg,0.9,0.92);
7044 unur_distr_cont_upd_pdfarea(dg);
7045 unur_distr_cont_upd_mode(dg);
7046 unur_reinit(gen); }
7047 }
7048 if (gen) unur_srou_chg_verify(gen,1);
7049 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7050 unur_free(gen);
7051
7052 unur_distr_free(distr_localcopy);
7053 } while (0);
7054 }
7055
7056 if(fullcheck) {
7057 unur_reset_errno();
7058 do {
7059 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7060 {UNUR_DISTR *dg =NULL;
7061 par = unur_srou_new(distr_localcopy);
7062 unur_srou_set_pedantic(par,0);
7063 fpm[0] = 2.;
7064 fpm[1] = 4.;
7065 gen = unur_init(par);
7066 if (gen) {
7067 dg = unur_get_distr(gen);
7068 unur_distr_cont_set_pdfparams(dg,fpm,2);
7069 unur_distr_cont_upd_pdfarea(dg);
7070 unur_distr_cont_upd_mode(dg);
7071 unur_reinit(gen); }
7072 }
7073 if (gen) unur_srou_chg_verify(gen,1);
7074 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7075 unur_free(gen);
7076
7077 unur_distr_free(distr_localcopy);
7078 } while (0);
7079 }
7080
7081 if(fullcheck) {
7082 unur_reset_errno();
7083 do {
7084 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7085 par = unur_srou_new(distr_localcopy);
7086 unur_srou_set_pedantic(par,0);
7087 unur_srou_set_r(par,1.001);
7088 gen = unur_init(par);
7089 if (gen) unur_srou_chg_verify(gen,1);
7090 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7091 unur_free(gen);
7092
7093 unur_distr_free(distr_localcopy);
7094 } while (0);
7095 }
7096
7097 if(fullcheck) {
7098 unur_reset_errno();
7099 do {
7100 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7101 par = unur_srou_new(distr_localcopy);
7102 unur_srou_set_pedantic(par,0);
7103 unur_srou_set_r(par,2.);
7104 gen = unur_init(par);
7105 if (gen) unur_srou_chg_verify(gen,1);
7106 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7107 unur_free(gen);
7108
7109 unur_distr_free(distr_localcopy);
7110 } while (0);
7111 }
7112
7113 if(fullcheck) {
7114 unur_reset_errno();
7115 do {
7116 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7117 par = unur_srou_new(distr_localcopy);
7118 unur_srou_set_pedantic(par,0);
7119 unur_srou_set_r(par,10.);
7120 gen = unur_init(par);
7121 if (gen) unur_srou_chg_verify(gen,1);
7122 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7123 unur_free(gen);
7124
7125 unur_distr_free(distr_localcopy);
7126 } while (0);
7127 }
7128
7129 if(fullcheck) {
7130 unur_reset_errno();
7131 do {
7132 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7133 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7134 par = unur_srou_new(distr_localcopy);
7135 unur_srou_set_pedantic(par,0);
7136 unur_srou_set_r(par,2.);
7137 unur_srou_set_cdfatmode(par,cdfatmode); }
7138 gen = unur_init(par);
7139 if (gen) unur_srou_chg_verify(gen,1);
7140 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7141 unur_free(gen);
7142
7143 unur_distr_free(distr_localcopy);
7144 } while (0);
7145 }
7146
7147 if(fullcheck) {
7148 unur_reset_errno();
7149 do {
7150 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7151 {UNUR_DISTR *dg =NULL;
7152 par = unur_srou_new(distr_localcopy);
7153 unur_srou_set_pedantic(par,0);
7154 unur_srou_set_r(par,2.);
7155 gen = unur_init(par);
7156 if (gen) {
7157 dg = unur_get_distr(gen);
7158 unur_distr_cont_set_domain(dg,0.9,0.95);
7159 unur_distr_cont_upd_pdfarea(dg);
7160 unur_distr_cont_upd_mode(dg);
7161 unur_reinit(gen); }
7162 }
7163 if (gen) unur_srou_chg_verify(gen,1);
7164 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7165 unur_free(gen);
7166
7167 unur_distr_free(distr_localcopy);
7168 } while (0);
7169 }
7170
7171 if(fullcheck) {
7172 unur_reset_errno();
7173 do {
7174 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[0]);
7175 {UNUR_DISTR *dg =NULL;
7176 par = unur_srou_new(distr_localcopy);
7177 unur_srou_set_pedantic(par,0);
7178 unur_srou_set_r(par,2.);
7179 fpm[0] = 2.;
7180 fpm[1] = 4.;
7181 gen = unur_init(par);
7182 if (gen) {
7183 dg = unur_get_distr(gen);
7184 unur_distr_cont_set_pdfparams(dg,fpm,2);
7185 unur_distr_cont_upd_pdfarea(dg);
7186 unur_distr_cont_upd_mode(dg);
7187 unur_reinit(gen); }
7188 }
7189 if (gen) unur_srou_chg_verify(gen,1);
7190 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[0],'~')==UNUR_SUCCESS)?0:1000;
7191 unur_free(gen);
7192
7193 unur_distr_free(distr_localcopy);
7194 } while (0);
7195 }
7196
7197 /* distribution [1] */
7198
7199 if(TRUE) {
7200 unur_reset_errno();
7201 do {
7202 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7203 par = unur_srou_new(distr_localcopy);
7204 unur_srou_set_pedantic(par,0);
7205 gen = unur_init(par);
7206 if (gen) unur_srou_chg_verify(gen,1);
7207 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7208 unur_free(gen);
7209
7210 unur_distr_free(distr_localcopy);
7211 } while (0);
7212 }
7213
7214 if(TRUE) {
7215 unur_reset_errno();
7216 do {
7217 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7218 par = unur_srou_new(distr_localcopy);
7219 unur_srou_set_pedantic(par,0);
7220 unur_srou_set_usemirror(par,1);
7221 gen = unur_init(par);
7222 if (gen) unur_srou_chg_verify(gen,1);
7223 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7224 unur_free(gen);
7225
7226 unur_distr_free(distr_localcopy);
7227 } while (0);
7228 }
7229
7230 if(TRUE) {
7231 unur_reset_errno();
7232 do {
7233 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7234 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7235 par = unur_srou_new(distr_localcopy);
7236 unur_srou_set_pedantic(par,0);
7237 unur_srou_set_cdfatmode(par,cdfatmode);
7238 unur_srou_set_usesqueeze(par,1); }
7239 gen = unur_init(par);
7240 if (gen) unur_srou_chg_verify(gen,1);
7241 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7242 unur_free(gen);
7243
7244 unur_distr_free(distr_localcopy);
7245 } while (0);
7246 }
7247
7248 if(TRUE) {
7249 unur_reset_errno();
7250 do {
7251 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7252 {UNUR_DISTR *dg =NULL;
7253 par = unur_srou_new(distr_localcopy);
7254 unur_srou_set_pedantic(par,0);
7255 gen = unur_init(par);
7256 if (gen) {
7257 dg = unur_get_distr(gen);
7258 unur_distr_cont_set_domain(dg,0.9,0.92);
7259 unur_distr_cont_upd_pdfarea(dg);
7260 unur_distr_cont_upd_mode(dg);
7261 unur_reinit(gen); }
7262 }
7263 if (gen) unur_srou_chg_verify(gen,1);
7264 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7265 unur_free(gen);
7266
7267 unur_distr_free(distr_localcopy);
7268 } while (0);
7269 }
7270
7271 if(TRUE) {
7272 unur_reset_errno();
7273 do {
7274 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7275 {UNUR_DISTR *dg =NULL;
7276 par = unur_srou_new(distr_localcopy);
7277 unur_srou_set_pedantic(par,0);
7278 fpm[0] = 2.;
7279 fpm[1] = 4.;
7280 gen = unur_init(par);
7281 if (gen) {
7282 dg = unur_get_distr(gen);
7283 unur_distr_cont_set_pdfparams(dg,fpm,2);
7284 unur_distr_cont_upd_pdfarea(dg);
7285 unur_distr_cont_upd_mode(dg);
7286 unur_reinit(gen); }
7287 }
7288 if (gen) unur_srou_chg_verify(gen,1);
7289 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7290 unur_free(gen);
7291
7292 unur_distr_free(distr_localcopy);
7293 } while (0);
7294 }
7295
7296 if(TRUE) {
7297 unur_reset_errno();
7298 do {
7299 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7300 par = unur_srou_new(distr_localcopy);
7301 unur_srou_set_pedantic(par,0);
7302 unur_srou_set_r(par,1.001);
7303 gen = unur_init(par);
7304 if (gen) unur_srou_chg_verify(gen,1);
7305 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7306 unur_free(gen);
7307
7308 unur_distr_free(distr_localcopy);
7309 } while (0);
7310 }
7311
7312 if(TRUE) {
7313 unur_reset_errno();
7314 do {
7315 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7316 par = unur_srou_new(distr_localcopy);
7317 unur_srou_set_pedantic(par,0);
7318 unur_srou_set_r(par,2.);
7319 gen = unur_init(par);
7320 if (gen) unur_srou_chg_verify(gen,1);
7321 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7322 unur_free(gen);
7323
7324 unur_distr_free(distr_localcopy);
7325 } while (0);
7326 }
7327
7328 if(TRUE) {
7329 unur_reset_errno();
7330 do {
7331 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7332 par = unur_srou_new(distr_localcopy);
7333 unur_srou_set_pedantic(par,0);
7334 unur_srou_set_r(par,10.);
7335 gen = unur_init(par);
7336 if (gen) unur_srou_chg_verify(gen,1);
7337 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7338 unur_free(gen);
7339
7340 unur_distr_free(distr_localcopy);
7341 } while (0);
7342 }
7343
7344 if(TRUE) {
7345 unur_reset_errno();
7346 do {
7347 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7348 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7349 par = unur_srou_new(distr_localcopy);
7350 unur_srou_set_pedantic(par,0);
7351 unur_srou_set_r(par,2.);
7352 unur_srou_set_cdfatmode(par,cdfatmode); }
7353 gen = unur_init(par);
7354 if (gen) unur_srou_chg_verify(gen,1);
7355 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7356 unur_free(gen);
7357
7358 unur_distr_free(distr_localcopy);
7359 } while (0);
7360 }
7361
7362 if(TRUE) {
7363 unur_reset_errno();
7364 do {
7365 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7366 {UNUR_DISTR *dg =NULL;
7367 par = unur_srou_new(distr_localcopy);
7368 unur_srou_set_pedantic(par,0);
7369 unur_srou_set_r(par,2.);
7370 gen = unur_init(par);
7371 if (gen) {
7372 dg = unur_get_distr(gen);
7373 unur_distr_cont_set_domain(dg,0.9,0.95);
7374 unur_distr_cont_upd_pdfarea(dg);
7375 unur_distr_cont_upd_mode(dg);
7376 unur_reinit(gen); }
7377 }
7378 if (gen) unur_srou_chg_verify(gen,1);
7379 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7380 unur_free(gen);
7381
7382 unur_distr_free(distr_localcopy);
7383 } while (0);
7384 }
7385
7386 if(TRUE) {
7387 unur_reset_errno();
7388 do {
7389 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[1]);
7390 {UNUR_DISTR *dg =NULL;
7391 par = unur_srou_new(distr_localcopy);
7392 unur_srou_set_pedantic(par,0);
7393 unur_srou_set_r(par,2.);
7394 fpm[0] = 2.;
7395 fpm[1] = 4.;
7396 gen = unur_init(par);
7397 if (gen) {
7398 dg = unur_get_distr(gen);
7399 unur_distr_cont_set_pdfparams(dg,fpm,2);
7400 unur_distr_cont_upd_pdfarea(dg);
7401 unur_distr_cont_upd_mode(dg);
7402 unur_reinit(gen); }
7403 }
7404 if (gen) unur_srou_chg_verify(gen,1);
7405 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[1],'~')==UNUR_SUCCESS)?0:1000;
7406 unur_free(gen);
7407
7408 unur_distr_free(distr_localcopy);
7409 } while (0);
7410 }
7411
7412 /* distribution [2] */
7413
7414 if(fullcheck) {
7415 unur_reset_errno();
7416 do {
7417 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7418 par = unur_srou_new(distr_localcopy);
7419 unur_srou_set_pedantic(par,0);
7420 gen = unur_init(par);
7421 if (gen) unur_srou_chg_verify(gen,1);
7422 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7423 unur_free(gen);
7424
7425 unur_distr_free(distr_localcopy);
7426 } while (0);
7427 }
7428
7429 if(fullcheck) {
7430 unur_reset_errno();
7431 do {
7432 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7433 par = unur_srou_new(distr_localcopy);
7434 unur_srou_set_pedantic(par,0);
7435 unur_srou_set_usemirror(par,1);
7436 gen = unur_init(par);
7437 if (gen) unur_srou_chg_verify(gen,1);
7438 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7439 unur_free(gen);
7440
7441 unur_distr_free(distr_localcopy);
7442 } while (0);
7443 }
7444
7445 if(fullcheck) {
7446 unur_reset_errno();
7447 do {
7448 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7449 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7450 par = unur_srou_new(distr_localcopy);
7451 unur_srou_set_pedantic(par,0);
7452 unur_srou_set_cdfatmode(par,cdfatmode);
7453 unur_srou_set_usesqueeze(par,1); }
7454 gen = unur_init(par);
7455 if (gen) unur_srou_chg_verify(gen,1);
7456 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7457 unur_free(gen);
7458
7459 unur_distr_free(distr_localcopy);
7460 } while (0);
7461 }
7462
7463 if(fullcheck) {
7464 printf("."); fflush(stdout);
7465 }
7466
7467 if(fullcheck) {
7468 unur_reset_errno();
7469 do {
7470 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7471 {UNUR_DISTR *dg =NULL;
7472 par = unur_srou_new(distr_localcopy);
7473 unur_srou_set_pedantic(par,0);
7474 fpm[0] = 2.;
7475 fpm[1] = 4.;
7476 gen = unur_init(par);
7477 if (gen) {
7478 dg = unur_get_distr(gen);
7479 unur_distr_cont_set_pdfparams(dg,fpm,2);
7480 unur_distr_cont_upd_pdfarea(dg);
7481 unur_distr_cont_upd_mode(dg);
7482 unur_reinit(gen); }
7483 }
7484 if (gen) unur_srou_chg_verify(gen,1);
7485 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7486 unur_free(gen);
7487
7488 unur_distr_free(distr_localcopy);
7489 } while (0);
7490 }
7491
7492 if(fullcheck) {
7493 unur_reset_errno();
7494 do {
7495 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7496 par = unur_srou_new(distr_localcopy);
7497 unur_srou_set_pedantic(par,0);
7498 unur_srou_set_r(par,1.001);
7499 gen = unur_init(par);
7500 if (gen) unur_srou_chg_verify(gen,1);
7501 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7502 unur_free(gen);
7503
7504 unur_distr_free(distr_localcopy);
7505 } while (0);
7506 }
7507
7508 if(fullcheck) {
7509 unur_reset_errno();
7510 do {
7511 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7512 par = unur_srou_new(distr_localcopy);
7513 unur_srou_set_pedantic(par,0);
7514 unur_srou_set_r(par,2.);
7515 gen = unur_init(par);
7516 if (gen) unur_srou_chg_verify(gen,1);
7517 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7518 unur_free(gen);
7519
7520 unur_distr_free(distr_localcopy);
7521 } while (0);
7522 }
7523
7524 if(fullcheck) {
7525 unur_reset_errno();
7526 do {
7527 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7528 par = unur_srou_new(distr_localcopy);
7529 unur_srou_set_pedantic(par,0);
7530 unur_srou_set_r(par,10.);
7531 gen = unur_init(par);
7532 if (gen) unur_srou_chg_verify(gen,1);
7533 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7534 unur_free(gen);
7535
7536 unur_distr_free(distr_localcopy);
7537 } while (0);
7538 }
7539
7540 if(fullcheck) {
7541 unur_reset_errno();
7542 do {
7543 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7544 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7545 par = unur_srou_new(distr_localcopy);
7546 unur_srou_set_pedantic(par,0);
7547 unur_srou_set_r(par,2.);
7548 unur_srou_set_cdfatmode(par,cdfatmode); }
7549 gen = unur_init(par);
7550 if (gen) unur_srou_chg_verify(gen,1);
7551 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7552 unur_free(gen);
7553
7554 unur_distr_free(distr_localcopy);
7555 } while (0);
7556 }
7557
7558 if(fullcheck) {
7559 printf("."); fflush(stdout);
7560 }
7561
7562 if(fullcheck) {
7563 unur_reset_errno();
7564 do {
7565 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[2]);
7566 {UNUR_DISTR *dg =NULL;
7567 par = unur_srou_new(distr_localcopy);
7568 unur_srou_set_pedantic(par,0);
7569 unur_srou_set_r(par,2.);
7570 fpm[0] = 2.;
7571 fpm[1] = 4.;
7572 gen = unur_init(par);
7573 if (gen) {
7574 dg = unur_get_distr(gen);
7575 unur_distr_cont_set_pdfparams(dg,fpm,2);
7576 unur_distr_cont_upd_pdfarea(dg);
7577 unur_distr_cont_upd_mode(dg);
7578 unur_reinit(gen); }
7579 }
7580 if (gen) unur_srou_chg_verify(gen,1);
7581 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[2],'~')==UNUR_SUCCESS)?0:1000;
7582 unur_free(gen);
7583
7584 unur_distr_free(distr_localcopy);
7585 } while (0);
7586 }
7587
7588 /* distribution [3] */
7589
7590 if(TRUE) {
7591 unur_reset_errno();
7592 do {
7593 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7594 par = unur_srou_new(distr_localcopy);
7595 unur_srou_set_pedantic(par,0);
7596 gen = unur_init(par);
7597 if (gen) unur_srou_chg_verify(gen,1);
7598 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7599 unur_free(gen);
7600
7601 unur_distr_free(distr_localcopy);
7602 } while (0);
7603 }
7604
7605 if(TRUE) {
7606 unur_reset_errno();
7607 do {
7608 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7609 par = unur_srou_new(distr_localcopy);
7610 unur_srou_set_pedantic(par,0);
7611 unur_srou_set_usemirror(par,1);
7612 gen = unur_init(par);
7613 if (gen) unur_srou_chg_verify(gen,1);
7614 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7615 unur_free(gen);
7616
7617 unur_distr_free(distr_localcopy);
7618 } while (0);
7619 }
7620
7621 if(TRUE) {
7622 unur_reset_errno();
7623 do {
7624 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7625 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7626 par = unur_srou_new(distr_localcopy);
7627 unur_srou_set_pedantic(par,0);
7628 unur_srou_set_cdfatmode(par,cdfatmode);
7629 unur_srou_set_usesqueeze(par,1); }
7630 gen = unur_init(par);
7631 if (gen) unur_srou_chg_verify(gen,1);
7632 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7633 unur_free(gen);
7634
7635 unur_distr_free(distr_localcopy);
7636 } while (0);
7637 }
7638
7639 if(TRUE) {
7640 unur_reset_errno();
7641 do {
7642 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7643 {UNUR_DISTR *dg =NULL;
7644 par = unur_srou_new(distr_localcopy);
7645 unur_srou_set_pedantic(par,0);
7646 gen = unur_init(par);
7647 if (gen) {
7648 dg = unur_get_distr(gen);
7649 unur_distr_cont_set_domain(dg,0.9,0.92);
7650 unur_distr_cont_upd_pdfarea(dg);
7651 unur_distr_cont_upd_mode(dg);
7652 unur_reinit(gen); }
7653 }
7654 if (gen) unur_srou_chg_verify(gen,1);
7655 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7656 unur_free(gen);
7657
7658 unur_distr_free(distr_localcopy);
7659 } while (0);
7660 }
7661
7662 if(TRUE) {
7663 unur_reset_errno();
7664 do {
7665 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7666 {UNUR_DISTR *dg =NULL;
7667 par = unur_srou_new(distr_localcopy);
7668 unur_srou_set_pedantic(par,0);
7669 fpm[0] = 2.;
7670 fpm[1] = 4.;
7671 gen = unur_init(par);
7672 if (gen) {
7673 dg = unur_get_distr(gen);
7674 unur_distr_cont_set_pdfparams(dg,fpm,2);
7675 unur_distr_cont_upd_pdfarea(dg);
7676 unur_distr_cont_upd_mode(dg);
7677 unur_reinit(gen); }
7678 }
7679 if (gen) unur_srou_chg_verify(gen,1);
7680 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7681 unur_free(gen);
7682
7683 unur_distr_free(distr_localcopy);
7684 } while (0);
7685 }
7686
7687 if(TRUE) {
7688 unur_reset_errno();
7689 do {
7690 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7691 par = unur_srou_new(distr_localcopy);
7692 unur_srou_set_pedantic(par,0);
7693 unur_srou_set_r(par,1.001);
7694 gen = unur_init(par);
7695 if (gen) unur_srou_chg_verify(gen,1);
7696 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7697 unur_free(gen);
7698
7699 unur_distr_free(distr_localcopy);
7700 } while (0);
7701 }
7702
7703 if(TRUE) {
7704 unur_reset_errno();
7705 do {
7706 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7707 par = unur_srou_new(distr_localcopy);
7708 unur_srou_set_pedantic(par,0);
7709 unur_srou_set_r(par,2.);
7710 gen = unur_init(par);
7711 if (gen) unur_srou_chg_verify(gen,1);
7712 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7713 unur_free(gen);
7714
7715 unur_distr_free(distr_localcopy);
7716 } while (0);
7717 }
7718
7719 if(TRUE) {
7720 unur_reset_errno();
7721 do {
7722 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7723 par = unur_srou_new(distr_localcopy);
7724 unur_srou_set_pedantic(par,0);
7725 unur_srou_set_r(par,10.);
7726 gen = unur_init(par);
7727 if (gen) unur_srou_chg_verify(gen,1);
7728 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7729 unur_free(gen);
7730
7731 unur_distr_free(distr_localcopy);
7732 } while (0);
7733 }
7734
7735 if(TRUE) {
7736 unur_reset_errno();
7737 do {
7738 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7739 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7740 par = unur_srou_new(distr_localcopy);
7741 unur_srou_set_pedantic(par,0);
7742 unur_srou_set_r(par,2.);
7743 unur_srou_set_cdfatmode(par,cdfatmode); }
7744 gen = unur_init(par);
7745 if (gen) unur_srou_chg_verify(gen,1);
7746 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7747 unur_free(gen);
7748
7749 unur_distr_free(distr_localcopy);
7750 } while (0);
7751 }
7752
7753 if(TRUE) {
7754 unur_reset_errno();
7755 do {
7756 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7757 {UNUR_DISTR *dg =NULL;
7758 par = unur_srou_new(distr_localcopy);
7759 unur_srou_set_pedantic(par,0);
7760 unur_srou_set_r(par,2.);
7761 gen = unur_init(par);
7762 if (gen) {
7763 dg = unur_get_distr(gen);
7764 unur_distr_cont_set_domain(dg,0.9,0.95);
7765 unur_distr_cont_upd_pdfarea(dg);
7766 unur_distr_cont_upd_mode(dg);
7767 unur_reinit(gen); }
7768 }
7769 if (gen) unur_srou_chg_verify(gen,1);
7770 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7771 unur_free(gen);
7772
7773 unur_distr_free(distr_localcopy);
7774 } while (0);
7775 }
7776
7777 if(TRUE) {
7778 unur_reset_errno();
7779 do {
7780 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[3]);
7781 {UNUR_DISTR *dg =NULL;
7782 par = unur_srou_new(distr_localcopy);
7783 unur_srou_set_pedantic(par,0);
7784 unur_srou_set_r(par,2.);
7785 fpm[0] = 2.;
7786 fpm[1] = 4.;
7787 gen = unur_init(par);
7788 if (gen) {
7789 dg = unur_get_distr(gen);
7790 unur_distr_cont_set_pdfparams(dg,fpm,2);
7791 unur_distr_cont_upd_pdfarea(dg);
7792 unur_distr_cont_upd_mode(dg);
7793 unur_reinit(gen); }
7794 }
7795 if (gen) unur_srou_chg_verify(gen,1);
7796 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[3],'~')==UNUR_SUCCESS)?0:1000;
7797 unur_free(gen);
7798
7799 unur_distr_free(distr_localcopy);
7800 } while (0);
7801 }
7802
7803 /* distribution [4] */
7804
7805 if(fullcheck) {
7806 unur_reset_errno();
7807 do {
7808 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7809 par = unur_srou_new(distr_localcopy);
7810 unur_srou_set_pedantic(par,0);
7811 gen = unur_init(par);
7812 if (gen) unur_srou_chg_verify(gen,1);
7813 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7814 unur_free(gen);
7815
7816 unur_distr_free(distr_localcopy);
7817 } while (0);
7818 }
7819
7820 if(fullcheck) {
7821 unur_reset_errno();
7822 do {
7823 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7824 par = unur_srou_new(distr_localcopy);
7825 unur_srou_set_pedantic(par,0);
7826 unur_srou_set_usemirror(par,1);
7827 gen = unur_init(par);
7828 if (gen) unur_srou_chg_verify(gen,1);
7829 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7830 unur_free(gen);
7831
7832 unur_distr_free(distr_localcopy);
7833 } while (0);
7834 }
7835
7836 if(fullcheck) {
7837 unur_reset_errno();
7838 do {
7839 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7840 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7841 par = unur_srou_new(distr_localcopy);
7842 unur_srou_set_pedantic(par,0);
7843 unur_srou_set_cdfatmode(par,cdfatmode);
7844 unur_srou_set_usesqueeze(par,1); }
7845 gen = unur_init(par);
7846 if (gen) unur_srou_chg_verify(gen,1);
7847 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7848 unur_free(gen);
7849
7850 unur_distr_free(distr_localcopy);
7851 } while (0);
7852 }
7853
7854 if(fullcheck) {
7855 printf("."); fflush(stdout);
7856 }
7857
7858 if(fullcheck) {
7859 unur_reset_errno();
7860 do {
7861 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7862 {UNUR_DISTR *dg =NULL;
7863 par = unur_srou_new(distr_localcopy);
7864 unur_srou_set_pedantic(par,0);
7865 fpm[0] = 2.;
7866 fpm[1] = 4.;
7867 gen = unur_init(par);
7868 if (gen) {
7869 dg = unur_get_distr(gen);
7870 unur_distr_cont_set_pdfparams(dg,fpm,2);
7871 unur_distr_cont_upd_pdfarea(dg);
7872 unur_distr_cont_upd_mode(dg);
7873 unur_reinit(gen); }
7874 }
7875 if (gen) unur_srou_chg_verify(gen,1);
7876 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7877 unur_free(gen);
7878
7879 unur_distr_free(distr_localcopy);
7880 } while (0);
7881 }
7882
7883 if(fullcheck) {
7884 unur_reset_errno();
7885 do {
7886 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7887 par = unur_srou_new(distr_localcopy);
7888 unur_srou_set_pedantic(par,0);
7889 unur_srou_set_r(par,1.001);
7890 gen = unur_init(par);
7891 if (gen) unur_srou_chg_verify(gen,1);
7892 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7893 unur_free(gen);
7894
7895 unur_distr_free(distr_localcopy);
7896 } while (0);
7897 }
7898
7899 if(fullcheck) {
7900 unur_reset_errno();
7901 do {
7902 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7903 par = unur_srou_new(distr_localcopy);
7904 unur_srou_set_pedantic(par,0);
7905 unur_srou_set_r(par,2.);
7906 gen = unur_init(par);
7907 if (gen) unur_srou_chg_verify(gen,1);
7908 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7909 unur_free(gen);
7910
7911 unur_distr_free(distr_localcopy);
7912 } while (0);
7913 }
7914
7915 if(fullcheck) {
7916 unur_reset_errno();
7917 do {
7918 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7919 par = unur_srou_new(distr_localcopy);
7920 unur_srou_set_pedantic(par,0);
7921 unur_srou_set_r(par,10.);
7922 gen = unur_init(par);
7923 if (gen) unur_srou_chg_verify(gen,1);
7924 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7925 unur_free(gen);
7926
7927 unur_distr_free(distr_localcopy);
7928 } while (0);
7929 }
7930
7931 if(fullcheck) {
7932 unur_reset_errno();
7933 do {
7934 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7935 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
7936 par = unur_srou_new(distr_localcopy);
7937 unur_srou_set_pedantic(par,0);
7938 unur_srou_set_r(par,2.);
7939 unur_srou_set_cdfatmode(par,cdfatmode); }
7940 gen = unur_init(par);
7941 if (gen) unur_srou_chg_verify(gen,1);
7942 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7943 unur_free(gen);
7944
7945 unur_distr_free(distr_localcopy);
7946 } while (0);
7947 }
7948
7949 if(fullcheck) {
7950 printf("."); fflush(stdout);
7951 }
7952
7953 if(fullcheck) {
7954 unur_reset_errno();
7955 do {
7956 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[4]);
7957 {UNUR_DISTR *dg =NULL;
7958 par = unur_srou_new(distr_localcopy);
7959 unur_srou_set_pedantic(par,0);
7960 unur_srou_set_r(par,2.);
7961 fpm[0] = 2.;
7962 fpm[1] = 4.;
7963 gen = unur_init(par);
7964 if (gen) {
7965 dg = unur_get_distr(gen);
7966 unur_distr_cont_set_pdfparams(dg,fpm,2);
7967 unur_distr_cont_upd_pdfarea(dg);
7968 unur_distr_cont_upd_mode(dg);
7969 unur_reinit(gen); }
7970 }
7971 if (gen) unur_srou_chg_verify(gen,1);
7972 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[4],'~')==UNUR_SUCCESS)?0:1000;
7973 unur_free(gen);
7974
7975 unur_distr_free(distr_localcopy);
7976 } while (0);
7977 }
7978
7979 /* distribution [5] */
7980
7981 if(TRUE) {
7982 unur_reset_errno();
7983 do {
7984 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
7985 par = unur_srou_new(distr_localcopy);
7986 unur_srou_set_pedantic(par,0);
7987 gen = unur_init(par);
7988 if (gen) unur_srou_chg_verify(gen,1);
7989 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
7990 unur_free(gen);
7991
7992 unur_distr_free(distr_localcopy);
7993 } while (0);
7994 }
7995
7996 if(TRUE) {
7997 unur_reset_errno();
7998 do {
7999 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8000 par = unur_srou_new(distr_localcopy);
8001 unur_srou_set_pedantic(par,0);
8002 unur_srou_set_usemirror(par,1);
8003 gen = unur_init(par);
8004 if (gen) unur_srou_chg_verify(gen,1);
8005 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8006 unur_free(gen);
8007
8008 unur_distr_free(distr_localcopy);
8009 } while (0);
8010 }
8011
8012 if(TRUE) {
8013 unur_reset_errno();
8014 do {
8015 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8016 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8017 par = unur_srou_new(distr_localcopy);
8018 unur_srou_set_pedantic(par,0);
8019 unur_srou_set_cdfatmode(par,cdfatmode);
8020 unur_srou_set_usesqueeze(par,1); }
8021 gen = unur_init(par);
8022 if (gen) unur_srou_chg_verify(gen,1);
8023 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8024 unur_free(gen);
8025
8026 unur_distr_free(distr_localcopy);
8027 } while (0);
8028 }
8029
8030 if(TRUE) {
8031 printf("."); fflush(stdout);
8032 }
8033
8034 if(TRUE) {
8035 unur_reset_errno();
8036 do {
8037 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8038 {UNUR_DISTR *dg =NULL;
8039 par = unur_srou_new(distr_localcopy);
8040 unur_srou_set_pedantic(par,0);
8041 fpm[0] = 2.;
8042 fpm[1] = 4.;
8043 gen = unur_init(par);
8044 if (gen) {
8045 dg = unur_get_distr(gen);
8046 unur_distr_cont_set_pdfparams(dg,fpm,2);
8047 unur_distr_cont_upd_pdfarea(dg);
8048 unur_distr_cont_upd_mode(dg);
8049 unur_reinit(gen); }
8050 }
8051 if (gen) unur_srou_chg_verify(gen,1);
8052 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8053 unur_free(gen);
8054
8055 unur_distr_free(distr_localcopy);
8056 } while (0);
8057 }
8058
8059 if(TRUE) {
8060 unur_reset_errno();
8061 do {
8062 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8063 par = unur_srou_new(distr_localcopy);
8064 unur_srou_set_pedantic(par,0);
8065 unur_srou_set_r(par,1.001);
8066 gen = unur_init(par);
8067 if (gen) unur_srou_chg_verify(gen,1);
8068 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8069 unur_free(gen);
8070
8071 unur_distr_free(distr_localcopy);
8072 } while (0);
8073 }
8074
8075 if(TRUE) {
8076 unur_reset_errno();
8077 do {
8078 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8079 par = unur_srou_new(distr_localcopy);
8080 unur_srou_set_pedantic(par,0);
8081 unur_srou_set_r(par,2.);
8082 gen = unur_init(par);
8083 if (gen) unur_srou_chg_verify(gen,1);
8084 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8085 unur_free(gen);
8086
8087 unur_distr_free(distr_localcopy);
8088 } while (0);
8089 }
8090
8091 if(TRUE) {
8092 unur_reset_errno();
8093 do {
8094 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8095 par = unur_srou_new(distr_localcopy);
8096 unur_srou_set_pedantic(par,0);
8097 unur_srou_set_r(par,10.);
8098 gen = unur_init(par);
8099 if (gen) unur_srou_chg_verify(gen,1);
8100 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8101 unur_free(gen);
8102
8103 unur_distr_free(distr_localcopy);
8104 } while (0);
8105 }
8106
8107 if(TRUE) {
8108 unur_reset_errno();
8109 do {
8110 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8111 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8112 par = unur_srou_new(distr_localcopy);
8113 unur_srou_set_pedantic(par,0);
8114 unur_srou_set_r(par,2.);
8115 unur_srou_set_cdfatmode(par,cdfatmode); }
8116 gen = unur_init(par);
8117 if (gen) unur_srou_chg_verify(gen,1);
8118 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8119 unur_free(gen);
8120
8121 unur_distr_free(distr_localcopy);
8122 } while (0);
8123 }
8124
8125 if(TRUE) {
8126 printf("."); fflush(stdout);
8127 }
8128
8129 if(TRUE) {
8130 unur_reset_errno();
8131 do {
8132 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[5]);
8133 {UNUR_DISTR *dg =NULL;
8134 par = unur_srou_new(distr_localcopy);
8135 unur_srou_set_pedantic(par,0);
8136 unur_srou_set_r(par,2.);
8137 fpm[0] = 2.;
8138 fpm[1] = 4.;
8139 gen = unur_init(par);
8140 if (gen) {
8141 dg = unur_get_distr(gen);
8142 unur_distr_cont_set_pdfparams(dg,fpm,2);
8143 unur_distr_cont_upd_pdfarea(dg);
8144 unur_distr_cont_upd_mode(dg);
8145 unur_reinit(gen); }
8146 }
8147 if (gen) unur_srou_chg_verify(gen,1);
8148 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[5],'~')==UNUR_SUCCESS)?0:1000;
8149 unur_free(gen);
8150
8151 unur_distr_free(distr_localcopy);
8152 } while (0);
8153 }
8154
8155 /* distribution [6] */
8156
8157 if(TRUE) {
8158 unur_reset_errno();
8159 do {
8160 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8161 par = unur_srou_new(distr_localcopy);
8162 unur_srou_set_pedantic(par,0);
8163 gen = unur_init(par);
8164 if (gen) unur_srou_chg_verify(gen,1);
8165 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8166 unur_free(gen);
8167
8168 unur_distr_free(distr_localcopy);
8169 } while (0);
8170 }
8171
8172 if(TRUE) {
8173 unur_reset_errno();
8174 do {
8175 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8176 par = unur_srou_new(distr_localcopy);
8177 unur_srou_set_pedantic(par,0);
8178 unur_srou_set_usemirror(par,1);
8179 gen = unur_init(par);
8180 if (gen) unur_srou_chg_verify(gen,1);
8181 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8182 unur_free(gen);
8183
8184 unur_distr_free(distr_localcopy);
8185 } while (0);
8186 }
8187
8188 if(TRUE) {
8189 unur_reset_errno();
8190 do {
8191 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8192 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8193 par = unur_srou_new(distr_localcopy);
8194 unur_srou_set_pedantic(par,0);
8195 unur_srou_set_cdfatmode(par,cdfatmode);
8196 unur_srou_set_usesqueeze(par,1); }
8197 gen = unur_init(par);
8198 if (gen) unur_srou_chg_verify(gen,1);
8199 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8200 unur_free(gen);
8201
8202 unur_distr_free(distr_localcopy);
8203 } while (0);
8204 }
8205
8206 if(TRUE) {
8207 unur_reset_errno();
8208 do {
8209 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8210 {UNUR_DISTR *dg =NULL;
8211 par = unur_srou_new(distr_localcopy);
8212 unur_srou_set_pedantic(par,0);
8213 gen = unur_init(par);
8214 if (gen) {
8215 dg = unur_get_distr(gen);
8216 unur_distr_cont_set_domain(dg,0.9,0.92);
8217 unur_distr_cont_upd_pdfarea(dg);
8218 unur_distr_cont_upd_mode(dg);
8219 unur_reinit(gen); }
8220 }
8221 if (gen) unur_srou_chg_verify(gen,1);
8222 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8223 unur_free(gen);
8224
8225 unur_distr_free(distr_localcopy);
8226 } while (0);
8227 }
8228
8229 if(TRUE) {
8230 unur_reset_errno();
8231 do {
8232 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8233 {UNUR_DISTR *dg =NULL;
8234 par = unur_srou_new(distr_localcopy);
8235 unur_srou_set_pedantic(par,0);
8236 fpm[0] = 2.;
8237 fpm[1] = 4.;
8238 gen = unur_init(par);
8239 if (gen) {
8240 dg = unur_get_distr(gen);
8241 unur_distr_cont_set_pdfparams(dg,fpm,2);
8242 unur_distr_cont_upd_pdfarea(dg);
8243 unur_distr_cont_upd_mode(dg);
8244 unur_reinit(gen); }
8245 }
8246 if (gen) unur_srou_chg_verify(gen,1);
8247 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8248 unur_free(gen);
8249
8250 unur_distr_free(distr_localcopy);
8251 } while (0);
8252 }
8253
8254 if(TRUE) {
8255 unur_reset_errno();
8256 do {
8257 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8258 par = unur_srou_new(distr_localcopy);
8259 unur_srou_set_pedantic(par,0);
8260 unur_srou_set_r(par,1.001);
8261 gen = unur_init(par);
8262 if (gen) unur_srou_chg_verify(gen,1);
8263 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8264 unur_free(gen);
8265
8266 unur_distr_free(distr_localcopy);
8267 } while (0);
8268 }
8269
8270 if(TRUE) {
8271 unur_reset_errno();
8272 do {
8273 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8274 par = unur_srou_new(distr_localcopy);
8275 unur_srou_set_pedantic(par,0);
8276 unur_srou_set_r(par,2.);
8277 gen = unur_init(par);
8278 if (gen) unur_srou_chg_verify(gen,1);
8279 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8280 unur_free(gen);
8281
8282 unur_distr_free(distr_localcopy);
8283 } while (0);
8284 }
8285
8286 if(TRUE) {
8287 unur_reset_errno();
8288 do {
8289 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8290 par = unur_srou_new(distr_localcopy);
8291 unur_srou_set_pedantic(par,0);
8292 unur_srou_set_r(par,10.);
8293 gen = unur_init(par);
8294 if (gen) unur_srou_chg_verify(gen,1);
8295 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8296 unur_free(gen);
8297
8298 unur_distr_free(distr_localcopy);
8299 } while (0);
8300 }
8301
8302 if(TRUE) {
8303 unur_reset_errno();
8304 do {
8305 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8306 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8307 par = unur_srou_new(distr_localcopy);
8308 unur_srou_set_pedantic(par,0);
8309 unur_srou_set_r(par,2.);
8310 unur_srou_set_cdfatmode(par,cdfatmode); }
8311 gen = unur_init(par);
8312 if (gen) unur_srou_chg_verify(gen,1);
8313 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8314 unur_free(gen);
8315
8316 unur_distr_free(distr_localcopy);
8317 } while (0);
8318 }
8319
8320 if(TRUE) {
8321 unur_reset_errno();
8322 do {
8323 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8324 {UNUR_DISTR *dg =NULL;
8325 par = unur_srou_new(distr_localcopy);
8326 unur_srou_set_pedantic(par,0);
8327 unur_srou_set_r(par,2.);
8328 gen = unur_init(par);
8329 if (gen) {
8330 dg = unur_get_distr(gen);
8331 unur_distr_cont_set_domain(dg,0.9,0.95);
8332 unur_distr_cont_upd_pdfarea(dg);
8333 unur_distr_cont_upd_mode(dg);
8334 unur_reinit(gen); }
8335 }
8336 if (gen) unur_srou_chg_verify(gen,1);
8337 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8338 unur_free(gen);
8339
8340 unur_distr_free(distr_localcopy);
8341 } while (0);
8342 }
8343
8344 if(TRUE) {
8345 unur_reset_errno();
8346 do {
8347 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[6]);
8348 {UNUR_DISTR *dg =NULL;
8349 par = unur_srou_new(distr_localcopy);
8350 unur_srou_set_pedantic(par,0);
8351 unur_srou_set_r(par,2.);
8352 fpm[0] = 2.;
8353 fpm[1] = 4.;
8354 gen = unur_init(par);
8355 if (gen) {
8356 dg = unur_get_distr(gen);
8357 unur_distr_cont_set_pdfparams(dg,fpm,2);
8358 unur_distr_cont_upd_pdfarea(dg);
8359 unur_distr_cont_upd_mode(dg);
8360 unur_reinit(gen); }
8361 }
8362 if (gen) unur_srou_chg_verify(gen,1);
8363 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[6],'~')==UNUR_SUCCESS)?0:1000;
8364 unur_free(gen);
8365
8366 unur_distr_free(distr_localcopy);
8367 } while (0);
8368 }
8369
8370 /* distribution [23] */
8371
8372 if(TRUE) {
8373 unur_reset_errno();
8374 do {
8375 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8376 par = unur_srou_new(distr_localcopy);
8377 unur_srou_set_pedantic(par,0);
8378 gen = unur_init(par);
8379 if (gen) unur_srou_chg_verify(gen,1);
8380 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8381 unur_free(gen);
8382
8383 unur_distr_free(distr_localcopy);
8384 } while (0);
8385 }
8386
8387 if(TRUE) {
8388 unur_reset_errno();
8389 do {
8390 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8391 par = unur_srou_new(distr_localcopy);
8392 unur_srou_set_pedantic(par,0);
8393 unur_srou_set_usemirror(par,1);
8394 gen = unur_init(par);
8395 if (gen) unur_srou_chg_verify(gen,1);
8396 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8397 unur_free(gen);
8398
8399 unur_distr_free(distr_localcopy);
8400 } while (0);
8401 }
8402
8403 if(TRUE) {
8404 unur_reset_errno();
8405 do {
8406 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8407 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8408 par = unur_srou_new(distr_localcopy);
8409 unur_srou_set_pedantic(par,0);
8410 unur_srou_set_cdfatmode(par,cdfatmode);
8411 unur_srou_set_usesqueeze(par,1); }
8412 gen = unur_init(par);
8413 if (gen) unur_srou_chg_verify(gen,1);
8414 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8415 unur_free(gen);
8416
8417 unur_distr_free(distr_localcopy);
8418 } while (0);
8419 }
8420
8421 if(TRUE) {
8422 unur_reset_errno();
8423 do {
8424 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8425 {UNUR_DISTR *dg =NULL;
8426 par = unur_srou_new(distr_localcopy);
8427 unur_srou_set_pedantic(par,0);
8428 gen = unur_init(par);
8429 if (gen) {
8430 dg = unur_get_distr(gen);
8431 unur_distr_cont_set_domain(dg,0.9,0.92);
8432 unur_distr_cont_upd_pdfarea(dg);
8433 unur_distr_cont_upd_mode(dg);
8434 unur_reinit(gen); }
8435 }
8436 if (gen) unur_srou_chg_verify(gen,1);
8437 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8438 unur_free(gen);
8439
8440 unur_distr_free(distr_localcopy);
8441 } while (0);
8442 }
8443
8444 if(TRUE) {
8445 unur_reset_errno();
8446 do {
8447 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8448 {UNUR_DISTR *dg =NULL;
8449 par = unur_srou_new(distr_localcopy);
8450 unur_srou_set_pedantic(par,0);
8451 fpm[0] = 2.;
8452 fpm[1] = 4.;
8453 gen = unur_init(par);
8454 if (gen) {
8455 dg = unur_get_distr(gen);
8456 unur_distr_cont_set_pdfparams(dg,fpm,2);
8457 unur_distr_cont_upd_pdfarea(dg);
8458 unur_distr_cont_upd_mode(dg);
8459 unur_reinit(gen); }
8460 }
8461 if (gen) unur_srou_chg_verify(gen,1);
8462 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8463 unur_free(gen);
8464
8465 unur_distr_free(distr_localcopy);
8466 } while (0);
8467 }
8468
8469 if(TRUE) {
8470 unur_reset_errno();
8471 do {
8472 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8473 par = unur_srou_new(distr_localcopy);
8474 unur_srou_set_pedantic(par,0);
8475 unur_srou_set_r(par,1.001);
8476 gen = unur_init(par);
8477 if (gen) unur_srou_chg_verify(gen,1);
8478 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8479 unur_free(gen);
8480
8481 unur_distr_free(distr_localcopy);
8482 } while (0);
8483 }
8484
8485 if(TRUE) {
8486 unur_reset_errno();
8487 do {
8488 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8489 par = unur_srou_new(distr_localcopy);
8490 unur_srou_set_pedantic(par,0);
8491 unur_srou_set_r(par,2.);
8492 gen = unur_init(par);
8493 if (gen) unur_srou_chg_verify(gen,1);
8494 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8495 unur_free(gen);
8496
8497 unur_distr_free(distr_localcopy);
8498 } while (0);
8499 }
8500
8501 if(TRUE) {
8502 unur_reset_errno();
8503 do {
8504 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8505 par = unur_srou_new(distr_localcopy);
8506 unur_srou_set_pedantic(par,0);
8507 unur_srou_set_r(par,10.);
8508 gen = unur_init(par);
8509 if (gen) unur_srou_chg_verify(gen,1);
8510 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8511 unur_free(gen);
8512
8513 unur_distr_free(distr_localcopy);
8514 } while (0);
8515 }
8516
8517 if(TRUE) {
8518 unur_reset_errno();
8519 do {
8520 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8521 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8522 par = unur_srou_new(distr_localcopy);
8523 unur_srou_set_pedantic(par,0);
8524 unur_srou_set_r(par,2.);
8525 unur_srou_set_cdfatmode(par,cdfatmode); }
8526 gen = unur_init(par);
8527 if (gen) unur_srou_chg_verify(gen,1);
8528 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8529 unur_free(gen);
8530
8531 unur_distr_free(distr_localcopy);
8532 } while (0);
8533 }
8534
8535 if(TRUE) {
8536 unur_reset_errno();
8537 do {
8538 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8539 {UNUR_DISTR *dg =NULL;
8540 par = unur_srou_new(distr_localcopy);
8541 unur_srou_set_pedantic(par,0);
8542 unur_srou_set_r(par,2.);
8543 gen = unur_init(par);
8544 if (gen) {
8545 dg = unur_get_distr(gen);
8546 unur_distr_cont_set_domain(dg,0.9,0.95);
8547 unur_distr_cont_upd_pdfarea(dg);
8548 unur_distr_cont_upd_mode(dg);
8549 unur_reinit(gen); }
8550 }
8551 if (gen) unur_srou_chg_verify(gen,1);
8552 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8553 unur_free(gen);
8554
8555 unur_distr_free(distr_localcopy);
8556 } while (0);
8557 }
8558
8559 if(TRUE) {
8560 unur_reset_errno();
8561 do {
8562 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[23]);
8563 {UNUR_DISTR *dg =NULL;
8564 par = unur_srou_new(distr_localcopy);
8565 unur_srou_set_pedantic(par,0);
8566 unur_srou_set_r(par,2.);
8567 fpm[0] = 2.;
8568 fpm[1] = 4.;
8569 gen = unur_init(par);
8570 if (gen) {
8571 dg = unur_get_distr(gen);
8572 unur_distr_cont_set_pdfparams(dg,fpm,2);
8573 unur_distr_cont_upd_pdfarea(dg);
8574 unur_distr_cont_upd_mode(dg);
8575 unur_reinit(gen); }
8576 }
8577 if (gen) unur_srou_chg_verify(gen,1);
8578 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[23],'~')==UNUR_SUCCESS)?0:1000;
8579 unur_free(gen);
8580
8581 unur_distr_free(distr_localcopy);
8582 } while (0);
8583 }
8584
8585 /* distribution [24] */
8586
8587 if(TRUE) {
8588 unur_reset_errno();
8589 do {
8590 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8591 par = unur_srou_new(distr_localcopy);
8592 unur_srou_set_pedantic(par,0);
8593 gen = unur_init(par);
8594 if (gen) unur_srou_chg_verify(gen,1);
8595 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8596 unur_free(gen);
8597
8598 unur_distr_free(distr_localcopy);
8599 } while (0);
8600 }
8601
8602 if(TRUE) {
8603 unur_reset_errno();
8604 do {
8605 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8606 par = unur_srou_new(distr_localcopy);
8607 unur_srou_set_pedantic(par,0);
8608 unur_srou_set_usemirror(par,1);
8609 gen = unur_init(par);
8610 if (gen) unur_srou_chg_verify(gen,1);
8611 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8612 unur_free(gen);
8613
8614 unur_distr_free(distr_localcopy);
8615 } while (0);
8616 }
8617
8618 if(TRUE) {
8619 unur_reset_errno();
8620 do {
8621 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8622 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8623 par = unur_srou_new(distr_localcopy);
8624 unur_srou_set_pedantic(par,0);
8625 unur_srou_set_cdfatmode(par,cdfatmode);
8626 unur_srou_set_usesqueeze(par,1); }
8627 gen = unur_init(par);
8628 if (gen) unur_srou_chg_verify(gen,1);
8629 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8630 unur_free(gen);
8631
8632 unur_distr_free(distr_localcopy);
8633 } while (0);
8634 }
8635
8636 if(TRUE) {
8637 unur_reset_errno();
8638 do {
8639 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8640 {UNUR_DISTR *dg =NULL;
8641 par = unur_srou_new(distr_localcopy);
8642 unur_srou_set_pedantic(par,0);
8643 gen = unur_init(par);
8644 if (gen) {
8645 dg = unur_get_distr(gen);
8646 unur_distr_cont_set_domain(dg,0.9,0.92);
8647 unur_distr_cont_upd_pdfarea(dg);
8648 unur_distr_cont_upd_mode(dg);
8649 unur_reinit(gen); }
8650 }
8651 if (gen) unur_srou_chg_verify(gen,1);
8652 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8653 unur_free(gen);
8654
8655 unur_distr_free(distr_localcopy);
8656 } while (0);
8657 }
8658
8659 if(TRUE) {
8660 unur_reset_errno();
8661 do {
8662 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8663 {UNUR_DISTR *dg =NULL;
8664 par = unur_srou_new(distr_localcopy);
8665 unur_srou_set_pedantic(par,0);
8666 fpm[0] = 2.;
8667 fpm[1] = 4.;
8668 gen = unur_init(par);
8669 if (gen) {
8670 dg = unur_get_distr(gen);
8671 unur_distr_cont_set_pdfparams(dg,fpm,2);
8672 unur_distr_cont_upd_pdfarea(dg);
8673 unur_distr_cont_upd_mode(dg);
8674 unur_reinit(gen); }
8675 }
8676 if (gen) unur_srou_chg_verify(gen,1);
8677 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8678 unur_free(gen);
8679
8680 unur_distr_free(distr_localcopy);
8681 } while (0);
8682 }
8683
8684 if(TRUE) {
8685 unur_reset_errno();
8686 do {
8687 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8688 par = unur_srou_new(distr_localcopy);
8689 unur_srou_set_pedantic(par,0);
8690 unur_srou_set_r(par,1.001);
8691 gen = unur_init(par);
8692 if (gen) unur_srou_chg_verify(gen,1);
8693 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8694 unur_free(gen);
8695
8696 unur_distr_free(distr_localcopy);
8697 } while (0);
8698 }
8699
8700 if(TRUE) {
8701 unur_reset_errno();
8702 do {
8703 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8704 par = unur_srou_new(distr_localcopy);
8705 unur_srou_set_pedantic(par,0);
8706 unur_srou_set_r(par,2.);
8707 gen = unur_init(par);
8708 if (gen) unur_srou_chg_verify(gen,1);
8709 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8710 unur_free(gen);
8711
8712 unur_distr_free(distr_localcopy);
8713 } while (0);
8714 }
8715
8716 if(TRUE) {
8717 unur_reset_errno();
8718 do {
8719 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8720 par = unur_srou_new(distr_localcopy);
8721 unur_srou_set_pedantic(par,0);
8722 unur_srou_set_r(par,10.);
8723 gen = unur_init(par);
8724 if (gen) unur_srou_chg_verify(gen,1);
8725 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8726 unur_free(gen);
8727
8728 unur_distr_free(distr_localcopy);
8729 } while (0);
8730 }
8731
8732 if(TRUE) {
8733 unur_reset_errno();
8734 do {
8735 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8736 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8737 par = unur_srou_new(distr_localcopy);
8738 unur_srou_set_pedantic(par,0);
8739 unur_srou_set_r(par,2.);
8740 unur_srou_set_cdfatmode(par,cdfatmode); }
8741 gen = unur_init(par);
8742 if (gen) unur_srou_chg_verify(gen,1);
8743 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8744 unur_free(gen);
8745
8746 unur_distr_free(distr_localcopy);
8747 } while (0);
8748 }
8749
8750 if(TRUE) {
8751 unur_reset_errno();
8752 do {
8753 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8754 {UNUR_DISTR *dg =NULL;
8755 par = unur_srou_new(distr_localcopy);
8756 unur_srou_set_pedantic(par,0);
8757 unur_srou_set_r(par,2.);
8758 gen = unur_init(par);
8759 if (gen) {
8760 dg = unur_get_distr(gen);
8761 unur_distr_cont_set_domain(dg,0.9,0.95);
8762 unur_distr_cont_upd_pdfarea(dg);
8763 unur_distr_cont_upd_mode(dg);
8764 unur_reinit(gen); }
8765 }
8766 if (gen) unur_srou_chg_verify(gen,1);
8767 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8768 unur_free(gen);
8769
8770 unur_distr_free(distr_localcopy);
8771 } while (0);
8772 }
8773
8774 if(TRUE) {
8775 unur_reset_errno();
8776 do {
8777 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[24]);
8778 {UNUR_DISTR *dg =NULL;
8779 par = unur_srou_new(distr_localcopy);
8780 unur_srou_set_pedantic(par,0);
8781 unur_srou_set_r(par,2.);
8782 fpm[0] = 2.;
8783 fpm[1] = 4.;
8784 gen = unur_init(par);
8785 if (gen) {
8786 dg = unur_get_distr(gen);
8787 unur_distr_cont_set_pdfparams(dg,fpm,2);
8788 unur_distr_cont_upd_pdfarea(dg);
8789 unur_distr_cont_upd_mode(dg);
8790 unur_reinit(gen); }
8791 }
8792 if (gen) unur_srou_chg_verify(gen,1);
8793 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[24],'~')==UNUR_SUCCESS)?0:1000;
8794 unur_free(gen);
8795
8796 unur_distr_free(distr_localcopy);
8797 } while (0);
8798 }
8799
8800 /* distribution [7] */
8801
8802 if(TRUE) {
8803 unur_reset_errno();
8804 do {
8805 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8806 par = unur_srou_new(distr_localcopy);
8807 unur_srou_set_pedantic(par,0);
8808 gen = unur_init(par);
8809 if (gen) unur_srou_chg_verify(gen,1);
8810 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8811 unur_free(gen);
8812
8813 unur_distr_free(distr_localcopy);
8814 } while (0);
8815 }
8816
8817 if(TRUE) {
8818 unur_reset_errno();
8819 do {
8820 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8821 par = unur_srou_new(distr_localcopy);
8822 unur_srou_set_pedantic(par,0);
8823 unur_srou_set_usemirror(par,1);
8824 gen = unur_init(par);
8825 if (gen) unur_srou_chg_verify(gen,1);
8826 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8827 unur_free(gen);
8828
8829 unur_distr_free(distr_localcopy);
8830 } while (0);
8831 }
8832
8833 if(TRUE) {
8834 unur_reset_errno();
8835 do {
8836 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8837 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8838 par = unur_srou_new(distr_localcopy);
8839 unur_srou_set_pedantic(par,0);
8840 unur_srou_set_cdfatmode(par,cdfatmode);
8841 unur_srou_set_usesqueeze(par,1); }
8842 gen = unur_init(par);
8843 if (gen) unur_srou_chg_verify(gen,1);
8844 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8845 unur_free(gen);
8846
8847 unur_distr_free(distr_localcopy);
8848 } while (0);
8849 }
8850
8851 if(TRUE) {
8852 unur_reset_errno();
8853 do {
8854 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8855 {UNUR_DISTR *dg =NULL;
8856 par = unur_srou_new(distr_localcopy);
8857 unur_srou_set_pedantic(par,0);
8858 gen = unur_init(par);
8859 if (gen) {
8860 dg = unur_get_distr(gen);
8861 unur_distr_cont_set_domain(dg,0.9,0.92);
8862 unur_distr_cont_upd_pdfarea(dg);
8863 unur_distr_cont_upd_mode(dg);
8864 unur_reinit(gen); }
8865 }
8866 if (gen) unur_srou_chg_verify(gen,1);
8867 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8868 unur_free(gen);
8869
8870 unur_distr_free(distr_localcopy);
8871 } while (0);
8872 }
8873
8874 if(TRUE) {
8875 unur_reset_errno();
8876 do {
8877 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8878 {UNUR_DISTR *dg =NULL;
8879 par = unur_srou_new(distr_localcopy);
8880 unur_srou_set_pedantic(par,0);
8881 fpm[0] = 2.;
8882 fpm[1] = 4.;
8883 gen = unur_init(par);
8884 if (gen) {
8885 dg = unur_get_distr(gen);
8886 unur_distr_cont_set_pdfparams(dg,fpm,2);
8887 unur_distr_cont_upd_pdfarea(dg);
8888 unur_distr_cont_upd_mode(dg);
8889 unur_reinit(gen); }
8890 }
8891 if (gen) unur_srou_chg_verify(gen,1);
8892 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8893 unur_free(gen);
8894
8895 unur_distr_free(distr_localcopy);
8896 } while (0);
8897 }
8898
8899 if(TRUE) {
8900 unur_reset_errno();
8901 do {
8902 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8903 par = unur_srou_new(distr_localcopy);
8904 unur_srou_set_pedantic(par,0);
8905 unur_srou_set_r(par,1.001);
8906 gen = unur_init(par);
8907 if (gen) unur_srou_chg_verify(gen,1);
8908 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8909 unur_free(gen);
8910
8911 unur_distr_free(distr_localcopy);
8912 } while (0);
8913 }
8914
8915 if(TRUE) {
8916 unur_reset_errno();
8917 do {
8918 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8919 par = unur_srou_new(distr_localcopy);
8920 unur_srou_set_pedantic(par,0);
8921 unur_srou_set_r(par,2.);
8922 gen = unur_init(par);
8923 if (gen) unur_srou_chg_verify(gen,1);
8924 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8925 unur_free(gen);
8926
8927 unur_distr_free(distr_localcopy);
8928 } while (0);
8929 }
8930
8931 if(TRUE) {
8932 unur_reset_errno();
8933 do {
8934 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8935 par = unur_srou_new(distr_localcopy);
8936 unur_srou_set_pedantic(par,0);
8937 unur_srou_set_r(par,10.);
8938 gen = unur_init(par);
8939 if (gen) unur_srou_chg_verify(gen,1);
8940 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8941 unur_free(gen);
8942
8943 unur_distr_free(distr_localcopy);
8944 } while (0);
8945 }
8946
8947 if(TRUE) {
8948 unur_reset_errno();
8949 do {
8950 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8951 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
8952 par = unur_srou_new(distr_localcopy);
8953 unur_srou_set_pedantic(par,0);
8954 unur_srou_set_r(par,2.);
8955 unur_srou_set_cdfatmode(par,cdfatmode); }
8956 gen = unur_init(par);
8957 if (gen) unur_srou_chg_verify(gen,1);
8958 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8959 unur_free(gen);
8960
8961 unur_distr_free(distr_localcopy);
8962 } while (0);
8963 }
8964
8965 if(TRUE) {
8966 unur_reset_errno();
8967 do {
8968 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8969 {UNUR_DISTR *dg =NULL;
8970 par = unur_srou_new(distr_localcopy);
8971 unur_srou_set_pedantic(par,0);
8972 unur_srou_set_r(par,2.);
8973 gen = unur_init(par);
8974 if (gen) {
8975 dg = unur_get_distr(gen);
8976 unur_distr_cont_set_domain(dg,0.9,0.95);
8977 unur_distr_cont_upd_pdfarea(dg);
8978 unur_distr_cont_upd_mode(dg);
8979 unur_reinit(gen); }
8980 }
8981 if (gen) unur_srou_chg_verify(gen,1);
8982 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
8983 unur_free(gen);
8984
8985 unur_distr_free(distr_localcopy);
8986 } while (0);
8987 }
8988
8989 if(TRUE) {
8990 unur_reset_errno();
8991 do {
8992 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[7]);
8993 {UNUR_DISTR *dg =NULL;
8994 par = unur_srou_new(distr_localcopy);
8995 unur_srou_set_pedantic(par,0);
8996 unur_srou_set_r(par,2.);
8997 fpm[0] = 2.;
8998 fpm[1] = 4.;
8999 gen = unur_init(par);
9000 if (gen) {
9001 dg = unur_get_distr(gen);
9002 unur_distr_cont_set_pdfparams(dg,fpm,2);
9003 unur_distr_cont_upd_pdfarea(dg);
9004 unur_distr_cont_upd_mode(dg);
9005 unur_reinit(gen); }
9006 }
9007 if (gen) unur_srou_chg_verify(gen,1);
9008 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[7],'~')==UNUR_SUCCESS)?0:1000;
9009 unur_free(gen);
9010
9011 unur_distr_free(distr_localcopy);
9012 } while (0);
9013 }
9014
9015 /* distribution [8] */
9016
9017 if(TRUE) {
9018 unur_reset_errno();
9019 do {
9020 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9021 par = unur_srou_new(distr_localcopy);
9022 unur_srou_set_pedantic(par,0);
9023 gen = unur_init(par);
9024 if (gen) unur_srou_chg_verify(gen,1);
9025 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9026 unur_free(gen);
9027
9028 unur_distr_free(distr_localcopy);
9029 } while (0);
9030 }
9031
9032 if(TRUE) {
9033 unur_reset_errno();
9034 do {
9035 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9036 par = unur_srou_new(distr_localcopy);
9037 unur_srou_set_pedantic(par,0);
9038 unur_srou_set_usemirror(par,1);
9039 gen = unur_init(par);
9040 if (gen) unur_srou_chg_verify(gen,1);
9041 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9042 unur_free(gen);
9043
9044 unur_distr_free(distr_localcopy);
9045 } while (0);
9046 }
9047
9048 if(TRUE) {
9049 unur_reset_errno();
9050 do {
9051 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9052 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9053 par = unur_srou_new(distr_localcopy);
9054 unur_srou_set_pedantic(par,0);
9055 unur_srou_set_cdfatmode(par,cdfatmode);
9056 unur_srou_set_usesqueeze(par,1); }
9057 gen = unur_init(par);
9058 if (gen) unur_srou_chg_verify(gen,1);
9059 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9060 unur_free(gen);
9061
9062 unur_distr_free(distr_localcopy);
9063 } while (0);
9064 }
9065
9066 if(TRUE) {
9067 unur_reset_errno();
9068 do {
9069 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9070 {UNUR_DISTR *dg =NULL;
9071 par = unur_srou_new(distr_localcopy);
9072 unur_srou_set_pedantic(par,0);
9073 gen = unur_init(par);
9074 if (gen) {
9075 dg = unur_get_distr(gen);
9076 unur_distr_cont_set_domain(dg,0.9,0.92);
9077 unur_distr_cont_upd_pdfarea(dg);
9078 unur_distr_cont_upd_mode(dg);
9079 unur_reinit(gen); }
9080 }
9081 if (gen) unur_srou_chg_verify(gen,1);
9082 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9083 unur_free(gen);
9084
9085 unur_distr_free(distr_localcopy);
9086 } while (0);
9087 }
9088
9089 if(TRUE) {
9090 unur_reset_errno();
9091 do {
9092 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9093 {UNUR_DISTR *dg =NULL;
9094 par = unur_srou_new(distr_localcopy);
9095 unur_srou_set_pedantic(par,0);
9096 fpm[0] = 2.;
9097 fpm[1] = 4.;
9098 gen = unur_init(par);
9099 if (gen) {
9100 dg = unur_get_distr(gen);
9101 unur_distr_cont_set_pdfparams(dg,fpm,2);
9102 unur_distr_cont_upd_pdfarea(dg);
9103 unur_distr_cont_upd_mode(dg);
9104 unur_reinit(gen); }
9105 }
9106 if (gen) unur_srou_chg_verify(gen,1);
9107 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9108 unur_free(gen);
9109
9110 unur_distr_free(distr_localcopy);
9111 } while (0);
9112 }
9113
9114 if(TRUE) {
9115 unur_reset_errno();
9116 do {
9117 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9118 par = unur_srou_new(distr_localcopy);
9119 unur_srou_set_pedantic(par,0);
9120 unur_srou_set_r(par,1.001);
9121 gen = unur_init(par);
9122 if (gen) unur_srou_chg_verify(gen,1);
9123 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9124 unur_free(gen);
9125
9126 unur_distr_free(distr_localcopy);
9127 } while (0);
9128 }
9129
9130 if(TRUE) {
9131 unur_reset_errno();
9132 do {
9133 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9134 par = unur_srou_new(distr_localcopy);
9135 unur_srou_set_pedantic(par,0);
9136 unur_srou_set_r(par,2.);
9137 gen = unur_init(par);
9138 if (gen) unur_srou_chg_verify(gen,1);
9139 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9140 unur_free(gen);
9141
9142 unur_distr_free(distr_localcopy);
9143 } while (0);
9144 }
9145
9146 if(TRUE) {
9147 unur_reset_errno();
9148 do {
9149 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9150 par = unur_srou_new(distr_localcopy);
9151 unur_srou_set_pedantic(par,0);
9152 unur_srou_set_r(par,10.);
9153 gen = unur_init(par);
9154 if (gen) unur_srou_chg_verify(gen,1);
9155 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9156 unur_free(gen);
9157
9158 unur_distr_free(distr_localcopy);
9159 } while (0);
9160 }
9161
9162 if(TRUE) {
9163 unur_reset_errno();
9164 do {
9165 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9166 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9167 par = unur_srou_new(distr_localcopy);
9168 unur_srou_set_pedantic(par,0);
9169 unur_srou_set_r(par,2.);
9170 unur_srou_set_cdfatmode(par,cdfatmode); }
9171 gen = unur_init(par);
9172 if (gen) unur_srou_chg_verify(gen,1);
9173 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9174 unur_free(gen);
9175
9176 unur_distr_free(distr_localcopy);
9177 } while (0);
9178 }
9179
9180 if(TRUE) {
9181 unur_reset_errno();
9182 do {
9183 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9184 {UNUR_DISTR *dg =NULL;
9185 par = unur_srou_new(distr_localcopy);
9186 unur_srou_set_pedantic(par,0);
9187 unur_srou_set_r(par,2.);
9188 gen = unur_init(par);
9189 if (gen) {
9190 dg = unur_get_distr(gen);
9191 unur_distr_cont_set_domain(dg,0.9,0.95);
9192 unur_distr_cont_upd_pdfarea(dg);
9193 unur_distr_cont_upd_mode(dg);
9194 unur_reinit(gen); }
9195 }
9196 if (gen) unur_srou_chg_verify(gen,1);
9197 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9198 unur_free(gen);
9199
9200 unur_distr_free(distr_localcopy);
9201 } while (0);
9202 }
9203
9204 if(TRUE) {
9205 unur_reset_errno();
9206 do {
9207 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[8]);
9208 {UNUR_DISTR *dg =NULL;
9209 par = unur_srou_new(distr_localcopy);
9210 unur_srou_set_pedantic(par,0);
9211 unur_srou_set_r(par,2.);
9212 fpm[0] = 2.;
9213 fpm[1] = 4.;
9214 gen = unur_init(par);
9215 if (gen) {
9216 dg = unur_get_distr(gen);
9217 unur_distr_cont_set_pdfparams(dg,fpm,2);
9218 unur_distr_cont_upd_pdfarea(dg);
9219 unur_distr_cont_upd_mode(dg);
9220 unur_reinit(gen); }
9221 }
9222 if (gen) unur_srou_chg_verify(gen,1);
9223 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[8],'~')==UNUR_SUCCESS)?0:1000;
9224 unur_free(gen);
9225
9226 unur_distr_free(distr_localcopy);
9227 } while (0);
9228 }
9229
9230 /* distribution [9] */
9231
9232 if(fullcheck) {
9233 unur_reset_errno();
9234 do {
9235 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9236 par = unur_srou_new(distr_localcopy);
9237 unur_srou_set_pedantic(par,0);
9238 gen = unur_init(par);
9239 if (gen) unur_srou_chg_verify(gen,1);
9240 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9241 unur_free(gen);
9242
9243 unur_distr_free(distr_localcopy);
9244 } while (0);
9245 }
9246
9247 if(fullcheck) {
9248 unur_reset_errno();
9249 do {
9250 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9251 par = unur_srou_new(distr_localcopy);
9252 unur_srou_set_pedantic(par,0);
9253 unur_srou_set_usemirror(par,1);
9254 gen = unur_init(par);
9255 if (gen) unur_srou_chg_verify(gen,1);
9256 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9257 unur_free(gen);
9258
9259 unur_distr_free(distr_localcopy);
9260 } while (0);
9261 }
9262
9263 if(fullcheck) {
9264 unur_reset_errno();
9265 do {
9266 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9267 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9268 par = unur_srou_new(distr_localcopy);
9269 unur_srou_set_pedantic(par,0);
9270 unur_srou_set_cdfatmode(par,cdfatmode);
9271 unur_srou_set_usesqueeze(par,1); }
9272 gen = unur_init(par);
9273 if (gen) unur_srou_chg_verify(gen,1);
9274 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9275 unur_free(gen);
9276
9277 unur_distr_free(distr_localcopy);
9278 } while (0);
9279 }
9280
9281 if(fullcheck) {
9282 unur_reset_errno();
9283 do {
9284 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9285 {UNUR_DISTR *dg =NULL;
9286 par = unur_srou_new(distr_localcopy);
9287 unur_srou_set_pedantic(par,0);
9288 gen = unur_init(par);
9289 if (gen) {
9290 dg = unur_get_distr(gen);
9291 unur_distr_cont_set_domain(dg,0.9,0.92);
9292 unur_distr_cont_upd_pdfarea(dg);
9293 unur_distr_cont_upd_mode(dg);
9294 unur_reinit(gen); }
9295 }
9296 if (gen) unur_srou_chg_verify(gen,1);
9297 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9298 unur_free(gen);
9299
9300 unur_distr_free(distr_localcopy);
9301 } while (0);
9302 }
9303
9304 if(fullcheck) {
9305 unur_reset_errno();
9306 do {
9307 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9308 {UNUR_DISTR *dg =NULL;
9309 par = unur_srou_new(distr_localcopy);
9310 unur_srou_set_pedantic(par,0);
9311 fpm[0] = 2.;
9312 fpm[1] = 4.;
9313 gen = unur_init(par);
9314 if (gen) {
9315 dg = unur_get_distr(gen);
9316 unur_distr_cont_set_pdfparams(dg,fpm,2);
9317 unur_distr_cont_upd_pdfarea(dg);
9318 unur_distr_cont_upd_mode(dg);
9319 unur_reinit(gen); }
9320 }
9321 if (gen) unur_srou_chg_verify(gen,1);
9322 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9323 unur_free(gen);
9324
9325 unur_distr_free(distr_localcopy);
9326 } while (0);
9327 }
9328
9329 if(fullcheck) {
9330 unur_reset_errno();
9331 do {
9332 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9333 par = unur_srou_new(distr_localcopy);
9334 unur_srou_set_pedantic(par,0);
9335 unur_srou_set_r(par,1.001);
9336 gen = unur_init(par);
9337 if (gen) unur_srou_chg_verify(gen,1);
9338 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9339 unur_free(gen);
9340
9341 unur_distr_free(distr_localcopy);
9342 } while (0);
9343 }
9344
9345 if(fullcheck) {
9346 unur_reset_errno();
9347 do {
9348 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9349 par = unur_srou_new(distr_localcopy);
9350 unur_srou_set_pedantic(par,0);
9351 unur_srou_set_r(par,2.);
9352 gen = unur_init(par);
9353 if (gen) unur_srou_chg_verify(gen,1);
9354 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9355 unur_free(gen);
9356
9357 unur_distr_free(distr_localcopy);
9358 } while (0);
9359 }
9360
9361 if(fullcheck) {
9362 unur_reset_errno();
9363 do {
9364 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9365 par = unur_srou_new(distr_localcopy);
9366 unur_srou_set_pedantic(par,0);
9367 unur_srou_set_r(par,10.);
9368 gen = unur_init(par);
9369 if (gen) unur_srou_chg_verify(gen,1);
9370 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9371 unur_free(gen);
9372
9373 unur_distr_free(distr_localcopy);
9374 } while (0);
9375 }
9376
9377 if(fullcheck) {
9378 unur_reset_errno();
9379 do {
9380 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9381 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9382 par = unur_srou_new(distr_localcopy);
9383 unur_srou_set_pedantic(par,0);
9384 unur_srou_set_r(par,2.);
9385 unur_srou_set_cdfatmode(par,cdfatmode); }
9386 gen = unur_init(par);
9387 if (gen) unur_srou_chg_verify(gen,1);
9388 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9389 unur_free(gen);
9390
9391 unur_distr_free(distr_localcopy);
9392 } while (0);
9393 }
9394
9395 if(fullcheck) {
9396 unur_reset_errno();
9397 do {
9398 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9399 {UNUR_DISTR *dg =NULL;
9400 par = unur_srou_new(distr_localcopy);
9401 unur_srou_set_pedantic(par,0);
9402 unur_srou_set_r(par,2.);
9403 gen = unur_init(par);
9404 if (gen) {
9405 dg = unur_get_distr(gen);
9406 unur_distr_cont_set_domain(dg,0.9,0.95);
9407 unur_distr_cont_upd_pdfarea(dg);
9408 unur_distr_cont_upd_mode(dg);
9409 unur_reinit(gen); }
9410 }
9411 if (gen) unur_srou_chg_verify(gen,1);
9412 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9413 unur_free(gen);
9414
9415 unur_distr_free(distr_localcopy);
9416 } while (0);
9417 }
9418
9419 if(fullcheck) {
9420 unur_reset_errno();
9421 do {
9422 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[9]);
9423 {UNUR_DISTR *dg =NULL;
9424 par = unur_srou_new(distr_localcopy);
9425 unur_srou_set_pedantic(par,0);
9426 unur_srou_set_r(par,2.);
9427 fpm[0] = 2.;
9428 fpm[1] = 4.;
9429 gen = unur_init(par);
9430 if (gen) {
9431 dg = unur_get_distr(gen);
9432 unur_distr_cont_set_pdfparams(dg,fpm,2);
9433 unur_distr_cont_upd_pdfarea(dg);
9434 unur_distr_cont_upd_mode(dg);
9435 unur_reinit(gen); }
9436 }
9437 if (gen) unur_srou_chg_verify(gen,1);
9438 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[9],'~')==UNUR_SUCCESS)?0:1000;
9439 unur_free(gen);
9440
9441 unur_distr_free(distr_localcopy);
9442 } while (0);
9443 }
9444
9445 /* distribution [10] */
9446
9447 if(TRUE) {
9448 unur_reset_errno();
9449 do {
9450 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9451 par = unur_srou_new(distr_localcopy);
9452 unur_srou_set_pedantic(par,0);
9453 gen = unur_init(par);
9454 if (gen) unur_srou_chg_verify(gen,1);
9455 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9456 unur_free(gen);
9457
9458 unur_distr_free(distr_localcopy);
9459 } while (0);
9460 }
9461
9462 if(TRUE) {
9463 unur_reset_errno();
9464 do {
9465 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9466 par = unur_srou_new(distr_localcopy);
9467 unur_srou_set_pedantic(par,0);
9468 unur_srou_set_usemirror(par,1);
9469 gen = unur_init(par);
9470 if (gen) unur_srou_chg_verify(gen,1);
9471 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9472 unur_free(gen);
9473
9474 unur_distr_free(distr_localcopy);
9475 } while (0);
9476 }
9477
9478 if(TRUE) {
9479 unur_reset_errno();
9480 do {
9481 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9482 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9483 par = unur_srou_new(distr_localcopy);
9484 unur_srou_set_pedantic(par,0);
9485 unur_srou_set_cdfatmode(par,cdfatmode);
9486 unur_srou_set_usesqueeze(par,1); }
9487 gen = unur_init(par);
9488 if (gen) unur_srou_chg_verify(gen,1);
9489 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9490 unur_free(gen);
9491
9492 unur_distr_free(distr_localcopy);
9493 } while (0);
9494 }
9495
9496 if(TRUE) {
9497 unur_reset_errno();
9498 do {
9499 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9500 {UNUR_DISTR *dg =NULL;
9501 par = unur_srou_new(distr_localcopy);
9502 unur_srou_set_pedantic(par,0);
9503 gen = unur_init(par);
9504 if (gen) {
9505 dg = unur_get_distr(gen);
9506 unur_distr_cont_set_domain(dg,0.9,0.92);
9507 unur_distr_cont_upd_pdfarea(dg);
9508 unur_distr_cont_upd_mode(dg);
9509 unur_reinit(gen); }
9510 }
9511 if (gen) unur_srou_chg_verify(gen,1);
9512 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9513 unur_free(gen);
9514
9515 unur_distr_free(distr_localcopy);
9516 } while (0);
9517 }
9518
9519 if(TRUE) {
9520 unur_reset_errno();
9521 do {
9522 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9523 {UNUR_DISTR *dg =NULL;
9524 par = unur_srou_new(distr_localcopy);
9525 unur_srou_set_pedantic(par,0);
9526 fpm[0] = 2.;
9527 fpm[1] = 4.;
9528 gen = unur_init(par);
9529 if (gen) {
9530 dg = unur_get_distr(gen);
9531 unur_distr_cont_set_pdfparams(dg,fpm,2);
9532 unur_distr_cont_upd_pdfarea(dg);
9533 unur_distr_cont_upd_mode(dg);
9534 unur_reinit(gen); }
9535 }
9536 if (gen) unur_srou_chg_verify(gen,1);
9537 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9538 unur_free(gen);
9539
9540 unur_distr_free(distr_localcopy);
9541 } while (0);
9542 }
9543
9544 if(TRUE) {
9545 unur_reset_errno();
9546 do {
9547 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9548 par = unur_srou_new(distr_localcopy);
9549 unur_srou_set_pedantic(par,0);
9550 unur_srou_set_r(par,1.001);
9551 gen = unur_init(par);
9552 if (gen) unur_srou_chg_verify(gen,1);
9553 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9554 unur_free(gen);
9555
9556 unur_distr_free(distr_localcopy);
9557 } while (0);
9558 }
9559
9560 if(TRUE) {
9561 unur_reset_errno();
9562 do {
9563 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9564 par = unur_srou_new(distr_localcopy);
9565 unur_srou_set_pedantic(par,0);
9566 unur_srou_set_r(par,2.);
9567 gen = unur_init(par);
9568 if (gen) unur_srou_chg_verify(gen,1);
9569 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9570 unur_free(gen);
9571
9572 unur_distr_free(distr_localcopy);
9573 } while (0);
9574 }
9575
9576 if(TRUE) {
9577 unur_reset_errno();
9578 do {
9579 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9580 par = unur_srou_new(distr_localcopy);
9581 unur_srou_set_pedantic(par,0);
9582 unur_srou_set_r(par,10.);
9583 gen = unur_init(par);
9584 if (gen) unur_srou_chg_verify(gen,1);
9585 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9586 unur_free(gen);
9587
9588 unur_distr_free(distr_localcopy);
9589 } while (0);
9590 }
9591
9592 if(TRUE) {
9593 unur_reset_errno();
9594 do {
9595 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9596 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9597 par = unur_srou_new(distr_localcopy);
9598 unur_srou_set_pedantic(par,0);
9599 unur_srou_set_r(par,2.);
9600 unur_srou_set_cdfatmode(par,cdfatmode); }
9601 gen = unur_init(par);
9602 if (gen) unur_srou_chg_verify(gen,1);
9603 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9604 unur_free(gen);
9605
9606 unur_distr_free(distr_localcopy);
9607 } while (0);
9608 }
9609
9610 if(TRUE) {
9611 unur_reset_errno();
9612 do {
9613 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9614 {UNUR_DISTR *dg =NULL;
9615 par = unur_srou_new(distr_localcopy);
9616 unur_srou_set_pedantic(par,0);
9617 unur_srou_set_r(par,2.);
9618 gen = unur_init(par);
9619 if (gen) {
9620 dg = unur_get_distr(gen);
9621 unur_distr_cont_set_domain(dg,0.9,0.95);
9622 unur_distr_cont_upd_pdfarea(dg);
9623 unur_distr_cont_upd_mode(dg);
9624 unur_reinit(gen); }
9625 }
9626 if (gen) unur_srou_chg_verify(gen,1);
9627 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9628 unur_free(gen);
9629
9630 unur_distr_free(distr_localcopy);
9631 } while (0);
9632 }
9633
9634 if(TRUE) {
9635 unur_reset_errno();
9636 do {
9637 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[10]);
9638 {UNUR_DISTR *dg =NULL;
9639 par = unur_srou_new(distr_localcopy);
9640 unur_srou_set_pedantic(par,0);
9641 unur_srou_set_r(par,2.);
9642 fpm[0] = 2.;
9643 fpm[1] = 4.;
9644 gen = unur_init(par);
9645 if (gen) {
9646 dg = unur_get_distr(gen);
9647 unur_distr_cont_set_pdfparams(dg,fpm,2);
9648 unur_distr_cont_upd_pdfarea(dg);
9649 unur_distr_cont_upd_mode(dg);
9650 unur_reinit(gen); }
9651 }
9652 if (gen) unur_srou_chg_verify(gen,1);
9653 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[10],'~')==UNUR_SUCCESS)?0:1000;
9654 unur_free(gen);
9655
9656 unur_distr_free(distr_localcopy);
9657 } while (0);
9658 }
9659
9660 /* distribution [11] */
9661
9662 if(TRUE) {
9663 unur_reset_errno();
9664 do {
9665 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9666 par = unur_srou_new(distr_localcopy);
9667 unur_srou_set_pedantic(par,0);
9668 gen = unur_init(par);
9669 if (gen) unur_srou_chg_verify(gen,1);
9670 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9671 unur_free(gen);
9672
9673 unur_distr_free(distr_localcopy);
9674 } while (0);
9675 }
9676
9677 if(TRUE) {
9678 unur_reset_errno();
9679 do {
9680 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9681 par = unur_srou_new(distr_localcopy);
9682 unur_srou_set_pedantic(par,0);
9683 unur_srou_set_usemirror(par,1);
9684 gen = unur_init(par);
9685 if (gen) unur_srou_chg_verify(gen,1);
9686 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9687 unur_free(gen);
9688
9689 unur_distr_free(distr_localcopy);
9690 } while (0);
9691 }
9692
9693 if(TRUE) {
9694 unur_reset_errno();
9695 do {
9696 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9697 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9698 par = unur_srou_new(distr_localcopy);
9699 unur_srou_set_pedantic(par,0);
9700 unur_srou_set_cdfatmode(par,cdfatmode);
9701 unur_srou_set_usesqueeze(par,1); }
9702 gen = unur_init(par);
9703 if (gen) unur_srou_chg_verify(gen,1);
9704 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9705 unur_free(gen);
9706
9707 unur_distr_free(distr_localcopy);
9708 } while (0);
9709 }
9710
9711 if(TRUE) {
9712 unur_reset_errno();
9713 do {
9714 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9715 {UNUR_DISTR *dg =NULL;
9716 par = unur_srou_new(distr_localcopy);
9717 unur_srou_set_pedantic(par,0);
9718 gen = unur_init(par);
9719 if (gen) {
9720 dg = unur_get_distr(gen);
9721 unur_distr_cont_set_domain(dg,0.9,0.92);
9722 unur_distr_cont_upd_pdfarea(dg);
9723 unur_distr_cont_upd_mode(dg);
9724 unur_reinit(gen); }
9725 }
9726 if (gen) unur_srou_chg_verify(gen,1);
9727 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9728 unur_free(gen);
9729
9730 unur_distr_free(distr_localcopy);
9731 } while (0);
9732 }
9733
9734 if(TRUE) {
9735 unur_reset_errno();
9736 do {
9737 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9738 {UNUR_DISTR *dg =NULL;
9739 par = unur_srou_new(distr_localcopy);
9740 unur_srou_set_pedantic(par,0);
9741 fpm[0] = 2.;
9742 fpm[1] = 4.;
9743 gen = unur_init(par);
9744 if (gen) {
9745 dg = unur_get_distr(gen);
9746 unur_distr_cont_set_pdfparams(dg,fpm,2);
9747 unur_distr_cont_upd_pdfarea(dg);
9748 unur_distr_cont_upd_mode(dg);
9749 unur_reinit(gen); }
9750 }
9751 if (gen) unur_srou_chg_verify(gen,1);
9752 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9753 unur_free(gen);
9754
9755 unur_distr_free(distr_localcopy);
9756 } while (0);
9757 }
9758
9759 if(TRUE) {
9760 unur_reset_errno();
9761 do {
9762 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9763 par = unur_srou_new(distr_localcopy);
9764 unur_srou_set_pedantic(par,0);
9765 unur_srou_set_r(par,1.001);
9766 gen = unur_init(par);
9767 if (gen) unur_srou_chg_verify(gen,1);
9768 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9769 unur_free(gen);
9770
9771 unur_distr_free(distr_localcopy);
9772 } while (0);
9773 }
9774
9775 if(TRUE) {
9776 unur_reset_errno();
9777 do {
9778 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9779 par = unur_srou_new(distr_localcopy);
9780 unur_srou_set_pedantic(par,0);
9781 unur_srou_set_r(par,2.);
9782 gen = unur_init(par);
9783 if (gen) unur_srou_chg_verify(gen,1);
9784 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9785 unur_free(gen);
9786
9787 unur_distr_free(distr_localcopy);
9788 } while (0);
9789 }
9790
9791 if(TRUE) {
9792 unur_reset_errno();
9793 do {
9794 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9795 par = unur_srou_new(distr_localcopy);
9796 unur_srou_set_pedantic(par,0);
9797 unur_srou_set_r(par,10.);
9798 gen = unur_init(par);
9799 if (gen) unur_srou_chg_verify(gen,1);
9800 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9801 unur_free(gen);
9802
9803 unur_distr_free(distr_localcopy);
9804 } while (0);
9805 }
9806
9807 if(TRUE) {
9808 unur_reset_errno();
9809 do {
9810 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9811 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9812 par = unur_srou_new(distr_localcopy);
9813 unur_srou_set_pedantic(par,0);
9814 unur_srou_set_r(par,2.);
9815 unur_srou_set_cdfatmode(par,cdfatmode); }
9816 gen = unur_init(par);
9817 if (gen) unur_srou_chg_verify(gen,1);
9818 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9819 unur_free(gen);
9820
9821 unur_distr_free(distr_localcopy);
9822 } while (0);
9823 }
9824
9825 if(TRUE) {
9826 unur_reset_errno();
9827 do {
9828 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9829 {UNUR_DISTR *dg =NULL;
9830 par = unur_srou_new(distr_localcopy);
9831 unur_srou_set_pedantic(par,0);
9832 unur_srou_set_r(par,2.);
9833 gen = unur_init(par);
9834 if (gen) {
9835 dg = unur_get_distr(gen);
9836 unur_distr_cont_set_domain(dg,0.9,0.95);
9837 unur_distr_cont_upd_pdfarea(dg);
9838 unur_distr_cont_upd_mode(dg);
9839 unur_reinit(gen); }
9840 }
9841 if (gen) unur_srou_chg_verify(gen,1);
9842 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9843 unur_free(gen);
9844
9845 unur_distr_free(distr_localcopy);
9846 } while (0);
9847 }
9848
9849 if(TRUE) {
9850 unur_reset_errno();
9851 do {
9852 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[11]);
9853 {UNUR_DISTR *dg =NULL;
9854 par = unur_srou_new(distr_localcopy);
9855 unur_srou_set_pedantic(par,0);
9856 unur_srou_set_r(par,2.);
9857 fpm[0] = 2.;
9858 fpm[1] = 4.;
9859 gen = unur_init(par);
9860 if (gen) {
9861 dg = unur_get_distr(gen);
9862 unur_distr_cont_set_pdfparams(dg,fpm,2);
9863 unur_distr_cont_upd_pdfarea(dg);
9864 unur_distr_cont_upd_mode(dg);
9865 unur_reinit(gen); }
9866 }
9867 if (gen) unur_srou_chg_verify(gen,1);
9868 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[11],'~')==UNUR_SUCCESS)?0:1000;
9869 unur_free(gen);
9870
9871 unur_distr_free(distr_localcopy);
9872 } while (0);
9873 }
9874
9875 /* distribution [12] */
9876
9877 if(TRUE) {
9878 unur_reset_errno();
9879 do {
9880 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9881 par = unur_srou_new(distr_localcopy);
9882 unur_srou_set_pedantic(par,0);
9883 gen = unur_init(par);
9884 if (gen) unur_srou_chg_verify(gen,1);
9885 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
9886 unur_free(gen);
9887
9888 unur_distr_free(distr_localcopy);
9889 } while (0);
9890 }
9891
9892 if(TRUE) {
9893 unur_reset_errno();
9894 do {
9895 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9896 par = unur_srou_new(distr_localcopy);
9897 unur_srou_set_pedantic(par,0);
9898 unur_srou_set_usemirror(par,1);
9899 gen = unur_init(par);
9900 if (gen) unur_srou_chg_verify(gen,1);
9901 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
9902 unur_free(gen);
9903
9904 unur_distr_free(distr_localcopy);
9905 } while (0);
9906 }
9907
9908 if(TRUE) {
9909 unur_reset_errno();
9910 do {
9911 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9912 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
9913 par = unur_srou_new(distr_localcopy);
9914 unur_srou_set_pedantic(par,0);
9915 unur_srou_set_cdfatmode(par,cdfatmode);
9916 unur_srou_set_usesqueeze(par,1); }
9917 gen = unur_init(par);
9918 if (gen) unur_srou_chg_verify(gen,1);
9919 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
9920 unur_free(gen);
9921
9922 unur_distr_free(distr_localcopy);
9923 } while (0);
9924 }
9925
9926 if(TRUE) {
9927 unur_reset_errno();
9928 do {
9929 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9930 {UNUR_DISTR *dg =NULL;
9931 par = unur_srou_new(distr_localcopy);
9932 unur_srou_set_pedantic(par,0);
9933 gen = unur_init(par);
9934 if (gen) {
9935 dg = unur_get_distr(gen);
9936 unur_distr_cont_set_domain(dg,0.9,0.92);
9937 unur_distr_cont_upd_pdfarea(dg);
9938 unur_distr_cont_upd_mode(dg);
9939 unur_reinit(gen); }
9940 }
9941 if (gen) unur_srou_chg_verify(gen,1);
9942 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
9943 unur_free(gen);
9944
9945 unur_distr_free(distr_localcopy);
9946 } while (0);
9947 }
9948
9949 if(TRUE) {
9950 unur_reset_errno();
9951 do {
9952 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9953 {UNUR_DISTR *dg =NULL;
9954 par = unur_srou_new(distr_localcopy);
9955 unur_srou_set_pedantic(par,0);
9956 fpm[0] = 2.;
9957 fpm[1] = 4.;
9958 gen = unur_init(par);
9959 if (gen) {
9960 dg = unur_get_distr(gen);
9961 unur_distr_cont_set_pdfparams(dg,fpm,2);
9962 unur_distr_cont_upd_pdfarea(dg);
9963 unur_distr_cont_upd_mode(dg);
9964 unur_reinit(gen); }
9965 }
9966 if (gen) unur_srou_chg_verify(gen,1);
9967 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
9968 unur_free(gen);
9969
9970 unur_distr_free(distr_localcopy);
9971 } while (0);
9972 }
9973
9974 if(TRUE) {
9975 unur_reset_errno();
9976 do {
9977 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9978 par = unur_srou_new(distr_localcopy);
9979 unur_srou_set_pedantic(par,0);
9980 unur_srou_set_r(par,1.001);
9981 gen = unur_init(par);
9982 if (gen) unur_srou_chg_verify(gen,1);
9983 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
9984 unur_free(gen);
9985
9986 unur_distr_free(distr_localcopy);
9987 } while (0);
9988 }
9989
9990 if(TRUE) {
9991 unur_reset_errno();
9992 do {
9993 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
9994 par = unur_srou_new(distr_localcopy);
9995 unur_srou_set_pedantic(par,0);
9996 unur_srou_set_r(par,2.);
9997 gen = unur_init(par);
9998 if (gen) unur_srou_chg_verify(gen,1);
9999 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
10000 unur_free(gen);
10001
10002 unur_distr_free(distr_localcopy);
10003 } while (0);
10004 }
10005
10006 if(TRUE) {
10007 unur_reset_errno();
10008 do {
10009 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
10010 par = unur_srou_new(distr_localcopy);
10011 unur_srou_set_pedantic(par,0);
10012 unur_srou_set_r(par,10.);
10013 gen = unur_init(par);
10014 if (gen) unur_srou_chg_verify(gen,1);
10015 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
10016 unur_free(gen);
10017
10018 unur_distr_free(distr_localcopy);
10019 } while (0);
10020 }
10021
10022 if(TRUE) {
10023 unur_reset_errno();
10024 do {
10025 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
10026 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10027 par = unur_srou_new(distr_localcopy);
10028 unur_srou_set_pedantic(par,0);
10029 unur_srou_set_r(par,2.);
10030 unur_srou_set_cdfatmode(par,cdfatmode); }
10031 gen = unur_init(par);
10032 if (gen) unur_srou_chg_verify(gen,1);
10033 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
10034 unur_free(gen);
10035
10036 unur_distr_free(distr_localcopy);
10037 } while (0);
10038 }
10039
10040 if(TRUE) {
10041 unur_reset_errno();
10042 do {
10043 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
10044 {UNUR_DISTR *dg =NULL;
10045 par = unur_srou_new(distr_localcopy);
10046 unur_srou_set_pedantic(par,0);
10047 unur_srou_set_r(par,2.);
10048 gen = unur_init(par);
10049 if (gen) {
10050 dg = unur_get_distr(gen);
10051 unur_distr_cont_set_domain(dg,0.9,0.95);
10052 unur_distr_cont_upd_pdfarea(dg);
10053 unur_distr_cont_upd_mode(dg);
10054 unur_reinit(gen); }
10055 }
10056 if (gen) unur_srou_chg_verify(gen,1);
10057 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
10058 unur_free(gen);
10059
10060 unur_distr_free(distr_localcopy);
10061 } while (0);
10062 }
10063
10064 if(TRUE) {
10065 unur_reset_errno();
10066 do {
10067 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[12]);
10068 {UNUR_DISTR *dg =NULL;
10069 par = unur_srou_new(distr_localcopy);
10070 unur_srou_set_pedantic(par,0);
10071 unur_srou_set_r(par,2.);
10072 fpm[0] = 2.;
10073 fpm[1] = 4.;
10074 gen = unur_init(par);
10075 if (gen) {
10076 dg = unur_get_distr(gen);
10077 unur_distr_cont_set_pdfparams(dg,fpm,2);
10078 unur_distr_cont_upd_pdfarea(dg);
10079 unur_distr_cont_upd_mode(dg);
10080 unur_reinit(gen); }
10081 }
10082 if (gen) unur_srou_chg_verify(gen,1);
10083 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[12],'~')==UNUR_SUCCESS)?0:1000;
10084 unur_free(gen);
10085
10086 unur_distr_free(distr_localcopy);
10087 } while (0);
10088 }
10089
10090 /* distribution [13] */
10091
10092 if(fullcheck) {
10093 unur_reset_errno();
10094 do {
10095 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10096 par = unur_srou_new(distr_localcopy);
10097 unur_srou_set_pedantic(par,0);
10098 gen = unur_init(par);
10099 if (gen) unur_srou_chg_verify(gen,1);
10100 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10101 unur_free(gen);
10102
10103 unur_distr_free(distr_localcopy);
10104 } while (0);
10105 }
10106
10107 if(fullcheck) {
10108 unur_reset_errno();
10109 do {
10110 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10111 par = unur_srou_new(distr_localcopy);
10112 unur_srou_set_pedantic(par,0);
10113 unur_srou_set_usemirror(par,1);
10114 gen = unur_init(par);
10115 if (gen) unur_srou_chg_verify(gen,1);
10116 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10117 unur_free(gen);
10118
10119 unur_distr_free(distr_localcopy);
10120 } while (0);
10121 }
10122
10123 if(fullcheck) {
10124 unur_reset_errno();
10125 do {
10126 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10127 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10128 par = unur_srou_new(distr_localcopy);
10129 unur_srou_set_pedantic(par,0);
10130 unur_srou_set_cdfatmode(par,cdfatmode);
10131 unur_srou_set_usesqueeze(par,1); }
10132 gen = unur_init(par);
10133 if (gen) unur_srou_chg_verify(gen,1);
10134 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10135 unur_free(gen);
10136
10137 unur_distr_free(distr_localcopy);
10138 } while (0);
10139 }
10140
10141 if(fullcheck) {
10142 printf("."); fflush(stdout);
10143 }
10144
10145 if(fullcheck) {
10146 unur_reset_errno();
10147 do {
10148 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10149 {UNUR_DISTR *dg =NULL;
10150 par = unur_srou_new(distr_localcopy);
10151 unur_srou_set_pedantic(par,0);
10152 fpm[0] = 2.;
10153 fpm[1] = 4.;
10154 gen = unur_init(par);
10155 if (gen) {
10156 dg = unur_get_distr(gen);
10157 unur_distr_cont_set_pdfparams(dg,fpm,2);
10158 unur_distr_cont_upd_pdfarea(dg);
10159 unur_distr_cont_upd_mode(dg);
10160 unur_reinit(gen); }
10161 }
10162 if (gen) unur_srou_chg_verify(gen,1);
10163 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10164 unur_free(gen);
10165
10166 unur_distr_free(distr_localcopy);
10167 } while (0);
10168 }
10169
10170 if(fullcheck) {
10171 unur_reset_errno();
10172 do {
10173 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10174 par = unur_srou_new(distr_localcopy);
10175 unur_srou_set_pedantic(par,0);
10176 unur_srou_set_r(par,1.001);
10177 gen = unur_init(par);
10178 if (gen) unur_srou_chg_verify(gen,1);
10179 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10180 unur_free(gen);
10181
10182 unur_distr_free(distr_localcopy);
10183 } while (0);
10184 }
10185
10186 if(fullcheck) {
10187 unur_reset_errno();
10188 do {
10189 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10190 par = unur_srou_new(distr_localcopy);
10191 unur_srou_set_pedantic(par,0);
10192 unur_srou_set_r(par,2.);
10193 gen = unur_init(par);
10194 if (gen) unur_srou_chg_verify(gen,1);
10195 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10196 unur_free(gen);
10197
10198 unur_distr_free(distr_localcopy);
10199 } while (0);
10200 }
10201
10202 if(fullcheck) {
10203 unur_reset_errno();
10204 do {
10205 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10206 par = unur_srou_new(distr_localcopy);
10207 unur_srou_set_pedantic(par,0);
10208 unur_srou_set_r(par,10.);
10209 gen = unur_init(par);
10210 if (gen) unur_srou_chg_verify(gen,1);
10211 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10212 unur_free(gen);
10213
10214 unur_distr_free(distr_localcopy);
10215 } while (0);
10216 }
10217
10218 if(fullcheck) {
10219 unur_reset_errno();
10220 do {
10221 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10222 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10223 par = unur_srou_new(distr_localcopy);
10224 unur_srou_set_pedantic(par,0);
10225 unur_srou_set_r(par,2.);
10226 unur_srou_set_cdfatmode(par,cdfatmode); }
10227 gen = unur_init(par);
10228 if (gen) unur_srou_chg_verify(gen,1);
10229 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10230 unur_free(gen);
10231
10232 unur_distr_free(distr_localcopy);
10233 } while (0);
10234 }
10235
10236 if(fullcheck) {
10237 printf("."); fflush(stdout);
10238 }
10239
10240 if(fullcheck) {
10241 unur_reset_errno();
10242 do {
10243 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[13]);
10244 {UNUR_DISTR *dg =NULL;
10245 par = unur_srou_new(distr_localcopy);
10246 unur_srou_set_pedantic(par,0);
10247 unur_srou_set_r(par,2.);
10248 fpm[0] = 2.;
10249 fpm[1] = 4.;
10250 gen = unur_init(par);
10251 if (gen) {
10252 dg = unur_get_distr(gen);
10253 unur_distr_cont_set_pdfparams(dg,fpm,2);
10254 unur_distr_cont_upd_pdfarea(dg);
10255 unur_distr_cont_upd_mode(dg);
10256 unur_reinit(gen); }
10257 }
10258 if (gen) unur_srou_chg_verify(gen,1);
10259 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[13],'~')==UNUR_SUCCESS)?0:1000;
10260 unur_free(gen);
10261
10262 unur_distr_free(distr_localcopy);
10263 } while (0);
10264 }
10265
10266 /* distribution [29] */
10267
10268 if(TRUE) {
10269 unur_reset_errno();
10270 do {
10271 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10272 par = unur_srou_new(distr_localcopy);
10273 unur_srou_set_pedantic(par,0);
10274 gen = unur_init(par);
10275 if (gen) unur_srou_chg_verify(gen,1);
10276 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10277 unur_free(gen);
10278
10279 unur_distr_free(distr_localcopy);
10280 } while (0);
10281 }
10282
10283 if(TRUE) {
10284 unur_reset_errno();
10285 do {
10286 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10287 par = unur_srou_new(distr_localcopy);
10288 unur_srou_set_pedantic(par,0);
10289 unur_srou_set_usemirror(par,1);
10290 gen = unur_init(par);
10291 if (gen) unur_srou_chg_verify(gen,1);
10292 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10293 unur_free(gen);
10294
10295 unur_distr_free(distr_localcopy);
10296 } while (0);
10297 }
10298
10299 if(TRUE) {
10300 unur_reset_errno();
10301 do {
10302 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10303 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10304 par = unur_srou_new(distr_localcopy);
10305 unur_srou_set_pedantic(par,0);
10306 unur_srou_set_cdfatmode(par,cdfatmode);
10307 unur_srou_set_usesqueeze(par,1); }
10308 gen = unur_init(par);
10309 if (gen) unur_srou_chg_verify(gen,1);
10310 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10311 unur_free(gen);
10312
10313 unur_distr_free(distr_localcopy);
10314 } while (0);
10315 }
10316
10317 if(TRUE) {
10318 unur_reset_errno();
10319 do {
10320 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10321 {UNUR_DISTR *dg =NULL;
10322 par = unur_srou_new(distr_localcopy);
10323 unur_srou_set_pedantic(par,0);
10324 gen = unur_init(par);
10325 if (gen) {
10326 dg = unur_get_distr(gen);
10327 unur_distr_cont_set_domain(dg,0.9,0.92);
10328 unur_distr_cont_upd_pdfarea(dg);
10329 unur_distr_cont_upd_mode(dg);
10330 unur_reinit(gen); }
10331 }
10332 if (gen) unur_srou_chg_verify(gen,1);
10333 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10334 unur_free(gen);
10335
10336 unur_distr_free(distr_localcopy);
10337 } while (0);
10338 }
10339
10340 if(TRUE) {
10341 unur_reset_errno();
10342 do {
10343 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10344 {UNUR_DISTR *dg =NULL;
10345 par = unur_srou_new(distr_localcopy);
10346 unur_srou_set_pedantic(par,0);
10347 fpm[0] = 2.;
10348 fpm[1] = 4.;
10349 gen = unur_init(par);
10350 if (gen) {
10351 dg = unur_get_distr(gen);
10352 unur_distr_cont_set_pdfparams(dg,fpm,2);
10353 unur_distr_cont_upd_pdfarea(dg);
10354 unur_distr_cont_upd_mode(dg);
10355 unur_reinit(gen); }
10356 }
10357 if (gen) unur_srou_chg_verify(gen,1);
10358 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10359 unur_free(gen);
10360
10361 unur_distr_free(distr_localcopy);
10362 } while (0);
10363 }
10364
10365 if(TRUE) {
10366 unur_reset_errno();
10367 do {
10368 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10369 par = unur_srou_new(distr_localcopy);
10370 unur_srou_set_pedantic(par,0);
10371 unur_srou_set_r(par,1.001);
10372 gen = unur_init(par);
10373 if (gen) unur_srou_chg_verify(gen,1);
10374 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10375 unur_free(gen);
10376
10377 unur_distr_free(distr_localcopy);
10378 } while (0);
10379 }
10380
10381 if(TRUE) {
10382 unur_reset_errno();
10383 do {
10384 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10385 par = unur_srou_new(distr_localcopy);
10386 unur_srou_set_pedantic(par,0);
10387 unur_srou_set_r(par,2.);
10388 gen = unur_init(par);
10389 if (gen) unur_srou_chg_verify(gen,1);
10390 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10391 unur_free(gen);
10392
10393 unur_distr_free(distr_localcopy);
10394 } while (0);
10395 }
10396
10397 if(TRUE) {
10398 unur_reset_errno();
10399 do {
10400 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10401 par = unur_srou_new(distr_localcopy);
10402 unur_srou_set_pedantic(par,0);
10403 unur_srou_set_r(par,10.);
10404 gen = unur_init(par);
10405 if (gen) unur_srou_chg_verify(gen,1);
10406 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10407 unur_free(gen);
10408
10409 unur_distr_free(distr_localcopy);
10410 } while (0);
10411 }
10412
10413 if(TRUE) {
10414 unur_reset_errno();
10415 do {
10416 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10417 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10418 par = unur_srou_new(distr_localcopy);
10419 unur_srou_set_pedantic(par,0);
10420 unur_srou_set_r(par,2.);
10421 unur_srou_set_cdfatmode(par,cdfatmode); }
10422 gen = unur_init(par);
10423 if (gen) unur_srou_chg_verify(gen,1);
10424 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10425 unur_free(gen);
10426
10427 unur_distr_free(distr_localcopy);
10428 } while (0);
10429 }
10430
10431 if(TRUE) {
10432 unur_reset_errno();
10433 do {
10434 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10435 {UNUR_DISTR *dg =NULL;
10436 par = unur_srou_new(distr_localcopy);
10437 unur_srou_set_pedantic(par,0);
10438 unur_srou_set_r(par,2.);
10439 gen = unur_init(par);
10440 if (gen) {
10441 dg = unur_get_distr(gen);
10442 unur_distr_cont_set_domain(dg,0.9,0.95);
10443 unur_distr_cont_upd_pdfarea(dg);
10444 unur_distr_cont_upd_mode(dg);
10445 unur_reinit(gen); }
10446 }
10447 if (gen) unur_srou_chg_verify(gen,1);
10448 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10449 unur_free(gen);
10450
10451 unur_distr_free(distr_localcopy);
10452 } while (0);
10453 }
10454
10455 if(TRUE) {
10456 unur_reset_errno();
10457 do {
10458 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[29]);
10459 {UNUR_DISTR *dg =NULL;
10460 par = unur_srou_new(distr_localcopy);
10461 unur_srou_set_pedantic(par,0);
10462 unur_srou_set_r(par,2.);
10463 fpm[0] = 2.;
10464 fpm[1] = 4.;
10465 gen = unur_init(par);
10466 if (gen) {
10467 dg = unur_get_distr(gen);
10468 unur_distr_cont_set_pdfparams(dg,fpm,2);
10469 unur_distr_cont_upd_pdfarea(dg);
10470 unur_distr_cont_upd_mode(dg);
10471 unur_reinit(gen); }
10472 }
10473 if (gen) unur_srou_chg_verify(gen,1);
10474 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[29],'~')==UNUR_SUCCESS)?0:1000;
10475 unur_free(gen);
10476
10477 unur_distr_free(distr_localcopy);
10478 } while (0);
10479 }
10480
10481 /* distribution [14] */
10482
10483 if(TRUE) {
10484 unur_reset_errno();
10485 do {
10486 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10487 par = unur_srou_new(distr_localcopy);
10488 unur_srou_set_pedantic(par,0);
10489 gen = unur_init(par);
10490 if (gen) unur_srou_chg_verify(gen,1);
10491 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10492 unur_free(gen);
10493
10494 unur_distr_free(distr_localcopy);
10495 } while (0);
10496 }
10497
10498 if(TRUE) {
10499 unur_reset_errno();
10500 do {
10501 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10502 par = unur_srou_new(distr_localcopy);
10503 unur_srou_set_pedantic(par,0);
10504 unur_srou_set_usemirror(par,1);
10505 gen = unur_init(par);
10506 if (gen) unur_srou_chg_verify(gen,1);
10507 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10508 unur_free(gen);
10509
10510 unur_distr_free(distr_localcopy);
10511 } while (0);
10512 }
10513
10514 if(TRUE) {
10515 unur_reset_errno();
10516 do {
10517 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10518 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10519 par = unur_srou_new(distr_localcopy);
10520 unur_srou_set_pedantic(par,0);
10521 unur_srou_set_cdfatmode(par,cdfatmode);
10522 unur_srou_set_usesqueeze(par,1); }
10523 gen = unur_init(par);
10524 if (gen) unur_srou_chg_verify(gen,1);
10525 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10526 unur_free(gen);
10527
10528 unur_distr_free(distr_localcopy);
10529 } while (0);
10530 }
10531
10532 if(TRUE) {
10533 unur_reset_errno();
10534 do {
10535 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10536 {UNUR_DISTR *dg =NULL;
10537 par = unur_srou_new(distr_localcopy);
10538 unur_srou_set_pedantic(par,0);
10539 gen = unur_init(par);
10540 if (gen) {
10541 dg = unur_get_distr(gen);
10542 unur_distr_cont_set_domain(dg,0.9,0.92);
10543 unur_distr_cont_upd_pdfarea(dg);
10544 unur_distr_cont_upd_mode(dg);
10545 unur_reinit(gen); }
10546 }
10547 if (gen) unur_srou_chg_verify(gen,1);
10548 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10549 unur_free(gen);
10550
10551 unur_distr_free(distr_localcopy);
10552 } while (0);
10553 }
10554
10555 if(TRUE) {
10556 unur_reset_errno();
10557 do {
10558 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10559 {UNUR_DISTR *dg =NULL;
10560 par = unur_srou_new(distr_localcopy);
10561 unur_srou_set_pedantic(par,0);
10562 fpm[0] = 2.;
10563 fpm[1] = 4.;
10564 gen = unur_init(par);
10565 if (gen) {
10566 dg = unur_get_distr(gen);
10567 unur_distr_cont_set_pdfparams(dg,fpm,2);
10568 unur_distr_cont_upd_pdfarea(dg);
10569 unur_distr_cont_upd_mode(dg);
10570 unur_reinit(gen); }
10571 }
10572 if (gen) unur_srou_chg_verify(gen,1);
10573 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10574 unur_free(gen);
10575
10576 unur_distr_free(distr_localcopy);
10577 } while (0);
10578 }
10579
10580 if(TRUE) {
10581 unur_reset_errno();
10582 do {
10583 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10584 par = unur_srou_new(distr_localcopy);
10585 unur_srou_set_pedantic(par,0);
10586 unur_srou_set_r(par,1.001);
10587 gen = unur_init(par);
10588 if (gen) unur_srou_chg_verify(gen,1);
10589 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10590 unur_free(gen);
10591
10592 unur_distr_free(distr_localcopy);
10593 } while (0);
10594 }
10595
10596 if(TRUE) {
10597 unur_reset_errno();
10598 do {
10599 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10600 par = unur_srou_new(distr_localcopy);
10601 unur_srou_set_pedantic(par,0);
10602 unur_srou_set_r(par,2.);
10603 gen = unur_init(par);
10604 if (gen) unur_srou_chg_verify(gen,1);
10605 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10606 unur_free(gen);
10607
10608 unur_distr_free(distr_localcopy);
10609 } while (0);
10610 }
10611
10612 if(TRUE) {
10613 unur_reset_errno();
10614 do {
10615 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10616 par = unur_srou_new(distr_localcopy);
10617 unur_srou_set_pedantic(par,0);
10618 unur_srou_set_r(par,10.);
10619 gen = unur_init(par);
10620 if (gen) unur_srou_chg_verify(gen,1);
10621 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10622 unur_free(gen);
10623
10624 unur_distr_free(distr_localcopy);
10625 } while (0);
10626 }
10627
10628 if(TRUE) {
10629 unur_reset_errno();
10630 do {
10631 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10632 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10633 par = unur_srou_new(distr_localcopy);
10634 unur_srou_set_pedantic(par,0);
10635 unur_srou_set_r(par,2.);
10636 unur_srou_set_cdfatmode(par,cdfatmode); }
10637 gen = unur_init(par);
10638 if (gen) unur_srou_chg_verify(gen,1);
10639 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10640 unur_free(gen);
10641
10642 unur_distr_free(distr_localcopy);
10643 } while (0);
10644 }
10645
10646 if(TRUE) {
10647 unur_reset_errno();
10648 do {
10649 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10650 {UNUR_DISTR *dg =NULL;
10651 par = unur_srou_new(distr_localcopy);
10652 unur_srou_set_pedantic(par,0);
10653 unur_srou_set_r(par,2.);
10654 gen = unur_init(par);
10655 if (gen) {
10656 dg = unur_get_distr(gen);
10657 unur_distr_cont_set_domain(dg,0.9,0.95);
10658 unur_distr_cont_upd_pdfarea(dg);
10659 unur_distr_cont_upd_mode(dg);
10660 unur_reinit(gen); }
10661 }
10662 if (gen) unur_srou_chg_verify(gen,1);
10663 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10664 unur_free(gen);
10665
10666 unur_distr_free(distr_localcopy);
10667 } while (0);
10668 }
10669
10670 if(TRUE) {
10671 unur_reset_errno();
10672 do {
10673 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[14]);
10674 {UNUR_DISTR *dg =NULL;
10675 par = unur_srou_new(distr_localcopy);
10676 unur_srou_set_pedantic(par,0);
10677 unur_srou_set_r(par,2.);
10678 fpm[0] = 2.;
10679 fpm[1] = 4.;
10680 gen = unur_init(par);
10681 if (gen) {
10682 dg = unur_get_distr(gen);
10683 unur_distr_cont_set_pdfparams(dg,fpm,2);
10684 unur_distr_cont_upd_pdfarea(dg);
10685 unur_distr_cont_upd_mode(dg);
10686 unur_reinit(gen); }
10687 }
10688 if (gen) unur_srou_chg_verify(gen,1);
10689 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[14],'~')==UNUR_SUCCESS)?0:1000;
10690 unur_free(gen);
10691
10692 unur_distr_free(distr_localcopy);
10693 } while (0);
10694 }
10695
10696 /* distribution [15] */
10697
10698 if(fullcheck) {
10699 unur_reset_errno();
10700 do {
10701 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10702 par = unur_srou_new(distr_localcopy);
10703 unur_srou_set_pedantic(par,0);
10704 gen = unur_init(par);
10705 if (gen) unur_srou_chg_verify(gen,1);
10706 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10707 unur_free(gen);
10708
10709 unur_distr_free(distr_localcopy);
10710 } while (0);
10711 }
10712
10713 if(fullcheck) {
10714 unur_reset_errno();
10715 do {
10716 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10717 par = unur_srou_new(distr_localcopy);
10718 unur_srou_set_pedantic(par,0);
10719 unur_srou_set_usemirror(par,1);
10720 gen = unur_init(par);
10721 if (gen) unur_srou_chg_verify(gen,1);
10722 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10723 unur_free(gen);
10724
10725 unur_distr_free(distr_localcopy);
10726 } while (0);
10727 }
10728
10729 if(fullcheck) {
10730 unur_reset_errno();
10731 do {
10732 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10733 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10734 par = unur_srou_new(distr_localcopy);
10735 unur_srou_set_pedantic(par,0);
10736 unur_srou_set_cdfatmode(par,cdfatmode);
10737 unur_srou_set_usesqueeze(par,1); }
10738 gen = unur_init(par);
10739 if (gen) unur_srou_chg_verify(gen,1);
10740 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10741 unur_free(gen);
10742
10743 unur_distr_free(distr_localcopy);
10744 } while (0);
10745 }
10746
10747 if(fullcheck) {
10748 printf("."); fflush(stdout);
10749 }
10750
10751 if(fullcheck) {
10752 unur_reset_errno();
10753 do {
10754 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10755 {UNUR_DISTR *dg =NULL;
10756 par = unur_srou_new(distr_localcopy);
10757 unur_srou_set_pedantic(par,0);
10758 fpm[0] = 2.;
10759 fpm[1] = 4.;
10760 gen = unur_init(par);
10761 if (gen) {
10762 dg = unur_get_distr(gen);
10763 unur_distr_cont_set_pdfparams(dg,fpm,2);
10764 unur_distr_cont_upd_pdfarea(dg);
10765 unur_distr_cont_upd_mode(dg);
10766 unur_reinit(gen); }
10767 }
10768 if (gen) unur_srou_chg_verify(gen,1);
10769 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10770 unur_free(gen);
10771
10772 unur_distr_free(distr_localcopy);
10773 } while (0);
10774 }
10775
10776 if(fullcheck) {
10777 unur_reset_errno();
10778 do {
10779 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10780 par = unur_srou_new(distr_localcopy);
10781 unur_srou_set_pedantic(par,0);
10782 unur_srou_set_r(par,1.001);
10783 gen = unur_init(par);
10784 if (gen) unur_srou_chg_verify(gen,1);
10785 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10786 unur_free(gen);
10787
10788 unur_distr_free(distr_localcopy);
10789 } while (0);
10790 }
10791
10792 if(fullcheck) {
10793 unur_reset_errno();
10794 do {
10795 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10796 par = unur_srou_new(distr_localcopy);
10797 unur_srou_set_pedantic(par,0);
10798 unur_srou_set_r(par,2.);
10799 gen = unur_init(par);
10800 if (gen) unur_srou_chg_verify(gen,1);
10801 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10802 unur_free(gen);
10803
10804 unur_distr_free(distr_localcopy);
10805 } while (0);
10806 }
10807
10808 if(fullcheck) {
10809 unur_reset_errno();
10810 do {
10811 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10812 par = unur_srou_new(distr_localcopy);
10813 unur_srou_set_pedantic(par,0);
10814 unur_srou_set_r(par,10.);
10815 gen = unur_init(par);
10816 if (gen) unur_srou_chg_verify(gen,1);
10817 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10818 unur_free(gen);
10819
10820 unur_distr_free(distr_localcopy);
10821 } while (0);
10822 }
10823
10824 if(fullcheck) {
10825 unur_reset_errno();
10826 do {
10827 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10828 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10829 par = unur_srou_new(distr_localcopy);
10830 unur_srou_set_pedantic(par,0);
10831 unur_srou_set_r(par,2.);
10832 unur_srou_set_cdfatmode(par,cdfatmode); }
10833 gen = unur_init(par);
10834 if (gen) unur_srou_chg_verify(gen,1);
10835 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10836 unur_free(gen);
10837
10838 unur_distr_free(distr_localcopy);
10839 } while (0);
10840 }
10841
10842 if(fullcheck) {
10843 printf("."); fflush(stdout);
10844 }
10845
10846 if(fullcheck) {
10847 unur_reset_errno();
10848 do {
10849 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[15]);
10850 {UNUR_DISTR *dg =NULL;
10851 par = unur_srou_new(distr_localcopy);
10852 unur_srou_set_pedantic(par,0);
10853 unur_srou_set_r(par,2.);
10854 fpm[0] = 2.;
10855 fpm[1] = 4.;
10856 gen = unur_init(par);
10857 if (gen) {
10858 dg = unur_get_distr(gen);
10859 unur_distr_cont_set_pdfparams(dg,fpm,2);
10860 unur_distr_cont_upd_pdfarea(dg);
10861 unur_distr_cont_upd_mode(dg);
10862 unur_reinit(gen); }
10863 }
10864 if (gen) unur_srou_chg_verify(gen,1);
10865 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[15],'~')==UNUR_SUCCESS)?0:1000;
10866 unur_free(gen);
10867
10868 unur_distr_free(distr_localcopy);
10869 } while (0);
10870 }
10871
10872 /* distribution [16] */
10873
10874 if(fullcheck) {
10875 unur_reset_errno();
10876 do {
10877 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10878 par = unur_srou_new(distr_localcopy);
10879 unur_srou_set_pedantic(par,0);
10880 gen = unur_init(par);
10881 if (gen) unur_srou_chg_verify(gen,1);
10882 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10883 unur_free(gen);
10884
10885 unur_distr_free(distr_localcopy);
10886 } while (0);
10887 }
10888
10889 if(fullcheck) {
10890 unur_reset_errno();
10891 do {
10892 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10893 par = unur_srou_new(distr_localcopy);
10894 unur_srou_set_pedantic(par,0);
10895 unur_srou_set_usemirror(par,1);
10896 gen = unur_init(par);
10897 if (gen) unur_srou_chg_verify(gen,1);
10898 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10899 unur_free(gen);
10900
10901 unur_distr_free(distr_localcopy);
10902 } while (0);
10903 }
10904
10905 if(fullcheck) {
10906 unur_reset_errno();
10907 do {
10908 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10909 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
10910 par = unur_srou_new(distr_localcopy);
10911 unur_srou_set_pedantic(par,0);
10912 unur_srou_set_cdfatmode(par,cdfatmode);
10913 unur_srou_set_usesqueeze(par,1); }
10914 gen = unur_init(par);
10915 if (gen) unur_srou_chg_verify(gen,1);
10916 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10917 unur_free(gen);
10918
10919 unur_distr_free(distr_localcopy);
10920 } while (0);
10921 }
10922
10923 if(fullcheck) {
10924 printf("."); fflush(stdout);
10925 }
10926
10927 if(fullcheck) {
10928 unur_reset_errno();
10929 do {
10930 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10931 {UNUR_DISTR *dg =NULL;
10932 par = unur_srou_new(distr_localcopy);
10933 unur_srou_set_pedantic(par,0);
10934 fpm[0] = 2.;
10935 fpm[1] = 4.;
10936 gen = unur_init(par);
10937 if (gen) {
10938 dg = unur_get_distr(gen);
10939 unur_distr_cont_set_pdfparams(dg,fpm,2);
10940 unur_distr_cont_upd_pdfarea(dg);
10941 unur_distr_cont_upd_mode(dg);
10942 unur_reinit(gen); }
10943 }
10944 if (gen) unur_srou_chg_verify(gen,1);
10945 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10946 unur_free(gen);
10947
10948 unur_distr_free(distr_localcopy);
10949 } while (0);
10950 }
10951
10952 if(fullcheck) {
10953 unur_reset_errno();
10954 do {
10955 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10956 par = unur_srou_new(distr_localcopy);
10957 unur_srou_set_pedantic(par,0);
10958 unur_srou_set_r(par,1.001);
10959 gen = unur_init(par);
10960 if (gen) unur_srou_chg_verify(gen,1);
10961 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10962 unur_free(gen);
10963
10964 unur_distr_free(distr_localcopy);
10965 } while (0);
10966 }
10967
10968 if(fullcheck) {
10969 unur_reset_errno();
10970 do {
10971 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10972 par = unur_srou_new(distr_localcopy);
10973 unur_srou_set_pedantic(par,0);
10974 unur_srou_set_r(par,2.);
10975 gen = unur_init(par);
10976 if (gen) unur_srou_chg_verify(gen,1);
10977 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10978 unur_free(gen);
10979
10980 unur_distr_free(distr_localcopy);
10981 } while (0);
10982 }
10983
10984 if(fullcheck) {
10985 unur_reset_errno();
10986 do {
10987 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
10988 par = unur_srou_new(distr_localcopy);
10989 unur_srou_set_pedantic(par,0);
10990 unur_srou_set_r(par,10.);
10991 gen = unur_init(par);
10992 if (gen) unur_srou_chg_verify(gen,1);
10993 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
10994 unur_free(gen);
10995
10996 unur_distr_free(distr_localcopy);
10997 } while (0);
10998 }
10999
11000 if(fullcheck) {
11001 unur_reset_errno();
11002 do {
11003 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
11004 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11005 par = unur_srou_new(distr_localcopy);
11006 unur_srou_set_pedantic(par,0);
11007 unur_srou_set_r(par,2.);
11008 unur_srou_set_cdfatmode(par,cdfatmode); }
11009 gen = unur_init(par);
11010 if (gen) unur_srou_chg_verify(gen,1);
11011 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
11012 unur_free(gen);
11013
11014 unur_distr_free(distr_localcopy);
11015 } while (0);
11016 }
11017
11018 if(fullcheck) {
11019 printf("."); fflush(stdout);
11020 }
11021
11022 if(fullcheck) {
11023 unur_reset_errno();
11024 do {
11025 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[16]);
11026 {UNUR_DISTR *dg =NULL;
11027 par = unur_srou_new(distr_localcopy);
11028 unur_srou_set_pedantic(par,0);
11029 unur_srou_set_r(par,2.);
11030 fpm[0] = 2.;
11031 fpm[1] = 4.;
11032 gen = unur_init(par);
11033 if (gen) {
11034 dg = unur_get_distr(gen);
11035 unur_distr_cont_set_pdfparams(dg,fpm,2);
11036 unur_distr_cont_upd_pdfarea(dg);
11037 unur_distr_cont_upd_mode(dg);
11038 unur_reinit(gen); }
11039 }
11040 if (gen) unur_srou_chg_verify(gen,1);
11041 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[16],'~')==UNUR_SUCCESS)?0:1000;
11042 unur_free(gen);
11043
11044 unur_distr_free(distr_localcopy);
11045 } while (0);
11046 }
11047
11048 /* distribution [25] */
11049
11050 if(TRUE) {
11051 unur_reset_errno();
11052 do {
11053 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11054 par = unur_srou_new(distr_localcopy);
11055 unur_srou_set_pedantic(par,0);
11056 gen = unur_init(par);
11057 if (gen) unur_srou_chg_verify(gen,1);
11058 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11059 unur_free(gen);
11060
11061 unur_distr_free(distr_localcopy);
11062 } while (0);
11063 }
11064
11065 if(TRUE) {
11066 unur_reset_errno();
11067 do {
11068 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11069 par = unur_srou_new(distr_localcopy);
11070 unur_srou_set_pedantic(par,0);
11071 unur_srou_set_usemirror(par,1);
11072 gen = unur_init(par);
11073 if (gen) unur_srou_chg_verify(gen,1);
11074 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11075 unur_free(gen);
11076
11077 unur_distr_free(distr_localcopy);
11078 } while (0);
11079 }
11080
11081 if(TRUE) {
11082 unur_reset_errno();
11083 do {
11084 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11085 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11086 par = unur_srou_new(distr_localcopy);
11087 unur_srou_set_pedantic(par,0);
11088 unur_srou_set_cdfatmode(par,cdfatmode);
11089 unur_srou_set_usesqueeze(par,1); }
11090 gen = unur_init(par);
11091 if (gen) unur_srou_chg_verify(gen,1);
11092 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11093 unur_free(gen);
11094
11095 unur_distr_free(distr_localcopy);
11096 } while (0);
11097 }
11098
11099 if(TRUE) {
11100 unur_reset_errno();
11101 do {
11102 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11103 {UNUR_DISTR *dg =NULL;
11104 par = unur_srou_new(distr_localcopy);
11105 unur_srou_set_pedantic(par,0);
11106 gen = unur_init(par);
11107 if (gen) {
11108 dg = unur_get_distr(gen);
11109 unur_distr_cont_set_domain(dg,0.9,0.92);
11110 unur_distr_cont_upd_pdfarea(dg);
11111 unur_distr_cont_upd_mode(dg);
11112 unur_reinit(gen); }
11113 }
11114 if (gen) unur_srou_chg_verify(gen,1);
11115 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11116 unur_free(gen);
11117
11118 unur_distr_free(distr_localcopy);
11119 } while (0);
11120 }
11121
11122 if(TRUE) {
11123 unur_reset_errno();
11124 do {
11125 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11126 {UNUR_DISTR *dg =NULL;
11127 par = unur_srou_new(distr_localcopy);
11128 unur_srou_set_pedantic(par,0);
11129 fpm[0] = 2.;
11130 fpm[1] = 4.;
11131 gen = unur_init(par);
11132 if (gen) {
11133 dg = unur_get_distr(gen);
11134 unur_distr_cont_set_pdfparams(dg,fpm,2);
11135 unur_distr_cont_upd_pdfarea(dg);
11136 unur_distr_cont_upd_mode(dg);
11137 unur_reinit(gen); }
11138 }
11139 if (gen) unur_srou_chg_verify(gen,1);
11140 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11141 unur_free(gen);
11142
11143 unur_distr_free(distr_localcopy);
11144 } while (0);
11145 }
11146
11147 if(TRUE) {
11148 unur_reset_errno();
11149 do {
11150 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11151 par = unur_srou_new(distr_localcopy);
11152 unur_srou_set_pedantic(par,0);
11153 unur_srou_set_r(par,1.001);
11154 gen = unur_init(par);
11155 if (gen) unur_srou_chg_verify(gen,1);
11156 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11157 unur_free(gen);
11158
11159 unur_distr_free(distr_localcopy);
11160 } while (0);
11161 }
11162
11163 if(TRUE) {
11164 unur_reset_errno();
11165 do {
11166 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11167 par = unur_srou_new(distr_localcopy);
11168 unur_srou_set_pedantic(par,0);
11169 unur_srou_set_r(par,2.);
11170 gen = unur_init(par);
11171 if (gen) unur_srou_chg_verify(gen,1);
11172 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11173 unur_free(gen);
11174
11175 unur_distr_free(distr_localcopy);
11176 } while (0);
11177 }
11178
11179 if(TRUE) {
11180 unur_reset_errno();
11181 do {
11182 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11183 par = unur_srou_new(distr_localcopy);
11184 unur_srou_set_pedantic(par,0);
11185 unur_srou_set_r(par,10.);
11186 gen = unur_init(par);
11187 if (gen) unur_srou_chg_verify(gen,1);
11188 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11189 unur_free(gen);
11190
11191 unur_distr_free(distr_localcopy);
11192 } while (0);
11193 }
11194
11195 if(TRUE) {
11196 unur_reset_errno();
11197 do {
11198 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11199 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11200 par = unur_srou_new(distr_localcopy);
11201 unur_srou_set_pedantic(par,0);
11202 unur_srou_set_r(par,2.);
11203 unur_srou_set_cdfatmode(par,cdfatmode); }
11204 gen = unur_init(par);
11205 if (gen) unur_srou_chg_verify(gen,1);
11206 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11207 unur_free(gen);
11208
11209 unur_distr_free(distr_localcopy);
11210 } while (0);
11211 }
11212
11213 if(TRUE) {
11214 unur_reset_errno();
11215 do {
11216 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11217 {UNUR_DISTR *dg =NULL;
11218 par = unur_srou_new(distr_localcopy);
11219 unur_srou_set_pedantic(par,0);
11220 unur_srou_set_r(par,2.);
11221 gen = unur_init(par);
11222 if (gen) {
11223 dg = unur_get_distr(gen);
11224 unur_distr_cont_set_domain(dg,0.9,0.95);
11225 unur_distr_cont_upd_pdfarea(dg);
11226 unur_distr_cont_upd_mode(dg);
11227 unur_reinit(gen); }
11228 }
11229 if (gen) unur_srou_chg_verify(gen,1);
11230 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11231 unur_free(gen);
11232
11233 unur_distr_free(distr_localcopy);
11234 } while (0);
11235 }
11236
11237 if(TRUE) {
11238 unur_reset_errno();
11239 do {
11240 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[25]);
11241 {UNUR_DISTR *dg =NULL;
11242 par = unur_srou_new(distr_localcopy);
11243 unur_srou_set_pedantic(par,0);
11244 unur_srou_set_r(par,2.);
11245 fpm[0] = 2.;
11246 fpm[1] = 4.;
11247 gen = unur_init(par);
11248 if (gen) {
11249 dg = unur_get_distr(gen);
11250 unur_distr_cont_set_pdfparams(dg,fpm,2);
11251 unur_distr_cont_upd_pdfarea(dg);
11252 unur_distr_cont_upd_mode(dg);
11253 unur_reinit(gen); }
11254 }
11255 if (gen) unur_srou_chg_verify(gen,1);
11256 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[25],'~')==UNUR_SUCCESS)?0:1000;
11257 unur_free(gen);
11258
11259 unur_distr_free(distr_localcopy);
11260 } while (0);
11261 }
11262
11263 /* distribution [26] */
11264
11265 if(TRUE) {
11266 unur_reset_errno();
11267 do {
11268 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11269 par = unur_srou_new(distr_localcopy);
11270 unur_srou_set_pedantic(par,0);
11271 gen = unur_init(par);
11272 if (gen) unur_srou_chg_verify(gen,1);
11273 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11274 unur_free(gen);
11275
11276 unur_distr_free(distr_localcopy);
11277 } while (0);
11278 }
11279
11280 if(TRUE) {
11281 unur_reset_errno();
11282 do {
11283 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11284 par = unur_srou_new(distr_localcopy);
11285 unur_srou_set_pedantic(par,0);
11286 unur_srou_set_usemirror(par,1);
11287 gen = unur_init(par);
11288 if (gen) unur_srou_chg_verify(gen,1);
11289 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11290 unur_free(gen);
11291
11292 unur_distr_free(distr_localcopy);
11293 } while (0);
11294 }
11295
11296 if(TRUE) {
11297 unur_reset_errno();
11298 do {
11299 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11300 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11301 par = unur_srou_new(distr_localcopy);
11302 unur_srou_set_pedantic(par,0);
11303 unur_srou_set_cdfatmode(par,cdfatmode);
11304 unur_srou_set_usesqueeze(par,1); }
11305 gen = unur_init(par);
11306 if (gen) unur_srou_chg_verify(gen,1);
11307 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11308 unur_free(gen);
11309
11310 unur_distr_free(distr_localcopy);
11311 } while (0);
11312 }
11313
11314 if(TRUE) {
11315 unur_reset_errno();
11316 do {
11317 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11318 {UNUR_DISTR *dg =NULL;
11319 par = unur_srou_new(distr_localcopy);
11320 unur_srou_set_pedantic(par,0);
11321 gen = unur_init(par);
11322 if (gen) {
11323 dg = unur_get_distr(gen);
11324 unur_distr_cont_set_domain(dg,0.9,0.92);
11325 unur_distr_cont_upd_pdfarea(dg);
11326 unur_distr_cont_upd_mode(dg);
11327 unur_reinit(gen); }
11328 }
11329 if (gen) unur_srou_chg_verify(gen,1);
11330 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11331 unur_free(gen);
11332
11333 unur_distr_free(distr_localcopy);
11334 } while (0);
11335 }
11336
11337 if(TRUE) {
11338 unur_reset_errno();
11339 do {
11340 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11341 {UNUR_DISTR *dg =NULL;
11342 par = unur_srou_new(distr_localcopy);
11343 unur_srou_set_pedantic(par,0);
11344 fpm[0] = 2.;
11345 fpm[1] = 4.;
11346 gen = unur_init(par);
11347 if (gen) {
11348 dg = unur_get_distr(gen);
11349 unur_distr_cont_set_pdfparams(dg,fpm,2);
11350 unur_distr_cont_upd_pdfarea(dg);
11351 unur_distr_cont_upd_mode(dg);
11352 unur_reinit(gen); }
11353 }
11354 if (gen) unur_srou_chg_verify(gen,1);
11355 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11356 unur_free(gen);
11357
11358 unur_distr_free(distr_localcopy);
11359 } while (0);
11360 }
11361
11362 if(TRUE) {
11363 unur_reset_errno();
11364 do {
11365 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11366 par = unur_srou_new(distr_localcopy);
11367 unur_srou_set_pedantic(par,0);
11368 unur_srou_set_r(par,1.001);
11369 gen = unur_init(par);
11370 if (gen) unur_srou_chg_verify(gen,1);
11371 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11372 unur_free(gen);
11373
11374 unur_distr_free(distr_localcopy);
11375 } while (0);
11376 }
11377
11378 if(TRUE) {
11379 unur_reset_errno();
11380 do {
11381 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11382 par = unur_srou_new(distr_localcopy);
11383 unur_srou_set_pedantic(par,0);
11384 unur_srou_set_r(par,2.);
11385 gen = unur_init(par);
11386 if (gen) unur_srou_chg_verify(gen,1);
11387 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11388 unur_free(gen);
11389
11390 unur_distr_free(distr_localcopy);
11391 } while (0);
11392 }
11393
11394 if(TRUE) {
11395 unur_reset_errno();
11396 do {
11397 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11398 par = unur_srou_new(distr_localcopy);
11399 unur_srou_set_pedantic(par,0);
11400 unur_srou_set_r(par,10.);
11401 gen = unur_init(par);
11402 if (gen) unur_srou_chg_verify(gen,1);
11403 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11404 unur_free(gen);
11405
11406 unur_distr_free(distr_localcopy);
11407 } while (0);
11408 }
11409
11410 if(TRUE) {
11411 unur_reset_errno();
11412 do {
11413 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11414 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11415 par = unur_srou_new(distr_localcopy);
11416 unur_srou_set_pedantic(par,0);
11417 unur_srou_set_r(par,2.);
11418 unur_srou_set_cdfatmode(par,cdfatmode); }
11419 gen = unur_init(par);
11420 if (gen) unur_srou_chg_verify(gen,1);
11421 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11422 unur_free(gen);
11423
11424 unur_distr_free(distr_localcopy);
11425 } while (0);
11426 }
11427
11428 if(TRUE) {
11429 unur_reset_errno();
11430 do {
11431 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11432 {UNUR_DISTR *dg =NULL;
11433 par = unur_srou_new(distr_localcopy);
11434 unur_srou_set_pedantic(par,0);
11435 unur_srou_set_r(par,2.);
11436 gen = unur_init(par);
11437 if (gen) {
11438 dg = unur_get_distr(gen);
11439 unur_distr_cont_set_domain(dg,0.9,0.95);
11440 unur_distr_cont_upd_pdfarea(dg);
11441 unur_distr_cont_upd_mode(dg);
11442 unur_reinit(gen); }
11443 }
11444 if (gen) unur_srou_chg_verify(gen,1);
11445 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11446 unur_free(gen);
11447
11448 unur_distr_free(distr_localcopy);
11449 } while (0);
11450 }
11451
11452 if(TRUE) {
11453 unur_reset_errno();
11454 do {
11455 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[26]);
11456 {UNUR_DISTR *dg =NULL;
11457 par = unur_srou_new(distr_localcopy);
11458 unur_srou_set_pedantic(par,0);
11459 unur_srou_set_r(par,2.);
11460 fpm[0] = 2.;
11461 fpm[1] = 4.;
11462 gen = unur_init(par);
11463 if (gen) {
11464 dg = unur_get_distr(gen);
11465 unur_distr_cont_set_pdfparams(dg,fpm,2);
11466 unur_distr_cont_upd_pdfarea(dg);
11467 unur_distr_cont_upd_mode(dg);
11468 unur_reinit(gen); }
11469 }
11470 if (gen) unur_srou_chg_verify(gen,1);
11471 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[26],'~')==UNUR_SUCCESS)?0:1000;
11472 unur_free(gen);
11473
11474 unur_distr_free(distr_localcopy);
11475 } while (0);
11476 }
11477
11478 /* distribution [17] */
11479
11480 if(TRUE) {
11481 unur_reset_errno();
11482 do {
11483 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11484 par = unur_srou_new(distr_localcopy);
11485 unur_srou_set_pedantic(par,0);
11486 gen = unur_init(par);
11487 if (gen) unur_srou_chg_verify(gen,1);
11488 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11489 unur_free(gen);
11490
11491 unur_distr_free(distr_localcopy);
11492 } while (0);
11493 }
11494
11495 if(TRUE) {
11496 unur_reset_errno();
11497 do {
11498 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11499 par = unur_srou_new(distr_localcopy);
11500 unur_srou_set_pedantic(par,0);
11501 unur_srou_set_usemirror(par,1);
11502 gen = unur_init(par);
11503 if (gen) unur_srou_chg_verify(gen,1);
11504 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11505 unur_free(gen);
11506
11507 unur_distr_free(distr_localcopy);
11508 } while (0);
11509 }
11510
11511 if(TRUE) {
11512 unur_reset_errno();
11513 do {
11514 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11515 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11516 par = unur_srou_new(distr_localcopy);
11517 unur_srou_set_pedantic(par,0);
11518 unur_srou_set_cdfatmode(par,cdfatmode);
11519 unur_srou_set_usesqueeze(par,1); }
11520 gen = unur_init(par);
11521 if (gen) unur_srou_chg_verify(gen,1);
11522 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11523 unur_free(gen);
11524
11525 unur_distr_free(distr_localcopy);
11526 } while (0);
11527 }
11528
11529 if(TRUE) {
11530 unur_reset_errno();
11531 do {
11532 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11533 {UNUR_DISTR *dg =NULL;
11534 par = unur_srou_new(distr_localcopy);
11535 unur_srou_set_pedantic(par,0);
11536 gen = unur_init(par);
11537 if (gen) {
11538 dg = unur_get_distr(gen);
11539 unur_distr_cont_set_domain(dg,0.9,0.92);
11540 unur_distr_cont_upd_pdfarea(dg);
11541 unur_distr_cont_upd_mode(dg);
11542 unur_reinit(gen); }
11543 }
11544 if (gen) unur_srou_chg_verify(gen,1);
11545 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11546 unur_free(gen);
11547
11548 unur_distr_free(distr_localcopy);
11549 } while (0);
11550 }
11551
11552 if(TRUE) {
11553 unur_reset_errno();
11554 do {
11555 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11556 {UNUR_DISTR *dg =NULL;
11557 par = unur_srou_new(distr_localcopy);
11558 unur_srou_set_pedantic(par,0);
11559 fpm[0] = 2.;
11560 fpm[1] = 4.;
11561 gen = unur_init(par);
11562 if (gen) {
11563 dg = unur_get_distr(gen);
11564 unur_distr_cont_set_pdfparams(dg,fpm,2);
11565 unur_distr_cont_upd_pdfarea(dg);
11566 unur_distr_cont_upd_mode(dg);
11567 unur_reinit(gen); }
11568 }
11569 if (gen) unur_srou_chg_verify(gen,1);
11570 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11571 unur_free(gen);
11572
11573 unur_distr_free(distr_localcopy);
11574 } while (0);
11575 }
11576
11577 if(TRUE) {
11578 unur_reset_errno();
11579 do {
11580 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11581 par = unur_srou_new(distr_localcopy);
11582 unur_srou_set_pedantic(par,0);
11583 unur_srou_set_r(par,1.001);
11584 gen = unur_init(par);
11585 if (gen) unur_srou_chg_verify(gen,1);
11586 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11587 unur_free(gen);
11588
11589 unur_distr_free(distr_localcopy);
11590 } while (0);
11591 }
11592
11593 if(TRUE) {
11594 unur_reset_errno();
11595 do {
11596 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11597 par = unur_srou_new(distr_localcopy);
11598 unur_srou_set_pedantic(par,0);
11599 unur_srou_set_r(par,2.);
11600 gen = unur_init(par);
11601 if (gen) unur_srou_chg_verify(gen,1);
11602 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11603 unur_free(gen);
11604
11605 unur_distr_free(distr_localcopy);
11606 } while (0);
11607 }
11608
11609 if(TRUE) {
11610 unur_reset_errno();
11611 do {
11612 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11613 par = unur_srou_new(distr_localcopy);
11614 unur_srou_set_pedantic(par,0);
11615 unur_srou_set_r(par,10.);
11616 gen = unur_init(par);
11617 if (gen) unur_srou_chg_verify(gen,1);
11618 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11619 unur_free(gen);
11620
11621 unur_distr_free(distr_localcopy);
11622 } while (0);
11623 }
11624
11625 if(TRUE) {
11626 unur_reset_errno();
11627 do {
11628 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11629 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11630 par = unur_srou_new(distr_localcopy);
11631 unur_srou_set_pedantic(par,0);
11632 unur_srou_set_r(par,2.);
11633 unur_srou_set_cdfatmode(par,cdfatmode); }
11634 gen = unur_init(par);
11635 if (gen) unur_srou_chg_verify(gen,1);
11636 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11637 unur_free(gen);
11638
11639 unur_distr_free(distr_localcopy);
11640 } while (0);
11641 }
11642
11643 if(TRUE) {
11644 unur_reset_errno();
11645 do {
11646 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11647 {UNUR_DISTR *dg =NULL;
11648 par = unur_srou_new(distr_localcopy);
11649 unur_srou_set_pedantic(par,0);
11650 unur_srou_set_r(par,2.);
11651 gen = unur_init(par);
11652 if (gen) {
11653 dg = unur_get_distr(gen);
11654 unur_distr_cont_set_domain(dg,0.9,0.95);
11655 unur_distr_cont_upd_pdfarea(dg);
11656 unur_distr_cont_upd_mode(dg);
11657 unur_reinit(gen); }
11658 }
11659 if (gen) unur_srou_chg_verify(gen,1);
11660 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11661 unur_free(gen);
11662
11663 unur_distr_free(distr_localcopy);
11664 } while (0);
11665 }
11666
11667 if(TRUE) {
11668 unur_reset_errno();
11669 do {
11670 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[17]);
11671 {UNUR_DISTR *dg =NULL;
11672 par = unur_srou_new(distr_localcopy);
11673 unur_srou_set_pedantic(par,0);
11674 unur_srou_set_r(par,2.);
11675 fpm[0] = 2.;
11676 fpm[1] = 4.;
11677 gen = unur_init(par);
11678 if (gen) {
11679 dg = unur_get_distr(gen);
11680 unur_distr_cont_set_pdfparams(dg,fpm,2);
11681 unur_distr_cont_upd_pdfarea(dg);
11682 unur_distr_cont_upd_mode(dg);
11683 unur_reinit(gen); }
11684 }
11685 if (gen) unur_srou_chg_verify(gen,1);
11686 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[17],'~')==UNUR_SUCCESS)?0:1000;
11687 unur_free(gen);
11688
11689 unur_distr_free(distr_localcopy);
11690 } while (0);
11691 }
11692
11693 /* distribution [18] */
11694
11695 if(fullcheck) {
11696 unur_reset_errno();
11697 do {
11698 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11699 par = unur_srou_new(distr_localcopy);
11700 unur_srou_set_pedantic(par,0);
11701 gen = unur_init(par);
11702 if (gen) unur_srou_chg_verify(gen,1);
11703 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11704 unur_free(gen);
11705
11706 unur_distr_free(distr_localcopy);
11707 } while (0);
11708 }
11709
11710 if(fullcheck) {
11711 unur_reset_errno();
11712 do {
11713 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11714 par = unur_srou_new(distr_localcopy);
11715 unur_srou_set_pedantic(par,0);
11716 unur_srou_set_usemirror(par,1);
11717 gen = unur_init(par);
11718 if (gen) unur_srou_chg_verify(gen,1);
11719 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11720 unur_free(gen);
11721
11722 unur_distr_free(distr_localcopy);
11723 } while (0);
11724 }
11725
11726 if(fullcheck) {
11727 unur_reset_errno();
11728 do {
11729 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11730 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11731 par = unur_srou_new(distr_localcopy);
11732 unur_srou_set_pedantic(par,0);
11733 unur_srou_set_cdfatmode(par,cdfatmode);
11734 unur_srou_set_usesqueeze(par,1); }
11735 gen = unur_init(par);
11736 if (gen) unur_srou_chg_verify(gen,1);
11737 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11738 unur_free(gen);
11739
11740 unur_distr_free(distr_localcopy);
11741 } while (0);
11742 }
11743
11744 if(fullcheck) {
11745 printf("."); fflush(stdout);
11746 }
11747
11748 if(fullcheck) {
11749 unur_reset_errno();
11750 do {
11751 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11752 {UNUR_DISTR *dg =NULL;
11753 par = unur_srou_new(distr_localcopy);
11754 unur_srou_set_pedantic(par,0);
11755 fpm[0] = 2.;
11756 fpm[1] = 4.;
11757 gen = unur_init(par);
11758 if (gen) {
11759 dg = unur_get_distr(gen);
11760 unur_distr_cont_set_pdfparams(dg,fpm,2);
11761 unur_distr_cont_upd_pdfarea(dg);
11762 unur_distr_cont_upd_mode(dg);
11763 unur_reinit(gen); }
11764 }
11765 if (gen) unur_srou_chg_verify(gen,1);
11766 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11767 unur_free(gen);
11768
11769 unur_distr_free(distr_localcopy);
11770 } while (0);
11771 }
11772
11773 if(fullcheck) {
11774 unur_reset_errno();
11775 do {
11776 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11777 par = unur_srou_new(distr_localcopy);
11778 unur_srou_set_pedantic(par,0);
11779 unur_srou_set_r(par,1.001);
11780 gen = unur_init(par);
11781 if (gen) unur_srou_chg_verify(gen,1);
11782 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11783 unur_free(gen);
11784
11785 unur_distr_free(distr_localcopy);
11786 } while (0);
11787 }
11788
11789 if(fullcheck) {
11790 unur_reset_errno();
11791 do {
11792 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11793 par = unur_srou_new(distr_localcopy);
11794 unur_srou_set_pedantic(par,0);
11795 unur_srou_set_r(par,2.);
11796 gen = unur_init(par);
11797 if (gen) unur_srou_chg_verify(gen,1);
11798 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11799 unur_free(gen);
11800
11801 unur_distr_free(distr_localcopy);
11802 } while (0);
11803 }
11804
11805 if(fullcheck) {
11806 unur_reset_errno();
11807 do {
11808 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11809 par = unur_srou_new(distr_localcopy);
11810 unur_srou_set_pedantic(par,0);
11811 unur_srou_set_r(par,10.);
11812 gen = unur_init(par);
11813 if (gen) unur_srou_chg_verify(gen,1);
11814 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11815 unur_free(gen);
11816
11817 unur_distr_free(distr_localcopy);
11818 } while (0);
11819 }
11820
11821 if(fullcheck) {
11822 unur_reset_errno();
11823 do {
11824 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11825 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11826 par = unur_srou_new(distr_localcopy);
11827 unur_srou_set_pedantic(par,0);
11828 unur_srou_set_r(par,2.);
11829 unur_srou_set_cdfatmode(par,cdfatmode); }
11830 gen = unur_init(par);
11831 if (gen) unur_srou_chg_verify(gen,1);
11832 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11833 unur_free(gen);
11834
11835 unur_distr_free(distr_localcopy);
11836 } while (0);
11837 }
11838
11839 if(fullcheck) {
11840 printf("."); fflush(stdout);
11841 }
11842
11843 if(fullcheck) {
11844 unur_reset_errno();
11845 do {
11846 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[18]);
11847 {UNUR_DISTR *dg =NULL;
11848 par = unur_srou_new(distr_localcopy);
11849 unur_srou_set_pedantic(par,0);
11850 unur_srou_set_r(par,2.);
11851 fpm[0] = 2.;
11852 fpm[1] = 4.;
11853 gen = unur_init(par);
11854 if (gen) {
11855 dg = unur_get_distr(gen);
11856 unur_distr_cont_set_pdfparams(dg,fpm,2);
11857 unur_distr_cont_upd_pdfarea(dg);
11858 unur_distr_cont_upd_mode(dg);
11859 unur_reinit(gen); }
11860 }
11861 if (gen) unur_srou_chg_verify(gen,1);
11862 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[18],'~')==UNUR_SUCCESS)?0:1000;
11863 unur_free(gen);
11864
11865 unur_distr_free(distr_localcopy);
11866 } while (0);
11867 }
11868
11869 /* distribution [19] */
11870
11871 if(TRUE) {
11872 unur_reset_errno();
11873 do {
11874 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11875 par = unur_srou_new(distr_localcopy);
11876 unur_srou_set_pedantic(par,0);
11877 gen = unur_init(par);
11878 if (gen) unur_srou_chg_verify(gen,1);
11879 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11880 unur_free(gen);
11881
11882 unur_distr_free(distr_localcopy);
11883 } while (0);
11884 }
11885
11886 if(TRUE) {
11887 unur_reset_errno();
11888 do {
11889 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11890 par = unur_srou_new(distr_localcopy);
11891 unur_srou_set_pedantic(par,0);
11892 unur_srou_set_usemirror(par,1);
11893 gen = unur_init(par);
11894 if (gen) unur_srou_chg_verify(gen,1);
11895 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11896 unur_free(gen);
11897
11898 unur_distr_free(distr_localcopy);
11899 } while (0);
11900 }
11901
11902 if(TRUE) {
11903 unur_reset_errno();
11904 do {
11905 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11906 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
11907 par = unur_srou_new(distr_localcopy);
11908 unur_srou_set_pedantic(par,0);
11909 unur_srou_set_cdfatmode(par,cdfatmode);
11910 unur_srou_set_usesqueeze(par,1); }
11911 gen = unur_init(par);
11912 if (gen) unur_srou_chg_verify(gen,1);
11913 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11914 unur_free(gen);
11915
11916 unur_distr_free(distr_localcopy);
11917 } while (0);
11918 }
11919
11920 if(TRUE) {
11921 printf("."); fflush(stdout);
11922 }
11923
11924 if(TRUE) {
11925 unur_reset_errno();
11926 do {
11927 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11928 {UNUR_DISTR *dg =NULL;
11929 par = unur_srou_new(distr_localcopy);
11930 unur_srou_set_pedantic(par,0);
11931 fpm[0] = 2.;
11932 fpm[1] = 4.;
11933 gen = unur_init(par);
11934 if (gen) {
11935 dg = unur_get_distr(gen);
11936 unur_distr_cont_set_pdfparams(dg,fpm,2);
11937 unur_distr_cont_upd_pdfarea(dg);
11938 unur_distr_cont_upd_mode(dg);
11939 unur_reinit(gen); }
11940 }
11941 if (gen) unur_srou_chg_verify(gen,1);
11942 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11943 unur_free(gen);
11944
11945 unur_distr_free(distr_localcopy);
11946 } while (0);
11947 }
11948
11949 if(TRUE) {
11950 unur_reset_errno();
11951 do {
11952 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11953 par = unur_srou_new(distr_localcopy);
11954 unur_srou_set_pedantic(par,0);
11955 unur_srou_set_r(par,1.001);
11956 gen = unur_init(par);
11957 if (gen) unur_srou_chg_verify(gen,1);
11958 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11959 unur_free(gen);
11960
11961 unur_distr_free(distr_localcopy);
11962 } while (0);
11963 }
11964
11965 if(TRUE) {
11966 unur_reset_errno();
11967 do {
11968 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11969 par = unur_srou_new(distr_localcopy);
11970 unur_srou_set_pedantic(par,0);
11971 unur_srou_set_r(par,2.);
11972 gen = unur_init(par);
11973 if (gen) unur_srou_chg_verify(gen,1);
11974 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11975 unur_free(gen);
11976
11977 unur_distr_free(distr_localcopy);
11978 } while (0);
11979 }
11980
11981 if(TRUE) {
11982 unur_reset_errno();
11983 do {
11984 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
11985 par = unur_srou_new(distr_localcopy);
11986 unur_srou_set_pedantic(par,0);
11987 unur_srou_set_r(par,10.);
11988 gen = unur_init(par);
11989 if (gen) unur_srou_chg_verify(gen,1);
11990 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
11991 unur_free(gen);
11992
11993 unur_distr_free(distr_localcopy);
11994 } while (0);
11995 }
11996
11997 if(TRUE) {
11998 unur_reset_errno();
11999 do {
12000 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
12001 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12002 par = unur_srou_new(distr_localcopy);
12003 unur_srou_set_pedantic(par,0);
12004 unur_srou_set_r(par,2.);
12005 unur_srou_set_cdfatmode(par,cdfatmode); }
12006 gen = unur_init(par);
12007 if (gen) unur_srou_chg_verify(gen,1);
12008 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
12009 unur_free(gen);
12010
12011 unur_distr_free(distr_localcopy);
12012 } while (0);
12013 }
12014
12015 if(TRUE) {
12016 printf("."); fflush(stdout);
12017 }
12018
12019 if(TRUE) {
12020 unur_reset_errno();
12021 do {
12022 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[19]);
12023 {UNUR_DISTR *dg =NULL;
12024 par = unur_srou_new(distr_localcopy);
12025 unur_srou_set_pedantic(par,0);
12026 unur_srou_set_r(par,2.);
12027 fpm[0] = 2.;
12028 fpm[1] = 4.;
12029 gen = unur_init(par);
12030 if (gen) {
12031 dg = unur_get_distr(gen);
12032 unur_distr_cont_set_pdfparams(dg,fpm,2);
12033 unur_distr_cont_upd_pdfarea(dg);
12034 unur_distr_cont_upd_mode(dg);
12035 unur_reinit(gen); }
12036 }
12037 if (gen) unur_srou_chg_verify(gen,1);
12038 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[19],'~')==UNUR_SUCCESS)?0:1000;
12039 unur_free(gen);
12040
12041 unur_distr_free(distr_localcopy);
12042 } while (0);
12043 }
12044
12045 /* distribution [20] */
12046
12047 if(TRUE) {
12048 unur_reset_errno();
12049 do {
12050 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12051 par = unur_srou_new(distr_localcopy);
12052 unur_srou_set_pedantic(par,0);
12053 gen = unur_init(par);
12054 if (gen) unur_srou_chg_verify(gen,1);
12055 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12056 unur_free(gen);
12057
12058 unur_distr_free(distr_localcopy);
12059 } while (0);
12060 }
12061
12062 if(TRUE) {
12063 unur_reset_errno();
12064 do {
12065 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12066 par = unur_srou_new(distr_localcopy);
12067 unur_srou_set_pedantic(par,0);
12068 unur_srou_set_usemirror(par,1);
12069 gen = unur_init(par);
12070 if (gen) unur_srou_chg_verify(gen,1);
12071 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12072 unur_free(gen);
12073
12074 unur_distr_free(distr_localcopy);
12075 } while (0);
12076 }
12077
12078 if(TRUE) {
12079 unur_reset_errno();
12080 do {
12081 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12082 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12083 par = unur_srou_new(distr_localcopy);
12084 unur_srou_set_pedantic(par,0);
12085 unur_srou_set_cdfatmode(par,cdfatmode);
12086 unur_srou_set_usesqueeze(par,1); }
12087 gen = unur_init(par);
12088 if (gen) unur_srou_chg_verify(gen,1);
12089 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12090 unur_free(gen);
12091
12092 unur_distr_free(distr_localcopy);
12093 } while (0);
12094 }
12095
12096 if(TRUE) {
12097 unur_reset_errno();
12098 do {
12099 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12100 {UNUR_DISTR *dg =NULL;
12101 par = unur_srou_new(distr_localcopy);
12102 unur_srou_set_pedantic(par,0);
12103 gen = unur_init(par);
12104 if (gen) {
12105 dg = unur_get_distr(gen);
12106 unur_distr_cont_set_domain(dg,0.9,0.92);
12107 unur_distr_cont_upd_pdfarea(dg);
12108 unur_distr_cont_upd_mode(dg);
12109 unur_reinit(gen); }
12110 }
12111 if (gen) unur_srou_chg_verify(gen,1);
12112 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12113 unur_free(gen);
12114
12115 unur_distr_free(distr_localcopy);
12116 } while (0);
12117 }
12118
12119 if(TRUE) {
12120 unur_reset_errno();
12121 do {
12122 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12123 {UNUR_DISTR *dg =NULL;
12124 par = unur_srou_new(distr_localcopy);
12125 unur_srou_set_pedantic(par,0);
12126 fpm[0] = 2.;
12127 fpm[1] = 4.;
12128 gen = unur_init(par);
12129 if (gen) {
12130 dg = unur_get_distr(gen);
12131 unur_distr_cont_set_pdfparams(dg,fpm,2);
12132 unur_distr_cont_upd_pdfarea(dg);
12133 unur_distr_cont_upd_mode(dg);
12134 unur_reinit(gen); }
12135 }
12136 if (gen) unur_srou_chg_verify(gen,1);
12137 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12138 unur_free(gen);
12139
12140 unur_distr_free(distr_localcopy);
12141 } while (0);
12142 }
12143
12144 if(TRUE) {
12145 unur_reset_errno();
12146 do {
12147 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12148 par = unur_srou_new(distr_localcopy);
12149 unur_srou_set_pedantic(par,0);
12150 unur_srou_set_r(par,1.001);
12151 gen = unur_init(par);
12152 if (gen) unur_srou_chg_verify(gen,1);
12153 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12154 unur_free(gen);
12155
12156 unur_distr_free(distr_localcopy);
12157 } while (0);
12158 }
12159
12160 if(TRUE) {
12161 unur_reset_errno();
12162 do {
12163 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12164 par = unur_srou_new(distr_localcopy);
12165 unur_srou_set_pedantic(par,0);
12166 unur_srou_set_r(par,2.);
12167 gen = unur_init(par);
12168 if (gen) unur_srou_chg_verify(gen,1);
12169 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12170 unur_free(gen);
12171
12172 unur_distr_free(distr_localcopy);
12173 } while (0);
12174 }
12175
12176 if(TRUE) {
12177 unur_reset_errno();
12178 do {
12179 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12180 par = unur_srou_new(distr_localcopy);
12181 unur_srou_set_pedantic(par,0);
12182 unur_srou_set_r(par,10.);
12183 gen = unur_init(par);
12184 if (gen) unur_srou_chg_verify(gen,1);
12185 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12186 unur_free(gen);
12187
12188 unur_distr_free(distr_localcopy);
12189 } while (0);
12190 }
12191
12192 if(TRUE) {
12193 unur_reset_errno();
12194 do {
12195 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12196 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12197 par = unur_srou_new(distr_localcopy);
12198 unur_srou_set_pedantic(par,0);
12199 unur_srou_set_r(par,2.);
12200 unur_srou_set_cdfatmode(par,cdfatmode); }
12201 gen = unur_init(par);
12202 if (gen) unur_srou_chg_verify(gen,1);
12203 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12204 unur_free(gen);
12205
12206 unur_distr_free(distr_localcopy);
12207 } while (0);
12208 }
12209
12210 if(TRUE) {
12211 unur_reset_errno();
12212 do {
12213 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12214 {UNUR_DISTR *dg =NULL;
12215 par = unur_srou_new(distr_localcopy);
12216 unur_srou_set_pedantic(par,0);
12217 unur_srou_set_r(par,2.);
12218 gen = unur_init(par);
12219 if (gen) {
12220 dg = unur_get_distr(gen);
12221 unur_distr_cont_set_domain(dg,0.9,0.95);
12222 unur_distr_cont_upd_pdfarea(dg);
12223 unur_distr_cont_upd_mode(dg);
12224 unur_reinit(gen); }
12225 }
12226 if (gen) unur_srou_chg_verify(gen,1);
12227 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12228 unur_free(gen);
12229
12230 unur_distr_free(distr_localcopy);
12231 } while (0);
12232 }
12233
12234 if(TRUE) {
12235 unur_reset_errno();
12236 do {
12237 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[20]);
12238 {UNUR_DISTR *dg =NULL;
12239 par = unur_srou_new(distr_localcopy);
12240 unur_srou_set_pedantic(par,0);
12241 unur_srou_set_r(par,2.);
12242 fpm[0] = 2.;
12243 fpm[1] = 4.;
12244 gen = unur_init(par);
12245 if (gen) {
12246 dg = unur_get_distr(gen);
12247 unur_distr_cont_set_pdfparams(dg,fpm,2);
12248 unur_distr_cont_upd_pdfarea(dg);
12249 unur_distr_cont_upd_mode(dg);
12250 unur_reinit(gen); }
12251 }
12252 if (gen) unur_srou_chg_verify(gen,1);
12253 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[20],'~')==UNUR_SUCCESS)?0:1000;
12254 unur_free(gen);
12255
12256 unur_distr_free(distr_localcopy);
12257 } while (0);
12258 }
12259
12260 /* distribution [21] */
12261
12262 if(TRUE) {
12263 unur_reset_errno();
12264 do {
12265 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12266 par = unur_srou_new(distr_localcopy);
12267 unur_srou_set_pedantic(par,0);
12268 gen = unur_init(par);
12269 if (gen) unur_srou_chg_verify(gen,1);
12270 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12271 unur_free(gen);
12272
12273 unur_distr_free(distr_localcopy);
12274 } while (0);
12275 }
12276
12277 if(TRUE) {
12278 unur_reset_errno();
12279 do {
12280 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12281 par = unur_srou_new(distr_localcopy);
12282 unur_srou_set_pedantic(par,0);
12283 unur_srou_set_usemirror(par,1);
12284 gen = unur_init(par);
12285 if (gen) unur_srou_chg_verify(gen,1);
12286 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12287 unur_free(gen);
12288
12289 unur_distr_free(distr_localcopy);
12290 } while (0);
12291 }
12292
12293 if(TRUE) {
12294 unur_reset_errno();
12295 do {
12296 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12297 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12298 par = unur_srou_new(distr_localcopy);
12299 unur_srou_set_pedantic(par,0);
12300 unur_srou_set_cdfatmode(par,cdfatmode);
12301 unur_srou_set_usesqueeze(par,1); }
12302 gen = unur_init(par);
12303 if (gen) unur_srou_chg_verify(gen,1);
12304 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12305 unur_free(gen);
12306
12307 unur_distr_free(distr_localcopy);
12308 } while (0);
12309 }
12310
12311 if(TRUE) {
12312 printf("."); fflush(stdout);
12313 }
12314
12315 if(TRUE) {
12316 unur_reset_errno();
12317 do {
12318 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12319 {UNUR_DISTR *dg =NULL;
12320 par = unur_srou_new(distr_localcopy);
12321 unur_srou_set_pedantic(par,0);
12322 fpm[0] = 2.;
12323 fpm[1] = 4.;
12324 gen = unur_init(par);
12325 if (gen) {
12326 dg = unur_get_distr(gen);
12327 unur_distr_cont_set_pdfparams(dg,fpm,2);
12328 unur_distr_cont_upd_pdfarea(dg);
12329 unur_distr_cont_upd_mode(dg);
12330 unur_reinit(gen); }
12331 }
12332 if (gen) unur_srou_chg_verify(gen,1);
12333 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12334 unur_free(gen);
12335
12336 unur_distr_free(distr_localcopy);
12337 } while (0);
12338 }
12339
12340 if(TRUE) {
12341 unur_reset_errno();
12342 do {
12343 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12344 par = unur_srou_new(distr_localcopy);
12345 unur_srou_set_pedantic(par,0);
12346 unur_srou_set_r(par,1.001);
12347 gen = unur_init(par);
12348 if (gen) unur_srou_chg_verify(gen,1);
12349 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12350 unur_free(gen);
12351
12352 unur_distr_free(distr_localcopy);
12353 } while (0);
12354 }
12355
12356 if(TRUE) {
12357 unur_reset_errno();
12358 do {
12359 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12360 par = unur_srou_new(distr_localcopy);
12361 unur_srou_set_pedantic(par,0);
12362 unur_srou_set_r(par,2.);
12363 gen = unur_init(par);
12364 if (gen) unur_srou_chg_verify(gen,1);
12365 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12366 unur_free(gen);
12367
12368 unur_distr_free(distr_localcopy);
12369 } while (0);
12370 }
12371
12372 if(TRUE) {
12373 unur_reset_errno();
12374 do {
12375 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12376 par = unur_srou_new(distr_localcopy);
12377 unur_srou_set_pedantic(par,0);
12378 unur_srou_set_r(par,10.);
12379 gen = unur_init(par);
12380 if (gen) unur_srou_chg_verify(gen,1);
12381 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12382 unur_free(gen);
12383
12384 unur_distr_free(distr_localcopy);
12385 } while (0);
12386 }
12387
12388 if(TRUE) {
12389 unur_reset_errno();
12390 do {
12391 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12392 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12393 par = unur_srou_new(distr_localcopy);
12394 unur_srou_set_pedantic(par,0);
12395 unur_srou_set_r(par,2.);
12396 unur_srou_set_cdfatmode(par,cdfatmode); }
12397 gen = unur_init(par);
12398 if (gen) unur_srou_chg_verify(gen,1);
12399 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12400 unur_free(gen);
12401
12402 unur_distr_free(distr_localcopy);
12403 } while (0);
12404 }
12405
12406 if(TRUE) {
12407 printf("."); fflush(stdout);
12408 }
12409
12410 if(TRUE) {
12411 unur_reset_errno();
12412 do {
12413 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[21]);
12414 {UNUR_DISTR *dg =NULL;
12415 par = unur_srou_new(distr_localcopy);
12416 unur_srou_set_pedantic(par,0);
12417 unur_srou_set_r(par,2.);
12418 fpm[0] = 2.;
12419 fpm[1] = 4.;
12420 gen = unur_init(par);
12421 if (gen) {
12422 dg = unur_get_distr(gen);
12423 unur_distr_cont_set_pdfparams(dg,fpm,2);
12424 unur_distr_cont_upd_pdfarea(dg);
12425 unur_distr_cont_upd_mode(dg);
12426 unur_reinit(gen); }
12427 }
12428 if (gen) unur_srou_chg_verify(gen,1);
12429 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[21],'~')==UNUR_SUCCESS)?0:1000;
12430 unur_free(gen);
12431
12432 unur_distr_free(distr_localcopy);
12433 } while (0);
12434 }
12435
12436 /* distribution [22] */
12437
12438 if(TRUE) {
12439 unur_reset_errno();
12440 do {
12441 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12442 par = unur_srou_new(distr_localcopy);
12443 unur_srou_set_pedantic(par,0);
12444 gen = unur_init(par);
12445 if (gen) unur_srou_chg_verify(gen,1);
12446 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12447 unur_free(gen);
12448
12449 unur_distr_free(distr_localcopy);
12450 } while (0);
12451 }
12452
12453 if(TRUE) {
12454 unur_reset_errno();
12455 do {
12456 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12457 par = unur_srou_new(distr_localcopy);
12458 unur_srou_set_pedantic(par,0);
12459 unur_srou_set_usemirror(par,1);
12460 gen = unur_init(par);
12461 if (gen) unur_srou_chg_verify(gen,1);
12462 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12463 unur_free(gen);
12464
12465 unur_distr_free(distr_localcopy);
12466 } while (0);
12467 }
12468
12469 if(TRUE) {
12470 printf("."); fflush(stdout);
12471 }
12472
12473 if(TRUE) {
12474 unur_reset_errno();
12475 do {
12476 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12477 {UNUR_DISTR *dg =NULL;
12478 par = unur_srou_new(distr_localcopy);
12479 unur_srou_set_pedantic(par,0);
12480 gen = unur_init(par);
12481 if (gen) {
12482 dg = unur_get_distr(gen);
12483 unur_distr_cont_set_domain(dg,0.9,0.92);
12484 unur_distr_cont_upd_pdfarea(dg);
12485 unur_distr_cont_upd_mode(dg);
12486 unur_reinit(gen); }
12487 }
12488 if (gen) unur_srou_chg_verify(gen,1);
12489 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12490 unur_free(gen);
12491
12492 unur_distr_free(distr_localcopy);
12493 } while (0);
12494 }
12495
12496 if(TRUE) {
12497 unur_reset_errno();
12498 do {
12499 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12500 {UNUR_DISTR *dg =NULL;
12501 par = unur_srou_new(distr_localcopy);
12502 unur_srou_set_pedantic(par,0);
12503 fpm[0] = 2.;
12504 fpm[1] = 4.;
12505 gen = unur_init(par);
12506 if (gen) {
12507 dg = unur_get_distr(gen);
12508 unur_distr_cont_set_pdfparams(dg,fpm,2);
12509 unur_distr_cont_upd_pdfarea(dg);
12510 unur_distr_cont_upd_mode(dg);
12511 unur_reinit(gen); }
12512 }
12513 if (gen) unur_srou_chg_verify(gen,1);
12514 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12515 unur_free(gen);
12516
12517 unur_distr_free(distr_localcopy);
12518 } while (0);
12519 }
12520
12521 if(TRUE) {
12522 unur_reset_errno();
12523 do {
12524 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12525 par = unur_srou_new(distr_localcopy);
12526 unur_srou_set_pedantic(par,0);
12527 unur_srou_set_r(par,1.001);
12528 gen = unur_init(par);
12529 if (gen) unur_srou_chg_verify(gen,1);
12530 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12531 unur_free(gen);
12532
12533 unur_distr_free(distr_localcopy);
12534 } while (0);
12535 }
12536
12537 if(TRUE) {
12538 unur_reset_errno();
12539 do {
12540 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12541 par = unur_srou_new(distr_localcopy);
12542 unur_srou_set_pedantic(par,0);
12543 unur_srou_set_r(par,2.);
12544 gen = unur_init(par);
12545 if (gen) unur_srou_chg_verify(gen,1);
12546 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12547 unur_free(gen);
12548
12549 unur_distr_free(distr_localcopy);
12550 } while (0);
12551 }
12552
12553 if(TRUE) {
12554 unur_reset_errno();
12555 do {
12556 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12557 par = unur_srou_new(distr_localcopy);
12558 unur_srou_set_pedantic(par,0);
12559 unur_srou_set_r(par,10.);
12560 gen = unur_init(par);
12561 if (gen) unur_srou_chg_verify(gen,1);
12562 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12563 unur_free(gen);
12564
12565 unur_distr_free(distr_localcopy);
12566 } while (0);
12567 }
12568
12569 if(TRUE) {
12570 printf("."); fflush(stdout);
12571 }
12572
12573 if(TRUE) {
12574 unur_reset_errno();
12575 do {
12576 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12577 {UNUR_DISTR *dg =NULL;
12578 par = unur_srou_new(distr_localcopy);
12579 unur_srou_set_pedantic(par,0);
12580 unur_srou_set_r(par,2.);
12581 gen = unur_init(par);
12582 if (gen) {
12583 dg = unur_get_distr(gen);
12584 unur_distr_cont_set_domain(dg,0.9,0.95);
12585 unur_distr_cont_upd_pdfarea(dg);
12586 unur_distr_cont_upd_mode(dg);
12587 unur_reinit(gen); }
12588 }
12589 if (gen) unur_srou_chg_verify(gen,1);
12590 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12591 unur_free(gen);
12592
12593 unur_distr_free(distr_localcopy);
12594 } while (0);
12595 }
12596
12597 if(TRUE) {
12598 unur_reset_errno();
12599 do {
12600 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[22]);
12601 {UNUR_DISTR *dg =NULL;
12602 par = unur_srou_new(distr_localcopy);
12603 unur_srou_set_pedantic(par,0);
12604 unur_srou_set_r(par,2.);
12605 fpm[0] = 2.;
12606 fpm[1] = 4.;
12607 gen = unur_init(par);
12608 if (gen) {
12609 dg = unur_get_distr(gen);
12610 unur_distr_cont_set_pdfparams(dg,fpm,2);
12611 unur_distr_cont_upd_pdfarea(dg);
12612 unur_distr_cont_upd_mode(dg);
12613 unur_reinit(gen); }
12614 }
12615 if (gen) unur_srou_chg_verify(gen,1);
12616 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[22],'~')==UNUR_SUCCESS)?0:1000;
12617 unur_free(gen);
12618
12619 unur_distr_free(distr_localcopy);
12620 } while (0);
12621 }
12622
12623 /* distribution [27] */
12624
12625 if(TRUE) {
12626 unur_reset_errno();
12627 do {
12628 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12629 par = unur_srou_new(distr_localcopy);
12630 unur_srou_set_pedantic(par,0);
12631 gen = unur_init(par);
12632 if (gen) unur_srou_chg_verify(gen,1);
12633 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12634 unur_free(gen);
12635
12636 unur_distr_free(distr_localcopy);
12637 } while (0);
12638 }
12639
12640 if(TRUE) {
12641 unur_reset_errno();
12642 do {
12643 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12644 par = unur_srou_new(distr_localcopy);
12645 unur_srou_set_pedantic(par,0);
12646 unur_srou_set_usemirror(par,1);
12647 gen = unur_init(par);
12648 if (gen) unur_srou_chg_verify(gen,1);
12649 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12650 unur_free(gen);
12651
12652 unur_distr_free(distr_localcopy);
12653 } while (0);
12654 }
12655
12656 if(TRUE) {
12657 unur_reset_errno();
12658 do {
12659 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12660 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12661 par = unur_srou_new(distr_localcopy);
12662 unur_srou_set_pedantic(par,0);
12663 unur_srou_set_cdfatmode(par,cdfatmode);
12664 unur_srou_set_usesqueeze(par,1); }
12665 gen = unur_init(par);
12666 if (gen) unur_srou_chg_verify(gen,1);
12667 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12668 unur_free(gen);
12669
12670 unur_distr_free(distr_localcopy);
12671 } while (0);
12672 }
12673
12674 if(TRUE) {
12675 printf("."); fflush(stdout);
12676 }
12677
12678 if(TRUE) {
12679 printf("."); fflush(stdout);
12680 }
12681
12682 if(TRUE) {
12683 unur_reset_errno();
12684 do {
12685 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12686 par = unur_srou_new(distr_localcopy);
12687 unur_srou_set_pedantic(par,0);
12688 unur_srou_set_r(par,1.001);
12689 gen = unur_init(par);
12690 if (gen) unur_srou_chg_verify(gen,1);
12691 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12692 unur_free(gen);
12693
12694 unur_distr_free(distr_localcopy);
12695 } while (0);
12696 }
12697
12698 if(TRUE) {
12699 unur_reset_errno();
12700 do {
12701 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12702 par = unur_srou_new(distr_localcopy);
12703 unur_srou_set_pedantic(par,0);
12704 unur_srou_set_r(par,2.);
12705 gen = unur_init(par);
12706 if (gen) unur_srou_chg_verify(gen,1);
12707 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12708 unur_free(gen);
12709
12710 unur_distr_free(distr_localcopy);
12711 } while (0);
12712 }
12713
12714 if(TRUE) {
12715 unur_reset_errno();
12716 do {
12717 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12718 par = unur_srou_new(distr_localcopy);
12719 unur_srou_set_pedantic(par,0);
12720 unur_srou_set_r(par,10.);
12721 gen = unur_init(par);
12722 if (gen) unur_srou_chg_verify(gen,1);
12723 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12724 unur_free(gen);
12725
12726 unur_distr_free(distr_localcopy);
12727 } while (0);
12728 }
12729
12730 if(TRUE) {
12731 unur_reset_errno();
12732 do {
12733 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[27]);
12734 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12735 par = unur_srou_new(distr_localcopy);
12736 unur_srou_set_pedantic(par,0);
12737 unur_srou_set_r(par,2.);
12738 unur_srou_set_cdfatmode(par,cdfatmode); }
12739 gen = unur_init(par);
12740 if (gen) unur_srou_chg_verify(gen,1);
12741 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[27],'~')==UNUR_SUCCESS)?0:1000;
12742 unur_free(gen);
12743
12744 unur_distr_free(distr_localcopy);
12745 } while (0);
12746 }
12747
12748 if(TRUE) {
12749 printf("."); fflush(stdout);
12750 }
12751
12752 if(TRUE) {
12753 printf("."); fflush(stdout);
12754 }
12755
12756 /* distribution [28] */
12757
12758 if(TRUE) {
12759 unur_reset_errno();
12760 do {
12761 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
12762 par = unur_srou_new(distr_localcopy);
12763 unur_srou_set_pedantic(par,0);
12764 gen = unur_init(par);
12765 if (gen) unur_srou_chg_verify(gen,1);
12766 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[28],'~')==UNUR_SUCCESS)?0:1000;
12767 unur_free(gen);
12768
12769 unur_distr_free(distr_localcopy);
12770 } while (0);
12771 }
12772
12773 if(TRUE) {
12774 unur_reset_errno();
12775 do {
12776 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
12777 par = unur_srou_new(distr_localcopy);
12778 unur_srou_set_pedantic(par,0);
12779 unur_srou_set_usemirror(par,1);
12780 gen = unur_init(par);
12781 if (gen) unur_srou_chg_verify(gen,1);
12782 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[28],'~')==UNUR_SUCCESS)?0:1000;
12783 unur_free(gen);
12784
12785 unur_distr_free(distr_localcopy);
12786 } while (0);
12787 }
12788
12789 if(TRUE) {
12790 printf("."); fflush(stdout);
12791 }
12792
12793 if(TRUE) {
12794 printf("."); fflush(stdout);
12795 }
12796
12797 if(TRUE) {
12798 printf("."); fflush(stdout);
12799 }
12800
12801 if(TRUE) {
12802 unur_reset_errno();
12803 do {
12804 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
12805 par = unur_srou_new(distr_localcopy);
12806 unur_srou_set_pedantic(par,0);
12807 unur_srou_set_r(par,1.001);
12808 gen = unur_init(par);
12809 if (gen) unur_srou_chg_verify(gen,1);
12810 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[28],'~')==UNUR_SUCCESS)?0:1000;
12811 unur_free(gen);
12812
12813 unur_distr_free(distr_localcopy);
12814 } while (0);
12815 }
12816
12817 if(TRUE) {
12818 unur_reset_errno();
12819 do {
12820 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
12821 par = unur_srou_new(distr_localcopy);
12822 unur_srou_set_pedantic(par,0);
12823 unur_srou_set_r(par,2.);
12824 gen = unur_init(par);
12825 if (gen) unur_srou_chg_verify(gen,1);
12826 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[28],'~')==UNUR_SUCCESS)?0:1000;
12827 unur_free(gen);
12828
12829 unur_distr_free(distr_localcopy);
12830 } while (0);
12831 }
12832
12833 if(TRUE) {
12834 unur_reset_errno();
12835 do {
12836 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
12837 par = unur_srou_new(distr_localcopy);
12838 unur_srou_set_pedantic(par,0);
12839 unur_srou_set_r(par,10.);
12840 gen = unur_init(par);
12841 if (gen) unur_srou_chg_verify(gen,1);
12842 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[28],'~')==UNUR_SUCCESS)?0:1000;
12843 unur_free(gen);
12844
12845 unur_distr_free(distr_localcopy);
12846 } while (0);
12847 }
12848
12849 if(TRUE) {
12850 unur_reset_errno();
12851 do {
12852 UNUR_DISTR *distr_localcopy = unur_distr_clone(distr[28]);
12853 { double cdfatmode = unur_distr_cont_eval_cdf( unur_distr_cont_get_mode(distr_localcopy), distr_localcopy );
12854 par = unur_srou_new(distr_localcopy);
12855 unur_srou_set_pedantic(par,0);
12856 unur_srou_set_r(par,2.);
12857 unur_srou_set_cdfatmode(par,cdfatmode); }
12858 gen = unur_init(par);
12859 if (gen) unur_srou_chg_verify(gen,1);
12860 n_tests_failed += (run_validate_verifyhat(TESTLOG,0,gen,distr[28],'~')==UNUR_SUCCESS)?0:1000;
12861 unur_free(gen);
12862
12863 unur_distr_free(distr_localcopy);
12864 } while (0);
12865 }
12866
12867 if(TRUE) {
12868 printf("."); fflush(stdout);
12869 }
12870
12871 if(TRUE) {
12872 printf("."); fflush(stdout);
12873 }
12874
12875 /* timing */
12876 stopwatch_print(TESTLOG,"\n<*>time = %.0f ms\n", stopwatch_lap(&watch));
12877
12878
12879 /* free distributions */
12880 unur_distr_free(distr[0]);
12881 unur_distr_free(distr[1]);
12882 unur_distr_free(distr[2]);
12883 unur_distr_free(distr[3]);
12884 unur_distr_free(distr[4]);
12885 unur_distr_free(distr[5]);
12886 unur_distr_free(distr[6]);
12887 unur_distr_free(distr[7]);
12888 unur_distr_free(distr[8]);
12889 unur_distr_free(distr[9]);
12890 unur_distr_free(distr[10]);
12891 unur_distr_free(distr[11]);
12892 unur_distr_free(distr[12]);
12893 unur_distr_free(distr[13]);
12894 unur_distr_free(distr[14]);
12895 unur_distr_free(distr[15]);
12896 unur_distr_free(distr[16]);
12897 unur_distr_free(distr[17]);
12898 unur_distr_free(distr[18]);
12899 unur_distr_free(distr[19]);
12900 unur_distr_free(distr[20]);
12901 unur_distr_free(distr[21]);
12902 unur_distr_free(distr[22]);
12903 unur_distr_free(distr[23]);
12904 unur_distr_free(distr[24]);
12905 unur_distr_free(distr[25]);
12906 unur_distr_free(distr[26]);
12907 unur_distr_free(distr[27]);
12908 unur_distr_free(distr[28]);
12909 unur_distr_free(distr[29]);
12910 unur_distr_free(distr[30]);
12911
12912 /* test finished */
12913 test_ok &= (n_tests_failed>CHI2_FAILURES_TOLERATED) ? 0 : 1;
12914 /* we accept CHI2_FAILURES_TOLERATED failures */
12915 (n_tests_failed>CHI2_FAILURES_TOLERATED) ? printf(" ==> failed] ") : printf(" ==> ok] ");
12916
12917 /* prevent compiler from making useless annoying warnings */
12918 distr[0] = NULL;
12919 par = NULL;
12920 gen = NULL;
12921 darray = NULL;
12922 fpm[0] = 0.;
12923
12924 } /* end of test_validate */
12925
12926
12927 /*---------------------------------------------------------------------------*/
12928 /* run generator in verifying mode */
12929
run_verify_generator(FILE * LOG,int line,UNUR_PAR * par)12930 void run_verify_generator( FILE *LOG, int line, UNUR_PAR *par )
12931 {
12932 UNUR_GEN *gen;
12933 int i;
12934
12935 /* switch to verifying mode */
12936 unur_srou_set_verify(par,1);
12937
12938 /* initialize generator */
12939 gen = unur_init( par ); abort_if_NULL(LOG, line, gen);
12940
12941 /* run generator */
12942 for (i=0; i<VIOLATE_SAMPLE_SIZE; i++)
12943 unur_sample_cont(gen);
12944
12945 /* destroy generator */
12946 unur_free(gen);
12947
12948 } /* end of run_verify_generator() */
12949
12950
12951 /*---------------------------------------------------------------------------*/
12952
main(void)12953 int main(void)
12954 {
12955 unsigned long seed;
12956 char *str_seed, *str_tail;
12957
12958 /* start stop watch */
12959 stopwatch_init();
12960 stopwatch_start(&watch);
12961
12962 /* open log file for unuran and set output stream for unuran messages */
12963 UNURANLOG = fopen( "t_srou_unuran.log","w" );
12964 abort_if_NULL( stderr,-1, UNURANLOG );
12965 unur_set_stream( UNURANLOG );
12966
12967 /* open log file for testing */
12968 TESTLOG = fopen( "t_srou_test.log","w" );
12969 abort_if_NULL( stderr,-1, TESTLOG );
12970
12971 /* seed for uniform generators */
12972
12973 /* seed set by environment */
12974 str_seed = getenv("SEED");
12975
12976 if (str_seed != NULL) {
12977 seed = strtol(str_seed, &str_tail, 10);
12978 if (seed == 0u)
12979 seed = 598947;
12980 }
12981 else {
12982 #ifdef SEED
12983 seed = SEED;
12984 #else
12985 seed = 598947;
12986 #endif
12987 }
12988
12989 /* seed build-in uniform generators */
12990 unur_urng_MRG31k3p_seed(NULL,seed);
12991 unur_urng_fish_seed(NULL,seed);
12992 unur_urng_mstd_seed(NULL,seed);
12993
12994 /* seed uniform random number generator */
12995 #ifdef UNUR_URNG_UNURAN
12996 # ifdef UNUR_URNG_DEFAULT_RNGSTREAM
12997 {
12998 unsigned long sa[6];
12999 int i;
13000 for (i=0; i<6; i++) sa[i] = seed;
13001 RngStream_SetPackageSeed(sa);
13002 }
13003 # else
13004 if (unur_urng_seed(NULL,seed) != UNUR_SUCCESS) {
13005 fprintf(stderr,"WARNING: Seed could not be set at random\n");
13006 seed = ~0u;
13007 }
13008 # endif /* UNUR_URNG_DEFAULT_RNGSTREAM */
13009 #endif /* UNUR_URNG_UNURAN */
13010
13011 /* set default debugging flag */
13012 unur_set_default_debug(UNUR_DEBUG_ALL);
13013
13014 /* detect required check mode */
13015 fullcheck = (getenv("UNURANFULLCHECK")==NULL) ? FALSE : TRUE;
13016
13017 /* write header into log file */
13018 print_test_log_header( TESTLOG, seed, fullcheck );
13019
13020 /* set timer for sending SIGALRM signal */
13021 set_alarm(TESTLOG);
13022
13023 /* start test */
13024 printf("srou: ");
13025
13026 /* run tests */
13027 test_new();
13028 test_set();
13029 test_chg();
13030 test_init();
13031 test_reinit();
13032 test_sample();
13033 test_validate();
13034
13035
13036 /* test finished */
13037 printf("\n"); fflush(stdout);
13038
13039 /* close log files */
13040 fprintf(TESTLOG,"\n====================================================\n\n");
13041 if (test_ok)
13042 fprintf(TESTLOG,"All tests PASSED.\n");
13043 else
13044 fprintf(TESTLOG,"Test(s) FAILED.\n");
13045
13046 /* timing */
13047 stopwatch_print(TESTLOG,"\n<*>total time = %.0f ms\n\n", stopwatch_stop(&watch));
13048
13049 fclose(UNURANLOG);
13050 fclose(TESTLOG);
13051
13052 /* free memory */
13053 compare_free_memory();
13054 unur_urng_free(unur_get_default_urng());
13055 unur_urng_free(unur_get_default_urng_aux());
13056
13057 /* exit */
13058 exit( (test_ok) ? EXIT_SUCCESS : EXIT_FAILURE );
13059
13060 } /* end of main */
13061
13062