fntest_xy.inc : f(x,y)에 대한 내장 테스트

파일 : fntest_xy.inc 다음 사용자: fnpower.gms[html]  fnvcpow.gms[html] fnvcpow2.gms[html]  fnrpow.gms[html] fnrpow2.gms[html]  fnrpow3.gms[html] fnatan2.gms[html]  fnatan2n.gms[html]  fnatan2x.gms[html]  fncentry.gms[html]  fncentr4.gms[html]  fncentr5.gms[html]  fncentr6.gms[html]  fnspowx.gms[html] fnspown.gms[html]  fnslexp.gms[html] fnslexp2.gms[html]  fnsqexp.gms[html] fnsqexp2.gms[html]  fnsllog10.gms[html]  fnsllog102.gms[html]  fnsqlog10.gms[html]  fnsqlog102.gms[html]  fnslrec.gms[html] fnslrec2.gms[html]  fnsqrec.gms[html] fnsqrec2.gms[html]  fnbinomial.gms[html]  fnncpf3.gms[html] fnncpvupow2.gms[html]  fnncpvusin2.gms[html]

* 주의사항  이 파일은 여러 번 포함될 수 있습니다.
* 따라서 필요한 경우 fnset_xy.inc에 선언을 넣으세요.

$ 정의되지 않은 경우 담당자 담당자 = 0;
$정의되지 않은 경우 담당자0 담당자0 = 담당자;
$정의되지 않은 경우 담당자1 담당자1 = 담당자;
$정의되지 않은 경우 담당자2 담당자2 = 담당자;
$ 정의되지 않은 경우 aeps aeps = 0;
$ 정의되지 않은 경우 aeps0 aeps0 = aeps;
$ 정의되지 않은 경우 aeps1 aeps1 = aeps;
$ 정의되지 않은 경우 aeps2 aeps2 = aeps;
$ 정의되지 않은 경우 relToInput relToInput = 0;

* 옵션 zeroRes = 2.0e-299;
TT(T)를 설정하고;

슬롯 사이트 추천(T, 'f_a') = abs(슬롯 사이트 추천(T, 'f')-슬롯 사이트 추천(T, 'f_'));
슬롯 사이트 추천(T, 'fx_a') = abs(슬롯 사이트 추천(T, 'fx')-슬롯 사이트 추천(T, 'fx_'));
슬롯 사이트 추천(T, 'fy_a') = abs(슬롯 사이트 추천(T, 'fy')-슬롯 사이트 추천(T, 'fy_'));
슬롯 사이트 추천(T,'fxx_a') = abs(슬롯 사이트 추천(T,'fxx')-슬롯 사이트 추천(T,'fxx_'));
슬롯 사이트 추천(T,'fxy_a') = abs(슬롯 사이트 추천(T,'fxy')-슬롯 사이트 추천(T,'fxy_'));
슬롯 사이트 추천(T,'fyx_a') = abs(슬롯 사이트 추천(T,'fyx')-슬롯 사이트 추천(T,'fyx_'));
슬롯 사이트 추천(T,'fyy_a') = abs(슬롯 사이트 추천(T,'fyy')-슬롯 사이트 추천(T,'fyy_'));
if relToInput,
  tmp(T) = max(1,abs(슬롯 사이트 추천(T,'x')));
  데이터(T, 'f_r') = 데이터(T, 'f_a') / tmp(T);
  데이터(T, 'fx_r') = 데이터(T, 'fx_a') / tmp(T);
  데이터(T, 'fy_r') = 데이터(T, 'fy_a') / tmp(T);
  데이터(T,'fxx_r') = 데이터(T,'fxx_a') / tmp(T);
  데이터(T,'fxy_r') = 데이터(T,'fxy_a') / tmp(T);
  슬롯 사이트 추천(T,'fyx_r') = 슬롯 사이트 추천(T,'fyx_a') / tmp(T);
  슬롯 사이트 추천(T,'fyy_r') = 슬롯 사이트 추천(T,'fyy_a') / tmp(T);
