用ST语言写一个拟合二次曲线的公式

以下是一个用ST语言编写的拟合二次曲线的公式示例：

FUNCTION fitQuadraticCurve : REAL
VAR_INPUT
    x1 : REAL; // x 坐标1
    y1 : REAL; // y 坐标1
    x2 : REAL; // x 坐标2
    y2 : REAL; // y 坐标2
    x3 : REAL; // x 坐标3
    y3 : REAL; // y 坐标3
END_VAR
VAR_OUTPUT
    a : REAL; // 二次项系数
    b : REAL; // 一次项系数
    c : REAL; // 常数项
END_VAR
VAR
    det : REAL;
    detX : REAL;
    detY : REAL;
    detZ : REAL;
BEGIN
    // 计算行列式的值
    det := x1 * (y2 - y3) - x2 * (y1 - y3) + x3 * (y1 - y2);
    detX := y1 * (y2 - y3) - y2 * (y1 - y3) + y3 * (y1 - y2);
    detY := x1 * (x3 - x2) - x2 * (x3 - x1) + x3 * (x1 - x2);
    detZ := x1 * (y2 * x3 - y3 * x2) - x2 * (y1 * x3 - y3 * x1) + x3 * (y1 * x2 - y2 * x1);
    
    // 计算二次曲线的系数
    a := detZ / det;
    b := detX / det;
    c := detY / det;
    
    // 返回结果
    fitQuadraticCurve := a * x1 * x1 + b * x1 + c;
END_FUNCTION

该函数接受三个输入点的坐标，计算出拟合的二次曲线的系数，并返回在第一个点的 x 坐标处的预测值。