рандомизация числа больше 9007199254740990 не работает

Дата: Вс, 09 Октября 2016, 01:11 | Сообщение # 1

Ветеран форума

Random "9007199254740991" "[rand_seed]"

при рандомизации он просто в переменной пишет цифру 0. почему так и что можно сделать?

Сообщение отредактировано
kop9000 - Вс, 09 Октября 2016, 01:26

Дата: Вс, 09 Октября 2016, 13:22 | Сообщение # 2

Эксперт форума

Цитата kop9000 (

)

и что можно сделать

Удалить NeoBook.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Вс, 09 Октября 2016, 22:13 | Сообщение # 3

Ветеран форума

Цитата mishem (

)

далить NeoBook.

Ты реально хочешь чтобы я бросил программировать. Сколько раз уже ты мне это говоришь. Или ты в том смысле что просто у программы есть ограничения?

Дата: Вс, 09 Октября 2016, 22:44 | Сообщение # 4

Эксперт форума

Нет, я хочу чтобы ты реально бросил программировать.
Это не твое!

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

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Пн, 10 Октября 2016, 00:12 | Сообщение # 5

Ветеран форума

Цитата mishem (

)

вот тут ты немного не прав. такой диапазон не случайно мне нужен. это мне нужно для генерации seed. дело в том что есть один проект под названием oblige так вот вышла новая версия и там максимальный seed как раз это число. вот поэтому я и спрашиваю что можно сделать

Дата: Пн, 10 Октября 2016, 00:32 | Сообщение # 6

Эксперт форума

Цитата kop9000 (

)

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

Удалить NeoBook.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Пн, 10 Октября 2016, 01:10 | Сообщение # 7

Ветеран форума

Цитата mishem (

)

Удалить NeoBook.

Да не собираюсь я её удалять. есть другие варианты?

Сообщение отредактировано
kop9000 - Пн, 10 Октября 2016, 01:11

Дата: Пн, 10 Октября 2016, 02:37 | Сообщение # 8

Админ NeoBook

Цитата kop9000 (

)

почему так

Если загрузить указанное значение в "Delphi-аналог", то компилятор выдаст такое сообщение: Constant expression violates subrange bounds по вполне понятным причинам.
Не берусь сейчас судить о том как именно устроена необушная команда, но теоретически она не может правильно работать в диапазоне, превышающем 2147483647, а просто будет выдавать разную фигню, что она весьма успешно и делает.

Цитата kop9000 (

)

что можно сделать?

Боюсь в данной ситуации ничего, потому-что в следующий раз найдется еще какой-нибудь seed с сотней разрядов, а потом с миллионом, и NB "переварить" такие значения просто не сможет в принципе.

Остается лишь искать другие приемы реализации задуманного.

- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!

При модном втюхе модоподдающимся начинает нравиться

Дата: Пн, 10 Октября 2016, 13:49 | Сообщение # 9

Ветеран форума

Peter спасибо. я тут думаю может получится с помощью функции это сделать например vscrips или jsrips. только я не знаю что выбрать лучше. Или это бесполезно?

Сообщение отредактировано
kop9000 - Пн, 10 Октября 2016, 13:50

Дата: Вт, 11 Октября 2016, 01:05 | Сообщение # 10

Админ NeoBook

Цитата kop9000 (

)

может получится с помощью функции это сделать например vscrips или jsrips. только я не знаю что выбрать лучше.

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

При модном втюхе модоподдающимся начинает нравиться

Дата: Вт, 11 Октября 2016, 12:03 | Сообщение # 11

Ветеран форума

Peter ок спасибо. вот посмотри что я делаю http://oblige.sourceforge.net/forum/index.php?topic=472.0

Дата: Чт, 13 Октября 2016, 10:23 | Сообщение # 12

Ветеран форума

Цитата kop9000 (

)

Peter спасибо. я тут думаю может получится с помощью функции это сделать например vscrips или jsrip

За vbs не отвечу, а в js это фантастика, короче невозможно. В нем для хранения числа используется 64 бит из которых на сами цифры приходится только 52 бит, остальное это позиция десятичной точки. Поэтому с увеличением разрядности теряется точность, число просто не помещается в эти 52 бит и случайное число будет пои стене случайным не входящим вообще ни в какой диапазон от чего-то до чего-то. И скорее всего чтоб поместиться предстанет в виде экспонециальной записи, типа так: 574156e+12

"Вы знаете, нам очень понравились все варианты, что вы прислали. Даже не знаем, что выбрать… А может попробуем объединить все три логотипа в один?"

