Mercurial > octave-libgccjit

comparison test/test_arith.m @ 5955:fc46f9c99028

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-08-22 18:37:43 by jwe]
author jwe
date Tue, 22 Aug 2006 18:37:43 +0000
parents 02c7e288f581
children 93c65f2a5668
comparison
equal deleted inserted replaced
5954:250e062c3393 5955:fc46f9c99028
141 %!test 141 %!test
142 %! s.a = 1; 142 %! s.a = 1;
143 %! fail("lcm (s)"); 143 %! fail("lcm (s)");
144 144
145 %% test/octave.test/arith/max-1.m 145 %% test/octave.test/arith/max-1.m
146 %!assert(max ([1, 4, 2, 3]) == 4 && max ([1; -10; 5; -2]) == 5); 146 %!assert (max ([1, 4, 2, 3]) == 4);
147 %!assert (max ([1; -10; 5; -2]) == 5);
147 148
148 %% test/octave.test/arith/max-2.m 149 %% test/octave.test/arith/max-2.m
149 %!assert(all (max ([4, i 4.999; -2, 2, 3+4i]) == [4, 2, 3+4i])); 150 %!assert(all (max ([4, i 4.999; -2, 2, 3+4i]) == [4, 2, 3+4i]));
150 151
151 %% test/octave.test/arith/max-3.m 152 %% test/octave.test/arith/max-3.m
153 154
154 %% test/octave.test/arith/max-4.m 155 %% test/octave.test/arith/max-4.m
155 %!error <Invalid call to max.*> max (1, 2, 3, 4); 156 %!error <Invalid call to max.*> max (1, 2, 3, 4);
156 157
157 %% test/octave.test/arith/min-1.m 158 %% test/octave.test/arith/min-1.m
158 %!assert(min ([1, 4, 2, 3]) == 1 && min ([1; -10; 5; -2]) == -10); 159 %!assert (min ([1, 4, 2, 3]) == 1);
160 %!assert (min ([1; -10; 5; -2]) == -10);
159 161
160 %% test/octave.test/arith/min-2.m 162 %% test/octave.test/arith/min-2.m
161 %!assert(all (min ([4, i; -2, 2]) == [-2, i])); 163 %!assert(all (min ([4, i; -2, 2]) == [-2, i]));
162 164
163 %% test/octave.test/arith/min-3.m 165 %% test/octave.test/arith/min-3.m
698 700
699 %% test/octave.test/arith/sum-3.m 701 %% test/octave.test/arith/sum-3.m
700 %!error <Invalid call to sum.*> sum (); 702 %!error <Invalid call to sum.*> sum ();
701 703
702 %% test/octave.test/arith/sum-4.m 704 %% test/octave.test/arith/sum-4.m
703 %!assert((all (sum ([1, 2; 3, 4], 1) == [4, 6]) 705 %!assert (all (sum ([1, 2; 3, 4], 1) == [4, 6]));
704 %! && all (sum ([1, 2; 3, 4], 2) == [3; 7]) 706 %!assert (all (sum ([1, 2; 3, 4], 2) == [3; 7]));
705 %! && sum (zeros (1, 0)) == 0 707 %!assert (sum (zeros (1, 0)) == 0);
706 %! && all (size (sum (zeros (1, 0), 1)) == [1, 0]) 708 %!assert (all (size (sum (zeros (1, 0), 1)) == [1, 0]));
707 %! && sum (zeros (1, 0), 2) == 0 709 %!assert (sum (zeros (1, 0), 2) == 0);
708 %! && sum (zeros (0, 1)) == 0 710 %!assert (sum (zeros (0, 1)) == 0);
709 %! && sum (zeros (0, 1), 1) == 0 711 %!assert (sum (zeros (0, 1), 1) == 0);
710 %! && all (size (sum (zeros (0, 1), 2)) == [0, 1]) 712 %!assert (all (size (sum (zeros (0, 1), 2)) == [0, 1]));
711 %! && all (size (sum (zeros (2, 0))) == [1, 0]) 713 %!assert (all (size (sum (zeros (2, 0))) == [1, 0]));
712 %! && all (size (sum (zeros (2, 0), 1)) == [1, 0]) 714 %!assert (all (size (sum (zeros (2, 0), 1)) == [1, 0]));
713 %! && all (sum (zeros (2, 0), 2) == [0; 0]) 715 %!assert (all (sum (zeros (2, 0), 2) == [0; 0]));
714 %! && all (sum (zeros (0, 2)) == [0, 0]) 716 %!assert (all (sum (zeros (0, 2)) == [0, 0]));
715 %! && all (sum (zeros (0, 2), 1) == [0, 0]) 717 %!assert (all (sum (zeros (0, 2), 1) == [0, 0]));
716 %! && all (size (sum (zeros (0, 2), 2)) == [0, 1]))); 718 %!assert (all (size (sum (zeros (0, 2), 2)) == [0, 1]));
719 %!assert (all (size (sum (zeros (2, 2, 0, 3))) == [1, 2, 0, 3]));
720 %!assert (all (size (sum (zeros (2, 2, 0, 3), 2)) == [2, 1, 0, 3]));
721 %!assert (all (size (sum (zeros (2, 2, 0, 3), 3)) == [2, 2, 1, 3]));
722 %!assert (all (size (sum (zeros (2, 2, 0, 3), 4)) == [2, 2, 0]));
723 %!assert (all (size (sum (zeros (2, 2, 0, 3), 7)) == [2, 2, 0, 3]));
717 724
718 %% test/octave.test/arith/prod-1.m 725 %% test/octave.test/arith/prod-1.m
719 %!assert((prod ([1, 2, 3]) == 6 && prod ([-1; -2; -3]) == -6 726 %!assert (prod ([1, 2, 3]) == 6 && prod ([-1; -2; -3]) == -6);
720 %! && prod ([i, 2+i, -3+2i, 4]) == -4-32i)); 727 %!assert (prod ([i, 2+i, -3+2i, 4]) == -4-32i);
721 728
722 %% test/octave.test/arith/prod-2.m 729 %% test/octave.test/arith/prod-2.m
723 %!assert(all (all (prod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) 730 %!assert(all (all (prod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i])
724 %! == [-1+i, -8+8i, -27+27i]))); 731 %! == [-1+i, -8+8i, -27+27i])));
725 732
726 %% test/octave.test/arith/prod-3.m 733 %% test/octave.test/arith/prod-3.m
727 %!error <Invalid call to prod.*> prod (); 734 %!error <Invalid call to prod.*> prod ();
728 735
729 %% test/octave.test/arith/prod-4.m 736 %% test/octave.test/arith/prod-4.m
730 %!assert((all (prod ([1, 2; 3, 4], 1) == [3, 8]) 737 %!assert (all (prod ([1, 2; 3, 4], 1) == [3, 8]));
731 %! && all (prod ([1, 2; 3, 4], 2) == [2; 12]) 738 %!assert (all (prod ([1, 2; 3, 4], 2) == [2; 12]));
732 %! && prod (zeros (1, 0)) == 1 739 %!assert (prod (zeros (1, 0)) == 1);
733 %! && all (size (prod (zeros (1, 0), 1)) == [1, 0]) 740 %!assert (all (size (prod (zeros (1, 0), 1)) == [1, 0]));
734 %! && prod (zeros (1, 0), 2) == 1 741 %!assert (prod (zeros (1, 0), 2) == 1);
735 %! && prod (zeros (0, 1)) == 1 742 %!assert (prod (zeros (0, 1)) == 1);
736 %! && prod (zeros (0, 1), 1) == 1 743 %!assert (prod (zeros (0, 1), 1) == 1);
737 %! && all (size (prod (zeros (0, 1), 2)) == [0, 1]) 744 %!assert (all (size (prod (zeros (0, 1), 2)) == [0, 1]));
738 %! && all (size (prod (zeros (2, 0))) == [1, 0]) 745 %!assert (all (size (prod (zeros (2, 0))) == [1, 0]));
739 %! && all (size (prod (zeros (2, 0), 1)) == [1, 0]) 746 %!assert (all (size (prod (zeros (2, 0), 1)) == [1, 0]));
740 %! && all (prod (zeros (2, 0), 2) == [1; 1]) 747 %!assert (all (prod (zeros (2, 0), 2) == [1; 1]));
741 %! && all (prod (zeros (0, 2)) == [1, 1]) 748 %!assert (all (prod (zeros (0, 2)) == [1, 1]));
742 %! && all (prod (zeros (0, 2), 1) == [1, 1]) 749 %!assert (all (prod (zeros (0, 2), 1) == [1, 1]));
743 %! && all (size (prod (zeros (0, 2), 2)) == [0, 1]))); 750 %!assert (all (size (prod (zeros (0, 2), 2)) == [0, 1]));
744 751
745 %% test/octave.test/arith/cumsum-1.m 752 %% test/octave.test/arith/cumsum-1.m
746 %!assert((cumsum ([1, 2, 3]) == [1, 3, 6] && cumsum ([-1; -2; -3]) == [-1; -3; -6] 753 %!assert (cumsum ([1, 2, 3]) == [1, 3, 6]);
747 %! && cumsum ([i, 2+i, -3+2i, 4]) == [i, 2+2i, -1+4i, 3+4i])); 754 %!assert (cumsum ([-1; -2; -3]) == [-1; -3; -6]);
755 %!assert (cumsum ([i, 2+i, -3+2i, 4]) == [i, 2+2i, -1+4i, 3+4i]);
748 756
749 %% test/octave.test/arith/cumsum-2.m 757 %% test/octave.test/arith/cumsum-2.m
750 %!assert(all (all (cumsum ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) 758 %!assert(all (all (cumsum ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i])
751 %! == [1, 2, 3; 1+i, 2+2i, 3+3i; 2+2i, 4+4i, 6+6i]))); 759 %! == [1, 2, 3; 1+i, 2+2i, 3+3i; 2+2i, 4+4i, 6+6i])));
752 760
753 %% test/octave.test/arith/cumsum-3.m 761 %% test/octave.test/arith/cumsum-3.m
754 %!error <Invalid call to cumsum.*> cumsum (); 762 %!error <Invalid call to cumsum.*> cumsum ();
755 763
756 %% test/octave.test/arith/cumsum-4.m 764 %% test/octave.test/arith/cumsum-4.m
757 %!assert((all (cumsum ([1, 2; 3, 4], 1) == [1, 2; 4, 6]) 765 %!assert (all (cumsum ([1, 2; 3, 4], 1) == [1, 2; 4, 6]));
758 %! && all (cumsum ([1, 2; 3, 4], 2) == [1, 3; 3, 7]))); 766 %!assert (all (cumsum ([1, 2; 3, 4], 2) == [1, 3; 3, 7]));
759 767
760 %% test/octave.test/arith/cumprod-1.m 768 %% test/octave.test/arith/cumprod-1.m
761 %!assert((cumprod ([1, 2, 3]) == [1, 2, 6] && cumprod ([-1; -2; -3]) == [-1; 2; -6] 769 %!assert (cumprod ([1, 2, 3]) == [1, 2, 6]);
762 %! && cumprod ([i, 2+i, -3+2i, 4]) == [i, -1+2i, -1-8i, -4-32i])); 770 %!assert (cumprod ([-1; -2; -3]) == [-1; 2; -6]);
771 %!assert (cumprod ([i, 2+i, -3+2i, 4]) == [i, -1+2i, -1-8i, -4-32i]);
763 772
764 %% test/octave.test/arith/cumprod-2.m 773 %% test/octave.test/arith/cumprod-2.m
765 %!assert(all (all (cumprod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i]) 774 %!assert(all (all (cumprod ([1, 2, 3; i, 2i, 3i; 1+i, 2+2i, 3+3i])
766 %! == [1, 2, 3; i, 4i, 9i; -1+i, -8+8i, -27+27i]))); 775 %! == [1, 2, 3; i, 4i, 9i; -1+i, -8+8i, -27+27i])));
767 776
768 %% test/octave.test/arith/cumprod-3.m 777 %% test/octave.test/arith/cumprod-3.m
769 %!error <Invalid call to cumprod.*> cumprod (); 778 %!error <Invalid call to cumprod.*> cumprod ();
770 779
771 %% test/octave.test/arith/cumprod-4.m 780 %% test/octave.test/arith/cumprod-4.m
772 %!assert((all (cumprod ([2, 3; 4, 5], 1) == [2, 3; 8, 15]) 781 %!assert (all (cumprod ([2, 3; 4, 5], 1) == [2, 3; 8, 15]));
773 %! && all (cumprod ([2, 3; 4, 5], 2) == [2, 6; 4, 20]))); 782 %!assert (all (cumprod ([2, 3; 4, 5], 2) == [2, 6; 4, 20]));
774 783
775 %% test/octave.test/arith/sumsq-1.m 784 %% test/octave.test/arith/sumsq-1.m
776 %!assert(sumsq ([1, 2, 3]) == 14 && sumsq ([-1; -2; 4i]) == 21); 785 %!assert(sumsq ([1, 2, 3]) == 14 && sumsq ([-1; -2; 4i]) == 21);
777 786
778 %% test/octave.test/arith/sumsq-2.m 787 %% test/octave.test/arith/sumsq-2.m
780 789
781 %% test/octave.test/arith/sumsq-3.m 790 %% test/octave.test/arith/sumsq-3.m
782 %!error <Invalid call to sumsq.*> sumsq (); 791 %!error <Invalid call to sumsq.*> sumsq ();
783 792
784 %% test/octave.test/arith/sumsq-4.m 793 %% test/octave.test/arith/sumsq-4.m
785 %!assert((all (sumsq ([1, 2; 3, 4], 1) == [10, 20]) 794 %!assert (all (sumsq ([1, 2; 3, 4], 1) == [10, 20]));
786 %! && all (sumsq ([1, 2; 3, 4], 2) == [5; 25]))); 795 %!assert (all (sumsq ([1, 2; 3, 4], 2) == [5; 25]));
787 796
788 %% test/octave.test/arith/bincoeff-1.m 797 %% test/octave.test/arith/bincoeff-1.m
789 %!assert(bincoeff (5, 2) == 10 && bincoeff (50, 6) == 15890700); 798 %!assert(bincoeff (5, 2) == 10 && bincoeff (50, 6) == 15890700);
790 799
791 %% test/octave.test/arith/bincoeff-2.m 800 %% test/octave.test/arith/bincoeff-2.m