Mercurial > octave-nkf

comparison scripts/special-matrix/gallery.m @ 20334:c5a8eff5a05d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gallery: add very basic tests (check output size) for all matrix types.
author Carnë Draug <carandraug@octave.org>
date Fri, 03 Jul 2015 16:53:08 +0100
parents ababbe103048
children
comparison
equal deleted inserted replaced
20333:ababbe103048 20334:c5a8eff5a05d
2913 2913
2914 %!assert (gallery ("minij", 4), [1 1 1 1; 1 2 2 2; 1 2 3 3; 1 2 3 4]) 2914 %!assert (gallery ("minij", 4), [1 1 1 1; 1 2 2 2; 1 2 3 3; 1 2 3 4])
2915 %!assert (gallery ("minij", 1), 1) 2915 %!assert (gallery ("minij", 1), 1)
2916 %!assert (gallery ("minij", 0), []) 2916 %!assert (gallery ("minij", 0), [])
2917 %!assert (gallery ("minij", -1), []) 2917 %!assert (gallery ("minij", -1), [])
2918
2919 %!assert (size (gallery ("cauchy", 5)), [5 5])
2920 %!assert (size (gallery ("cauchy", 2:5, 5:8)), [4 4])
2921
2922 %!assert (size (gallery ("chebspec", 5)), [5 5])
2923 %!assert (size (gallery ("chebspec", 5, 1)), [5 5])
2924 %!assert (size (gallery ("chebspec", 5, 0)), [5 5])
2925
2926 %!assert (size (gallery ("chebvand", 7)), [7 7])
2927 %!assert (size (gallery ("chebvand", 1:7)), [7 7])
2928 %!assert (size (gallery ("chebvand", 5, 7)), [5 7])
2929
2930 %!assert (size (gallery ("chow", 5)), [5 5])
2931 %!assert (size (gallery ("chow", 5, 6)), [5 5])
2932 %!assert (size (gallery ("chow", 5, 6, 7)), [5 5])
2933
2934 %!assert (gallery ("circul", 3), [1 2 3; 3 1 2; 2 3 1])
2935 %!assert (gallery ("circul", [1 3 6]), [1 3 6; 6 1 3; 3 6 1])
2936
2937 %!assert (size (gallery ("clement", 5)), [5 5])
2938 %!assert (size (gallery ("clement", 5, 1)), [5 5])
2939 %!assert (size (gallery ("clement", 5, 0)), [5 5])
2940
2941 %!assert (size (gallery ("compar", ones (5))), [5 5])
2942 %!assert (size (gallery ("compar", ones (5), 0)), [5 5])
2943 %!assert (size (gallery ("compar", ones (5), 1)), [5 5])
2944
2945 %!assert (size (gallery ("condex", 4)), [4 4])
2946 %!assert (size (gallery ("condex", 4, 1)), [4 4])
2947 %!assert (size (gallery ("condex", 4, 1, 50)), [4 4])
2948
2949 %!assert (size (gallery ("cycol", [4 5])), [4 5])
2950 %!assert (size (gallery ("cycol", [4 5], 1)), [4 5])
2951 %!assert (size (gallery ("cycol", 4)), [4 4])
2952 %!assert (size (gallery ("cycol", 4, 1)), [4 4])
2953
2954 %!assert (size (gallery ("dorr", 4)), [4 4])
2955 %!assert (cellfun (@rows, nthargout (1:3, @gallery, "dorr", 4)), [3 4 3])
2956
2957 %!assert (size (gallery ("dramadah", 5)), [5 5])
2958 %!assert (size (gallery ("dramadah", 5, 2)), [5 5])
2959
2960 %!assert (size (gallery ("fiedler", 5)), [5 5])
2961 %!assert (size (gallery ("fiedler", 2:5)), [4 4])
2962
2963 %!assert (size (gallery ("forsythe", 5)), [5 5])
2964 %!assert (size (gallery ("forsythe", 5, 1, 0.5)), [5 5])
2965 %!assert (size (gallery ("forsythe", 5, 4, 7)), [5 5])
2966
2967 %!assert (size (gallery ("frank", 5)), [5 5])
2968 %!assert (size (gallery ("frank", 5, 1)), [5 5])
2969
2970 %!assert (size (gallery ("gcdmat", 5)), [5 5])
2971
2972 %!assert (size (gallery ("gearmat", 5)), [5 5])
2973 %!assert (size (gallery ("gearmat", 5, 4)), [5 5])
2974 %!assert (size (gallery ("gearmat", 5, 4, 3)), [5 5])
2975
2976 %!assert (size (gallery ("grcar", 5)), [5 5])
2977 %!assert (size (gallery ("grcar", 5, 2)), [5 5])
2978
2979 %!error <N must be even> gallery ("hanowa", 5)
2980 %!assert (size (gallery ("hanowa", 6, 5)), [6 6])
2981 %!assert (size (gallery ("hanowa", 6, 5)), [6 6])
2982
2983 %!assert (size (gallery ("house", [1:5]')), [5 1])
2984 %!assert (cellfun (@rows, nthargout (1:2, @gallery, "house", [1:5]')), [5 1])
2985
2986 %!assert (size (gallery ("integerdata", 5, [3 2], 5)), [3 2])
2987 %!assert (size (gallery ("integerdata", 5, [3 2 6], 5)), [3 2 6])
2988
2989 %!assert (size (gallery ("invhess", 1:4, 1:3)), [4 4])
2990
2991 %!assert (size (gallery ("invol", 4)), [4 4])
2992
2993 %!assert (size (gallery ("ipjfact", 4)), [4 4])
2994 %!assert (size (gallery ("ipjfact", 4, 0)), [4 4])
2995 %!assert (size (gallery ("ipjfact", 4, 1)), [4 4])
2996
2997 %!assert (size (gallery ("jordbloc", 4)), [4 4])
2998 %!assert (size (gallery ("jordbloc", 4, 1)), [4 4])
2999 %!assert (size (gallery ("jordbloc", 4, 3)), [4 4])
3000
3001 %!assert (size (gallery ("kahan", 4)), [4 4])
3002 %!assert (size (gallery ("kahan", [4 5])), [4 5])
3003 %!assert (size (gallery ("kahan", [4 5], 1)), [4 5])
3004 %!assert (size (gallery ("kahan", [4 5], 1, 30)), [4 5])
3005
3006 %!assert (size (gallery ("kms", 5)), [5 5])
3007 %!assert (size (gallery ("kms", 5, 0.2)), [5 5])
3008
3009 %!assert (size (gallery ("krylov", 4)), [4 4])
3010 %!assert (size (gallery ("krylov", ones (4)), [4 4]))
3011 %!assert (size (gallery ("krylov", ones (4), [.2 .3 .4 .5], 3), [4 4]))
3012
3013 %!assert (size (gallery ("lauchli", 5)), [6 5])
3014 %!assert (size (gallery ("lauchli", 5, 3)), [6 5])
3015
3016 %!assert (size (gallery ("lehmer", 5)), [5 5])
3017
3018 %!assert (size (gallery ("lesp", 5)), [5 5])
3019
3020 %!assert (size (gallery ("lotkin", 5)), [5 5])
3021
3022 %!assert (size (gallery ("minij", 5)), [5 5])
3023
3024 %!assert (size (gallery ("moler", 5)), [5 5])
3025 %!assert (size (gallery ("moler", 5, 0.2)), [5 5])
3026
3027 %!assert (size (gallery ("neumann", 4)), [4 4])
3028
3029 %!assert (size (gallery ("normaldata", [5 4 6], 3)), [5 4 6])
3030
3031 %!assert (size (gallery ("orthog", 5)), [5 5])
3032 %!assert (size (gallery ("orthog", 5, 2)), [5 5])
3033 %!assert (size (gallery ("orthog", 5, -2)), [5 5])
3034
3035 %!assert (size (gallery ("parter", 5)), [5 5])
3036
3037 %!assert (size (gallery ("pei", 5)), [5 5])
3038 %!assert (size (gallery ("pei", 5, 4)), [5 5])
3039
3040 %!assert (size (gallery ("poisson", 1)), [1 1])
3041 %!assert (size (gallery ("poisson", 4)), [16 16])
3042 %!assert (size (gallery ("poisson", 5)), [25 25])
3043
3044 %!assert (size (gallery ("prolate", 5)), [5 5])
3045 %!assert (size (gallery ("prolate", 5, 0.5)), [5 5])
3046
3047 %!assert (size (gallery ("randhess", 5)), [5 5])
3048 %!assert (size (gallery ("randhess", 2:5)), [4 4])
3049
3050 %!assert (size (gallery ("rando", 5)), [5 5])
3051 %!assert (size (gallery ("rando", 5, 2)), [5 5])
3052
3053 %!assert (size (gallery ("randsvd", 5)), [5 5])
3054 %!assert (size (gallery ("randsvd", [5 3])), [5 3])
3055
3056 %!assert (size (gallery ("redheff", 5)), [5 5])
3057 %!assert (size (gallery ("riemann", 5)), [5 5])
3058 %!assert (size (gallery ("ris", 5)), [5 5])
3059
3060 %!assert (size (gallery ("smoke", 5)), [5 5])
3061 %!assert (size (gallery ("smoke", 5, 1)), [5 5])
3062 %!assert (gallery ("smoke", 5, 1)(5, 1), 0)
3063
3064 %!assert (size (gallery ("toeppd", 5)), [5 5])
3065
3066 %!assert (size (gallery ("toeppen", 5)), [5 5])
3067
3068 %!assert (size (gallery ("tridiag", 5)), [5 5])
3069 %!assert (size (gallery ("tridiag", 1:4, 1:5, 1:4)), [5 5])
3070 %!assert (gallery ("tridiag", 5), gallery ("tridiag", 5, -1, 2, -1))
3071
3072 %!assert (size (gallery ("triw", 5)), [5 5])
3073
3074 %!assert (size (gallery ("uniformdata", [5 3 4], 3)), [5 3 4])
3075
3076 %!assert (size (gallery ("wathen", 2, 3)), [29 29])
3077
3078 %!assert (cellfun (@rows, nthargout (1:2, @gallery, "wilk", 3)), [3 3])
3079 %!assert (cellfun (@rows, nthargout (1:2, @gallery, "wilk", 4)), [4 4])
3080 %!assert (size (gallery ("wilk", 5)), [5 5])
3081 %!assert (size (gallery ("wilk", 21)), [21 21])