설명

sqlog10(x,S) = log_10(x) if x >= S
               (1/log 10) (ln(S) + r/S - 1/S^2) 그렇지 않으면 r = x - S
S >= 1e-150의 경우 기본값 S = 1e-150입니다.

기고자: Steve, 2017년 3월

소형 모델 유형 :슬롯 머신

카테고리 : 슬롯 머신 테스트 라이브러리

메인 파일 : fnsqlog10.gms 포함: fnset_xy.inc[html] fntest_xy.inc[html]

$title 'sqlog10 내장의 정확성 테스트' (FNSQLOG10,SEQ=721)

$onText
x >= S인 경우 sqllog10(x,S) = log_10(x)
               (1/log 10) (ln(S) + r/S - 1/S^2) 그렇지 않으면 r = x - S
S >= 1e-150의 경우 기본값 S = 1e-150입니다.

기고자: Steve, 2017년 3월
$offText

$include fnset_xy.inc

$gdxIn fnsqllog10
$load aeps 담당자 relToInput T 데이터
$gdxIn

루프 T,
  data(T, 'f') = sqlog10.value( data(T,'x'),data(T,'y'));
  data(T, 'fx') = sqlog10.grad(1: data(T,'x'),data(T,'y'));
  data(T, 'fy') = sqlog10.grad(2: data(T,'x'),data(T,'y'));
  data(T,'fxx') = sqlog10.hess(1:1:data(T,'x'),data(T,'y'));
  data(T,'fxy') = sqlog10.hess(1:2:data(T,'x'),data(T,'y'));
  data(T,'fyx') = sqlog10.hess(2:1:data(T,'x'),data(T,'y'));
  data(T,'fyy') = sqlog10.hess(2:2:data(T,'x'),data(T,'y'));
  data(T, 'rc') = mathlastrc;
  data(T, 'ec') = mathlastec;
;

$include fntest_xy.inc