[factic]

Всем привет.
Имеетcя задача написать программу для развертки 2х цилиндров , собственно что имею :

Код:

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

 (defun c:RAZVR ( / x h R lst)

(setq h (getreal "Введите радиус первого цилиндра:"))

(setq R (getreal "Введите радиус второго цилиндра:"))

(setq x 0)
(while (<= x (* PI h))
(setq lst (cons (list x (- R (SQRT(- (* R R) (* (SIN X) h (sin x) h )))) ) lst) x (+ x 0.01))
);end of while
(command "_.zoom" "_o" (pln (reverse lst) nil) "")


(setq P1 '(0.0 0.0))

(setq P2 (polar P1 (/ PI 2) h))

(setq P3 (polar P2 0.0 (* PI h)))

(setq P4 (polar P3 ( / (* 3 PI) 2) h))

(command "_LINE" P1 P2 P3 P4 "С" )
)

[Дима_]

В чем вопрос-то?

[factic]

в программе ошибка , с течение обстоятельств не силен в autolispe

[nolte]

это то что хотел получить

[factic]

по сказаниям программа должна строить прямоугольник в котором одна сторона или открезок в этом прямоугольнике , будет развертка 2х цилиндров

[nolte]

ну что сделаешь твое творчество. "волна" сия построена по твоим точкам

Код:

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

 
(defun c:88 ( / x h R lst)
(setq h (getreal "Введите радиус первого цилиндра:"))
(setq R (getreal "Введите радиус второго цилиндра:"))
(setq x 0)
(while (<= x (* PI h))
(setq lst (cons (list x (- R (SQRT(- (* R R) (* (SIN X) h (sin x) h )))) ) lst) x (+ x 0.01))
);end of while
(mapcar '(lambda (a)(vl-cmdf "_pline" a)) (reverse lst))
)

радиусы ввел 20 и 30

[factic]

Завтра опять скажут натворил не то )

[nolte]

да ладно пущай говорят. мона подумать, что все сразу профессорами родились. важно желание.

[factic]

Не ,там все намного сложнее , так как был на сборах на военной кафедре пришлось пропустить 1.5 месяца , преподаватель не то что бы даже поправить, он видеть не хочет меня)

[nolte]

да ладно не переживай я учебник черчения еще в 7 классе скурил

[factic]

черчение прошли , осталась научная исследовательская работа , построение развертки 2х цилиндров , а так спасибо огромное хоть волны покажу )

[nolte]

это то что желаешь получить

[factic]

Даже не знаю , волны как то больше похожи на его объяснения

[nolte]

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

[factic]

там один цилиндр должен входить в другой ( крестом ) , начертить развертку этого всего

[nolte]

ты это имеешь ввиду

[factic]

да, именно это, вот это чуда развертку)

[gomer]

Сообщение от nolte это то что желаешь получить

Это не развертка конуса, тем более врезанного

[lastloch]

http://www.plate-n-sheet.com/
Здеся посмотри.