Дата: Чт, 13 Октября 2016, 14:53 | Сообщение # 13

Эксперт форума

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

90071992
54740991

из этих чисел сгенерировать нужное и объединить полученные результаты.
kop9000, объединить, а не сложить.

Или генерировать по одной цифре и в итоге так же объединить полученные результаты.

Например если число должно состоять именно из такого количества цифр и начальные нули не играют роль

Код

SetVar "[Num]" "9007199254740991"
SetVar "[Itog]" ""
StrLen "[Num]" "[Num.Kol]"
Loop "1" "[Num.Kol]" "[i]"
Random "9" "[Result]"
SetVar "[Itog]" "[Itog][Result]"
EndLoop

Если число должно состоять именно из такого количества цифр и первое число не должно быть нулем

Код

SetVar "[Num]" "9007199254740991"
SetVar "[Itog]" ""
StrLen "[Num]" "[Num.Kol]"
Loop "1" "[Num.Kol]" "[i]"
    Random "9" "[Result]"
    IfEx "[i]=1 and [Result]=0"
        SetVar "[Result]" "1"
    EndIf
    SetVar "[Itog]" "[Itog][Result]"
EndLoop

Если число не обязательно должно состоять именно из такого количества цифр

Код

SetVar "[Num]" "9007199254740991"
SetVar "[Itog]" ""
StrLen "[Num]" "[Num.Kol]"
Loop "1" "[Num.Kol]" "[i]"
    Random "9" "[Result]"
    IfEx "[Result]=0"
        SetVar "[Result]" "1"
    EndIf
    SetVar "[Itog]" "[Itog][Result]"
EndLoop

и т.д.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

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

90071992
54740991

из этих чисел сгенерировать нужное и объединить полученные результаты.
kop9000, объединить, а не сложить.

Или генерировать по одной цифре и в итоге так же объединить полученные результаты.

Например если число должно состоять именно из такого количества цифр и начальные нули не играют роль

Код

SetVar "[Num]" "9007199254740991"
SetVar "[Itog]" ""
StrLen "[Num]" "[Num.Kol]"
Loop "1" "[Num.Kol]" "[i]"
Random "9" "[Result]"
SetVar "[Itog]" "[Itog][Result]"
EndLoop

Если число должно состоять именно из такого количества цифр и первое число не должно быть нулем

Код

Если число не обязательно должно состоять именно из такого количества цифр

Код

и т.д.

Автор - mishem
Дата добавления - 13 Октября 2016 в 14:53

Дата: Чт, 13 Октября 2016, 16:07 | Сообщение # 14

Ветеран форума

mishem, я так понял что в твоих примерах минимальное количество символов везде равно 16. Так что решил дополнить твой вариант еще примером где количество символов может быть от 1 до 16 символов. Не самый элегантный вариант, то что первое в голову пришло.

Код

SetVar "[Num]" "9007199254740991"
StrLen "[Num]" "[Num.Kol]"
SetVar "[Itog]" ""
Loop "1" "[Num.Kol]" "[i]"
     SubStr "[Num]" "[i]" "1" "[arrNum[i]]"
EndLoop
Random "[Num.Kol]" "[DlinnaResult]"
IfEx "[DlinnaResult]=[Num.Kol]"
   Loop "1" "[DlinnaResult]" "[iI]"
        Random "[arrNum[iI]]" "[Rnd]"
        If "[Rnd]" "<" "[arrNum[iI]]"
        DeleteArray "[arrNum[iI]]" "All"
        Loop "1" "[Num.Kol]" "[i]"
              SetVar "[arrNum[i]]" "9"
        EndLoop
        EndIf
        SetVar "[Itog]" "[Itog][Rnd]"
   EndLoop
Else
   Loop "1" "[DlinnaResult]" "[iI]"
   If "[iI]" "=" "1"
        Random "8" "[Rnd]"
        SetVar "[Rnd]" "[Rnd]+1"
   Else
       Random "9" "[Rnd]"
   EndIf
   SetVar "[Itog]" "[Itog][Rnd]"
   EndLoop
EndIf

Дата: Чт, 13 Октября 2016, 20:30 | Сообщение # 15

Ветеран форума

Спасибо всем за примеры. мне подошёл пример от anton на что спасибо ему

Цитата mishem (

)

Если число не обязательно должно состоять именно из такого количества цифр

третий примеру у тебя странный. он всё равно делает все 16 символов. проверь свой третий пример

Сообщение отредактировано
kop9000 - Чт, 13 Октября 2016, 20:33

