[Spiteful Berkut]

Моё уравнение и численными методами берётся проще — методом Ньютона за 3-4 итерации до десятого знака после запятой. И ограничение всего одно: 0<X<C. Требую ещё кусок шоколадной медали.

[Ильнур]

Сообщение от Spiteful Berkut ...Требую ещё кусок шоколадной медали.

Ясному Соколу слава.
Так сойдет?

[Spiteful Berkut]

Там-та-дам! Проверок корректности не писал, ибо лень. Если перепутаете длинную и короткую стороны, то попрощайтеся с настройками привязки. Я вас предупредил. Если уж проглядите, то впишите в командной строке вот эту строчку: (setvar "OSMODE" OS).

Код:

[Выделить все]

 (defun C:ir()
	(defun fun(A B C X)
		(+(-(/(-(* X X) (* B X))(sqrt(-(* C C)(* X X))))(sqrt(-(* C C)(* X X))))A)
	);end_defun_fun
	(defun dif(B C X)
		(+(/(-(* 2 X)B)(sqrt(-(* C C)(* X X))))(/(*(-(* X X)(* B X))X)(*(-(* C C)(* X X))(sqrt(-(* C C)(* X X)))))(/ X(sqrt(-(* C C)(* X X)))))
	);end_defun_dif
	(setq
		PO (getpoint "\nУкажите угол прямоугольника: ")
		PB (getpoint PO "\nУкажите угол на длинной стороне прямоугольника: ")
		PA (getpoint PO "\nУкажите угол на короткой стороне прямоугольника: ")
		C (getreal "\nВведите длину С: ")
		X (/ C 2)
		A (distance PA PO)
		B (distance PB PO)
		AA (angle PO PA)
		AB (angle PO PB)
		FX (fun A B C X)
		FD (dif B C X)
		OS (getvar "OSMODE")
		CE (getvar "CMDECHO")
	);end_setq
	(setvar "OSMODE" 0)
	(setvar "CMDECHO" 0)
	(while (> (abs FX) 1E-10)
		(progn
			(setq
				X (- X (/ FX FD))
				FX (fun A B C X)
				FD (dif B C X)
			);end_setq
		);end_progn
	);end_while
	(setq
		X1 (sqrt (-(* C C)(* X X)))
		P1 (polar PO AB X)
		P2 (polar PO AA X1)
		P3 (polar (polar PO AB B) AA (- A (sqrt (-(* C C)(* X X)))))
		P4 (polar P3 (angle P1 P2) C)
    );end_setq
	(command
		"_pline" P3 P1 P2 P4 "_C"
    );end_command
  (setvar "OSMODE" OS)
  (setvar "CMDECHO" CE)
);end_defun_ir

[pan]

Сообщение от paha Возникла острая практическая необходимость решения задачи по построению прямоугольника вписанного в другой прямоугольник. Известные параметры: - Длина и ширина внешнего(описанного) прямоугольника - Ширина вписанного прямоугольника. Необходимо определить либо длину прямоугольника, либо угол наклона внутреннего относительно внешнего прямоугольника.

Смотрю в высшую математику ударились...
Ну-ну.
А вот такое решение было? Если было, звиняйте, братцы, все 12 листов не читал.

[Ильнур]

Сообщение от pan А вот такое решение было? .

Какое решение? Там синий в красном, и все.

[Spiteful Berkut]

Сообщение от pan А вот такое решение было?

Концепция точно была описана. Реализацию не видел, т.к. тему ночью с телефона в текстовом виде читал.
Вещь хорошая и правильная... А если у меня 2007 AutoCAD? А если описанный прямоугольник надо повернуть? Я хвалю свой болото с AutoLisp'ом, хоть я и беркут, а не кулик.

----- добавлено через 47 сек. -----

Сообщение от Ильнур Там синий в красном, и все.

Там же через зависимости реализовано. Вполне симпатично.

[Bull]

Сообщение от Spiteful Berkut Там же через зависимости реализовано. Вполне симпатично.

Зависимости это не формула. В NX я уже говорил, что без проблем. Тут тот же принцип абсолютно. Но принцип не означает "расчет" (мы все смотрим ТВ, но не каждый объяснит, как это работает). Хоть и не говорилось в первом посте конкретно "формула", но это подразумевалось само собой. Иначе тема была бы в ветке "AutoCAD", например. С вопросом не "определить длину", а "как построить".

[Spiteful Berkut]

Сообщение от Bull С вопросом не "определить длину", а "как построить".

Именно поэтому

Сообщение от Spiteful Berkut Я хвалю свой болото с AutoLisp'ом

[Ильнур]

Сообщение от Spiteful Berkut ...Там же через зависимости реализовано....

А, надо было ткнуть в примитив и посмотреть свойства? Или как увидеть? Лисп - это не мой болото

[Bull]

Сообщение от Ильнур Или как увидеть? Лисп - это не мой болото

там не лисп в файле, а обычная параметризация. Параллельность, перпендикулярность, длины

[Ильнур]

Сообщение от Bull там не лисп в файле, а обычная параметризация. Параллельность, перпендикулярность, длины

А где это смотреть? Историю построения листать?

[pan]

Ильнур, надо открывать в >=2010

[Ильнур]

Сообщение от pan Ильнур, надо открывать в >=2010

Я открыл в 2012, на экране два прямоугольника, и все

[Bull]

Сообщение от Ильнур Я открыл в 2012, на экране два прямоугольника, и все

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

[Ильнур]

Сообщение от Bull Нажми на контуры. Появились квадратики с ограничениями и размеры?

Ага, появились зависимости. Красота! Реальная польза. panу слава!

[sbi]

Ильнур А ,если бы бы блок был бы динамическим.... Тогда ещё красивше было бы.....