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

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

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

Добрый день!
Очень срочно нужно отрисовать в 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

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.

@maxidrom 0 / 0 / 0 Регистрация: 07.07.2014 Сообщений: 5
		1
	Кто-нибудь рисовал в VBA Лемнискату Бернулли 03.04.2012, 14:07. Показов 1924. Ответов 7 Метки нет (Все метки) Добрый день! Очень срочно нужно отрисовать в VBA лемнискату бернулли. Если кто-то уже сталкивался - поделитесь, пожалуйста! 0

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

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

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	03.04.2012, 16:52	4
	Кто-нибудь рисовал в VBA Лемнискату Бернулли Ага!!! Миниатюры 3

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

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

	15.04.2012, 22:25