Дата: Чт, 13 Октября 2016, 21:53 | Сообщение # 16

Эксперт форума

Цитата anton (

)

Не самый элегантный вариант

Вообще не элегантный.

Цитата anton (

)

я так понял что в твоих примерах минимальное количество символов везде равно 16.

Нет, в третьем действительно ошибка, там подразумевалось что если будет 0, то его удалить.
Например первое число 0 и переменная результата еще пустая - удаляем, второе 0...-удаляем, после если переменная не пустая, зпаписываем нули.

Я примеры дал людям думать, а не kop9000. Он твой пример скопировал и сейчас опять вопросы последуют.

Хотя видал, ошибку нашел. Молодец! Пример под его нужды не подошел, значит ошибка.

Главное было пояснить как можно получать произвольные большие числа. Хотя повторюсь, вряд ли это кому нибудь понадобится.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Чт, 13 Октября 2016, 22:49 | Сообщение # 17

Ветеран форума

Цитата mishem (

)

Хотя видал, ошибку нашел. Молодец! Пример под его нужды не подошел, значит ошибка.

так исправь ошибку. и тогда вместо благодарности anton я поблагодарю тебя за короткий пример

Дата: Пт, 14 Октября 2016, 02:03 | Сообщение # 18

Админ NeoBook

По правде говоря, думал, что эта тема заглохнет.

Некоторое замечание...
Если говорить чисто теоретически, то у этих всех примеров есть одно "недоработанное место" - нет контроля результата на вхождение в заданный диапазон.
Ведь (ТЕОРЕТИЧЕСКИ) могут получиться и все 16 девяток....
Или в указанном примере на второй позиции окажется, скажем, 8 вместо нуля....

При модном втюхе модоподдающимся начинает нравиться

Дата: Пт, 14 Октября 2016, 23:45 | Сообщение # 19

Эксперт форума

Цитата Peter (

)

По правде говоря, думал, что эта тема заглохнет.

Она и заглохнет. Здесь обсуждать нечего.

Цитата Peter (

)

то у этих всех примеров есть одно "недоработанное место"

Там не одно, их много. Цель была показать что нужно думать не в одном направлении.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Сб, 15 Октября 2016, 06:31 | Сообщение # 20

Админ NeoBook

При модном втюхе модоподдающимся начинает нравиться

Дата: Сб, 15 Октября 2016, 08:06 | Сообщение # 21

Эксперт форума

Цитата Peter (

)

переходя дорогу с односторонним движением, в какую сторону ты смотришь?

Суслик, это такой зверь, который поднимается на задние лапки и смотрит вперед. Не летит ли орел, не бежит ли лиса, не ползет ли змея, и самые внимательные получают бампером в лоб.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Сб, 15 Октября 2016, 14:17 | Сообщение # 22

Ветеран форума

Цитата mishem (

)

Вообще не элегантный.

Ну не мог же я сам себя откровенно закртиковать... хотя не буду спорить... по восприятию пример атас.

Особенно на третий день прочтения....

Цитата Peter (

)

Ведь (ТЕОРЕТИЧЕСКИ) могут получиться и все 16 девяток....

Не, я в своем примере вроде предусмотрел такую возможность, там если я не напутал, максимальное число ограничено тем которое прописано в переменной [Num] (SetVar "[Num]" "9007199254740991"). Выше него получиться случайное не должно. Именно поэтому вначале я разбиваю это число посимволно и каждый символ заношу в массив [arrNum[i]]

Дата: Сб, 15 Октября 2016, 17:00 | Сообщение # 23

Эксперт форума

Цитата anton (

)

Так если первая будет 8, все остальные могут быть 9.

и т.д.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Сб, 15 Октября 2016, 19:27 | Сообщение # 24

Админ NeoBook

Цитата mishem (

)

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

Я вполне конкретно спросил:

Цитата Peter (

)

в какую сторону ты смотришь?

Ну, это если ты не "из сусликов".

Цитата mishem (

)

Так если первая будет 8, все остальные могут быть 9.

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

Код

SetVar "[Result]" "0"
SetVar "[R]" "0"
StrLen "[InPut]" "[Len]"
Random "[Len]" "[Len]"
SetVar "[i]" "1"
WhileEx "([R] <= [InPut]) AND ([i] <= [Len])"
  SetVar "[Result]" "[R]"
  Random "9" "[Num]"
  If "[R]" ">" "0"
    SetVar "[R]" "[R][Num]"
   Else
    If "[Num]" ">" "0"
      SetVar "[R]" "[Num]"
    EndIf
  EndIf
  Math "[i]+1" "0" "[i]"
EndWhile
ClearVariables "[i],[Len],[Num],[R]"
AlertBox "" "[Result]"

где: InPut - ввод, Result - вывод

Наиболее разумно всю эту ботву оформить в виде функции.

При модном втюхе модоподдающимся начинает нравиться

Дата: Сб, 15 Октября 2016, 19:48 | Сообщение # 25

Ветеран форума

Цитата Peter (

)

то и надо проверять, чтобы абсолютное значение (не количество циферок) было не больше заданного.

Вот кстати пример элегантного кода. Единственно, вроде как получается, что количество символов в Result всегда будет на одну меньше чем задано в InPut.

Цитата mishem (

)

ак если первая будет 8, все остальные могут быть 9. и т.д

Ну да, поэтому я пересозданию массив исходных значений, если случайное число для первого символа меньше оригинала...

Код

...
...
...
If "[Rnd]" "<" "[arrNum[iI]]"
        DeleteArray "[arrNum[iI]]" "All"
        Loop "1" "[Num.Kol]" "[i]"
              SetVar "[arrNum[i]]" "9"
        EndLoop
...
...
...

Дата: Сб, 15 Октября 2016, 22:21 | Сообщение # 26

Эксперт форума

WhileEx "([R] <= [InPut]) AND ([i] <= [Len])"

Зачем здесь круглые скобки?

Цитата anton (

)

Единственно, вроде как получается, что количество символов в Result всегда будет на одну меньше чем задано в InPut.

Потому что строчку
SetVar "[Result]" "[R]"
нужно поставить после или перед
Math "[i]+1" "0" "[i]"

Random "[Len]" "[Len]"
Может выдать 0, и тогда не будет никакого числа.

Цитата Peter (

)

Я вполне конкретно спросил

Я тебе уже отвечал по моему. Смотрю в обе стороны и по нескольку раз. Скорость движения человека во много меньше скорости движения автотранспорта. Пока дойдешь до средины, не одна машина может появиться.

То же самое и когда за рулем. Плюс еще если стойка попадает в поле зрение наклоняюсь вперед/назад чтобы быть уверенным что стойка ничего не скрывает. На определенном расстоянии и под определенным углом стойка может скрыть камаз, и даже поезд.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Вс, 16 Октября 2016, 00:09 | Сообщение # 27

Админ NeoBook

Цитата mishem (

)

Потому что строчку
SetVar "[Result]" "[R]"
нужно поставить после или перед
Math "[i]+1" "0" "[i]"

В обоих случаях ответ неверный.
Присваивание результата конечной переменной должно происходить только ПОСЛЕ проверки выполнения условия, т.е. СРАЗУ после строки:

Код

WhileEx "([R] <= [InPut]) AND ([i] <= [Len])"

А ошибка, влекущая за собой число циферок в результате всегда меньше 16, заключается в том, что я в проверке условия цикла нашлепал AND, а надо было OR.

Добавлено (16 Октября 2016, 00:09)
---------------------------------------------
Да, пардон, забыл...

Цитата mishem (

)

Зачем здесь круглые скобки?

Так просто удобнее воспринимать текст.
Да и вообще, я крайне редко использую WhileEx, потому и косячу иногда.

При модном втюхе модоподдающимся начинает нравиться

Сообщение

Цитата mishem (

)

Потому что строчку
SetVar "[Result]" "[R]"
нужно поставить после или перед
Math "[i]+1" "0" "[i]"

Код

WhileEx "([R] <= [InPut]) AND ([i] <= [Len])"

Добавлено (16 Октября 2016, 00:09)
---------------------------------------------
Да, пардон, забыл...

Цитата mishem (

)

Зачем здесь круглые скобки?

Так просто удобнее воспринимать текст.
Да и вообще, я крайне редко использую WhileEx, потому и косячу иногда.

Автор - Peter
Дата добавления - 16 Октября 2016 в 00:09

Дата: Вс, 16 Октября 2016, 00:30 | Сообщение # 28

Эксперт форума

Цитата Peter (

)

знаешь кто такой зануда?

Зануда тот, кого первый ответ не устроил.

Если хелп и форум не помогли, тогда все ответы здесь

Если вы думаете, что сможете — вы сможете, если думаете, что нет — вы правы.

Дата: Вс, 16 Октября 2016, 01:17 | Сообщение # 29

Админ NeoBook

При модном втюхе модоподдающимся начинает нравиться