1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// =============================================================================
// Tests for cdffnc() function
// =============================================================================
prec = 1.e-5;
f = [1:2];
dfn = [1:2];
dfd = 2*dfn;
pn = [0,1];
[P,Q] = cdffnc("PQ",f,dfn,dfd,pn);
[f1] = cdffnc("F",dfn,dfd,pn,P,Q);
[dfn1] = cdffnc("Dfn",dfd,pn,P,Q,f);
//[dfd1] = cdffnc("Dfd",pn,P,Q,f,dfn);
[pnonc] = cdffnc("Pnonc",P,Q,f,dfn,dfd);
if norm(f1-f) > prec then pause,end
if norm(dfn1-dfn) > prec then pause,end
//if norm(dfd1-dfd) > prec then pause,end
if norm(pnonc-pn) > prec then pause,end
|
