VPF::Построение графиков на Perl - Форум программистов

Alex

Дата 17.12.2004, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 162

Использую модуль Chart, точнее его Chart::Lines.

Вот кусочек из генератора.

Массивы входящие в @data строятся по данным из базы.

Код


#          ось Х     реал. темп  усред. темп
@data = (\@tmhour24, \@themp24, \@themp24m);

$obj = Chart::Lines->new(650, 210);
$obj->set ( 'title' => '',
        'legend' => 'none',
        'x_label' => "$BEGDATE24              $ENDDATE",
        'brush_size' => 3,
        'x_ticks' => 'vertical',
        'tick_len' => 2,
        'max_val' => $scl_max24,
        'min_val' => $scl_min24,
        'skip_x_ticks' => 12,
        'y_label' => 'Температура, C',
        'grid_lines' => 'true',
        'grey_background' => 'false',
        'graph_border' => 5,
        'colors' => {'background' => [232,248,252],
                'x_grid_lines' => [155,186,214],
                'y_grid_lines' => [155,186,214],
                'text' => [34,34,102],
                'y_label' => [34,34,102],
                'dataset1' => [7,42,239]
                }
);
#               'dataset0' => [249,117,2],

$obj->png ( $IMG_DAY, \@data );

Михаил Бабаков

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »