Всегда по другому делал: cos(pi*Rnd2)*sqrt(-ln(1-Rnd1))
В принципе -- то же самое. НО: без "неймановских обрезаний" (так это называлось во времена моего студенчества)

А без него (обрезания) -- может и "на математике" не так уж и медленно получиться ...


------------ Дoбавленo в 12.42:
Комментарий к doRandomNorm -- странный.
И использование Min/Max -- тоже странное... Логично (для этих свойств) было бы что-о типа: Центр-Сигма/Центр+Сигма

Galkov, формулы разные, но результат одинаковый (так же как и из 12 шт равномерно распределённых RND), но несмотря на наличие цикла для проверки вхождения в диапазон, применённая формула чуть быстрее из-за меньшего количества вычисляемых функций (на один КОСИНУС), я проверял специально
Комментарий предназначен для спрашивающих перевод секунд в часы и минуты (вряд-ли потребуется им эта мода), да и не хотелось делать специальные точки/свойства

Блин... А это еще что за наскальная живопись

------------ Дoбавленo в 16.05:
ТщательнЕе надо... ТщательнЕе...
------------ Дoбавленo в 16.07:
И где, скажите на милость, гарантии того, что _Sqr не будет равен нулю.
------------ Дoбавленo в 16.08:
И что ты исхитрился померить время вычисления косинуса - не верю ни разу

Ой, конечно RND2 Два подряд числа не могут быть одинаковыми и равны 0.5, хотя при 128 битном слове и округлении до 15 десятичных знаков и такое может быть Сейчас скорректирую! (Вот что значит намётанный глаз! )
Время мерил на этом же компоненте по разным формулам.
------------ Дoбавленo в 23.39:
Исправил и принял вашу формулу, спасибо! [flood]А ведь проверял распределение, получил при интервале +-1 63.2%, обрадовался, а память подвела и "1-1/е" тут ни при чём, всё пора завязывать [/flood]

2nesco
Давай добавим это дело в штатный. Типа: малой кровью -- просто еще одну опцию в свойство Modeи всего делов------------ Дoбавленo в 09.25:
2Леонид
Вполне себе солидный тест... С "ответами"
Есть два пункта:

(1-Rnd1) я писал именно для гарантий отсутствия нуля. И они после этого есть, и -- стопудовые.

свойствам Min/Max -- все-таки надо вернуть изначальный смысл. Потому, лучше, как мне представляется, так:

  FRnd:=cos(pi*_prop_Quality)*sqrt(-ln(1-_prop_Quality)/2)*(_prop_Max-_prop_Min) + (_prop_Min+_prop_Max)/2;   

типа: те же минимум и максимум, просто -- по уровню доверия 0.683 (как ты написал)------------ Дoбавленo в 09.27:
Пи, или два пи -- косинусу пофиг. Просто, первый есть встроенный, а со вторым -- суета требуется.

Редактировалось 2 раз(а), последний 2016-10-31 16:38:56

А где код будет искать doRandom2

doRandom2 -- вместо doRandomNorm от Леонид-а
Впрочем, вот -- посмотри.

Посмотрел, добавил

Image Вывод изображений через GDI+ с поддержкой альфа image_new.rar

Добавлены методы:

doLoadFileImage-Загружает картинку из файла(BMP,JPG,TIFF,GIF,PNG,ICO,EMF,WMF)
doSaveImageAsJPEG-Сохраняет картинку в файл (JPEG)
doIndexOfImg-Отобразить загруженную картинку по индексу(для TIFF,GIF,ICO)

вполне может заменитьImg_Loader

Впрочем TImage в Delphi похожий функционал имеет, так почему бы и нам не заиметь

На данный момент подходит к концу разработка нового загрузчика и конвертора файлов на базе GDI+ -- Img_GDILoader. Читает из всего, что поддерживается (и из стримов тоже), записывает тоже почти во все, что поддерживается (и в стримы тоже, но кроме метафайлов), конвертит напрмую, минуя собственные ресурсы, но только файлы.

У тебя я увидел интересный момент с использованием вывода картинки по индексу. Надо будет добавить.
------------ Дoбавленo в 01.16:
Выкладываю альфа версию -- project_gdi_loader_alpha.rar
------------ Дoбавленo в 01.21:
andrestudio, кстати, ту, муданутую картинку (ты понял о чем я), GDI+ тоже не понимает.
------------ Дoбавленo в 01.24:
На последок добавлю, что альфа версия AlphaDocumentTemplate уже готова, скоро она будет доступна всем для тестирования. Там вам представится полная возможность управлять элементами отображения, что не было доступно раньше.

nesco, можно ещё добавить GetThumbnailImage, вполне уместно будет

Я уже думал об этом. Единственное, что меня остановило, так это установка своих размеров. Мне стало непонятно, какой получится эскиз -- уменьшенный и вписанный в прямоугольник или уменьшенный и растянутый. Если растянутый, то надо тогда получать исходный размер, чтобы правильно определить соотношение сторон. И зачем-то они еще приплели к этой функции обратный вызов, на получение полной картинки его нет, а на получение эскиза он зачем-то существует.

nesco, ответ сдесь

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

Редактировалось 2 раз(а), последний 2016-08-21 19:59:11

Редактировалось 12 раз(а), последний 2022-09-20 00:14:10