[postbudka]

Есть ли программка (лисп) для интерполяции между двумя точками с указанными значениями.
Если есть, дайте пожалуйста ссылку (поиском пользовался, кое какие программы нашлись, но они выдают немного не тот конечный результат, который хотелось бы (простановка точек)).
Если нет, то не соблаговолят ли шарящие в лиспе товарищи помочь в написании. Думаю, что задача не очень сложная, особенно для тех, кто знает лисп.

Как я это представляю себе:
1. Указываем первую точку;
2. Вводим значение (высотную отметку, мощность и т.п.) первой точки;
3. Указываем вторую точку;
4. Вводим значение второй точки.
5. Вводим шаг интерполяции (допустим 0,5 или 1,0 м)
6. Результат - простановка точек между указанными вершинами согласно их (вершин) значений и шага (если бы ещё и подписывались - это вообще было бы круто!)

Плиз, очень надо!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[sbi]

Сообщение от postbudka to CB: Мы наверное друг друга немного недопонимаем. Крутимся где-то рядом. Попытаюсь максимально подробно описать ситуацию: я работаю на шахте, есть план горных выработок с нанесенными скважинами по шахтному полю. Мне нужно построить изомощности непосредственной кровли пласта - сланца. По каждой скважине есть значение мощности сланца. Изомощности мне нужно провести на всём поле через каждые 0,5 метра (это шаг интерполяции, в данном случае он равен 0,5, в другом случае может быть иным, поэтому и нужен запрос на ввод значения шага). Указывая первую точку, я указывая одну скважину, указывая вторую точку - вторую скважину. Вводимые значения мощностей - ЧИСЛА, их подписывать не надо и далее эти значения нигде использоваться не будут. Подписать желательно было бы те точки, которые находятся МЕЖДУ скважинами для лучшей ориентации при дальнейшем соединении точек с одинаковыми отметками. Вот эти подписи - ТЕКСТ. Далее я указываю следующую пару точек и их значения, получаю ещё точки. И так далее по всему полю. Потом вручную соединяю все точки о одинаковым значением сплайном. Не совсем, вернее совсем не врубился во фразу: Значения крайних точек абсолютно самостоятельные и не вычисляются относительно друг друга.

Извите, что вклиниваюсь в Вашу переписку
Тяжелый случай, решать проблемы изополей методом "интерполяции", с помощью "голого акада", не понимая при этом, какой формы должна быть кривая, с точки зрения науки о земле и, вдобавок, не формулируя вопрос. "Крутимся где-то рядом". Ну хочется и все тут.

[postbudka]

to sbi:
Зачем так всё усложнять? Причём тут наука о земле, кривые? Нужно разбить условную прямую между двумя точками. Всё! Объяснял максимально подробно как мог.

Ну хочется и все тут.

Не хочется - и не надо.

[KAI]

Сообщение от postbudka to sbi: Нужно разбить условную прямую между двумя точками. Всё! Объяснял максимально подробно как мог.

Может это подойдет?
http://geol-dh.ru/kai_stru.html#drawing_sp

[john644]

Кажется сюда. Нужно обрезать линию по х
Наверное что-то у меня с математикой плохо совсем Посмотрите и подскажите пожалуйста

Код:

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

(defun c:obrez ()
(setq nabpln01 nil)
(setq t1 (getpoint "Укажите первую точку"))
(setq nabpln01 (cons t1 nabpln01))
(setq t2 (getpoint "Укажите 2-ую точку"))
(setq nabpln01 (cons t2 nabpln01))
(setq delt0x (getreal "Введите обрезание по х "))
(setq nabpln01 (reverse nabpln01))
(command "_line" (car nabpln01) (cadr nabpln01) "")
   (setq y001 (+ (cadar nabpln01)(*(- (caadr nabpln01)delt0x)
                  (/(- (cadadr nabpln01)(cadar nabpln01))(- (caadr nabpln01)(caar nabpln01))))))
     (setq npln01 (list delt0x y001 0.0))
       (setq nabpln1 (cons npln01 nabpln1))
(command "_line" (car nabpln1) (cadr nabpln01) "")
)

[E-degtyarev]

Вот набросал на скорую руку, без "защиты от дурака".
Попробуйте, может пригодится.

Код:

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

(defun c:iso ()
(setq p_1 (getpoint "\n Укажите первую точку:"))
(setq m_1 (getreal "\n Мощность в точке 1:"))
(setq p_2 (getpoint p_1 "\n Укажите вторую точку:"))
(setq m_2 (getreal "\n Мощность в точке 2:"))
(setq sh_1 (getreal "\n Шаг разметки:"))
(setq ugol (angle p_1 p_2))
(setq rasst (distance p_1 p_2))
(setq perepad (- m_2 m_1))
(setq sh_2 (/ (* perepad sh_1) rasst))
(setq kolith (fix (/ rasst sh_1)))
(setq sh_3 (+ m_1 sh_2))
(repeat	kolith
  (setq p_1 (polar p_1 ugol sh_1))
  (command "_point" p_1)
  (setq p_t (polar p_1 0.0 5))
  (command "_text" p_t "5.0" "0.0" (rtos sh_3 2 2))
  (setq sh_3 (+ sh_3 sh_2))
)
)

[postbudka]

to KAI: Господи, ну наконец-то! Подойдёт и ещё как. То что нужно. Только один вопрос: эта программка (функция) идёт в поставляемом комплексе или её можно как-то отдельно "вырвать"?
to john644: Не смог запустить прогу
to E-degtyarev: Программа просто разбивает линию между вершинами на кучу точек с расстояниями между ними, равными 1 (хотя шаг вводил разный). В чём разница между ней и командой "Поделить"?

[KAI]

Сообщение от postbudka to KAI: Только один вопрос: эта программка (функция) идёт в поставляемом комплексе или её можно как-то отдельно "вырвать"?

Можно отдельно. Связь по Email.

[john644]

Сообщение от postbudka to john644: Не смог запустить прогу

Исправил, так лучше?