[Mozgunov]

Ребят помогите разобраться функция с разными аргументами возвращает одно значение! В чём ошибка? Привожу 2 варианта. Результат один и тот же "45".

Код:

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

(setq rtr (/ (* (atan (/ 4000 3500)) 180.) pi) )

Код:

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

(setq rtr (/ (* (atan (/ 3500 3500)) 180.) pi) )

[CB]

Код:

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

 
(setq rtr (/ (* (atan (/ 4000. 3500.)) 180.) pi) )
48.8141 
 
(setq rtr (/ (* (atan (/ 3500. 3500.)) 180.) pi) )
45.0

[Mozgunov]

Спасибо! А если эти числа в переменных? Как им поменять тип данных?

[Mozgunov]

или после переменной точку ставить?

[CB]

Код:

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

(setq a 3000)
(float a)
3000.0
(* a 1.)
3000.0

[Mozgunov]

делаю так такая же ерунда.
(setq glugolvirt (/ (* (atan (/ (float glvirtvisota) (float glvirtshir) )) 180.) pi) )

[Mozgunov]

А если числа с точками на конце без переменных, то работает.

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

вариант "помедленнее"

Код:

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

(setq value 100) (atof (VL-PRINC-TO-STRING value))

[ShaggyDoc]

Зависит, откуда числа взялись.

В #1 они прописаны в программе и являются константами. Здесь самый простой вариант был показан в #2.

Если числа вводит пользователь, то надо применять соответствующие функции, например getreal.

Если числа берутся неизвестно откуда, то надо предусматривать преобразование. Варианты могут быть разные, например как в #8.

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

[CB]

>Mozgunov

делаю так такая же ерунда. (setq glugolvirt (/ (* (atan (/ (float glvirtvisota) (float glvirtshir) )) 180.) pi) )

Такого быть не может...

Код:

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

(setq a 4000 b 3500)
(/ (* (atan (/ (float a) (float b) )) 180.) pi)
48.8141

[Mozgunov]

Всем спасибо! Заработало!