casadi 3.6.4__cp312-none-macosx_10_13_x86_64.macosx_10_13_intel.whl

casadi/include/casadi/core/runtime/casadi_sum.hpp

@@ -0,0 +1,31 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+// SYMBOL "sum"
+template<typename T1>
+T1 casadi_sum(const T1* x, casadi_int n) {
+  casadi_int i;
+  T1 r = 0;
+
+  r = 0;
+  for (i=0; i<n; ++i) {
+    r += x[i];
+  }
+  return r;
+}

casadi/include/casadi/core/runtime/casadi_sum_viol.hpp

@@ -0,0 +1,37 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+// SYMBOL "sum_viol"
+template<typename T1>
+T1 casadi_sum_viol(casadi_int n, const T1* x, const T1* lb, const T1* ub) {
+  T1 r;
+  casadi_int i;
+  const T1 zero = 0;
+  r = 0;
+  for (i=0; i<n; ++i) {
+    T1 x_i, lb_i, ub_i;
+    x_i = x ? *x++ : zero;
+    lb_i = lb ? *lb++ : zero;
+    ub_i = ub ? *ub++ : zero;
+    // C-REPLACE "fmax" "casadi_fmax"
+    r += fmax(x_i-ub_i, zero);
+    r += fmax(lb_i-x_i, zero);
+  }
+  return r;
+}

casadi/include/casadi/core/runtime/casadi_swap.hpp

@@ -0,0 +1,32 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+// SYMBOL "swap"
+template<typename T1>
+void casadi_swap(casadi_int n, T1* x, casadi_int inc_x, T1* y, casadi_int inc_y) {
+  T1 t;
+  casadi_int i;
+  for (i=0; i<n; ++i) {
+    t = *x;
+    *x = *y;
+    *y = t;
+    x += inc_x;
+    y += inc_y;
+  }
+}

casadi/include/casadi/core/runtime/casadi_trans.hpp

@@ -0,0 +1,35 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+// SYMBOL "trans"
+template<typename T1>
+void casadi_trans(const T1* x, const casadi_int* sp_x, T1* y,
+    const casadi_int* sp_y, casadi_int* tmp) {
+  casadi_int ncol_x, nnz_x, ncol_y, k;
+  const casadi_int* row_x, *colind_y;
+  ncol_x = sp_x[1];
+  nnz_x = sp_x[2 + ncol_x];
+  row_x = sp_x + 2 + ncol_x+1;
+  ncol_y = sp_y[1];
+  colind_y = sp_y+2;
+  for (k=0; k<ncol_y; ++k) tmp[k] = colind_y[k];
+  for (k=0; k<nnz_x; ++k) {
+    y[tmp[row_x[k]]++] = x[k];
+  }
+}

casadi/include/casadi/core/runtime/casadi_tri_project.hpp

@@ -0,0 +1,37 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+// SYMBOL "tri_project"
+template<typename T1>
+void casadi_tri_project(const T1* x, const casadi_int* sp_x, T1* y, casadi_int lower) {
+  casadi_int ncol_x, j, k;
+  const casadi_int *colind_x, *row_x;
+  ncol_x = sp_x[1];
+  colind_x = sp_x+2; row_x = sp_x + 2 + ncol_x+1;
+
+  for (j=0; j<ncol_x; ++j) {
+    for (k=colind_x[j]; k<colind_x[j+1]; ++k) {
+      if (lower) {
+        if (row_x[k]>=j) *y++ = x ? x[k] : 0;
+      } else {
+        if (row_x[k]<=j) *y++ = x ? x[k] : 0;
+      }
+    }
+  }
+}

casadi/include/casadi/core/runtime/casadi_trilsolve.hpp

@@ -0,0 +1,81 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+
+// SYMBOL "trilsolve"
+template<typename T1>
+void casadi_trilsolve(const casadi_int* sp_a, const T1* nz_a, T1* x, int tr, int unity,
+    casadi_int nrhs) {
+  // Local variables
+  casadi_int nrow, ncol, r, c, k, rhs;
+  const casadi_int *colind, *row;
+  // Extract sparsity
+  nrow = sp_a[0];
+  ncol = sp_a[1];
+  colind = sp_a + 2;
+  row = colind + ncol + 1;
+  // For all right hand sides
+  for (rhs = 0; rhs < nrhs; ++rhs) {
+    if (unity) {
+      if (tr) {
+        // Backward substitution
+        for (c = ncol; c-- > 0; ) {
+          for (k = colind[c + 1]; k-- > colind[c]; ) {
+            x[c] += nz_a[k] * x[row[k]];
+          }
+        }
+      } else {
+        // Forward substitution
+        for (c = 0; c < ncol; ++c) {
+          for (k = colind[c]; k < colind[c+1]; ++k) {
+            x[row[k]] += nz_a[k] * x[c];
+          }
+        }
+      }
+    } else {
+      if (tr) {
+        // Backward substitution
+        for (c = ncol; c-- > 0; ) {
+          for (k = colind[c + 1]; k-- > colind[c]; ) {
+            r = row[k];
+            if (r == c) {
+              x[c] /= nz_a[k];
+            } else {
+              x[c] -= nz_a[k] * x[r];
+            }
+          }
+        }
+      } else {
+        // Forward substitution
+        for (c = 0; c < ncol; ++c) {
+          for (k = colind[c]; k < colind[c+1]; ++k) {
+            r = row[k];
+            if (r == c) {
+              x[r] /= nz_a[k];
+            } else {
+              x[r] -= nz_a[k] * x[c];
+            }
+          }
+        }
+      }
+    }
+    // Next right-hand-side
+    x += nrow;
+  }
+}