그렇지 않으면
  tmp(T) = abs(슬롯 사이트 추천(T,'f_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'f_r') = INF;
  슬롯 사이트 추천(T , 'f_r')$(슬롯 사이트 추천(T, 'f_a') eq 0) = 0;
  데이터(TT, 'f_r') = 데이터(TT, 'f_a') / tmp(TT);

  tmp(T) = abs(슬롯 사이트 추천(T,'fx_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'fx_r') = INF;
  슬롯 사이트 추천(T , 'fx_r')$(슬롯 사이트 추천(T, 'fx_a') eq 0) = 0;
  데이터(TT, 'fx_r') = 데이터(TT, 'fx_a') / tmp(TT);
  tmp(T) = abs(슬롯 사이트 추천(T,'fy_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'fy_r') = INF;
  슬롯 사이트 추천(T , 'fy_r')$(슬롯 사이트 추천(T, 'fy_a') eq 0) = 0;
  데이터(TT, 'fy_r') = 데이터(TT, 'fy_a') / tmp(TT);

  tmp(T) = abs(슬롯 사이트 추천(T,'fxx_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'fxx_r') = INF;
  슬롯 사이트 추천(T ,'fxx_r')$(슬롯 사이트 추천(T,'fxx_a') eq 0) = 0;
  슬롯 사이트 추천(TT,'fxx_r') = 데이터(TT, 'fxx_a') / tmp(TT);
  tmp(T) = abs(슬롯 사이트 추천(T,'fxy_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'fxy_r') = INF;
  슬롯 사이트 추천(T ,'fxy_r')$(슬롯 사이트 추천(T,'fxy_a') eq 0) = 0;
  데이터(TT,'fxy_r') = 데이터(TT, 'fxy_a') / tmp(TT);
  tmp(T) = abs(슬롯 사이트 추천(T,'fyx_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'fyx_r') = INF;
  슬롯 사이트 추천(T ,'fyx_r')$(슬롯 사이트 추천(T,'fyx_a') eq 0) = 0;
  슬롯 사이트 추천(TT,'fyx_r') = 데이터(TT, 'fyx_a') / tmp(TT);
  tmp(T) = abs(슬롯 사이트 추천(T,'fyy_'));
  TT(T) = tmp(T) > 0;
  데이터(T, 'fyy_r') = INF;
  슬롯 사이트 추천(T ,'fyy_r')$(슬롯 사이트 추천(T,'fyy_a') eq 0) = 0;
  데이터(TT,'fyy_r') = 데이터(TT, 'fyy_a') / tmp(TT);
;
슬롯 사이트 추천(T,'rc_e') = abs(슬롯 사이트 추천(T,'rc')-슬롯 사이트 추천(T,'rc_'));
슬롯 사이트 추천(T,'ec_e') = abs(슬롯 사이트 추천(T,'ec')-슬롯 사이트 추천(T,'ec_'));

badTV(T,V) = 아니요;
badTV(T,fV(V)) = ((슬롯 사이트 추천(T, 'f_a') > aeps0) and (슬롯 사이트 추천(T, 'f_r') > reps0));
badTV(T,fxV(V)) = ((슬롯 사이트 추천(T, 'fx_a') > aeps1) and (슬롯 사이트 추천(T, 'fx_r') > reps1));
badTV(T,fyV(V)) = ((슬롯 사이트 추천(T, 'fy_a') > aeps1) and (슬롯 사이트 추천(T, 'fy_r') > reps1));
badTV(T,fxxV(V)) = ((슬롯 사이트 추천(T,'fxx_a') > aeps2) 및 (슬롯 사이트 추천(T,'fxx_r') > reps2));
badTV(T,fxyV(V)) = ((슬롯 사이트 추천(T,'fxy_a') > aeps2) 및 (슬롯 사이트 추천(T,'fxy_r') > reps2));
badTV(T,fyxV(V)) = ((슬롯 사이트 추천(T,'fyx_a') > aeps2) 및 (슬롯 사이트 추천(T,'fyx_r') > reps2));
badTV(T,fyyV(V)) = ((슬롯 사이트 추천(T,'fyy_a') > aeps2) 및 (슬롯 사이트 추천(T,'fyy_r') > reps2));
badTV(T,rcV(V)) = 슬롯 사이트 추천(T,'rc_e');
badTV(T,ecV(V)) = 슬롯 사이트 추천(T,'ec_e');
badT(T) = sumbadTV(T,V), 예;
badTV(badT,inV) = 예;
실패(T,V) = 0;
실패2(T,V) = 0;
실패(나쁜T,V) = 데이터(나쁜T,V);
실패2(나쁜TV) = 실패(나쁜TV);
'실패한 테스트' 표시, 실패, 실패2;
* 데이터 표시;
스칼라 nTests, nErrors;
nTests = 카드(T);
nErrors = 카드(나쁜T);
'절대 공차 표시: ', aeps0, aeps1, aeps2;
'상대적 공차: ', reps0, reps1, reps2를 표시합니다.
'테스트된 데이터 포인트 표시: ', nTests;
' 오류 표시: ', nErrors;
$if set FAILGDX 실행_언로드 '%FAILGDX%', badT, 실패, 실패2, aeps, aeps0, aeps1, aeps2, 담당자, 담당자, 담당자0, 담당자1, 담당자2;

abort$(nErrors) '오류가 발생했습니다.';