diff-grok 1.0.10 → 1.2.0

package/src/solver-tools/lsoda/solsy.js

@@ -0,0 +1,25 @@
+/**
+ * TypeScript port of liblsoda (https://github.com/sdwfrost/liblsoda)
+ * Original LSODA algorithm by Linda Petzold & Alan Hindmarsh (1983)
+ *
+ * Copyright (c) 2011 Yu Feng, McWilliam Cosmology Center, Carnegie Mellon University
+ * Copyright (c) 2016 Simon Frost
+ * Copyright (c) 2026 Datagrok
+ *
+ * Licensed under the MIT License. See THIRD_PARTY_LICENSES for the full
+ * license text and provenance chain of the original code.
+ */
+import { dgesl } from './blas';
+/**
+ * Solve the linear system arising from a chord iteration.
+ * Only miter=2 (dense) is supported.
+ */
+export function solsy(ctx, y) {
+    const c = ctx.common;
+    const neq = ctx.neq;
+    if (c.miter !== 2)
+        throw new Error('[solsy] miter != 2 not implemented');
+    dgesl(c.wm, neq, c.ipvt, y, 0);
+    return 1;
+}
+//# sourceMappingURL=solsy.js.map

package/src/solver-tools/lsoda/solsy.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"solsy.js","sourceRoot":"","sources":["solsy.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;GAUG;AAGH,OAAO,EAAC,KAAK,EAAC,MAAM,QAAQ,CAAC;AAE7B;;;GAGG;AACH,MAAM,UAAU,KAAK,CAAC,GAAiB,EAAE,CAAe;IACtD,MAAM,CAAC,GAAG,GAAG,CAAC,MAAO,CAAC;IACtB,MAAM,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC;IAEpB,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC;QACf,MAAM,IAAI,KAAK,CAAC,oCAAoC,CAAC,CAAC;IAGxD,KAAK,CAAC,CAAC,CAAC,EAAE,EAAE,GAAG,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IAC/B,OAAO,CAAC,CAAC;AACX,CAAC"}

package/src/solver-tools/lsoda/solsy.ts

@@ -0,0 +1,30 @@
+/**
+ * TypeScript port of liblsoda (https://github.com/sdwfrost/liblsoda)
+ * Original LSODA algorithm by Linda Petzold & Alan Hindmarsh (1983)
+ *
+ * Copyright (c) 2011 Yu Feng, McWilliam Cosmology Center, Carnegie Mellon University
+ * Copyright (c) 2016 Simon Frost
+ * Copyright (c) 2026 Datagrok
+ *
+ * Licensed under the MIT License. See THIRD_PARTY_LICENSES for the full
+ * license text and provenance chain of the original code.
+ */
+
+import {LsodaContext} from './common';
+import {dgesl} from './blas';
+
+/**
+ * Solve the linear system arising from a chord iteration.
+ * Only miter=2 (dense) is supported.
+ */
+export function solsy(ctx: LsodaContext, y: Float64Array): number {
+  const c = ctx.common!;
+  const neq = ctx.neq;
+
+  if (c.miter !== 2)
+    throw new Error('[solsy] miter != 2 not implemented');
+
+
+  dgesl(c.wm, neq, c.ipvt, y, 0);
+  return 1;
+}

package/src/solver-tools/lsoda/stoda.js

