[alexeyL]

Подскажите, как нарисовать правильную синусоиду в AutoCAD'е 2002.
Подозреваю, что без Lisp'a или VBA не обойтись. Но ни на том, ни на другом для AutoCAD'a ничего не писал. Если кто-нибудь поделиться примерчиком - думаю разберусь (программировать время от времени приходится, правда не на лиспе и не на бэйсике).

--
Спасибо.

[Дима_]

Ну разбирайся:

Код:

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

(setq x 0 tmp nil)
(command "_zoom" "_o" (entmakex (append 
(list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 100) (cons 70 0))
(mapcar '(lambda (x) (list 10 x (sin x))) (repeat 100 (setq tmp (cons (setq x (+ 0.1 x)) tmp))))))"")

[sbi]

По точкам, как в школе, все просто. Рисуешь окружность, делишь на N частей, развертываешь окружность ну и т.д.

[alexeyL]

Сообщение от Дима_ Ну разбирайся: Код: [Выделить все] (setq x (+ 0.1 x))

"(+ 0.1 x)" - что это за зверь?

[AlexV]

Сообщение от alexeyL "(+ 0.1 x)" - что это за зверь?

x=x+0,1

[T-Yoke]

Сообщение от alexeyL Подскажите, как нарисовать правильную синусоиду в AutoCAD'е 2002. Подозреваю, что без Lisp'a или VBA не обойтись. Но ни на том, ни на другом для AutoCAD'a ничего не писал. Если кто-нибудь поделиться примерчиком - думаю разберусь (программировать время от времени приходится, правда не на лиспе и не на бэйсике). -- Спасибо.

Я рисовал пружину в MDT2002 (сжатия или растяжения неважно, главное нужные шаги и диаметр проволоки брать минимальный), взрывал её, чтобы автокад видел как обычный 3D-Солид и всталял в автокад. Потом делал проекцию на плоскость.
Можно сказать идеальная синусоида получалась
Хотя возможно существуют и менее замороченные способы. Но такой меня устраивал.

[zenon]

Как все сложно,
ps по посту 3
sinus.dwg

[terewe]

Инженерным калькулятором находите значения sin(0-90) можно через 10 градусов. Отмечаете точки на координатной оси (по ординате -1, 0, +1; по абсцисе 0-360 град). Сначала отмечаете 9 точек до 90 градусов, объединяете сплайном, а дальше зеркалите. Как по старинке

[sbi]

Сообщение от zenon Как все сложно, ps по посту 3 Вложение 23994

Вот, если бы уважаемый alexeyL построил бы sin на эллипсе, то наверяка стал бы Коперником.

[Дима_]

Сообщение от AlexV x=x+0,1

Сообщение от alexeyL "(+ 0.1 x)" - что это за зверь?

не путайте (+ 0.1 x) возращает х+0.1, а х=х+0.1 это (setq x (+ 0.1 x))

Короче все по порядку
(setq x 0 tmp nil); присваивает х=0, tmp=nil (на случай повторного запуска)
(command "_zoom" "_o"; масштабирование экрана по объекту
(entmakex (append ; создать объект из суммы списков
(list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 100) (cons 70 0)); разомкнутая полилиния со 100 вершинами
(mapcar ;преобразовать список с помощью
'(lambda (x); анонимная функция с аргументом х
(list 10 x (sin x))); вернет список: 10 - dxf код вершины, x, sin(x)
(repeat 100 (setq tmp (cons (setq x (+ 0.1 x)) tmp))))))""); список из 100 чисел от х с приращением в 0.1 (в обратном порядке)

[alexeyL]

По посту #7

Zenon, за аттачмент спасибо, но Ваш [FONT=Courier New]sinus.dwg[/FONT] не открывается. Может еще раз или в другое место можно выложить?
------------------------------------------------------------------------------------------------------

По посту #10

_Дима, а на экран то как все посчитанное вывести?

[Дима_]

а он вообщето и выводит, даже зумирует во весь экран - скопируй код, вставь в командную строку и enter.

[tsoialexei]

например:
в Excel составил таблицу "x" - "sin(x)"
в Мастере диаграмм получил график
нажал PrintScreen
открыл Autocad
вставил
подогнал по высоте и ширине
и срисовал поточечно

[user277418]

Сообщение от Дима_ Короче все по порядку (setq x 0 tmp nil); присваивает х=0, tmp=nil (на случай повторного запуска) (command "_zoom" "_o"; масштабирование экрана по объекту (entmakex (append ; создать объект из суммы списков (list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 100) (cons 70 0)); разомкнутая полилиния со 100 вершинами (mapcar ;преобразовать список с помощью '(lambda (x); анонимная функция с аргументом х (list 10 x (sin x))); вернет список: 10 - dxf код вершины, x, sin(x) (repeat 100 (setq tmp (cons (setq x (+ 0.1 x)) tmp))))))""); список из 100 чисел от х с приращением в 0.1 (в обратном порядке)

как построить такую же синусойду только по формуле?
y = (a0/ 4) [1 + sin( Pi x / s - Pi /2)]
a0= 550 mm
s = 190 mm

[art_rrc]

Сообщение от user277418 как построить такую же синусойду только по формуле? y = (a0/ 4) [1 + sin( Pi x / s - Pi /2)] a0= 550 mm s = 190 mm

Вот что у меня получилось...
Xe[95;2000]
ОБНОВЛЕНО! (при правке забыл перепрекрепить файл)

[sbi]

Сообщение от user277418 как построить такую же синусойду только по формуле? y = (a0/ 4) [1 + sin( Pi x / s - Pi /2)] a0= <a href="http://cityadspix.com/tsclick-CQBE4NP0-MKIGQL0P?url=http%3A%2F%2Fwww.pleer.ru%2F_72225_sennheiser_mm_550_x_travel.html&sa=mh&sa1=&sa2=&sa3=&sa4=&sa5=&bt=20&pt=9&lt=2&tl=3&sa=mh&sa1=&sa2=&sa3=&sa4=&sa5=&sa=mh&sa1=&sa2=&sa3=&sa4=&sa5=&im=MjgyNS0wLTE0MjQ5NDg0MzEtMTk3Mzk0Njk%3D&fid=NDQ1NzU2Nzc1&prdct=3a0c380b3a0f3904&kw=550%20mm" target="_blank" alt="Sennheiser MM 550-X Travel" title="Sennheiser MM 550-X Travel" style="">550 mm</a> s = 190 mm

Приведите формулу в нормальный вид. Угол в тригонометрии измеряется в градусах (не в мм алкоголя ) и радианах.
Если Вы имеете ввиду радианы то: sin(3.14*X/190- 3.14/2)= sin(0,0165*Х), Х в рад. и т.д

----- добавлено через ~2 мин. -----

Сообщение от user277418 как построить такую же синусойду только по формуле? y = (a0/ 4) [1 + sin( Pi x / s - Pi /2)] s = 190 mm

Приведите формулу в нормальный вид. Угол в тригонометрии измеряется в градусах (не в мм алкоголя ) и радианах.
Если Вы имеете ввиду радианы то: sin(3.14*X/190- 3.14/2)= sin(0,0165*Х), Х в рад. и т.д

----- добавлено через ~40 мин. -----
....

[user277418]

Сообщение от art_rrc Вот что у меня получилось...

Идеально совпало

Какие значения в коде от _Димы Вы изменяли? Я оооочень далек от программирования

[art_rrc]

Сообщение от user277418 Идеально совпало Какие значения в коде от _Димы Вы изменяли? Я оооочень далек от программирования

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

[user277418]

Сообщение от art_rrc Честно признаться, я тему даже не читал.. Просто забил быстренько формулу в VBA.. результат выложил..

))) в таком случае, что такое VBA?