[TimurX]

Есть такое задание.

Написать функцию grmnsec, переводящую число из вещественного значения в
строку.
вещественное значение - значение в виде:
градусы.минуты_секунды_десятыедолисекунд.

При этом при равенстве нулю градусы, минуты должны отбрасываться,
оставляя только значащую часть.
по знакам:
ГГ.ММССДДДДДДД

Необходимо отметить, что для вывода градусов на чертеж, используется
строка %%d

Параметр функции - вещественное значение.
Результат - список значений:
строка для вывода на чертеж в виде градусов, минут, секунд.
число градусов (целое)
число минут (целое)
число секунд (вещественное)

Пример:
(grmnsec 12.3456789)
должен быть результат:
("12%%d34'56.789''" 12 34 56.789)

Скажите, как сделать?

[fixo]

Если тупо следовать твоим указаниям, тогда
эта функция выдаст тебе то что ты просил
Хотя я сомневаюсь в правильности условий
тобой поставленных
К примеру 0.34 градуса будет не 34 минуты
а примерно 38 минут или около того я в арифметике
не шибко-то

Код:

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

(defun grmnsec	(ang / grad mn sec sign str_ang)
  (setvar "angdir" 1)
  (if (minusp ang)
    (setq sign "-")
    (setq sign ""))
  (setq ang (rtos ang 2 7))
  (setq pos (vl-string-position 46 ang 0))
  (setq	grad (substr ang 1 pos)
	mn   (substr ang (+ pos 2) 2)
	sec  (rtos (/ (atof (substr ang (+ pos 4) 4)) 100.) 2 2)
	)
  (setvar "angdir" 0)
  (setq	str_ang
	 (cond ((and (zerop (atof grad)) (zerop (atof mn)))
		(strcat sign sec "''"))
	       ((and (zerop (atof grad)) (not (zerop (atof mn))))
		(strcat sign mn "'" sec "''"))
	       ((and (not (zerop (atof grad))) (zerop (atof mn)))
		(strcat grad "%%d" mn "'" sec "''"))
	       (T (strcat grad "%%d" mn "'" sec "''"))
	       )
	)
  ;; return value
  (list
    str_ang
    (atof grad)
    (atof mn)
    (atof sec)
    )
  )

;; TesT:
(print
(list
(grmnsec 10.155678)
(grmnsec -0.055678)
(grmnsec 10.005678)
(grmnsec 0.005678)
(grmnsec -10.005678)
(grmnsec -0.005678)))

;;Call: (grmnsec 12.3456789);==>("12%%d34'56.789''" 12 34 56.789)

~'J'~

[TimurX]

А чтобы и минуты точно переводились что нужно сделать? Не сложно будет?

[CB]

Вообще то я тоже сомневаюсь в правильности условий
1градус = 60минут => 0.34 градуса = (* 0.34 60.) = 20.4'

Код:

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

(defun grmnsec (a / lst)
  (repeat 2
    (setq lst (cons (atoi (vl-princ-to-string a)) lst))
    (setq a (* 60 (rem a 1.)))
  ) ;_ end of repeat
  (setq lst (vl-remove-if
       '(lambda (x) (equal x 0))
       (reverse (cons a lst))
     ) ;_ end of vl-remove-if
  ) ;_ end of setq
  (cons
    (apply 'strcat
    (mapcar '(lambda (x y)
        (strcat (vl-princ-to-string x) y)
      ) ;_ end of lambda
     lst
     '("%%d" "'" "''")
    ) ;_ end of mapcar
    ) ;_ end of apply
    lst
  ) ;_ end of cons
) ;_ end of defun
 
;;;(grmnsec 12.3456789) -> ("12%%d20'44.444''" 12 20 44.444)
;;;(grmnsec 12.5) => ("12%%d30'" 12 30)
;;;(grmnsec 12) => ("12%%d" 12)

[VVA]

Мои 5 копеек

Код:

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

(defun DTR (a)(* pi (/ a 180.0)))
(angtos (dtr 12.3456789) 1 7) ;_-> "12d20'44.444\""

[TimurX]

случайно продублировал, удалил сообщение.

[TimurX]

Переводить в углы не нужно, так как задача угла уже будет в нужном формате, т.е. 12.345678 это 12 град, 34 минуты 56.78 сек.
т.е. первый код больше подходит.
Единственное, не подскажите как сделать, чтобы отбрасывались нули, т.е. если градусов 0, то выводилось бы сразу 34 мин, 56.78 сек.
и если и минуты равны 0, то только секунды выводились. НО, если градусы имеют значащую часть, а минуты равны 0, то выводилось бы 12 град, 0 минут и 56.78 сек. ???

[fixo]

Пробуй

Код:

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

(defun grmnsec	(ang / grad mn sec sign str_ang)
  (setvar "angdir" 1)
  (if (minusp ang)
    (setq sign "-")
    (setq sign ""))
  (setq ang (rtos ang 2 7))
  (setq pos (vl-string-position 46 ang 0))
  (setq	grad (substr ang 1 pos)
	mn   (substr ang (+ pos 2) 2)
	sec  (rtos (/ (atof (substr ang (+ pos 4) 4)) 100.) 2 2)
	)
  (setvar "angdir" 0)
  (setq	str_ang
	 (cond ((and (zerop (atof grad)) (zerop (atof mn)))
		(strcat sign sec "''"))
	       ((and (zerop (atof grad)) (not (zerop (atof mn))))
		(strcat sign mn "'" sec "''"))
	       ((and (not (zerop (atof grad))) (zerop (atof mn)))
		(strcat grad "%%d" mn "'" sec "''"))
	       (T (strcat grad "%%d" mn "'" sec "''"))
	       )
	)
  ;; return value
  (list
    str_ang
    (atof grad)
    (atof mn)
    (atof sec)
    )
  )

;; TesT:
(print
(list
(grmnsec 10.155678)
(grmnsec -0.055678)
(grmnsec 10.005678)
(grmnsec 0.005678)
(grmnsec -10.005678)
(grmnsec -0.005678)))

~'J'~