@@ -0,0 +1,270 @@
+/**
+ * TypeScript port of liblsoda (https://github.com/sdwfrost/liblsoda)
+ * Original LSODA algorithm by Linda Petzold & Alan Hindmarsh (1983)
+ *
+ * Copyright (c) 2011 Yu Feng, McWilliam Cosmology Center, Carnegie Mellon University
+ * Copyright (c) 2016 Simon Frost
+ * Copyright (c) 2026 Datagrok
+ *
+ * Licensed under the MIT License. See THIRD_PARTY_LICENSES for the full
+ * license text and provenance chain of the original code.
+ */
+import { CCMAX, MSBP } from './common';
+import { vmnorm } from './blas';
+import { cfode } from './cfode';
+import { scaleh } from './scaleh';
+import { correction } from './correction';
+import { orderswitch } from './orderswitch';
+import { methodswitch } from './methodswitch';
+/**
+ * Perform one step of the integration.
+ *
+ * jstart:  0 = first step, >0 = continue, -1 = new h/meth/miter, -2 = new h only
+ * Returns kflag: 0 = success, -1 = error test failed, -2 = convergence failed.
+ */
+export function stoda(ctx, y, jstart) {
+    const c = ctx.common;
+    const hmin = ctx.opt.hmin;
+    const mxords = ctx.opt.mxords;
+    const mxordn = ctx.opt.mxordn;
+    const neq = ctx.neq;
+    let kflag = 0;
+    const told = c.tn;
+    c.ncf = 0;
+    let delp = 0.;
+    let maxord = mxordn;
+    if (c.meth === 2)
+        maxord = mxords;
+    // Helper: endstoda — finalize step, scale acor
+    function endstoda() {
+        const r = 1. / c.tesco[c.nqu][2];
+        for (let i = 1; i <= neq; i++)
+            c.acor[i] *= r;
+        c.hold = c.h;
+    }
+    // Helper: resetcoeff — reload el from elco for current order
+    function resetcoeff() {
+        const el0 = c.el[1];
+        for (let i = 1; i <= c.nq + 1; i++)
+            c.el[i] = c.elco[c.nq][i];
+        c.rc = c.rc * c.el[1] / el0;
+    }
+    // --- Initialization based on jstart ---
+    if (jstart === 0) {
+        c.nq = 1;
+        c.ialth = 2;
+        c.rmax = 10000.;
+        c.rc = 0.;
+        c.crate = 0.7;
+        c.hold = c.h;
+        c.nslp = 0;
+        c.ipup = c.miter;
+        c.el[1] = 1.0;
+        c.icount = 20;
+        c.irflag = 0;
+        c.pdest = 0.;
+        c.pdlast = 0.;
+        cfode(ctx, 1);
+        resetcoeff();
+    }
+    if (jstart === -1) {
+        c.ipup = c.miter;
+        if (c.ialth === 1)
+            c.ialth = 2;
+        if (c.meth !== c.mused) {
+            cfode(ctx, c.meth);
+            c.ialth = c.nq + 1;
+            resetcoeff();
+        }
+        if (c.h !== c.hold) {
+            const rh = c.h / c.hold;
+            c.h = c.hold;
+            scaleh(ctx, rh);
+        }
+    }
+    if (jstart === -2) {
+        if (c.h !== c.hold) {
+            const rh = c.h / c.hold;
+            c.h = c.hold;
+            scaleh(ctx, rh);
+        }
+    }
+    // --- Main integration loop ---
+    let dsm = 0.0;
+    const cs = { del: 0, delp: delp, m: 0 };
+    const osResult = { rh: 0 };
+    const msResult = { rh: 0 };
+    let rh;
+    outer: while (true) {
+        // Before the corrector starts
+        c.jcur = 0;
+        inner: while (true) {
+            if (Math.abs(c.rc - 1.) > CCMAX)
+                c.ipup = c.miter;
+            if (c.nst >= c.nslp + MSBP)
+                c.ipup = c.miter;
+            c.tn += c.h;
+            // Prediction: multiply yh by Pascal triangle matrix
+            for (let j = c.nq; j >= 1; j--) {
+                for (let i1 = j; i1 <= c.nq; i1++) {
+                    for (let i = 1; i <= neq; i++)
+                        c.yh[i1][i] += c.yh[i1 + 1][i];
+                }
+            }
+            const pnorm = vmnorm(neq, c.yh[1], c.ewt);
+            cs.del = 0;
+            cs.delp = delp;
+            cs.m = 0;
+            const corflag = correction(ctx, y, pnorm, cs, told);
+            delp = cs.delp;
+            if (corflag === 0)
+                break inner;
+            if (corflag === 1) {
+                rh = Math.max(0.25, hmin / Math.abs(c.h));
+                scaleh(ctx, rh);
+                continue inner;
+            }
+            if (corflag === 2) {
+                kflag = -2;
+                c.hold = c.h;
+                jstart = 1;
+                return kflag;
+            }
+        }
+        // Local error test
+        if (cs.m === 0)
+            dsm = cs.del / c.tesco[c.nq][2];
+        if (cs.m > 0)
+            dsm = vmnorm(neq, c.acor, c.ewt) / c.tesco[c.nq][2];
+        if (dsm <= 1.) {
+            // Successful step
+            kflag = 0;
+            c.nst++;
+            c.hu = c.h;
+            c.nqu = c.nq;
+            c.mused = c.meth;
+            for (let j = 1; j <= c.nq + 1; j++) {
+                const r = c.el[j];
+                for (let i = 1; i <= neq; i++)
+                    c.yh[j][i] += r * c.acor[i];
+            }
+            c.icount--;
+            if (c.icount < 0) {
+                msResult.rh = 0;
+                methodswitch(ctx, dsm, vmnorm(neq, c.yh[1], c.ewt), msResult);
+                if (c.meth !== c.mused) {
+                    rh = Math.max(msResult.rh, hmin / Math.abs(c.h));
+                    scaleh(ctx, rh);
+                    c.rmax = 10.;
+                    endstoda();
+                    break outer;
+                }
+            }
+            // No method switch — do step/order selection
+            c.ialth--;
+            if (c.ialth === 0) {
+                let rhup = 0.;
+                if (c.nq + 1 !== maxord + 1) {
+                    for (let i = 1; i <= neq; i++)
+                        c.savf[i] = c.acor[i] - c.yh[maxord + 1][i];
+                    const dup = vmnorm(neq, c.savf, c.ewt) / c.tesco[c.nq][3];
+                    const exup = 1. / (c.nq + 2);
+                    rhup = 1. / (1.4 * Math.pow(dup, exup) + 0.0000014);
+                }
+                osResult.rh = 0;
+                const orderflag = orderswitch(ctx, rhup, dsm, osResult, kflag, maxord);
+                if (orderflag === 0) {
+                    endstoda();
+                    break outer;
+                }
+                if (orderflag === 1) {
+                    rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+                    scaleh(ctx, rh);
+                    c.rmax = 10.;
+                    endstoda();
+                    break outer;
+                }
+                if (orderflag === 2) {
+                    resetcoeff();
+                    rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+                    scaleh(ctx, rh);
+                    c.rmax = 10.;
+                    endstoda();
+                    break outer;
+                }
+            }
+            if (c.ialth > 1 || c.nq + 1 === maxord + 1) {
+                endstoda();
+                break outer;
+            }
+            for (let i = 1; i <= neq; i++)
+                c.yh[maxord + 1][i] = c.acor[i];
+            endstoda();
+            break outer;
+        }
+        else {
+            // Error test failed
+            kflag--;
+            c.tn = told;
+            // Retract yh array
+            for (let j = c.nq; j >= 1; j--) {
+                for (let i1 = j; i1 <= c.nq; i1++) {
+                    for (let i = 1; i <= neq; i++)
+                        c.yh[i1][i] -= c.yh[i1 + 1][i];
+                }
+            }
+            c.rmax = 2.;
+            if (Math.abs(c.h) <= hmin * 1.00001) {
+                kflag = -1;
+                c.hold = c.h;
+                jstart = 1;
+                break outer;
+            }
+            if (kflag > -3) {
+                osResult.rh = 0;
+                const orderflag = orderswitch(ctx, 0., dsm, osResult, kflag, maxord);
+                if (orderflag === 1 || orderflag === 0) {
+                    if (orderflag === 0)
+                        osResult.rh = Math.min(osResult.rh, 0.2);
+                    osResult.rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+                    scaleh(ctx, osResult.rh);
+                }
+                if (orderflag === 2) {
+                    resetcoeff();
+                    osResult.rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+                    scaleh(ctx, osResult.rh);
+                }
+                continue outer;
+            }
+            else {
+                // 3 or more failures
+                if (kflag === -10) {
+                    kflag = -1;
+                    c.hold = c.h;
+                    jstart = 1;
+                    break outer;
+                }
+                else {
+                    rh = 0.1;
+                    rh = Math.max(hmin / Math.abs(c.h), rh);
+                    c.h *= rh;
+                    for (let i = 1; i <= neq; i++)
+                        y[i] = c.yh[1][i];
+                    ctx.func(c.tn, y.subarray(1), c.savf.subarray(1), ctx.data);
+                    c.nfe++;
+                    for (let i = 1; i <= neq; i++)
+                        c.yh[2][i] = c.h * c.savf[i];
+                    c.ipup = c.miter;
+                    c.ialth = 5;
+                    if (c.nq === 1)
+                        continue outer;
+                    c.nq = 1;
+                    resetcoeff();
+                    continue outer;
+                }
+            }
+        }
+    }
+    return kflag;
+}
+//# sourceMappingURL=stoda.js.map

