| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RandomRange [D7]

ElectriC ©   (2007-05-04 16:57:00) 

Как переписать функцию RandomRange для чисел типа Single (Extended)?

---

ElectriC   (2007-05-07 01:22:00) [1]

> function RandomRangeExt1(const FromV, ToV: Double): Double;
> begin  Result:=Random*(ToV - FromV) + FromV;end;

Работает, спасибо)))

---

{RASkov}   (2007-05-06 16:27:00) [2]

> Какой быстрее будет фик знает.... но думаю первый..

Да... и второй походу еще и не правильный :( Вообщем первый :)

---

{RASkov}   (2007-05-06 16:26:00) [3]

Вот два варианта, один(первый) уже предложенный выше:

function RandomRangeExt1(const FromV, ToV: Double): Double;
begin
 Result:=Random*(ToV - FromV) + FromV;
end;

function RandomRangeExt2(const FromV, ToV: Double): Double;
begin
 Result:=RandomRange(Trunc(FromV), Trunc(ToV-1))+Random
end;
Какой быстрее будет фик знает.... но думаю первый..

---

palva   (2007-05-06 10:03:00) [4]

> x=(x_сгенерир - x_min)/(x_max - x_min)

x=x_сгенерир*(x_max - x_min) + x_min

---

Зюзя   (2007-05-06 08:27:00) [5]

Лучше сначала подучить "матчасть". Имхо.

Не, ну ты че, в натуре?! Какая матчасть? Ему бы игру до понедельника дописать! Помог бы лучше человеку спрайты рисовать!

---

Германн   (2007-05-06 02:53:00) [6]

> ElectriC ©   (06.05.07 02:41) [3]
>
>
> > Во загнул.... Для чего тебе? Приведи пример твоего хотения.
>
>
> Случайный позиции, расположения, скорость и т.д.(x,y,z)
> спрайтов(в Direct3D).
>

Лучше сначала подучить "матчасть". Имхо.

---

ElectriC   (2007-05-06 02:42:00) [7]

> x=(x_сгенерир - x_min)/(x_max - x_min)

Спасибо, посмотрим(если будет работать)!

---

ElectriC   (2007-05-06 02:41:00) [8]

> Во загнул.... Для чего тебе? Приведи пример твоего хотения.

Случайный позиции, расположения, скорость и т.д.(x,y,z) спрайтов(в Direct3D).

---

Desdechado   (2007-05-04 17:15:00) [9]

Нормировать к требуемому диапазону.
x=(x_сгенерир - x_min)/(x_max - x_min)

---

{RASkov}   (2007-05-04 17:03:00) [10]

> [0] ElectriC ©   (04.05.07 16:57)

Во загнул.... Для чего тебе? Приведи пример твоего хотения.

---

Наверх