[9102] | 1 | ///
|
---|
| 2 | /// This file is part of ILNumerics Community Edition.
|
---|
| 3 | ///
|
---|
| 4 | /// ILNumerics Community Edition - high performance computing for applications.
|
---|
| 5 | /// Copyright (C) 2006 - 2012 Haymo Kutschbach, http://ilnumerics.net
|
---|
| 6 | ///
|
---|
| 7 | /// ILNumerics Community Edition is free software: you can redistribute it and/or modify
|
---|
| 8 | /// it under the terms of the GNU General Public License version 3 as published by
|
---|
| 9 | /// the Free Software Foundation.
|
---|
| 10 | ///
|
---|
| 11 | /// ILNumerics Community Edition is distributed in the hope that it will be useful,
|
---|
| 12 | /// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
---|
| 13 | /// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
---|
| 14 | /// GNU General Public License for more details.
|
---|
| 15 | ///
|
---|
| 16 | /// You should have received a copy of the GNU General Public License
|
---|
| 17 | /// along with ILNumerics Community Edition. See the file License.txt in the root
|
---|
| 18 | /// of your distribution package. If not, see <http://www.gnu.org/licenses/>.
|
---|
| 19 | ///
|
---|
| 20 | /// In addition this software uses the following components and/or licenses:
|
---|
| 21 | ///
|
---|
| 22 | /// =================================================================================
|
---|
| 23 | /// The Open Toolkit Library License
|
---|
| 24 | ///
|
---|
| 25 | /// Copyright (c) 2006 - 2009 the Open Toolkit library.
|
---|
| 26 | ///
|
---|
| 27 | /// Permission is hereby granted, free of charge, to any person obtaining a copy
|
---|
| 28 | /// of this software and associated documentation files (the "Software"), to deal
|
---|
| 29 | /// in the Software without restriction, including without limitation the rights to
|
---|
| 30 | /// use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
|
---|
| 31 | /// the Software, and to permit persons to whom the Software is furnished to do
|
---|
| 32 | /// so, subject to the following conditions:
|
---|
| 33 | ///
|
---|
| 34 | /// The above copyright notice and this permission notice shall be included in all
|
---|
| 35 | /// copies or substantial portions of the Software.
|
---|
| 36 | ///
|
---|
| 37 | /// =================================================================================
|
---|
| 38 | ///
|
---|
| 39 |
|
---|
| 40 | using System;
|
---|
| 41 | using System.Collections.Generic;
|
---|
| 42 | using System.Text;
|
---|
| 43 | using ILNumerics;
|
---|
| 44 | using ILNumerics.Exceptions;
|
---|
| 45 | using ILNumerics.Storage;
|
---|
| 46 | using ILNumerics.Misc;
|
---|
| 47 |
|
---|
| 48 | namespace ILNumerics {
|
---|
| 49 |
|
---|
| 50 | public partial class ILMath {
|
---|
| 51 |
|
---|
| 52 | /// <summary>
|
---|
| 53 | /// Size of dimensions of A
|
---|
| 54 | /// </summary>
|
---|
| 55 | /// <param name="A">Input array</param>
|
---|
| 56 | /// <returns>Double array with the length of each dimension of A</returns>
|
---|
| 57 | /// <remarks>If A is null, an empty array will be returned. Otherwise the array returned will always be a row vector of length s. s >= 2</remarks>
|
---|
| 58 | public static ILRetArray<double> size(ILBaseArray A) {
|
---|
| 59 | using (ILScope.Enter(A)) {
|
---|
| 60 | if (object.Equals (A,null))
|
---|
| 61 | return empty<double>(ILSize.Empty00);
|
---|
| 62 | int numDim = A.Size.NumberOfDimensions;
|
---|
| 63 | double [] retArr = new double[numDim];
|
---|
| 64 | for (int i = 0; i < numDim; i++) {
|
---|
| 65 | retArr[i] = A.Size[i];
|
---|
| 66 | }
|
---|
| 67 | return new ILRetArray<double>(retArr,1,numDim);
|
---|
| 68 | }
|
---|
| 69 | }
|
---|
| 70 | /// <summary>
|
---|
| 71 | /// Length of one specific dimension of A
|
---|
| 72 | /// </summary>
|
---|
| 73 | /// <param name="A">Input array</param>
|
---|
| 74 | /// <param name="dim">Number of dimension to query the length for</param>
|
---|
| 75 | /// <returns>Length of dimension 'dim'</returns>
|
---|
| 76 | public static int size(ILBaseArray A, int dim) {
|
---|
| 77 | using (ILScope.Enter(A)) {
|
---|
| 78 | if (object.Equals(A,null) || dim < 0)
|
---|
| 79 | throw new ILArgumentException("size: A must not be null");
|
---|
| 80 | return A.Size[dim];
|
---|
| 81 | }
|
---|
| 82 | }
|
---|
| 83 | /// <summary>
|
---|
| 84 | /// Create a size descriptor
|
---|
| 85 | /// </summary>
|
---|
| 86 | /// <param name="dimensions">Arbitrary number of dimension length</param>
|
---|
| 87 | /// <returns>Size descriptor</returns>
|
---|
| 88 | public static ILSize size(params int[] dimensions) {
|
---|
| 89 | return new ILSize(dimensions);
|
---|
| 90 | }
|
---|
| 91 |
|
---|
| 92 | /// <summary>
|
---|
| 93 | /// Longest dimension of A
|
---|
| 94 | /// </summary>
|
---|
| 95 | /// <param name="A">Input array</param>
|
---|
| 96 | /// <returns>If A is null:0 - length of longest dimension of A</returns>
|
---|
| 97 | /// <remarks>This is an alias/abreviation for A.Dimensions.Longest</remarks>
|
---|
| 98 | public static int length(ILBaseArray A) {
|
---|
| 99 | using (ILScope.Enter(A)) {
|
---|
| 100 | if (object.Equals(A,null)) return 0;
|
---|
| 101 | return A.Size.Longest;
|
---|
| 102 | }
|
---|
| 103 | }
|
---|
| 104 |
|
---|
| 105 | /// <summary>
|
---|
| 106 | /// Number of dimensions of A
|
---|
| 107 | /// </summary>
|
---|
| 108 | /// <param name="A">Input array</param>
|
---|
| 109 | /// <returns>If A is null: 0 - else number of dimensions of A</returns>
|
---|
| 110 | /// <remarks>This is an alias/abreviation for A.Dimensions.NumberOfDimensions</remarks>
|
---|
| 111 | ///
|
---|
| 112 | public static int ndims(ILBaseArray A) {
|
---|
| 113 | using (ILScope.Enter(A)) {
|
---|
| 114 | if (object.Equals(A,null)) return 0;
|
---|
| 115 | return A.Size.NumberOfDimensions;
|
---|
| 116 | }
|
---|
| 117 | }
|
---|
| 118 |
|
---|
| 119 | /// <summary>
|
---|
| 120 | /// Number of elements of A
|
---|
| 121 | /// </summary>
|
---|
| 122 | /// <param name="A">Input array</param>
|
---|
| 123 | /// <returns>Number of elements of A</returns>
|
---|
| 124 | /// <remarks>This is an alias/abreviation for A.Dimensions.NumberOfElements</remarks>
|
---|
| 125 | public static int numel(ILBaseArray A) {
|
---|
| 126 | using (ILScope.Enter(A)) {
|
---|
| 127 | if (object.Equals(A,null)) return 0;
|
---|
| 128 | return A.Size.NumberOfElements;
|
---|
| 129 | }
|
---|
| 130 | }
|
---|
| 131 | }
|
---|
| 132 | }
|
---|