package/src/solver-tools/lsoda/stoda.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"stoda.js","sourceRoot":"","sources":["stoda.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;GAUG;AAEH,OAAO,EAAe,KAAK,EAAE,IAAI,EAAC,MAAM,UAAU,CAAC;AACnD,OAAO,EAAC,MAAM,EAAC,MAAM,QAAQ,CAAC;AAC9B,OAAO,EAAC,KAAK,EAAC,MAAM,SAAS,CAAC;AAC9B,OAAO,EAAC,MAAM,EAAC,MAAM,UAAU,CAAC;AAChC,OAAO,EAAC,UAAU,EAAkB,MAAM,cAAc,CAAC;AACzD,OAAO,EAAC,WAAW,EAAoB,MAAM,eAAe,CAAC;AAC7D,OAAO,EAAC,YAAY,EAAqB,MAAM,gBAAgB,CAAC;AAEhE;;;;;GAKG;AACH,MAAM,UAAU,KAAK,CAAC,GAAiB,EAAE,CAAe,EAAE,MAAc;IACtE,MAAM,CAAC,GAAG,GAAG,CAAC,MAAO,CAAC;IACtB,MAAM,IAAI,GAAG,GAAG,CAAC,GAAI,CAAC,IAAI,CAAC;IAC3B,MAAM,MAAM,GAAG,GAAG,CAAC,GAAI,CAAC,MAAM,CAAC;IAC/B,MAAM,MAAM,GAAG,GAAG,CAAC,GAAI,CAAC,MAAM,CAAC;IAC/B,MAAM,GAAG,GAAG,GAAG,CAAC,GAAG,CAAC;IAEpB,IAAI,KAAK,GAAG,CAAC,CAAC;IACd,MAAM,IAAI,GAAG,CAAC,CAAC,EAAE,CAAC;IAClB,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC;IACV,IAAI,IAAI,GAAG,EAAE,CAAC;IAEd,IAAI,MAAM,GAAG,MAAM,CAAC;IACpB,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC;QAAE,MAAM,GAAG,MAAM,CAAC;IAElC,+CAA+C;IAC/C,SAAS,QAAQ;QACf,MAAM,CAAC,GAAG,EAAE,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC;QACjC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;YAC3B,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC;QACjB,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC;IACf,CAAC;IAED,6DAA6D;IAC7D,SAAS,UAAU;QACjB,MAAM,GAAG,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;QACpB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,EAAE,GAAG,CAAC,EAAE,CAAC,EAAE;YAChC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QAC5B,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC;IAC9B,CAAC;IAED,yCAAyC;IAEzC,IAAI,MAAM,KAAK,CAAC,EAAE,CAAC;QACjB,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;QACT,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC;QACZ,CAAC,CAAC,IAAI,GAAG,MAAM,CAAC;QAChB,CAAC,CAAC,EAAE,GAAG,EAAE,CAAC;QACV,CAAC,CAAC,KAAK,GAAG,GAAG,CAAC;QACd,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC;QACb,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC;QACX,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,KAAK,CAAC;QACjB,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC;QACd,CAAC,CAAC,MAAM,GAAG,EAAE,CAAC;QACd,CAAC,CAAC,MAAM,GAAG,CAAC,CAAC;QACb,CAAC,CAAC,KAAK,GAAG,EAAE,CAAC;QACb,CAAC,CAAC,MAAM,GAAG,EAAE,CAAC;QACd,KAAK,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC;QACd,UAAU,EAAE,CAAC;IACf,CAAC;IAED,IAAI,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC;QAClB,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,KAAK,CAAC;QACjB,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC;YAAE,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC;QAC/B,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,KAAK,EAAE,CAAC;YACvB,KAAK,CAAC,GAAG,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC;YACnB,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;YACnB,UAAU,EAAE,CAAC;QACf,CAAC;QACD,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC;YACnB,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC;YACxB,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC;YACb,MAAM,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;QAClB,CAAC;IACH,CAAC;IAED,IAAI,MAAM,KAAK,CAAC,CAAC,EAAE,CAAC;QAClB,IAAI,CAAC,CAAC,CAAC,KAAK,CAAC,CAAC,IAAI,EAAE,CAAC;YACnB,MAAM,EAAE,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC;YACxB,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC;YACb,MAAM,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;QAClB,CAAC;IACH,CAAC;IAED,gCAAgC;IAEhC,IAAI,GAAG,GAAG,GAAG,CAAC;IACd,MAAM,EAAE,GAAoB,EAAC,GAAG,EAAE,CAAC,EAAE,IAAI,EAAE,IAAI,EAAE,CAAC,EAAE,CAAC,EAAC,CAAC;IACvD,MAAM,QAAQ,GAAsB,EAAC,EAAE,EAAE,CAAC,EAAC,CAAC;IAC5C,MAAM,QAAQ,GAAuB,EAAC,EAAE,EAAE,CAAC,EAAC,CAAC;IAC7C,IAAI,EAAU,CAAC;IAEf,KAAK,EACL,OAAO,IAAI,EAAE,CAAC;QACZ,8BAA8B;QAC9B,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC;QAEX,KAAK,EACL,OAAO,IAAI,EAAE,CAAC;YACZ,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,EAAE,GAAG,EAAE,CAAC,GAAG,KAAK;gBAC7B,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,KAAK,CAAC;YACnB,IAAI,CAAC,CAAC,GAAG,IAAI,CAAC,CAAC,IAAI,GAAG,IAAI;gBACxB,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,KAAK,CAAC;YAEnB,CAAC,CAAC,EAAE,IAAI,CAAC,CAAC,CAAC,CAAC;YAEZ,oDAAoD;YACpD,KAAK,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC/B,KAAK,IAAI,EAAE,GAAG,CAAC,EAAE,EAAE,IAAI,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC;oBAClC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;wBAC3B,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;gBACnC,CAAC;YACH,CAAC;YAED,MAAM,KAAK,GAAG,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;YAE1C,EAAE,CAAC,GAAG,GAAG,CAAC,CAAC;YACX,EAAE,CAAC,IAAI,GAAG,IAAI,CAAC;YACf,EAAE,CAAC,CAAC,GAAG,CAAC,CAAC;YACT,MAAM,OAAO,GAAG,UAAU,CAAC,GAAG,EAAE,CAAC,EAAE,KAAK,EAAE,EAAE,EAAE,IAAI,CAAC,CAAC;YACpD,IAAI,GAAG,EAAE,CAAC,IAAI,CAAC;YAEf,IAAI,OAAO,KAAK,CAAC;gBAAE,MAAM,KAAK,CAAC;YAE/B,IAAI,OAAO,KAAK,CAAC,EAAE,CAAC;gBAClB,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;gBAC1C,MAAM,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;gBAChB,SAAS,KAAK,CAAC;YACjB,CAAC;YAED,IAAI,OAAO,KAAK,CAAC,EAAE,CAAC;gBAClB,KAAK,GAAG,CAAC,CAAC,CAAC;gBACX,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC;gBACb,MAAM,GAAG,CAAC,CAAC;gBACX,OAAO,KAAK,CAAC;YACf,CAAC;QACH,CAAC;QAED,mBAAmB;QACnB,IAAI,EAAE,CAAC,CAAC,KAAK,CAAC;YACZ,GAAG,GAAG,EAAE,CAAC,GAAG,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QAClC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC;YACV,GAAG,GAAG,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;QAEtD,IAAI,GAAG,IAAI,EAAE,EAAE,CAAC;YACd,kBAAkB;YAClB,KAAK,GAAG,CAAC,CAAC;YACV,CAAC,CAAC,GAAG,EAAE,CAAC;YACR,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC;YACX,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,EAAE,CAAC;YACb,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC,IAAI,CAAC;YAEjB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC,EAAE,GAAG,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;gBACnC,MAAM,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;gBAClB,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;oBAC3B,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YAChC,CAAC;YAED,CAAC,CAAC,MAAM,EAAE,CAAC;YACX,IAAI,CAAC,CAAC,MAAM,GAAG,CAAC,EAAE,CAAC;gBACjB,QAAQ,CAAC,EAAE,GAAG,CAAC,CAAC;gBAChB,YAAY,CAAC,GAAG,EAAE,GAAG,EAAE,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,GAAG,CAAC,EAAE,QAAQ,CAAC,CAAC;gBAC9D,IAAI,CAAC,CAAC,IAAI,KAAK,CAAC,CAAC,KAAK,EAAE,CAAC;oBACvB,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBACjD,MAAM,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;oBAChB,CAAC,CAAC,IAAI,GAAG,GAAG,CAAC;oBACb,QAAQ,EAAE,CAAC;oBACX,MAAM,KAAK,CAAC;gBACd,CAAC;YACH,CAAC;YAED,6CAA6C;YAC7C,CAAC,CAAC,KAAK,EAAE,CAAC;YACV,IAAI,CAAC,CAAC,KAAK,KAAK,CAAC,EAAE,CAAC;gBAClB,IAAI,IAAI,GAAG,EAAE,CAAC;gBACd,IAAI,CAAC,CAAC,EAAE,GAAG,CAAC,KAAK,MAAM,GAAG,CAAC,EAAE,CAAC;oBAC5B,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;wBAC3B,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBAC9C,MAAM,GAAG,GAAG,MAAM,CAAC,GAAG,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC,KAAK,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC;oBAC1D,MAAM,IAAI,GAAG,EAAE,GAAG,CAAC,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC;oBAC7B,IAAI,GAAG,EAAE,GAAG,CAAC,GAAG,GAAG,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,IAAI,CAAC,GAAG,SAAS,CAAC,CAAC;gBACtD,CAAC;gBAED,QAAQ,CAAC,EAAE,GAAG,CAAC,CAAC;gBAChB,MAAM,SAAS,GAAG,WAAW,CAAC,GAAG,EAAE,IAAI,EAAE,GAAG,EAAE,QAAQ,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC;gBAEvE,IAAI,SAAS,KAAK,CAAC,EAAE,CAAC;oBACpB,QAAQ,EAAE,CAAC;oBACX,MAAM,KAAK,CAAC;gBACd,CAAC;gBACD,IAAI,SAAS,KAAK,CAAC,EAAE,CAAC;oBACpB,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBACjD,MAAM,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;oBAChB,CAAC,CAAC,IAAI,GAAG,GAAG,CAAC;oBACb,QAAQ,EAAE,CAAC;oBACX,MAAM,KAAK,CAAC;gBACd,CAAC;gBACD,IAAI,SAAS,KAAK,CAAC,EAAE,CAAC;oBACpB,UAAU,EAAE,CAAC;oBACb,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBACjD,MAAM,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;oBAChB,CAAC,CAAC,IAAI,GAAG,GAAG,CAAC;oBACb,QAAQ,EAAE,CAAC;oBACX,MAAM,KAAK,CAAC;gBACd,CAAC;YACH,CAAC;YAED,IAAI,CAAC,CAAC,KAAK,GAAG,CAAC,IAAI,CAAC,CAAC,EAAE,GAAG,CAAC,KAAK,MAAM,GAAG,CAAC,EAAE,CAAC;gBAC3C,QAAQ,EAAE,CAAC;gBACX,MAAM,KAAK,CAAC;YACd,CAAC;YAED,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;gBAC3B,CAAC,CAAC,EAAE,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YAClC,QAAQ,EAAE,CAAC;YACX,MAAM,KAAK,CAAC;QACd,CAAC;aAAM,CAAC;YACN,oBAAoB;YACpB,KAAK,EAAE,CAAC;YACR,CAAC,CAAC,EAAE,GAAG,IAAI,CAAC;YAEZ,mBAAmB;YACnB,KAAK,IAAI,CAAC,GAAG,CAAC,CAAC,EAAE,EAAE,CAAC,IAAI,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC;gBAC/B,KAAK,IAAI,EAAE,GAAG,CAAC,EAAE,EAAE,IAAI,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC;oBAClC,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;wBAC3B,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,IAAI,CAAC,CAAC,EAAE,CAAC,EAAE,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;gBACnC,CAAC;YACH,CAAC;YAED,CAAC,CAAC,IAAI,GAAG,EAAE,CAAC;YACZ,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,IAAI,IAAI,GAAG,OAAO,EAAE,CAAC;gBACpC,KAAK,GAAG,CAAC,CAAC,CAAC;gBACX,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC;gBACb,MAAM,GAAG,CAAC,CAAC;gBACX,MAAM,KAAK,CAAC;YACd,CAAC;YAED,IAAI,KAAK,GAAG,CAAC,CAAC,EAAE,CAAC;gBACf,QAAQ,CAAC,EAAE,GAAG,CAAC,CAAC;gBAChB,MAAM,SAAS,GAAG,WAAW,CAAC,GAAG,EAAE,EAAE,EAAE,GAAG,EAAE,QAAQ,EAAE,KAAK,EAAE,MAAM,CAAC,CAAC;gBACrE,IAAI,SAAS,KAAK,CAAC,IAAI,SAAS,KAAK,CAAC,EAAE,CAAC;oBACvC,IAAI,SAAS,KAAK,CAAC;wBACjB,QAAQ,CAAC,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,EAAE,GAAG,CAAC,CAAC;oBAC3C,QAAQ,CAAC,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBAC1D,MAAM,CAAC,GAAG,EAAE,QAAQ,CAAC,EAAE,CAAC,CAAC;gBAC3B,CAAC;gBACD,IAAI,SAAS,KAAK,CAAC,EAAE,CAAC;oBACpB,UAAU,EAAE,CAAC;oBACb,QAAQ,CAAC,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,QAAQ,CAAC,EAAE,EAAE,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBAC1D,MAAM,CAAC,GAAG,EAAE,QAAQ,CAAC,EAAE,CAAC,CAAC;gBAC3B,CAAC;gBACD,SAAS,KAAK,CAAC;YACjB,CAAC;iBAAM,CAAC;gBACN,qBAAqB;gBACrB,IAAI,KAAK,KAAK,CAAC,EAAE,EAAE,CAAC;oBAClB,KAAK,GAAG,CAAC,CAAC,CAAC;oBACX,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,CAAC,CAAC;oBACb,MAAM,GAAG,CAAC,CAAC;oBACX,MAAM,KAAK,CAAC;gBACd,CAAC;qBAAM,CAAC;oBACN,EAAE,GAAG,GAAG,CAAC;oBACT,EAAE,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,GAAG,IAAI,CAAC,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC;oBACxC,CAAC,CAAC,CAAC,IAAI,EAAE,CAAC;oBACV,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;wBAC3B,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC;oBACpB,GAAG,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,EAAE,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,QAAQ,CAAC,CAAC,CAAC,EAAE,GAAG,CAAC,IAAI,CAAC,CAAC;oBAC5D,CAAC,CAAC,GAAG,EAAE,CAAC;oBACR,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE;wBAC3B,CAAC,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;oBAC/B,CAAC,CAAC,IAAI,GAAG,CAAC,CAAC,KAAK,CAAC;oBACjB,CAAC,CAAC,KAAK,GAAG,CAAC,CAAC;oBACZ,IAAI,CAAC,CAAC,EAAE,KAAK,CAAC;wBAAE,SAAS,KAAK,CAAC;oBAC/B,CAAC,CAAC,EAAE,GAAG,CAAC,CAAC;oBACT,UAAU,EAAE,CAAC;oBACb,SAAS,KAAK,CAAC;gBACjB,CAAC;YACH,CAAC;QACH,CAAC;IACH,CAAC;IAED,OAAO,KAAK,CAAC;AACf,CAAC"}

