このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1250204272/591 
#  [1] 授業単元: 
#  [2] 問題文(含コード&リンク):半径rの3次元の球状にランダムにn個の点を
# 置くにはどうしたらいいですか?

'半径rの3次元の球状にランダムにn個の点を置くにはどうしたらいいですか?'(_n,_半径,X,Y,Z) :-
    _n > 0,
    A is random(314159) / 100000.0,
    X1 is _半径 * cos(A),
    Y1 is _半径 * sin(A),
    D is random(314159) / 100000.0,
    Z is _半径 * sin(D),
    X is X1 * cos(D),
    Y is Y1 * cos(D).
'半径rの3次元の球状にランダムにn個の点を置くにはどうしたらいいですか?'(_n,_半径,X,Y,Z) :-
    _n > 0,
    succ(_n_1,_n),
    '半径rの3次元の球状にランダムにn個の点を置くにはどうしたらいいですか?'(_n_1,_半径,X,Y,Z).