[Helicopter]

Есть уравнение y=4hx-4hx^2. Требуется с максимальной точностью построить кривую по этому уравнению. Можно ли это сделать в AutoCade или в другой программе и перевести потом в AutoCad? Заранее спасибо!

[Солидворкер]

А коэффициент h чему равен? И значения х для опорных точек?

[Helicopter]

Коэффициент h=9,69 мм. Значения по x от 0 до 1. Причем единица соответствует 67,3 мм.

[Дима_]

Код:

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

(defun pln (lst c); создает полилинию по списку вершин lst, c - nil/T - разомкн/замкнт или '(с слой цвет).
(entmakex (append
(list (cons 0 "LWPOLYLINE")(cons 100 "AcDbEntity")(cons 100 "AcDbPolyline") (cons 90 (length lst)))
(if (= (type c) 'list)
(vl-remove nil (list
(if (car c) (cons 70 1) (cons 70 0))
(if (cadr c) (cons 8 (cadr c)))
(if (caddr c) (cons 62 (caddr c)))
));end of list & vl-remove
(list (if c (cons 70 1) (cons 70 0)))
);end of if
(mapcar '(lambda (x) (cons 10 x)) lst)
));end of apend & entmakex
);end of pln

(defun c:grafik ( / x h lst)
(setq x 0 h 9.69)
(while (<= x 1)
(setq lst (cons (list x (- (* 4 h x) (* 4 h (* x x)))) lst) x (+ x 0.01))
);end of while
(command "_.zoom" "_o" (pln (reverse lst) nil) "")
);end of grafik

[Helicopter]

Честно говоря, я не имею ни малейшего понятия что делать с этим кодом... Если не сложно объясните пожалуйста. Очень нужно!!!

Сообщение от Helicopter Честно говоря, я не имею ни малейшего понятия что делать с этим кодом... Если не сложно объясните пожалуйста. Очень нужно!!!

Как использовать лисп, опубликованный на форуме

[sbi]

Сообщение от Helicopter Честно говоря, я не имею ни малейшего понятия что делать с этим кодом... Если не сложно объясните пожалуйста. Очень нужно!!!

Это лисп, можно и VBA спец. програмки такие, встроенные на всякий случай, для осмышления.
Честно говоря,я бы строил кривую - отрезками, с определенным шагом 10^-3 или более.

[Helicopter]

Вроде разобрался как запустить лисп. Он построил мне параболу. Но эта парабола должна быть 9,69 мм. по оси Y (высота) и 67,3 мм. по X (ширина). Я могу просчитать n-ное количество координат и построить все это дело маленькими черточками, но с микронной точностью сделать это сложно и очень муторно... Попытался разобраться в коде сам, но не смог (о существовании лиспов узнал только сегодня)... Ясно что какой-то цикл считает все значения y(х) с шагом 0,01 пока х не приравняется к 1. Но почему минус стоит перед 4hx:
(setq lst (cons (list x (- (* 4 h x) (* 4 h (* x x)))) lst) x (+ x 0.01))
если уравнение: y=4hx-4hx^2 ? Так же не понял эту строчку: (setq x 0 h 9.69).
Помогите пожалуйста разобаться и всетаки получить параболу заданных размеров!

[Do$]

Сообщение от Helicopter Но почему минус стоит перед 4hx: (setq lst (cons (list x (- (* 4 h x) (* 4 h (* x x)))) lst) x (+ x 0.01))

Потому что синтаксис такой (ну или как это называется). Сперва функция, потом аргументы. Если перевести на русский, то запись

Код:

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

(- (* 4 h x) (* 4 h (* x x)))

означает: (-вычесть (* 4 h x)из произведения 4*h*x (* 4 h (* x x))произведение 4*h*x*x )
то есть все то же самое, что и в уравнении.

Код:

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

(setq x 0 h 9.69)

означает, что x присваивается значение 0, h присваивается значение 9,69
Если я правильно понял что хочет автор, то нужно в коде поста #4 заменить строку:

Код:

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

:(command "_.zoom" "_o" (pln (reverse lst) nil) "")

на строку:

Код:

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

(command "_.zoom" "_o" (pln (mapcar '(lambda (z) (list (* 67.3 (car z)) (cadr z))) (reverse lst)) nil) "")

[Helicopter]

То, что нужно! Всем огромное спасибо за помощь!

[Helicopter]

Подскажите пожалуйста как правильно записать в этом лиспе уравнение вида: -a*(x^3)-b*(x^2)+c*x. Или хотя бы ссылку, где можно посмотреть и разобраться с синтаксисом. Заранее спасибо!

[Do$]

(- (* c x) (* a x x x) (* b x x))

[Кулик Алексей aka kpblc]

Или

Код:

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

(- (* с x) (* a (expt x 3)) (* b (expt x 2)))

[Сергей Дубина]

Квдратные и кубические функции можно изобразить в АвтоКаде без привлечения програмных средств - полилиниями с кубическим или квадратическим сглаживанием. Точность отображения линии настраивается:
Настройка -> Экран -> экранное разрешение -> число сегментов в дугах полилиний

[-mavlin-]

Есть готовая програмка для построения графиков по данным из екселя.
http://dwg.ru/dnl/4177

[tsoialexei]

Построй кривую в Excel, картинку загрузи в автокад и обрисуй
хоть сплайном, что-ли

[ETCartman]

Сообщение от tsoialexei Построй кривую в Excel, картинку загрузи в автокад и обрисуй хоть сплайном, что-ли

Да, автокад не самая крутая программа по части графиков по формуле. Можно в Экселе (ОпенОфисе), можно в maxima

[BIzzzzzzON]

Здравствуйте.

Прошло почти 3 года. Появился ли теперь эффективный способ построения кривых в Автокаде? Интересует также, при невозможности постройки непосредственно в Автокаде, наиболее точный и быстрый способ построить и передать кривую из другой программы в Автокад в dwg, чтобы та, другая программа, не требовала много ресурсов (памяти и времени) на установку и использование. Поделитесь, пожалуйста, своими наработками, если вам приходилось с таким сталкиваться.

[hwd]

Сообщение от BIzzzzzzON Здравствуйте. Прошло почти 3 года. Появился ли теперь эффективный способ построения кривых в Автокаде? Интересует также, при невозможности постройки непосредственно в Автокаде, наиболее точный и быстрый способ построить и передать кривую из другой программы в Автокад в dwg, чтобы та, другая программа, не требовала много ресурсов (памяти и времени) на установку и использование. Поделитесь, пожалуйста, своими наработками, если вам приходилось с таким сталкиваться.

У AutoCAD другие задачи, поэтому "родных" средств для построения графиков в нём нет. Для этого предназначены электронные таблицы. Программно можно нарисовать в AutoCAD хоть график, хоть мультик.

[-mavlin-]

Сообщение от BIzzzzzzON Здравствуйте. Прошло почти 3 года. Появился ли теперь эффективный способ построения кривых в Автокаде? Интересует также, при невозможности постройки непосредственно в Автокаде, наиболее точный и быстрый способ построить и передать кривую из другой программы в Автокад в dwg, чтобы та, другая программа, не требовала много ресурсов (памяти и времени) на установку и использование. Поделитесь, пожалуйста, своими наработками, если вам приходилось с таким сталкиваться.

http://dwg.ru/dnl/7052