RandomRange

← →
ElectriC © (2007-05-04 16:57) [0]

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

← →
{RASkov} © (2007-05-04 17:03) [1]

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

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

← →
Desdechado © (2007-05-04 17:15) [2]

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

← →
ElectriC © (2007-05-06 02:41) [3]

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

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

← →
ElectriC © (2007-05-06 02:42) [4]

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

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

← →
Германн © (2007-05-06 02:53) [5]

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

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

← →
Зюзя (2007-05-06 08:27) [6]

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

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

← →
palva © (2007-05-06 10:03) [7]

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

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

Вот два варианта, один(первый) уже предложенный выше:
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;
Какой быстрее будет фик знает.... но думаю первый..

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

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

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

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

RandomRange Найти похожие ветки