| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как построить квадратичную параболу в автокаде?

Как построить квадратичную параболу в автокаде?

Ответ
Поиск в этой теме
Непрочитано 15.03.2016, 12:47 #1
Как построить квадратичную параболу в автокаде?
swell{d}
 
гадание на конечно-элементной гуще
 
Düsseldorf
Регистрация: 31.05.2006
Сообщений: 7,604

Сори, но кроме как "по точкам", чего-то ничего в голову не приходит.
Может кто подскажет способ?
__________________
.: WikiЖБК + YouTube :.
Просмотров: 6107
 
Непрочитано 15.03.2016, 12:52
#2
maks-ufa


 
Регистрация: 13.02.2011
Россия
Сообщений: 2,157


Если разово, то можно не в автокаде, а в Олплане построить любой график и сделать экспорт в DWG. Дело двух минут.
maks-ufa вне форума  
 
Непрочитано 15.03.2016, 12:54
#3
AlexCondor

инженер
 
Регистрация: 03.08.2007
Сообщений: 1,326


Должно помочь - Geomcurv.lsp
AlexCondor вне форума  
 
Автор темы   Непрочитано 15.03.2016, 12:59
#4
swell{d}

гадание на конечно-элементной гуще
 
Регистрация: 31.05.2006
Düsseldorf
Сообщений: 7,604


пасиб =)
__________________
.: WikiЖБК + YouTube :.
swell{d} вне форума  
 
Непрочитано 15.03.2016, 12:59
#5
Хмурый


 
Регистрация: 29.10.2004
СПб
Сообщений: 16,326


swell{d}, GeomCurv без exe-файлов
Хмурый вне форума  
 
Непрочитано 15.03.2016, 13:15
#6
max4airkin


 
Регистрация: 26.03.2015
Екатеринбург
Сообщений: 382


А эксель? Скопировать выделенные ячейки в комстроку Акада
Вложения
Тип файла: xlsx Parabola.xlsx (8.6 Кб, 88 просмотров)
max4airkin вне форума  
 
Непрочитано 15.03.2016, 13:27
#7
art_rrc


 
Регистрация: 28.01.2013
Минск
Сообщений: 379


На vba можно) (тебе ли не знать )
Код:
[Выделить все]
Sub art_Spline()
    'y=k*x^2+b, xe[-5;5]
    'Дано:
    Const k = 0.4
    Const b = 2#
    Const x1 = -5
    Const x2 = 5
    Const stp = 0.1

    Dim x As Double, y As Double
    Dim splineObj As AcadSpline
    Dim startTan(0 To 2) As Double
    Dim endTan(0 To 2) As Double
    Dim fitPoints(0 To 302) As Double
    Dim i As Integer
    
    i = 0
    For x = x1 To x2 Step stp
        fitPoints(i) = x: fitPoints(i + 1) = fy(x, k, b): fitPoints(i + 2) = 0
        i = i + 3
    Next
    startTan(0) = 0: startTan(1) = 0: startTan(2) = 0#
    endTan(0) = fitPoints(i - 3): endTan(1) = fitPoints(i - 2): endTan(2) = 0#
    
    Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
    splineObj.Update
 
End Sub

Private Function fy(x As Double, k As Double, b As Double)
    fy = k * x * x + b
End Function
Миниатюры
Нажмите на изображение для увеличения
Название: Screen Shot 03-15-16 at 01.22 PM.PNG
Просмотров: 150
Размер:	7.4 Кб
ID:	166902  
art_rrc вне форума  
 
Непрочитано 15.03.2016, 13:28
#8
fasadel


 
Регистрация: 17.03.2009
Сообщений: 316


Камрады, всё проще-простого. Парабола — это сплайн ровно по трём точкам!
fasadel вне форума  
 
Непрочитано 15.03.2016, 13:32
#9
art_rrc


 
Регистрация: 28.01.2013
Минск
Сообщений: 379


Цитата:
Сообщение от fasadel Посмотреть сообщение
Камрады, всё проще-простого. Парабола — это сплайн ровно по трём точкам!
По 3м точкам - это y=x^2. А что если надо y=k*(x+c)^2+b?
art_rrc вне форума  
 
Непрочитано 15.03.2016, 13:34
#10
fasadel


 
Регистрация: 17.03.2009
Сообщений: 316


Если рассуждать в координатах y=x*x, то поставьте точки: (-x', y'), (0,0), (х', y'), где x', y' — точка на параболе. Т.е. важно первую и третью точки сплайна поставить симметрично относительно оси параболы, а вторую — в её вершине.

----- добавлено через ~1 мин. -----
Цитата:
Сообщение от art_rrc Посмотреть сообщение
По 3м точкам - это y=x^2. А что если надо y=k*(x+c)^2+b?
_move + _scale. Все параболы самоподобны.
fasadel вне форума  
 
Непрочитано 15.03.2016, 13:38
#11
art_rrc


 
Регистрация: 28.01.2013
Минск
Сообщений: 379


Цитата:
Сообщение от fasadel Посмотреть сообщение
_move + _scale. Все параболы самоподобны.
Ну конечно же автора интересовал какой-нибудь индустриальный способ, а не теоретические возможности..
art_rrc вне форума  
 
