Нарисовать диаграмму

@DeadZone · Регистрация: 03.10.2009

Студворк — интернет-сервис помощи студентам

Добрый вечер. Нужно нарисовать диаграмму. Не совсем получается.
Мне нужно нарисовать бюджет фильма и рядом же кассовые сборы.

Код, который хорошо рисует бюджет.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
%Предикат: 
films_hud  = film (Nazv, Rejesser, Cnena, Prodyser,Bydjet,Kas_sbori)
%рисуем
 
    db__paint_diagram (Count, Coeff) if
        Count > 0,
        chain_last (dbp, structs, Ref),
        C = 450/Count,
        C1 = 20 + C/2,
        db__paint_dd (Ref, C1, C, Coeff).
        
    db__paint_dd (Ref, C1, C, Coeff) if
        ref_term (dbp, films_hud, Ref, film (Nazv,_,_,_,Bydjet,_)),
        CC1 = C1 - 10,
        CC2 = 420 - Bydjet*Coeff,
        CC3 = C1 + 10,
        bar3d (CC1, CC2, CC3, 420, 10, 1),
        fronttoken (Nazv, Fam,_),
        outtextxy (CC1, 440, Nazv),
        str_int (Str, Bydjet),
        CC4 = CC2 - 30,
        CC5 = CC1 + 5,
        outtextxy (CC5, CC4, Str),
        chain_prev (dbp, Ref, RefN),
        C2 = C1 + C,
        db__paint_dd (RefN, C2, C, Coeff).
        
    db__paint_dd (_,_,_,_).

Не могу добавить рядом Кассовые сборы. Пробовал многими разными способами. Все куда-то сдвигается друг на друга если имеем 2-3 фильма.

Пример, чтобы два графика:

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
db__paint_diagram (Count, Coeff) if
        Count > 0,
        chain_last (dbp, structs, Ref),
        C = 600/Count,
        CC = 400/Count,
        CCC1 = 20 + CC/2,
        C1 = 20 + C/2,
        db__paint_dd (Ref, C1,CCC1, C,CC, Coeff).
        
    db__paint_dd (Ref, C1,CCC1,C,CC,Coeff) if
        ref_term (dbp, films_hud, Ref, film (Nazv,_,_,_,Bydjet,Kas_sbori)),
        CC1 = C1 - 20,
        CC11 = CCC1 - 20,
        CC2 = 420 - Bydjet*Coeff,
        CC22 = 420-Kas_sbori*Coeff,
        CC3 = C1 + 20,
        CC33 = CCC1 +20,
        bar3d (CC1, CC2, CC3, 420, 10, 1),
        bar3d (CC11, CC22, CC33, 420, 10, 1),
        outtextxy (CC1, 440, Nazv),
        str_int (Str, Bydjet),
        outtextxy (CC1, CC2, Str),
        chain_prev (dbp, Ref, RefN),
        C2 = C1 + C,
        C22 = CCC1 + CC,
        db__paint_dd (RefN, C2,CC2,C,CC,Coeff).
        
    db__paint_dd (_,_,_,_,_,_).

Что получается на скрине.

@DeadZone · 10.11.2014, 22:06 **[ТС]**

Тема не актуальна.
Можно /del.

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@DeadZone 3 / 3 / 1 Регистрация: 03.10.2009 Сообщений: 157
	10.11.2014, 22:06 [ТС]
	Тема не актуальна. Можно /del. 0