Кто-нибудь рисовал в VBA Лемнискату Бернулли

@maxidrom · Регистрация: 07.07.2014

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

Добрый день!
Очень срочно нужно отрисовать в VBA лемнискату бернулли. Если кто-то уже сталкивался - поделитесь, пожалуйста!

@Казанский · 03.04.2012, 14:25

В чем проблема? Находим в Википедии уравнение кривой, составляем в Экселе таблицу, строим график.
При чем тут ВБА - непонятно.

@Gibboustooth · 03.04.2012, 15:06

Для ленивых:
=((16+16*x^2)^(1/2)-x^2-4)^(1/2)

ОДЗ x: от -8^(1/2) до 8^(1/2)

P.S. Это при c=2

@Alex77755 · 03.04.2012, 16:52

Кто-нибудь рисовал в VBA Лемнискату Бернулли

Ага!!!

@Sasha_Smirnov · 03.04.2012, 19:04

Весёлый урок: http://festival.1september.ru/articles/314747/

Весёлая картинка (сам код утерян, но уравнения есть — например: r = a * Cos(4 * f) (a>0) — в полярных координатах):

@sco43 · 04.04.2012, 10:28

Почему то в форме VBA не хочет ни чего рисовать((
А в VB рисует:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim x!, y1!, y2!, c!, col As Variant
Scale (0, 100)-(100, 0)
c = 30
For x = -100 To 100 Step 0.01
If Sqr(c ^ 4 + 4 * x ^ 2 * c ^ 2) - x ^ 2 - c ^ 2 > 0 Then
  y1 = Sqr(Sqr(c ^ 4 + 4 * x ^ 2 * c ^ 2) - x ^ 2 - c ^ 2) + 50
  y2 = -Sqr(Sqr(c ^ 4 + 4 * x ^ 2 * c ^ 2) - x ^ 2 - c ^ 2) + 50
  If x < 0 Then
    col = vbBlue
   Else
    col = vbRed
  End If
  DrawWidth = 1
  Line (x + 50, y1)-(x + 50, y2), col
  DrawWidth = 5
  PSet (x + 50, y2), 13
  PSet (x + 50, y1), 13
  End If
Next x

@Sasha_Smirnov · 14.04.2012, 01:47

Вот тут посмотрите: http://www.arbuz.uz/u_cassini.html

@Sasha_Smirnov · 15.04.2012, 22:25

Сделал как частный случай овалов Кассини: http://www.pm298.ru/spec5.php (страницы 5, 6, 7)

Не идеально, но... пригодится! Запуск по F8 в документе Cassini.doc. Код — по Alt-F11.

Новые блоги и статьи Все статьи Все блоги /
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 и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@maxidrom 0 / 0 / 0 Регистрация: 07.07.2014 Сообщений: 5

	Кто-нибудь рисовал в VBA Лемнискату Бернулли 03.04.2012, 14:07. Показов 2134. Ответов 7 Метки нет (Все метки) Добрый день! Очень срочно нужно отрисовать в VBA лемнискату бернулли. Если кто-то уже сталкивался - поделитесь, пожалуйста! 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	03.04.2012, 14:25
	В чем проблема? Находим в Википедии уравнение кривой, составляем в Экселе таблицу, строим график. При чем тут ВБА - непонятно. 1

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	03.04.2012, 15:06
	Для ленивых: =((16+16*x^2)^(1/2)-x^2-4)^(1/2) ОДЗ x: от -8^(1/2) до 8^(1/2) P.S. Это при c=2 1

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	03.04.2012, 19:04
	Весёлый урок: http://festival.1september.ru/articles/314747/ Весёлая картинка (сам код утерян, но уравнения есть — например: r = a * Cos(4 * f) (a>0) — в полярных координатах): Миниатюры 1

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	14.04.2012, 01:47
	Вот тут посмотрите: http://www.arbuz.uz/u_cassini.html 0