package/src/solver-tools/lsoda/stoda.ts

@@ -0,0 +1,298 @@
+/**
+ * TypeScript port of liblsoda (https://github.com/sdwfrost/liblsoda)
+ * Original LSODA algorithm by Linda Petzold & Alan Hindmarsh (1983)
+ *
+ * Copyright (c) 2011 Yu Feng, McWilliam Cosmology Center, Carnegie Mellon University
+ * Copyright (c) 2016 Simon Frost
+ * Copyright (c) 2026 Datagrok
+ *
+ * Licensed under the MIT License. See THIRD_PARTY_LICENSES for the full
+ * license text and provenance chain of the original code.
+ */
+
+import {LsodaContext, CCMAX, MSBP} from './common';
+import {vmnorm} from './blas';
+import {cfode} from './cfode';
+import {scaleh} from './scaleh';
+import {correction, CorrectionState} from './correction';
+import {orderswitch, OrderSwitchResult} from './orderswitch';
+import {methodswitch, MethodSwitchResult} from './methodswitch';
+
+/**
+ * Perform one step of the integration.
+ *
+ * jstart:  0 = first step, >0 = continue, -1 = new h/meth/miter, -2 = new h only
+ * Returns kflag: 0 = success, -1 = error test failed, -2 = convergence failed.
+ */
+export function stoda(ctx: LsodaContext, y: Float64Array, jstart: number): number {
+  const c = ctx.common!;
+  const hmin = ctx.opt!.hmin;
+  const mxords = ctx.opt!.mxords;
+  const mxordn = ctx.opt!.mxordn;
+  const neq = ctx.neq;
+
+  let kflag = 0;
+  const told = c.tn;
+  c.ncf = 0;
+  let delp = 0.;
+
+  let maxord = mxordn;
+  if (c.meth === 2) maxord = mxords;
+
+  // Helper: endstoda — finalize step, scale acor
+  function endstoda(): void {
+    const r = 1. / c.tesco[c.nqu][2];
+    for (let i = 1; i <= neq; i++)
+      c.acor[i] *= r;
+    c.hold = c.h;
+  }
+
+  // Helper: resetcoeff — reload el from elco for current order
+  function resetcoeff(): void {
+    const el0 = c.el[1];
+    for (let i = 1; i <= c.nq + 1; i++)
+      c.el[i] = c.elco[c.nq][i];
+    c.rc = c.rc * c.el[1] / el0;
+  }
+
+  // --- Initialization based on jstart ---
+
+  if (jstart === 0) {
+    c.nq = 1;
+    c.ialth = 2;
+    c.rmax = 10000.;
+    c.rc = 0.;
+    c.crate = 0.7;
+    c.hold = c.h;
+    c.nslp = 0;
+    c.ipup = c.miter;
+    c.el[1] = 1.0;
+    c.icount = 20;
+    c.irflag = 0;
+    c.pdest = 0.;
+    c.pdlast = 0.;
+    cfode(ctx, 1);
+    resetcoeff();
+  }
+
+  if (jstart === -1) {
+    c.ipup = c.miter;
+    if (c.ialth === 1) c.ialth = 2;
+    if (c.meth !== c.mused) {
+      cfode(ctx, c.meth);
+      c.ialth = c.nq + 1;
+      resetcoeff();
+    }
+    if (c.h !== c.hold) {
+      const rh = c.h / c.hold;
+      c.h = c.hold;
+      scaleh(ctx, rh);
+    }
+  }
+
+  if (jstart === -2) {
+    if (c.h !== c.hold) {
+      const rh = c.h / c.hold;
+      c.h = c.hold;
+      scaleh(ctx, rh);
+    }
+  }
+
+  // --- Main integration loop ---
+
+  let dsm = 0.0;
+  const cs: CorrectionState = {del: 0, delp: delp, m: 0};
+  const osResult: OrderSwitchResult = {rh: 0};
+  const msResult: MethodSwitchResult = {rh: 0};
+  let rh: number;
+
+  outer:
+  while (true) {
+    // Before the corrector starts
+    c.jcur = 0;
+
+    inner:
+    while (true) {
+      if (Math.abs(c.rc - 1.) > CCMAX)
+        c.ipup = c.miter;
+      if (c.nst >= c.nslp + MSBP)
+        c.ipup = c.miter;
+
+      c.tn += c.h;
+
+      // Prediction: multiply yh by Pascal triangle matrix
+      for (let j = c.nq; j >= 1; j--) {
+        for (let i1 = j; i1 <= c.nq; i1++) {
+          for (let i = 1; i <= neq; i++)
+            c.yh[i1][i] += c.yh[i1 + 1][i];
+        }
+      }
+
+      const pnorm = vmnorm(neq, c.yh[1], c.ewt);
+
+      cs.del = 0;
+      cs.delp = delp;
+      cs.m = 0;
+      const corflag = correction(ctx, y, pnorm, cs, told);
+      delp = cs.delp;
+
+      if (corflag === 0) break inner;
+
+      if (corflag === 1) {
+        rh = Math.max(0.25, hmin / Math.abs(c.h));
+        scaleh(ctx, rh);
+        continue inner;
+      }
+
+      if (corflag === 2) {
+        kflag = -2;
+        c.hold = c.h;
+        jstart = 1;
+        return kflag;
+      }
+    }
+
+    // Local error test
+    if (cs.m === 0)
+      dsm = cs.del / c.tesco[c.nq][2];
+    if (cs.m > 0)
+      dsm = vmnorm(neq, c.acor, c.ewt) / c.tesco[c.nq][2];
+
+    if (dsm <= 1.) {
+      // Successful step
+      kflag = 0;
+      c.nst++;
+      c.hu = c.h;
+      c.nqu = c.nq;
+      c.mused = c.meth;
+
+      for (let j = 1; j <= c.nq + 1; j++) {
+        const r = c.el[j];
+        for (let i = 1; i <= neq; i++)
+          c.yh[j][i] += r * c.acor[i];
+      }
+
+      c.icount--;
+      if (c.icount < 0) {
+        msResult.rh = 0;
+        methodswitch(ctx, dsm, vmnorm(neq, c.yh[1], c.ewt), msResult);
+        if (c.meth !== c.mused) {
+          rh = Math.max(msResult.rh, hmin / Math.abs(c.h));
+          scaleh(ctx, rh);
+          c.rmax = 10.;
+          endstoda();
+          break outer;
+        }
+      }
+
+      // No method switch — do step/order selection
+      c.ialth--;
+      if (c.ialth === 0) {
+        let rhup = 0.;
+        if (c.nq + 1 !== maxord + 1) {
+          for (let i = 1; i <= neq; i++)
+            c.savf[i] = c.acor[i] - c.yh[maxord + 1][i];
+          const dup = vmnorm(neq, c.savf, c.ewt) / c.tesco[c.nq][3];
+          const exup = 1. / (c.nq + 2);
+          rhup = 1. / (1.4 * Math.pow(dup, exup) + 0.0000014);
+        }
+
+        osResult.rh = 0;
+        const orderflag = orderswitch(ctx, rhup, dsm, osResult, kflag, maxord);
+
+        if (orderflag === 0) {
+          endstoda();
+          break outer;
+        }
+        if (orderflag === 1) {
+          rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+          scaleh(ctx, rh);
+          c.rmax = 10.;
+          endstoda();
+          break outer;
+        }
+        if (orderflag === 2) {
+          resetcoeff();
+          rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+          scaleh(ctx, rh);
+          c.rmax = 10.;
+          endstoda();
+          break outer;
+        }
+      }
+
+      if (c.ialth > 1 || c.nq + 1 === maxord + 1) {
+        endstoda();
+        break outer;
+      }
+
+      for (let i = 1; i <= neq; i++)
+        c.yh[maxord + 1][i] = c.acor[i];
+      endstoda();
+      break outer;
+    } else {
+      // Error test failed
+      kflag--;
+      c.tn = told;
+
+      // Retract yh array
+      for (let j = c.nq; j >= 1; j--) {
+        for (let i1 = j; i1 <= c.nq; i1++) {
+          for (let i = 1; i <= neq; i++)
+            c.yh[i1][i] -= c.yh[i1 + 1][i];
+        }
+      }
+
+      c.rmax = 2.;
+      if (Math.abs(c.h) <= hmin * 1.00001) {
+        kflag = -1;
+        c.hold = c.h;
+        jstart = 1;
+        break outer;
+      }
+
+      if (kflag > -3) {
+        osResult.rh = 0;
+        const orderflag = orderswitch(ctx, 0., dsm, osResult, kflag, maxord);
+        if (orderflag === 1 || orderflag === 0) {
+          if (orderflag === 0)
+            osResult.rh = Math.min(osResult.rh, 0.2);
+          osResult.rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+          scaleh(ctx, osResult.rh);
+        }
+        if (orderflag === 2) {
+          resetcoeff();
+          osResult.rh = Math.max(osResult.rh, hmin / Math.abs(c.h));
+          scaleh(ctx, osResult.rh);
+        }
+        continue outer;
+      } else {
+        // 3 or more failures
+        if (kflag === -10) {
+          kflag = -1;
+          c.hold = c.h;
+          jstart = 1;
+          break outer;
+        } else {
+          rh = 0.1;
+          rh = Math.max(hmin / Math.abs(c.h), rh);
+          c.h *= rh;
+          for (let i = 1; i <= neq; i++)
+            y[i] = c.yh[1][i];
+          ctx.func(c.tn, y.subarray(1), c.savf.subarray(1), ctx.data);
+          c.nfe++;
+          for (let i = 1; i <= neq; i++)
+            c.yh[2][i] = c.h * c.savf[i];
+          c.ipup = c.miter;
+          c.ialth = 5;
+          if (c.nq === 1) continue outer;
+          c.nq = 1;
+          resetcoeff();
+          continue outer;
+        }
+      }
+    }
+  }
+
+  return kflag;
+}