comparison scripts/plot/draw/stemleaf.m @ 18654:4f43f87b7c3e

* stemleaf.m: Correct integer step value for new %d behavior.
author Michael Godfrey <michaeldgodfrey@gmail.com>
date Thu, 17 Apr 2014 10:27:09 +0100
parents 7bb76a22cde1
children
comparison
equal deleted inserted replaced
18653:7d0014bb9e4e 18654:4f43f87b7c3e
183 huidx = fix (nx + 1 - hlidx); # upper hinge index 183 huidx = fix (nx + 1 - hlidx); # upper hinge index
184 md = xs(mdidx); # median 184 md = xs(mdidx); # median
185 hl = xs(hlidx); # lower hinge 185 hl = xs(hlidx); # lower hinge
186 hu = xs(huidx); # upper hinge 186 hu = xs(huidx); # upper hinge
187 h_spread = hu - hl; # h_spread: difference between hinges 187 h_spread = hu - hl; # h_spread: difference between hinges
188 step = 1.5*h_spread; # step: 1.5 * h_spread 188 step = fix(1.5*h_spread); # step: 1.5 * h_spread
189 i_fence_l = hl - step; # inner fences: outside hinges + step 189 i_fence_l = hl - step; # inner fences: outside hinges + step
190 o_fence_l = hl - 2*step; # outer fences: outside hinges + 2*step 190 o_fence_l = hl - 2*step; # outer fences: outside hinges + 2*step
191 i_fence_h = hu + step; 191 i_fence_h = hu + step;
192 o_fence_h = hu + 2*step; 192 o_fence_h = hu + 2*step;
193 n_out_l = sum (x<i_fence_l) - sum (x<o_fence_l); 193 n_out_l = sum (x<i_fence_l) - sum (x<o_fence_l);
347 %! rexp = char ( 347 %! rexp = char (
348 %! " Data: test minus to plus" , 348 %! " Data: test minus to plus" ,
349 %! " " , 349 %! " " ,
350 %! " Fenced Letter Display" , 350 %! " Fenced Letter Display" ,
351 %! " " , 351 %! " " ,
352 %! " #138|___________________" , 352 %! " #138|___________________" ,
353 %! " M 69| 52 |" , 353 %! " M 69| 52 |" ,
354 %! " H 35| 30 116| 86" , 354 %! " H 35| 30 116| 86" ,
355 %! " 1 | -28 146|" , 355 %! " 1 | -28 146|" ,
356 %! " _______" , 356 %! " _______" ,
357 %! " ______| 129|_______" , 357 %! " ______| 129|_______" ,
358 %! " f| -99 245|" , 358 %! " f| -99 245|" ,
359 %! " | 0 0| out" , 359 %! " | 0 0| out" ,
360 %! " F| -228 374|" , 360 %! " F| -228 374|" ,
361 %! " | 0 0| far" , 361 %! " | 0 0| far" ,
362 %! " " , 362 %! " " ,
363 %! " -2 | 82" , 363 %! " -2 | 82" ,
387 %! rexp = char ( 387 %! rexp = char (
388 %! " Data: positive values above 0", 388 %! " Data: positive values above 0",
389 %! " " , 389 %! " " ,
390 %! " Fenced Letter Display" , 390 %! " Fenced Letter Display" ,
391 %! " " , 391 %! " " ,
392 %! " # 14|___________________" , 392 %! " # 14|___________________" ,
393 %! " M 7| 22 |" , 393 %! " M 7| 22 |" ,
394 %! " H 4| 12 42| 30" , 394 %! " H 4| 12 42| 30" ,
395 %! " 1 | 5 52|" , 395 %! " 1 | 5 52|" ,
396 %! " _______" , 396 %! " _______" ,
397 %! " ______| 45|_______" , 397 %! " ______| 45|_______" ,
398 %! " f| -33 87|" , 398 %! " f| -33 87|" ,
399 %! " | 0 0| out" , 399 %! " | 0 0| out" ,
400 %! " F| -78 132|" , 400 %! " F| -78 132|" ,
401 %! " | 0 0| far" , 401 %! " | 0 0| far" ,
402 %! " " , 402 %! " " ,
403 %! " 0 | 5" , 403 %! " 0 | 5" ,
416 %! rexp = char ( 416 %! rexp = char (
417 %! " Data: negative values below 0", 417 %! " Data: negative values below 0",
418 %! " " , 418 %! " " ,
419 %! " Fenced Letter Display" , 419 %! " Fenced Letter Display" ,
420 %! " " , 420 %! " " ,
421 %! " # 14|___________________" , 421 %! " # 14|___________________" ,
422 %! " M 7| -28 |" , 422 %! " M 7| -28 |" ,
423 %! " H 4| -42 -12| 30" , 423 %! " H 4| -42 -12| 30" ,
424 %! " 1 | -52 -5|" , 424 %! " 1 | -52 -5|" ,
425 %! " _______" , 425 %! " _______" ,
426 %! " ______| 45|_______" , 426 %! " ______| 45|_______" ,
427 %! " f| -87 33|" , 427 %! " f| -87 33|" ,
428 %! " | 0 0| out" , 428 %! " | 0 0| out" ,
429 %! " F| -132 78|" , 429 %! " F| -132 78|" ,
430 %! " | 0 0| far" , 430 %! " | 0 0| far" ,
431 %! " " , 431 %! " " ,
432 %! " -5 | 2" , 432 %! " -5 | 2" ,
444 %! rexp = char ( 444 %! rexp = char (
445 %! " Data: positive values from 0", 445 %! " Data: positive values from 0",
446 %! " " , 446 %! " " ,
447 %! " Fenced Letter Display" , 447 %! " Fenced Letter Display" ,
448 %! " " , 448 %! " " ,
449 %! " # 15|___________________" , 449 %! " # 15|___________________" ,
450 %! " M 8| 22 |" , 450 %! " M 8| 22 |" ,
451 %! " H 4| 11 42| 31" , 451 %! " H 4| 11 42| 31" ,
452 %! " 1 | 0 52|" , 452 %! " 1 | 0 52|" ,
453 %! " _______" , 453 %! " _______" ,
454 %! " ______| 46|_______" , 454 %! " ______| 46|_______" ,
455 %! " f| -35 88|" , 455 %! " f| -35 88|" ,
456 %! " | 0 0| out" , 456 %! " | 0 0| out" ,
457 %! " F| -82 135|" , 457 %! " F| -81 134|" ,
458 %! " | 0 0| far" , 458 %! " | 0 0| far" ,
459 %! " " , 459 %! " " ,
460 %! " 0 | 20" , 460 %! " 0 | 20" ,
461 %! " 1 | 22118" , 461 %! " 1 | 22118" ,
462 %! " 2 | 28" , 462 %! " 2 | 28" ,
473 %! rexp = char ( 473 %! rexp = char (
474 %! " Data: negative values from 0", 474 %! " Data: negative values from 0",
475 %! " " , 475 %! " " ,
476 %! " Fenced Letter Display" , 476 %! " Fenced Letter Display" ,
477 %! " " , 477 %! " " ,
478 %! " # 15|___________________" , 478 %! " # 15|___________________" ,
479 %! " M 8| -22 |" , 479 %! " M 8| -22 |" ,
480 %! " H 4| -42 -11| 31" , 480 %! " H 4| -42 -11| 31" ,
481 %! " 1 | -52 0|" , 481 %! " 1 | -52 0|" ,
482 %! " _______" , 482 %! " _______" ,
483 %! " ______| 46|_______" , 483 %! " ______| 46|_______" ,
484 %! " f| -88 35|" , 484 %! " f| -88 35|" ,
485 %! " | 0 0| out" , 485 %! " | 0 0| out" ,
486 %! " F| -135 82|" , 486 %! " F| -134 81|" ,
487 %! " | 0 0| far" , 487 %! " | 0 0| far" ,
488 %! " " , 488 %! " " ,
489 %! " -5 | 2" , 489 %! " -5 | 2" ,
490 %! " -4 | 244" , 490 %! " -4 | 244" ,
491 %! " -3 | 98" , 491 %! " -3 | 98" ,
501 %! rexp = char ( 501 %! rexp = char (
502 %! " Data: both +0 and -0 present", 502 %! " Data: both +0 and -0 present",
503 %! " " , 503 %! " " ,
504 %! " Fenced Letter Display" , 504 %! " Fenced Letter Display" ,
505 %! " " , 505 %! " " ,
506 %! " # 5|___________________" , 506 %! " # 5|___________________" ,
507 %! " M 3| 0 |" , 507 %! " M 3| 0 |" ,
508 %! " H 2| -7 0| 7" , 508 %! " H 2| -7 0| 7" ,
509 %! " 1 | -9 0|" , 509 %! " 1 | -9 0|" ,
510 %! " _______" , 510 %! " _______" ,
511 %! " ______| 10|_______" , 511 %! " ______| 10|_______" ,
512 %! " f| -17 10|" , 512 %! " f| -17 10|" ,
513 %! " | 0 0| out" , 513 %! " | 0 0| out" ,
514 %! " F| -28 21|" , 514 %! " F| -27 20|" ,
515 %! " | 0 0| far" , 515 %! " | 0 0| far" ,
516 %! " " , 516 %! " " ,
517 %! " -0 | 9700" , 517 %! " -0 | 9700" ,
518 %! " 0 | 0" ); 518 %! " 0 | 0" );
519 %! r = stemleaf (x, "both +0 and -0 present"); 519 %! r = stemleaf (x, "both +0 and -0 present");
525 %! rexp = char ( 525 %! rexp = char (
526 %! " Data: both <= 0 and -0 present", 526 %! " Data: both <= 0 and -0 present",
527 %! " " , 527 %! " " ,
528 %! " Fenced Letter Display" , 528 %! " Fenced Letter Display" ,
529 %! " " , 529 %! " " ,
530 %! " # 4|___________________" , 530 %! " # 4|___________________" ,
531 %! " M 2| -7 |" , 531 %! " M 2| -7 |" ,
532 %! " H 1| -9 0| 9" , 532 %! " H 1| -9 0| 9" ,
533 %! " 1 | -9 0|" , 533 %! " 1 | -9 0|" ,
534 %! " _______" , 534 %! " _______" ,
535 %! " ______| 13|_______" , 535 %! " ______| 13|_______" ,
536 %! " f| -22 13|" , 536 %! " f| -22 13|" ,
537 %! " | 0 0| out" , 537 %! " | 0 0| out" ,
538 %! " F| -36 27|" , 538 %! " F| -35 26|" ,
539 %! " | 0 0| far" , 539 %! " | 0 0| far" ,
540 %! " " , 540 %! " " ,
541 %! " -0 | 970" , 541 %! " -0 | 970" ,
542 %! " 0 | 0" ); 542 %! " 0 | 0" );
543 %! r = stemleaf (x, "both <= 0 and -0 present"); 543 %! r = stemleaf (x, "both <= 0 and -0 present");
550 %! rexp = char ( 550 %! rexp = char (
551 %! " Data: Chevrolet Prices EDA pg.30", 551 %! " Data: Chevrolet Prices EDA pg.30",
552 %! " " , 552 %! " " ,
553 %! " Fenced Letter Display" , 553 %! " Fenced Letter Display" ,
554 %! " " , 554 %! " " ,
555 %! " # 17|___________________" , 555 %! " # 17|___________________" ,
556 %! " M 9| 895 |" , 556 %! " M 9| 895 |" ,
557 %! " H 5| 795 1499| 704" , 557 %! " H 5| 795 1499| 704" ,
558 %! " 1 | 150 1995|" , 558 %! " 1 | 150 1995|" ,
559 %! " _______" , 559 %! " _______" ,
560 %! " ______| 1056|_______" , 560 %! " ______| 1056|_______" ,