33#include "DGtal/base/Common.h"
34#include "DGtal/kernel/CPointPredicate.h"
35#include "DGtal/arithmetic/CPositiveIrreducibleFraction.h"
36#include "DGtal/arithmetic/IntegerComputer.h"
37#include "DGtal/arithmetic/SternBrocot.h"
38#include "DGtal/arithmetic/Pattern.h"
39#include "DGtal/arithmetic/StandardDSLQ0.h"
40#include "DGtal/geometry/curves/ArithmeticalDSSComputer.h"
50template <
typename Quotient>
52equalCFrac(
const std::vector<Quotient> & c1,
const std::vector<Quotient> & c2 )
54 unsigned int s = c1.size() < c2.size() ? c1.size() : c2.size();
59 for (
unsigned int i = 0; i < s; ++i )
61 Quotient q1 = c1[ i ];
62 if ( ( s != c1.size() ) && ( i == s - 1 ) ) q1 += c1.back();
63 Quotient q2 = c2[ i ];
64 if ( ( s != c2.size() ) && ( i == s - 1 ) ) q2 += c2.back();
65 if ( q1 != q2 )
return false;
73 typedef typename SB::Integer
Integer;
74 typedef typename SB::Quotient Quotient;
75 typedef typename SB::Fraction Fraction;
76 unsigned int nbok = 0;
88 std::vector<Quotient> cf1;
90 Fraction f1 = SB::fraction( p, q );
91 std::vector<Quotient> cf1_bis;
92 f1.getCFrac( cf1_bis );
93 bool ok = equalCFrac<Quotient>( cf1, cf1_bis );
94 trace.
info() <<
" - p / q = " << p <<
" / " << q << std::endl;
98 ++nb; nbok += ok ? 1 : 0;
99 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
102 unsigned int depth = cf1.size();
103 for (
unsigned int k = 1; k < depth; ++k )
105 std::vector<Quotient> cf1_red;
106 Fraction fr = f1.reduced( k );
107 fr.getCFrac( cf1_red );
108 cf1.resize( depth - k );
109 ok = equalCFrac<Quotient>( cf1, cf1_red );
110 ++nb; nbok += ok ? 1 : 0;
111 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
112 <<
"reduced(" << k <<
")=";
114 std::cerr << std::endl;
122template <
typename SB>
125 typedef typename SB::Integer
Integer;
126 typedef typename SB::Fraction Fraction;
127 unsigned int nbok = 0;
136 Fraction f1 = SB::fraction( p, q );
137 trace.
info() <<
"p / q = " << p <<
" / " << q << std::endl;
141 nbok += ( ( p == f1.p() ) && ( q == f1.q() ) ) ? 1 : 0;
143 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
144 <<
"( ( p == f1.p() ) && ( q == f1.q() ) )"
146 trace.
info() <<
"- nbFractions = " << SB::instance().nbFractions << std::endl;
152template <
typename SB>
155 typedef typename SB::Integer
Integer;
156 typedef typename SB::Quotient Quotient;
157 typedef typename SB::Fraction Fraction;
159 typedef typename MyPattern::Vector2I Vector2I;
160 unsigned int nbok = 0;
164 MyPattern pattern( p*6, q*6 );
168 trace.
beginBlock (
"Testing block: Smallest covering subpatterns of ODD pattern." );
169 MyPattern pat_odd( 5, 12 );
170 trace.
info() <<
"ODD " << pat_odd <<
" " << pat_odd.rE() << endl;
176 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
178 trace.
info() <<
"sub(0,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
179 ++nb; nbok += sp.slope() == SB::fraction( 5, 12 ) ? 1 : 0;
180 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
182 trace.
info() <<
"sub(1,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
183 ++nb; nbok += sp.slope() == SB::fraction( 5, 12 ) ? 1 : 0;
184 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
186 trace.
info() <<
"sub(7,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
187 ++nb; nbok += sp.slope() == SB::fraction( 3, 7 ) ? 1 : 0;
188 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
190 trace.
info() <<
"sub(8,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
191 ++nb; nbok += sp.slope() == SB::fraction( 3, 7 ) ? 1 : 0;
192 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
194 trace.
info() <<
"sub(13,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
195 ++nb; nbok += sp.slope() == SB::fraction( 3, 7 ) ? 1 : 0;
196 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
198 trace.
info() <<
"sub(14,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
199 ++nb; nbok += sp.slope() == SB::fraction( 1, 2 ) ? 1 : 0;
200 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
202 trace.
info() <<
"sub(15,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
203 ++nb; nbok += sp.slope() == SB::fraction( 1, 2 ) ? 1 : 0;
205 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering left Subpatterns." << endl;
208 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
210 trace.
info() <<
"sub(0,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
211 ++nb; nbok += sp.slope() == SB::fraction( 5, 12 ) ? 1 : 0;
212 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
214 trace.
info() <<
"sub(0,15) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
215 ++nb; nbok += sp.slope() == SB::fraction( 5, 12 ) ? 1 : 0;
216 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
218 trace.
info() <<
"sub(0,14) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
219 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 2 ? 1 : 0;
220 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
222 trace.
info() <<
"sub(0,8) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
223 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 2 ? 1 : 0;
224 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
226 trace.
info() <<
"sub(0,7) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
227 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
228 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
230 trace.
info() <<
"sub(0,1) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
231 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
233 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering right Subpatterns." << endl;
236 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
238 trace.
info() <<
"sub(1,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
239 ++nb; nbok += sp.slope() == SB::fraction( 5, 12 ) ? 1 : 0;
240 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
242 trace.
info() <<
"sub(2,14) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
243 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 2 ? 1 : 0;
244 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
246 trace.
info() <<
"sub(7,15) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
247 ++nb; nbok += sp.slope() == SB::fraction( 3, 7 ) && np == 1 ? 1 : 0;
248 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
250 trace.
info() <<
"sub(7,14) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
251 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
252 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
254 trace.
info() <<
"sub(3,6) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
255 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
256 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
258 trace.
info() <<
"sub(6,8) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
259 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 2 ? 1 : 0;
260 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
262 trace.
info() <<
"sub(8,12) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
263 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
264 pat_odd.getSmallestCoveringSubpattern( sp, np, start,
266 trace.
info() <<
"sub(15,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
267 ++nb; nbok += sp.slope() == SB::fraction( 1, 2 ) && np == 1 ? 1 : 0;
269 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering middle Subpatterns." << endl;
273 trace.
beginBlock (
"Testing block: Smallest covering subpatterns of EVEN pattern." );
274 MyPattern pat_even( 12, 17 );
275 trace.
info() <<
"EVEN " << pat_even <<
" " << pat_even.rE() << endl;
278 pat_even.getSmallestCoveringSubpattern( sp, np, start,
280 trace.
info() <<
"sub(0,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
281 ++nb; nbok += sp.slope() == SB::fraction( 12, 17 ) ? 1 : 0;
282 pat_even.getSmallestCoveringSubpattern( sp, np, start,
284 trace.
info() <<
"sub(0,25) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
285 ++nb; nbok += sp.slope() == SB::fraction( 12, 17 ) ? 1 : 0;
286 pat_even.getSmallestCoveringSubpattern( sp, np, start,
288 trace.
info() <<
"sub(0,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
289 ++nb; nbok += sp.slope() == SB::fraction( 7, 10 ) ? 1 : 0;
290 pat_even.getSmallestCoveringSubpattern( sp, np, start,
292 trace.
info() <<
"sub(0,6) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
293 ++nb; nbok += sp.slope() == SB::fraction( 7, 10 ) ? 1 : 0;
294 pat_even.getSmallestCoveringSubpattern( sp, np, start,
296 trace.
info() <<
"sub(0,5) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
297 ++nb; nbok += sp.slope() == SB::fraction( 2, 3 ) ? 1 : 0;
298 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering left Subpatterns." << endl;
301 pat_even.getSmallestCoveringSubpattern( sp, np, start,
303 trace.
info() <<
"sub(4,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
304 ++nb; nbok += sp.slope() == SB::fraction( 12, 17 ) ? 1 : 0;
305 pat_even.getSmallestCoveringSubpattern( sp, np, start,
307 trace.
info() <<
"sub(5,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
308 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 2 ? 1 : 0;
309 pat_even.getSmallestCoveringSubpattern( sp, np, start,
311 trace.
info() <<
"sub(16,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
312 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 2 ? 1 : 0;
313 pat_even.getSmallestCoveringSubpattern( sp, np, start,
315 trace.
info() <<
"sub(17,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
316 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
317 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering right Subpatterns." << endl;
320 pat_even.getSmallestCoveringSubpattern( sp, np, start,
322 trace.
info() <<
"sub(1,27) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
323 ++nb; nbok += sp.slope() == SB::fraction( 12, 17 ) ? 1 : 0;
324 pat_even.getSmallestCoveringSubpattern( sp, np, start,
326 trace.
info() <<
"sub(5,24) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
327 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 2 ? 1 : 0;
328 pat_even.getSmallestCoveringSubpattern( sp, np, start,
330 trace.
info() <<
"sub(4,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
331 ++nb; nbok += sp.slope() == SB::fraction( 7, 10 ) && np == 1 ? 1 : 0;
332 pat_even.getSmallestCoveringSubpattern( sp, np, start,
334 trace.
info() <<
"sub(5,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
335 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
336 pat_even.getSmallestCoveringSubpattern( sp, np, start,
338 trace.
info() <<
"sub(7,12) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
339 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
340 pat_even.getSmallestCoveringSubpattern( sp, np, start,
342 trace.
info() <<
"sub(1,4) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
343 ++nb; nbok += sp.slope() == SB::fraction( 2, 3 ) && np == 1 ? 1 : 0;
344 pat_even.getSmallestCoveringSubpattern( sp, np, start,
346 trace.
info() <<
"sub(18,20) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
347 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
348 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering middle Subpatterns." << endl;
354 trace.
beginBlock (
"Testing block: greatest included subpatterns of ODD pattern." );
355 trace.
info() <<
"ODD " << pat_odd <<
" " << pat_odd.rE() << endl;
358 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
360 trace.
info() <<
"sub(0,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
361 ++nb; nbok += sp.slope() == SB::fraction( 5, 12 ) ? 1 : 0;
362 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
364 trace.
info() <<
"sub(1,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
365 ++nb; nbok += sp.slope() == SB::fraction( 3, 7 ) ? 1 : 0;
366 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
368 trace.
info() <<
"sub(7,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
369 ++nb; nbok += sp.slope() == SB::fraction( 3, 7 ) ? 1 : 0;
370 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
372 trace.
info() <<
"sub(8,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
373 ++nb; nbok += sp.slope() == SB::fraction( 1, 2 ) ? 1 : 0;
374 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
376 trace.
info() <<
"sub(13,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
377 ++nb; nbok += sp.slope() == SB::fraction( 1, 2 ) ? 1 : 0;
378 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
380 trace.
info() <<
"sub(14,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
381 ++nb; nbok += sp.slope() == SB::fraction( 1, 2 ) ? 1 : 0;
382 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
384 trace.
info() <<
"sub(15,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
385 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
387 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering left Subpatterns." << endl;
390 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
392 trace.
info() <<
"sub(0,15) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
393 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 2 ? 1 : 0;
394 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
396 trace.
info() <<
"sub(0,14) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
397 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 2 ? 1 : 0;
398 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
400 trace.
info() <<
"sub(0,13) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
401 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
402 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
404 trace.
info() <<
"sub(0,7) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
405 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
406 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
408 trace.
info() <<
"sub(0,6) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
409 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
410 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
412 trace.
info() <<
"sub(0,1) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
413 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
415 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering right Subpatterns." << endl;
418 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
420 trace.
info() <<
"sub(1,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
421 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) ? 1 : 0;
422 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
424 trace.
info() <<
"sub(2,14) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
425 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
426 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
428 trace.
info() <<
"sub(7,15) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
429 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
430 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
432 trace.
info() <<
"sub(7,14) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
433 ++nb; nbok += sp.slope() == SB::fraction( 2, 5 ) && np == 1 ? 1 : 0;
434 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
436 trace.
info() <<
"sub(3,6) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
437 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
438 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
440 trace.
info() <<
"sub(6,8) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
441 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
442 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
444 trace.
info() <<
"sub(8,12) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
445 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
446 pat_odd.getGreatestIncludedSubpattern( sp, np, start,
448 trace.
info() <<
"sub(15,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
449 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
451 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering middle Subpatterns." << endl;
455 trace.
beginBlock (
"Testing block: Greatest included subpatterns of EVEN pattern." );
456 trace.
info() <<
"EVEN " << pat_even <<
" " << pat_even.rE() << endl;
459 pat_even.getGreatestIncludedSubpattern( sp, np, start,
461 trace.
info() <<
"sub(0,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
462 ++nb; nbok += sp.slope() == SB::fraction( 12, 17 ) ? 1 : 0;
463 pat_even.getGreatestIncludedSubpattern( sp, np, start,
465 trace.
info() <<
"sub(0,25) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
466 ++nb; nbok += sp.slope() == SB::fraction( 7, 10 ) ? 1 : 0;
467 pat_even.getGreatestIncludedSubpattern( sp, np, start,
469 trace.
info() <<
"sub(0,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
470 ++nb; nbok += sp.slope() == SB::fraction( 7, 10 ) ? 1 : 0;
471 pat_even.getGreatestIncludedSubpattern( sp, np, start,
473 trace.
info() <<
"sub(0,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
474 ++nb; nbok += sp.slope() == SB::fraction( 2, 3 ) ? 1 : 0;
475 pat_even.getGreatestIncludedSubpattern( sp, np, start,
477 trace.
info() <<
"sub(0,6) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
478 ++nb; nbok += sp.slope() == SB::fraction( 2, 3 ) ? 1 : 0;
479 pat_even.getGreatestIncludedSubpattern( sp, np, start,
481 trace.
info() <<
"sub(0,5) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
482 ++nb; nbok += sp.slope() == SB::fraction( 2, 3 ) ? 1 : 0;
483 pat_even.getGreatestIncludedSubpattern( sp, np, start,
485 trace.
info() <<
"sub(0,4) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
486 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
487 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering left Subpatterns." << endl;
490 pat_even.getGreatestIncludedSubpattern( sp, np, start,
492 trace.
info() <<
"sub(4,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
493 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 2 ? 1 : 0;
494 pat_even.getGreatestIncludedSubpattern( sp, np, start,
496 trace.
info() <<
"sub(5,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
497 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 2 ? 1 : 0;
498 pat_even.getGreatestIncludedSubpattern( sp, np, start,
500 trace.
info() <<
"sub(16,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
501 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
502 pat_even.getGreatestIncludedSubpattern( sp, np, start,
504 trace.
info() <<
"sub(17,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
505 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
506 pat_even.getGreatestIncludedSubpattern( sp, np, start,
508 trace.
info() <<
"sub(18,29) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
509 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
510 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering right Subpatterns." << endl;
513 pat_even.getGreatestIncludedSubpattern( sp, np, start,
515 trace.
info() <<
"sub(1,27) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
516 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
517 pat_even.getGreatestIncludedSubpattern( sp, np, start,
519 trace.
info() <<
"sub(5,24) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
520 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
521 pat_even.getGreatestIncludedSubpattern( sp, np, start,
523 trace.
info() <<
"sub(4,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
524 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
525 pat_even.getGreatestIncludedSubpattern( sp, np, start,
527 trace.
info() <<
"sub(5,17) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
528 ++nb; nbok += sp.slope() == SB::fraction( 5, 7 ) && np == 1 ? 1 : 0;
529 pat_even.getGreatestIncludedSubpattern( sp, np, start,
531 trace.
info() <<
"sub(5,16) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
532 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
533 pat_even.getGreatestIncludedSubpattern( sp, np, start,
535 trace.
info() <<
"sub(1,4) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
536 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
537 pat_even.getGreatestIncludedSubpattern( sp, np, start,
539 trace.
info() <<
"sub(18,20) = " << sp <<
" " << sp.rE() <<
"^" << np << endl;
540 ++nb; nbok += sp.slope() == Fraction() ? 1 : 0;
541 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") covering middle Subpatterns." << endl;
544 trace.
info() <<
"Odd pattern " << pat_odd << endl;
545 trace.
info() <<
" U(0)=" << pat_odd.U( 0 )
546 <<
" L(0)=" << pat_odd.L( 0 )
547 <<
" U(1)=" << pat_odd.U( 1 )
548 <<
" L(1)=" << pat_odd.L( 1 ) << endl;
550 trace.
info() <<
"Even pattern " << pat_even << endl;
551 trace.
info() <<
" U(0)=" << pat_even.U( 0 )
552 <<
" L(0)=" << pat_even.L( 0 )
553 <<
" U(1)=" << pat_even.U( 1 )
554 <<
" L(1)=" << pat_even.L( 1 ) << endl;
559template <
typename Fraction>
563 typedef typename Fraction::Integer
Integer;
564 typedef typename DSL::Point
Point;
565 typedef typename DSL::Vector2I Vector2I;
568 unsigned int nbok = 0;
571 for (
Integer mu = -5; mu < 30; ++mu )
577 trace.
info() <<
"- U=" << U <<
" r(U)=" << D1.r( U )
578 <<
", L=" << L <<
" r(L)=" << D1.r( L ) << endl;
579 ++nb; nbok += D1.r( U ) == D1.mu() ? 1 : 0;
580 ++nb; nbok += D1.r( L ) == D1.mup() ? 1 : 0;
584 for (
Integer x = -5; x < 30; ++x )
586 Point P = D2.lowestY( x );
587 ++nb; nbok += D2( P ) && ( ! D2( P - Vector2I(0,1) ) ) ? 1 : 0;
588 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
589 <<
"D2(P) && ! D2(P-y) P=" << P <<
" r(P)=" << D2.r( P )
591 P = D2.uppermostY( x );
592 ++nb; nbok += D2( P ) && ( ! D2( P + Vector2I(0,1) ) ) ? 1 : 0;
593 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
594 <<
"D2(P) && ! D2(P+y) P=" << P <<
" r(P)=" << D2.r( P )
597 for (
Integer y = -5; y < 30; ++y )
599 Point P = D2.lowestX( y );
600 ++nb; nbok += D2( P ) && ( ! D2( P - Vector2I(1,0) ) ) ? 1 : 0;
601 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
602 <<
"D2(P) && ! D2(P-x) P=" << P <<
" r(P)=" << D2.r( P )
604 P = D2.uppermostX( y );
605 ++nb; nbok += D2( P ) && ( ! D2( P + Vector2I(1,0) ) ) ? 1 : 0;
606 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") "
607 <<
"D2(P) && ! D2(P+x) P=" << P <<
" r(P)=" << D2.r( P )
614template <
typename DSL>
616 const typename DSL::Point & A,
617 const typename DSL::Point & B )
619 typedef typename DSL::Integer
Integer;
623 DSL S = D.reversedSmartDSS( A, B );
628 while ( ( dss.end() != it_end )
629 && ( dss.extendFront() ) ) {}
630 bool ok = S.a() == dss.a()
632 && S.mu() == dss.mu();
635 trace.
info() <<
"-------------------------------------------------------"
638 <<
" " << D.pattern().rE() << endl;
639 trace.
info() <<
"S(" << A <<
"," << B <<
") = "
640 << S <<
" " << S.pattern() << endl;
641 trace.
info() <<
"ArithDSS = " << dss << std::endl;
651template <
typename Fraction>
655 typedef typename Fraction::Integer
Integer;
656 typedef typename DSL::Point
Point;
658 unsigned int nbok = 0;
662 for (
unsigned int i = 0; i < 100; ++i )
664 Integer a( rand() % 12000 + 1 );
665 Integer b( rand() % 12000 + 1 );
666 if ( ic.
gcd( a, b ) == 1 )
669 <<
" Test DSL has slope " << a <<
"/" << b << std::endl;
670 for (
Integer mu = 0; mu < 5; ++mu )
672 DSL D( a, b, rand() % 10000 );
673 for (
Integer x = 0; x < 10; ++x )
676 Integer x2 = x1 + 1 + ( rand() % 1000 );
677 Point A = D.lowestY( x1 );
678 Point B = D.lowestY( x2 );
679 ++nb; nbok += checkSubStandardDSLQ0<DSL>( D, A, B ) ? 1 : 0;
681 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") correct reversedSmartDSS."
683 if ( nbok != nb ) assert(
false);
688 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") correct reversedSmartDSS."
701 unsigned int nbtests = 10;
702 unsigned int nbok = 0;
707 for (
unsigned int i = 0; i < nbtests; ++i )
709 nbok += testInitFraction<SB>() ? 1 : 0;
712 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") init fractions." << endl;
715 for (
unsigned int i = 0; i < nbtests; ++i )
717 nbok += testReducedFraction<SB>() ? 1 : 0;
720 trace.
info() <<
"(" << nbok <<
"/" << nb <<
") reduced fractions." << endl;
724 trace.
info() <<
"- nbFractions = " << SB::instance().nbFractions << endl;
730template <
typename SB>
733 typedef typename SB::Quotient Quotient;
734 typedef typename SB::Fraction Fraction;
738 std::vector<Quotient> quotients;
739 std::vector<Quotient> qcfrac;
740 std::back_insert_iterator< Fraction > itout =
741 std::back_inserter( f );
742 unsigned int size = ( rand() % 20 ) + 10;
743 for (
unsigned int i = 0; i < size; ++i )
745 Quotient q = ( i == 0 )
747 : ( rand() % 5 ) + 1;
748 *itout++ = std::make_pair( q, (Quotient) i );
749 quotients.push_back( q );
753 qcfrac.push_back( (*it).first );
757 trace.
info() << ( ok ?
"(OK)" :
"(ERR)" );
758 for (
unsigned int i = 0; i < quotients.size(); ++i )
759 std::cerr <<
" " << quotients[ i ];
762 f.selfDisplay( std::cerr );
767template <
typename SB>
770 unsigned int nbtests = 1000;
771 unsigned int nbok = 0;
774 for (
unsigned int i = 0; i < nbtests; ++i )
776 ++nb; nbok += testContinuedFraction<SB>() ? 1 : 0;
777 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")"
778 <<
" continued fractions." << std::endl;
787template <
typename SB>
791 typedef typename SB::Fraction Fraction;
793 typedef typename DSL::Point
Point;
796 DSL D(1077,1495,6081);
801 ASSERT( D( A ) &&
"Point A belongs to D." );
802 ASSERT( D( B ) &&
"Point A belongs to D." );
803 DSL D1 = D.reversedSmartDSS(A,B);
804 std::cerr << D1 << std::endl;
805 return D1.slope() == Fraction( 1, 1 );
810template <
typename SB>
814 typedef typename SB::Fraction Fraction;
817 unsigned int nbok = 0;
819 trace.
beginBlock(
"Testing block: simplest fraction between two fractions");
821 f = Fraction(1,5); g = Fraction(3,4);
822 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(1,2) ? 1 : 0;
823 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
825 f = Fraction(4,7); g = Fraction(5,7);
826 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(2,3) ? 1 : 0;
827 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
829 f = Fraction(3,8); g = Fraction(7,4);
830 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(1,1) ? 1 : 0;
831 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
833 f = Fraction(11,7); g = Fraction(7,4);
834 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(5,3) ? 1 : 0;
835 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
837 f = Fraction(8,13); g = Fraction(7,11);
838 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(5,8) ? 1 : 0;
839 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
842 f = Fraction(2,5); g = Fraction(4,9);
843 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(3,7) ? 1 : 0;
844 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
846 f = Fraction(2,3); g = Fraction(8,11);
847 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(5,7) ? 1 : 0;
848 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
850 f = Fraction(1,2); g = Fraction(5,9);
851 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(6,11) ? 1 : 0;
852 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
854 f = Fraction(5,9); g = Fraction(2,3);
855 ++nb; nbok += f.simplestFractionInBetween(g) == Fraction(3,5) ? 1 : 0;
856 trace.
info() <<
"(" << nbok <<
"/" << nb <<
")" << std::endl;
870 typedef SB::Fraction Fraction;
879 && testSubStandardDSLQ0<Fraction>()
880 && testContinuedFractions<SB>()
881 && testAncestors<SB>()
882 && testSimplestFractionInBetween<SB>();
883 trace.
emphase() << ( res ?
"Passed." :
"Error." ) << endl;
Aim: This class is a wrapper around ArithmeticalDSS that is devoted to the dynamic recognition of dig...
ConstIterator begin() const
Aim: This class gathers several types and methods to make computation with integers.
Integer getCFrac(std::vector< Integer > "ients, IntegerParamType a, IntegerParamType b) const
Integer gcd(IntegerParamType a, IntegerParamType b) const
Aim: This class represents a pattern, i.e. the path between two consecutive upper leaning points on a...
Aim: Represents a digital straight line with slope in the first quadrant (Q0: x >= 0,...
Aim: The Stern-Brocot tree is the tree of irreducible fractions. This class allows to construct it pr...
void beginBlock(const std::string &keyword="")
Point::Coordinate Integer
MyDigitalSurface::ConstIterator ConstIterator
DGtal is the top-level namespace which contains all DGtal functions and types.
mpz_class BigInteger
Multi-precision integer with GMP implementation.
Aim: The traits class for all models of Cinteger.
Aim: Defines a predicate on a point.
Aim: Defines positive irreducible fractions, i.e. fraction p/q, p and q non-negative integers,...
bool testSubStandardDSLQ0()
bool testReducedFraction()
bool checkSubStandardDSLQ0(const DSL &D, const typename DSL::Point &A, const typename DSL::Point &B)
bool testSimplestFractionInBetween()
bool testContinuedFraction()
bool testContinuedFractions()
bool equalCFrac(const std::vector< Quotient > &c1, const std::vector< Quotient > &c2)