Форум программистов, компьютерный форум, киберфорум
zink0000
Форум программистов и сисадминов Киберфорум > Блоги > Сарай №XII
Войти
Регистрация
Восстановить пароль
Правила Карта Блоги Социальные группы Поиск Сообщения за день  
Сарай №XII
(Юрий Зинковский)

Мой блог.
Рейтинг: 5.00. Голосов: 1.

ПОСТРОЕНИЕ 3D-ГРАФИКА ЗАДАННОЙ ФУНКЦИИ

Запись от zink0000 размещена 08.02.2020 в 17:20
Когда-то, давным-давно (году этак в 1988 или в самом начале 1989), не помню уже для чего, понадобилась кому-то программа для построения трёхмерных графиков функций... Изначально писалась она на каком-то бейсике у которого для рисования на экране в графическом режиме использовался оператор PLOT. Понятно, что писал я не совсем самостоятельно, а под присмотром и с помощью кого-то из преподавателей.

Позже, в конце 1989 или 1990 году, когда мне достали Borland Turbo Basic version 1.1 1987 года и у меня появилась машина на которой можно было его запустить, я частично переработал программу, правда оператор PLOT пришлось имитировать подпрограммой. Этот переработанный вариант у меня и сохранился.

Нажмите на изображение для увеличения Название: tb_000.jpg Просмотров: 576 Размер: 58.0 Кб ID: 5897

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

SUB PLOT(X, Y, I, LINTYP)
  ' I = 0   ПЕРО ПОДНЯТО
  ' I = 1   ПЕРО ОПУЩЕНО
  ' I = 2   ЛИНИЯ СТИРАЕТСЯ
  ' I = 3   ИНВЕРСИЯ
  SELECT CASE I
  CASE 0
    C = POINT(X, Y)
  CASE 1
    LINE -(X, Y), LINTYP
  CASE 2
    LINE -(X, Y), 0
  CASE 3
    LINE -(X, Y), LINTYP
  CASE ELSE
    '
  END SELECT
END SUB
График функции Z(X,Y) = 1.5 * COS(SQR(X ^ 2 + Y ^ 2)):
Нажмите на изображение для увеличения Название: tb_001.jpg Просмотров: 553 Размер: 135.2 Кб ID: 5898

Исходник:
3d-gr.zip

Не знаю будет ли это работать в QBasic, но можно попробовать.

Было желание переписать эту программу на Microsoft Quick C 2.5 на котором я стал писать с 1991 года, но развалился Советский Союз и мне стало сильно не до этого.
Размещено в Без категории
Просмотров 324 Комментарии 3
« Поздравляю с наступающими!     Главная страница     Поздравляю! »
Всего комментариев 3
Комментарии
  1. Старый комментарий
    Аватар для XLAT
    ох, вот куда распыляются мозги России.
    А ведь можно было MMOРПГ забацать:
    ярд заработать и страну лишний раз прославить
    Запись от XLAT размещена 09.02.2020 в 05:14 XLAT вне форума
  2. Старый комментарий
    Аватар для 8Observer8
    Цитата:
    ох, вот куда распыляются мозги России.
    Написание и разбор исходников такой программы полезны для мозгов. Потенциал и время распыляются на кучу комментариев вместо того, чтобы с пользой и интересом потратить данное время на математику и программирование.
    Запись от 8Observer8 размещена 11.02.2020 в 14:23 8Observer8 вне форума
  3. Старый комментарий
    Аватар для XLAT
    увы,
    обычно все решения для
    моих текущих сложных задач,
    ко мне приходят всегда в тот момент,
    когда я не думаю о программировании,
    могу, например, писать глупый комментарий,
    и тут меня, как зевс молнией прошибает ...

    фиг его знает, как это работает, но это работает.

    например, пока писал сей коммент,
    думал какие могут быть тонкости, чтобы оттекстурировать квад,
    вертексы которого не лежат в одной плоскости и не дробя квад на треугольники.
    Хотел у вас спросить, но ответ сам откуда то выпал.
    и спрашивать уже и не зачем ...
    Запись от XLAT размещена 11.02.2020 в 16:05 XLAT вне форума
    Обновил(-а) XLAT 11.02.2020 в 16:14
 
КиберФорум - форум программистов, компьютерный форум, программирование
Реклама - Обратная связь
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.