работа с Mathsoft 3-D Plot (TOpenGL)

21.03.2011, 03:16. Показов 1555. Ответов 0

Метки нет (Все метки)

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

Пытался опробовать работу с компонентом 2-и 3d графики -Mathsoft 3-D Plot (TOpenGL)
как в Delphi, так и в C++ Builder прежде всего в режиме построения 3d
В Delphi при установке и работе с ним в приложении
встетился с следующей проблемой
1)после инсталляции и работе с ним он при использовании на форме
приложения имеет черный фон и соответственно отсутствие возможности увидеть график поверхности
cм. код ниже

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.bOKClick(Sender: TObject);
var i,j: integer;
begin
 if (inp()<0) then exit;
 vr := VarArrayCreate([0,n,0,n],varDouble );
 dx:=(xb-xm)/N;  dy:=(yb-ym)/N;
 for i:=0 to N do
 for j:=0 to N do
   begin
  x:=xm+i*dx; y:=ym+j*dy;  z:=x*x+y*y;
  vr[i,j] := z;
   end;
OpenGL1.RemoveSurfaces;
OpenGL1.AddSurface(vr);
end;

в С++ Builder к VarArrayCreate обращение немного другое и не проходит оператор присваивания типа vr[i,j] := z; поэтому использовал массивы int bnd1[2] = {0,N}; для 2d и int bnd2[4] = {0,N-1,0,N-1}; для 3d
Для заполнения вариантного массива использовал PutElement. код

C++
1
2
3
4
 int bnd1[2] = {0,N}; 
gArr = VarArrayCreate(bnd1,1,varDouble);
for (int i=0; i<=N;i++)
{y=2*sin(xn+i*dx); gArr.PutElement(y,i); }

благополучно работает и строит 2 3d плоский график синусоиды а код

C++
1
2
3
4
5
6
7
8
int bnd2[4] = {0,N-1,0,N-1};
gArr = VarArrayCreate(bnd2,3,varVariant);
for (int i=0; i<=N;i++)
for (int j=0; j<=N;j++)
{
  x=xn+i*dx; y=yn+y*dy;z=cos(sqrt(x*x+y*y));
  gArr.PutElement(z,y,x);
}

приводит к выходу за границы памяти при 1-же обращении
Возможно неправилен выдов PutElement с 3 параметрами.
Заменил на gArr.PutElement(z,i*N+j); -ошибка не изменилась
Тема обсуждалась для дельфи на этом же форуме см
Графическое представление трехмерного массива

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

21.03.2011, 03:16

Ответы с готовыми решениями:

Error using plot
были различные ошибки, но смог их исправить, но с этой встал в ступор и не могу понять как быть u = 1.25:0.4:3.25; y =...

Get data from plot
Доброго времени суток! Есть два массива data(ось y) и time(ось x). Не проблема построить сглаженную кривую значений data от времени time...

3D scatter plot
Приветствую. Имеется большой набор точек в трехмерном пространстве, каждая точка задана тремя координатами X,Y,Z. Есть ли возможность...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

21.03.2011, 03:16

Помогаю со студенческими работами здесь

Ошибка функции plot
Подскажите, пожалуйста, почему plot выдает ошибку: Vectors must be the same length. и странно что comand window выводит "1.0e-03...

3D Scatter Plot из переменных ДУ
Доброго дня, дорогие программисты! Помогите, пожалуйста, после решения ДУ посредством odesolve, имеется возможность построить график...

Почему Plot не работает?
помогите пожалуйста. Может меня просто заклинило но я реально не понимаю почему MATLAB выдаёт такую ошибку ??? Error...

Отключение автомасштабирования в plot
Как отключить автомасштабирование ? т.е. задать фиксированные масштабы по x и y? команды set(gca, 'XTick', set(gca, 'YTick', ...

Параметры графиков в plot
Всем добрый день! Есть вот такое: clear all; clc; R = 1e3; C = 1e-9; tau = R*C; t = 0:tau/100:9*tau; w =...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

Наверх