[VVA]

2 функции.
_dwgru-random - Генерирует случайное вещественное число в диапазоне от 0 до 1
dwgru-random-range - Генерирует случайное число из указанного диапазона целых чисел

Код:

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

;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * _dwgru-random
;;; *
;;;  На основе vk_RandNum
;;;  http://www.caduser.ru/forum/index.ph...D=23&TID=32763
;;; *
;;; *
;;; * 07/12/2007 Версия 0001.  Редакция Владимир Азарко (VVA)
;;; ************************************************************************
(defun _dwgru-random (/ modulus multiplier increment)
;;; Генерирует случайное вещественное число в диапазоне от 0 до 1
;;; Используется глобальная переменная *DWGRU_SEED*
  (if (not *DWGRU_SEED*)
    (setq *DWGRU_SEED* (getvar "DATE"))
  )
  (setq  modulus     65536
  multiplier 25173
  increment  13849
  *DWGRU_SEED*     (rem (+ (* multiplier *DWGRU_SEED*) increment) modulus))
  (/ *DWGRU_SEED* modulus)
)
 
;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * dwgru-random-range
;;; *
;;; * 07/12/2007 Версия 0001.  Редакция Владимир Азарко (VVA)
;;; ************************************************************************
(defun dwgru-random-range (Minnum Maxnum )
;;; Генерирует случайное число из указанного диапазона целых чисел
;;; Использует функцию библиотеки
    ;;;                 _dwgru-random
    ;;; Параметры: 
    ;;; Minnum - минимальное целое число
    ;;; Maxnum - максимальное целое число
    ;;; Возврат:
    ;;;   целое число из указанного диапазона
 
    ;;; Пример:
  ;|
  (DWGRU-NUM-RANDOM-RANGE 1 15) ;_Результат 3
  (DWGRU-NUM-RANDOM-RANGE 1 15) ;_Результат 10
  |;
;(- Maxnum (atoi (rtos (* (- Maxnum Minnum) (_dwgru-num-random)) 2 0))) ;_Comment VVA 07.12.2007 Было так
;;;Comment VVA http://forum.dwg.ru/showpost.php?p=798277&postcount=9
;;;(- Maxnum (fix (* (- Maxnum Minnum) (_dwgru-random)))) ;_Add VVA 07.12.2007 Так наверное быстрее
;;;
(- Maxnum (fix (* (- Maxnum Minnum -1) (_dwgru-random)))) ;;;Vov.ka http://forum.dwg.ru/showpost.php?p=798277&postcount=9
)

[Jerald]

А генератора случайного слова из указанного списка у тебя случайно нету?

[VVA]

Генератор случайного слова

Код:

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