Непрочитано 15.03.2016, 13:39
#12
fasadel


 
Регистрация: 17.03.2009
Сообщений: 316


Даже не надо преобразования подобия. Вычислите по вашей формуле y=k*(x+c)^2+b положение вершины и две симметричных точки на параболе, и стройте сплайн.
fasadel вне форума  
 
Непрочитано 15.03.2016, 13:42
#13
Meknotek

Проектирование заборов уже в прошлом
 
Регистрация: 29.10.2009
Рязань
Сообщений: 2,089


Цитата:
Сообщение от art_rrc Посмотреть сообщение
По 3м точкам - это y=x^2. А что если надо y=k*(x+c)^2+b?
кол-во точек остается равным "3"

Цитата:
Сообщение от art_rrc Посмотреть сообщение
y=k*(x+c)^2+b?
масштаб параболы ("по х")
Цитата:
Сообщение от art_rrc Посмотреть сообщение
y=k*(x+c)^2+b?
смещение по оси х
Цитата:
Сообщение от art_rrc Посмотреть сообщение
y=k*(x+c)^2+b?
смещение по оси y
Meknotek вне форума  
 
Непрочитано 15.03.2016, 13:42
#14
fasadel


 
Регистрация: 17.03.2009
Сообщений: 316


Цитата:
Сообщение от art_rrc Посмотреть сообщение
Ну конечно же автора интересовал какой-нибудь индустриальный способ, а не теоретические возможности..
Хочу отметить, что "индустриальный" и "геморройный" — это два разных слова.
fasadel вне форума  
 
Непрочитано 15.03.2016, 13:52
#15
art_rrc


 
Регистрация: 28.01.2013
Минск
Сообщений: 379


Meknotek, спасибо, такие азы я уж еще не забыл
А если надо не на участке [-x1;x1] ,а [x1,x2]? Наверное еще расскажите как _trim пользоваться?
art_rrc вне форума  
 
Непрочитано 15.03.2016, 14:03
#16
max4airkin


 
Регистрация: 26.03.2015
Екатеринбург
Сообщений: 382


По трем точкам не получается даже у=х^2, почему?
Вложения
Тип файла: dwg
DWG 2007
Парабола.dwg (78.6 Кб, 45 просмотров)
max4airkin вне форума  
 
Непрочитано 15.03.2016, 14:33
#17
fasadel


 
Регистрация: 17.03.2009
Сообщений: 316


Цитата:
По трем точкам не получается даже у=х^2, почему?
Виноват. Не всё так просто.

_spline и далее колдуем опциями _method _cv _degree 2 (а по умолчанию степени 3).

Но! (рассматриваем для простоты y=x^2). Тогда надо строить через точки (-a, a^2), (0, -a^2), (a, a^2)! Где a — произвольное, удобное вам число.
fasadel вне форума  
 
Непрочитано 15.03.2016, 14:49
#18
art_rrc


 
Регистрация: 28.01.2013
Минск
Сообщений: 379


Срочно понадобилось нарисовать 10 разных парабол, давайте подытожим:
1) Вызываем команду сплайн
2) Меняем параметр по умолчанию
3) Указываем 3 специальные точки
4) Преобразовываем в блок
5) Меняем масштаб блока
6) Перемещаем блок по Х
7) Перемещаем блок по Y
8) Расчленяем блок
9) Подрезаем параболу командой _trim
Все правильно? Скажите, я ничего не забыл? Я конечно понимаю, что вместо трим'а необходимую часть можно маскировкой закрыть, но все же...
art_rrc вне форума  
 
Непрочитано 15.03.2016, 14:55
#19
mainevent100

конструктор
 
Регистрация: 15.05.2009
Сообщений: 6,058


Цитата:
Сообщение от art_rrc Посмотреть сообщение
давайте подытожим:
можно расписать так же подробно Ваш способ, раз уж другие способы вызывают столько раздражения?
mainevent100 вне форума  
 
Непрочитано 15.03.2016, 15:07
#20
art_rrc


 
Регистрация: 28.01.2013
Минск
Сообщений: 379


Цитата:
Сообщение от mainevent100 Посмотреть сообщение
можно расписать так же подробно Ваш способ, раз уж другие способы вызывают столько раздражения?
Никакого раздражения, небольшая шутка, причем достаточно добрая (на мой взгляд), никого не хотел обидеть.
ps В споре рождается истина. Вы только посмотрите, сколько доп. информации полезной появилось в теме..
art_rrc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как построить квадратичную параболу в автокаде?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Какой язык перспективен для инженера-конструктора с условием The_Mercy_Seat Программирование 705 17.03.2021 14:19
В каком автокаде удобно построить чертеж компьютерной сети? Или какие библиотеки,модули использовать? last_dolphinnn AutoCAD 10 25.04.2012 00:48
как с помощью екселя построить линию а автокаде krasnovilya AutoCAD 2 05.05.2011 03:59
Хочу построить в автокаде колесо турбины T-Yoke Машиностроение 45 29.01.2011 12:25
Как в голом Автокаде построить штриховку по контуру? Reset AutoCAD 12 24.05.2006 18:42