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 | public partial class ILMath {
|
---|
50 | /// <summary>
|
---|
51 | /// Convert sequential index into subscript indices
|
---|
52 | /// </summary>
|
---|
53 | /// <param name="A">Input array</param>
|
---|
54 | /// <param name="seqindex">Sequential index</param>
|
---|
55 | /// <returns>Subscript indices</returns>
|
---|
56 | /// <remarks><para>The index array returned will have the length of number of dimensions of A</para>
|
---|
57 | /// <para>If A is a null or an empty array, the return value will be also be empty</para>
|
---|
58 | /// </remarks>
|
---|
59 | /// <exception cref="System.IndexOutOfRangeException">If seqindex is < 0 or >= numel(A)</exception>
|
---|
60 | public static ILRetArray<double> ind2sub(ILBaseArray A, int seqindex) {
|
---|
61 | using (ILScope.Enter(A)) {
|
---|
62 | if (object.Equals(A, null) || A.IsEmpty)
|
---|
63 | return empty();
|
---|
64 | if (seqindex < 0 || seqindex >= A.Size.NumberOfElements)
|
---|
65 | throw new ILArgumentException("index out of range: " + seqindex);
|
---|
66 | int IdxCpy = seqindex;
|
---|
67 | ILArray<double> ret = zeros(1, A.Size.NumberOfDimensions);
|
---|
68 | for (int d = 0; d < ret.Length; d++) {
|
---|
69 | ret.SetValue(IdxCpy % A.Size[d], d);
|
---|
70 | IdxCpy /= A.Size[d];
|
---|
71 | }
|
---|
72 | return ret;
|
---|
73 | }
|
---|
74 | }
|
---|
75 | }
|
---|
76 | }
|
---|