;;;Список слов
(setq Dict '("Я" "пришел" "к" "тебе" "с" "приветом," "рассказать," "что" "солнце" "встало"))
(repeat 5
  (princ "\nСлучайное слово: ")
  (princ
    (nth
      (dwgru-random-range 0 (1- (length Dict)))
      Dict
      )
    )
  (princ)
  )

[VVA]

Кстати нашел еще в загашниках

Код:

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

 
;;; by Paul Kohut
;|
 (rand);_> 21753
 (rand);_> 3920
|;
(defun rand ( )
  (if (null *SeedRand*)(setq *SeedRand* (getvar "DATE")))
  (setq *SeedRand* (+ (* (fix *SeedRand*) 214013) 2531011))
  (boole 1 (/ *SeedRand* 65536) 32767)
)

[Jerald]

Сообщение от VVA Генератор случайного слова Код: [Выделить все] ;;;Список слов (setq Dict '("Я" "пришел" "к" "тебе" "с" "приветом," "рассказать," "что" "солнце" "встало")) (repeat 5 (princ "\nСлучайное слово: ") (princ (nth (dwgru-random-range 0 (1- (length Dict))) Dict ) ) (princ) )

Это работает только в Автокаде? Может есть отдельная прога, или мож знаешь, где лежит?

[VVA]

Не знаю про отдельную прогу, но алгоритм здесь простейший. Думаю не составит большого труда перепичать его на другом языке. К сожалению, пока владею только русским, LISP'ом и матным

[Елпанов Евгений]

Сообщение от Jerald Это работает только в Автокаде? Может есть отдельная прога, или мож знаешь, где лежит?

на такие случаи, есть переменная в винде..
т.е. запроси в виндовой ком строке

Код:

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

echo %Random%

и получишь длинное целое.

[Jerald]

Мне нужно нечто вроде виртуальной колоды карт, только пустой, что бы я сам мог подписывать названия "карт"!?

[VVA]

Еще лиспик в копилку. Выложил Пастух здесь

Функция генерации псевдослучайной последовательности целых 16-и битных чисел. Аргумент: положительное целое число в диапазоне от 0 до 65535. Возврат: псевдослучайное целое число. Пример вызова: (rnd16bit 0) Если полученное число использовать в качестве аргумента для следующего вызова rnd16bit, то в результате можно получить последовательность неповторяющихся псевдослучайных чисел с периодом 65536. См. Шевкопляс Б.В Микропроцессорные структуры. Инженерные решения: Справочник., М.: Радио и связь, 1990 г. (стр. 492)

Код:

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

(defun rnd16bit (reg; регистр сдвига.
     /
     dc_out; выходное значение дешифратора.
     m2_out; выходное значение сумматора по модулю 2.
     )
  (setq reg (logand reg 65535)); страж: оставляем 16 младших разрядов.
  (setq
    dc_out (if (or (= reg 21844) (= reg 21845)) 1 0)
    m2_out (boole 6 (logand reg 1) (if (zerop (logand reg 2)) 0 1) (if (zerop (logand reg 4)) 1 0) dc_out)
  )
  (setq reg (lsh reg -1))
  (if (zerop m2_out)
    reg; return.
    (logior reg 32768); return.
  ); end if.
); end defun.

P.S. Данный метод генерации (реализуемый аппаратно с исользованием регистра сдвига) использовался лет 20 назад в радиолокации для генерации фазоманипулированных шумоподобных сигналов. Как сейчас дела обстоят — не знаю.

[Do$]

_dwgru-random из поста #1 имеет один неприятный недостаток:

Код:

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

 (setq *DWGRU_SEED* nil)
(_dwgru-random)

этот код всегда вернет что-то примерно равное 0,8.
То есть при первом запуске функции, значение около 0,8 гарантированно 100%. Для рандома как-то не очень.

[Faeton]

2 функции из первого поста отказываются работать

прочитал как пользоваться лиспом
функция OFF2 работает отлично

при запуске _dwgru-random выдавало
no function definition:
запустил
(vlax-get-acad-object)
выдало Неизвестная команда "DWGRU-RANDOM". Для вызова справки нажмите F1.

либо может есть более простой способ заполнить столбец таблицы случайныйми значениями в определенном интервале 22,3-39,7

пробовал через VBA, но так и не разобрался как обратится к определенному диапазону в определенной таблице.

[gomer]

смотрите какие аргументы функции и какой обработчик ошибок у вас в данный момент

[Faeton]

к сожалению в лиспе я не понимаю ни одной строчки

[gomer]

Сообщение от Faeton к сожалению в лиспе я не понимаю ни одной строчки

ну тады лом вам в руки или чо конкретно вы хотели получить?

[Faeton]

в экселе есть столбец с 15 ячейками его необходимо вставить в 15 ячеек автокадовской таблицы. (при простом копировании он все значения загоняет в одну ячейку)
в идеале нужно чтобы в автокадовской таблице (в определенном столбеце из 15 ячеек) при запуске команды 15 ячеек автоматически заполнялись случайными числами в диапазоне от 21.1 до 35.7 (диапозон может меняться)

[AY]

Так к слову пришлось, вроде бы в DOSLib был генератор случайных чисел, на случай если кому-то покажется он более удобным.

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

DosLib написан на arx, так что возникает вопрос с версией и разрядностью.