[ГошаПак]

Здравствуйте! Не сочтите за дерзость мое к вам обращение)
Есть файл, где 100 координат точек в столбик, причем координаты икс и игрек в нем чередуются, то есть первая строка - икс, вторая - игрек, третья - икс и т.д.
Не могли бы вы исправить мои ошибки, так опыта моего написания программ на лиспе нету

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

Почитай ссылки, указанные здесь:

Сообщение от VVA dartamon, Грабли №1 А вообще советую почитать посты со 167 по 241. Найдешь много для себя полезного.

[ГошаПак]

Если честно - ни черта ни понятно) Может кто-то сможет за деньги? Назовите цену.

[TararykovDG]

Сообщение от ГошаПак Если честно - ни черта ни понятно) Может кто-то сможет за деньги? Назовите цену.

ГошаПак, какие деньги

Код:

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

; Вызов:
; (draw_spline "dim.txt" nil) - не замкнутый сплайн
; (draw_spline "dim.txt" T) - замкнутый сплайн
(defun draw_spline(file_path close_mode / file lst line_x line_y osmode_var)
  (if (findfile file_path)
    (progn
      (setq osmode_var (getvar 'osmode))
      (setvar 'osmode 0)
      (setq file (open file_path "r"))
      (while (and (setq line_x (read-line file)) (setq line_y (read-line file)))
        (setq lst (append lst (list (list (atof line_x) (atof line_y)))))
        )
      (close file)
      (if close_mode
        (apply 'vl-cmdf (append (list "_.spline") lst (list "_C" "")))
        (apply 'vl-cmdf (append (list "_.spline") lst (list "" "" "")))
        )
      (setvar 'osmode osmode_var)
      )
    )
  ); end draw_spline

Это так от нечего делать на скорую руку, а вообщ-то, по-хорошему, надо бы еще добавить всякие проверки на корректность исходных данных и т.д. и т.п

[ГошаПак]

Сообщение от TararykovDG ГошаПак, какие деньги

Это я от отчаяния, курсач уже горит, а руками строить не хочется. Спасибо Вам большое
Кстати, я все таки добился работы от своей программы, но преимущества вашей налицо. Вот она

Код:

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

(setq fo (open "dim.txt" "r"))
(setq i 0)
(command "_spline")
 (while (< i n)
   (setq e (atof (read-line fo)))
   (setq f (atof (read-line fo)))
   (command (list e f))
   (setq i (+ i 1))
 )

[TararykovDG]

ГошаПак, Вы уж извините, но код из Вашего поста #5 не может работать в принципе:
1. Чему равно n? Если nil, то (< i n) всегда будет nil и тело цикла ни разу не выпонеться
2. Если n чему-то и рано то количество записей в файле может быть и больше и меньше этого n, а соответственно Вы можете и не дочитать весь файл до конца, а можете пытаться прочитать уже закончившийся файл
3. command (list e f)) так Вы ввели очередную точка сплайна, но чтобы закончить выполнение команды "_spline" нужно задать еще 2 или 3 опции в зависимости от того замыкать сплайн или нет
4. Ну и напоследок, а файл то кто будет закрывать (close fo)

[ГошаПак]

Ну это смотря с какой стороны посмотреть:
1. n задается руками перед загрузкой файла.
2. число записей я знаю, это количество элементов вектора из маткада.
3. это я тоже делаю руками
4. да че с ним будет-то?

а кривулину он строит, хотя бы решил проблему задания 3600 точек.
понимаю Вашу критику, я нарушил все заповеди программирования (ну, разве что, переменную-счетчик обнулил)