История изменений
Исправление MOPKOBKA, (текущая версия) :
(let*
(p1 (/ 1.0 (+ 1.0 (expt 10 (/ (- loser winner) 400.0))))))
p1=1/(1+expt(10, (lower-winner)/400))
Язык для машинисток)))) Прочесть пытался, но сдался, напиши в чем задумка программы...
Исправление MOPKOBKA, :
(let*
(p1 (/ 1.0 (+ 1.0 (expt 10 (/ (- loser winner) 400.0))))))
p1=1/(1+expt(10, (lower-winner)/400))
Язык для машинисток))))
Исходная версия MOPKOBKA, :
(let*
(p1 (/ 1.0 (+ 1.0 (expt 10 (/ (- loser winner) 400.0))))))
p1=1/(1+expr(10, (lower-winner)/400))
Язык для машинисток))))