설명

일부 세트 등을 정의합니다.

나는 fngamma.gdx에 알려진 값이 매우 정확하다고 주장하지 않습니다.

담당자0 = 1e-12;
담당자1 = 1e-8;
담당자2 = 1e-8;

소형 모델 유형 :메가 슬롯

카테고리 : 메가 슬롯 테스트 라이브러리

메인 파일 : fngamma.gms 다음을 포함합니다: fnset_x.inc[html] fntest_x.inc[html]

$title '감마 내재의 정확성 테스트' (FNGAMMA,SEQ=183)

* 일부 세트 등을 정의합니다.
$include fnset_x.inc

* 나는 fngamma.gdx에 알려진 값이 매우 정확하다고 주장하지 않습니다.
$gdxIn fngamma
$load aeps 담당자0 담당자1 담당자2 relToInput T 데이터
$gdxIn

* 담당자0 = 1e-12;
* 담당자1 = 1e-8;
* 담당자2 = 1e-8;
루프 T,
  data(T, 'f') = gamma.value (data(T,'x'));
  data(T, 'fx') = gamma.grad (data(T,'x'));
  data(T,'fxx') = gamma.hess (data(T,'x'));
  data(T, 'rc') = mathlastrc;
  data(T, 'ec') = mathlastec;
;

* 데이터 세트에 오버플로를 일으키는 큰 값이 포함되어 있습니다.
abort$[execerror < 6] 'x가 큰 경우 gamma.XXXX(x)를 평가하는 실행 오류가 발생해야 합니다.';
실행 오류 = 0;

$include fntest_x.inc