#!/usr/bin/perl -w use CGI; # use File::Copy; $plik_temperatury = "/mnt/www/temperatura/pomiar_temperatury.dat"; $plik_danych = "dane.dat"; $sciezka = "/mnt/www/temperatura/"; $name = "dzien.png"; $name_godzina = "godzina.png"; $name_tydzien = "tydzien.png"; open(DIR, $plik_temperatury); @temp = ; closedir DIR; open(WSAD, ">" . $sciezka.$plik_danych); for ($i=0;$i<@temp-2;$i+=2) { $_=$temp[$i]; s/\n//; $data = $_; print WSAD $_; $_=$temp[$i+1]; s/\n//; $wynik=&kal1($_); print WSAD " ".$wynik."\n"; } close(WSAD); @elem=split(/:/,$data); $dzien=$elem[3]-1; $godzina=$elem[0]-1; $tydzien=$elem[3]-7; $zakres_b=$elem[0].":".$elem[1].":".$elem[2].":".$dzien.":".$elem[4].":".$elem[5]; $zakres_c=$godzina.":".$elem[1].":".$elem[2].":".$elem[3].":".$elem[4].":".$elem[5]; $dzis=$elem[3]."-".$elem[4]."-".$elem[5]; if ($tydzien <0){ $tydzien = 30+$tydzien; $elem[4]=$elem[4]-1; } $zakres_d=$elem[0].":".$elem[1].":".$elem[2].":".$tydzien.":".$elem[4].":".$elem[5]; # -------------------- Wykreslanie danych z jednego dnia open(WSAD, ">" . $sciezka.'wsad.gp'); print WSAD <" . $sciezka.'wsad1.gp'); print WSAD <" . $sciezka.'wsad1.gp'); print WSAD < Temperatura na Lipowej 41 w Białymstoku On-Line, Pomiar na żywo

Temperatura na Lipowej 41, Instytut Fizyki Doświadczalnej, Uniwersytet w Białymstoku, Pomiar na żywo - "On-line"

Wykres temperatury z ostatniej doby: $dzis Wykres temperatury z ostatniej godziny
Wykres temperatury z ostatniego tygodnia

Porównaj z temperaturą obliczaną w ICM Zobacz
Zobacz zdjęcia satelitarne z WebPark.pl: http://uhuru11.webpark.pl/
Doświadczenie przez Internet: Badanie domen magnetycznych przez INTERNET


Czujnik temperatury zamocowany w okiennej ramie. Podłączenie czujnika do gniazda przedłużacza który łączy go z konsolą pomiarową karty UIB
end_of_http_page # # Kalibracja dla czujnika CMA w metalowej obudowie # sub kal{ my $nap = shift(@_); $A = 55.7506; $B = -23.787; $wynik=$A*$nap+$B; return $wynik; } # # Kalibracja dla czujnika własnej roboty: 1.8 V - 0 st C, zmiana 1V - 20 st C # sub kal1{ my $nap = shift(@_); $A = 20; $B = -36; $wynik=$A*$nap+$B; return $wynik; }