Excerpt of the source code:
type
tTwoWaySensTable = array of array of TState;
function TwoWayTable(const xmin, xmax, ymin, ymax, resolutionx, resolutiony: real;
const StrucPars: tParameterSpace; modX, modY: TParameter): tTwoWaySensTable;
implementation
function TwoWayTable(const xmin, xmax, ymin, ymax, resolutionx, resolutiony: real;
const StrucPars: tParameterSpace; modX, modY: TParameter): tTwoWaySensTable;
var
i, j, k: integer;
maxi, maxj: integer;
params: tParameterSpace;
prediction: TPrediction;
begin
params := StrucPars;
prediction := PredictedEquilibrium(P0, 0, Z0, params);
if prediction[0].G > 0 then
k := 0
else
K := 1;
This #Pascal-based software helped to develop a potentially revolutionary new method for early diagnosis of diabetes. And the paper comes with source code in #ObjectPascal.
pubmed.ncbi.nlm.nih.gov/38169110/