casadi/include/casadi/core/runtime/casadi_triusolve.hpp

@@ -0,0 +1,81 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+
+// SYMBOL "triusolve"
+template<typename T1>
+void casadi_triusolve(const casadi_int* sp_a, const T1* nz_a, T1* x, int tr, int unity,
+    casadi_int nrhs) {
+  // Local variables
+  casadi_int nrow, ncol, r, c, k, rhs;
+  const casadi_int *colind, *row;
+  // Extract sparsity
+  nrow = sp_a[0];
+  ncol = sp_a[1];
+  colind = sp_a + 2;
+  row = colind + ncol + 1;
+  // For all right hand sides
+  for (rhs = 0; rhs < nrhs; ++rhs) {
+    if (unity) {
+      if (tr) {
+        // Forward substitution
+        for (c = 0; c < ncol; ++c) {
+          for (k = colind[c]; k < colind[c+1]; ++k) {
+            x[c] += nz_a[k] * x[row[k]];
+          }
+        }
+      } else {
+        // Backward substitution
+        for (c = ncol; c-- > 0; ) {
+          for (k = colind[c + 1]; k-- > colind[c]; ) {
+            x[row[k]] += nz_a[k] * x[c];
+          }
+        }
+      }
+    } else {
+      if (tr) {
+        // Forward substitution
+        for (c = 0; c < ncol; ++c) {
+          for (k = colind[c]; k < colind[c+1]; ++k) {
+            r = row[k];
+            if (r == c) {
+              x[c] /= nz_a[k];
+            } else {
+              x[c] -= nz_a[k] * x[r];
+            }
+          }
+        }
+      } else {
+        // Backward substitution
+        for (c = ncol; c-- > 0; ) {
+          for (k = colind[c + 1]; k-- > colind[c]; ) {
+            r = row[k];
+            if (r == c) {
+              x[r] /= nz_a[k];
+            } else {
+              x[r] -= nz_a[k] * x[c];
+            }
+          }
+        }
+      }
+    }
+    // Next right-hand-side
+    x += nrow;
+  }
+}

casadi/include/casadi/core/runtime/casadi_vector_fmax.hpp

@@ -0,0 +1,28 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+
+// SYMBOL "vector_fmax"
+// elementwise fmax of two vectors
+template<typename T1>
+void casadi_vector_fmax(casadi_int n, const T1* x, const T1* y, T1* z) {
+  casadi_int i;
+  // C-REPLACE "fmax" "casadi_fmax"
+  for (i=0; i<n; ++i) z[i] = fmax(x[i], y[i]);
+}

casadi/include/casadi/core/runtime/casadi_vector_fmin.hpp

@@ -0,0 +1,28 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+
+// SYMBOL "vector_fmin"
+// elementwise fmin of two vectors
+template<typename T1>
+void casadi_vector_fmin(casadi_int n, const T1* x, const T1* y, T1* z) {
+  casadi_int i;
+  // C-REPLACE "fmin" "casadi_fmin"
+  for (i=0; i<n; ++i) z[i] = fmin(x[i], y[i]);
+}

casadi/include/casadi/core/runtime/casadi_vfmax.hpp

@@ -0,0 +1,28 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+
+// SYMBOL "vfmax"
+template<typename T1>
+T1 casadi_vfmax(const T1* x, casadi_int n, T1 r) {
+  casadi_int i;
+  // C-REPLACE "fmax" "casadi_fmax"
+  for (i=0; i<n; ++i) r = fmax(r, x[i]);
+  return r;
+}

casadi/include/casadi/core/runtime/casadi_vfmin.hpp

@@ -0,0 +1,28 @@
+//
+//    MIT No Attribution
+//
+//    Copyright (C) 2010-2023 Joel Andersson, Joris Gillis, Moritz Diehl, KU Leuven.
+//
+//    Permission is hereby granted, free of charge, to any person obtaining a copy of this
+//    software and associated documentation files (the "Software"), to deal in the Software
+//    without restriction, including without limitation the rights to use, copy, modify,
+//    merge, publish, distribute, sublicense, and/or sell copies of the Software, and to
+//    permit persons to whom the Software is furnished to do so.
+//
+//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED,
+//    INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
+//    PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+//    HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+//    OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+//    SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
+
+// SYMBOL "vfmin"
+template<typename T1>
+T1 casadi_vfmin(const T1* x, casadi_int n, T1 r) {
+  casadi_int i;
+  // C-REPLACE "fmin" "casadi_fmin"
+  for (i=0; i<n; ++i) r = fmin(r, x[i]);
+  return r;
+}