Una vez me enfrenté a la tarea de modernizar el sistema de control de iluminación exterior: iluminación artística de fachadas, rótulos publicitarios, postes de calles, iluminación de placas de dirección, etc. La necesidad de modernización se debió a que el trabajo de las instalaciones de iluminación requería frecuentes participación humana. Para que el control funcione como se esperaba, fue necesario ajustar manualmente los tiempos de encendido y apagado.
IT . , . , , . . , , , .
: , , , .
, , . . , - . , . () .
. (). RS485 -, . SCADA OPC-, Ethernet, . .
, . , : , . . , . . .
, , . . , / , . , . : , () 0. . , "-6" , 6°. , , . .
, . , . -, - . , . , Ethernet, , Linux-.
-, . - , Modbus TCP.
Modbus modpoll. Linux :
$ wget https://www.modbusdriver.com/downloads/modpoll.tgz
$ tar xzf modpoll.tgz
$ sudo cp modpoll/linux_x86-64/modpoll /usr/local/bin/
:
#
$ modpoll -m tcp -r 2 -t 0 -a 1 -p 502 192.168.0.227 1 1 1 1 1 1 1 1
#
$ modpoll -m tcp -r 2 -t 0 -a 1 -p 502 192.168.0.227 0 0 0 0 0 0 0 0
- . , . , , "".
, «». , . : , . , 0°50′ 6°, — 6° 12°, — 12° 18°.
. , , . , ( -6° ) ( -6° ). , , , -6° .
.
, , . . , . , , . , , . - .
, , .
Youtube - / How the sun moves across the sky (by daybit).
, . - , - . Linux Perl, . :
$ sudo cpan install Astro::Coord::ECI
get_sun_elevation.pl, .
#!/usr/bin/perl
#
# get_sun_elevation.pl 55.7558 37.6173 127
# 55.7558 -
# 37.6173 -
# 127 -
use Astro::Coord::ECI::Sun;
use Astro::Coord::ECI::Utils qw{:all};
my ($lat, $lon, $elev) = (deg2rad($ARGV[0]), deg2rad($ARGV[1]), $ARGV[2]/1000);
my $time = time ();
my $loc = Astro::Coord::ECI->geodetic ($lat, $lon, $elev);
my $sun = Astro::Coord::ECI::Sun->universal ($time);
my ($azimuth, $elevation, $range) = $loc->azel ($sun);
print rad2deg ($elevation), "\n";
moscow_lights_ctrl.sh . , , - :
#!/bin/sh
[ -z "$1" ] && angle=-6 || angle=$1
sun_angle=`./sun_pos.pl 55.751244 37.618423 124`
if [ $(echo "$sun_angle >= $angle" |bc -l) -eq "0" ]; then
modpoll -m tcp -r 2 -t 0 -a 1 -p 502 192.168.0.227 1 1 1 1 1 1 1 1
exit 0
fi
modpoll -m tcp -r 2 -t 0 -a 1 -p 502 192.168.0.227 0 0 0 0 0 0 0 0
, , -1.5°. , , .
cron moscow_lights_ctrl.sh :
# 1.5 - , -
* * * * * root /path/to/moscow_lights_ctrl.sh -1.5
. , . -, Modbus TCP.
. .
ZABBIX
, . . , . , .. , . , - ZABBIX.
. ZABBIX.
ZABBIX
astro_outdoor_lighting Zabbix :
{$CIVIL_DEGREES} - . ,
{$ELEV} - ,
{$LAT} - ,
{$LON} - .
- elevation. .
, get_sun_elevation.pl.
/usr/lib/zabbix/externalscripts/get_sun_elevation.pl
#!/usr/bin/perl
#
# get_sun_elevation.pl 55.7558 37.6173 127
# 55.7558 -
# 37.6173 -
# 127 -
use Astro::Coord::ECI::Sun;
use Astro::Coord::ECI::Utils qw{:all};
my ($lat, $lon, $elev) = (deg2rad($ARGV[0]), deg2rad($ARGV[1]), $ARGV[2]/1000);
my $time = time ();
my $loc = Astro::Coord::ECI->geodetic ($lat, $lon, $elev);
my $sun = Astro::Coord::ECI::Sun->universal ($time);
my ($azimuth, $elevation, $range) = $loc->azel ($sun);
print rad2deg ($elevation), "\n";
civil_twilight_dawn , . . , .
, , . .
ZABBIX
[]->[] facade light off facade light on.
civil_twilight_dawn "", , .. facade light on. , facade light off. []->[] facade light, .
.
ZABBIX .
. - .
, ( cron) . . , . ., . , - , .
La variante con el uso de un sistema de monitoreo puede resolver problemas aún más interesantes. Además del control, permite monitorear el funcionamiento del equipo y notificar al personal cuando se detecta un mal funcionamiento. Un ejemplo es la inclusión sincrónica de carteles publicitarios en la fachada de un centro comercial. Y en caso de mal funcionamiento de algún cartel, el personal operativo recibirá un mensaje.
Por supuesto, todo lo anterior es relevante en presencia de cualquier tipo de infraestructura de TI. Pero, por regla general, está disponible.
Eso es todo. ¡Gracias por la atención!