Package org.netlib.util

Examples of org.netlib.util.doubleW

25
26
27
28
29
30
31
32
33
34
35
36
37
  @SuppressWarnings("unused")
  @Test
  public void test() {
    int i,nbin,N=100000,M=1000;
    doubleW df = new doubleW(0);
    doubleW chisq = new doubleW(0);
    doubleW prob = new doubleW(0);
    double range=10.0,xl,xu,mu,sig,binsize,sbeps=1.e-15;
    double fpr[]={1.1374125522420115,-0.35950397273931667,-1.6105670258529632,
      0.42167950591239073,0.42086816489557621,0.71359860938979924,
      0.56718836082663404,0.10148179520762551,0.47465403328436934,
      -0.4866388952851291};
View Full Code Here
25
26
27
28
29
30
31
32
33
34
35
  @SuppressWarnings("unused")
  @Test
  public void test() {
    int i,N=100000,M=1000;
    doubleW dfW=new doubleW(0),chisqW=new doubleW(0),probW=new doubleW(0);
    double df,chisq,prob,average,sbeps=1.e-15;
    int fpr1[]={1149019610,0xbd3972a4,869460487,0xb490bfc1,2051969833,
      1403042588,1716234809,0xd74d3f17,757991611,0x9c4032ed};
    double fpr2[]={0.26752697536721826,0.73915783409029245,0.20243704481981695,
      0.70533369504846632,0.47776145697571337,0.32667130883783102,
View Full Code Here
26
27
28
29
30
31
32
33
34
35
36
  @Test
  public void test() {
    int i,j,N=1000,M=10,NEXT=100;
    double sum;
    doubleW pm = new doubleW(0);
    double[] cof= new double[M],reg= new double[M];
    double[] data= new double[N],expect= new double[NEXT],predict= new double[NEXT];
    boolean localflag, globalflag=false;

   
View Full Code Here
24
25
26
27
28
29
30
31
32
33
34
  @SuppressWarnings("unused")
  @Test
  public void test() {
    int i,N=100000,M=256;
    doubleW dfW=new doubleW(0),chisqW=new doubleW(0),probW=new doubleW(0);
    double df,chisq,prob,average,sbeps=1.e-15;
    int fpr1[]={248,118,10,200,182,254,69,191,65,220};
    int fpr2[]={0xf8760ac8,0xb6fe45bf,1104942861,46198748,0xb2610f18,
        0xc2d27d31,0x9d7091d6,0xf192ea75,0xdf166388,0xa0538d44};
    double fpr3[]={0.97055117988838291,0.25726455752988264,0.6967935023738594,
View Full Code Here
26
27
28
29
30
31
32
33
34
35
36
37
  }

  @Test
  public void test() {
    int i,N=20;
    doubleW cosint = new doubleW(0);
    doubleW sinint = new doubleW(0);
    double a,b,w,sbeps;
    double prefa,prefb,cwa,swa,cwb,swb,ci,si;
    boolean localflag, globalflag=false;

   
View Full Code Here
23
24
25
26
27
28
29
30
31
32
33
  public void tearDown() throws Exception {
  }

  @Test
  public void test() {
    doubleW tgral= new doubleW(0),sd= new doubleW(0),chi2a= new doubleW(0);
    double R1=3.0,R2=1,PI=acos(-1.0);
    double[] regn =new double[6];
    boolean localflag, globalflag=false;
   
   
View Full Code Here
25
26
27
28
29
30
31
32
33
34
35
  @Test
  public void test() {
    int i,N=11,M=12;
    double fac,x,sbeps=2.e-13;
    doubleW dev = new doubleW(0);
    double[] c = new double[2*M],y=new double[N],yy=new double[N];
    boolean localflag, globalflag=false;

   

View Full Code Here
42
43
44
45
46
47
48
49
50
51
52
53
    final int MNPT=15, MNBS=60;
    final double PFAC=0.1, TINY=1.0e-30, BIG=1.0e30;
    int j,jb,n,ndim,npre,nptl,nptr;
    double fracl,fval,rgl,rgm,rgr,s,sigl,siglb,sigr,sigrb;
    double sum,sumb,summ,summ2;
    doubleW avel = new doubleW(0);
    doubleW varl = new doubleW(0);

    ndim=regn.length/2;
    double[] pt = new double[ndim];
    if (npts < MNBS) {
      summ=summ2=0.0;
View Full Code Here
145
146
147
148
149
150
151
152
153
154
155
   * upper triangular.  The factored form of A is then used to solve the
   * system of equations A * X = B.
   */
  public static SEXP dgesv(DoubleVector A, DoubleVector B, double tolerance) {
    double anorm;
    doubleW rcond = new doubleW(0);

    if (!Types.isMatrix(A)) {
      throw new EvalException("'a' must be a numeric matrix");
    }
    if (!Types.isMatrix(B)) {
View Full Code Here
134
135
136
137
138
139
140
141
142
143
144
  // Used by fit to evaluate the linearized fitting matrix alpha, and vector beta as in (15.5.8) and
  // to calculate χ^2
  public void mrqcof(final double[] a, final double[][] alpha, final double[] beta) {
    int i,j,k,l,m;
    double ymod,wt,sig2i,dy;
    doubleW ymodW= new doubleW(0);
    double[] dyda = new double[ma];
    for (j=0;j<mfit;j++) {   // Initialize (symmetric) alpha, beta
      for (k=0;k<=j;k++) alpha[j][k]=0.0;
      beta[j]=0.;
    }
View Full Code Here
TOP

Related Classes of org.netlib.util.doubleW

  • ch.akuhn.matrix.eigenvalues.FewEigenvalues
  • com.github.fommil.netlib.Dsaupd
  • com.nr.ci.Phylagglom
  • com.nr.model.Fitexy
  • com.nr.model.Fitmrq
  • com.nr.model.Proposal
  • com.nr.pde.Mgfas
  • com.nr.ran.Miser
  • com.nr.sp.DftInt
  • com.nr.sp.Fourier$Fasper
    • Copyright © 2018 www.massapicom. All rights reserved.
    All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.