Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 20.11.2013
Сообщений: 37

Построить график трехмерной поверхности по формуле и границам

04.09.2014, 22:52. Показов 2639. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно построить график такой вот функции на рабочем листе
В VBA немного разбираюсь, но к сожалению не в графике
Помогите пожалуйста, если можно
Ниже указано само уравнение, пределы x и y, и шаг

https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{{x}^{2}}{9}+\frac{{y}^{2}}{16}-{z}^{2}=1\left|\begin{matrix}x \in  [-3;3]\\ y \in  [-4;4]\\ \Delta  = 0,5\end{matrix}\right.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
04.09.2014, 22:52
Ответы с готовыми решениями:

Как вывести график трехмерной поверхности
r=sqrt(x^2+y^2) sin^2(r)/r r=sqrt(x.^2+y.^2); f4=sin(r).^2/r mesh(f4) что не так?

Построить график поверхности
У меня есть набор точек, заданных тремя координатами. Возможно ли по ним построить поверхность? Добавлено через 7 минут Вернее не...

Построить график поверхности
построить график поверхности(обязательное наличие: корректных подписей, название осей, названиедиограм) f=6x^2 + 8y^2, при x \epsilon , y...

3
 Аватар для Апострофф
9908 / 3924 / 742
Регистрация: 11.10.2011
Сообщений: 5,904
05.09.2014, 07:35
http://krivaksin.ru/trehmernyi... y-v-excel/
1
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
05.09.2014, 11:35
Лучший ответ Сообщение было отмечено monk22092011 как решение

Решение

Попробуйте так
Visual Basic
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
 Sub Main()
     '(x^2)/9 +(y^2)/16 -z^2 = 1
     Dim x As Single, y As Single, z As Single
     Dim i As Integer, j As Integer, m As Single
     Const d As Single = 0.5
     On Error Resume Next
     ActiveSheet.ChartObjects.Delete
     For x = -3 To 3 Step d
         j = j + 1
         Cells(1, j + 1) = x
         For y = -4 To 4 Step d
             i = i + 1
             m = (x ^ 2) / 9 + (y ^ 2) / 16 - 1
             z = Sqr(Abs(m)): If m < 0 Then z = -z
             Cells(i + 1, j + 1) = z
             If j = 1 Then Cells(i + 1, 1) = y
         Next y
         i = 0
     Next x
     Columns("A:A").HorizontalAlignment = xlCenter
     Rows(1).HorizontalAlignment = xlCenter
     Cells(1, 1) = "y      x": Cells(1, 1).HorizontalAlignment = xlRight
     ActiveSheet.Shapes.AddChart.Select
     ActiveChart.SetSourceData Source:=Range("'Лист1'!$B$2:$N$18")
     ActiveChart.ChartType = xlSurface
 End Sub
Миниатюры
Построить график трехмерной поверхности по формуле и границам  
2
0 / 0 / 0
Регистрация: 20.11.2013
Сообщений: 37
06.09.2014, 14:49  [ТС]
спасибо огромное
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.09.2014, 14:49
Помогаю со студенческими работами здесь

Построить график поверхности
В маткаде абсолютно не разбираюсь Кто-нибудь может объяснить, как построить вот такое: x^2/a^2+(z-a)^2/a^2=1 Должен получиться...

Построить график поверхности
В Excel построил график поверхности очень быстро,в MathCade ввожу вроде бы всё по методе,но не знаю как оси подписывать и график не...

Построить график поверхности
x y z 1 1 0,092 2 1 0,17 3 1 0,255 4 1 0,245 5 1 0,212 6 1 0,046 7 1 0,024 1 -1 0,107 2 -1 0,225

Построить график поверхности
Помогите пожалуйста

Построить график поверхности сферы
Необходимо построить график поверхности конуса, возможно ли это сделать не прибегая к сферическим координатам? Поверхность задана...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru