1

我正在尝试获取日期的所有 dBm 值并将它们平均，但要平均 dBm，它们需要转换为瓦特，平均，然后转换回 dBm。

这是我用 plperl 尝试过的。

CREATE OR REPLACE FUNCTION avg_dbm(double precision[]) RETURNS integer AS $$

    my $watts = 0;
    my $watt_count = 0;

    foreach my $dbm ( @_ ) {
        $watts = $watts + ( 10 ** ( $dbm / 10 ) ) / 1000;
        $watt_count++;
    }

    my $avg_watts = $watts / $watt_count;
    my $avg_dbm  = 10 * log(  1000 * $avg_watts ) / log(10);

    return $avg_dbm;

$$ LANGUAGE plperl;

DROP AGGREGATE IF EXISTS db_agg( double precision );

CREATE AGGREGATE db_agg ( double precision ) ( 
    sfunc = array_append,
    stype = double precision[],
    finalfunc = avg_dbm
);


SELECT avg_db( dbm ) FROM data GROUP BY meas_date;

运行此功能时出现的错误是：

ERROR:  column "data.dbm" must appear in the GROUP BY clause or be used in an aggregate function

我想我接近拥有这个权利，但似乎无法弄清楚。该查询只需要按日期聚合并将该日期的所有 dbm 值平均为一个值。

有什么想法或解决方案吗？

编辑：更新 plsql 代码以获得正确的 perl 变量名称

更新：

我将 SQL 更改为：

SELECT db_agg( dbm ) FROM data GROUP BY meas_date;

并得到这个错误：

ERROR:  Operation "/": no method found,
    left argument in overloaded package PostgreSQL::InServer::ARRAY,
    right argument has no overloaded magic at line 7.
CONTEXT:  PL/Perl function "avg_dbm"

有问题的部分在 plperl 的这行代码中

$watts = $watts + ( 10 ** ( $dbm / 10 ) ) / 1000;

特别是 $dbm 不想除以 10...

我尝试将函数更改为使用非数组双精度数据类型，但这似乎不起作用。我还尝试在 MySQL 中添加 0，希望进行自动转换，但失败了。

在除法中使用它们之前需要对数组数据类型进行一些处理吗？

4

1 回答 1

2

尝试使用聚合，而不是函数：

SELECT db_agg(dbm) 
FROM data 
GROUP BY meas_date;

并且不应该在函数体$avg_watts中代替？$decimal

于 2016-07-12T06:02:13.577 回答